C$MAGT

* PAGE 1

0001 * 0002 * 0003 CF5 H316 AND DDP-516 0004 REL 0005 * 0006 * 0007 SUBR C$MAGT,MTCT 0008 * 0009 * 0010 00000 0 000000 MTCT DAC ** 0011 00001 -0 02 00000 LDA* MTCT PICK UP CONTROL OCP 0012 00002 0 04 00015 STA OCP1 SAVE OCP READY FOR USE 0013 00003 0 15 00000 STX MTCT REPLACE RETURN BY RETURN FROM C$XX 0014 00004 -0 02 00000 LDA* MTCT PICK UP UNIT NUMBER 0015 00005 0 12 00000 IRS MTCT STEP RETURN ADDRESS 0016 00006 0 35 00026 LDX STBA SET MTU ROUTINE TABLE ADDRESS 0017 00007 0 10 00000 CALL M$SETU UPDATE I/O INSTRUCTIONS 0018 00010 0 10 00000 CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0019 00011 0 02 00015 LDA OCP1 GET OCP, BIT 8 OF OCP 0020 00012 141340 ICA IS NOW IN BIT 16 OF A REG. 0021 * IS '1' FOR A BACKSPACING COMMAND 0022 00013 34 0310 SKS1 SKS '0310 SKIP IF NOT AT BEGINNING OF TAPE (LOADPOINT) 0023 * SO, IF NOT AT LOADPOINT, ALWAYS DO OCP 0024 * BUT IF AT THE LOADPOINT 0025 00014 101100 SLN SKIP OCP IF IT BACKSPACES 0026 00015 0 00 00000 OCP1 *** ** THE ACTUAL COMMAND 0027 00016 0414 77 LGL 1 BIT 10 OF OCP TO SIGN 0028 00017 101400 SMI SKIP IF (BACK)SPACING A RECORD (NOT FILE) 0029 00020 -0 01 00000 JMP* MTCT SINCE FILE, EOF NOT POSSIBLE - NORMAL RETURN 0030 00021 0 10 00000 CALL M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0031 00022 34 0610 SKS2 SKS '0610 SKIP IF END OF FILE HAS NOT BEEN DETECTED 0032 00023 100000 SKP RETURN 0033 00024 0 12 00000 IRS MTCT NORMAL RETURN 0034 00025 -0 01 00000 JMP* MTCT DO THE RETURN 0035 * 0036 * 0037 00026 0 000027 STBA DAC STBL 0038 * 0039 00027 0 000013 STBL DAC SKS1 0040 00030 0 000015 DAC OCP1 0041 00031 0 000022 DAC SKS2 0042 00032 0 000000 XAC M$NBR1 0043 00033 0 000000 XAC M$NBR2 0044 00034 000000 OCT 0 END TABLE 0045 * 0046 * 0047 FIN LITERALS 0048 * 0049 END END OF C$MAGT