CHAPMOVE
(GIN Macro)
Defined in: COREMACROS
Used in:
- CHAPMOVE.mac.txt
2?C? ...[??? CHAPMOVE SECT CENT FGN 32 DOC 2?C# ...# 2?C* ...# 2?CB ...#MAC CHAPMOVE 2?CC ...#DEF 20?=0 2?CD ...#STR OFF,%A 2?CF ...#DEF 20?=1 2?CG ...#SKI 20? 2?CJ ...( 2?CQ ... FCMEND 2?CW ...XCMF 2?D2 ... LDX 1 BDESTN 2?D6 ... NGNC 2 1 2?D= ... FIXTRA CHAPMOVE 2?DB ... LDN 2 0 2?DG ... STO 0 GL2 2?DL ... LDX 0 AFLAG(1) 2?DQ ... ANDN 0 #200 2?DW ... BZE 0 NOCH 2?F2 ... LDX 0 1 2?F6 ... ORX 0 GSIGN 2?F= ... SMO BACK1(1) 2?FB ... STO 0 KTAB 2?FG ... BZE 2 (GL2) 2?FL ... LDX 2 BSOURCE 2?FM ... LDX 0 AFLAG(1) 2?FN ... ANDN 0 2 [DON'T ALTER ACHAP & FREZCHAP IF 2?FP ... BNZ 0 MFX1 [ DESTINATION FROZEN 2?FQ ... LDX 0 ASIZE(2) 2?FW ... SBS 0 FREZCHAP 2?G2 ... ADS 0 ACHAP 2?G6 ...MFX1 LDN 0 A1(2) 2?G= ... BXU 0 FX1,NF 2?GB ... LDN 2 A1(1) 2?GG ... STO 2 FX1 2?GL ... SBS 0 GL2 2?GQ ... ADS 2 GL2 2?GW ...NF LDX 0 ALOGLEN(1) 2?GX ...#UNS CA1D 2?GY ... ADX 0 CIRNDB 2?G^ ...#UNS CA1D 2?H2 ...#SKI 2?H3 ... ADN 0 A1+IROUND-1 2?H6 ... ANDX 0 IROUNDNG 2?H= ... SBX 0 ASIZE(1) 2?HB ... BZE 0 NOCH 2?HG ... ADS 0 ASIZE(1) 2?HJ ... LDX 2 AFLAG(1) 2?HL ... ADX 1 ASIZE(1) 2?HQ ... NGS 0 ASIZE(1) 2?HR ... ANDN 2 2 [IF DESTINATION FROZEN,THEN FAG 2?HS ... BNZ 2 MFAGFROZ [ END SHOULD BE FROZEN AS WELL 2?HW ... STOZ GENDP 2?J2 ... BRN CHAPMOVE7 2?J3 ...MFAGFROZ 2?J4 ... STO 1 FPTR(1) [SET UP RED TAPE FOR FROZEN FAG END 2?J5 ... STO 1 BPTR(1) 2?J6 ... STO 2 AFLAG(1) 2?J7 ... LDX 0 FPSEUTYP 2?J8 ... STO 0 ATYPE(1) 2?J9 ... LDX 0 GL2 [JUMP TO CHAIN FAG END 2?J= ... BRN (GFREE) [ IN FROZEN FREE CHAIN 2?J? ...NOCH BZE 2 (GL2) 2?J# ... LDX 1 FX1 2?JB ... LDX 2 FX2 2?JG ... BRN (GL2) 2?JJ ... FIXTRA CHAPMOVEF 2?JL ... +XCMF 2?JQ ... FCEND 2?JW ...) 2?K2 ...#MEN COREALL 2?K6 ...#TRA CHAPMOVE1 2?K= ... LDN 0 #217-(#200*20?) 2?KB ...#TRA CHAPMOVE2 2?KG ... ANDN 0 #201-(#200*20?) 2?KL ...#TRA CHAPMOVE3 2?KQ ... CALL 0 CHAPMOVE3+1+(CHAPMOVE-CHAPMOVE3-1*20?) 2?KW ...#END 2?L2 ...#MEN COREALLF 2?L6 ...#TRA CHAPMOVE5 2?L= ...#SKI 20? 2?LB ... BRN CHAPMOVE4 2?LG ...#SKI 20?<1$1 2?LH ...( 2?LK ... LDN 0 4 2?LP ...) 2?LQ ...#TRA CHAPMOVE6 2?LR ...#SKI 20? 2?LS ... CALL 0 (CHAPMOVEF) 2?LT ...#SKI 20?<1$1 2?LW ... NULL 2?LX ...#UNS ISTDP 2?LY ...#SKI 2?L^ ...( 2?M2 ...#TRA CHAPMOVE8 2?M3 ...#SKI 20? 2?M4 ... NULL 2?M5 ...#SKI 20?<1$1 2?M6 ... ANDX 0 AWORK1(2) 2?M7 ...) 2?M8 ...#SKI G4 2?M9 ...( 2?M= ...#TRA CHAPMOVE9 2?M? ...#SKI 20? 2?M# ... BRN CHAPMOVE10 2?M* ...#SKI 20?<1$1 2?MB ... LDX 3 6 2?MC ...) 2?MD ...#END 2?MG ...#NOR