Previous File Previous Page Single Page Next Page Next File

* PAGE 1

0001 * 0002 * 0003 CF5 H316 AND DDP-516 0004 REL 0005 * 0006 * 0007 SUBR I$MAGT,MTIN 0008 * 0009 * 0010 00000 0 000000 MTIN DAC ** INPUT FROM MAG TAPE UNIT 0011 00001 -0 02 00000 LDA* MTIN PICK UP INPUT MODE OCP 0012 00002 0 04 00025 STA OCP1 SAVE OCP READY FOR USE 0013 00003 0 15 00000 STX MTIN REPLACE RETURN BY RETURN FROM I$MX 0014 00004 -0 02 00000 LDA* MTIN BUFFER ADDRESS 0015 00005 0 04 00064 STA BUFA 0016 00006 0 12 00000 IRS MTIN STEP RETURN ADDR. 0017 00007 -0 02 00000 LDA* MTIN NUMBER OF WORDS IN BUFFER 0018 00010 140407 TCA NEGATE 0019 00011 0 04 00066 STA WCNT SAVE -VE NO. WORDS 0020 00012 0 12 00000 IRS MTIN STEP RETURN ADDR. 0021 00013 -0 02 00000 LDA* MTIN PICK UP LOGICAL UNIT NUMBER 0022 00014 0 35 00070 LDX STBA SET MTU ROUTINE TABLE ADDRESS 0023 00015 0 10 00000 CALL M$SETU UPDATE I/O INSTRUCTIONS 0024 00016 0 12 00000 IRS MTIN STEP RETURN ADDR. 0025 * 0026 00017 0 02 00104 LDA =-10 ALLOW 10 RETRIES 0027 00020 0 04 00065 STA RCNT 0028 00021 0 10 00000 RTRY CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0029 00022 0 35 00066 LDX WCNT INITIAL COUNT 0030 00023 0 02 00064 LDA BUFA INITITIALIZE 0031 00024 0 04 00067 STA BUFP BUFFER POINTER 0032 00025 0 00 00000 OCP1 *** ** INPUT MODE OCP PLACED HERE 0033 00026 0 02 00000 MTIL LDA 0 PICK UP WORD COUNTER 0034 00027 101400 SMI HAVE WE FILLED THE BUFFER? 0035 00030 0 01 00037 JMP DSCD YES - GO TO DISCARD DATA 0036 000031 NXTW EQU * READ NEXT WORD 0037 00031 54 1010 INA1 INA '1010 NO - CLEAR A-REGISTER AND INPUT FROM TCU IF READY 0038 00032 0 01 00040 JMP STAT NOT READY - GO CHECK STATUS 0039 00033 -0 04 00067 STA* BUFP SAVE INTO BUFFER 0040 00034 0 12 00067 IRS BUFP STEP POINTER 0041 00035 0 12 00000 IRS 0 STEP COUNT 0042 00036 0 01 00031 JMP NXTW GO GET NEXT WORD 0043 * BUFFER FULL - FALL THROUGH 0044 000037 DSCD EQU * DISCARD REMAINDER OF RECORD 0045 00037 54 1010 INA2 INA '1010 INPUT WORD TO DISCARD 0046 * 0047 000040 STAT EQU * CHECK STATUS 0048 00040 34 0110 SKS1 SKS '0110 SKIP IF NOT BUSY 0049 00041 0 01 00026 JMP MTIL DISCARD INA SKIPPED, OR BUSY - LOOP 0050 00042 34 0610 SKS2 SKS '0610 SKIP IF END OF FILE HAS NOT BEEN DETECTED
Previous File Previous Page Single Page Next Page Next File