1                                                                                  
                             2  * \057 C                                                                        
     00000                   3  $CSI    RES     0                                                               
            00000000         4  S9300   EQU     0                                                               
            00000000         5  X0      EQU     S9300                                                           
            00000002         6  X2      EQU     2-S9300                                                         
            00000000         7  CH      EQU     0                                                               
            00000001         8  U       EQU     1                                                               
     00000                   9  $INPUT  RES         0                                                           
     00000  0 00 00000      10  CARD    PZE         0                                                           
     00001  0 40 12006      11  CKSK    CRT     CH,U                                                            
     00002  0 01 00001      12          BRU     CKSK                                                            
     00003  0 02 02606      13          RCD     CH,U,4                                                          
     00004  0 71 00017      14          LDX     =00200000-20,X0                                                 
*    00005  2 32 00000      15  CWIM    WIM     CBFE,X2             ((CBFE,2):=(W)                              
     00006  0 40 21000      16          BRTW                                                                    
     00007  0 41 00005      17          BRX     CWIM,X0                                                         
     00010  0 40 20010      18          BETW                                                                    
     00011  0 01 00013      19          BRU     CSKSE                                                           
     00012  0 51 00000      20          BRR     CARD                EXIT**                                      
     00013  0 00 00000      21  CSKSE   HLT                         HALT ON MIS-READ                            
     00014  0 01 00001      22          BRU     CKSK                                                            
                            23  *                                                                               
                            24  *                                                                               
     00015  0 00 00000      25  $ENDSI  PZE     0                                                               
     00016  0 51 00015      26          BRR     ENDSI                                                           
                            27          END                                                                     
     00017  00177754            
     00005  CBFE