{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS SFC)}}
====== MACROS SFC ======
(George Source)
22FL #MAC STDP
22^= #STR %A
23DW (
23YG #STR %A,ON
24D6 (
24XQ #STR %A,OFF
25CB (
25X2 ! PARAMETER MUST BE ON OR OFF
26BL #EXI
26W= )
27*W #MEN COOR
27TG #TRA INOSTDPCOOR
28*6 ... BRN INOSTDP1
28SQ #END
29#B #EXI
29S2 )
2=?L )
2=R= #MEN COOR
2?=W #TRA INOSTDPCOOR
2?QG ... MBI 2,JBBEING,JBSI
2#=6 #END
2#PQ #NOR
2*9B #MAC CASFID
2*P2 #SKI 22?
2B8L (
2BN= #ALT 22?=22?-1
2C7W #TRA 21?/4+CASTAB+1
2CMG #FID 21?&3*6,21?&3*6+5,20?
2D76 #ALT 21?=21?+1
2DLQ #TRA CASMID+20?
2F6B +23?
2FL2 CASFID
2G5L )
2GK= #NOR
2H4W #MAC SFC
2HJG #STR %A,ON
2J46 #SKI
2JHQ (
2JW7 ... CASRDSPLIT 64,64
2K8J ... SFC 128,256,512,576,768,960,1024
2KH2 #EXI
2L2L )
2LG= #STR %A,OFF
2L^W #SKI
2MFG (
2M^6 [MENDS TO SWITCH OFF
2NDQ PMMEND FREE,0
2NFP ... PMMEND FTEM,0
2NGN ...#SKI ISFCON [ONLY DO THIS IF CODE INCLUDED
2NJL ...(
2NJS ...#MEN COREALLF
2NK2 ...#TRA K50COREALLF
2NK8 ... BRN K51COREALLF
2NK= ...#TRA K52COREALLF
2NK# ... LDN 0 1
2NKB ...#END
2NLJ ...#MEN CASCODE
2NNG ...#TRA CASTAB+15
2NQD ... +0
2NQS ...#TRA ISFCM0
2NR8 ... EXIT 0 0
2NRJ ...#TRA ISFCMLL
2NRY ... EXIT 0 0
2NSB ...#END
2NSQ ...#MEN FIXED
2NT6 ...#TRA CASTATPTR
2NTG ... +0
2NTW ...#END
2NT^ ...#MEN COREALL
2NW4 ...#TRA ISFCM1
2NW7 ... BRN ISFCM11
2NW= ...#TRA ISFCM100
2NW* ... BRN ISFCM100+2
2NWB ...#TRA ISFCM1100
2NWC ... LDX 0 2
2NWD ...#TRA ISFCM1000
2NWF ... BRN ISFCM110-1
2NWG ...#TRA ISFCM110
2NWH ... BRN ISFCM110+3
2NWJ ...#TRA ISFCM2
2NWK ... EXIT 0 0
2NWL ...#TRA ISFCM3
2NWP ... EXIT 0 0
2NWQ ...#TRA ISFCM30
2NWR ... ACROSS COREALLF,1
2NWS ...#TRA ISFCM4
2NWX ... BRN ISFCM41
2NX2 ...#TRA ISFCUNIT
2NX5 ... LDX 1 BPTR(2)
2NX8 ...#END
2NX? ...)
2NXB ...#MEN PMCRABS
2NXF ...#TRA K90PMCRABS
2NXJ ... +0,+0
2NXM ...#END
2NXQ ...#MEN PMCHAINS
2NXT ...#TRA K90PMCHAINS
2NXY ... BRN K91PMCHAINS
2NY3 ...#END
2NYB #EXI
2PD2 )
2PXL #STR %A,@
2QC= (
2QWW #MEN FIXED
2RBG #TRA CASTATPTR
2RL# ...#UNS ICASSTATS
2RW6 +CASFOUND
2S23 ...#UNS ICASSTATS
2S5Y ...#SKI
2S9T ... +0
2S*Q #END
2STB #DEF 20?=0
2T*2 #MEN CASCODE
2TSL #TRA CASTAB
2W#= #REP 16
2WRW +0
2X?G #TRA CASMID
2XR6 #REP 16
2Y=Q +0
2YQB SFC @,%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P
2^=2 [MENDS TO SWITCH ON CODE
2^PL #SKI IROUND>16-16
329= #SKI
32NW CASRDSPLIT 16
338G PMMEND FREE,3
338L ... PMMEND FTEM,3
338Q ...#UNS ISFCON
3392 ...(
339= ...#MEN COREALLF
339G ...#TRA K50COREALLF
339Q ... NULL
33=2 ... LDX 0 BFTEMP
33== ... TXU 0 CXFT
33=G ...#TRA K50COREALLF+4
33=Q ... LDX 1 BFTEMP
33?2 ... TXU 1 CXFT
33?4 ...#TRA K52COREALLF
33?6 ... LDX 0 ASFCFPTR+BPTR(2)
33?= ...#END
33*2 ...#MEN PMCRABS
33*= ...#TRA K90PMCRABS
33*G ...#HAL 25,BFTEMP
33*Q ...#HAL 26,BF64
33B2 ...#END
33B= ...#MEN PMCHAINS
33BG ...#TRA K90PMCHAINS
33BQ ... NULL
33C2 ...#TRA K90PMCHAINS+4
33C= ... 0?+34?]�^BFTEMP
33CG ...#TRA K90PMCHAINS+13
33CQ ... 0?+34?]�^BF64
33D2 ...#END
33D= ...#MEN CASCODE
33DG ...#TRA CASQUICK
33DQ ... 2*IROUND
33F2 ...#TRA ISFCM0
33F= ... STO 0 CASLNK
33FG ...#TRA ISFCMLL
33FQ ... STO 0 CASLNK
33G2 ...#END
33G= ...#MEN COREALL
33GG ...#TRA ISFCM1
33GQ ... TXL 1 CTOP
33H2 ...#TRA ISFCM100
33H= ... LDN 2 BFTEMP
33H? ...#TRA ISFCM1100
33H# ... BRN ISFCM110
33H* ...#TRA ISFCM1000
33HB ... LDX 1 2
33HC ...#TRA ISFCM110
33HD ... STO 2 BSOURCE
33HG ...#TRA ISFCM2
33HQ ... STO 0 CASLNK
33J2 ...#TRA ISFCM3
33J= ... STO 0 CASLNK
33J# ...#TRA ISFCM30
33JB ... ACROSS COREALLG,2
33JG ...#TRA ISFCM4
33JQ ... TXU 4 CIROUND
33K2 ...#TRA ISFCUNIT
33K= ... LDN 1 0
33KG ...#END
33KQ ...#MEN PMDR
33L2 ...#TRA JPMLEV
33L= ... +CASCODEND
33LG ...#END
33MQ ...)
33N6 #EXI
347Q )
34MB #SKI %B>1024-1024
3572 (
35LL #END
366= ! WRONG PARAMETER
36KW SFC OFF
375G #EXI
37K6 )
384Q #STR %C
38JB (
3942 #SKI %C-%B�
39HL (
3=3= #END
3=GW !WRONG ORDER
3?2G SFC OFF
3?G6 #EXI
3?^Q )
3#FB #ALT 20?=20?+1
3#^2 ...#DEF 23?=1024<%C-%B/2+%B>(%B+IROUND)
3*DL #DEF 22?=1024<%C-%B/16 [CT OF CHAR POSITIONS
3*Y= #DEF 21?=%B/16 [CHAR POSITION NO
3BCW CASFID
3BXG SFC @,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P
3CC6 #EXI
3CWQ )
3DBB #STR %C
3DW2 #SKI
3F*L (
3FT= #SKI %B-1024
3G#W #SKI
3GSG (
3H#6 #END
3HRQ #EXI
3J?B )
3JR2 #DEF 23?=1024-%B/2+%B
3K=L #DEF 22?=1024-%B/16
3KQ= #DEF 21?=%B/16
3L9W #ALT 20?=20?+1
3LPG CASFID
3M96 #END
3MNQ #EXI
3N8B )
3NN2 #NOR
3P7L #MAC CASRDSPLIT
3PM= #STR %A
3Q6W (
3QLG #DEF 20?=IROUND
3R66 #ALT IROUND=%A
3RKQ #ALT INROUND=-%A
3S5B )
3SK2 #ALT 21?=CSPLITLN
3T4L #STR %B
3TJ= #ALT CSPLITLN=%B
3W3W #SKI IROUND&7
3WHG (
3X36 #ALT IROUND=20?
3XGQ #ALT INROUND=-IROUND
3Y2B !I NOT AMULTIPLE OF 8
3YG2 #EXI
3Y^L )
3^F= #ALT 23?=CSPLITLN/IROUND
3^YW #SKI 23?*IROUND-CSPLITLN
42DG (
42Y6 #ALT CSPLITLN=21?
43CQ !S NOT A MULTIPLE OF I
43XB #EXI
44C2 )
44WL #MEN CONSTANT
45B= #TRA IROUNDNG
45TW -IROUND
46*G #TRA CSPLIT
46T6 +CSPLITLN
47#Q #ALT A1D=JOBNOWAS+IROUND&INROUND
47SB #END
48#2 #MEN CONSTANT
48RL #TRA CIROUND
49?= +IROUND
49QW #TRA CA1D
4==G +A1D
4=Q6 #TRA CIRNDA
4?9Q +IROUND-1
4?PB #TRA CIRNDB
4#92 +A1+IROUND-1
4#NL #END
4*8= #MEN PMTABLEE
4*MW #TRA 16-A1*2+JE12
4B7G #SKI A1D-16
4BM6 +0,+0
4C6Q #SKI A1D-16<1$1
4CLB (
4D62 4HA1D
4DKL #20202000
4F5= )
4FJW #END
4FLS ...#UNS ISFCON
4FNQ ...(
4FQN ...#MEN CASCODE
4FSL ...#TRA CASQUICK
4FWJ ... 2*IROUND
4FYG ...#END
4G2D ...)
4G4G #SKI A1D-16<1$1
4GJ6 PMMEND FPBC,16
4H3Q #SKI A1D-32<1$1
4HHB PMMEND FPBC,32
4J32 #SKI A1D-48<1$1
4JGL PMMEND FPBC,48
4K2= #SKI A1D<64-64<1$1
4KFW PMMEND FPBC,64
4K^G #NOR
^^^^ ...625251330021