O$MAGT, O$ME

* PAGE 1

0001 * 0002 * 0003 CF5 H316 AND DDP-516 0004 REL 0005 * 0006 * 0007 SUBR O$MAGT,MTOT 0008 SUBR O$ME 0009 * 0010 * 0011 00000 0 000000 MTOT DAC ** GENERAL MAG TAPE OUTPUT 0012 00001 -0 02 00000 LDA* MTOT PICK UP OUTPUT MODE OCP 0013 00002 0 04 00024 STA OCP1 SAVE OCP READY FOR USE 0014 00003 0 15 00000 STX MTOT REPLACE RETURN BY RETURN FROM O$MX 0015 00004 -0 02 00000 LDA* MTOT BUFFER ADDRESS 0016 00005 0 04 00062 STA BUFA 0017 00006 0 12 00000 IRS MTOT STEP RETURN ADDR. 0018 00007 -0 02 00000 LDA* MTOT NUMBER OF WORDS IN BUFFER 0019 00010 140407 TCA NEGATE 0020 00011 0 04 00063 STA WCNT SAVE -VE NO. WORDS 0021 00012 0 12 00000 IRS MTOT STEP RETURN ADDR. 0022 00013 -0 02 00000 LDA* MTOT PICK UP LOGICAL UNIT NUMBER 0023 00014 0 04 00046 STA LMTU SAVE IN CALL SEQ. OF O$ME 0024 00015 0 35 00065 LDX STBA SET MTU ROUTINE TABLE ADDRESS 0025 00016 0 10 00000 CALL M$SETU UPDATE I/O INSTRUCTIONS 0026 00017 0 12 00000 IRS MTOT STEP RETURN ADDR. 0027 00020 0 10 00000 RTRY CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0028 00021 0 35 00063 LDX WCNT INITIAL COUNT 0029 00022 0 02 00062 LDA BUFA INITITIALIZE 0030 00023 0 04 00064 STA BUFP BUFFER POINTER 0031 00024 0 00 00000 OCP1 *** ** OUTPUT MODE OCP PLACED HERE 0032 00025 -0 02 00064 MTOL LDA* BUFP 0033 000026 OUTW EQU * WRITE NEXT WORD 0034 00026 74 0010 OTA1 OTA '0010 OUTPUT DATA TO THE TCU 0035 00027 0 01 00042 JMP STAT NOT READY - GO CHECK STATUS 0036 00030 0 12 00064 IRS BUFP STEP POINTER 0037 00031 0 12 00000 IRS 0 STEP COUNT 0038 00032 0 01 00025 JMP MTOL LOOP FOR NEXT WORD 0039 00033 0 10 00000 CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0040 00034 34 0210 SKS1 SKS '0210 SKIP IF AN ERROR HAS NOT BEEN DETECTED 0041 00035 0 01 00044 JMP ERR ERROR 0042 00036 34 0510 SKS2 SKS '0510 SKIP IF END OF TAPE HAS NOT BEEN DETECTED 0043 00037 -0 01 00000 JMP* MTOT EOT RETURN 0044 00040 0 12 00000 IRS MTOT STEP RETURN ADDR. 0045 00041 -0 01 00000 JMP* MTOT NORMAL RETURN 0046 000042 STAT EQU * 0047 00042 34 0110 SKS3 SKS '0110 SKIP IF NOT BUSY 0048 00043 0 01 00026 JMP OUTW 0049 * 0050 000044 ERR EQU *
* PAGE 2

0051 00044 14 1510 OCP2 OCP '1510 BACKSPACE ONE RECORD 0052 00045 0 10 00052 JST O$ME WRITE END OF FILE MARK 0053 00046 LMTU BSS 1 LOGICAL MTU NUMBER 0054 00047 0 10 00000 CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0055 00050 14 1510 OCP3 OCP '1510 BACKSPACE ONE RECORD 0056 00051 0 01 00020 JMP RTRY 0057 * 0058 * 0059 00052 0 000000 O$ME DAC ** WRITE END OF FILE MARK 0060 00053 -0 02 00052 LDA* O$ME 0061 00054 0 12 00052 IRS O$ME 0062 00055 0 35 00065 LDX STBA SET MTU ROUTINE TABLE ADDRESS 0063 00056 0 10 00000 CALL M$SETU 0064 00057 0 10 00000 CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0065 00060 14 0610 OCP4 OCP '0610 WRITE END OF FILE 0066 00061 -0 01 00052 JMP* O$ME RETURN 0067 * 0068 00062 BUFA BSS 1 BUFFER BASE ADDRESS 0069 00063 WCNT BSS 1 WORD COUNTER (-N TO -1) 0070 00064 BUFP BSS 1 BUFFER WORD POINTER 0071 * 0072 * 0073 00065 0 000066 STBA DAC STBL 0074 * 0075 00066 0 000024 STBL DAC OCP1 0076 00067 0 000026 DAC OTA1 0077 00070 0 000034 DAC SKS1 0078 00071 0 000036 DAC SKS2 0079 00072 0 000042 DAC SKS3 0080 00073 0 000044 DAC OCP2 0081 00074 0 000050 DAC OCP3 0082 00075 0 000060 DAC OCP4 0083 00076 0 000000 XAC M$NBR1 0084 00077 0 000000 XAC M$NBR2 0085 00100 000000 OCT 0 END TABLE 0086 * 0087 FIN LITERALS 0088 * 0089 END END OF O$MAGT BUFA 000062 BUFP 000064 ERR 000044 LMTU 000046 MTOL 000025 MTOT 000000 O$ME 000052 OCP1 000024 OCP2 000044 OCP3 000050 OCP4 000060 OTA1 000026 OUTW 000026 RTRY 000020 SKS1 000034 SKS2 000036 SKS3 000042 STAT 000042 STBA 000065 STBL 000066 WCNT 000063 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71