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