12 22FL          SEG      ILLEXC,70,E.WILLIAMS 
  11 22_=          SEGENTRY K1ILLEXC,XENT1   
  10 23DW    #DEF           VSCOND=A1+2  
  10 23YG    #DEF           VMASK=A1+5   
  10 24D6    #DEF           VCAREA=A1+27 
  10 24XQ    #DEF           VINSTR=A1+24 
  10 25CB    #DEF           VACC=A1+12   
  10 25X2    XJYRESVIOL     +JYRESVIOL   
  12 26BL    XPTR  HUNT2    2,APED,ANOMESS,FX2   
   7 26W=          EXIT  7  0
  20 27*W    #     THIS SUBROUTINE CHECKS THAT THE AREA SPECIFIED BY X5 & X6 IS  
  20 27TG    #     WITHIN RESERVATIONS.IF NOT THIS IS GIVEN AS THE REASON FOR THE
  16 28*6    #     ILLEGAL UNLESS A REASON HAS ALREADY BEEN FOUND
   5 28SQ    XCHECK  
   8 29#B          FPCACA   1,FX2
  10 29S2          CHECKBX  5,6,RESV,1   
   7 2=?L    ZA2   EXIT  7  0
   9 2=R=    RESV  LDX   0  VSCOND(2)
   8 2?=W          BNZ   0  ZA2  
   8 2?QG          SMO      FX1  
  10 2#=6          LDX   0  XJYRESVIOL   
   9 2#PQ          STO   0  VSCOND(2)
   8 2*9B          BRN      ZA2  
   4 2*P2    #   
  20 2B8L    #     THIS SEGMENT DEALS WITH THE MOVE,MVCH,SUM&EXIT INSTRUCTIONS   
   4 2BN=    #   
  10 2C7W    #     ON ENTRY X6=2  EXIT   
   9 2CMG    #                =3  SUM
  10 2D76    #                =4  MOVE   
  10 2DLQ    #                =5  MVCH   
   5 2F6B    XENT1   
  17 2FL2          CALL  7  XPTR                [PTR TO ILLEGAL BLOCK
   7 2G5L          SBN   6  1
   9 2GK=          STO   6  VCAREA(2)
   7 2H4W          SBN   6  1
   7 2HJG          SMO      6
   8 2J46          BRN      ZA6  
   5 2JHQ    ZEXIT   
  10 2K3B          LDX   3  VINSTR+1(2)  
   8 2KH2          SRL   3  21   
   7 2L2L          SMO      2
  16 2LG=          LDX   5  VACC(3)             [CONTENTS OF ACC 
  18 2L_W          ADX   5  VINSTR+2(2)         [ADD N(M) OF INSTRUCTION 
   9 2MFG          ANDX  5  VMASK(2) 
  10 2M_6    P     STO   5  VCAREA+1(2)  
  19 2NDQ          CALL  7  XCHECK              [CHECK IF WITHIN RESERVATION 
  14 2NYB    ZA3   ACROSS   OPILLS,2            [RETURN  
   4 2PD2    ZSUM
  10 2PXL          LDX   3  VINSTR+1(2)  
   7 2QC=          SLC   3  3
   7 2QWW          ADN   3  1
  14 2RBG          ANDN  3  7                   [X3=ACC  
   7 2RW6          SMO      3
  16 2S*Q          LDX   5  VACC(2)             [CONTENTS OF ACC.
   9 2STB          ANDX  5  VMASK(2) 
  10 2T*2          STO   5  VCAREA+2(2)  
  15 2TSL          LDX   6  VINSTR+2(2)         [N(M) ADDRESS
   8 2W#=          ANDN  6  511  
   8 2WRW          BNZ   6  ZA1  
  17 2X?G          ADN   6  512                 [SET TO 512 IF ZERO  
  10 2XR6    ZA1   STO   6  VCAREA+1(2)  
  17 2Y=Q          CALL  7  XCHECK              [CHECK RESERVATIONS  
  14 2YQB          BRN      ZA3                 [RETURN  
   5 2_=2    ZMOVE   
  15 2_PL          LDX   6  VINSTR+2(2)         [N(M) ADDRESS
   8 329=          ANDN  6  511  
   8 32NW          BNZ   6  ZA4  
  17 338G          LDN   6  512                 [SET TO 512 IF ZERO  
  10 33N6    ZA4   STO   6  VCAREA+1(2)  
  10 347Q          LDX   3  VINSTR+1(2)  
   8 34MB          SRL   3  21   
   7 3572          SMO      3
   9 35LL          LDX   5  VACC(2)  
   9 366=          ANDX  5  VMASK(2) 
  20 36KW          CALL  7  XCHECK              [CHECK RESERVATIONS OF AREA BEING
  14 375G                                       [MOVED   
  10 37K6          STO   5  VCAREA+2(2)  
   7 384Q          ADN   3  1
   7 38JB          ANDN  3  7
   7 3942          SMO      3
   9 39HL          LDX   5  VACC(2)  
   9 3=3=          ANDX  5  VMASK(2) 
  21 3=GW          CALL  7  XCHECK              [CHECK RESERVATIONS OF AREA TO WHICH 
  17 3?2G          STO   5  VCAREA+3(2)         [THE MOVE TAKES PLACE
   8 3?G6          BRN      ZA3  
   8 3?_Q    ZA6   BRN      ZEXIT
   8 3#FB          BRN      ZSUM 
   8 3#_2          BRN      ZMOVE
   5 3*DL    ZMVCH   
   9 3*Y=          STO   6  VCAREA(2)
  10 3BCW          LDX   4  VINSTR+2(2)  
   8 3BXG          ANDN  4  511  
   8 3CC6          BNZ   4  ZA5  
   8 3CWQ          LDN   4  512  
  10 3DBB    ZA5   STO   4  VCAREA+1(2)  
  10 3DW2          LDX   3  VINSTR+1(2)  
   8 3F*L          SRL   3  21   
  15 3FT=          CALL  4  XSUBR               [COMMON CODE 
  10 3G#W          STO   5  VCAREA+2(2)  
   7 3GSG          ADN   3  1
   7 3H#6          ANDN  3  7
  15 3HRQ          CALL  4  XSUBR               [COMMON COODE
  10 3J?B          STO   5  VCAREA+3(2)  
   8 3JR2          BRN      ZA3  
   7 3K=L    XSUBR SMO      3
   9 3KQ=          LDX   5  VACC(2)  
   8 3L9W          LDCT  6  #600 
   9 3LPG          ORX   6  VMASK(2) 
   7 3M96          ANDX  5  6
   7 3MNQ          LDX   6  5
   8 3N8B          SRL   6  22   
   7 3NN2          ADX   6  4
   7 3P7L          ADN   6  3
   7 3PM=          SRL   6  2
  20 3Q6W          CALL  7  XCHECK              [CHECK RESERVATIONS OF START OR  
  16 3QLG    #                                  [DESTINATION AREA
   8 3R66          EXIT  4   0   
   5 3RKQ    #GAP  20
   4 3S5B    #END
   8 ____ ...03113434000100000000