Previous File Previous Page Single Page Next Page Next File

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

0532 * 0533 * D$PA: PAUSE 0534 * 0535 * 0536 00370 0 000000 D$PA DAC ** 0537 00371 0 02 00550 LDA MTF1 IF INPUT HAS BEEN COMING FROM MAG. 0538 00372 101040 SNZ THE 'MOR' CARD SHOULD BE IGNORED 0539 00373 000000 HLT HALT - NOT MAG INPUT 0540 00374 -0 01 00370 JMP* D$PA EXIT 0541 * 0542 * 0543 * D$HT: END OF PASS HALT 0544 * 0545 * 0546 00375 0 000000 D$HT DAC ** 0547 00376 0 02 00000 LDA ZP FETCH PASS INDICATOR 0548 00377 101400 SMI SKIP IF PASS ONE OF A TWO PASS ASSEMBLY 0549 00400 0 01 00421 JMP EN2 GO WRAP UP OUTPUT PASS 0550 00401 0 02 00550 LDA MTF1 CHECK FOR INPUT FROM MAG TAPE 0551 00402 100040 SZE SKIP IF NOT 0552 00403 0 01 00411 JMP BKSP GO POSITION MAG TAPE FOR NEXT PASS 0553 00404 0 02 00540 HLT1 LDA TMP2 BEFORE WE HALT, SET THE A + B REGISTERS 0554 00405 000201 IAB TO THEIR INITIAL SETTINGS 0555 00406 0 02 00536 LDA T111 0556 00407 000000 HL1 HLT END OF PASS HALT 0557 00410 -0 01 00375 JMP* D$HT RETURN FOR PASS TWO 0558 00411 0 02 00551 BKSP LDA MTF2 MTF2 CONTAINS NUMBER OF FILES PASSED 0559 00412 140401 CMA THROUGH BEFORE 'END' CARD 0560 00413 0 04 00551 STA MTF2 SAVE POSITIONING COUNTER 0561 00414 0 10 00000 CALL C$BF BACKSPACE ONE FILE 0562 00415 0 00 00000 DIP *** ** INPUT MTU NO. 0563 00416 0 12 00551 IRS MTF2 INCREMENT POSITIONING COUNTER 0564 00417 0 01 00414 JMP *-3 IF NO OVERFLOW, BACKSPACE ANOTHER FILE 0565 00420 -0 01 00375 JMP* D$HT RETURN FOR PASS TWO 0566 00421 0 02 00552 EN2 LDA MWF1 TEST FOR MAG TAPE OBJECT 0567 00422 101040 SNZ SKIP IF OBJECT HAS GONE TO MAG 0568 00423 0 01 00426 JMP P1 NO 0569 00424 0 10 00000 CALL O$ME PLACE AN EOF MARK AT END OF OBJECT 0570 00425 0 00 00000 MTEB *** ** OBJECT TEXT MTU N3. 0571 00426 0 02 00553 P1 LDA MWF2 FETCH MAG LISTING FLAG 0572 00427 101040 SNZ SKIP IF LISTING IS FROM MAG TAPE 0573 00430 0 01 00433 JMP P2 NO 0574 00431 0 10 00000 CALL O$ME YES - PLACE EOF MARK AT END OF LISTING 0575 00432 0 00 00000 MTEL *** ** LIST MTU NO. 0576 00433 0 02 00550 P2 LDA MTF1 CHECK FOR MAG INPUT 0577 00434 101040 SNZ SKIP IF INPUT HAS BEEN FROM MAG 0578 00435 0 01 00443 JMP AJT1 0579 00436 0 10 00000 FSKF CALL C$BR BACKSPACE OVER END CARD 0580 00437 0 00 00000 DIP1 *** *** INPUT MTU NO. 0581 00440 101000 NOP IGNORE EOF RETURN
Previous File Previous Page Single Page Next Page Next File