N16-TLT9

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

0850 01615 0 06 01776 ADD ='260 CHARACTER 0 0851 01616 0 04 02470 STA SIX SIXTH CHARACTER 0852 * 0853 01617 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 0854 01620 0 01 01617 JMP *-1 WAIT UNTIL NOT BUSY 0855 * 0856 * PRINT ERROR MESSAGE 0857 01621 0 10 01522 JST OUTP OUTPUT A MESSAGE TO ASR 0858 01622 0 002446 DAC EMSG INPUT DATA ERROR MESSAGE 0859 * 0860 01623 -0 01 01562 JMP* ERR EXIT 0861 * 0862 * 0863 * DATA COMPARISON ROUTINE 0864 * 0865 01624 0 000000 COMP DAC ** DATA COMPARISON ROUTINE 0866 01625 -0 02 00224 MOR LDA* CHRA STORED DATA 0867 01626 -0 05 00216 ERA* STRA SECOND BUFFER DATA 0868 01627 100040 SZE SAME, O.K. 0869 01630 0 10 01562 JST ERR DIFFERENT, ERROR ROUTINE 0870 01631 0 12 00224 IRS CHRA TALLY STORED DATA POINTER 0871 01632 0 12 00216 IRS STRA TALLY SECOND BUFFER DATA POINTER 0872 01633 0 12 00234 IRS MOT4 TALLY CHARACTER COUNT 0873 01634 0 01 01625 JMP MOR LOOP AGAIN 0874 * 0875 01635 0 02 00235 LDA MTT4 RESTORE CHARACTER COUNT 0876 01636 0 04 00234 STA MOT4 0877 01637 -0 01 01624 JMP* COMP EXIT 0878 * 0879 * 0880 * START PUNCH ROUTINE 0881 * 0882 01640 0 000000 MOTO DAC ** START PUNCH ROUTINE 0883 01641 34 0104 SKS ASRB SKIP IF ASR NOT BUSY 0884 01642 0 01 01641 JMP *-1 WAIT UNTIL NOT BUSY 0885 * 0886 01643 14 0104 OCP ASRO ASR OUTPUT MODE 0887 01644 0 02 02005 LDA ='222 TAPE CHARACTER 0888 01645 74 0004 OTA OASR OUTPUT A CHARACTER TO ASR 0889 01646 0 01 01645 JMP *-1 WATT UNTIL READY 0890 * 0891 01647 0 10 01760 JST BCHD BUFFER CHARACTER DELAY 0892 * 0893 01650 0 02 00242 LDA MOT1 SET INDEX TO 32 0894 01651 0 04 00000 STA 0 0895 01652 140040 CRA BL/BL CHARACTERS 0896 01653 74 0004 OTA OASR OUTPUT A CHARACTER TO ASR 0897 01654 0 01 01653 JMP *-1 WATT UNTIL READY 0898 * 0899 01655 0 12 00000 IRS 0 TALLY CHARACTER COUNT