{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DUMP-MACROS)}}
====== DUMP-MACROS ======
(George Source)
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