(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