2PD2    #MAC  TOPCA                        [JSRAYNER
 2PXL          LDN   1  %A   
 2QC=          LDX   2  FX2  
 2QWW          SMO      APETADDR(2)  
 2RBG          LDN   2  ALINK1   
 2RW6          MOVE  1  2
 2S*Q          LDN   1  3
 2STB          SBN   2  ALINK1-ACC3  
 2T*2          MOVE  1  5
 2TSL    #SKIP          G3   
 2W#=          SBN   2  ACC3 
 2WRW    #SKIP          G4   
 2X?G    (   
 2XR6          ADN   2  HLOCK1-ACC3  
 2Y=Q          SMO      FX2  
 2YQB          LDN   1  HLOCK1   
 2^=2          MOVE  1  HLOCKLEN*HLOCKN  
 2^PL          STOZ     0(1)                [ "CLEAR"
 329=          STOZ     HLOCKLEN(1)  
 32NW          SBN   2  HLOCK1   
 338G    )   
 33N6          FPUT  
 347Q    #NOR