01010INPXX INSER INPXX 01020INPXX HEADR INPUT FILE TABLE. INPXX 01030 INCLDUXTAP INCLUDE STANDARD PUT ROUTINE. )1B OUTXX 01040)1C SBR *&11 STORE LINK IN EXIT. )1B INPXX 01050 B UXTAP GO TO TAPE ROUTINE. )1C)1B INPXX 01060 DCW )00 DELIVER FILE ADDRESS. )1C)1B INPXX 01070 B 0 EXIT. )1C)1B INPXX 01090 DCW )1B ADDRESS OF WORK AREA. INPXX 01100 DCW )08 ADDRESS OF G.M. )1B INPXX 01110)00 DCW )01 DRIVE NUMBER. INPXX 01130 DCW )02 ADDRESS OF INPUT AREA. INPXX 01140 DC @R@ READ D MODIFIER. INPXX 01150 DCW )03 USER EOF EXIT, NO UXGET. )1S INPXX 01160 DCW UXEOF STANDARD EOF EXIT, WITH UXGET. )0T)1B INPXX 01170 DCW )0C USER EOF EXIT, WITH UXGET. )1B INPXX 01180 DC =1 OPEN FLAG. INPXX 01190 DCW @ @ BLANK FILE NUMBER IF NOT INC. )0V INPXX 01200 DCW )0E FILE NUMBER INPXX 02010)0D EQU * LABEL OF FILE NUMBER. INPXX 02020 DC @-001 @ REEL SEQUENCE. INPXX 02030 DC )07 FILE ID. INPXX 02040)0F EQU * LABEL OF ID. INPXX 02050 DC =5 FILE DATE. INPXX 02060 DCW )08 ADDRESS OF G.M. FOR LENGTH CHECKING. INPXX 02070 DCW )09 MINIMUM AGE, DAYS. INPXX 02080 DCW )11 MAXIMUM AGE DAYS. INPXX 02090)1? EQU * LABEL OF MAXIMUM AGE. INPXX 02100)02 DA 1X)1D INPUT AREA. INPXX 02110 DC @"@ DUMMY TO RECEIVE HARDWARE G.M. )1D INPXX 02120)08 DCW @"@ G.M. FOR LENGTH CHECKING. )1D INPXX 01010OUTXX INSER OUTXX 01020OUTXX HEADR OUTPUT FILE TABLE. OUTXX 01025 INCLDUXCLZ )1A OUTXX 01035 INCLDUXTAP INCLUDE STANDARD GET ROUTINE. )1? OUTXX 01040)1B SBR *&11 )1? OUTXX 01050 B UXTAP )1B)1? OUTXX 01055 DCW )00 )1B)1? OUTXX 01060 B 0 )1B)1? OUTXX 01090 DCW )1A REWIND OPTION. R OR U )1? OUTXX 01100 DCW )1? OUTPUT WORK AREA. OUTXX 01110 DCW )02 OUTPUT AREA. )1? OUTXX 01120)00 DCW )01 DRIVE NUMBER. OUTXX 01130 DCW )02 OUTPUT AREA. OUTXX 01140 DC @W@ WRITE D MODIFIER. OUTXX 01150 DCW UXCHNG STANDARD EOR EXIT, WITH UXPUT. )0T)1? OUTXX 01160 DCW )0C USER EOR EXIT, WITH UXPUT. )0C)1? OUTXX 01170 DCW )03 USER EOR EXIT, WITHOUT UXPUT. )1± OUTXX 01180 DC =1 OPEN FLAG. OUTXX 01190 DCW =5 BLOCK COUNT. OUTXX 01200 DCW @ @ BLANK FILE NUMBER IF NOT GIVEN )0V OUTXX 02010 DCW )0E FILE NUMBER. OUTXX 02020)0D EQU * LABEL OF FILE NUMBER. OUTXX 02030 DCW @-001 @ REEL SEQUENCE. OUTXX 02040 DCW )07 FILE ID. OUTXX 02050)0F EQU * LABEL OF FILE ID. OUTXX 02060 DCW @-@ OUTXX 02070 DC )0I RETENTION CYCLE. OUTXX 02075 DC @ 00@ BLANK RET. CYC. IF NOT INCLUDED. )0Z OUTXX 02080 DC =1 OUTXX 02090)0H EQU * LABEL OF RETENTION CYCLE. OUTXX 02100)02 DA 1X)1C,G OUTPUT AREA. OUTXX 01010UXCLZ INSER UXCLZ 01020UXCLZ HEADR CLOSE/PAD ROUTINE UXCLZ 01030 INCLDUXTAP UXCLZ 01040UXCLZ SBR U*SAV3&6 STORE NSI TO SET X3. UXCLZ 01050 SBR U*WRTX,U*CLOZ SET RETURN FROM WRITE. UXCLZ 01060 SBR U*RST3&6,0&X3 STORE X3 IN RESTORE COMMAND. UXCLZ 01070U*SAV3 SBR 99,0 SET NSI IN X3 UXCLZ 01080 SBR U*EXIT&3,3&X3 SET RETURN ADDRESS IN EXIT. UXCLZ 01090 MCW 2&X3,99 MOVE FILE TABLE ADDRESS TO X3. UXCLZ 01100 SBR U*CLOZ&7,0&X3 SETUP FILE TABLE ADDRESS FOR CLOZ UXCLZ 01110 MCW 15993&X3,U*EXIT-1 SETUP REWIND D CHARACTER. UXCLZ 01120 MCW 0&X3 SETUP REWIND DRIVE NUMBER. UXCLZ 01130 SBR U*SETF,0&X3 SETUP FILE TABLE ADDRESS FOR TAPE UXCLZ 01140 MCW 15996&X3,99 PUT WORK AREA ADDRESS IN X3. UXCLZ 01150 MCW UXPAD,0&X3 PUT PADDING CHARACTER IN WORK. UXCLZ 01160 SBR 99,1&X3 INCREMENT X3. UXCLZ 01170 BCE *&5,0&X3,± CHECK FOR END OF RECORD. UXCLZ 01180 B *-25 GO BACK AND PAD MORE. UXCLZ 02010 B UXTAP GO PUT WORK AREA. UXCLZ 02020U*SETF DCW 000 DELIVER FILE TABLE ADDRESS. UXCLZ 02030 B *-10 GO PUT WORK AGAIN UXCLZ 02040U*CLOZ B XXCLOZ GO WRITE TRAILER LABEL. UXCLZ 02050 NOP 0 DELIVER FILE TABLE ADDRESS. UXCLZ 02060U*RST3 SBR 99,0 RESTORE X3. UXCLZ 02070 SBR U*WRTX,UEXIT* RESTORE EXIT FROM WRITE. UXCLZ 02080 BCE U*EXIT,U*EXIT-1,N CHECK FOR NO REWIND. UXCLZ 02090 RWD 0 REWIND. UXCLZ 02100U*EXIT B 0 EXIT UXCLZ 01010UXTAP INSER UXTAP 01020UXTAP HEADR ROUTINE TO BLOCK & DEBLOCK FILES. UXTAP 01030UXTAP SBR URST3*&6 STORE NSI IN SET X3. UXTAP 01040 SBR UEXIT*&6,0&X3 SAVE X3 IN RESTORE X3. UXTAP 01050URST3* SBR 99,0 SET NSI IN X3. UXTAP 01060 SBR UEXIT*&10,3&X3 SET RETURN IN EXIT. UXTAP 01070 MCW 2&X3,99 MOVE FILE TABLE ADDRESS TO X3. UXTAP 01080 BW *&20,8&X3 CHECK IF FILE OPENED. UXTAP 01090 SBR *&8,0&X3 SETUP FILE TABLE ADDRESS FOR OPEN UXTAP 01100 B XXOPEN GO OPEN FILE. UXTAP 01110 NOP 0 DELIVER FILE TABLE ADDRESS. UXTAP 01120 B UEXIT* GO TO EXIT. UXTAP 01130 BCE UTEST*,4&X3,R TEST FOR READ. UXTAP 01140 MCW 15999&X3,*&8 SETUP ADDRESSES ROR MOVING NEXT UXTAP 01150 MCW RECORD FROM WORK TO OUTPUT. UXTAP 01160 MCM 0,0 MOVE NEXT RECORD TO OUTPUT. UXTAP 01170 SBR 15999&X3 STORE ADDRESS OF NEXT SPOT IN BLK UXTAP 01180 SBR *&7 SETUP TO CHECK FOR GROUP MARK. UXTAP 01190 BCE *&12,0," CHECK FOR GROUP MARK. UXTAP 02010UEXIT* SBR 99,0 RESTORE X3. UXTAP 02020 B 0 EXIT. UXTAP 02030 SBR UXCHNG&7,0&X3 SETUP FILE TABLE ADDRESS FOR CHNG UXTAP 02040UTAPE* MCW 3&X3,15999&X3 RESET NEXT RECORD ADDRESS TO FRST UXTAP 02050 SBR *&8,0&X3 SETUP FILE TABLE ADDRESS FOR TAPE UXTAP 02060 B XXTAPE GO READ OR WRITE TAPE. UXTAP 02070 NOP 0 DELIVER FILE TABLE ADDRESS. UXTAP 02080 BCE UREAD*,4&X3,R CHECK FOR READ. UXTAP 02090 B UEXIT* GO TO EXIT. UXTAP 02100U*WRTX EQU * UXTAP 02110UXCHNG B XXCHNG GO WRITE END-OF-REEL TRAILER. UXTAP 02120 NOP 0 DELIVER FILE TABLE ADDRESS. UXTAP 02130 B UEXIT* GO TO EXIT. UXTAP 02140UTEST* MCW 15999&X3,*&7 SETUP CHECK FOR GROUP MKRD UXTAP 02150 BCE UTAPE*,0," CHECK FOR GROUP MARK. UXTAP 02160UREAD* MCW 15996&X3,*&11 SETUP ADDRESSES TO MOVE NEXT UXTAP 02170 MCW 15999&X3 INPUIT RECORD TO WORK AREA. UXTAP 02180 MCM 0,0 MOVE NEXT RECORD TO WORK AREA. UXTAP 02190 SAR 15999&X3 STORE ADDRESS OF NEXT RECORD. UXTAP 02200 B UEXIT* GO TO EXIT. UXTAP 03010UXEOF MN 0&X3,*&4 SET DRIVE NUMBER IN HALT CODING. UXTAP 03020 NOP 660 SET HALT CODING. UXTAP 03030 H HALT. EOF BEFOR EOJ. UXTAP 03040 B *-8 LOCK-UP. UXTAP 03050UXPAD DCW 9 STANDARD PADDING CHARACTER. UXTAP