Previous File Previous Page Single Page Next Page Next File

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

0582 00441 0 10 00000 CALL C$FF FORWARD SPACE TO NEXT FILE 0583 00442 0 00 00000 DIP2 *** ** 0584 00443 0 02 00566 AJT1 LDA CRLF ADVANCE LINE ON ASR 0585 00444 0 10 00515 JST TYPE 0586 00445 0 02 00567 LDA AC PRINT END OF ASSEMBLY MESSAGE 0587 00446 0 10 00515 JST TYPE 0588 00447 0 02 00566 LDA CRLF ADVANCE LINE ON ASR 0589 00450 0 10 00515 JST TYPE 0590 00451 14 0102 OCP '102 ENSURE THAT THE PUNCH POWER IS OFF 0591 00452 101000 EHLT NOP 0592 00453 0 02 00541 E222 LDA B7 FETCH CONTINUOUS ASSEMBLY FLAG 0593 00454 101400 SMI SKIP IF IN CONTINUOUS MODE 0594 00455 0 01 00473 JMP MR NO - REWIND THE TAPE AND HALT 0595 00456 0 02 00543 LDA TTT FETCH FILE COUNT 0596 00457 101040 SNZ SKIP IF A FIXED LIMIT 0597 00460 0 01 00464 JMP ECHK NO GO TO DOUBLE EOF CHECK 0598 00461 0 12 00544 IRS COUN INCREMENT FILE COUNTER 0599 00462 0 01 00404 JMP HLT1 COUNT NOT ZERO - EXIT 0600 00463 0 01 00467 JMP FIX GO WRAP UP PROCESSING 0601 00464 0 02 00555 ECHK LDA LOC GET EOF FLAG 0602 00465 101040 SNZ SKIP IF DOUBLE EOF 0603 00466 0 01 00404 JMP HLT1 SINGLE EOV - CONTINUE 0604 00467 140040 FIX CRA 0605 00470 0 04 00555 STA LOC CLEAR EOF FLAG 0606 00471 0 04 00407 STA HL1 RESET HALT INSTRUCTION 0607 00472 0 04 00542 STA TAB RESET TAB 0608 00473 0 02 00536 MR LDA T111 FETCH A REGISTER SETTING 0609 00474 0414 71 LGL 7 A(1) MAG TAPE INPUT BIT 0610 00475 101400 SMI SKIP IF MAG INPUT 0611 00476 0 01 00404 JMP HLT1 NO - SKIP THE REWIND 0612 00477 0 10 00000 CALL C$MR REWIND THE INPUT TAPE 0613 00500 0 00 00000 REWI *** ** INPUT MTU NO. 0614 00501 0 01 00404 JMP HLT1 END OF ASSEMBLY 0615 * 0616 * HALT: HALT IF ASR-33 IS USED 0617 * 0618 * 0619 00502 0 000000 HALT DAC ** 0620 00503 0 00 00000 STOP *** HLT OR NOP 0621 00504 -0 01 00502 JMP* HALT RETURN 0622 * 0623 * 0624 * EOT : END OF TAPE DETECTED 0625 * 0626 00505 0 000000 EOT DAC ** 0627 00506 0 02 00514 LDA EOTM PRINT EOT MESSAGE 0628 00507 0 10 00515 JST TYPE 0629 00510 0 02 00566 LDA CRLF ADVANCE LINE 0630 00511 0 10 00515 JST TYPE 0631 00512 000000 HLT WAIT FOR OPERATOR ACTION
Previous File Previous Page Single Page Next Page Next File