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 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 *
Previous File Previous Page Single Page Next Page Next File