JOBLOCKC

(GIN Macro)
JOBLOCKC.mac.txt
 *Q94 ...[??? JOBLOCKC SECT CENT FGN 21 DOC  
 *QDW    #   
 *QYG    #   
 *RD6    #MAC  JOBLOCKC  
 *RXQ          SMO      FX2  
 *SCB          LDX   2  JOBNO
 *SX2          LDN   1  BJOBQ
 *TBL    MJOBLOCKC2  
 *TW=          LDX   1  FPTR(1)  
 *W*W    #SKI  K6ALLGEO>0
 *WTG          BXE   1  CXJO,MJOBLOCKC1  
 *X*6          BXU   2  JOBNUM(1),MJOBLOCKC2 
 *XSQ    #STR  %A,1  
 *Y#B    (   
 *YS2          STO   1  %A   
 *^?L          LDX   1  FX1  
 *^R=    )   
 B2=W    #STR  %A,2  
 B2QG          LDX   2  FX2  
 B3=6    #SKI  K6ALLGEO>0
 B3PQ    (   
 B49B          BRN      MJOBLOCKC3   
 B4P2    MJOBLOCKC1  
 B58L          GEOERR   1,NOJOBLOK   
 B5N=    MJOBLOCKC3  
 B67W    )   
 B6MG    #NOR