INHALT

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

1124 00306 -0 01 00272 JMP* TYER UPON RESTART, RETURN. 1125 * 1126 * 1127 * 1128 * JST TTYN TURN TELETYPE ON IN OUTPUT MODE. 1129 * 1130 00307 0 000000 TTYN DAC ** HERE TO TURN ON ASR-33 OR -35. 1131 00310 0 10 00237 JST O104 CHECK BUSY 1132 00311 0 02 00674 LDA ='17777 PREPARE TO WAIT FOR 1133 00312 0 04 03676 STA T+3 THE DELAY CYCLE 1134 00313 34 0104 SKS '104 ASR MUST BE CONTINUOUSLY NOT BUSY FOR 1135 00314 0 01 00310 JMP TTYN+1 THAT INTERVAL 1136 00315 0 12 03676 IRS T+3 NOT BUSY, CHECK THE TIME 1137 00316 0 01 00313 JMP *-3 STILL LONGER TO WAIT 1138 00317 14 0104 OCP '0104 OK. IT'S REALLY FREE. SET OUTPUT MODE. 1139 00320 -0 01 00307 JMP* TTYN RETURN TO CALLER. 1140 * 1141 * 1142 * ********************************************************************** 1143 * * MAIN CONTROL * 1144 * ********************************************************************** 1145 * 1146 * 1147 * 1148 * BLOK RETURN HERE TO READ NEW BLOCK AND DISPATCH ON BLOCK 1149 * 1150 * TYPE. 1151 00321 0 02 00711 BLER LDA ='141314 (BL) HERE ON BLOCK TYPE ERROR. 1152 00322 0 10 00272 JST TYER GRIPE AND HALT. CONTINUE IF PRESS 'START'. 1153 00323 000013 BLOK EXA ALLOW ACCESS TO ALL OF CORE 1154 00324 0 10 00051 JST R1K HERE TO INPUT NEXT BLOK. READ A BLOCK 1155 00325 0 02 03700 LDA BUFF FIRST WORD IS CONTROL WORD. 1156 00326 0 03 00672 ANA ='170377 WIPE OUT BITS 5...8. 1157 00327 100040 SZE REST WILL BE ZERO IF NEW STYLE. 1158 00330 0 01 01150 JMP OLD OLD STYLE BLOCK. GO TO IT. 1159 00331 0 02 03701 LDA BUFF+1 WORD COUNT TO A-REGISTER 'N'B8. 1160 00332 0404 70 LGR 8 'N'B16 = N. 1161 00333 0 05 00671 ERA ='177777 -N-1. 1162 00334 0 06 00670 ADD ='000003 -N+2. 1163 00335 0 04 00656 STA BUFN SET 'WORDS LEFT PLUS ONE' COUNTER. 1164 00336 140040 CRA 1165 00337 0 04 01662 STA R24S SET THE PEG-LEG SWITCH EVEN. 1166 00340 0 02 00365 LDA BUFD =(DAC BUFF+1) SET BUFFER POINTER TO ONE BEFORE 1167 00341 0 04 00657 STA BUFP FIRST USABLE WORD. 1168 00342 0 02 03700 LDA BUFF RECOVER CONTROL WORD AGAIN. 1169 00343 0404 70 LGR 16-8 BLOCK TYPE TO C(A) 13-16. 1170 00344 0 10 03221 JST SWCH DISPATCH ON BLOCK TYPE TO SERVICE ROUTINE. 1171 00345 0 000366 DAC NS00 00.. SUBPROGRAM NAME BLOCK. 1172 00346 0 000404 DAC NS04 04.. DATA BLOCK. 1173 00347 0 000574 DAC NS10 10.. SYMBOL NUMBER DEFINITION.