SFC
(GIN Macro)
Defined in: MACROS SFC
Used in:
- SFC.mac.txt
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