job Copy or Extract PID tape ctl 6611 * * If SSG is off * Extract the 1401 COBOL Processor System with Prescan and the * 1401 COBOL Extraction System tapes from the PID tape. * * If SSG is on copy the PID tape * x1 equ 089 089 dcw #3 101 dcw #1 org 3531 3531m mcw 3532begin sw x1-2,gm 3539 rwd 2 3544 bss copy,G 3549 rwd 3 3554loop b tapio 3558rt rtw 1,101 3568eofrt dsa finx1 3569addgm lca gm,0 Add GM to the end of the record 3576 b tapio 3580wt wtw 2,101 3590 dsa *&1 3591clrwm cw 0 Clear WM under GM 3595 b loop * * Finished extracting the first file * 3599finx1 wtm 2 3604 sbr eofrt,finx2 Change EOF return 3611 mn finx2&3,wt&3 Write the next file on unit 3 3618move mcw m,rt Change tape I/O 3625 mcw m,wt to move mode 3632 sw 199 Clear core 3636clear cs m-1 from m-1 3640 sbr clear&3 down to 3644 bw clear,199 199 3652 b loop * * Finished extracting the second file * 3656finx2 wtm 3 3661 wtm 3 3666 rwd 2 3671 rwd 3 3676 rwd 1 3681halt2 nop 2 3685 h 3686 b halt2 * * Finished copying the tape * 3690fincp wtm 2 3695 sbr eofrt,finc2 3702 b move 3706finc2 wtm 2 3711 wtm 2 3716 rwd 1 3721 rwd 2 3726halt3 nop 3 3730 h 3731 b halt3 * * Copy the PID tape * 3735copy b tapio 3739 wtw 2,1 3749 dsa *&1 3750 sbr eofrt,fincp 3757 b loop * * Tape I/O routine * 3761tapio sbr x1 3765 mcw 7&X1,rdwr&7 3772 mz *-6,azone Create A-zone character 3779 mcw azone,tzone&7 Put it into test 3786 bce *&8,rdwr&7,W Q. Write instruction 3794 mcw azone,114 Setup to test for noise record 3801 mcw 10&X1,eofxt&3 Fill abnormal exit 3808retry mcw k9,count 3815rdwr wtw 2,1 3823 sbr *&4 Store record length & 1 3827 mn 0-0 Decrement to record length 3831 sbr addgm&6 Where to insert GM 3835 sbr clrwm&3 To clear WM under inserted GM 3839 nop 0 3843 nop 0 3847 bce writ1,rdwr&7,W Q. Write instruction 3855 bef eofxt 3860tzone bce rdwr,114, Q. A-zone -- means noise record 3868writ1 ber taper 3873 bef eofxt 3878 b 11&X1 All done 3882azone dcw #1 3883taper mn rdwr&3,*&4 Unit number to backspace 3890 bsp 0 3895 bm many,count Q. Too many errors 3903 s k1,count No, decrement counter 3910 b rdwr try again 3914many bce writ2,rdwr&7,W Q. Write instruction 3922eot nop 4 3926 h 3927 b retry 3931writ2 mn rdwr&3,*&4 3938 skp 0 3943 bef eot Q. End of tape 3948 b rdwr 3952eofxt b 0-0 3956count dcw 9 3957k9 dcw 9 3958k1 dcw 1 3959gm dcw @}@ job Create PID tape * * Conjecture: The PID tape was created by concatenating the 1401 * COBOL Processor System with Prescan and the 1401 COBOL Extraction * System tapes onto tape 1, then running this program with SSG on, * which creates a copy of the PID tape. By starting at Start if * run from cards, this program loads the link into 001-021 and then * branches to the copy code. Thus this program ends up on the * copy of the PID tape. * start rwd 1 lca link,21 Move the link down to 001-021 chain3 b begin * * Code to link the boot area to the program. * ber 10 b begin h 1,1 bin 10, link equ * end start