DUMP-MACROS
(George Source)
- DUMP-MACROS.txt
229S ...[??? RETAINRV SECT FILE FGN 65 DOC 22FL # BELONGS TO BRIAN MATTHEWS & GRAHAM HA 2KH2 #MAC RETAINRV 2L2L #STR %A [SKIP FOR DEFAULT 2LG= ( 2L^W ...#SKI %A<4096$4096 [SKIP IF OUTSIDE RANGE 0-4095 2MFG ( 2M^6 #MEND CLOSEFUL 2NDQ #TRA K99CLOSEFUL 2NYB SBN 0 %A 2PD2 #END 2PXL #MEND BSPRUNE 2QC= #TRA K100BSPRUNE 2QWW +%A 2RBG #END 2RDD ...#UNS K90BSUJSTAT 2RGB ...( 2RJ# ...#MEND BSUJSTAT 2RL= ...#TRA K90BSUJSTAT 2RN8 ... +%A 2RQ6 ...#END 2RS4 ...) 2RW6 ) 2S*Q ...#SKI %A>4095$4095 2STB ! RETAINRV OUT OF RANGE 2T*2 ) 2TSL #STR %A 2W#= #SKI 2WRW RETAINRV 150 2X?G #NOR 2XH# ...[??? DUMPINC SECT FILE FGN 65 DOC 2XR6 # 2Y=Q # USED ONLY BY BSUNJAM - SAYS 'DO AN INCREMENTAL DUMP NOW' 2YQB #MAC DUMPINC 2^=2 BS ,BNOWD 2^PL FON ADUMPWAIT 329= COOR3 BSUJWT [SET UNJAMMER WAITING FOR END OF DUMP 32NW #NOR 32NX ...[??? MTGR SECT FILE FGN NN DOC 32NY ...# 32N^ ...# THIS MACROS GIVES OR REMOVES THE FACILITY OF ALLOWING DUMPER 32P2 ...# TO PRODUCE A RESTORABLE BATCH OF INCREMENTS 32P3 ...# THE PARAMETER MAY BE ON,OFF OR NULL. NULL = ON. 32P4 ...# 32P5 ...#MAC MTGR 32P6 ...#STR %A 32P7 ...#STR 32P8 ...( 32P9 ... MTGR ON 32P= ...#EXI 32P? ...) 32P# ...#STR %A,ON 32P* ...#STR 32PB ...( 32PC ...#MEN INCSTART 32PD ...#TRA K90INCSTART 32PF ... NULL 32PG ...#END 32PH ...#EXI 32PJ ...) 32PK ...#STR %A,OFF 32PL ...#STR 32PM ...( 32PN ...#MEN INCSTART 32PP ...#TRA K90INCSTART 32PQ ... BRN K91INCSTART 32PR ...#END 32PS ...#EXI 32PT ...) 32PW ...! PARAMETER %A MUST BE ON OFF OR NULL ! 32PX ...#NOR 32QR ...[??? PRLLDUMP SECT FILE FGN 65 DOC 32SP ...#MAC PRLLDUMP 32T3 ...#STR %A 32T* ...#STR 32TM ...( 32T^ ...#MEN INCSTART 32W? ...#TRA K80INCSTART 32WK ... NULL 32WX ...#END 32X9 ...#EXI 32XH ...) 32XT ...#STR %A,OFF 32Y7 ...#STR 32YF ...( 32YR ...#MEN INCSTART 32^5 ...#TRA K80INCSTART 32^C ... BRN K81INCSTART 32^P ...#END 3323 ...#EXI 332* ...) 332M ...! PARAMETER MUST BE 'OFF' OR NULL 3336 ...#NOR 333Q ...[??? DUMPNODI SECT FILE FGN 65 DOC 334C ...# 335N ...# 338G # 33N6 # THIS MACRO PREVENTS THE 1ST INCR IN A BATCH FROM CONTAINING 33WS ...# DIRS AND 'VSF'S UNLESS THERE HAVE BEEN AT LEAST 345G ...# <1ST PARAM> NON-RESTORABLE BATCHES SINCE THE LAST RESTORABLE 34#8 ...# ONE. 34GW ...# FOR USE BY INSTALLATIONS WHICH ALWAYS HIT END OF TAPE 34PJ ...# ESPECIALLY THOSE WHICH HAVE DIFFICULTY FITTING THEIR 34Y= ...# RESTORABLE INCREMENT ONTO ONE TAPE 3572 # 35#G ...#MAC DUMPNODIR 35G2 ...#STR %A [DEFAULT IS 1 35JQ ...#SKI 35MG ...( 35T2 ... DUMPNODIR 1 362G ...#EXI 3682 ...) 36*G ...#MEN INCSTART 36H2 ...#TRA K98INCSTART 36NG ... SBN 0 %A 36W2 ...#END 373G ...#NOR 376= ...[??? DUMPNEW SECT FILE FGN 65 DOC 3792 ...#MAC DUMPNEW [FORCES DUMPER TO USE NEW TAPE 37CY ...! PLEASE USE DTRESTINC AND/OR DTFILEINC 37LW ... DTRESTINC NEW 37TS ... DTFILEINC NEW 384Q #NOR 3859 ...[??? INCSTEND SECT FILE FGN 65 DOC 385P ...# 386N ...# THIS MACRO CAUSES DUMPER TO ISSUE TWO J.D. MACROS 387M ...# 'ENDINC' AFTER EVERY INCREMENT 388L ...# 'STARTGRINC' BEFORE EVERY POTENTIALLY RESTABLE INC 389K ...# 38=J ...#MAC INCSTEND 38?H ...#MEN INCSTART 38#G ...#TRA K50INCSTART 38*F ... NULL 38BD ...#END 38CC ...#MEN INCFIN 38DB ...#TRA K50INCFIN 38F* ... NULL 38G# ...#END 38H? ...#NOR 38HS ...[??? DUMPBUFF SECT FILE FGN 65 DOC 38JB # 3942 # THIS MACRO RESETS THE MAXIMUM NO OF BUFFER BLOCKS THAT DUMPER WILL 39HL # KEEP IN CORE AT ONE TIME. 3=3= # %A IS THE NO. FOR TERMINAL FILES. 3=GW # %B IS THE NO. FOR DIRS. 3?2G # 3?G6 #MAC DUMPBUFFS 3?^Q #STR %A 3#FB ( 3#^2 #SKI %A<2$2 3*DL ! DUMPBUFF 1ST PARAM OUT OF RANGE 3*Y= #SKI %A>1$1 3BCW ( 3BXG #MEN INCMON 3CC6 #TRA INCREADLIM 3CWQ +%A 3DBB #END 3DW2 ) 3F*L ) 3FT= #STR %B 3G#W ( 3GSG #SKI %B>FILESIZE$FILESIZE 3H#6 ! DUMPBUFF 2ND PARAM OUT OF RANGE 3HRQ #SKI %B<(FILESIZE+1)$(FILESIZE+1) 3J?B ( 3JR2 #MEN INCWRITE 3K=L #TRA INCDIRLIM 3KQ= SBN 0 FBLKS-A1+%B+1 3L9W #END 3LPG ) 3M96 ) 3MNQ #NOR 3MYJ ...[??? NOJUGG SECT FILE FGN 65 DOC 3N8B # 3NN2 #MAC NOJUGG 3P7L #MEN EMSENTER 3PM= #TRA K20EMSENTER 3Q6W LDN 0 0 3QLG #END 3R66 #NOR 3R*Y ...[??? DUMPPOOL SECT FILE FGN 65 DOC 3RKQ #MAC DUMPPOOL 3S5B ...! PLEASE USE NEWDTPOOL 3SK2 ... NEWDTPOOL ON 3W3W #NOR 3W?N ...[??? RESTFILE SECT FILE FGN 65 DOC 3WHG # THIS MACRO RESTORES A FILE FROM A MAG. TAPE TO ONLINE FILESTORE. 3X36 # IT IS USED ONLY BY OPENREL 3XGQ # NOT ONLY DOES IT COORDINATE BUT IT CLOSES THE DIRECTORY AND SETS 3Y2B # THE ACTIVITY WAITING IN STYLE #24 3YG2 # ON ENTRY IT EXPECTS THE DIRECTORY TO BE OPEN AND TO BE POSITIONED 3Y^L # BEFORE THE COPIES RECORD 3^F= # 3^YW # ON EXIT IT IS LEFT IN THE SAME STATE 42DG # REPLIES OK,LOST,TEMPLOST 42Y6 # UP BREAKIN 43CQ # UPLUS 1 NORMAL RETURN 43XB #MAC RESTFILE 44C2 DOWN SCHEDENX,1 44WL #NOR 456D ...[??? MTMAC SECT FILE FGN 65 DOC 45B= # 45TW [ MAGNETIC TAPE ACCESS MACROS FOR MARK 3 46*G 46T6 #MAC MTMAC 47#Q #FRE MTPERI 47SB #DEF MTACCDUMP=0? 48#2 STO 3 ACOMMUNE1(2) 48RL STO 4 ACOMMUNE2(2) 49?= STO 5 ACOMMUNE3(2) 49QW STO 6 ACOMMUNE4(2) 4==G STO 7 ACOMMUNE5(2) 4=Q6 EXIT 0 0 4?9Q #DEF MTACCUND=0? 4?PB LDX 3 ACOMMUNE1(2) 4#92 LDX 4 ACOMMUNE2(2) 4#NL LDX 5 ACOMMUNE3(2) 4*8= LDX 6 ACOMMUNE4(2) 4*MW LDX 7 ACOMMUNE5(2) 4B7G EXIT 0 0 4BM6 #DEF MTPERI=0? 4C6Q SBX 6 FX1 4CLB LDX 5 AWORK1(2) [UNIT NO 4D62 LOCK 2 4DKL LDX 1 CPPTR(2) 4F5= GPERI 1,2 4FJW COOR1 4G4G UNLOCK 2 4GJ6 ADX 6 FX1 4H3Q EXIT 6 0 4HHB #DEF MTREPLY=0? 4J32 LDN 0 0 4JGL LDX 6 CPRW1(2) [PICK UP REPLY WORD 4K2= BNG 6 M5MTREPLY 4KFW SRL 6 18 4K^G ANDN 6 #66 4LF6 BZE 6 M1MTREPLY [OK IF ONLY B2,B5 OR NONE SET 4LYQ ANDN 6 4 4MDB BNZ 6 M4MTREPLY [CHECKS B3 -FAILURE 4MY2 LDN 0 ANSSENT 4NCL M1MTREPLY 4NX= LDX 6 EXEC3(2) 4PBW BNZ 6 M3MTREPLY 4PWG M2MTREPLY 4QB6 STO 0 EXEC3(2) 4QTQ M3MTREPLY 4R*B EXIT 1 0 4RT2 M4MTREPLY 4S#L LDN 0 ANSFAIL 4SS= BRN M2MTREPLY 4T?W M5MTREPLY 4TRG GEOERR 1,MTREPLY 4W?6 #NOR 4WGY ...[??? MTREW SECT FILE FGN 65 DOC 4WQQ #MAC MTREW 4X=B #OPT MTREW=0 4XQ2 #SKI MTREW 4Y9L #SKI 4YP= ( 4^8W BRN M1MTREW 4^NG #OPT MTPERI=0 5286 #SKI MTPERI 52MQ #SKI 537B MTMAC 53M2 #FRE MTREW 546L #DEF MTREW=0? 54L= SBX 0 FX1 555W LDX 2 FX2 55KG STO 0 ACOMMUNE6(2) 5656 CALL 0 MTACCDUMP [X2=FX2,DUMP X3 TO X7 56JQ LDN 0 7 [REWIND MODE 574B LDX 1 CPPTR(2) 57J2 DCA 1,DLA,0,MODE 583L ANSOK2 58H= CALL 6 MTPERI [REWIND 592W CALL 1 MTREPLY 59GG TESTREP2 FAIL,M2MTREW 5=26 STOZ EXEC3(2) 5=FQ M2MTREW 5=^B CALL 0 MTACCUND 5?F2 LDX 0 ACOMMUNE6(2) 5?YL ADX 0 FX1 5#D= EXIT 0 0 5#XW M1MTREW 5*CG ) 5*X6 CALL 0 MTREW 5BBQ #NOR 5BLJ ...[??? MTCENTRE SECT FILE FGN 65 DOC 5BWB #MAC MTCENTREAD 5CB2 #FRE MTCENTREAD 5CTL #DEF MTCENTREAD=0? 5D*= SBX 4 FX1 [A CENTRAL SR TO READ A BLOCK WHOSE 5DSW LDX 1 CPPTR(2) 5F#G DCA 1,STO,0,COUNT 5FS6 LDN 0 0 5G?Q DCA 1,DLA,0,MODE 5GRB LDN 0 A1(3) 5H?2 DCA 1,STO,0,CTSA 5HQL ANSOK2 5J== M2MTCENT 5JPW CALL 6 MTPERI [READ THE BLOCK 5K9G CALL 1 MTREPLY [CHECK REPLY FROM PERI 5KP6 TESTREPN2 SENT,M3MTCENT [J IF OK OR FAIL 5L8Q LDCH 6 CPRW1(2) [FORMAT ERR IF LONG BLOCK 5LNB ANDN 6 2 5M82 BNZ 6 M2MTCENT [IF NOT - READ QUAL BLOCK 5MML M3MTCENT 5N7= ADX 4 FX1 5NLW EXIT 4 0 5P6G #NOR 5PB# ...[??? MTREAD SECT FILE FGN 65 DOC 5PL6 #MAC MTREAD 5Q5Q #OPT MTREAD=0 5QKB #SKI MTREAD 5R52 #SKI 5RJL ( 5S4= BRN M1MTREAD 5SHW #OPT MTPERI=0 5T3G #SKI MTPERI 5TH6 #SKI 5W2Q MTMAC 5WGB #OPT MTCENTREAD=0 5X22 #SKI MTCENTREAD 5XFL #SKI 5X^= MTCENTREAD [READ X0 SIZED BLOCK 5YDW #FRE MTREAD 5YYG #DEF MTREAD=0? 5^D6 SBX 0 FX1 5^XQ LDX 2 FX2 62CB STO 0 ACOMMUNE6(2) 62X2 LOCKC 3,MNLOK2 63BL CALL 1 MNLOK2 63W= LDX 3 2 64*W LDX 2 FX2 64TG CALL 0 MTACCDUMP 65*6 LDN 0 GSBS [512-WORD BLOCK 65SQ CALL 4 MTCENTREAD [READ INTO X3 BUFFER 66#B UNLOCK 3 66S2 CALL 0 MTACCUND 67?L LDX 0 ACOMMUNE6(2) 67R= ADX 0 FX1 68=W EXIT 0 1 68QG MNLOK2 69=6 LDX 2 ACOMMUNE6(2) 69PQ ADX 2 FX1 6=9B MHUNTX 2,0(2) 6=P2 EXIT 1 0 6?8L M1MTREAD 6?N= ) 6#7W MHUNTW 3,%A,%B 6#MG CALL 0 MTREAD 6*76 #HAL +%B+%A,0 6*LQ #NOR 6*WJ ...[??? MTSKIP SECT FILE FGN 65 DOC 6B6B #MAC MTSKIP [SKIP TO TAPE MARK AND READ A BLOCK 6BL2 #OPT MTSKIP=0 6C5L MHUNT 3,%A,%B 6CK= #SKI MTSKIP 6D4W #SKI 6DJG ( 6F46 BRN M1MTSKIP 6FHQ #OPT MTPERI=0 6G3B #SKI MTPERI 6GH2 #SKI 6H2L MTMAC 6HG= #OPT MTCENTREAD=0 6H^W #SKI MTCENTREAD 6JFG #SKI 6J^6 MTCENTREAD 6KDQ #FRE MTSKIP 6KYB #DEF MTSKIP=0? 6LD2 SBX 0 FX1 6LXL LDX 2 FX2 6MC= STO 0 ACOMMUNE6(2) 6MWW ... LOCK 3 6NBG CALL 0 MTACCDUMP 6NW6 M5MTSKIP 6NXT ... 6N^J ...#SKIP JAUTSKIP 6P3? ...( 6P52 ... JENVNOT M9MTSKIP,DME 6P6P ... LDX 1 CPPTR(2) 6P8D ... JBS M8MTSKIP,1,AUTSKIPTM 6P=7 ...M9MTSKIP 6P?W ...) 6P*Q LDX 1 CPPTR(2) 6PTB DFJUMPS 1,DUMP,M3MTSKIP [USE READS NOT SKIP IF DUMP BIT SET I 6Q2J ...#SKIP JAUTSKIP 6Q7Q ...M8MTSKIP 6Q*2 LDN 0 4 6QSL BRN M4MTSKIP 6R#= M3MTSKIP 6RRW LDN 0 1 6S?G DCA 1,STO,0,COUNT 6SR6 LDN 0 ACOMMUNE9(2) 6T=Q DCA 1,STO,0,CTSA 6TQB LDN 0 0 6W=2 M4MTSKIP 6WPL DCA 1,DLA,0,MODE 6X9= CALL 6 MTPERI [SKIP TO TAPE MARK 6XNW ANSOK2 6Y8G CALL 1 MTREPLY [CHECK REPLY FROM PERI 6YN6 ... TESTREP2 FAIL,M7MTSKIP [READ QUAL BLOCK UNLESS 6^7Q [FAIL REPORTED 6^MB DCA ,LDEX,0,MODE 7272 SBN 0 4 72LL BZE 0 M6MTSKIP 736= LDCT 0 #020 [CHECKT/M BIT IF USING READS 73KW ANDX 0 CPRW1(2) 745G BZE 0 M5MTSKIP 74K6 M6MTSKIP 754Q LDN 0 20 [BLOCK SIZE 75JB CALL 4 MTCENTREAD [READ QUALIFIER BLOCK 7642 M2MTSKIP 76HL ... UNLOCK 3 773= CALL 0 MTACCUND 77GW LDX 0 ACOMMUNE6(2) 782G ADX 0 FX1 78G6 EXIT 0 0 78J* ...M7MTSKIP [TRY MODE 4 IF MODE 0 FAILS 78KS ... LDX 1 CPPTR(2) [X1 -> DEVICE LIST 78M? ... DCA 1,LDEX,0,MODE [X0 => MODE OF PERI 78NR ... SBN 0 4 [ 78R2 ... BZE 0 M2MTSKIP [J IF LAST PERI WAS MODE 4 78T9 ... LDN 0 4 [SET MODE 78XD ... BRN M4MTSKIP [J TO ISSUE PERI 78^Q M1MTSKIP 79FB ) 79^2 CALL 0 MTSKIP 7=DL #NOR 7=ND ...[??? FDTENT SECT FILE FGN 65 DOC 7=Y= #MAC FDTENT 7?CW #OPT M1FDTENT=0 7?XG LDX %A BOLC 7#C6 LDX %A A1(%A) 7#WQ #STR %C 7*BB BZE %A %C 7*W2 #STR %C 7B*L #SKI 7BT= BZE %A M2FDTENT 7C#W SLL %A 2 7CSG ADX %A BOLC 7D#6 SBN %A 4 7DRQ M3FDTENT 7F?B BXE %B FDSN(%A),M4FDTENT 7FR2 SBN %A 4 7G=L BXGE %A BOLC,M3FDTENT 7GQ= #STR %C 7H9W BRN %C 7HPG #STR %C 7J96 #SKI 7JNQ ( 7K8B #SKI M1FDTENT<1-1 7KN2 ( 7L7L #FRE M1FDTENT 7LM= #DEF M1FDTENT=1 7M6W #DEF M2FDTENT=0? 7MLG GEOERR 1,NOTINFDT 7N66 ) 7NKQ ) 7P5B M4FDTENT 7PK2 #NOR 7PSS ...[??? MAGICNO SECT FILE FGN 65 DOC 7Q4L # 7QJ= 7R3W # TO CALCULATE WAITING STYLE FOR FILES BEING RESTORED 7RHG 7S36 #MAC MAGICNO 7SGQ #STR %A,%C 7T2B LDX %C %A 7TG2 SLL %C 15 7T^L ADX %C %B 7WF= #NOR 7WP4 ...[??? RV SECT FILE FGN 65 DOC 7WYW 7XDG 7XY6 #MAC RV 7YCQ DOWN RETRIEVE,2 7YXB #NOR 7^78 ...[??? RVDIR SECT FILE FGN 65 DOC 7^C2 #MAC RVDIR 7^WL DOWN RETRIEVE,3 82B= #NOR 82L4 ...[??? IPBACKJA SECT FILE FGN 65 DOC 82TW 83*G 83T6 84#Q 84SB # THIS MACRO IS USED TO CALCULATE AND INSERT INTO ANY BSTB-BSLIST 85#2 # BLOCK NOT USED AS A SWAP FILE, THE MINIMUM FREE BLOCKS VALUE 85RL # NECESSARY TO PREVENT THE UNJAMMER SYARTING 86?= # FOR MK7 IT ALSO CALCULATES THE THRESHOLD VALUE 86QW # NB. SPECIAL RESIDENCES HAVE BSJAML=BSTHRESH=0 (IE. 100%) 87=G # 87Q6 #MAC IPBACKJAM 889Q LDX 2 BMISC [FPTR TO FIRST BLOCK IN MISC CKALN 88PB LDN 0 100 8992 LDX 1 BSAB 89NL M1TJ 8=8= BXU 1 ATYPE(2),M2TJ [J IF NOT BSLIST BLOCK 8=MW LDX 6 BSLETH(2) 8?7G BNG 6 M2TJ [J IF SWAP FILE 8?M6 STOZ BSJAML(2) [CLEAR BACKJAM LIMIT 8#6Q STOZ BSTHRESH(2) [CLEAR BACKTHRESH LIMIT 8#LB LDN 6 47 [BSJAML AND BSTHRESH ZERO 8*62 BXL 6 BACK1(2),M2TJ [ FOR SPECIAL RESIDENCES 8*KL ... NGX 6 BSRESERVE(2) [TOTAL BLOCK SIZE - SIZE RESERVE TANK 8B5= ADX 6 BSTOT(2) [ TEMPORARILY HELD 8BJW STO 6 BSTHRESH(2) [ IN BSTHRESH 8C4G LDX 6 0 [100 8CJ6 SBX 6 BSJAM [100- (BACKJAM) 8D3Q MPY 6 BSTHRESH(2) [MPY BY (SIZE OF BSUNIT-AWELL) 8DHB ... DVD 6 0 [FIND PERCENTAGE 8F32 STO 7 BSJAML(2) [STORE JAM LIMIT VALUE 8FGL LDN 7 0 [NEEDED FOR CASE WHEN BACKTHRESH VALU 8G2= LDX 6 0 [100 8GFW SBX 6 BSJAM [100- (BACKJAM) 8G^G ADX 6 BACKTHRESH [INCLUDE BACKTHRESH 8HF6 BNG 6 M3TJ [ZERPIZE IF NEGATIVE 8HYQ MPY 6 BSTHRESH(2) [X BY (SIZE OF BSUNIT -AWELL) 8JDB ... DVD 6 0 [FIND PERCENTAGE 8JY2 M3TJ STO 7 BSTHRESH(2) [STORE THRESHOLD VALUE 8KCL M2TJ LDX 2 0(2) [UPDATE BLOCK POINTER 8KX= BXU 2 CXMI,M1TJ [J IF MORE BLOCKS IN CHAIN 8LBW LDX 1 FX1 8LWG LDX 2 FX2 8MB6 #NOR 8MKY ...[??? BSSTAT SECT FILE FGN 65 DOC 8MTQ 8N*B 8NT2 [ MEND TYPE MACRO TO SWITCH ON UNJAMMER STATISTICS 8P#L #MAC BSSTAT 8PS= #MEN BSUNJAM 8Q?W #TRA BSUJSW 8QRG +1 8R?6 #END 8RQQ #NOR 8S2J ...[??? WAITPRIV SECT FILE FGN 65 DOC 8S=B # 8SQ2 # THIS MACRO TESTS IF ACTIVITY IS B.S.PRIVILEGED 8T9L # 8TP= #MAC WAITPRIV 8TS7 ... LDX 1 FX2 8TT6 ... JBS M1WAITPRIV,1,CLGBSPRIV [J IF ACT. ITSELF BS PRIVILEGED 8TW5 ... LDN 0 FILERING(1) 8TX4 ... BXE 0 FILERING(1),%A [EXIT IF FILE RING EMPTY 8TY3 ... TOPFCB 1 8T^2 ... JFZ %A,1,FFINDEXNO [EXIT IF TOP FILE NOT INDEXED 8T^^ ... TOPFCA 1 8W2Y ... JBC %A,1,BAMGEN [EXIT IF DON'T HAVE TOP FILE OPEN 8W3X ... [ IN GENERAL MODE 8W4W ...M1WAITPRIV 96GG #NOR 96MJ ...[??? GMTUPDAT SECT FILE FGN 65 DOC 96SL ...# 96^N ...# UPDATES GEORGE MEAN TIME 976Q ...# 97?S ...#MAC GMTUPDATE 97DW ... FSHSKIP B,MFSHNBEND 97KY ...( 97R2 ... DOWN INCWAIT,2 97Y4 ...MFSHNBEND 9856 ...) 98=8 ... FSHCODE B,MFSHBEND 98C= ...( 98J# ... LDX 0 APROCTIME 98PB ... STO 0 GMTLUP 98WD ... LDN 0 1 993G ... ADS 0 GMTNOW 998J ...MFSHBEND 99*L ...) 99GN ...#NOR 99N4 ...[??? OUTINCS SECT FILE FGN 65 DOC 99XW # 9=CG # MACROS THAT USE THE PARAMETER OUTPUTTING SUBROUTINES IN DTSUBS 9=X6 # 9?BQ #MAC OUTINCS 9?WB DOWN DTSUBS,13 9#B2 #NOR 9#KS ...[??? OUTTSNS SECT FILE FGN 65 DOC 9#TL #MAC OUTTSNS 9**= #STR ARE,%A 9*SW DOWN DTSUBS,14 9B#G #STR ARE,%A 9BS6 #SKI 9C?Q DOWN DTSUBS,15 9CRB #NOR 9D38 ...[??? OUTINCTS SECT FILE FGN 65 DOC 9D?2 #MAC OUTINCTSNS 9DQL DOWN DTSUBS,12 9F== #NOR 9FG4 ...[??? UPDOLC SECT FILE FGN 65 DOC 9FTR ... 9G9G [ 9GP6 [ 9H8Q ...[ THIS MACRO IS DESIGNED TO DO A NON-CORDINATING SEARCH OF THE 9HNB [ OLC, UPDATING ALL THE RELEVANT REQUEST BLOCKS. THERE ARE FOUR 9J82 [ ENTRY POINTS CORRESPONDING TO FOUR SEPERATE ACTIONS TO BE TAKEN 9JML [ 9K7= [ 1 XTAPEM/XTAPEP : SEARCH DOWN THE OFF LINE CHAIN 9KLW [ INCREMENTING/DECREMENTING ADTCOUNT IN 9L6G [ ALL REQUEST BLOCKS WHOSE INC. NO. IS IN 9LL6 [ THE RANGE GIVEN BY FILE FDINCS BLOCK 9M5Q [ 9MKB ...[ ENTRY : X2 = FX2 9N52 ...[ FILE FDINCS BLOCK PRESENT 9NJL [ 9P4= [ 2 XCOUNT : SEARCH DOWN OLC UPDATING ADTCOUNT WITH A 9PHW ...[ VALUE SPECIFIED IN X0, IN ALL REQUEST 9Q3G [ BLOCKS WHOSE INC. NO. IS SAME AS IN X4 9Q?# ...[ AND WHOSE FILESTORE NUMBER IS IN X6. 9QH6 [ 9R2Q [ ENTRY : X2 = FX2 9RGB [ X0 = COUNT OF DTAS AVAILABLE 9S22 [ X4 = INC. NO. 9S9S ...[ X6 = FILESTORE NUMBER 9SFL [ 9S^= [ 3 XSTATE : SEARCH DOWN OLC SETTING APPROPRIATE BIT IN 9TDW [ FDTSTATE WORD IN ALL REQUEST BLOCKS WHOSE 9TR? ...[ INC.NO. IS GIVEN IN X4 AND WHOSE FILESTORE 9W5N ...[ NUMBER IS IN X6 9WD6 [ 9WXQ [ ENTRY : X2 = FX2 9XCB [ X0 = STATE WORD 9XX2 [ X4 = INC. NO. 9Y6S ...[ X6 = FILESTORE NUMBER 9YBL [ 9YW= [ EXIT IN ALL THESE CASES ALL THE ACCUMULATORS ARE CORRUPTED 9^TG [ =2*6 [ NOTE THE LINK ACCUMULATOR IS X7 =2SQ =3#B #MAC UPDOLC =3FJ ...#UNS FTS2 =3LQ ...( =3S2 #DEF XTAPEM=0? =4?L NGN 5 1 =4R= BRN M1UPDOLC =5=W #DEF XTAPEP=0? =5QG LDN 5 1 =6=6 M1UPDOLC =6PQ ... STO 7 ACOMMUNE1(2) [STORE LINK =79B LDX 7 GSIGN [SET FLAG NEGATIVE TO INDICATE TO =7P2 [ INCREMENT/DECREMENT ADTCOUNT =88L MHUNTW 1,FILE,FDINCS =8DD ... LF 1,FDINCFSNO,6 [X6 => FILESTORE NUMBER =8N= LDX 0 5 =97W LDN 5 0 [X5 USED TO ACCUMULATE COUNT =9MG M2UPDOLC ==76 ... BXL 5 FDINCNO(1),M4UPDOLC [J IF MORE INCS IN FDINCS ==LQ M3UPDOLC =?6B ... LDX 2 FX2 [RESET X2 =?L2 ... LDX 7 ACOMMUNE1(2) =#5L EXIT 7 0 =#K= #DEF XCOUNT=0? =*4W ... STO 7 ACOMMUNE1(2) [PRESERVE LINK ADDRESS =*JG STOZ 7 [ SET FLAG ZERO =B46 BRN M5UPDOLC =BHQ #DEF XSTATE=0? =C3B ... STO 7 ACOMMUNE1(2) [ PRESERVE LINK ADDRESS =CH2 [ X7 = +VE VALUE =D2L BRN M5UPDOLC =DG= M4UPDOLC =D^W ... LDN 2 FDINCLEN =FFG MPY 2 5 [X3 -> POSITION IN FDINCS =F^6 SMO 3 =GDQ ... LDX 4 FDINCINC(1) [X4 = INC. NO. IN FDINCS BLOCK =GYB M5UPDOLC =HD2 [ =HXL [ SEARCHS OLC UPDATING COUNT OR STATE WORD FOR ALL FREQS =JC= [ HAVING INC NOS IN FDINCS BLOCK =JWW [ =KBG LDX 2 BOLC =KW6 M6UPDOLC =L*Q LDX 2 FPTR(2) =LTB BXE 2 CXOL,M3UPDOLC [J IF END OF CHAIN =M*2 BXE 4 FDTINCNUM(2),M7UPDOLC [J IF INC NO IN FDINCS = INC OF =MSL [FREQ CURRENTLY POINTED AT =N#= BXGE 4 FDTINCNUM(2),M6UPDOLC [J IF NOT YET REACHED INC IN OLC =NJ4 ...M10UPDOLC =NRW BPZ 7 M3UPDOLC [J IF NOT XTAPEM/XTAPEP S/R =P?G ADN 5 1 [LOOK AT NEXT FDINCS ENTRY =PR6 BRN M2UPDOLC =Q=Q M7UPDOLC =QCY ... BXL 6 FDTFILSTR(2),M10UPDOLC [J IF FILESTORE NOT THERE =QK6 ... BXU 6 FDTFILSTR(2),M6UPDOLC [J IF FILESTORE NOT YET REACHED =QQB BPZ 7 M8UPDOLC =R=2 ADS 0 ADTCOUNT(2) [DECREASE OR INCREASE ADTCOUNT =RPL BRN M6UPDOLC =S9= M8UPDOLC =SNW BZE 7 M9UPDOLC =T8G ... ORS 0 FDTSTATE(2) [ UPDATE STATE WORD =TN6 BRN M6UPDOLC =W7Q M9UPDOLC =WMB STO 0 ADTCOUNT(2) [UPDATE COUNT WORD =X72 BRN M6UPDOLC =XLL =XLT ...) =XM4 ...#UNS FTS2 =XM? ...#STR =XMG ...( =XMP ...#DEF XTAPEM=0? =XMY ... NGN 5 1 =XN7 ... BRN M1UPDOLC =XNB ...#DEF XTAPEP=0? =XNK ... LDN 5 1 =XNS ...M1UPDOLC =XP3 ... STO 7 AWORK1(2) [STORE LINK =XP= ... LDX 7 GSIGN [SET FLAG NEGATIVE TO INDICATE TO =XPF ... [ INCREMENT/DECREMENT ADTCOUNT =XPN ... MHUNTW 1,FILE,FDINCS =XPX ... LDX 0 5 =XQ6 ... LDN 5 0 [X5 USED TO ACCUMULATE COUNT =XQ* ...M2UPDOLC =XQJ ... BXL 5 A1(1),M4UPDOLC [J IF MORE INCS IN FDINCS =XQR ...M3UPDOLC =XR2 ... SMO FX2 =XR9 ... LDX 7 AWORK1 =XRD ... EXIT 7 0 =XRM ...#DEF XCOUNT=0? =XRW ... STO 7 AWORK1(2) [PRESERVE LINK ADDRESS =XS5 ... STOZ 7 [ SET FLAG ZERO =XS# ... BRN M5UPDOLC =XSH ...#DEF XSTATE=0? =XSQ ... STO 7 AWORK1(2) [ PRESERVE LINK ADDRESS =XS^ ... [ X7 = +VE VALUE =XT8 ... BRN M5UPDOLC =XTC ...M4UPDOLC =XTL ... LDN 2 INCMAGLEN =XTT ... MPY 2 5 [X3 -> POSITION IN FDINCS =XW4 ... SMO 3 =XW? ... LDX 4 A1+1(1) [X4 = INC. NO. IN FDINCS BLOCK =XWG ...M5UPDOLC =XWP ...[ =XWY ...[ SEARCHS OLC UPDATING COUNT OR STATE WORD FOR ALL FREQS =XX7 ...[ HAVING INC NOS IN FDINCS BLOCK =XXB ...[ =XXK ... LDX 2 BOLC =XXS ...M6UPDOLC =XY3 ... LDX 2 FPTR(2) =XY= ... BXE 2 CXOL,M3UPDOLC [J IF END OF CHAIN =XYF ... BXE 4 FDTINCNUM(2),M7UPDOLC [J IF INC NO IN FDINCS = INC OF =XYN ... [FREQ CURRENTLY POINTED AT =XYX ... BXGE 4 FDTINCNUM(2),M6UPDOLC [J IF NOT YET REACHED INC IN OLC =X^6 ... BPZ 7 M3UPDOLC [J IF NOT XTAPEM/XTAPEP S/R =X^* ... ADN 5 1 [LOOK AT NEXT FDINCS ENTRY =X^J ... BRN M2UPDOLC =X^R ...M7UPDOLC =Y22 ... BPZ 7 M8UPDOLC =Y29 ... ADS 0 ADTCOUNT(2) [DECREASE OR INCREASE ADTCOUNT =Y2D ... BRN M6UPDOLC =Y2M ...M8UPDOLC =Y2W ... BZE 7 M9UPDOLC =Y35 ... STO 0 FDTSTATE(2) [ UPDATE STATE WORD =Y3# ... BRN M6UPDOLC =Y3H ...M9UPDOLC =Y3Q ... STO 0 ADTCOUNT(2) [UPDATE COUNT WORD =Y3^ ... BRN M6UPDOLC =Y48 ... =Y4C ...) =Y6= #NOR =YB4 ...[??? FILEFORM SECT FILE FGN 65 DOC =YKW # =^5G #MAC FILEFORM =^6? ... SEGENTRY K12BSPRUNE =^74 ... BRN M3FILEFORM =^7T ... LDX 3 EAVACC(1) [PARAMETERS SPECIFIED =^8L ... MPY 3 BSUJFORM2 =^9C ... STO 4 2 =^=8 ... LDX 3 GMTNOW =^=^ ... SBX 3 EGMTLA(1) =^?Q ... MPY 3 BSUJFORM3 =^#H ... ADX 2 4 =^*# ... SMO FX2 =^B5 ... LDX 3 AWORK1 =^BW ... ADX 3 BSUJFORM1 =^CM ... MPY 3 2 =^DD ... LDX 2 BSUJFORM4 =^F9 ... SRA 34 6(2) =^G2 ... LDX 2 FX2 =^GR ... BRN M1FILEFORM =^HJ ... SEGENTRY K13BSPRUNE =^J* ...M3FILEFORM =^K6 SEGENTRY K91BSPRUNE ?24Q BRN M2FILEFORM ?2JB LDN 3 200 [ FIXED FILE SIZE ?342 LDX 5 GMTNOW [PICK UP CURRENT GMT ?3HL SBX 5 EGMTLA(1) [TIME FILE LAST ACCESSED ?43= [IGNORE EAVACC ?4GW MPY 3 5 [MPY TIME SINCE LAST ACCESS ?52G SRA 34 6 [DIVIDE BY SCALING FACTOR ?5G6 BRN M1FILEFORM ?5^Q SEGENTRY K92BSPRUNE ?6FB M2FILEFORM ?6^2 [ NORMAL PATH ?7DL LDX 3 GMTNOW ?7Y= SBX 3 EGMTLA(1) [GMT SINCE LAST ACCESS ?8CW ADX 3 EAVACC(1) [PLUS EAVACC ?8XG SMO FX2 ?9C6 MPY 3 AWORK1 [TIMES SIZE OF FILE ?9WQ SRA 34 6 [SCALING FACTOR ?=BB M1FILEFORM ?=W2 #NOR ??5S ...[??? UJRV SECT FILE FGN 65 DOC ??*L #MAC UJRV ??T= LDN 0 500 ?##W BXGE 0 FORMULA,%A ?#SG [ IF FORMULA IS LESS THAN 500 , DO NOT RETAINRETRIEVES ?*#6 #NOR ?*HY ...[??? UJFROZEN SECT FILE FGN 65 DOC ?*RQ #MAC UJFROZEN ?B?B LDN 0 100 ?BR2 BXGE 0 FORMULA,%A [IF FORMULA IS LESS THAN 100 ?C=L [ THE FILE IS TO BE THROWN OFF LINE EVEN THOUGH IT IS FROZEN FOR ?CQ= [ LIST FILING OR HLS SAVED ?D9W #NOR ?DFN ...[??? BSUJDUMP SECT FILE FGN 65 DOC ?DPG #MAC BSUJDUMP ?F96 LDX 0 BSNDUMP(1) ?FNQ BXL 0 BSLEFT(1),M2BSUJDUMP ?G8B #STR %B ?GN2 #SKI %B ?H7L ( ?HM= STO 6 ACOMMUNE1(2) ?J6W LDN 2 0 ?JLG LDX 6 BSAB ?K66 LDX 3 BMISC [PICK UP BASE OF MISC CHAIN ?KKQ M1BSUJDUMP ?L5B LDX 3 FPTR(3) [PICK UP NEXT BLOCK ?LK2 BXE 3 CXMI,M3BSUJDUMP [JUMP IF END OF CHAIN ?M4L BXU 6 ATYPE(3),M1BSUJDUMP [JUMP IF NOT BSLIST ?MJ= ADX 2 BSTOT(3) [ADD TOTAL SIZE OF RESIDENCE ?N3W SBX 2 BSFREE(3) [SUBTRACT FREE BLOCKS ?NHG BRN M1BSUJDUMP ?P36 M3BSUJDUMP ?PGQ #STR %B ?Q2B LDN 6 %B [PICK UP PARAMETER IF PRESENT ?QG2 #STR %B ?Q^L #STR ?RF= LDN 6 10 [OTHERWISE TAKE DEFAULT VALUE ?RYW MPY 2 6 [X2 3 = %B.T O/L F/S ?SDG LDN 0 1000 ?SY6 DVD 2 0 [ X3 CONTAINS ( %B /10 ) % OF TOLFS ?TCQ LDX 2 FX2 ?TXB LDX 6 ACOMMUNE1(2) ?WC2 BXL 3 BSNDUMP(1),%A ?WWL ) ?XB= #STR %B ?XTW ( ?Y*G #SKI %B ?YT6 #SKI ?^#Q BRN %A ?^SB ) #2#2 M2BSUJDUMP #2RL #NOR #33D ...[??? REFORM SECT FILE FGN 65 DOC #3?= # #3NK ...#MAC REFORM #45Y ... SEGENTRY K93BSUNJAM #4H? ... BRN M3REFORM #4YL ... LDX 6 FORMULA [SPECIAL PATH #5*^ ... SBN 6 2500 [REDUCE F BY 2500 #5R# ... BPZ 6 M1REFORM #68M ... LDN 6 0 [ZERO IZE IFF NEGATIVE #6L2 ...M1REFORM BRN M2REFORM #73* ... SEGENTRY K94BSUNJAM #7DN ...M3REFORM #7W3 ...[ NORMAL PATH #8?B ... LDX 6 FORMULA #8NP ... SRL 6 1 [HALVE FORMULA #964 ... ADX 6 FORMULA #9HC ... SRL 6 1 [ X6 = 3/4 . FORMULA #9YQ ...M2REFORM #=B5 ...#NOR #=JQ ...[??? REFORMUL SECT FILE FGN 65 DOC #=RD ...#MAC REFORMUL #?8R ...# #?L6 ... LDX 5 FORMULA ##3F ... BNZ 5 M5REFORMUL ##DS ... LDN 5 1 [SET = 1 IF WAS ZERO ##W7 ... STO 5 FORMULA #*?G ...M5REFORMUL #*NT ... LDX 5 GMTNOW [CURRENT GMY #B68 ...#SKI IFS #BHH ... MASFCB 3 [FIND MASTER'S FCB #BYW ...#SKI IFS<1$1 #CB9 ... LDX 3 BFILE [FIND MASTERS FCB #CRJ ... SBX 5 FLASTJAM(3) [TIME SINCE LAST JAM #D8X ... BVCR £ [ CLEAR V #DL= ... MPY 5 FORMULA [FORMULA.TSLJ IN X5.6 #F3K ... DVR 5 IDEALJAM [F.TSLJ/BSINTERVAL IN X6 #FDY ... LDX 0 FORMULA [ #FW? ... SLL 0 1 [ X6 = 2.FORMULA #G?L ... BVSR M8REFORMUL #GN^ ... BXL 6 0,M6REFORMUL #H6# ...M8REFORMUL LDX 6 0 #HHM ...M6REFORMUL [X6 = MIN(2.FORMULA,TSLJ.FORMULA/BSIN #H^2 ... LDN 5 9 #JB* ... MPA 5 FORMULA [X56=9.FORMULA+MIN(-) #JRN ... LDN 0 10 #K93 ... DVR 5 0 [X6=(9.F+MIN(-))/10 #KLB ... BVCR M7REFORMUL [SET TO MAX IF OVERFLOW #L3P ... LDCT 6 #377 #LF4 ...M7REFORMUL #LWC ...#NOR #M56 ...[??? IFUJSTAT SECT FILE FGN 65 DOC #M?W #MAC IFUJSTAT #MRG BZE 7 M1IFUJSTAT #N?6 DOWN BSUJSTAT,%A #NQQ #SKI %A-1 #P=B #SKI #PQ2 ( #Q9L LDX 0 ACOMMUNE1(2) #QP= BNZ 0 M1IFUJSTAT #R8W LDN 7 0 #RNG ) #S86 M1IFUJSTAT #SMQ #NOR #SNB ...[??? ULRVTAPE SECT FILE FGN 65 DOC #SP3 ...[ #SQ# ...[ THIS MACRO WILL COMPLETELY UNLOAD #SRK ...[ RETRIEVE TAPES RATHER THAN LEAVING #SSW ...[ THEM POSITIONED AT THE HEADER LABEL #SW7 ...[ #SXD ...#MAC ULRVTAPES #SYP ...#MEN DTSTART #T22 ...#TRA K98DTSTART #T3? ... QUICKUNL #T4J ...#END #T5T ...#NOR #T*M ...[??? OUTRVCT SECT FILE FGN 65 DOC #TKF ...[ #W55 ...#MAC OUTRVCT #WJP ...[ #X4* ...[ THIS MACRO SCANS ROUND OFFLINE CHAIN #XH^ ...[ AND PUTS THE NUMBER OF OUTSTANDING #Y3K ...[ AUTONOMOUS RETRIEVES FOR THE #YH9 ...[ JOBNUMBER IN %A INTO %B; %A MUST #^2T ...[ BE AN ACCUMULATOR (X3 -> X7), IT CAN #^GF ...[ BE THE SAME AS %B......WRITTEN INITIALLY *225 ...[ FOR AN HLS EXTRACODE. *2FP ...[ *2^* ... LDN 0 0 [COUNT OF JOB NUMBERS KEPT IN X0 *3D^ ... LDX 1 BOLC [START OF OFLC *3YK ...M1OUTRVCT *4D9 ... LDX 1 FPTR(1) [SKIP FDT FIRST TIME AROUND *4XT ... BXE 1 CXOL,M2OUTRVCT [J IF END OF OFLC *5CF ... LDX 2 FREVCT(1) [X2 => COUNT OF JOBNUMBERS IN THIS FR *5X5 ... BZE 2 M1OUTRVCT [J IF NO JOB NUMBERS *6BP ...M3OUTRVCT *6W* ... SMO 2 [ *7*^ ... BXU %A FREVCT(1),M4OUTRVCT [J IF NOT EQUAL *7TK ... ADN 0 1 [WE HAVE A RETRIEVE *8*9 ...M4OUTRVCT *8ST ... BCT 2 M3OUTRVCT [J IF MORE JOB NUMBERS *9#F ... BRN M1OUTRVCT [J IF NO MORE JOBS IN THIS FREQ *9S5 ...M2OUTRVCT *=?P ... LDX 1 FX1 [RESET X1 *=R* ... LDX 2 FX2 [AND X2 *?=^ ... STO 0 %B [STORE COUNT IN %B *?QK ...[ *#=9 ...[ ******************************************************************** *#PT ...[ **9F ...#NOR **F? ...[??? WSRV SECT FILE FGN 65 DOC **P5 ...[ *B8P ...[ THIS MACRO SEARCHES AROUND THE OFFLINE *BN* ...[ CHAIN AND THE ACTIVITY LIST IN ORDER *C7^ ...[ TO FIND A TSN OF A RETRIEVE TAPE THAT *CMK ...[ CAN SATISFY THE RETRIEVAL OF THE FILE *D79 ...[ SPECIFIED BY %A, %B, AND %C.. *DLT ...[ %A CONTAINS THE INCREMENT NUMBER *F6F ...[ %B CONTAINS THE FILE NUMBER *FB? ...[ %C CONTAINS THE FILESTORE NUMBER *FL5 ...#MAC WSRV *G5P ...[ *GK* ...[ FIRST FIND FILE/FREQ BLOCK *H4^ ...[ *HJK ... LDX 1 BOLC [START OF OFLC *J49 ...M1WHATRV *JHT ... LDX 1 FPTR(1) [SKIP FDT FIRST TIME AROUND *K3F ... BXE 1 CXOL,M2WHATRV [J IF END OF OFLC *KH5 ... BXL %A FDTINCNUM(1),M2WHATRV [J IF INCREMENT NOT THERE *L2P ... BXU %A FDTINCNUM(1),M1WHATRV [J IF INCREMENT NOT YET REACHED *L7X ... BXL %C FDTFILSTR(1),M2WHATRV [J IF FILESTORE NOT THERE *L*5 ... BXU %C FDTFILSTR(1),M1WHATRV [J IF FILESTORE NOT YET REACHED *LG* ... BXL %B FDTFILNUM(1),M2WHATRV [J IF FILE NOT THERE *L^^ ... BXU %B FDTFILNUM(1),M1WHATRV [J IF FILE NOT YET REACHED *MFK ... LDX %D 1 [FILE FOUND *M^9 ... ADN %D FFUSER1 [%D POINTS TO START OF USERNAME *NDT ...[ *NYF ...[ NOW FIND FILE/FDINCS BLOCK *PD5 ...[ *PJ2 ... LDX 1 BOLC [X1 -> OFLC *PMX ... LDX 0 A1(1) [COUNT OF ENTRIES *PRS ... BZE 0 M11WHATRV [J IF NO ENTRIES *PXP ... LDX 1 FX2 [START SEARCH FROM PRESENT ACTIVITY *QC* ...M3WHATRV *QW^ ... LDX 1 FPTR(1) *RBK ... BXE 1 FX2,M11WHATRV [J IF NO FDINCS *RW9 ... LDX 0 ATYPE(1) *S*T ... SRL 0 12 *STF ... ERN 0 +FILE+FDINCS *T*5 ... BNZ 0 M3WHATRV [J IF NOT A FDINCS BLOCK *TNS ... LF 1,FDINCFSNO,%B [X%B => FILESTORE NUMBER *W4H ... BXU %C %B,M3WHATRV [J IF NOT CORRECT FILESTORE *WD= ... LDX 0 FDINCNO(1) [WE HAVE A FDINCS,X0 => NO OF ENTRIES *WR^ ...M5WHATRV *X?K ... BZE 0 M3WHATRV [J IF NOT CORRECT FDINCS *XM# ... SBN 0 FDINCLEN [UPDATE MODIFIER *Y33 ... SMO 0 *YBQ ... LDX %B FDINCINC(1) [%B => INCREMENT NUMBER POSITIONED AT *YQF ... BXL %B %A,M3WHATRV [J IF NOT CORRECT FDINCS *^PP ... BXU %B %A,M5WHATRV [J IF NOT CORRECT INCREMENT NUMBER B29* ... LDX %E FDINCTSN(1) [%E => TSN B2N^ ... BRN M12WHATRV [EXIT B7K9 ...M2WHATRV B84T ... LDX 1 FX1 [NO FREQ BLOCK B8*4 ... BRN %F B8K? ...M11WHATRV B8KS ... STOZ %E [NO FDINCS - INDICATE THIS B8L* ...M12WHATRV B8LX ... LDX 1 FX1 [RESET X1 B?2K ...#NOR B?=C ...[??? REQRVMAX SECT FILE FGN 65 DOC B?G9 ...[ B?^T ...[ *********************************** B#FF ...[ B#FS ...[ B#G7 ...[ THIS MACRO SETS THE MAXIMUM NO. OF TSNS OUTPUT IN THE MESSAGE "PLE B#GG ...[ B#GT ...#MAC REQRVMAX B#H8 ...#STR %A B#HH ...( B#HW ...#UNS %A B#J9 ...( B#JJ ...#UNS %A>#37777777$#37777777 B#JX ...#SKI B#K= ...( B#KK ...#MEN DTSUBS B#KY ...#TRA K100DTSUBS B#L? ... +%A B#LL ...#END B#L^ ...#EXI B#M# ...) B#MM ...! PARAMETER MUST NOT BE NEGATIVE B#N2 ...#EXI B#N* ...) B#NN ...! PARAMETER MUST NOT BE ZERO B#P3 ...#EXI B#PB ...) B#PP ...! PARAMETER IS MISSING B#Q4 ...[ B#QC ...[ B#QQ ...#NOR B#QX ...[??? CDRVTAPE SECT FILE FGN 72 DOC B#R5 ...[ ****************************************************************** B#RD ...[ B#RR ...[ THIS MACRO WILL SET BIT BIFDTCL FOR A TSN IN THE FDT, IT EXPECTS A B#S6 ...[ BE PRESENT CONTAINING THE PARAMETER (SINE SPACES) FROM THE 'CD' CO B#SF ...[ THE VALIDITY OF THE MESSAGE AND SETS THE BIT IF APPROPRIATE. B#SS ...[ %A IS A LABEL TO BRANCH TO IF THE REQUEST IS NOT UNIQUE, B#T7 ...[ %B IS A LABEL TO BRANCH TO IF THE REQUEST IS NOT EXTANT. B#TG ...[ B#TT ...#MAC CDRVTAPE B#TW ... SMO FX2 B#TX ... STO %C ACOMMUNE1 B#TY ... LDX 1 BOLC B#T^ ... LDX 0 A1(1) B#W2 ... LDX 1 FX1 B#W3 ... LDX 2 FX2 B#W4 ... BZE 0 %B B#W8 ... DOWN DTSUBSA,2 B#WH ... BRN %B [NOT AN EXTANT REQUEST B#WW ... BRN %A [NOT A UNIQUE REQUEST B#X9 ...#NOR B#XJ ...[ B#XX ...[ B*CH ...[??? PRESINC SECT FILE FGN 66 DOC B*X7 ...[ BBBR ...#MAC PRESINC BBLK ...#UNS FTS2 BBWC ...( BC69 ... LDN %C 0 [%C USED AS FDINCS COUNTER BCB3 ... LDX 2 FX2 [SET X2 BCTM ... LDX 1 BOLC [X1 -> OFLC BD*? ... LDX 1 A1(1) [X1 => COUNT OF ENTRIES BDSX ... BZE 1 M2PRES [J IF NO ENTRIES BF#H ...M1PRES [ BFS7 ... LDX 1 ATYPE(2) [TYPE OF BLOCK BG?R ... SRL 1 12 [ BGRC ... ERN 1 +ACTDOC+ASCHEDE [IS IT DUMP TAPE SCHEDULER BH?3 ... BZE 1 M3PRES [J IF SCHEDULER BHQM ... LDX 1 ATYPE(2) [TYPE AGAIN BJ=? ... SRL 1 12 [ BJPX ... ERN 1 +ACTDOC+ADUMPT [IS IT A DUMP TAPE ACTIVITY BK9H ... BZE 1 M3PRES [J IF DTA BKP7 ... LDX 2 ACTRING(2) [FIND NEXT ACTIVITY BL8R ... SBN 2 ACTRING [X2 -> START OF NEXT ACTIVITY BLOCK BLNC ... BXU 2 FX2,M1PRES [J IF NOT END OF RING BM83 ...M2PRES [ BMMM ... LDX 1 FX1 [RESET X1,X2 = FX2 BN7? ... BRN M6PRES [EXIT FROM MACRO BNLX ...M3PRES [ BP6H ... LDX 2 FPTR(2) [LOOK AT NEXT BLOCK BPL7 ... BXE 2 FX2,M2PRES [J IF BACK TO CURRENT ACTIVITY BQ5R ... LDX 1 ATYPE(2) [BLOCK TYPE BQKC ... SRL 1 12 [ BR53 ... ERN 1 +FILE+FDINCS [ BRJM ... BZE 1 M4PRES [J IF FDINCS BLOCK BS4? ... LDX 1 ATYPE(2) [NEXT ACTIVITY? BSHX ... SRL 1 18 [ BT3H ... SBN 1 #60 [ BTH7 ... BPZ 1 M1PRES [J IF ACTIVITY BLOCK BW2R ... BRN M3PRES [LOOK AT NEXT BLOCK BWGC ...M4PRES [ BWQ9 ... LF 2,FDINCFSNO,1 [WE HAVE A FDINCS, X1 => FILESTORE NU BX23 ... BXU %B 1,M3PRES [J IF NOT CORRECT FILESTORE BX#D ... LDN 0 FDINCLEN [ BXLT ... MPY 0 FDINCNO(2) [X1 => ENTRIES*ENTRY LENGTH BX^? ...M5PRES [ BYDX ... BZE 1 M3PRES [J IF NOT CORRECT FDINCS BYNP ... SBN 1 FDINCLEN [DECREMENT MODIFIER BYYH ... SMO 1 [X1 USED AS MODIFIER B^D7 ... LDX 0 FDINCINC(2) [X0 => INCREMENT NO. POSITIONED AT B^XR ... BXL 0 %A,M3PRES [J IF NOT CORRECT FDINCS C2X3 ... BXU 0 %A,M5PRES [J IF NOT CORRECT INCREMENT NO. C3BM ... ADN %C 1 [INCREMENT COUNT OF FDINCS C3W? ... BRN M3PRES [ C4*X ...M6PRES C4B8 ...) C4BF ...#UNS FTS2 C4BQ ...#STR C4C3 ...( C4C# ... LDN %B 0 [%B USED AS FDINCS COUNTER C4CK ... LDX 2 FX2 [SET X2 C4CW ... LDX 1 BOLC [X1 -> OFLC C4D7 ... LDX 1 A1(1) [X1 => COUNT OF ENTRIES C4DD ... BZE 1 M2PRES [J IF NO ENTRIES C4DP ...M1PRES [ C4F2 ... LDX 1 ATYPE(2) [TYPE OF BLOCK C4F? ... SRL 1 12 [ C4FJ ... ERN 1 +ACTDOC+ASCHEDE [IS IT DUMP TAPE SCHEDULER C4FT ... BZE 1 M3PRES [J IF SCHEDULER C4G6 ... LDX 1 ATYPE(2) [TYPE AGAIN C4GC ... SRL 1 12 [ C4GN ... ERN 1 +ACTDOC+ADUMPT [IS IT A DUMP TAPE ACTIVITY C4G^ ... BZE 1 M3PRES [J IF DTA C4H= ... LDX 2 ACTRING(2) [FIND NEXT ACTIVITY C4HH ... SBN 2 ACTRING [X2 -> START OF NEXT ACTIVITY BLOCK C4HS ... BXU 2 FX2,M1PRES [J IF NOT END OF RING C4J5 ...M2PRES [ C4JB ... LDX 1 FX1 [RESET X1,X2 = FX2 C4JM ... BRN M6PRES [EXIT FROM MACRO C4JY ...M3PRES [ C4K9 ... LDX 2 FPTR(2) [LOOK AT NEXT BLOCK C4KG ... BXE 2 FX2,M2PRES [J IF BACK TO CURRENT ACTIVITY C4KR ... LDX 1 ATYPE(2) [BLOCK TYPE C4L4 ... SRL 1 12 [ C4L* ... ERN 1 +FILE+FDINCS [ C4LL ... BZE 1 M4PRES [J IF FDINCS BLOCK C4LX ... LDX 1 ATYPE(2) [NEXT ACTIVITY? C4M8 ... SRL 1 18 [ C4MF ... SBN 1 #60 [ C4MQ ... BPZ 1 M1PRES [J IF ACTIVITY BLOCK C4N3 ... BRN M3PRES [LOOK AT NEXT BLOCK C4N# ...M4PRES [ C4NK ... LDX 1 A1(2) [WE HAVE A FDINCS,X1 => NO. OF ENTRIE C4NW ... SLL 1 1 [TWO WORDS PER TSN C4P7 ...M5PRES [ C4PD ... BZE 1 M3PRES [J IF NOT CORRECT FDINCS C4PP ... SMO 1 [X1 USED AS MODIFIER C4Q2 ... LDX 0 A1-1(2) [X0 => INCREMENT NO. POSITIONED AT C4Q? ... BXL 0 %A,M3PRES [J IF NOT CORRECT FDINCS C4QJ ... SBN 1 2 [DECREMENT MODIFIER C4QT ... BXU 0 %A,M5PRES [J IF NOT CORRECT INCREMENT NO. C4R6 ... ADN %B 1 [INCREMENT COUNT OF FDINCS C4RC ... BRN M3PRES [ C4RN ...M6PRES C4R^ ...) C4TH ...#NOR C5*7 ...[ C5SR ...[ C5SY ...[??? ALIENDIR SECT FILE FGN 67 DOC C5T5 ...#MAC ALIENDIR C5T= ...#STR %A C5TC ...( C5TJ ...#DEF MALDIRLST=1? C5TP ...#LIS 0 C5TW ...#ORD C5W3 ...#INT C5W8 ...XNAME 12H%A C5W* ...[ C5WG ...XSTART C5WM ... LDN 1 XNAME C5WS ... LDX 7 2(1) C5W^ ... ANDN 7 #00007777 [LAST TWO CHARACTERS MUST BE SPACES C5X6 ... SBN 7 #2020 C5X? ... BZE 7 XLENTHOK C5XD ... STO 7 19?+0 C5XK ... LDN 7 0 C5XQ ... STO 7 19?+1 C5XX ... BRN XEND C5Y4 ...XLENTHOK C5Y9 ... LDCH 7 0(1) [VALIDATE FIRST CHARACTER C5YB ... SBN 7 #41 C5YH ... BNG 7 XCHARILL [J IF INVALID C5YN ... SBN 7 #73-#41 C5YT ... BPZ 7 XCHARILL C5^2 ... LDN 6 1 [X6 => COUNT OF CHARS IN NAME C5^7 ... LDN 5 0 [X5 => COUNT OF SPACES C5^# ... LDN 4 9 [X4 => COUNT OF CHARS INSPECTED C5^F ...NXCHAR C5^L ... BCHX 1 £ C5^R ... LDCH 7 0(1) C5^Y ... LDN 2 10 C625 ... BXL 7 2,NCHAROK C62= ... LDN 2 #20 C62C ... BXE 7 2,XSPACE C62J ... LDN 2 #35 C62P ... BXE 7 2,NCHAROK C62W ... SBN 7 #41 C633 ... BNG 7 XCHARILL C638 ... SBN 7 #73-#41 C63* ... BPZ 7 XCHARILL C63G ...NCHAROK C63M ... ADN 6 1 C63S ... ADX 6 5 C63^ ... LDN 5 0 C646 ...NCHAROK1 C64? ... BCT 4 NXCHAR C64D ... STO 6 19?+2 [X6 => COUNT OF CHARS IN USERNAME C64K ... STO 6 19?+1 C64Q ... STO 6 19?+0 C64X ... BRN XEND C654 ...XSPACE C659 ... ADN 5 1 C65B ... BRN NCHAROK1 C65H ...XCHARILL C65N ... LDN 7 0 C65T ... STO 7 19?+0 C662 ...XEND C667 ... EXIT 0 0 C66# ...#JUM XSTART C66F ...#EXT C66L ...#LIS MALDIRLST C66R ...#FRE MALDIRLST C66Y ...#SKI 19?+0] C675 ...( C67= ...#SKI 19?+1] C67C ...( C67J ...#MEN SCHEDMTA C67P ...#TRA K99SCHEDMTA C67W ... +19?+2] C683 ... 12H%A C688 ...#END C68* ...#EXI C68G ...) C68M ...! USERNAME TOO LONG C68S ...#EXI C68^ ...) C696 ...! INVALID CHARACTER IN USERNAME C69? ...#EXI C69D ...) C69K ...! PARAMETER IS MISSING C69Q ...#NOR C69Y ...[ C6=6 ...[??? TSRPALL SECT FILE FGN 68 DOC C6=# ...[ C6=G ...[ TWIN SYSTEMS RESTORE TIME MACRO TO SUPPRESS SUPPRESSION C6=N ...[ OF ALL BUT FIRST RETRIEVAL SYSTEM ERROR MESSAGE PERTAINING C6=W ...[ TO ALIEN FILESTORE FILES' RETRIEVES. C6?4 ...[ C6?= ...#MAC TSRPALL C6?D ...#MEN SCHEDMTA C6?L ...#TRA K98SCHEDMTA C6?S ... BRN K97SCHEDMTA C6#2 ...#END C6#8 ...#NOR C6#C ... C6S3 ...[??? NEWDTASK SECT FILE FGN ? DOC C7?M ...#MAC NEWDTASK C7R? ...[ THIS MACRO FORCES DUMPER TO ASK FOR A DUMP COMMAND IF IT NEEDS NEW C8=X ...[ AND NO DUMP COMMAND HAS ALREADY BEEN ISSUED FOR THE INCREMENT C8QH ...[ ITS PARAMETER MUST BE ON OR OFF C9=7 ...[ C9PR ...#MEN INCSET C=9C ...#TRA K83INCSET C=P3 ...#STR %A,ON C?8M ...#SKI C?N? ...( C#7X ... NULL C#MH ...#END C*77 ...#EXI C*LR ...) CB6C ...) CBL3 ...#STR %A,OFF CC5M ...#SKI CCK? ...( CD4X ... BRN K84INCSET CDJH ...#END CF47 ...#EXI CFHR ...) CG3C ...! ERROR IN NEWDTASK %A MUST BE ON OR OFF CGH3 ...#NOR CH2M ...[??? NEWDTPOOL SECT FILE FGN ? DOC CHG? ...#MAC NEWDTPOOL CH^X ...[ THIS MACRO CAUSES DUMPER TO IGNORE SPARE DUMP TAPES CJFH ...[ WHEN SELECTING NEW TAPES CJ^7 ...[ UNLESS DUMP SPARE IS SPECIFIED CKDR ...#MEN INCTAPES CKYC ...#TRA K80INCTAPES CLD3 ...#STR %A,ON CLXM ...#SKI CMC? ... NULL CMWX ...#END CNBH ...#EXI CNW7 ...) CP*R ...#STR %A,OFF CPTC ...#SKI CQ*3 ...( CQSM ... BRN K81INCTAPES CR#? ...#END CRRX ...#EXI CS?H ...) CSR7 ...#END CT=R ...! ERROR IN NEWDTPOOL %A MUST BE ON OR OFF CTQC ...#NOR CW=3 ...[??? IDCTRM SECT FILE FGN ? DOC CWPM ...#MAC IDCRTM CX9? ...[ THIS MACRO IS USED INTERNALLY IN THE EXPANSION OF CXNX ...[ DTFILEINC DTRESTINC AND DTAFTERREST CY8H ...[ ALL OF WHICH TAKE OLD ASK OR NEW AS THE ONLY PARAMETER CYN7 ...[ THEY INDICATE WHETHER DUMPER IS TO USE OLD TPAES NEW ONES OR C^7R ...[ ASK THE OPERATORS C^MC ...[ ALL THREE MACROS MEND AN APPROPRIATE BS MACRO INTO INCTAPES D273 ...#MEN INCSET D2LM ...#TRA %B D36? ...#STR %A,OLD D3KX ...#SKI D45H ...( D4K7 ... BS 2,IDCRTMOLD D54R ...#END D5JC ...#EXI D643 ...) D6HM ...#STR %A,ASK D73? ...#SKI D7GX ...( D82H ... BS 2,IDCRTMASK D8G7 ...#END D8^R ...#EXI D9FC ...) D9^3 ...#STR %A,NEW D=DM ...#SKI D=Y? ...( D?CX ... BS 2,IDCRTMNEW D?XH ...#END D#C7 ...#EXI D#WR ...) D*BC ...#END D*W3 ...! ERROR IN MACRO %A MUST BE OLD ASK OR NEW DB*M ...#NOR DBT? ...[??? DTFILEIN SECT FILE FGN ? DOC DC#X ...#MAC DTFILEINC DCSH ... IDCRTM %A,K86INCSET DD#7 ...[ USES IDCRTM ( SEE ABOVE ) TO MEND INCSTART DDRR ...[ TO CONTROL PLACING OF FILE ONLY INCREMENTS DF?C ...#NOR DFR3 ...[??? DTRESTIN SECT FILE FGN ? DOC DG=M ...#MAC DTRESTINC DGQ? ... IDCRTM %A,K85INCSET DH9X ...#NOR DHPH ...[??? DTAFTERR SECT FILE FGN ? DOC DJ97 ...#MAC DTAFTERREST DJNR ... IDCRTM %A,K82INCSET DK8C ...#NOR DKN3 ...[??? FREEFINC SECT FILE FGN ? DOC DL7M ...#MAC FREEFINC DLM? ...[ THIS MACRO FREES A FINC OR FGET BLOCK POINTED TO BY %A DM6X ...[ AND RETURNS THE DTA'S TO THE RETRIEVAL SYSTEM DMLH ...[ %B IS NODUMP IFF THE INCREMENT HAS BEEN CANCELLED DN67 ... CHAIN %A,FX2 [ CHAIN THE BLOCK NEXT TO CPAT DNKR ...#STR NODUMP,%B DP5C ...( DPK3 ... DOWN INCDTA,2 [ FINISHED INCREMENT DQ4M ...#EXI DQJ? ...) DR3X ... DOWN INCDTA,3 [ INCREMENT CANCELLED DRHH ...#NOR DS37 ...[??? RVMULTRD SECT FILE FGN 71 DOC DSGR ...[ DT2C ...[ DTG3 ...[ THIS MACRO PERSUADES SEGMENT DTSCAN TO DT^M ...[ PERFORM MULTIPLE READS RATHER THAN DWF? ...[ SKIP TO TAPE MARKS AT ALL TIMES (NOT DWYX ...[ JUST WHILST DUMPING). DXDH ...#MAC RVMULTRD DXY7 ...#MEND DTSCAN DYCR ...#TRA K98DTSCAN DYXC ... LDX 2 FX2 D^C3 ...#END D^WM ...#NOR D^WN ...[???WHATRET SECT FILE FGN ? DOC D^WP ...[ D^WQ ...[THIS MACRO SWITCHES ON OR OFF THE USE OF THE COMMAND WHATRVS D^WR ...[ TO LIST DETAILS OF OUTSTANDING RETRIEVES D^WS ...[ D^WT ...#MAC WHATRET D^WY ...#STR %A,ON D^W^ ...#SKI D^X2 ...( D^X3 ... HIDECOM WV,OFF D^X5 ...#EXI D^X6 ...) D^X7 ...#STR %A,OFF D^X8 ...#SKI D^X9 ...( D^X= ... HIDECOM WV D^X# ...#EXI D^X* ...) D^XB ...#STR %A D^XC ...#SKI D^XD ...( D^XG ...#EXI D^XH ...) D^XJ ...! PARAMETER MUST BE ON OR OFF D^XK ...#NOR D^XL ...[ D^XM ...[??? WVOUTLIM SECT FILE FGN ? DOC D^XN ...[ D^XP ...[DEFINES THE MAXIMUM NO OF RV REQUESTS D^XQ ...[ON WHICH WHATRVS MAY REPORT D^XR ...[WHEN SENDING OUTPUT TO AN OPS CONSOLE D^XS ...[DEFAULT 100 D^XT ...#MAC WVOUTLIM D^XW ...#STR %A D^XX ...#SKI D^XY ...( D^X^ ... WVOUTLIM 100 D^Y2 ...#EXI D^Y3 ...) D^Y4 ...#MEN WHATRVSA D^Y5 ...#TRA K90WHATRVSA D^Y6 ... +%A D^Y7 ...#END D^Y8 ...#NOR D^Y9 ...[??? TSININC SECT FILE FGN 73 DOC D^Y= ...[ D^^2 ...[ D^^R ...[ THIS MACRO CHECKS TO SEE IF A SPECIFIED F22J ...[ TSN IS IN INCINDEX F23* ...#MAC TSININC F246 ... LDX 2 FX2 F24X ...#STR %C F25N ...( F26F ... LDN 0 %C F27= ... STO 0 ACOMMUNE1(2) F283 ...) F28S ...#STR %C F29K ...#SKI F2=B ... STOZ ACOMMUNE1(2) F2?7 ... STO %B ACOMMUNE2(2) F2?Y ... DOWN DTSUBSA,3 F2#P ... BRN %A F2*G ...#NOR F2T6 ...[??? BSUJ F3#Q ...# F3SB ...# THIS MACRO IS USED BY BSUJFORM MACRO. F4#2 ...# %A = PARAMETER TO BSUJFORM F4RL ...# %B = NUMBER OF PARAMETER %A F5?= ...# %C = MAXIMUM VALUE ALLOWED FOR %A F5QW ...# %D = DEFAULT VALUE FOR %A F6=G ...# F6Q6 ...#MAC BSUJ F79Q ...#STR %A F7PB ...( F892 ...#ALT BSUSKIP = 1 F8NL ...#SKI %A� F98= ...#SKI [COMPILE IF %A NEGATIVE F9MW ...( F=7G ...#SKI %A>%C-%C F=M6 ...#SKI F?6Q ...( [COMPILE IF NOT TOO LARGE F?LB ...#MEN CHTABLE F#62 ...#TRA BSUJFORM%B F#KL ... +%A F*5= ...#SKI %A F*JW ...#ALT BSUVAL = 1 FB4G ...#END FBJ6 ...#EXI FC3Q ...) FCHB ...) FD32 ...#ALT BSUVAL = 1 FDGL ...!X%B OUT OF RANGE FF2= ...#EXI FFFW ...) FF^G ...#STR %A FGF6 ...#STR FGYQ ...#MEN CHTABLE FHDB ...#TRA BSUJFORM%B FHY2 ... +%D FJCL ...#SKI %D FJX= ...#ALT BSUVAL = 1 FKBW ...#END FKWG ...#NOR FLB6 ...[??? BSUJFORM FLTQ ...# FM*B ...# THIS RESTORE TIME MACRO PROVIDES VALUES FMT2 ...# FOR PARAMETERS IN THE FORMULA USED BY THE FN#L ...# BACKING STORE UNJAMMER WHEN DECIDING WHICH FNS= ...# FILES TO THROW OFF-LINE. FP?W ...# SEE DESIGN SPECIFICATION DS8424 FPRG ...# FQ?6 ...#MAC BSUJFORM FQQQ ...#ALT BSUVAL = 0 FR=B ...#ALT BSUSKIP = 0 FRQ2 ... BSUJ %A,1,999,0 FS9L ... BSUJ %B,2,9,1 FSP= ... BSUJ %C,3,9,1 FT8W ... BSUJ %D,4,9,0 FTNG ...#SKI BSUSKIP FW86 ...#SKI FWMQ ...( FX7B ...#MEN CHTABLE FXM2 ...#TRA BSUJFORM1 FY6L ... +0 FYL= ... +0 F^5W ... +0 F^KG ... +0 G256 ...#END G2JQ ...#MEND BSPRUNE G34B ...#TRA K10BSPRUNE G3J2 ... BRN K11BSPRUNE G43L ...#TRA K12BSPRUNE G4H= ... BRN K13BSPRUNE G52W ...#END G5GG ...#MEND BSUNJAM G626 ...#TRA K10BSUNJAM G6FQ ... BRN K11BSUNJAM G6^B ...#END G7F2 ...#MEND BSUJSTAT G7YL ...#TRA K10BSUJSTAT G8D= ... BRN K11BSUJSTAT G8XW ...#END G9CG ...) G9X6 ...#SKI BSUSKIP G=BQ ...( G=WB ...#SKI BSUVAL G?B2 ...#SKI G?TL ...( G#*= ...!ALL PARAMETERS ARE ZERO G#SW ...#EXI G*#G ...) G*S6 ...#MEND BSPRUNE GB?Q ...#TRA K10BSPRUNE GBRB ... NULL GC?2 ...#TRA K12BSPRUNE GCQL ... NULL GD== ...#END GDPW ...#MEND BSUNJAM GF9G ...#TRA K10BSUNJAM GFP6 ... NULL GG8Q ...#END GGNB ...#MEND BSUJSTAT GH82 ...#TRA K10BSUJSTAT GHML ... NULL GJ7= ...#END GJLW ...) GK6G ...#NOR GKL6 ...# RESTORE-TIME MACRO TO CHOOSE 'MANAGER' INSTALLATION PARAMETER. GL5Q ...# %A MUST BE BETWEEN MANAGER0 AND MANAGER7 (IF BLANK, = MANAGER3). GLKB ...# THE CHOSEN I.P. IS SET TO THE MIN NO. OF DAYS OLD A FILE CAN BE BEFO GM52 ...# THE 'DEADWOOD' FEATURE OVERRIDES FORMULA FOR UNJAMMING GMJL ...# GN4= ...#MAC DEADWOOD GNHW ...#STR %A GP3G ...#STR GPH6 ...( GQ2Q ... DEADWOOD MANAGER3 GQGB ...#EXI GR22 ...) GRFL ...#STR MANAGER,%A GR^= ...#STR GSDW ...( GSYG ...#DEF MANAGER0 = 1 GTD6 ...#DEF MANAGER1 = 2 GTXQ ...#DEF MANAGER2 = 3 GWCB ...#DEF MANAGER3 = 4 GWX2 ...#DEF MANAGER4 = 5 GXBL ...#DEF MANAGER5 = 6 GXW= ...#DEF MANAGER6 = 7 GY*W ...#DEF MANAGER7 = 8 GYTG ...#UNS %A G^*6 ...( G^SQ ...#DEF 20? = %A-1 H2#B ...#MEN BSPRUNE H2S2 ...#TRA K77BSPRUNE H3?L ... SBX 4 INSTPARAM+20? H3R= ...#END H4=W ...#FRL H4QG ...#EXI H5=6 ...) H5PQ ...#FRL H69B ...) H6P2 ...! * * INVALID PARAMETER : %A H78L ...#NOR H7N= ...[ ^^^^ ...651006140094