N16-TLT9

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

0350 01042 14 0004 OCP ASRI ASR INPUT MODE 0351 01043 0 12 00216 MORE IRS STRA TALLY SECOND BUFFER POINTER 0352 01044 54 1004 INA IASR CLEAR A-REG AND INPUT A CHARACTER FROM ASR 0353 01045 0 01 01044 JMP *-1 WAIT UNTIL READY 0354 * 0355 01046 0 03 02021 ANA ='177 BITS 10 - 16 0356 01047 0 05 02020 ERA ='200 ENSURE BIT 8 OF CHARACTER IS SET 0357 01050 0 04 00206 STA TEMP TEMPORARY STORAGE 0358 01051 0 05 02017 ERA ='215 CR CHARACTER 0359 01052 101040 SNZ 0360 01053 0 01 01070 JMP OUT JUMP IF CARRIAGE RETURN 0361 * 0362 01054 0 02 00206 LDA TEMP 0363 01055 -0 04 00216 STA* STRA STORE CHARACTER IN BUFFER 0364 01056 0 05 02016 ERA ='207 BELL CHARACTER 0365 01057 101040 SNZ 0366 01060 0 01 01043 JMP MORE JUMP IF BELL 0367 * 0368 01061 0 02 00206 LDA TEMP TEMPORARY STORE 0369 01062 0 05 02022 ERA ='212 LF CHARACTER 0370 01063 101040 SNZ 0371 01064 0 01 01043 JMP MORE JUMP IF LINE FEED 0372 * 0373 01065 0 12 00244 IRS COUN SKIP IF 72 CHARACTERS INPUT 0374 01066 0 01 01043 JMP MORE 0375 * 0376 01067 0 12 00216 IRS STRA TALLY SECOND B 0377 01070 0 02 02017 OUT LDA ='215 0378 01071 -0 04 00216 STA* STRA STORE CARRIAGE RETURN 0379 01072 0 02 00217 OUT2 LDA RTY2 0380 01073 0 04 00216 STA STRA RE-INITIALIZE SECOND BUFFER POINTER 0381 01074 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 0382 01075 0 01 01074 JMP *-1 WAIT UNTIL NOT BUSY 0383 * 0384 01076 14 0104 OCP ASRO ASR OUTPUT MODE 0385 01077 0 02 02017 LDA ='215 CR CHARACTER 0386 01100 74 0004 OTA OASR OUTPUT A CHARACTER TO ASR 0387 01101 0 01 01100 JMP *-1 WAIT UNTIL READY 0388 * 0389 01102 -0 02 00216 TY2 LDA* STRA GET A CHARACTER FROM BUFFER 0390 01103 74 0004 OTA OASR OUTPUT A CHARACTER TO ASR 0391 01104 0 01 01103 JMP *-1 WAIT UNTIL READY 0392 * 0393 01105 0 05 02017 ERA ='215 CR CHARACIER 0394 01106 101040 SNZ 0395 01107 0 01 01112 JMP LSW1 JUMP IF CARRIAGE RETURN 0396 * 0397 01110 0 12 00216 IRS STRA TALLY SECUND BUFFER POINTER 0398 01111 0 01 01102 JMP TY2 0399 *