HJ^L    #MAC  PERON 
 HKF=          LDN   0  2
 HKYW     MODD ORS   0  JPSTATE,%A,CPPTR(2)  
 HLDG          STO   1  GEN1 
 HLY6          LADDP    %A,1 
 HMCQ          SMO      FX2  
 HMXB          LDX   0  JOBNO
 HNC2          STO   0  APJOBNO(1)   
 HNWL          LDX   1  GEN1 
 HPB=    #NOR