N16-TLT9

* N520-001-H005 (N16-TLT9) DRAWING NO. 41285786-001-01 PAGE 13

0600 01330 0 01 01327 JMP *-1 WAIT UNTIL NOT BUSY 0601 * 0602 01331 14 0004 OCP ASRI ASR INPUT MODE 0603 * 0604 * READ ZEROS 0605 01332 54 1004 INPT INA IASR CLEAR A-REG AND INPUT A CHARACTER FROM ASR 0606 01333 0 01 01332 JMP *-1 WAIT UNTIL READY 0607 * 0608 01334 101040 SNZ SKIP IF INPUT IS NOT '000 0609 01335 0 01 01332 JMP INPT '000, LOOP AGAIN 0610 * 0611 01336 -0 04 00216 STA* STRA 0612 01337 0 05 02005 ERA ='222 TAPE CHARACTER 0613 01340 101040 SNZ SKIP IF INPUT IS NOT '222 0614 01341 0 01 01332 JMP INPT '222, LOOP AGAIN 0615 * 0616 * REAL ISO-CODE PATTERN 0617 01342 0 12 00216 MOR1 IRS STRA INPUT 220 CHARACTERS 0618 01343 54 1004 INA IASR CLEAR A-REG AND INPUT A CHARACTER FROM ASR 0619 01344 0 01 01343 JMP *-1 WAIT UNTIL READY 0620 * 0621 01345 -0 04 00216 STA* STRA STORE IN SECOND BUFFER 0622 01346 0 12 00241 IRS MOT2 TALLY CHARACTER COUNT 0623 01347 0 01 01342 JMP MOR1 LOOP AGAIN 0624 * 0625 01350 0 02 00240 LDA MTT2 RE-INITIALIZE COUNT 0626 01351 0 04 00241 STA MOT2 0627 * 0628 * READ BINARY PATIERN 0629 01352 0 12 00216 MOR2 IRS STRA TALLY SECOND BUFFER POINTER 0630 01353 54 1204 INA BIAS CLEAR A-REG AND INPUT BINARY CCDE FROM ASR 0631 01354 0 01 01353 JMP *-1 WAIT UNTIL READY 0632 * 0633 01355 -0 04 00216 STA* STRA STORE IN SECOND BUFFER 0634 01356 0 12 00237 IRS MOT3 TALLY CHARACTER COUNT 0635 01357 0 01 01352 JMP MOR2 LOOP AGAIN 0636 * 0637 01360 0 02 00236 LDA MTT3 RE-INITIALIZE COUNT 0638 01361 0 04 00237 STA MOT3 0639 01362 54 1004 INA IASR CLEAR A-REG AND INPUT A CHARACTER FROM ASR 0640 01363 0 01 01362 JMP *-1 WAIT UNTIL READY 0641 * 0642 01364 34 0504 SKS NOTS SKIP IF NOT STOP CODE 0643 01365 100000 SKP STPP CODE, O.K. 0644 01366 0 01 01410 JMP STPO NO STOP CODE, GO TO ERROR 0645 * 0646 01367 54 1004 INA IASR CLEAR A-REG AND INPUT A CHARACTER FROM ASR 0647 01370 0 01 01367 JMP *-1 WAIT UNTIL READY 0648 * 0649 01371 0 02 00217 LDA RTY2 RE-INITIALIZE ADDRESSES