{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS LEF)}}
====== MACROS LEF ======
(George Source)
22FL ...[
22^= ...[
23DW ...[ R.T.RUSHTON
23YG ...[
24D6 ...[
26W= [CONTENTS LIST:-
27*W [
27H4 ...[ PERMACT
27N= ...[ TEMPACT
27TG [ ANOTHER
28*6 [ BUSACT
28SQ [ CLOSEOUT
29#B [ HSPACTLF
29S2 [ IFACC
2=3S ...[ LFALLTRANS
2=?L [ LFAT
2=R= [ LFBASOVERFLO
2?=W [ LFBBS
2?QG [ LFBBUS
2#=6 [ LFBITCLR
2#PQ [ LFBITSET
2*9B [ LFBLOCK
2*P2 [ LFCCAT
2B8L [ LFCHAIN
2BN= [ LFCHANGE
2C7W [ LFCLOSE
2CCN ...[ LFDBAID
2CMG [ LFDEBATCHERS
2D76 [ LFDEL
2DLQ [ LFEJCNT
2F6B [ LFEND
2FL2 [ LFENDTHROW
2G5L [ LFG34VT
2GK= [ LFGETPER
2H4W [ LFHUNT
2HJG [ LFKEY
2J46 [ LFLOST
2J?Y ...[ LFMAX
2JHQ [ LFMULT
2K3B [ LFNOTFIN
2KH2 [ LFPACTLF
2L2L [ LFPAPERSAVE
2LG= [ LFPRINT
2L^W [ LFRECNUM
2MFG [ LFTHAW
2M^6 [ LFTHROW
2NDQ [ LFUIJPC
2NYB [ LPLOOP
2PD2 [ OFFLTEST
2PXL [ OPENSOUT
2QWW [ POINTACT
2RBG [ PROPERTY
2RW6 [ PROPUSE
2S*Q [ SETENTRY
2STB [ STARTACT
2T*2 [ STOPACT
2W#= [ TIDYOUT
2WRW [ UNBUSACT
2X?G [
2XR6 [END OF LIST.
2Y=Q [
2Y?8 ...[??? PERMACT SECT DEVT FGN 2 DOC
2Y?L ...#MAC PERMACT
2Y#6 ...#OPT G%AACT=1 [GENERAL SKIPPING IDENTIFIER
2Y#S ...#SKI G%AACT
2Y*G ...(
2YB8 ...#STR %A,SJ
2YBW ...#SKI
2YCJ ...#OPT BSJACT=JSJPTR
2YD= ...)
2YDY ...#NOR
2YF? ...[??? TEMPACT SECT DEVT FGN 2 DOC
2YFL ...#MAC TEMPACT
2YG# ...#OPT G%AACT=0
2YH2 ...#SKI 1-G%AACT
2YHN ...(
2YJB ...#STR %A,SJ
2YK4 ...#OPT BSJACT=0
2YKQ ...#STR %A,RET [FLAG BITS
2YLD ...#OPT BRETACT=1
2YM6 ...#STR %A,OUT
2YMS ...#OPT BOUTACT=2
2YNG ...)
2YP8 ...#NOR
2YPR ...[??? ANOTHER SECT DEVT FGN 2 DOC
2YQB #MAC ANOTHER
2^=2 [ THIS MACRO CREATES AN EXACT COPY OF A GIVEN BLOCK %A/%B.
2^PL [
329= #STR %C
32NW #SKI
338G (
33N6 #STR %B
347Q MHUNT 3,%A,%B
34MB #STR %B
3572 #SKI
35LL MHUNT 3,%A
366= )
36KW #STR %C
375G (
37K6 #STR %C,3
384Q LDX 3 %C
38JB )
3942 CALL 5 M2ANOTHER
39HL BRN M3ANOTHER
3=3= #STR %B
3=GW MHUNT 3,%A,%B
3?2G #STR %B
3?G6 #SKI
3?^Q MHUNT 3,%A
3#FB CALL 5 M4ANOTHER
3#^2 M3ANOTHER
3*DL #STR %B
3*Y= NAME 2,%A,%B
3BCW #STR %B
3BXG #SKI
3CC6 NAME 2,%A
3CWQ #OPT M1ANOTHER=1
3DBB #SKI M1ANOTHER
3DW2 (
3F*L BRN M5ANOTHER
3FT= MANOTHER
3G#W SBX 5 FX1
3GSG LDX 7 ALOGLEN(3)
3H#6 PHOTO 4
3HRQ GETCORE 7,1
3J?B FINDCORE 2
3JR2 ADX 5 FX1
3K=L TESTMOVE 4,M4ANOTHER
3KQ= EXIT 5 1
3L9W MBANOTHER
3LPG LDN 1 A1(2)
3M96 LDN 0 A1(3)
3MNQ SMO ALOGLEN(3)
3N8B MOVE 0 0
3NN2 LDX 1 FX1
3P7L EXIT 5 0
3PM= M5ANOTHER
3Q6W #DEF M2ANOTHER=MANOTHER
3QLG #DEF M4ANOTHER=MBANOTHER
3R66 #FRE M1ANOTHER
3RKQ #DEF M1ANOTHER=0
3S5B )
3SK2 #NOR
3SSS ...[??? BUSACT SECT DEVT FGN 2 DOC
3T4L #MAC BUSACT
3TJ= #SKI G%AACT
3W3W (
3WHG LDXC 0 B%AACT
3X36 BCS %B
3XGQ )
3Y2B #SKI 11-1
G65L SEGENTRY K2%A,%B2
G6K= #SKI %C>2-2
G74W SEGENTRY K3%A,%B3
G7JG #SKI %C>3-3
G846 SEGENTRY K4%A,%B4
G8HQ #SKI %C>4-4
G93B SEGENTRY K5%A,%B5
G9H2 #SKI %C>5-5
G=2L SEGENTRY K6%A,%B6
G=G= #SKI %C>6-6
G=^W SEGENTRY K7%A,%B7
G?FG #SKI %C>7-7
G?^6 SEGENTRY K8%A,%B8
G#DQ #SKI %C>8-8
G#YB SEGENTRY K9%A,%B9
G*D2 #SKI %C>9-9
G*XL SEGENTRY K10%A,%B10
GBC= #SKI %C>10-10
GBWW SEGENTRY K11%A,%B11
GCBG #SKI %C>11-11
GCW6 SEGENTRY K12%A,%B12
GD*Q #NOR
GDKJ ...[??? STARTACT SECT DEVT FGN 2 DOC
GDTB #MAC STARTACT
GF2J ...#STR %A,RET
GF7Q ...(
GF*2 #STR %B
GFSL (
GG#= #OPT M1STARTACT=1
GGRW CALL %B M2STARTACT
GH?G #SKI M1STARTACT
GHR6 (
GJ=Q BRN M3STARTACT
GJQB MSTARTACT
GK=2 )
GKPL )
GL9= #STR %B
GLNW #SKI M1STARTACT
GM8G (
GMN6 #STR %B
GN7Q SBX %B FX1
GNMB #SKI G%AACT
GP72 #SKI
GPLL (
GQ6= BBUS B%AACT,FLAGACT,M7STARTACT
GQKW FLIPS FLAGACT,B%AACT
GR5G BRN M5STARTACT
GRK6 M6STARTACT
GS4Q PAIR %E,%F
GSJB M5STARTACT
GT42 GETACT %C,%D
GTHL LDX 2 BPTR(2)
GW3= LDX 0 M6STARTACT(1)
GWGW STO 0 ALINK1(2)
GX2G LDX 0 M6STARTACT+1(1)
GXG6 STO 0 ALINK2(2)
GX^Q FPUT
GYFB M7STARTACT
GY^2 LDX 1 FX1
G^DL )
G^Y= #SKI G%AACT
H2CW (
H2XG LDX 2 B%AACT
H3C6 BNG 2 M7STARTACT
H3WQ ORX 2 GSIGN
H4BB STO 2 B%AACT
H4W2 ERX 2 GSIGN
H5*L FPUT
H5T= M7STARTACT
H6#W )
H6SG LDX 2 FX2
H7#6 #STR %B
H7RQ (
H8?B ADX %B FX1
H8R2 EXIT %B 0
H9=L )
H9Q= M3STARTACT
H=9W )
H=PG #STR %B
H?96 (
H?NQ #SKI M1STARTACT
H#8B (
H#N2 #FRE M1STARTACT
H*7L #DEF M2STARTACT=MSTARTACT
H*M= #DEF M1STARTACT=0
HB6W )
HBLG )
HBPL ...)
HBSQ ...#STR %A,RET
HBXW ...#STR
HC32 ... LONGON #170 [WAKE UP DUMP TAPE SCHEDULER
HC66 #NOR
HC*Y ...[??? STOPACT SECT DEVT FGN 2 DOC
HCKQ #MAC STOPACT
HD5B #SKI G%AACT
HDK2 #SKI
HF4L (
HFJ= FLIPS FLAGACT,B%AACT
HG3W SUICIDE
HGHG )
HH36 #SKI G%AACT
HHGQ (
HJ2B LDX 0 FX2
HJG2 STO 0 B%AACT
HJ^L #STR %B
HKF= (
HKRM ... LDX 1 FX1
HL64 ... LINKSET FX2,%B(1)
HLDG COOR1X
HLY6 )
HMCQ #STR %B
HMXB #SKI
HNC2 COOR1
HNWL )
HPB= #NOR
HPTW ...[??? TIDYOUT SECT DEVT FGN 2 DOC
HYNL #MAC TIDYOUT
H^8= #OPT M1TIDYOUT=1
H^MW #STR %A
J27G CALL %A M2TIDYOUT
J2M6 #STR %A
J36Q #SKI
J3LB CALL 2 M2TIDYOUT
J462 #SKI M1TIDYOUT
J4KL (
J55= BRN M3TIDYOUT
J5JW MTIDYOUT
J64G HUNTW 1,GOUT,INFO
J6J6 BNG 1 M4TIDYOUT
J73Q FREECORE 1
J7HB BRN MTIDYOUT
J832 M4TIDYOUT
J8GL HUNTW 1,GOUT,INFO2
J92= BNG 1 M3TIDYOUT
J9FW FREECORE 1
J9^G M3TIDYOUT
J=F6 LDX 1 FX1
J=YQ #STR %A
J?DB EXIT %A 0
J?Y2 #STR %A
J#CL #SKI
J#X= EXIT 2 0
J*BW #FRE M1TIDYOUT
J*WG #DEF M1TIDYOUT=0
JBB6 #DEF M2TIDYOUT=MTIDYOUT
JBTQ )
JC*B #NOR
JCK8 ...[??? UNBUSACT SECT DEVT FGN 2 DOC
JCT2 #MAC UNBUSACT
JD#L #SKI G%AACT
JDS= (
JF?W LDXC 0 B%AACT
JFRG BCC %B
JG?6 )
JGQQ #SKI 1