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