INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 22

1024 * 1025 00157 0 000000 DAC ** R1K+70 READ RAW CODE FROM TAPE 1026 00160 0 02 03660 LDA PTIN TEST FOR ASR(=2) OR HSR(=1) 1027 00161 0 03 00702 ANA =1 +72 TEST FOR BIT 16 (HI-SPEED) 1028 00162 101040 SNZ +73 SKIP IF HIGH SPEED 1029 00163 0 01 00171 JMP R1K+80 +74 GO TO ASR 1030 00164 14 0001 OCP 0001 +75 TURN ON HI-SPEED READER 1031 00165 54 1001 INA '1001 +76 CLEAR A-REG AND READ CHARACTER 1032 00166 0 01 00165 JMP *-1 +77 WAIT FOR IT 1033 00167 14 0101 OCP '0101 +78 TURN OFF HI-SPEED 1034 00170 -0 01 00157 JMP* R1K+70 +79 RETURN TO CALLER 1035 00171 0 02 00674 LDA ='017777 R1K+80 LOWSPEED-PREPARE TO WAIT 1036 00172 0 04 03676 STA T+3 +81 FOR X16 DELAY CYCLE 1037 00173 34 0004 SKS '0004 +82 NEXT CHARACTER READY. Q 1038 00174 0 01 00200 JMP *+4 +83 NO. GO CHECK TIME 1039 00175 54 1004 INA '1004 +84 YES, CLEAR A-REG AND READ CHARACTER 1040 00176 0 01 00200 JMP *+2 +85 NOT READY, GO CHECK TIME. 1041 00177 -0 01 00157 JMP* R1K+70 +86 RETURN TO CALLER 1042 00200 0 12 03676 IRS T+3 +87 NOT READY. COUNT THIS. 1043 00201 0 01 00173 JMP R1K+82 +88 STILL TIME. GO CHECK AGAIN 1044 00202 0 10 00237 JST O104 +89 CHECK BUSY 1045 00203 14 0104 OCP '104 +90 SELECT OUTPUT MODE 1046 00204 0 02 00673 LDA ='221 +91 OUTPUT AN (X-ON) CHARACTER 1047 00205 74 0004 OTA '4 R1K+92 TO TURN ON ASR READER 1048 00206 0 01 00205 JMP *-1 +93 DELAY 1049 00207 0 10 00237 JST O104 +94 CHECK BUSY 1050 00210 14 0004 OCP '4 +95 SELECT INPUT MODE 1051 00211 0 10 00237 JST O104 +96 CHECK BUSY 1052 00212 0 01 00171 JMP R1K+80 R1K+97 GO BACK FOR NEXT CHARACTER 1053 * 1054 00213 0 000000 MAG DAC ** ENTRY FOR MAG READ 1055 00214 0 10 00243 JST KLR CLEAR RUFFER 1056 00215 0 10 00000 CALL I$MC READ A BINARY RECORD 1057 00216 0 003700 DAC BUFF BUFFER 1058 00217 000074 DEC 60 WORD COUNT 1059 00220 0 000000 UNIT DAC ** UNIT NUMBER 1060 00221 000000 HLT PARITY 1061 00222 000000 HLT ENT OF TAPE 1062 00223 0 01 03031 JMP EOT END OF FILE 1063 00224 0 01 00256 JMP KCKM CALCULATE CHECKSUM 1064 * 1065 00225 0 000000 CARD DAC ** ETNRY FOR READ A CARD 1066 00226 0 10 00243 JST KLR CLEAR RUFFER 1067 00227 0 10 00000 CALL I$CB READ A BINARY CARD 1068 00230 0 003700 DAC BUFF BUFFER 1069 00231 0 01 03031 JMP EOT END OF FILE 1070 00232 0 01 00256 JMP KCKM CALCULATE CHECKSUM 1071 * 1072 00233 0 000000 DISI DAC ** READ FROM DISC 1073 00234 -0 10 00772 JST* DOPO GET THE BLOCK