Digital PDFs
Documents
Guest
Register
Log In
DEC-12-ESYB-D
2000
32 pages
Original
0.8MB
view
download
Document:
Convert
Order Number:
DEC-12-ESYB-D
Revision:
000
Pages:
32
Original Filename:
http://bitsavers.org/pdf/dec/pdp12/lap6-dial/DEC-12-ESYB-D_CONVERT.pdf
OCR Text
PDP-12 mamaomo LIBRARY CONVERT A PROGRAM TO TRANSLATE LAP6 or lAP6-3L SOURCE TO DIAL Order DEC-12-ESVB-D from Program Library, Digital Equipment Corporation, Maynard, Mass. 01754 Direct comments concerning this document to: Software Information Service Digital Equipment Corporation Maynard, Massachusetts 01754 Price $1.00 ABSTRACT Program CONVERT will perform the major tasks in translating a _LAP6 or LAP6-3L source stored on a LINC tape to a suitable source for utilization by the DIAL system on the PDP-12. REQUIREMENTS 1. The minimum configuration is the PDP-12A. 2. A DIAL system tape containing CONVERT on Unit 0. 3. A LAP6 tape on Unit 1 containing the source program to be translated. OPERATING PROCEDURE 1. Load a DIAL system tape containing the CONVERT program onto Unit 0. 2. Load the LAP6 tape on Unit 1 . 3. Call in DIAL. 4. Clear the DIAL work area with the CL monitor command. 5. Call PROGRAM CONVERT by typing: - LO CONVERT ,0 ) 6. Complete the questionnaire seen on the scope by inserting the starting Block Number of the program to be converted. Press the LINEFEED Key upon completion. .{See QANDA documentation for more detai Is.) 7. Upon completion of the program, CONVERT rewinds the LAP6 tape on Unit 1, types out a message warning the user to remove the LAP tape from Unit l and to type: -AP 370,0 ) 8• The user now has two alternative procedures: Choice 1 - if more than one program wi II be translated, leave the LAP tape on Unit 1, type: - SP name,O) and file your source program ("name" is an eight-character name selected by the user). Then issue a: - LO CONVERT ,0 ~ to translate another source program. Choice 2 - Replace the LAP tape on Unit 1 with a DIAL system tape, check and edit program, then t.ype: -LI) -As; -PS) to assemble and obtain a listing to assemble only to obtain a quick source listing without assembling. WARNING If you issue a LI or AS command without removing your LAP tape, your assembled binary wi II overlay fi Ied programs on the LAP tape . PROGRAM RESULTS l. Converts LAP6 packed LINC code source into packed ASCII source code. (See Table l .) 2. Removes the LAP tag indicator and reverses the tag to that acceptable by DIAL (i.e., 11#2C'' becomes "C2,TAB 11 ) and follows the user tag with a comma and a TAB. 3. Initiates each line with a TAB unless the line begins with a tag or comment. 4. Inserts a space after all three Jetter combinations except those in a comment or text environment . 5. Changes each 11 i 11 to an 11 1 ....... 11 , each nu 11 to an 11 U ....... 11 , and each ·11p 11 to a period , II II 6. Reverses all number-letter combinations to letter-number combinations indicating valid references to tags . 7. Inserts an *20) into the new source along with a warning message. 8. Inserts equalities for old mnemonics that can be legally used on the 12. These will be at the start of the new program • 9. Changes ALT MODE/A to TEXT..__. >and ALT MODE/B to >. (See restriction for this text system when used with the new QANDA.) 10. The LAP terminator code 77 changes to code 00 ($) indicating a source terminator for DIAL source programs. 11. Ignores the first two words of a LAP6 source (2065, 5712). 12. Replaces the square left bracket with a slash to indicate comments in the DIAL system. 13. Replaces the vertical bar with a backslash to indicate the 1000 x + y operator. 8 LIMITATIONS The CONVERT program only accomplishes the maior efforts involved in translation. The user must accept responsibility for solutions to overcome situations caused by a new monitor system (DIAL) and a new computer (PDP-12). These situations are outlined below: 1. KBD - DIAL will issue a US error and the user must insert .the correct IOB's or a PDP-8 mode routine. (Also see Limitation 10 .) 2. OPR.n - DIAL will issue a US error. The user must determine how the LINC-8 PROGOFOP was modified to handle particular OPR situations. 3. TAPE READ/WRITE - The DIAL index format file locations, QANDA size and location, working area, etc. differ from LAP6and LAP6-3L. 2 4. EXC - Use of the EXC mnemonic wiJ I cause a US error. The user may desire to insert his PDP-8 mode program directly Into the progrqm. at this point. 5. SAM n - The A-D sampling instruction utilizes one additional bit in the PDP-12. 6. PDP - DIAL wi 11 create an instruction (002) which changes the processor from LINC tv\ode to PDP-8 Mode. The' LINC-8 PDP mnemonic (0513) also transferred to PDP-8 mode, but to the location in the LINC accumulotor. 7. REARRANGED INSTRUCTION ELEMENTS - LAP6 allowed rearranged field elements (seldom used) which will confuse the translator and will not be accepted by DIAL. DIAL expects (if present) a tag, mnemonic , operand and comment: Example: 11 i6LDA 11 becomes 11 TABI L6DA 11 • 8. QANDA - Check all "JMP 1000 11 , 11 RDC 2403 11 , and 11 RDE 2403" instructions as these may indicate. use of the LINC-8 Q+A Subroutine. The new QANDA Subroutine is contained in two tape blocks and its location may not be Block 403. 9. TEXT META - Check all data between brackets after translation. These indicate a text mode probably used with the LINC-8 Q+A buffer. The new QANDA has a separate text and answer string (see the QANDA documentation for more detai Is). 10. TELETYPE .INPUT - The old Q+A and KBD inputs were in LINC code. The new QANDA and most input routines utilize ASCII code. Thus, the routines following an input routine wi II require changing. (Example - a l is 01 in LINC code, 261 in ASCII,. and 61 in packed ASCII.) The new QANDA left justifies packed ASCII in an answer buffer, while the Q+A right-justified packed LINC code in the text buffer. 11. ZTA - The retrieval of the Block Number from the Z register after a LAP LO command does not apply to the MQ register in the DIAL system. Table l Character Changes LAP DIAL Code Character Character Code 00 01 02 03 04 05 06 07 10 11 12 13 14 15 0 l 2 3 4 5 6 7 8 9 0 l 2 3 4 5 6 7 8 9 60 61 62 63 64 65 66 67 70 71 ) ) 43 Rubout Space Rubout Space I None 40 3 11 Table 1 (Cont) CharaC:ter Changes LAP DIAL Code Character 16 17 20 21 22 23 24 25 26 27 30 31 32 33 34 35 36 37 40 41 42 p Character 56 55 + + Vert Bar # \ z ALT A ALT A B B 53 34 32 none 01 02 c c 03 D E F D E F G H G H I I J 04 05 06 07 10 11 12 13 14 15 16 17 20 21 22 23 24 25 26 27 30 31 32 J K L M K L M N N 43 0 p 0 p 44 Q Q 45 R R 46 s s 47 50 51 52 53 54 T T u v u v w x w x y y 55 z 56 57 60 61 62 z LINEFEED LINEFEED ? ? illegal ? = = u , u 63 64 65 66 67 70 71 Code 8 II 77 77 * 75 25 54 56 52 ? 57 77 I [ 37 See Item 9 of Program Resu Its > II 4 76 Table 1 (Cont) Character Changes LAP DIAL Character Code Character 72 < < ] ] * * > 73 74 75 76 77 100 > i I lega I (eof) i !legal eof TAB INTERNAL MACRO-FLOW CHART 74 76 35 52 72 00 t 47 36 $ 44 % 45 AC =Reference to Accumulator IX10 =Reference to the Auto-Index Register used as the input half-word pointer. IXl 1 = Reference to the Auto-Index Register used as the output buffer half-word pointer. CR =Carriage Return HWD = Routine that reads in the next character {half-word) from the input buffer and, if necessary, refi Ifs the input buffer. Each buffer refi 11 reads in two blocks to eliminate character look-ahead problems. LINCD = Routine that stores a converted character into the output buffer. When filled the output buffer is written into the next block of the DIAL working area . WA =Working Area on Unit 0. SWAP - Routine that reverses half-word characters to create a legal DIAL tag. 5 INITIALIZE JMP LINCD 100-AC Flow Chart { Part 1 Of 4) 6 JMP L INCD Flow Chart ( Part 2 of 4 ) 7 JMP L INCD JMP HWD JMP LINCD JMP HWD JMP L INCD JMP SPACE STORE RETUR~ STORE RETURN STORE RETURN 63-AC 14-AC CHAR-C(SWAPll JMP LINCO JMP LINCO JMP HWO RETURN RETURN CHAR-C(SWAP2l ~ 47-AC I C(SWAP2 l - AC 47-AC JMP LINCO JMP LINCO JMP LINCO C(SWAP 1 l - A c 30-AC JMP SPACE JMP LINCO JMP LINCO 73-AC RETURN 53-AC JMP L INCO JMP LINCO JMP HWO JMP LINCD Flow Chart ( Part 3 of 4 ) 8 STORE RETURN C(ACJ-OPWD SAVE RETURN RESET 1X10 C(NBNINI = C(NBNINl+1 CHAR-AC RETURN C (NBN INll = C(NBNINI+ 1001 STORE IN OUTPUT BUFFER RETURN RESET 1 X11 RE-INITIALIZE FOR DIAL Flow Chart { Part 4 of 4 } 9 *20 /PROGRAM CONVERT /PDP•12 PROGRAM /INPUT: PACKED LINC SOURCE /FILED IN LAP6,LAP6A"3L,OR /LAP6~3L SYSTEM ON UNIT 1 /OUTPUT: PACKED ASCII SOURCE /IN WA OF DIAL ON UNIT 0 0QJ(c'J0 001"1 0002 0003 0004 0005 0006 13007 0010 0011 0012 0013 0014 0015 01ZJ16 0016 0016 0016 012117 0017 0017 0020 0020 0020 0020 0020 0020 0020 0020 0020 0020 I fl02121 0021 0022 eJ024 0025 0026 0027 6071 0025 0066 6144 7060 0603 1716 2605 rtlr2l30 0031 2224 4310 fZJl2l23 TEX1, TEXT >FCONVERT H ffZJ32 412143 0033 1014 fcH:l3 4 0120 012135 6640 003'6 2317 0037 2522 0040 0305 ···012141 412120 0042 2217 0043 0722 HLAP6 SOURCE PROGRAM 0020 ern21 02121 0021 0021 012121 01ll21 H21 211Zl21 0'1J21 IZH/l21 01ZJ21 0022 0022 012122 0022 0022 0022 0022 0022 0022 0il23 0rtl24 0025 0026 JMP QAINIT TEX1 ANS1 JMP QARF'SH JMP SETUP 0044 0045 0046 12112147 12112150 121051 121052 012153 0054 012155 0115 4311i:l 2324 0122 2423 4011 1640 0214 1703 1374 0056 0057 0060 0061 fll062 fll063 0064 0065 6343 1017 1640 2516 1124 4017 1605 3400 0066 0067 0fll70 7400 0000 3400 HON UNIT ONE\> 7400 ANS1, 0000 3400 /PUT QANA HERE 1211c'.171 0072 0073 f1H'l74 0075 1020 0002 QAINIT, LOA HSTARTS IN BLOCK<3 H27 H30 H31 H32 01a33 0034 2 2000 1060 01c'.100 /Q+A ROUTINE FOR POP•12 /SAVE JMP RETURN QAB, ADD 0 STA I 0 I JMP +3 0035 fUJ36 0037 0040 0041 0042 0043 0044 0045 0046 0047 0050 0051 0052 0053 0054 0055 0056 0057 B060 0061 0062 0063 0064 0065 0066 0067 "070 0071 0072 007 3 0074 lt.le75 0076 0077 0100 0101 0102 0UJ3 0Ul4 0105 0106 0107 0110 0111 _0112 0113 0114 0115 0116 0117 0120 0121 0122 0123 0124 0125 0126 0127 0130 0131 0132 0133 ADD QAL•3 STC 1 0r£l76 0077 0100 0UJ1 0ui-2 0103 0104 0105 0106 121107 0110 0111 2271 4001 1001 2355 4150 1021 4143 4006 0043 121143 0044 0150 0112 0113 0114 0115 0116 0117 0120 0121 0122 0123 0124 0125 0041 0004 6361 0016 1324 6322 6126 6141 1460 0043 6117 6112 0126 0127 0130 0131 0132 0133 0134 0135 0136 0137 0140 1343 1324 1120 7717 0017 4006 1363 0226 6134 1323 6117 0141 0142 0143 1343 '1064 0000 QAE, 0144 0145 0146 0147 0150 0151 0152 0153 0154 0155 0156 01!:>7 0160 0161 0162 0163 0164 0165 0166 0167 0170 1020 0137 4204 li0063 21000 0045 0143 0041 0003 6361 6165 1323 1020 1560 4174 2603 6172 1323 1020 1620 4174 QARF'SH, LOA LOA 1 ADO QAQ•1 STC QAG•3 LOA I 1 STC QARF'SH•1 QACA, /PTR TO F'IRST PARAH /GET F'IRST PARAH /PTR TO HALF'WORD•1 STC 6 SET 3 QARF"SH-1 SET 4 QAG•3 /XR4 TO PTR TO QUESTIONS /TO HERE IF' F'IRST TIME THROUGH OR rOLLOWING A CR SET 1 4 QA01 JMP QAT NOP LOH I 4 JMP QAO JMP ,•6 JMP QAE SAE I 43 JMP QAO JMP QACA•4 STH 3 LOH I ~ ADA I IF' /H, BUMP PTA IF M OR F' 174 /34 /CR? /NO /INITIALilE ANSWER BU'R 174 TO ANSWERS /NEXT HALF'WORD -60 COM STC 6 STH I 3 XSK I 6 JMP , •2 LOH I 3 JMP QAD STH 3 SET I 4 /0 IN AC /BUMP PTR TO ANSWERS /ANSWER BUF'R IS INITIATED /XR4 TO PTA TO LAST TYPED CHAR IN·ANSWER BU'R 0 /••••RE•ENTER HERE TO REFRESH•••• /INITIAL Y POS!!ION 137 STC QAH-1 SET I 3 0 QAG1 SET 5 QARF'SH•l SET 1 /XR3 TO PTA TO HALF"WORD QUESTIONS•1 /XR5 TO PTR TO LAST DISPLAYED CHAR IN ANSWER BUF'R 3 JMP QAT JMP ,+7 IF LOH I 3 LOA I /H, BUMP PTR /NEITHER, ASSUME HALF SilE BCL I STC QAM+2 ADD QAW JMP QAM /SET INSTR TO CLEAR FF' FOR HALF' SilE /NOP IN AC LOH I 3 /BUMP PTR LOA I BSE I STC QAM+2 /SET INSTR TO SET rr roR F"ULL SllE 0134 0171 2604 0135 fli172 4336 0136 0173 f2lfli24 U37 121174 0175 0140 0141 0142 0143 U44 0145 0146 0147 0150 0151 "'152 0153 0154 0155 0156 0176 0177 1'12f210 121201 0202 0203 0204 020:> 0206 0207 12210 1620 0200 lll004 0061 0100 1020 ADM /Y COORDINATE 0000 1.S23 0 6372 6227 0162 0217 0220 0221 1520 121000 6607 "'16 6 0222 1325 6323 6205 02 23 0224 0225 0226 0227 "1174 0175 U76 0177 0230 0231 0232 0233 (II 20fll 0234 0201 0202 . 021113 02.55 0236 0237 0204 0240 0206 021215 0206 0207 0241 0242 0243 0244 6144 6216 6612 0470 6075 0062 0503 1402 6402 1422 6314 1422 6266 1422 0245 6376 0246 1422 0213 121247 21214 0250 6112) 6 1422 6144 l422 6266 21215 1212~1 0216 0217 0252 0220 0221 0222 21223 0224 0225 QJ226 21227 21230 0231 0232 "1253 0254 0255 0256 0257 0260 0261 0262 0263 0264 0265 0266 1422 6144 4263 6322 6354 6354 1020 0000 1.544 6144 1.504 LOH I 3 JMP QA0+1 JMP QAi! JMP QAJ SHD I 4300 QA I I 6205 l1J172 0173 0210 0211 0212 QAH, 6323 0215 0167 0170 0171 /AC TO CONTROL REGISTER /XR1 TO INITIAL X POSITION 1160 0216 0163 U64 0165 /EAD CONTROL REGISTER /THIS.INSTR CHANGES, EITHER BSE & OR BCL & /Y COORDINATE MULTIPLE 0160 0214 /ADD 9U IN AC LOA -40 0161 "'15 7 ADD QAW+1 STC QAP+3 MSC I 4 BSE I 200 MSC 4 SET I 1 100 7737 1420 4300 6153 6333 6205 6333 0211 0212 021.s QAM, QAJ, /74 BUMP PTR TO NEXT CHAR, PUT 40 IN AC /34 /NE IT HER JMP OAG /CR, MOVE X AND Y COORDINATE JMP OAP /lSPLAY CHAR JMP OAH /PICK UP NEXT CHAR JMP OAP /TO HERE IF DISPLAYING ANSWER BUtR SRO I /SWITCH TO DISPLAY CURSOR, EITHER 0000 OR 7777 0 /IFXR4zXR5, THEN SWITCHz7777 JMP QAF /QUESTION MODE LDH I 5 JMP QAO+ 1 JMP OAH 174 /34 JMP OAH JMP QAI-4 /NEITHER, DISPLAY IT JMP GETKBO /TO HERE IF' DISPLAYED BUFFER AtE I JMP OAB /NOTHING TYPED , EXIT SET I 2 QAY SHD 2 /LF'? JMP OAK+4 /YES, EXIT SHD I 2 /CR? JMP OAN XSK 6 /IS THERE AN ANSWER F'IELD? JMP OARF'SH SHD I 2 /<? JMP QAL SHO I 2 I>? JMP OAK SHD I 2 /ALT? JMP QACA SHD I 2 /BACK SL.ASH? JMP QARFSH /IGNORE SHD I 2 /RUBOUT? JMP OAL /IGNORE SHD I 2 /TAB? JMP QARFSH II GNORE STC ,+5 I ACCEPTABLE CHAR JMP OAO /TEST f':IEXT CHAR JMP QAQ /74 BACK PTR UP BY 1 JMP OAQ /34 ' LOA I /OK, STORE IT 0 STH 4 JMP QA RF SH LOH 4 /REDISPLAY /TO HERE IF' RUBBOUT OR < 0233 0234 0235 11J236 0237 11J240 0241 11J242 11J243 0244 11J245 lr'246 0247 11J251ll flJ251 111252 ... i25J U54 .. flJ255 .• llJ256 ... llJ257 0261/J llJ261 0262 0263 0264 eJ265 llJ266 0267 1"270 0271 0272 11J273 11J274 0275 B276 · 0277 j1'jl1J0 -~~:,301 !l.1302 0303 . "0311J4 ··1305 · ·e3flJ6 031i'17 ~-~ f.IJ u f/1~11 0312 0313 1314 lr'315 0316 1317 0320 0321 f1JJ22 llJ323 0324 11J325 1326 1327 1330 0331 JMP QAO+l JMP QARF'SH 0267 121270 0271 0272 0273 0274 0275 0276 0277 0300 0301 031212 0303 031214 0305 031216 0307 0310 0311 0312 0313 6;523 6144 1175 131212 1460 012137 6;554 0045 0004 0043 0004 6304 1325 1323 6323 fll011 1345 fll450 6303 6354 JMP ,+2 LOH I 5 LOH I 3 JMP QAO•l NOP CLR STH 5 AtE JMP ,-7 JMP QAQ 0314 0315 0316 0317 0320 121321 0206 6402 6322 6144 6142 6316 XSK 6 JMP QAK•4 JMP QAO JMP QARF'SH JMP QAE+l JMP QAN•2 0322 0323 121324 0325 0326 0327 '1133121 0331 0332 1324 1420 740121 600121 1460 0034 0220 022121 600fll QAO, 121333 0241 2!:>21 4002 2577 2577 2001 401211 212105 0017 2004 0450 012111 4220 2204 1742 1762 6000 1020 3777 1140 0004 QAP, 12J334 0335 0336 0337 0340 0341 0342 0343 12l344 0345 0346 0347 0350 0351 0352 0353 0354 0355 0356 121357 0360 0361 -612102 LOH 2 SAE I /TEST THE CHAR /RUBOUT? 37 JMP QAQ SET 5 /NO, BACK PTR UP BY 1 4 SET 3 4 0016 LOH 4 SHO l 7400 JMP 0 SAE I /BUMP PTR /GET NEXT CHAR /lf' 74 OR 34, REPLACE CURRENT CHAR WITH 0 /WAS IT 74 OR 34? /NO, CONTINUE /BACK PTR UP BY 1 /TO HERE IF' CR /EXIT ROUTINE IF NO ANSWER rIELD /74 MOVE PTR TO NEXT QUESTION FIELD /34 END OF BUFR, MOVE PTR TO FIRST QUESTION FIELD /SIR I I I +1 74 BEGIN FIELD +2 34 END BUFR +3 NEITHER 74 NOR 34 34 XSK I 0 XSK I 0 JMP 0 ROL 1 ADD QAX•4 STC 2 ADO QAU ADD QAU ADD 1 STC 1 ADD 5 /S/R TO OISP LINC CHAR IN AC /MULT BY 2 fOR INDEX TO ADDRESS OF TABLE /ADDRESS OF CHAR TO OISP IN XR2 /THIS INSTR CHANGES, EITHER OP OR ADO 9U /ADD 4 TO XR1 TO SPACE CHAR /GET ADDRESS OF ANSWER BUFR COM QAQ, ADD 4 AtE CLR STC QAI•2 ADD QAH•1 DSC 2 DSC I 2 JMP 0 LOA I /SWITCH•S OR 7111 /Y COORDINATE IN AC /DISPLAY CHAR /BACK UP PTR BY 1 -4012112l ADM 4 6144 1;s21 114 IGNORE JMP QARFSH QAT, /REDISPLAY I LOH I 1 /SIR 1(1332 1(1333 0334 eJ335 121336 033? 0340 121341 0342 121343 0344 121345 0346 0347 12135121 121351 121352 121353 0354 121355 0356 121357 0360 0361 0362 0363 0364 0365 0366 0367 037121 121371 "'372 121373 0374 121375 121376 121377 1214121121 121401 121402 121403' 12141/J4 121405 121406 041217 QJ4UI QJ411 121412 121413 121414 121415 121416 QJ417 QJ420 121421 121422 0423 121424 QJ425 121426 0427 121430 0362 0363 121364 0365 0366 121367 0370 121371 1420 12161(1121 6121121121 146121 0010 022121 12122121 601/JeJ 121372 0373 0374 0375 1323 102121 004121 6216 QAl, 3 LOH LOA 40 JMP QAI-4 0376 0377 0400 121401 1324 047121 6354 6515 QAK, LOH AtE JMP JMP 0402 12141213 0404 0405 121406 102121 12101U 1140 111075 6075 12141217 121410 121411 0412 121413 0414 121415 121416 0417 121420 0421 0422 0423 0424 0425 0426 0427 043121 121431 121432 121433 0434 0435 121436 121437 044QJ 121441 0442 0443 QJ444 121445 0446 0447 045121 0451 0452 0453 121454 011211 0U1 4477 7744 5177 2651 4136 2241 4177 3641 4577 4145 4477 412144 4136 2645 112177 771121 7741 012141 4142 412176 1"77 4324 QJ177 121301 312177 713QJ SHD I 1216121121 JMP 121 SAE I 1121 XSK I 121 XSK I 121 JMP 121 I I I +1 F' +2 H +3 NEITHER I ;rnn 771216 4177 7741 4477 3044 4276 0376 4477 3146 I 4 I QAQ QAX /TO HERE IF > /IS CURRENT CHAR BL.ANK? /YES, IGNORE /HOVE DOT F'ORWARO /TO HERE TO EXIT WITH SKIP LOA 1 ADM QAB JMP QAB QAV, I CH AR AC TE R PA TT ER NS 01'111 li'J101 4471 7744 5177 2651 4136 22-H 4177 3641 4577 4145 4477 412144 4136 2645 1077 IKBD 0, ILLEGAL, USED AS MARKER 11 IA /218 /31C /410 /51E /61F' 171G /11211H 771121 7741 0QJ41 4142 412176 112177 4324 "177 031211 312177 7730 3QJ77 77QJ6 4177 7141 4477 3044 4276 121376 4477 3146 /111 I /121J /131K /141L /151M /16lN /1710 /2121 l p /211Q /221R 0431 0432 0433 04H 0435 0436 0437 0440 0441 0442 0443 0444 0445 0446 0447 0450 0451 0452 0453 0454 0455 0456 0457 0460 0461 0462 0463 0464 121465 121466 0467 0470 0471 0472 0473 0474 0475 0476 0477 051210 0501 0502 0503 121504 0505 05(()6 0507 0510 0511 0512 0513 0514 0515 0516 0517 0520 0521 0522 0523 0524 0525 0526 0527 /23 IS 5121 4651 4040 4077 0177 0455 0456 0457 0460 0461 0462 0463 0464 0465 0466 0467 0470 0471 0472 0473 0474 0475 0476 5121 4651 4040 4077 0177 7701 0176 7402 0677 7701 1463 6314 0770 7fUJ7 4543 6151 4117 fH00 0477 0500 0501 0502 0000 0000 7741 0503 0504 0505 0506 0507 0510 0511 0512 0513 0514 4543 7476 3634 3747 0000 001210 7500 0000 7000 0070 QAY1 0515 0516 0517 0520 0521 0522 0523 0524 6323 6354 6354 6144 0407 0000 5166 0526 QAX, 0525 0526 0527 0530 0531 0532 0533 0534 0535 0536 0537 0540 0541 0542 0543 0544 0545 0546 0547 0000 0000 3600 0041 4100 0036 2050 0050 0404 121437 0500 0006 121404 0404 0001 001210 0601 4030 4536 /241T 1251U 7?81 /26lV 0176 741rJ2 0671 7701 1463 6314 0770 7007 454:S 615:1 4111 0000 /271W /30 tX /31 lY /32li /331/ /341BACKSLASH IGNORED ON INPUT /NOT USED 0 0 0000 7741 01/J 11.10 /NOT USED /351] 4543 /CODES 36lALT, 371RU80UT NOT DISl'LAYEO /l.f'1CR 7476 /(,) 3634 3747 /ALT, BACKSLASH /RUBOUT, TAB /401SPACE 0000 0000 750111 0000 7000 0070 /411X! 142:" /CODES 431, 441, 451Lr NOT DISPLAYED JMP QA0•1 JMP QAQ JMP QAQ JMP QARF'SH QAV 0 5166 0526 /CODE 47lTAB NOT DISPLAYED /NOT USED /NOT USED /50: ( 0 ((J 36121121 0041 4100 0036 2050 0050 0404 0437 0500 012106 0404 0404 0001 000111 0601 4030 4536 /NOT USED /461 & /51 t) /52t• /5:5:+ /54:, /551· /561, /57 :t /6'H0 0530 0531 0532 0533 111534 121535 0536 0537 0540 121541 0542 0543 0544 0545 0546 0547 0550 0551 0552 0553 0554 0555 0556 0557 0560 121561 0562 121563 121564 111565 0566 0567 0578 0571 0572 0573 0574 051' 0576 eJ571 QJ600 06"1 061112 0603 0604 0605 061lJ6 0607 06UJ 0611 0612 0613 0614 0615 0616 . ·__QJ617 S6211J 0621 0622 e623 0624 ltJ625 QJ626 12155121 121551 121552 0553 121554 0555 121556 121557 121560 121561 0562 0563 0564 0565 0566 121567 121570 121571 121572 0573 0574 121575 121576 3651 2101 121177 4523 2151 4122 2651 2414 121477 5172 0651 151216 4225 4443 612150 5126 2651 5122 3651 22121121 12112100 4 61211 00121121 121577 06121121 12161211 061212 121002 121121121121 1212 1212 QAU, 2 121 1212 1212 12161213 061214 061215 0606 12112116 2577 4020 2055 QAW, NOP 0607 0610 0611 1760 612100 6222 3651 2101 0177 4523 2151 4122 2651 2414 1214?7 5172 0651 1506 4225 4443 605121 5126 2651 5122 3651 2200 01210121 461111 012100 /61: 1 /6212 /63:3 /6414 /6515 /6616 /6717 17018 171S9 17211 173:1 /CODE 74:<NOT DISPLAYED /CONSTANT /NOT USED /751• ADO QAU 4020 2055 /CODE 761> NOT DISPLAYED /771? I QAf", DSC I 60rHI JMP QAI I ./ENO Q•A I I I I /KEYBOARD INPUT ROUTINE I LKRB• 6036 LTSF'• 6041 LTLS• ~046 I 121612 121613 0614 121615 0616 121617 0620 121621 11.1622 121623 121624 121625 121626 121627 U00 121000 4734 2001 4731 21211212 4733 4727 121415 61211210 121500 6036 U6QJ 001110 /POP•8 lOT KBD /TSF' 1t1.s GETKBO, LOA 0 STC EXIT+6 ADO 1 STC EXIT+3 ADO 2 STC EXIT+5 STC EXIT+1 KST JMP 0 /SAVE RETURN /SAVE XRS 1 ANO 2 /WAS SOMETHING TYPED? /NO I EX IT 108 TY, LKRB STA I f2l /GET TTV CHAR, Cl.EAR F'LAG /SAVE IT fll627 063fll 0631 0632 0633 0634 0635 0636 0637 0640 0641 0642 0643 0644 0645 0646 0647 0650 0651 0652 0653 0654 0655 0656 0657 0660 0661 0662 0663 0664 0665 0666 .. 0667 . 0670 0671 0672 .0673 0674 0675 0676 0677 0?111S 07"1 0702 0703 0704 0705 0706 0707 0710 0711 0712 0713 0714 0715 0116 0717 0720 0721 0722 0723 0724 0725 0630 0631 0632 0633 1120 7540 0451 6675 0634 0635 0636 0637 0640 0641 0642 0643 0644 0645 0646 0061 0745 0062 7770 1000 0627 1461 6645 6726 0222 6642 0647 0650 0651 0652 1120 7440 0451 6666 0653 0654 0655 0656 0657 0660 0661 0662 1461 6663 1020 0334 6735 1020 0037 6730 ADA I ·237 APO JMP CNTRL /BETWEEN 200 AND 23 7? /CONTROL CHAR. CHECK FOR CR,LF', TAB I SET I 1 CHARS-1 SET I 2 -7 LOA /NO TY SAE JMP JMP XSK JMP I 1 .•2 EXIT I 2 .-4 11 LLEGAL CHAR. DON /CHECKED THEM ALL? I ADA I ... 337 APO JMP LEGAL /BETWEEN 240 AND 337? /YES. LEGAL CHAR I SAE l 1 JMP ,•7 LOA I 334 JMP TPE LOA I 37 JMP EX1T+2 /NO, CHECK F'URTHER, /RUBOUT /ECHO BACKSLASH /LEGAL EXIT I 0663 0664 1461 6726 0665 6730 SAE I 1 JMP EXIT JMP EXIT+2 /IL.LEGAL /AL.T /EXIT, DON T ECHO I 0666 0667 0670 0671 0672 0673 0674 1000 f/J627 6735 2627 1560 7100 6730 0675 1216 76 0677 0700 0701 0702 0703 0704 0705 0706 0707 0710 0711 1460 7755 6712 1020 0043 4727 1020 0215 6735 1020 0212 6735 6726 0712 0713 0714 0715 0716 1460 7752 6720 1020 0045 LEGAL, LOA TY JMP TPE ADD TY BCL I /ECHO CHAR /STRIP IT TO 6 .. BIT 77fll0 JMP EXIT+2 /TO HERE IF CONTROL CHAR CNTRL, SAE I 7755 JMP CKLF' /CR LOA I 43 STC EXIT+1 LOA I 215 JMP TPE LOA I 212 JMP TPE JMP EXIT I CKLF, SAE I 7752 JMP .+4 LOA I 45 ILF T ECHO 0726 0727 0730 0731 0732 0733 0734. 0735 0736 0737 0740 0741 0742 0743 ~'1744 0745 0746 0747 0750 0751 0752 0753 0754 0755 0756 0757 0760 07 61 0162 0763 0764 0765 0766 0767 0770 0771 -- 0772 0773 0774 0775 0776 0777 101110 uru 1002 101fJ3 101114 101115 i 01116 111107 1010 111111 1012 111113 1014 1015 1016 1017 1020 1021 UJ22 UJ23 1024 12l717 0720 0721 0722 0723 0724 0725 6702 1460 7751 6726 JMP CNTRL+5 SAE 1 7751 JMP EX IT LOA I 47 JMP EXIT+2 10UJ 0047 6730 I 0726 0727 0730 121731 0732 0733 0734 U 20 0000 0061 0000 0062 0000 612lfi:'l0 0735 0736 0737 0740 0741 0742 0743 0744 0745 0746 0747 075111 0751 0752 0753 0754 0755 0756 0500 6046 1000 0000 4745 050121 6041 rll757 0760 0761 0762 rll763 0764 0765 0766 0767 0770 rll771 0772 077.3 0774 0775 0776 0777 100111 1001 1002 1003 1004 0rll60 rll061 0062 0063 0064 0065 0066 0067 0070 0071 0043 li'Jrll37 0040 0011 0056 0055 0053 0034 121032 012136 0001 0002 012103 0004 0005 0006 0007 001{() urns 1006 112107 1010 1011 1012 ~742 61111110 0243 0244 111245 0247 0300 0336 0337 0040 0036 EXIT, LOA 0 SET 0 /ILLEGAL /EXIT, DON /GET 6 .. BIT ASCII 1 2 0 JMP /SIR TO PRINT CCAC) TPE, IOB LTLS LOA 0 STC , +4 /RESTORE XRS SET /EXlR SIR GETKBD /PRINT IT /SAVE RETURN 108 LTSF' JMP , ·2 /WAIT F'OR F'LAG /EX IT JMP CHARS, 243 /HASH 244 /DOLLAR SIGN 245 /PER CENT 247 /APOSTROPHE 300 /AT SIGN 336 /UP ARROW 337 /BACK ARROW 40 /RUBOUT 36 I Al. T /END OF' S/R GETKBD CONV, 60 1111•9 61 62 63 64 65 66 67 70 71 43 /CR 37 /RO 40 /SPACE 11 /I , /P 56 ... 55 /+ 53 34 /VERT BAR 32 /LB 36 /CASE /A .. ~ 01 02 03 04 05 06 07 10 T ECHO 1025 1026 UJ27 1030 1031 UJ32 1033 Ul34 U35 1036 1037 1040 UJ41 1flJ 42 1043 UJ44 U45 1046 1047 1050 111151 Ul52 112153 1054 1055 Ul56 1057 UJ60 1061 1062 1063 1064 U65 1066 1067 1070 111l71 1072 12173 UJ74 UJ75 Ul76 12177 1100 1101 1102 1103 1104 1105 1Ul6 1107 1iu 1111 1112 1113 1114 1115 1116 1117 1120 1121 1122 1123 1013 1fil14 1015 1016 1017 112l 2 0 1021 1022 1023 1024 1025 1026 1027 HJ30 1031 H'J32 1033 1034 1035 1036 1037 1040 1041 Hl42 1043 1044 1045 1M6 10 4 7 1050 1051 1052 UJ53 112l 54 1055 1056 1057 1060 HJ61 112J6 2 1063 1064 106 5 1066 1067 1070 1071 1072 1073 1074 1075 1076 1077 1100 1101 1102 1103 1104 1105 1106 1107 11U'J 1111 0011 0012 0fZl13 0014 0015 0016 0017 002flJ 0021 0022 0023 0fll24 el025 0026 0027 0030 0031 0032 0045 0077 0077 0075 0025 0054 0056 0052 0057 0077 0074 0076 0074 0076 0035 0052 0072 0000 0047 1020 4000 H'J40 1152 10k'l0 0067 0450 7077 1300 4066 1560 0070 1140 1152 7145 1300 4067 0450 7121 1300 0067 1560 0070 1140 1152 1300 11 12 13 14 15 16 17 20 21 22 23 24 25 26 27 30 31 32 45 77 ll /LF /? 75 I• /U 25 54 /COMMA 56 /PERIOD 52 /ORIGIN 57 /LT BRAC TO SLASH /UNDERLINE?? 77 74 /QUOTES 76 /QUOTES /QUOTES 74 76 /QUOTES 35 /RT BRACKET 52 72 /COLON 00 47 /TAB SETUP, LOA I 400flJ STA BNIN LOA ANS 1+ 1 AlE JMP SETUP1 77 LOH ANS1+4000 BCL I 70 ADM BNIN JMP SETUP3 SETUP 1., LOH ANS1+4001 HE JMP SETUP2 LOH ANS1+1 BCL I 70 ADM BNIN LOH 1124 1125 1126 1127 1130 1131 1132 1133 1134 1135 1136 1137 1140 1141 1142 1143 1144 1145 1146 1147 1150 1151 1152 1153 1154 1155 1156 1157 1160 1161 1162 1163 1164 1165 1166 1167 ... 1170 1171 1172 1173 1174 1175 . 1176 1177 1200 1201 1202 1202 1203 1203 1203 1203 1203 121213 1203 121213 1203 1203 1204 1204 1204 1204 1204 1112 1113 1114 1115 1116 1117 1120 1121 1122 1123 1124 1125 1126 1127 1130 1131 1132 1133 1134 11.35 1136 1137 1140 1141 1142 1143 1144 1145 1146 1147 1150 412166 1560 0070 0243 1140 1151 1152 1153 1154 1155 1156 1157 1160 1161 1162 1163 1164 1165 1166 1167 07HJ 012100 0710 0000 0070 ;166 0071 6777 1330 0450 7165 7251 1371 7161 5262 1170 1171 1172 1173 1174 1175 1176 1177 1200 6043 5724 1011 2340 2022 1707 2201 1540 0417 1201 1202 1203 1204 1205 0523 4357 1617 2440 2422 1152 7145 1560 0070 1140 1152 1300 0[{)67 1560 0(2:70 0243 114121 1152 1300 4066 156(2) 007 0 0246 1140 1152 1040 1526 1120 1001 1040 1154 ANS1+4000 BCL I 70 ROL 3 ADM BNIN JMP SETUP3 SETUP2, BCL 1 70 ADM BNIN LOH ANS1+1 BCL I 70 ROL 3 ADM BNIN LOH ANS1+4000 BCL I 70 ROL 6 ADM BNIN STA NBNIN SE TUP3, AD A I 1001 STA BNIN1 /READ INITIAL BLOCKS IN OVRTEX, RDC U /20Q.10-2377 BNIN1 0 RDC U BNINl, Ill /24eJ0·27~7 SET I 10 4\INIT·l SET I 11 /Q6 S3eJ00·3377 6777 LOH I 10 HE /NULL? JMP ,+2 JMP OVRIN /ENO STH I 11 JMP ,~5 I NIT, TEXT >0 20 /THIS PROGRAM DOES 1204 1204 1204 1204 1204 1204 1205 1205 1205 1205 1205 1205 1205 1U6 1206 1206 1206 121?16 1206 12f/J6 1206 1206 1206 1207 1201 1207 120? 12U 1210 1210 1210 1210 1211 1211 1211 1211 1211 1211 1212 1212 1212 1213 1214 1215 1216 1217 1220 1221 1222 1223 1224 1225 1226 1227 1230 1231 1232 1233 1234 1235 1236 1237 1240 1206 1207 12 U 1211 1212 0116 2314 0124 1213 1214 1215 1216 1217 1220 1443 5723 1124 2501 2411 1116 1221 1222 1223 1224 1225 1226 1227 1230 1231 2356 4357 IZJ3HJ 0503 1340 1411 2324 1116 0741 1232 1233 1234 4143 3224 0175 1235 1236 1237 1240 6543 1415 0275 6066 1241 1242 1243 1244 1245 6060 4325 1502 7560 6664 1246 1247 6043 4000 1250 1251 1252 1253 1254 1255 1256 1257 1260 1261 1262 0000 0070 6001 1020 6370 1040 1601 7476 1460 0066 1263 1264 1265 1460 0012 7306 1266 1267 1270 1271 1272 1273 7570 0052 0010 1332 1460 0066 0~40 0114 /NOT TRANSLATE ALL /SITUATIONS, /CHECK LISTING!l HA=5 LMB•0600 UM8•0640 7311 > 0 SET I UI 4\2001 LOA I 6370 STA TPOUT START, JMP HWO SAE I 66 JMP TXMETA /COMMENT MOOE COMMT, SAE I 12 JMP MOCT /ENO OF" COMMENT MORE, JMP LlNCO SET 12 10 LOH 12 SAE 66 OVRIN, 1241 1242 1243 1244 1245 1246 1247 1250 1251 1252 1253 1254 1255 1256 1257 1260 1261 1262 1263 1264 1265 1266 1267 1270 1271 1272 1273 12 74 1275 1276 1277 13 rll0 1301 1302 131ZJ3 131114 131ZJ5 1306 1307 1310 1311 1312 1313 1314 1315 1316 1317 1320 1321 1322 1323 1324 1325 1326 1327 1330 1331 1332 1333 1334 1335 1336 i337 1274 1275 1276 1277 131210 1301 131212 1303 1304 1305 7276 7257 146121 121022 7302 7257 102121 010121 7!:>7121 7257 1306 1307 1310 757121 7476 7263 1311 1312 1313 1314 1315 1316 1317 1320 1321 1322 1323 1324 13 25 1326 1327 1330 1331 1332 1333 1334 1335 1336 1337 12112170 7342 1020 121047 7570 1020 0030 7570 1020 0053 7570 1020 0047 7570 7!:>32 1020 0071 7570 7476 1460 0071 7333 1340 1341 7570 7257 1342 1343 1344 1460 012115 7350 1345 1346 1347 7570 7532 7257 1350 1351 1352 1460 0062 7356 1353 1354 1355 7570 7532 7257 1356 1357 1360 1460 0022 7365 1361 7476 146~ JMP ,+2 JMP START SAE I 22 JMP ,+2 JMP START M01, LOA I 100 JMP LI NCO JMP START /MORE COMMENTS MOCT, JMP LINCO JMP HWO JMP COMMT /CHECK F'OR TEXT META TXMETA, SAE l 70 /ALT-A JMP l CK TXBG, LOA I 0047 JMP LINCO LOA I 01213121 JMP LINCD LOA I 53 JMP LI NCO LO A I 47 JMP LI NCO JMP SPACE LOA I 71 TXAGIN1 JMP LI NCO JMP HWD SAE I 71 JMP TXAGIN /ENO OF' TEXT META JMP LINCO JMP START /SMAL.1. l CH ECK ICK, SAE I 15 JMP UCK /SMALL l JMP LI NCO JMP SPACE JMP START /SMAL.1. U CHECK UCK, SAE I 62 JMP TAG CK /SMALi. u JMP l.INCO JMP SPACE JMP START /TAG CHECK TAGCK, SAE 22 JMP SYMCK /TAG JMP HWD 1340 1341 1342 1343 1344 1345 1346 1347 1350 1351 1352 1353 1354 1355 1356 1357 1360 1361 1362 1363 1364 1365 1366 1367 1371/J 1371 1372 1373 1374 1375 1376 1377 1400 141/Jl 1402 1403 1404 1405 1406 1407 14Ul 1411 1412 1413 1414 1415 1416 1417 1420 1421 1422 1423 1424 1425 1426 1427 1430 1431 1432 1433 1434 1435 1436 1362 1363 1364 0052 JMP SWAP JMP COMMA JMP MOl /SYMBOL CHECK SYMCK, SET 12 0010 10 7~50 7541 7302 1365 1366 1367 1370 1371 1372 1373 1374 1375 1376 1377 1400 1401 1402 1403 1404 1405 1406 1407 1410 1411 1412 1413 1414 1415 1416 1417 142r/J 1421 1422 1423 1424 1425 1426 1427 143el 1431 1432 1433 1434 1435 1436 1437 1440 1441 1442 1443 1444 1332 112ei 7722 0471 7467 1312 1120 7754 0451 7467 1445 1446 1447 1450 1451 1452 1453 1454 1332 1120 7722 0471 7467 1312 1120 7754 ADA 1120 7766 0471 7412 fcHl52 /NUMBER? APO I JMP TERM SET 12 /YES 0010 10 1632 1120 7722 0471 7412 1312 1120 7754 0451 7412 1310 7550 7257 1310 1460 0077 7420 7570 7627 r/J052 0010 1120 7722 121471 7467 1312 1120 7754 0451 7467 LOH ADA -11 12 /PEEK AT NEXT HWO ll. OR BELOW APO I JMP TERM LOH 12 /YES ADA I .. 55 -23 TERM, APO JMP TERM LOH HJ /YES,A•l JMP SWAP JMP START LOH 10 SAE I 77 MNEM, JMP ,+3 JMP LlNCO JMP QUI! SET 12 1r/J ADA -55 APO I JMP CR MORE LOH 12 ADA I •23 APO JMP CR MORE /LETTER, IS NEXT CHAR /A LETTER? LOH 12 ADA -55 APO I JMP CR MORE LOH 12 ADA I -23 APO JMP CR MORE /YES, CHECK LAST CHAR LOH I 12 ADA I -55 APO I JMP CR MORE LOH 12 ADA 1 -23 1437 1440 1441 1442 1443 1444 1445 1446 1447 1450 1451 1452 1453 1454 1455 1456 1457 1460 1461 1462 1463 1464 1465 1466 146 7 147fll .1471 1472 1473 1474 1475 1476 1477 151110 151/Jl 1502 i503 1512l4 1505 1512l6 1507 1510 1511 1512 1513 1514 1515 1516 :i.5i 7 1520 1521 1522 1523 1524 1525 1526 i527 1530 1531 1532 1533 1534 1535 1455 1456 1457 14612! 1461 1462 1463 1464 1465 1466 1467 147el 1471 1472 1473 1474 1475 0451 7467 1310 7570 7476 7570 7476 7570 7?32 7257 1:512 1460 0012 7474 7266 7570 7257 1476 1477 1500 1501 1502 1503 1504 1505 1506 1507 1510 1511 1512 1513 1514 1515 1516 1517 1520 1521 1522 1523 1524 1525 1526 1527 1530 1531 212l00 5510 1000 0010 1460 6377 7507 7511 1330 12ll2l00 0070 7777 1000 1526 1120 fll 12lfll1 104 0 1526 1120 1001 1040 1530 0710 0000 0710 0000 7507 1532 1533 1534 1535 1536 1537 1540 0 011 2000 5?40 1020 0014 7570 0000 1541 1542 1543 1544 1545 0011 0011 2000 5547 1020 0063 APO JMP CRMORE LOH 112l JMP LI NCO JMP HWO JMP LI NCO JMP HWD JMP LINCO JMP SPACE JMP START CRMORE, LOH 12 SAE I 12 JMP ,+2 JMP MORE JMP LI NCO JMP START /HWO MUST CHECK /FOR END OF Q4 /AND BRING-IN NEW /HALF' WORD HWD, CLR ADO l2l STC BACK LOA 10 BACK, EQ4, NBNIN, SAE I 6377 JMP ,+2 JMP EQ4 LOH I il2l 0 SET I 10 7777 LOA NBNIN ADA l 1 STA NBNIN ADA I 1001 STA NBNIN1 RDC U l2l RDC U NBNIN11 l2l JMP BACK-1 /SPACE CREATES A SPACE SPACE, CLR ADD 0 STC BACK1 LOA I 14 JMP LI NCO BACK1, f2l /COMMA OUTPUTS A COMMA COMMA, CLR ADO 0 STC 8ACK2 LOA I 63 /MNEMONIC 1536 1537 1540 1541 1542 1543 1544 1545 1546 1547 1550 1551 1552 1553 1554 1555 1556 1557 1560 1561 1562 1563 1564 1565 1566 1567 1570 1571 1572 1573 1574 1575 1576 1577 16f/J0 1601 .. 1602 16f/J3 16f/J4 16fiJ5 16f/J6 16f/J7 16Ul 1611 1612 1613 1614 1615 1616 1617 162f/J 1621 1622 1623 1624 1625 1626 1627 1630 1631 1632 1633 1634 1546 1547 7?70 Vl012ll2l 1550 1551 1552 1553 1554 1555 1556 1?57 1560 1561 1562 1563 1564 1565 1566 1567 fd011 2ir'l00 ?567 1310 10412l 1565 7476 1'14k'J 1562 1k'l2 0 0k'J00 7':J70 1020 0000 7570 0000 1570 1571 1572 1573 1574 1575 1576 1577 1600 1601 1602 1603 1612l4 1605 1606 1612l7 1610 1611 1612 1613 1614 1615 1616 1617 1620 1621 1622 1623 1624 1625 1626 1627 1630 1631 1632 1633 1634 1635 1636 1637 5617 2000 5626 U00 0011 1460 7377 7616 0704 0000 1000 1601 1120 0001 1460 6467 7612 7637 UJ40 1601 0071 6777 10212l 0000 1120 0757 5624 1000 0000 1371 0000 1000 1601 1040 1634 12l704 0000 0416 7635 0717 JMP LINCD BACK2, l2l /SWAP INTERCHANGES NUMBER /AND LETTER COMBINATIONS /THEN OUTPUTS BOTH SWAP, CLR ADD 0 STC BACK3 LOH 10 STA SWAP1 JMP HWD STA SWAP2 LOA I SWAP2, 0 JMP LI NCO LOA l S WA Pl, l2l JMP LINCD BACK3, 0 /LINC SETS UP O/P /BUF'F"ER IN Q6 LI NCO, STC OPWO ADO 0 STC BACK4 LOA 11 SAE I 7377 JMP OUTPUT /YES, ENO WRC TPO~T, 0 LOA TPOUT ADA I 1 SAE I 6467 JMP .•2 JMP TPQ•3 STA TPOUT SET I 11 6777 OUTPUT, LOA 1 OPWO, 0 ADA I CONV STC PICKUP LOA PICKUP, 0 STH 11 BACK4, 0 QUIT~ LOA TPOUT STA TPQ, TPQ WRC l2l 0416 JMP .-1 CHK U or OP surrER 1635 1636 1637 1640 1641 1642 1643 1644 1645 1646 1647 1650 1651 1652 1653 1654 1655 1656 1657 1660 1661 1662 1663 1664 1665 1666 1667 1670 1671 1672 1673 1674 1675 1676 1677 17"'11 171111 1702 1 ?03 1704 171115 1706 171117 1710 1711 1712 1713 1714 1715 1716 1717 172rfJ 1721 1122 1723 1724 1725 1726 1727 1730 1731 1732 1733 1640 1641 1642 1643 1644 1645 1646 1647 165121 1651 1652 1653 1654 1655 1656 1657 166121 1661 1662 1663 1664 1665 1666 1667 1670 1671 1672 16 73 1674 1675 1676 1677 1700 1701 1702 1703 171214 1705 1706 1707 1710 1711 1712 1713 1714 0000 0416 7641 121075 121701 0076 73111121 012174 7720 121073 1663 112133 121500 612141 7654 0500 612146 0234 7653 6015 0215 0212 0322 121305 0315 0317 0326 03r/J5 l'/J240 0324 0301 0321'/J 031115 0240 0306 0322 111317 0315 0240 0325 0316 0311 0324 0240 0261 1715 1716 1717 1720 1721 1722 1723 1724 1725 1726 1727 1730 1731 1732 1733 1734 1735 121215 0212 0324 0331 0321{1 0305 0240 0314 0306 0240 0301 0320 0240 0263 0267 0260 0254 0000 0416 JMP , •1 SET I 15 RCG SET I 16 7300 SET I 14 -57 SET I 13 TEXTi!-1 LOA I 13 108 6041 /TSF" JMP ,•2 108 TEXTi!t 6046 ITL.S XSK I 14 JMP ,•? JMP 15 ftl215 l'/J212 322 305 315 317 326 3ftl5 240 324 301 320 305 240 31'/J6 322 317 315 241(1 325 316 311 324 240 261 /REMOVE TAPE F'ROM UNIT 1 0215 0212 324 331 320 31115 240 314 306 240 301 320 240 263 267 260 254 1734 1735 1736 1737 1740 1741 1742 1743 1744 1736 1737 1740 1741 1742 1743 0260 0240 0303 0322 0215 0212 2612l 2412l 303 322 215 212 /TYPE Lf" AP 37121,121 CR /CONVERT /18 DEC 69 0000 ERRORS ANS1 BACK BACK1 BACK2 BACK3 BACK4 BNIN BNIN1 CHARS CKLF 4066 5510 5540 5547 5567 5626 5152 5154 4746 4712 CNTRL 4675 COMMA 5~41 COMMT 5263 CONV 4757 CRMORE 5467 EQ4 EXIT 5511 4726 GETKBD 4612 HWO 54 76 ICK 5342 INIT 5167 LEGAL 4666 LINCO 557121 LKRB 612136 LTLS 6046 LTSF 6041 MNEM MOCT 5420 5306 MORE 5266 M01 5302 NBNIN 5526 NBNIN1 5530 OPWO 5617 OUTPUT 5616 OVRIN 5251 OVRT.EX 5151 PICKUP 5624 QAB 4075 QACA 4106 QAO 4117 QAE 4141 QAF 4607 QAG 4153 QAH 4205 QA I 4222 QAINIT 4071 QAJ 4227 QAK 4376 QAL 4266 QAM 4172 QAN 4314 QAO 4322 QAP 4333 QAQ 4354 QARFSH 4144 QAT 4361 QAU 4577 QAV 4407 QAW 4603 QAX 4515 QAY 4503 QH 4372 QUIT 5627 SETUP 5060 SETUP1 5077 SETUP2 5121 SETUP3 5145 SPACE 5532 START 5257 SWAP- 5550 SWAPl 5565 SWAP2 5562 SYMCK 5365 TAGCK 53~6 TERM 5412 TEXH 5664 TEXl 4025 TPE 4735 TPOUT 561iH TPQ 5634 TXAGIN 5333 TXBG 5314 TXMETA 5311 TY 4627 UCK 5350
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies
