* TEST ALL POSSIBLE AUTOCODER MACHINE OPERATIONS
*
A1         EQU  101
B1         EQU  201
A2         EQU  1002
B2         EQU  2002
*
L1         EQU  *
A          A    A1
           A    A1,B1
           A    *-6,DATA1
           A    
B          B    L1
BAV        BAV  L1
BBE        BBE  L1,A1,/
           BBE  
BC9        BC9  L1
BCE        BCE  L1,A1,%
           BCE  
BCV        BCV  L1
BE         BE   L1
BH         BH   L1
BIN        BIN  L1,$
BL         BL   L1
BLC        BLC  L1
BM         BM   L1,DATA1
BPB        BPB  L1
BPCB       BPCB L1
BSS        BSS  L1,B
BU         BU   L1
BW         BW   L1,A1
BWZ        BWZ  L1,A1,/
           BWZ  
C          C    DATA1,DATA2
           C    A2
           C    
CC         CC   1
CCB        CCB  L1,1
CS         CS   500
           CS   
           CS   
           CS   L1,1600
CW         CW   A1,B1
           CW   A1
           CW   
*
DATA1      DCW  001
DATA2      DCW  +001
DATA3      DCW  -004
DATA4      DCW  #4
DATA5      DCW  @TEST DATA@
DATA6      DCW  @TEST GMWM@,G
DSA1       DSA  A1
DSA2       DSA  B1
*
H          H    L1
           H    
MA         MA   A1,B1
           MA   A1
           MA   
MCE        MCE  DATA3,DATA4
MCS        MCS  A1,B1
MLC        MLC  DATA2,DATA3
           MLC  DATA6
           MLC  
MLCWA      MLCWAA1,B1
           MLCWAA1
           MLCWA
MLNS       MLNS A1,B1
           MLNS A1
           MLNS 
MLZS       MLZS A1,B1
           MLZS A1
           MLZS 
NOP        NOP  A1,B1
           NOP  A1
           NOP  
P          P    
           P    L1
R          R    
           R    L1
RP         RP   
           RP   L1
S          S    A1,B1
           S    A1
           S    
SAR        SAR  A1
SBR        SBR  B1
           SBR  
           SBR  A1,B1
           SKIPN
* THIS LINE SHOULD BE ON A NEW PAGE...INVISIBLE SKIPN 
SPF        SPF  
           SPF  L1
SRF        SRF  
           SRF  L1
SS         SS   K
SSB        SSB  L1,K
SW         SW   A1,B1
           SW   A1
           SW   
W          W    
           W    L1
WM         WM   
           WM   L1
WP         WP   
           WP   L1
WR         WR   
           WR   L1
ZA         ZA   A1,B1
           ZA   A1
           ZA   
ZS         ZS   A1,B1
           ZS   A1
           ZS   
* TEST OUT THE ADDRESS GENERATION LOGIC
K1         EQU  1000
K2         EQU  2000
K3         EQU  3000
K4         EQU  4000
K5         EQU  5000
K6         EQU  6000
K7         EQU  7000
K8         EQU  8000
K9         EQU  9000
K10        EQU  10000
K11        EQU  11000
K12        EQU  12000
K13        EQU  13000
K14        EQU  14000
K15        EQU  15000
*
           MLC  K1,K2
           MLC  K3,K4
           MLC  K5,K6
           MLC  K7,K8
           MLC  K9,K10
           MLC  K11,K12
           MLC  K13,K14
           MLC  K15
*
* CHECK OUT THE INDEX REGISTER LOGIC
*
           MLC  K1+X1,K2+X2
           MLC  K3+X3
*
           MLC  X1,X2
           MLC  X3
           SBR  X1,3+X1
           SBR  X1,X1+3
           END  L1