CHECKCHP
(GIN Macro)
Defined in: CHCHCOORMAC2
Used in:
- 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