[I [INPUT [CONVERSION $400 [INPUT NO. [CONVERSION #3A SET 15 0 JMP 4Z ADD 3M #3B SETi 13 -0 STC 3D ADD 6F+2 STC 7Z STC 7Z+1 STC 7Z+2 STC 16 JMP 5N 4B -4D ADD 3D #3C SAEi 23 JMP p+3 KBDi ADD 7I STAi #3D 0 SHDi 1300 JMP 15 SHDi 1200 JMP 3G CLR ADD 3D SHDi 1700 SETi 16 JMP p+1 SHDi 6100 XSKi 13 SAEi #3Z 30 JMP 3F XSKi 14 JMP 5N -4F ADD 16 STC 3M KBDi JMP 3B #3F ADAi -11 APOi JMP 3E+4 CLR ADD 3D STC 4E+2 STC 4E+1 JMP 5O -4E XSK 13 JMP 3E+6 #3E JMP 5C -4B JMP 5A -4E KBDi JMP 3C JMP 5G 4E 4D 4E JMP 5C 4D 4B 4D JMP 3E+2 #3G XSK 14 JMP 3I #3H CLR ADD 16 APOi JMP 3I-2 SETi 1 7Z JMP 6D-2 XSKi 15 JMP 15 #3I JMP 5P -7Z AZE JMP 6F-1 ADD 7Z+1 STC 4E ADD 16 STC 4L #3J JMP 4H JMP 5C 4F -4D ADD 3M JMP 3H+2 #3M 0 [CONSTANTS + [SUBROUTINES [LOG 2 [0.30103 #4A 7776 2321 0116 [10.0 #4B 0004 2400 0000 [TEM1 #4D 0 0 0 [TEM2 #4E 0 0 0 [TEM3 #4F 0 0 0 [1.0 #4G 0001 2000 0000 [10.0 TO [THE |N| [|N| IN 4E [RESULT IN 4D #4H SET 17 0 JMP 5N 4B -7Z JMP 5N 4G -4D #4I ADD 4E AZEi JMP 4M SCRi 1 STC 4E LZEi JMP 4J JMP 5C 4D 7Z 4D #4J JMP 5C -7Z JMP 4I #4M ADD 4L APOi JMP 17 JMP 5G 4G 4D 4D JMP 17 #4L 0 LDAi 14 [6-BIT CODE #2A ADAi 2D STC 17 LDA 17 [TTYSUB #2B STC 2C-7 ADD 0 STC 2C-1 ADD 2C-7 SCR 1 514 CLR JMP 2C-1 -430 XSKi 17 JMP p-1 LDAi 0 SCR 1 STC p-2 SROi 3777 JMP 2B+3 RTN [EOL #2C CLR ADD 0 STC p+14 ADD 2D+12 JMP 2B ADD 2D+13 JMP 2B SETi 17 300 XSKi 17 JMP p-1 SROi 3567 JMP p-6 RTN [CODES #2D 7540 7542 7544 7546 7550 7552 7554 7556 7560 7562 7432 7424 7500 7514 7516 7532 7526 7536 7506 7416 7602 7604 7606 7610 7612 7614 7616 7620 7622 7624 7626 7630 7632 7634 7636 7640 7642 7644 7646 7650 7652 7654 7656 7660 7662 7664 7572 7612 7530 7534 7510 7666 #4Z STC 3M LDAi -13 STC 5P+7 SETi 14 -0 JMP 0 [DFTAGS [ADD 5A=1000 [SUBTRACT 5B=1045 [MULTIPLY 5C=1054 5D=1113 5E=1142 5F=1145 [DIVIDE 5G=1163 5H=1224 5I=1226 5J=1230 5K=1247 5L=1256 5M=1265 [MOVE 1 TO 2 6A=1303 [Z TO A 6B=1313 [COM SETUP 6C=1320 [COM|ABS 1 6D=1334 [OVF CHECK 6E=1351 [RESULT=0 6F=1361 [SET 3 6G=1371 [SET NORMAL 6H=1374 [SET REVERSE 6I=1401 [SETUP 7A=1406 7B=1427 [ARG1 LOC 7C=1431 [ARG2 LOC 7D=1435 7E=1446 7F=1452 [IR+SIGN TEST 7G=1457 [ADD 1 TO 3 7H=1501 [CHECK FOR [ADD OVERFLOW 7I=1525 7J=1531 [+1 7K=1545 [-1 7L=1550 [SCR N 3 7M=1565 7O=1576 7P=1622 [NORMALIZE, [ROUND,XIT 7Q=1623 7R=1646 7S=1670 [XIT 7T=1672 7U=1704 7V=1706 7W=1722 [ARG 1 7X=1723 [ARG 2 7Y=1726 [FAC 7Z=1731 [TRANSFER 5N=1734 [FLOAT 5O=1743 [FIX 5P=1755