Previous File Previous Page Single Page Next Page Next File

* 0170-001-6801 (IOS-O16X) CCD NO. 70181495000 REV. A PAGE 9

0369 00204 0 02 00042 LDA AJSH BOTH SOURCE AND LISTING USE 0370 00205 0 04 00347 STA LHP ASR - MODIFY THE LISTING 0371 00206 0 02 00043 LDA AJSL CALLS TO OBTAIN A PROPERLY 0372 00207 0 04 00271 STA LAP FORMATTED LISTING. 0373 00210 0 02 00537 AJGO LDA DEVD FETCH PARAMETER SETTINGS 0374 00211 140401 CMA COMPLEMENT ALL THE FLAGS 0375 00212 0 03 00565 ANA MASK ISOLATE HALT FLAG 0376 00213 100040 SZE SKIP IF HALTS ARE REQUESTED 0377 00214 0 02 00227 LDA NOP1 OTHERWISE THE SWITCH WILL BE A NOP 0378 00215 0 04 00503 STA STOP SET THE SWITCH TO NOP OR HLT 0379 00216 140040 CRA CLEAR THE MAG. TAPE FLAGS 0380 00217 0 04 00550 STA MTF1 0381 00220 0 04 00551 STA MTF2 0382 00221 0 04 00552 STA MWF1 0383 00222 0 04 00553 STA MWF2 0384 00223 -0 01 00044 JMP* D$IN RETURN TO THE ASSEMBLER 0385 * 0386 * D$RD: READ ONE SOURCE STATEMENT 0387 * 0388 00224 0 000000 D$RD DAC ** 0389 00225 0 00 00000 IBP *** ** CALL TO SOURCE INPUT DEVICE 0390 00226 0 000000 XAC INPB BUFFER ADDRESS 0391 00227 101000 NOP1 NOP 0392 00230 -0 01 00224 JMP* D$RD RETURN 0393 * 0394 00231 0 12 00550 MAGI IRS MTF1 SET READ FLAG 0395 00232 0 02 00125 LDA KEM5 FETCH MTU NO. 0396 00233 0 04 00243 STA MTIN PUT IN CALLING SEQUENCE 0397 00234 0 04 00415 STA DIP SAVE FOR BACKSPACING FILES 0398 00235 0 04 00437 STA DIP1 SAVE FOR BACKSPACING RECORDS 0399 00236 0 04 00442 STA DIP2 SAVE FOR FORWARD FILING 0400 00237 0 04 00500 STA REWI SAVE FOR TAPE REWIND 0401 00240 0 10 00000 CALL I$MA READ RECORD FROM MAG TAPE 0402 00241 0 000000 XAC INPB INPUT BUFFER 0403 00242 000050 DEC 40 40 WORD BUFFER 0404 00243 0 00 00000 MTIN *** ** MTU NO. 0405 00244 0 01 00530 JMP PERR UNREADABLE RECORD 0406 00245 0 01 00255 JMP EOTR END OF TAPE RETURN 0407 00246 0 01 00257 JMP MTU END OF FILE RETURN 0408 00247 140040 CRA 0409 00250 0 04 00554 STA ETAB RESET EOF FLAG 0410 00251 0 10 00000 CALL C$6TO8 CONVERT INPUT DATA TO ASCII CODE 0411 00252 0 000000 XAC INPB INPUT BUFFER ADDRESS 0412 00253 0 000050 DAC 40 0413 00254 -0 01 00224 JMP* D$RD RETURN 0414 * 0415 00255 0 10 00505 EOTR JST EOT REPORT EOI CONDITION TO OPERATOR 0416 00256 0 01 00247 JMP MTIN+4 GO FINISH PROCESSING THE RECORD 0417 * 0418 *
Previous File Previous Page Single Page Next Page Next File