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

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

**Used in:** 

<code - 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
</code>