MACROS HFD8

(George Source)
22FL ...[??? TESTMODE SECT FILE FGN 22 DOC  
2C7W    #MAC TESTMODE   
2CCN ...[     TESTS FOR GIVEN MODES 
2CMG    [ ANY CHANGE TO THIS MACRO SHOULD BE MADE ONLY IN CONSULTATION WITH 
2D76    [ THE OWENR OF OPEN-MACROS  
2D9P    #SKI  A%D^A%E^A%F^A%G^A%H^A%I^A%J^A%K^A%L   
2D##    (   
2DBX    #SKI  E%D^E%E^E%F^E%G^E%H^E%I^E%J^E%K^E%L   
2DFG    !     "A" & "E" MODES BOTH GIVEN IN TESTMODE
2DJ6    )   
2DLQ          SETUPMODE 0,0,%D,%E,%F,%G,%H,%I,%J,%K,%L, 
2F6B          ANDX  0  %A   
2FL2    #STR  NOT,%C
2G5L          BNZ   0  %B   
2GK=    #STR  NOT,%C
2H4W    #SKI
2HJG          BZE   0  %B   
2J46    #NOR
2JHQ ...[??? BWZ SECT FILE FGN 22 DOC   
2KH2    #MAC           BWZ  
2KQS ...[     BWZ      BRANCHES TO %B IF WORD %A IS ZERO
2L2L          LDX   0  %A   
2LG=          BZE   0  %B   
2L^W    #NOR
2MFG ...[??? BWNZ SECT FILE FGN 22 DOC  
2NDQ    #MAC           BWNZ 
2NNJ ...[     BWNZ     BRANCHES TO %B IF WORD %A IS NON-ZERO
2NYB          LDX   0  %A   
2PD2          BNZ   0  %B   
2PXL    #NOR
2QC= ...[??? MFREEBAX SECT FILE FGN 22 DOC  
2RBG    #MAC  MFREEBAX  
2RHN ...[   
2RNW ...[     FREEBAX BLOCKS IN FULLB & FREECORE RESULTING EMPTYB   
2RW6          FREEBAX   
2S*Q          MFREEW   BSTB,EMPTYB  
2STB    #NOR
2T*2 ...[??? VFREEBAX SECT FILE FGN 22 DOC  
2W#=    #MAC  VFREEBAX  
2WFD ...[   
2WLL ...[     FREEBAX  BLOCKS IN FULLB IF PRESENT & FREECORE EMPTYB 
2WRW          HUNTW    1,BSTB,FULLB 
2X?G          BNG   1  M1VFREEBAX   
2XR6          MFREEBAX  
2Y=Q    M1VFREEBAX  
2YQB          LDX   1  FX1  
2^=2          LDX   2  FX2  
2^PL    #NOR
384Q ...[??? MFREEALL SECT FILE FGN 22 DOC  
3942    #MAC           MFREEALL 
39?S ...[     MFREEALL FREES ALL BLOCKS OF TYBE %A/%B   
39HL    M1MFREEALL  
3=3=          HUNT     1,%A,%B  
3=GW          BNG   1  M2MFREEALL   
3?2G          FREECORE 1
3?G6          BRN      M1MFREEALL   
3?^Q    M2MFREEALL  
3#FB          LDX   1  FX1  
3#^2    #NOR
3*DL ...[??? TRACEIF SECT FILE FGN 22 DOC   
3*Y=    #MAC  TRACEIF   
3BCW    #STR  %C
3BXG    (   
3CC6    #SKI  %A>%C-%C  
3CWQ    (   
3DBB          TRACEVER %D,%E
3DW2    #EXI
3F*L    )   
3FT=    )   
3G#W    #SKI  %A>%B-%B  
3GSG          TRACE    %D,%E
3H#6    #NOR
3HRQ ...[??? TRACEVER SECT FILE FGN 22 DOC  
3JR2    #MAC           TRACEVER 
3K2S ...[     TRACEVER         IS A VARIANT OF TRACE WHICH CANT BE DELAYED  
3K=L          GEO   7  %A   
3KQ=                   8H%B 
3L9W    #NOR
3LPG ...[??? BLOCKTRA SECT FILE FGN 22 DOC  
3NN2    #MAC           BLOCKTRACE   
3NRX ...[     BLOCKTRACE       TRACES [%C] WORDS OF BLOCK %A + SOME RED TAPE
3NXS ...[                      %B IS THE CHARACTER STRING (%A IS A I. R.)   
3P3P ...[                      %C IS OPTIONALLY ALOGLEN(%A) 
3P7L          STO   %A BATEMAN1 
3PM=    #STR  %C
3Q6W    (   
3QLG          SMO      %C   
3R66          LDN   0  A1-ATYPE 
3RKQ    )   
3S5B    #STR  %C
3SK2    #STR
3T4L    (   
3TJ=          SMO      ALOGLEN(%A)  
3W3W          LDN   0  A1-ATYPE 
3WHG    )   
3X36    M1BLOCKTRA  
3XGQ          GEO   7  ATYPE(%A)
3Y2B                   8H%B 
3YG2          ADN   %A 1
3Y^L          BCT   0  M1BLOCKTRA   
3^F=          LDX   %A BATEMAN1 
3^YW    #NOR
42DG ...[??? TESTREAM SECT FILE FGN 22 DOC  
4==G    #MAC  TESTREAM  
4=Q6          TESTMULT %A   
4?9Q    #NOR
4?FJ ...[??? TESTMULT SECT FILE FGN 22 DOC  
4?PB    #MAC  TESTMULT  
4#92          LDX   2  FX2  
4#NL          JBS      %A,FILERING(2),BAMULT
4*8=    #NOR
4*MW ...[??? WKSFILE SECT FILE FGN 22 DOC   
4BM6    #MAC  WKSFILE   
4C6Q     MOD  LDN   2  FILERING,%A  
4CLB          STO   2  GEN2 
4D62    M1WKSFILE   
4DKL          LDX   2  FPTRF(2) 
4F5=          BXE   2  GEN2,M2WKSFILE   
4FJW          SMO      FBACKPOINT(2)
4G4G          LDX   1  BPTR(2)  
4GJ6          JMBAC    M1WKSFILE,1,BFDIR,BFVSF,BFCARE   
4H3Q          LDX   1  FX1  
4HHB          LDX   2  FX2  
4J32          BRN      %B   
4JGL    M2WKSFILE   
4K2=          LDX   1  FX1  
4KFW          LDX   2  FX2  
4K^G    #NOR
4LF6 ...[??? TINYMULT SECT FILE FGN 22 DOC  
4MDB    #MAC  TINYMULT  
4MKJ ...[     MEND MACRO TO LIMIT MULTIFILES TO %A BLOCKS PER COMPONENT,WITH %B 
4MQQ ...[     AS MAX NO OF COMPONENTS   
4MRC ...#DEF 20?=1  
4MS4 ...#UNS FSHB   
4MSP ...#DEF 20?=0  
4MTB ...#UNS FSHTEST
4MW3 ...#DEF 20?=1  
4MWN ...#SKI 20?
4MX* ...(   
4MY2    #SKI  %A
4NCL    (   
4NX=    #MEN  USERONE   
4PBW    #TRA  K50USERONE
4PWG          LDN   4  %A   
4QB6    #END
4QTQ    #MEN  USEROPEN  
4R*B    #TRA  K50USEROPEN   
4RT2          LDN   4  %A   
4S#L    #END
4SS=    )   
4T?W    #SKI  %B
4TRG    (   
4W?6    #MEN  COMPOST   
4WQQ    #TRA  K50COMPOST
4X=B          LDN   4  %B   
4XQ2    #END
4Y9L    #SKI  COPYMK8   
4YP=    (   
4^8W    #MEN  COPYA 
4^NG    #TRA  K50COPYA  
5286    )   
52MQ    #SKI  COPYMK8<1$1   
537B    (   
53M2    #MEN  COPY  
546L    #TRA  K50COPY   
54L=    )   
555W          SBN   3  %B   
55KG    #END
5656    )   
56#Y ...)   
56JQ    #NOR
574B ...[??? READIR SECT FILE FGN 22 DOC
592W    #MAC  READIR
59=N ...[     MEND MACRO ALLOWS NAMED USER(S) TO READ ANY DIRECTORY 
59GG    #STR  %A%B%C%D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X, 
5=26    (   
5=FQ    #STR  %A,   
5=^B    (   
5?F2    #STR  :,%A  
5?YL    (   
5#D=    #STR  MANAGER,%A
5#XW    (   
5#^S ...#UNS  FTS2  
5*3Q ...#DEF  20?=K53USEREXCP-K55USEREXCP-48
5*5N ...#UNS  FTS2  
5*7L ...#SKI
5*9J ...#DEF  20?=K53USEROPEN-K55USEROPEN-48
5*?G ...#SKI  20?   
5**D ...(   
5*CG ...#UNS  FTS2  
5*X6 ...#SKI
5BBQ    #MEN  USEROPEN  
5BFW ...#UNS  FTS2  
5BK2 ...#MEN  USEREXCP  
5BN6 ...#UNS  FTS2  
5BR= ...#SKI
5BWB    #TRA  K53USEROPEN   
5C3J ...#UNS  FTS2  
5C8Q ...#TRA  K53USEREXCP   
5CB2                   12H%A
5CTL    #END
5D2S ...#UNS  FTS2  
5D82 ...#SKI
5D*= ...#ALT K53USEROPEN=0? 
5DDB ...#UNS  FTS2  
5DHG ...#ALT K53USEREXCP=0? 
5DLL ...#UNS  FTS2  
5DPQ ...#SKI
5DSW    #MEN  USEROPEN  
5DY2 ...#UNS  FTS2  
5F36 ...#MEN  USEREXCP  
5F6= ...#UNS  FTS2  
5F9B ...#SKI
5F#G    #TRA  K54USEROPEN   
5FCL ...#UNS  FTS2  
5FGQ ...#TRA  K54USEREXCP   
5FKW ...#UNS  FTS2  
5FP2 ...#SKI
5FS6          LDN   4  K53USEROPEN-K55USEROPEN/3
5F^# ...#UNS  FTS2  
5G6G ...      LDN   4  K53USEREXCP-K55USEREXCP/3
5G?Q    #END
5GRB     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
5H?2    #EXI
5KP6    )   
5KXB ...! READIR TABLE FULL - %A IGNORED
5L5L ...#EXI
5L?W ...)   
5LG6 ...! READIR - %A ALREADY ALLOWED   
5LNB     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
5M82    #EXI
5MML    )   
5N7= ...! READIR - ":" REDUNDANT
5NLW     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
5P6G    #EXI
5PL6    )   
5Q5Q ...! READIR - NULL PARAMETER   
5QKB     READIR %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V  
5R52    #EXI
5RJL    )   
5S4=    #NOR
5SFL ...[??? BSCLEAR SECT FILE FGN 22 DOC   
5SX2 ...#MAC  BSCLEAR   
5T#B ...[MEND MACRO TO ZEROIZE BS FOR RANDOM FILES FOR SECURITY PURPOSES
5TPQ ...#MEN  CREATE
5W76 ...#TRA  BSCLEARX  
5WJG ...      NULL  
5W^W ...#TRA  BSCLEARY  
5XC= ...      NULL  
5XSL ...#END
5Y=2 ...#MEN  EDSTART   
5YMB ...#TRA  BSCLEARZ  
5^4Q ...      NULL  
5^G6 ...#END
5^XQ    #NOR
627J ...[??? INPUTFUL SECT FILE FGN 22 DOC  
62CB    #MAC  INPUTFULL 
62X2          SMO      FX1  
63BL          LDX   0  M1INPUTFULL  
63W=          SMO      FX2  
64*W          STO   0  ACOMMUNE1
64TG          DOWN      INRESTAR,3  
65*6    M1INPUTFULL    +%C  
65SQ          BRN      %A   
66#B          BRN      %B   
66S2    #NOR
66^8 ...[??? LISTMAX SECT FILE FGN 22 DOC   
676C ...#MAC  LISTMAX   
67DS ...#SKI  (%A>511-511)^(%A<1-1)<1-1 
67R= ...(   
68=W ...#MEN  COMPOST   
68QG ...#TRA  K98COMPOST
69=6 ...      SBN   0  %A+1 
69PQ ...#END
6=9B ...#MEN  USERSTRM  
6=P2 ...#TRA  K98USERSTRM   
6?8L ...      SBN   0  %A   
6?N= ...#END
6#7W ...#EXI
6#MG ...)   
6*76 ...!  LISTMAX REJECTED - PARAMETER OUT OF RANGE
6*LQ ...#CON LISTMAX REJECTED - PARAMETER OUT OF RANGE  
6B6B ...#NOR
6BL2 ...[??? JFREZFCB SECT FILE FGN 22 DOC  
6CK= ...#MAC  JFREZFCB  
6D4W ...[   
6DJG ...[  %A=POINTER TO FCB.   
6F46 ...[  %B=LABEL TO JUMP TO IF FILE IS USER-FROZEN AND USER MAY NOT  
6FHQ ...[     ACCESS IT. SETS A SUITABLE ERROR REPLY,OR OK IF DOES NOT  
6G3B ...[     JUMP. 
6GH2 ...      JBC      MJFREZFCB,%A,BFUSERFREZ  
6GL6 ...#STR  %C
6GP= ...      DOWN     USEREXCP,2   
6GSB ...#STR  %C
6GXG ...#SKI
6H2L ...      DOWN     USEREXCP,1   
6HG= ...      BRN      %B   
6H^W ...MJFREZFCB   
6JFG ...#NOR
6J^6 ...[??? FHDIROPT SECT FILE FGN 22 DOC  
6KDQ ...#MAC  FHDIROPT  
6KYB ...#STR  %A,NOWRITE
6LD2 ...#SKI
6LXL ...(   
6MC= ...#MEN  FHOBJ 
6MWW ...#TRA  K98FHOBJ  
6NBG ...      #50200000 
6NW6 ...#END
6P*Q ...#EXI
6PTB ...)   
6Q*2 ...#STR  %A,NORMAL 
6QSL ...#SKI
6R#= ...(   
6RRW ...#MEN  FHOBJ 
6S?G ...#TRA  K98FHOBJ  
6SR6 ...      #56200000 
6T=Q ...#END
6TQB ...#MEN  FHOBJDIR  
6W=2 ...#TRA  K98FHOBJDIR   
6WPL ...      BZE   0  K97FHOBJDIR  
6X9= ...#END
6XNW ...#MEN  FHDIRTWO  
6Y8G ...#TRA  K98FHDIRTWO   
6YN6 ...      NULL  
6^7Q ...#END
6^MB ...#EXI
7272 ...)   
72LL ...#STR  %A,NOINCCHECK 
736= ...#SKI
73KW ...(   
745G ...#MEN  FHOBJ 
74K6 ...#TRA  K98FHOBJ  
754Q ...      #56200000 
75JB ...#END
7642 ...#MEN  FHOBJDIR  
76HL ...#TRA  K98FHOBJDIR   
773= ...      BRN      K97FHOBJDIR  
77GW ...#END
782G ...#MEN  FHDIRTWO  
78G6 ...#TRA  K98FHDIRTWO   
78^Q ...      BRN      K97FHDIRTWO  
79FB ...#END
79^2 ...#EXI
7=DL ...)   
7=Y= ...! FHDIROPT - INVALID PARAMETER  
7?CW ...#NOR
7?XG ...[???? LOGACCESS SECT FILE FGN 22 DOC
7#C6 ...#MAC           LOGACCESS
7#WQ ...#STR  %B
7*BB ...      ACCSTO   %B,ACOMMUNE1,FX2 
7*W2 ...      LDN   0  %A   
7B*L ...      LDX   2  FX2  
7BT= ...      STO   0  ACOMMUNE2(2) 
7C#W ...      JBS      MLOG,,JLOGALL
7CSG ...      TOPFCB2  1
7D#6 ...      JBS      MLOG,1,BFLOGACC  
7DRQ ...      MHUNT      1,FILE,ENT 
7F?B ...      JBC      MEND,1,BELOGACC  
7FR2 ...MLOG
7G=L ...      DOWN     LOGACC,1 
7GQ= ...MEND  LDX   1  FX1  
7H9W ...#NOR
7HPG ...[????LOGAUT SECT FILE FGN 22 DOC
7J96 ...#MAC           LOGAUT   
7JNQ ...#STR OFF,%A 
7K8B ...#SKI
7KN2 ...(   
7L7L ...#MEN LOGACC 
7LM= ...#TRA K50LOGACC  
7M6W ...    MONOUT   JLOGACC,,NONAUT
7MLG ...    BRN      K51LOGACC  
7N66 ...#END
7NKQ ...)   
7P5B ...#STR OFF,%A 
7PK2 ...(   
7Q4L ...#STR %A 
7QJ= ...! %A MAY ONLY BE 'OFF'  
7R3W ...#STR %A 
7RHG ...#SKI
7S36 ...(   
7SGQ ...#MEN LOGACC 
7T2B ...#TRA K50LOGACC  
7TG2 ...    MONOUT    JLOGACC   
7T^L ...    BRN       K51LOGACC 
7WF= ...#END
7WYW ...)   
7XDG ...)   
7XY6 ...#NOR
7YCQ ...[????LOGALL SECT FILE FGN 22 DOC
7YXB ...#MAC       LOGALL   
7^C2 ...#STR OFF,%A 
7^WL ...#SKI
82B= ...  RESOFF JLOGALL
82TW ...#STR OFF,%A 
83*G ...(   
83T6 ...#STR %A 
84#Q ...! %A MAY ONLY BE 'OFF'  
84SB ...#STR %A 
85#2 ...#SKI
85RL ...  RESON JLOGALL 
86?= ...)   
86QW ...#NOR
^^^^ ...757032330044