I$MAGT

* 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
* PAGE 2

0051 00043 0 01 00051 JMP XEOF END OF FILE 0052 00044 34 0210 SKS3 SKS '0210 SKIP IF AN ERROR HAS NOT BEEN DETECTED 0053 00045 0 01 00057 JMP ERR ERROR 0054 00046 34 0510 SKS4 SKS '0510 SKIP IF END OF TAPE HAS NOT BEEN DETECTED 0055 00047 0 01 00052 JMP XEOT END OF TAPE 0056 00050 0 12 00000 IRS MTIN 0057 00051 0 12 00000 XEOF IRS MTIN END OF FILE RETURN 0058 00052 0 12 00000 XEOT IRS MTIN END OF TAPE RETURN 0059 00053 0 02 00000 XERR LDA 0 ERROR RETURN 0060 00054 100040 SZE 0061 00055 0 07 00066 SUB WCNT 0062 00056 -0 01 00000 JMP* MTIN 0063 * 0064 00057 0 12 00065 ERR IRS RCNT STEP RETRY COUNTER 0065 00060 100000 SKP HAVE ANOTHER GO 0066 00061 0 01 00053 JMP XERR TOO MANY ERRORS - GIVE UP 0067 00062 14 1510 OCP2 OCP '1510 BACKSPACE ONE RECORD 0068 00063 0 01 00021 JMP RTRY AND TRY AGAIN 0069 * 0070 00064 BUFA BSS 1 BUFFER BASE ADDRESS 0071 00065 RCNT BSS 1 RETRY COUNTER 0072 00066 WCNT BSS 1 WORD COUNTER (-N TO -1) 0073 00067 BUFP BSS 1 BUFFER WORD POINTER 0074 * 0075 * 0076 00070 0 000071 STBA DAC STBL 0077 * 0078 00071 0 000025 STBL DAC OCP1 0079 00072 0 000031 DAC INA1 0080 00073 0 000037 DAC INA2 0081 00074 0 000040 DAC SKS1 0082 00075 0 000042 DAC SKS2 0083 00076 0 000044 DAC SKS3 0084 00077 0 000046 DAC SKS4 0085 00100 0 000062 DAC OCP2 0086 00101 0 000000 XAC M$NBR1 0087 00102 0 000000 XAC M$NBR2 0088 00103 000000 OCT 0 END TABLE 0089 * 0090 * 0091 00104 177766 FIN LITERALS 0092 * 0093 END END OF I$MAGT BUFA 000064 BUFP 000067 DSCD 000037 ERR 000057 INA1 000031 INA2 000037 MTIL 000026 MTIN 000000 NXTW 000031 OCP1 000025 OCP2 000062 RCNT 000065 RTRY 000021 SKS1 000040 SKS2 000042 SKS3 000044 SKS4 000046 STAT 000040 STBA 000070 STBL 000071
* PAGE 3

WCNT 000066 XEOF 000051 XEOT 000052 XERR 000053 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71