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