{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: SFC)}}
====== SFC ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_SFC|MACROS SFC]]
**Used in:**
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