(George Source)
22FL ...[??? GRINDEX SECT FILE FGN 9 DOC 2=?L # 2=R= #MAC GRINDEX 2?=W #STR M,%A 2?QG ( 2#=6 #STR %A 2#PQ ( 2*9B LDN 0 %A 2*P2 SMO FX2 2B8L STO 0 ACOMMUNE9 2BN= DOWN BMINDEX,1 2C7W ) 2CMG #STR %A 2D76 #SKI 2DLQ DOWN BMINDEX,11 2F6B ) 2FL2 #STR M,%A 2G5L #SKI 2GK= DOWN BMINDEX,3 2H4W #NOR 2H#N ...[??? BMINDEX SECT FILE FGN 9 DOC 2HJG #MAC BMINDEX 2J46 #ACC %A 2JHQ LDX 0 %A 2K3B SMO FX2 2KH2 #ACC %A 2L2L STO 0 ACOMMUNE9 2LG= #ACC %A 2L^W #SKI 2MFG STO %A ACOMMUNE9 2M^6 DOWN BMINDEX,2 2NDQ #NOR 2NFD ...#MAC REINDEX 2NG6 ...#STR %A 2NGS ... LDN 0 %A 2NHG ...#STR %A 2NJ8 ...#SKI 2NJW ... LDN 0 INDEXDIR 2NKJ ... SMO FX2 2NL= ... STO 0 ACOMMUNE9 2NLY ... DOWN BMINDEX,4 2NML ...#NOR 2NNJ ...[??? FINDEXB SECT FILE FGN 9 DOC 2NYB #MAC FINDEXB 2PD2 SFSTACK %A,%B,%B 2PXL M1FINDEXB 2QC= LDX %B FPTR(%B) 2QWW LDX 0 ATYPE(%B) 2RBG SMO FX1 2RW6 BXE 0 M2FINDEXB,M3FINDEXB 2S*Q BXU 0 FILEPLUSFCB,M1FINDEXB 2STB GEOERR 1,NOFINDEX 2T*2 M2FINDEXB 2TSL #HAL FI+FINDEXF,0 2W#= M3FINDEXB 2WRW #NOR 2X3N ...[??? FFINDEXB SECT FILE FGN 9 DOC 2X?G #MAC FFINDEXB 2XR6 # THIS MACRO PINDS THE FINDEXB BLOCK GIVEN %A -> FCA 2Y=Q PSTAC %B,%A 2YQB M1FFINDEXB 2^=2 LDX %B FPTR(%B) 2^PL #SKI IFS<1$1 329= BXE %B CXFI,M2FFINDEXB 32NW LDX 0 ATYPE(%B) 338G SMO FX1 33N6 BXE 0 M3FFINDEXB,M4FFINDEXB 347Q BXU 0 FILEPLUSFCB,M1FFINDEXB 34MB M2FFINDEXB 3572 GEOERR 1,FINDEX?? 35LL M3FFINDEXB 366= #HAL FI+FINDEXF,0 36KW M4FFINDEXB 375G #NOR 37*# ...[??? XLOADKEY SECT FILE FGN 9 DOC 37K6 #MAC XLOADKEY 384Q [ USED BY KEYREC. %A IS INSTRUCTION MNEMNONIC,%B IS A LOCATION TO 38JB [ STORE THE CONTENTS OF %C APPROPRIATELY MODIFIED INTO,IF MISSING 3942 [ ASSUMED X0,%C IS AN IDENTIFIER,IF %D PRESENT,X1 IS THE MODIFIER, 39HL [ IF ABSENT,SUB.A1 FROM %C & USE %E AS MODIFIER. 3=3= #STR %D 3=GW ( 3?2G #STR %B 3?G6 #STR 3?^Q %A 0 %C(1) 3#FB #STR %B 3#^2 ( 3*DL #ACC %B 3*Y= ( 3BCW %A 0 %C(1) 3BXG ) 3CC6 #ACC %B 3CWQ #STR 3DBB %A %B %C(1) 3DW2 ) 3F*L ) 3FT= #STR %D 3G#W #STR 3GSG ( 3H#6 #STR %B 3HRQ #STR 3J?B %A 0 %C-A1(%E) 3JR2 #STR %B 3K=L ( 3KQ= #ACC %B 3L9W ( 3LPG %A 0 %C-A1(%E) 3M96 ) 3MNQ #ACC %B 3N8B #STR 3NN2 %A %B %C-A1(%E) 3P7L ) 3PM= ) 3Q6W #NOR 3QBN ...[??? KEYREC SECT FILE FGN 9 DOC 3QLG #MAC KEYREC 3R66 [ 3RKQ [ PARAMETERS 3S5B [ 3SK2 [ %A POINTS TO THE FCB OF THE FILE TO WHICH THE RECORD BELONGS 3T4L [ %B (OPTIONAL) IS THE TYPE OF THE CORE BLOCK CONTAINING THE 3TJ= [ RECORD 3W3W [ %C IF %B GIVEN - SUBTYPE OF ABOVE BLOCK 3WHG [ IF %B ABSENT - POINTS TO FRH OF THE RECORD 3X36 [ %D LABEL TO BRANCH TO IF(1) FILE NOT INDEXED 3XGQ [ (2) RECORD NOT KEYED 3Y2B [ %E (OPTIONAL) IS A LOCATION TO STORE THE KEY IN. 3YG2 [ 3Y^L #STR %B 3^F= ( 3^YW #STR 1,%E 42DG STO 1 GEN0 42Y6 #STR 1,%E 43CQ #SKI 43XB ( 44C2 #STR 1,%A 44WL #SKI 45B= ( 45TW STO 1 GEN0 46*G ) 46T6 ) 47#Q #DEF M77BEYREC=0 47SB ) 48#2 #OPT M77BEYREC=1 48RL #SKI M77BEYREC 49?= ( 49QW #STR %E,1 4==G ( 4=Q6 STO 1 GEN0 4?9Q #FRE M77BEYREC 4?PB #OPT M77BEYREC=0 4#92 ) 4#NL ) 4*8= #STR %B 4*MW ( 4B7G MHUNTW 1,%B,%C 4BM6 #STR %A,1 4C6Q #SKI 4CLB ( 4D62 SMO GEN0 4DKL LDX 0 FINFC 4F5= ) 4FJW ) 4G4G #STR %B 4GJ6 #STR %A,1 4H3Q LDX 0 FINFC(%A) 4HHB ANDN 0 #77 4J32 ADX 0 FX1 4JGL EXIT 0 1+0? 4K2= BRN %D 4KFW BRN M1KEYREC 4K^G BRN M2KEYREC 4LF6 BRN M3KEYREC 4LYQ BRN M4KEYREC 4MDB BRN M5KEYREC 4MY2 BRN M6KEYREC 4NCL BRN M7KEYREC 4NX= M99KEYREC 4PBW GEOERR 1,KEYREC? 4PWG #STR %E 4QB6 #SKI 4QTQ ( 4R*B M7KEYREC 4RT2 XLOADKEY LDX,,A1+1,%B,%C 4S#L BNG 0 %D 4SS= BRN M80KEYREC 4T?W M5KEYREC 4TRG XLOADKEY LDX,,GOUTYPE,%B,%C 4W?6 BXU 0 GSIGN,%D 4WQQ BRN M80KEYREC 4X=B M1KEYREC 4XQ2 XLOADKEY LDX,,ERES,%B,%C 4Y9L BNZ 0 %D 4YP= XLOADKEY LDX,,EREC,%B,%C 4^8W SBN 0 FRDE 4^NG BNZ 0 M99KEYREC 5286 M80KEYREC 52MQ M2KEYREC 537B M3KEYREC 53M2 M4KEYREC 546L M6KEYREC 54L= #SKI M77BEYREC$1 555W LDX 1 GEN0 55KG ) 5656 #STR %E 56JQ ( 574B M7KEYREC 57J2 XLOADKEY LDX,,A1+1,%B,%C 583L BNG 0 %D 58H= XLOADKEY LDN,1,JLJOBNAME+A1,%B,%C 592W BRN M81KEYREC 59GG M6KEYREC 5=26 XLOADKEY LDX,%E,JLJOBNO+A1,%B,%C 5=FQ #ACC %E 5=^B BPZ 0 M80KEYREC 5?F2 #ACC %E 5?YL #SKI 5#D= BPZ %E M80KEYREC 5#XW STOZ %E 5*CG BRN M82KEYREC 5*X6 M5KEYREC 5BBQ XLOADKEY LDX,,GOUTYPE,%B,%C 5BWB BXU 0 GSIGN,%D 5CB2 XLOADKEY LDX,%E,GOUTKEY1,%B,%C 5CTL BRN M80KEYREC 5D*= M4KEYREC 5DSW XLOADKEY LDX,%E,AINCNO,%B,%C 5F#G BRN M80KEYREC 5FS6 M3KEYREC 5G?Q XLOADKEY LDX,%E,A1+1,%B,%C 5GRB #ACC %E 5H?2 ( 5HQL M80KEYREC 5J== STO 0 %E 5JPW ) 5K9G BRN M82KEYREC 5KP6 M2KEYREC 5L8Q XLOADKEY LDN,1,CUSER,%B,%C 5LNB BRN M81KEYREC 5M82 M1KEYREC 5MML XLOADKEY LDX,,ERES,%B,%C 5N7= BNZ 0 %D 5NLW XLOADKEY LDX,,EREC,%B,%C 5P6G SBN 0 FRDE 5PL6 BNZ 0 M99KEYREC 5Q5Q XLOADKEY LDN,1,ELOC1,%B,%C 5QKB M81KEYREC 5R52 SUM 0 3 5RJL #STR %E,0 5S4= STO 0 %E 5SHW #ACC %E 5T3G #SKI 5TH6 M80KEYREC 5W2Q M82KEYREC 5WGB #STR %E,1 5X22 LDX 1 GEN0 5XFL ) 5X^= #FRE M77BEYREC 5YDW #NOR 5YNN ...[??? KEYRECI SECT FILE FGN 9 DOC 5YYG # 5^D6 [ 5^XQ #MAC KEYRECI 62CB [ THIS MACRO CALCULATES THE KEY OF A GIVEN RECORD OF A FILE,BRANCHING 62X2 [ TO %D IF RECORD HAS NO KEY. PARAMETERS ARE AS FOR KEYREC MACRO EXCEPT 63BL [ CONTAINS THE INDEXNUM OF THE FILE . ALSO X1 CANNOT BE USED AS A PARAME 63W= #STR %B 64*W MHUNTW 1,%B,%C 64TG #STR %A,0 65*6 LDX 0 %A 65SQ ADX 0 FX1 66#B EXIT 0 1+0? 66S2 BRN %D 67?L BRN M1KEYRECI 67R= BRN M2KEYRECI 68=W BRN M3KEYRECI 68QG BRN M4KEYRECI 69=6 BRN M5KEYRECI 69PQ BRN M6KEYRECI 6=9B BRN M7KEYRECI 6=P2 M99KEYRECI 6?8L GEOERR 1,KEYREC? 6?N= M7KEYRECI 6#7W XLOADKEY LDX,,A1+1,%B,%C 6#MG BNG 0 %D 6*76 XLOADKEY LDN,1,JLJOBNAME+A1,%B,%C 6*LQ BRN M81KEYRECI 6B6B M6KEYRECI 6BL2 XLOADKEY LDX,%E,JLJOBNO+A1,%B,%C 6C5L #ACC %E 6CK= BPZ 0 M80KEYRECI 6D4W #ACC %E 6DJG #SKI 6F46 BPZ %E M80KEYRECI 6FHQ STOZ %E 6G3B BRN M82KEYRECI 6GH2 M5KEYRECI 6H2L XLOADKEY LDX,,GOUTYPE,%B,%C 6HG= BXU 0 GSIGN,%D 6H^W XLOADKEY LDX,%E,GOUTKEY1,%B,%C 6JFG BRN M80KEYRECI 6J^6 M4KEYRECI 6KDQ XLOADKEY LDX,%E,AINCNO,%B,%C 6KYB BRN M80KEYRECI 6LD2 M3KEYRECI 6LXL XLOADKEY LDX,%E,A1+1,%B,%C 6MC= #ACC %E 6MWW ( 6NBG M80KEYRECI 6NW6 STO 0 %E 6P*Q ) 6PTB BRN M82KEYRECI 6Q*2 M2KEYRECI 6QSL XLOADKEY LDN,1,CUSER,%B,%C 6R#= BRN M81KEYRECI 6RRW M1KEYRECI 6S?G XLOADKEY LDX,,ERES,%B,%C 6SR6 BNZ 0 %D 6T=Q XLOADKEY LDX,,EREC,%B,%C 6TQB SBN 0 FRDE 6W=2 BNZ 0 M99KEYRECI 6WPL XLOADKEY LDN,1,ELOC1,%B,%C 6X9= M81KEYRECI 6XNW SUM 0 3 6Y8G #STR %E,0 6YN6 STO 0 %E 6^7Q #ACC %E 6^MB #SKI 7272 M80KEYRECI 72LL M82KEYRECI 736= #NOR 73B4 ...[??? BRINDEX SECT FILE FGN 9 DOC 73KW [ 782G #MAC BRINDEX 783X ...[ THIS MACRO BRANCHES TO %B UNINDEXED 785# ...[ %C FOR DIRS 786P ...[ %D FOR DICT #IF %D EJ AL MISSING,ASSU-* 7886 ...[ %E FOR SERIAL #UMES ALL SAME 789H ...[ %F FOR INCINDEX 78=Y ...[ %G FOR SYSOUT 78#* ...[ %H FOR :SYSTEM.JOBLIST 78*Q ...[ %I FOR JOBLIST(****) FILES 78C7 ...[ %A (LS 6BITS) CONTAINS THE KEY NUMBER 78DJ ...[ 78G6 #STR %A 78^Q ( 79FB #STR %A,0 79^2 LDX 0 %A 7=DL ) 7=Y= ANDN 0 #77 7?CW #STR %D 7?XG ( 7#C6 ADX 0 FX1 7#WQ EXIT 0 1+0? 7*BB BRN %B 7*W2 BRN %C 7B*L BRN %D 7BT= BRN %E 7C#W BRN %F 7CSG BRN %G 7D#6 BRN %H 7DRQ BRN %I 7F?B ) 7FR2 #STR %D 7G=L #SKI 7GQ= ( 7H9W BZE 0 %B 7HPG #STR %C 7J96 BRN %C 7JNQ ) 7K8B #NOR ^^^^ ...56006771001100000000