{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: SCFMACROS)}}
====== SCFMACROS ======
(George Source)
0000 [??? SCFDESC SECT FILE FGN 15 DOC
2?QG #MAC SCFDESC
2#=6 [ DEFINE THE SCF
2#PQ [ %A = NAME
2*9B [ %B = TYPE (6,9,13,25)
2*P2 [ %C = CSN OF DISC IF GIVEN
2B8L #FRL
2BN= #DEF 19?+2=1?
2C7W #LIS 0
2CMG #DEF 19?+1=0
2D76 #DEF 19?+3=33?
2DBY ...#ALT K98BRADDATA=K96BRADDATA
2DLQ #MEN BRADSPLT
2F6B #STR %A
2FL2 (
2G5L #TRA K98BRADSPLT
2GK= 12H%A [SET THE FILE NAME
2J46 #TRA K98BRADSPLT+4
2J?Y ...#STR %C
2JHQ #%C [SET THE DISC CSN IF GIVEN
2JRJ ...#STR %C
2K3B ...#SKI
2K?8 ... +0
2KH2 #STR 6,%B
2L2L #SKI
2LG= (
2L^W #TRA K98BRADSPLT+3
2MFG +0
2M^6 #FID 0,5,%B [SET TYPE 6
2NDQ #END
2NYB #MEN BRADDATA
2PD2 #EXI
2PXL )
2QC= #STR 9,%B
2QWW #SKI
2RBG (
2RW6 #TRA K98BRADSPLT+3
2S*Q +0
2STB #FID 0,5,%B [SET TYPE 9
2T*2 #END
2TSL #MEN BRADDATA
2W#= #EXI
2WRW )
2X?G #STR 13,%B
2XR6 #SKI
2Y=Q (
2YQB #TRA K98BRADSPLT+3
2^=2 +0
2^PL #FID 0,5,%B [SET TYPE 13
329= #END
32NW #MEN BRADDATA
338G #EXI
33N6 )
347Q #STR 25,%B
34MB #SKI
3572 (
35LL #TRA K98BRADSPLT+3
366= +0
36KW #FID 0,5,%B [SET TYPE 26
375G #END
37K6 #MEN BRADDATA
384Q #EXI
38JB )
3942 ! INVALID DEVICE TYPE !
39HL #END
3=3= #MEN BRADDATA
3=GW #EXI
3?2G )
3?G6 #END
3?^Q #MEN BRADDATA
3#FB #NOR
0000 [??? SCFISSUE SECT FILE FGN 15 DOC
3#^2 #MAC SCFISSUE
3*DL [
3*Y= [ STANDARD ICL ISSUE OF CHPTERS TO BE PLACED ON THE SCF
3BCW [
3BXG ... SCFCHAP CHANFILE,APPEND,ANALYSE,PERFCHAP,SUICIDE
3CC6 ... SCFCHAP DEMAND,VERBCLAS,PARAM,CLOSEONE,ANALYSEA
3CWQ ... SCFCHAP MONFILE,ORELMAIN,CLOSEDIR,CLOSEND,ORELHALF
3F*L SCFCHAP OPENTWO,PERUSFIL,ORELEND,SETMON,LOCATE,OPENREL,OPENFILE
3FT= ... SCFCHAP MONFIL,ALAS,CLEAN,COMPRO,ALASB,READFILE
3G#W ... SCFCHAP RELPER,IPQUAKER,IFEXPAN,DECODE,MESSBH
3HRQ #NOR
0000 [??? SCFCHAP SECT FILE FGN 15 DOC
3J?B #MAC SCFCHAP
3JR2 [
3K=L [ PRINT DATA LINE(S)
3KQ= [
3L9W #OPT Z%A=0
3LPG #SKI Z%A
3M96 #SKI
3MNQ (
3MTY ...#UNS K%A
3N36 ...(
3N8B #FRE Z%A
3NN2 #DEF Z%A=1
3P7L #TRA K98BRADDATA
3PM= #DEF 19?+0=3?
3Q6W #ORD
3QLG #INT
3R66 XINF 12H%A
3RKQ 8H
3S5B 4HSIZE
3SK2 XLEN 8H
3T4L 12H
3TJ= 16HSCF TOTAL SIZE
3W3W XTOT 12H
3WHG 20H
3X36 28H
3XGQ XLNK +0
3Y2B XC10000 +10000
3YG2 XP1 +XLEN.1
3Y^L XP2 +XTOT.3
3^F= XC1000000 +1000000
3^YW #DEF 19?+1=19?+1]+((+L%A+3�)+127�)
42DG XRUN +19?+1]
42Y6 XNTRY STO 0 XLNK
43CQ LDN 5 L%A
43XB LDN 6 0
44C2 DVR 5 XC10000
44WL LDCT 7 #200
45B= LDN 1 4
45TW LDX 2 XP1
46*G MODE 1
46T6 XLA CBD 6 0(2)
47#Q BCHX 2 £
47SB BCT 1 XLA
48#2 LDX 5 XRUN
48RL LDN 6 0
49?= DVR 5 XC1000000
49QW LDCT 7 #200
4==G LDN 1 6
4=Q6 LDX 2 XP2
4?9Q MODE 1
4?PB XLB CBD 6 0(2)
4#92 BCHX 2 £
4#NL BCT 1 XLB
4*8= CALL 5 18?+2]+20]
4*MW LDX 5 18?+1]+62
4B7G LDN 4 XINF
4BM6 MOVE 4 30
4C6Q CALL 3 18?+2]+19]
4CLB LDX 0 XLNK
4D62 EXIT 0 0
4DKL #JUM XNTRY
4F5= #FRE XINF,XLEN,XTOT,XLNK,XC10000,XP1,XP2
4FJW #FRE XC1000000,XRUN,XNTRY,XLA,XLB
4G4G #DEF 3?=19?+0]
4GJ6 [
4H3Q [ MEND BRADDATA
4HHB [
4J32 #TRA K98BRADDATA
4JGL +K%A
4K2= #ALT K98BRADDATA=0?
4KFW #SKI (K97BRADDATA-(K98BRADDATA-1))�
4K^G (
4LF6 ! TO MANY CALLS OF SCFCHAP LAST CHAPTER %A !
4LYQ #EXI
4MDB )
4MN8 ...)
4MNR ...#UNS K%A
4MPB ...#SKI
4MP^ ...(
4MQJ ...#DEF 19?+4=1?
4MR7 ...#LIS 4
4MRQ ...# ****************************************
4MS* ...#
4MSY ...# CHAPTER %A DOESN'T EXIST
4MTH ...#
4MW6 ...# ****************************************
4MWP ...#LIS 19?+4]
4MX# ...)
4MY2 )
4NCL #STR %B
4NX= SCFCHAP %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P
4PBW #NOR
0000 [??? SCFEND SECT FILE FGN 15 DOC
4PWG #MAC SCFEND
4QB6 [
4QTQ [ TERMINATE SCF INFO
4R*B [
4RT2 #TRA K98BRADDATA
4S#L +0
4SS= #END
4T?W #SKI 33?-(19?+3])
4TRG (
4W?6 #LIS 19?+2]
4WQQ ! ERRORS-SCF SYSTEM NOT SETUP!
4X=B #EXI
4XQ2 )
4Y9L #SKI 33?-(19?+3])
4YP= #SKI
4^8W (
4^NG #MEN BRADSPLT
5286 #TRA K95BRADSPLT
52MQ NULL [SWITCH ON SCF
537B #END
53M2 #LIS 19?+2]
546L #EXI
54L= )
555W #NOR
^^^^ ...522776610015