{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CHECKCHP)}}
====== CHECKCHP ======
(GIN Macro)

**Defined in:** [[george:source:CHCHCOORMAC2|CHCHCOORMAC2]]

**Used in:** 

<code - CHECKCHP.mac.txt>
 NLKG ...[??? CHECKCHP SECT CENT FGN 32 DOC  
 NM56 ...# MACRO TO CHECKSUM CHAPTERS AT SPECIFIED INTERVALS 
 NMJQ ...#MAC  CHECKCHP  
 NN4B ...#STR  %A,READ   
 NNJ2 ...(   
 NP3L ...#STR  %A,SC 
 NPH= ...(   
 NQ2W ...#STR  %A,CHCH   
 NQGG ...! %A MUST BE READ,SC OR CHCH !  
 NR26 ...)   
 NRFQ ...)   
 NR^B ...#STR  %A,READ   
 NSF2 ...(   
 NSYL ...      FCMENDV   
 NTD= ...      FIXTRA   FCCHSUM1 
 NTXW ...       +0   
 NWCG ...      FCENDV
 NWX6 ...      FCMEND
 NXBQ ...      FIXTRA   FCCHSUM  
 NXWB ...      +FCCHSUM+1
 NYB2 ...      STO   0  FCCHSUM1 
 NYTL ...      BSON     EMSBIT,(FCCHSUM1)
 N^*= ...      LDN   1  BCHAP
 N^SW ...X     LDX   1  FPTR(1)  
 P2#G ...      TXU   1  CXCH 
 P2S6 ...      BCC      XEND 
 P3?Q ...      LDX   2  ALOGLEN(1)   
 P3RB ...#SKI  76?-2<1$1 
 P4?2 ...(   
 P4QL ...      LDX   0  BACK2(1) 
 P5== ...      SLL   0  11   
 P5PW ...      SRL   0  4
 P69G ...      NGS   0  GEN6 
 P6P6 ...)   
 P78Q ...#SKI  76?-2 
 P7NB ...      STOZ      GEN6
 P882 ...      STO   1  GEN5 
 P8ML ...      ADN   1  A1   
 P97= ...      TXL   2  B513 
 P9LW ...      BCS      ONE  
 P=6G ...      SUM   0  512  
 P=L6 ...      ADS   0  GEN6 
 P?5Q ...      ADN   1  512  
 P?KB ...ONE   SUM   0  0(2) 
 P#52 ...Y     ADX   0  GEN6 
 P#JL ...      BZE   0  OK   
 P*4= ...      GEOERR   1,CHAPCKSM   
 P*HW ...OK    LDX   1  GEN5 
 PB3G ...      BRN      X
 PBH6 ...XEND  LDX   1  FX1  
 PC2Q ...      LDX   2  FX2  
 PCGB ...      BRN      (FCCHSUM1)   
 PD22 ...      FCEND 
 PDFL ...)   
 PD^= ...#STR  %A,CHCH   
 PFDW ...#SKI
 PFYG ...(   
 PGD6 ...      CXMEND
 PGXQ ...      CALL  0  (FCCHSUM)
 PHCB ...      CXEND 
 PHX2 ...)   
 PJBL ...#STR  %A,SC 
 PJW= ...#SKI
 PK*W ...(   
 PKTG ...#MEN  CHARGESC  
 PL*6 ...#TRA  K90CHARGESC   
 PLSQ ...      CALL  0  (FCCHSUM)
 PM#B ...#END
 PMS2 ...)   
 PN?L ...#STR  %A,READ   
 PNR= ...#SKI
 PP=W ...(   
 PPQG ...      FCMEND
 PQ=6 ...      FIXTRA   FCHEC
 PQPQ ...      LDX   1  4
 PR9B ...      LDN   5  A1(1)
 PRP2 ...      LDX   0  ALOGLEN(1)   
 PS8L ...#SKI  76?-2<1$1 
 PSN= ...(   
 PT7W ...      SMO      4
 PTMG ...      LDX   1  BACK2
 PW76 ...      SLL   1  11   
 PWLQ ...      SRL   1  4
 PX6B ...)   
 PXL2 ...#SKI  76?-2 
 PY5L ...      LDN   1  0
 PYK= ...      TXL   0  B513 
 P^4W ...      BCS      XONE 
 P^JG ...      SUM   4  0
 Q246 ...      SBX   1  4
 Q2HQ ...      SBN   0  512  
 Q33B ...      ADN   5  512  
 Q3H2 ...XONE  SMO      0
 Q42L ...      SUM   4  0
 Q4G= ...      SBX   1  4
 Q4^W ...      BZE   1  BSCHAPCK+1   
 Q5FG ...      GEOERR   1,CHAPCKSM   
 Q5^6 ...      FCEND 
 Q6DQ ...#MEN  BSTS  
 Q6YB ...#TRA  BSCHAPCK  
 Q7D2 ...      BRN      FCHEC
 Q7XL ...#END
 Q8C= ...)   
 Q8WW ...#NOR
</code>