CJ4L    #MAC  ZERRORX   
 CJJ=    #STR  %B
 CK3W          CALL  %B MZERR%B  
 CKHG    #STR  %B
 CL36    #SKI
 CLGQ          CALL  1  MZERR
 CM2B                   +%A  
 CMG2    #STR  %B
 CM^L    (   
 CNF=    #OPT  MZERR%B=0?
 CNYW    #SKI  0?-MZERR%B
 CPDG    #SKI
 CPY6          COMERRX  0(%B)
 CQCQ    )   
 CQXB    #NOR