QNA=JMP p [ [ Q AND A ROUTINE #A39O LDAi 2 ADD 0 STAi 0 ADD p+133 STC 1 LDA 1 ADD p+170 STC p+35 LDAi 1 STC p+26 STC 6 SET 3 p+23 SET 4 p+26 JMP p+125 JMP p+3 JMP p+14 JMP p-3 STH 3 LDHi 4 COM STC 6 ADD p+202 LDHi 3 XSKi 6 JMP p-2 LDHi 3 JMP p-15 STH 3 SETi 4 0 LDAi 376 STC p+12 SETi 3 0 SET 5 p-7 SETi 1 5 LDAi -40 ADMi 0 LDHi 3 JMP p+67 JMP p+303 JMP p+17 SHDi 1200 JMP p-14 JMP p+71 JMP p-10 JMP p+67 SROi 0 DIS 1 LDHi 5 JMP p+52 JMP p-17 JMP p-20 JMP p-10 KST JMP p-40 KBD SETi 2 p+233 SHD 2 JMP p+121 SHDi 2 JMP p-105 XSK 6 JMP p-51 SHDi 2 JMP p+20 SHDi 2 JMP p+131 SHDi 2 JMP p+21 JMP p+25 JMP p-106 JMP p-62 STC p+5 JMP p+20 JMP p+50 JMP p+47 LDAi 0 STH 4 JMP p-72 LDH 4 JMP p+11 JMP p-75 -6002 JMP p+36 JMP p+4 JMP p-101 JMP p-104 JMP p-3 LDHi 4 SHDi 2100 JMP 0 SAEi 76 XSKi 0 XSKi 0 JMP 0 ROL 1 ADD p+163 STC 2 ADD p+20 ADD 1 STC 1 ADD 5 COM ADD 4 AZE CLR STC p-100 ADD p-115 DSC 2 DSCi 2 JMP 0 LDAi -4000 ADM 4 JMP p-141 [CHARACTER PATTERNS [KBD 0:CODE 00 4136 3641 [1:01 2101 0177 [2:02 4523 2151 [3:03 4122 2651 [4:04 2414 0477 [5:05 5172 0651 [6:06 1506 4225 [7:07 4443 6050 [8:10 5126 2651 [9:11 5122 3651 [EOL:12 KBDi ADD p-212 [DEL:13 JMP 0 67 [SPACE:14 0000 0000 [i:15 0101 0126 [p:16 3700 3424 [-:17 0404 0404 [+:20 0404 0437 [|:21 0000 0077 [#:22 JMP p-102 JMP p-52 [CASE:23 JMP p-53 JMP p-211 [A:24 4477 7744 [B:25 5177 2651 [C:26 4136 2241 [D:27 4177 3641 [E:30 4577 4145 [F:31 4477 4044 [G:32 4136 2645 [H:33 1077 7710 [I:34 7741 0041 [J:35 4142 4076 [K:36 1077 4324 [L:37 0177 0301 [M:40 3077 7730 [N:41 3077 7706 [O:42 4177 7741 [P:43 4477 3044 [Q:44 4276 0376 [R:45 4477 3146 [S:46 5121 4651 [T:47 4040 4077 [U:50 0177 7701 [V:51 0176 7402 [W:52 0677 7701 [X:53 1463 6314 [Y:54 0770 7007 [Z:55 4543 6151 [META [56 [CASE EOL 2356 1322 [57 [CASE DEL 1200 p-137 [:60 [CASE SPACE 4020 2055 [=:61 [CASE i 1212 1212 [u:62 [CASE p 0107 0107 [,:63 [CASE - 0500 0006 [.:64 [CASE + 0001 0000 [$:65 [CASE | 4577 7745 [[:66 [CASE # 4177 0000 [_:67 [CASE CASE 0101 0101 [":70 [CASE A LDHi 3 LDAi [":71 [CASE B 14 JMP p-277 [<:72 [CASE C 2410 0042 [>:73 [CASE D 4200 1024 []:74 [CASE E 0000 7741 [*:75 [CASE F 2050 0050 [::76 [CASE G [UNDEFINED:77 [Q+AR T [ [ ENTRY TO FILL ANSWER BUF #QNF LDAi STHi 3 STC A39O+32 LMB 1 JMP 0 [ [ USE THE EXISTING ANSWERS #QNU LDAi LDHi 3 STC A39O+32 LMB 1 JMP 0 [ [ SAVED AS D2B2DT [ [ ...BTOD ... [SIGNED 12-BIT BINARY TO DECIMAL CONVERSION [ RIGHT JUSTIFIED [ ENTER WITH BINARY NUMBER IN ACCUMULATOR VIA A JMP 9J [ DECIMAL KBD CODES STORED VIA IR 1 [ LEADING ZEROES SUPPRESSED [ ALSO USES IR 2,3 BTOD=JMP p #A28J SCRi1 [SIGN TO LINK BIT ROLi1 APOi [MAKE NEGATIVE COM STC A28N [SAVE IT ADD 0 [SAVE RETURN STC A28P LDAi [LOAD POSSIBLE SIGNS #A28K "- " LZE [GET CORRECT SIGNS ROR 6 STHi1 [AND STORE IT SETi2 [SET ADDEND POINTER A28Q-1 JMP A28M [CONVERT A DIGIT AZE [IS IT A LEADING ZERO JMP A28L [NO ADD A28K [YES: MOVE THE SIGN RIGHT ONE PLACE STH 1 [STORE A SPACE OVER THE SIGN LZE [GET THE CORRECT SIGN ROR 6 STHi1 [AND STORE IT JMP p-10 [ THEN CONTINUE CONVERTING #A28L STHi1 [STORE A DIGIT JMP A28M [CONVERT NEXT DIGITI JMP A28L [AND STORE IT [LITTLE SUBROUTINE TO DO THE CONVERSION #A28M LDA [SAVE RETURN 0 STC A28P-2 SETi3 [SET DIGIT COUNTER 1777 XSKi2 [MOVE ADDEND POINTER ADD A28N [LOAD THE VALUE XSKi3 [BUMP COUNTER STAi [SAVE REMAINING PART #A28N ** ADA 2 [TRIAL ADD APO [STILL NEGATIVE JMP p-5 [YES: COUNT AND ADD AGAIN LDA [NO: GET THE COUNTER 3 SROi [LAST DIGIT 3567 JMP ** [NO: BACK TO THE SUBROUTINE STHi1 [YES: STORE IT #A28P JMP ** [ AND RETURN TO CALLING PGM [ADDEND TABLE #A28Q 1750 144 12 1 T [ ... TELT ... [INDEX REG. [16 AND 17 TELT=JMP p #A27T SET 17 0 [FORM RETURN ROL 4 [CODE TEST APO JMP A26T-1 [TELETYPE CODE ROR 4 [LINC CODE SAE i 12 [EOL TEST JMP p+4 [NOT EOL LDA i 5215 [MAKE CR LF JMP A26T [OUTPUT ADA i -11 [NUMBER TEST APO i JMP p+4 [NOT A NUMBER ADA i [CONVERT NUMBER 271 JMP A26T [OUTPUT ADA i -12 [1ST SPECIAL [CHARACTER TEST APO i JMP p+6 [NOT SPECIAL [CHAR. TYPE 1 ADA i A25T+10 STC 16 [CONVRT SPECIAL [CHARACTERS ADA 16 JMP A26T [OUTPUT ADA i -32 [LETTER TEST APO i JMP A27T+27 [CONVRT SPECIAL [CHAR. TYPE II ADA i [CONVRT LETTER 332 JMP A26T [OUTPUT ROR 4 #A26T APO i [CR LF--HUH JMPp+4 514 LDA i 212 514 [ PRNT CHAR. JMP 17 [RETURN CRLF=JMP p #A24T SET 17 0 LDA i 5215 JMP A26T+2 #A25T 207 [BELL FOR DEL 240 [SPACE 246 [AMPERSAND FOR [ i 247 [APOSTROPHE [FOR p 255 [- 253 [+ 257 [SLASH 243 [ TAG SYMBOL 0 [NO OUTPUT FOR [CASE 275 [= 300 [AT SIGN FOR u 254 [COMMA 256 [PERIOD 244 [DOLLAR SIGN [FOR ORIGN SIGN 333 [COMMENT SYMBOL T [ ... DTOB ... [ [DECIMAL-TO-SINGLE PRECISION BINARY [ CONVERTS FROM -4095 TO +4095 [ [CALLING SEQUENCE [ JMP 9A [ ERROR RETURN [ NORMAL RETURN [ [IR1 MUST BE SET JUST BEFORE THE FIRST CH [ DECBIN 1 LOOKS AT 5 CHARACTERS [ USES IR1-4 DTOB=JMP p #A29A SET 3 [SAVE RETURN 0 SETi4 [CH COUNTER #A29H -4 [MOD L. MATIN SETi2 [MINUS FLAG 1777 CLR #A29B STC A29C [SAVE RESULT XSKi4 [ENOUGH CHS DONE JMP A29D [NO LDAi3 [YES: INDEX RETURN LDAi [LOAD RESULT #A29C ** XSK 2 [MINUS COM [YES JMP 3 [RETURN #A29D LDHi1 [LOAD NEXT CH SHDi [SPACE " " JMP A29B+1 [ IGNORE SHDi [PLUS "+ " JMP A29B+1 [ IGNORE SHDi [MINUS "- " JMP A29G [ SET FLAG COM [NONE OF THOSE ADD A29F APO [IS IT A LEGAL DIGIT JMP 3 [NO: ERROR RETURN LDH 1 [YES: SAVE IT STC A29E ADD A29C MUL [ X # BASE 4|A29F SCR 1 AZE [OVERFLOW JMP 3 [YES: ERROR RETURN ZTA [NO: RETRIEVE IT ROL 1 ZZZ ADD A29F+1 [+1 LAMi #A29E ** LZE [OVERFLOW JMP 3 [YES: ERROR RETURN JMP A29B [NO: CONTINUE #A29F 12 [NUMBER BASE 1 #A29G XSKi2 [SET MINUS FLAG JMP A29B+1