7 22FL    #LIS K0RAECOMMS 
  10 22_=     SEG  RAECOMMS,,,,G334,G336 
  10 23DW                   8HRAECOMMS   
   7 23YG    #OPT G334 = 0   
   6 24D6    #SKI G334&1 
  13 24XQ    #  FOR G3UG MEND M334 (SHUTUP COMMAND)  
   7 25CB    #OPT G336 = 0   
   6 25X2    #SKI G336&1 
  13 26BL    #  FOR G3UG MEND M336 (UNJAM COMMAND)   
   4 26W=    #   
  17 27*W    # ****************************************************  
  17 27TG    # *                                                  *  
  17 28*6    # *    THIS CHAPTER IMPLEMENTS MOST OF THE NON-      *  
  17 28SQ    # *    STANDARD RAE COMMANDS. ENTRY IS DIRECT FROM   *  
  17 29#B    # *    'VERBCLAS' OR 'VCLASTWO'.                     *  
  17 29S2    # *                                                  *  
  17 2=?L    # ****************************************************  
   4 2=R=    #   
  15 2?=W          SEGENTRY K1RAECOMMS          [ GERONIMO   
  10 2?QG          CALL  3  UNAVAILABLE  
  14 2#=6          SEGENTRY K2RAECOMMS          [ MOTA   
  10 2#PQ          CALL  3  UNAVAILABLE  
  14 2*9B          SEGENTRY K3RAECOMMS          [ TTTP   
  10 2*P2          CALL  3  UNAVAILABLE  
  15 2B8L          SEGENTRY K4RAECOMMS          [ TEKTRONIX  
  10 2BN=          CALL  3  UNAVAILABLE  
  14 2C7W          SEGENTRY K5RAECOMMS          [ SHUTUP 
  10 2CMG          BRN      X5RAECOMMS   
  14 2D76          SEGENTRY K6RAECOMMS          [ PLOT   
  10 2DLQ          CALL  3  UNAVAILABLE  
  13 2F6B          SEGENTRY K7RAECOMMS          [ JAP
  10 2FL2          CALL  3  UNAVAILABLE  
  14 2G5L          SEGENTRY K8RAECOMMS          [ PERFSAM
  10 2GK=          CALL  3  UNAVAILABLE  
  14 2H4W          SEGENTRY K9RAECOMMS          [ WELL   
  10 2HJG          CALL  3  UNAVAILABLE  
  14 2J46          SEGENTRY K10RAECOMMS         [ UNJAM  
  10 2JHQ          BRN      X10RAECOMMS  
  14 2K3B          SEGENTRY K11RAECOMMS         [ MESSAGE
  10 2KH2 ...      CALL  3  UNAVAILABLE  
   4 2L2L    #   
  18 2LG=    #     ENTRY POINTS PRESERVED FOR SAFETY IN RECOMPILATION.   
  16 2L_W    #     THIS ERROR PATH CATCHES COMMANDS NOT IN M.E.S.
   6 2MFG    UNAVAILABLE 
  10 2M_6          GEOERR   1,NO-ENTRY   
   4 2NDQ    #   
   4 2NYB    #   
   4 2PD2    #   
   5 2PXL    ZEXIT   
  14 2QC=          ENDCOM                       [ EXIT   
   4 2QWW    #   
   4 2RBG    #   
  20 2RW6    # ----------------------------------------------------------------  
   4 2S*Q    #   
   4 2STB    #   
  16 2T*2    #     *******************************************   
  16 2TSL    #     *                                         *   
  16 2W#=    #     *            RAE  MEND  7                 *   
  16 2WRW    #     *                                         *   
  16 2X?G    #     *******************************************   
   4 2XR6    #   
   6 2Y=Q    X5RAECOMMS  
   4 2YQB    #   
   7 2_=2    #SKI G334&1$1   
  10 2_PL          GEOERR   1,NOSHUTUP   
   6 329=    #SKI G334&1 
   4 32NW    (   
  11 338G    #     ENTRY FOR 'SHUTUP' COMMAND
   4 33N6    #   
  21 347Q          LDX   3  BCONSOUT            [ FIND BASE OF CONSOLE OUTPUT CHAIN  
   9 34MB          LDN   7  BCONSOUT 
  20 3572          BRN      T1                  [ ENTER LOOP ALLOWING FOR EMPTY  
   4 35LL    #   
  19 366=    TIN            +CONBUFF+CINP@L12   [ INPUT BLOCK TYPE/SUBTYPE   
  15 36KW    #     DME GETS UPSET IF WE LOSE ANY INPUT BLOCKS
   4 375G    #   
   9 37K6    R1    LDX   4  ATYPE(3) 
   9 384Q          LDX   3  FPTR(3)  
  19 38JB          TXU   4  TIN(1)              [ KEEP ALL INPUT-TYPE BLOCKS 
  17 3942          BCS      T2                  [  AND 1ST NON-INPUT 
   7 39HL    T1    TXU   3  7
   8 3=3=          BCS      R1   
   8 3=GW          BRN      ZEXIT
   4 3?2G    #   
   9 3?G6    R2    LDX   4  ATYPE(3) 
   9 3?_Q          LDX   3  FPTR(3)  
   9 3#FB          TXU   4  TIN(1)   
   8 3#_2          IF       CS   
   6 3*DL          THEN  
  18 3*Y=             FREECORE BPTR(3)             [ FREE NON-INPUT BLOCK
   5 3BCW          FI
   7 3BXG    T2    TXU   3  7
   8 3CC6          BCS      R2   
   8 3CWQ          BRN      ZEXIT
   4 3DBB    #   
   4 3DW2    #   
  21 3F*L    # ----------------------------------------------------------------------
   4 3FT=    #   
   4 3G#W    )   
   4 3GSG    #   
  16 3H#6    #     *******************************************   
  16 3HRQ    #     *                                         *   
  16 3J?B    #     *            RAE  MEND  9                 *   
  16 3JR2    #     *                                         *   
  16 3K=L    #     *******************************************   
   4 3KQ=    #   
   4 3L9W    #   
   6 3LPG    X10RAECOMMS 
   4 3M96    #   
   7 3MNQ    #SKI G336&1$1   
  10 3N8B          GEOERR   1,NO-UNJAM   
   6 3NN2    #SKI G336&1 
   4 3P7L    (   
  12 3PM=    #     ENTRY FOR THE 'UNJAM' COMMAND 
   4 3Q6W    #   
   8 3QLG          FON      #11  
   8 3R66          BRN      ZEXIT
   4 3RKQ    #   
  18 3S5B    # -------------------------------------------------------   
   4 3SK2    #   
   4 3T4L    #   
   4 3TJ=    )   
   4 3W3W    #   
   4 42DG    #   
   4 42Y6    #END
   2 ####
   2 ##RY
   6 ____ ...366076660015