4^8W    #MACRO         XCLEAR   
 4^NG    #SKIP          %A-2 
 5286          CALL  0  (CLEAR)  
 52MQ    #SKIP          %A&1<1$1 
 537B          STOZ     0(3) 
 53M2    #SKIP          %A-3<1$1 
 546L          SETBIT   0,0(3)   
 54L=    #SKIP          %B-1 
 555W    (   
 55KG          ADN   3  HLOCKLEN 
 5656          XCLEAR   %A,%B-1  
 56JQ    )   
 574B    #NORMAL