UPDATEJT

(GIN Macro)
UPDATEJT.mac.txt
 H#N2 ...[???UPDATEJT  SECT. CENT
 H*7L ...#MAC    UPDATEJT
 H*M= ...#STR %A 
 HB6W ...#SKI
 HBLG ...    LDX  2  FX2 
 HC66 ...#STR %A,2   
 HCKQ ...    LDX  2  %A  
 HD5B ...    LDX  0  ACTCHCH(2)     [CHAPTER CHANGE COUNT
 HDK2 ...    STOZ     ACTCHCH(2)    [CLEAR IT
 HF4L ...    MPY  0  CHAPTIME       [CONVERT IT TO BEATS 
 HFJ= ...    DVR  0  BEATTIME       [CONVERT TO MILLISECS
 HG3W ...    LDX  0  CONTEXT(2)  
 HGHG ...    SRC  0  2   
 HH36 ...    BNG  0  MNUSER         [J IF NO USER
 HHGQ ...#STR %B 
 HJ2B ...    LDX  2  %B  
 HJG2 ...#STR %B 
 HJ^L ...#SKIP   
 HKF= ...(   
 HKYW ...    STO  0  GEN6
 HLDG ...    FJOCA   2   
 HLY6 ...    LDX  0  GEN6
 HMCQ ...)   
 HMXB ...    ANDN  0  #2000  
 HNC2 ...    BZE  0  MNPISSUE       [J IF NOT PROG ISSUED
 HNWL ...    LDN  0  0   
 HPB= ...    SBSC 1  APROGTIME+1(2) [UPDATE PROG TIME
 HPTW ...    SBS  0  APROGTIME(2)
 HQ*G ...MNPISSUE
 HQT6 ...    ADSC 1  HTIMEJ+1(2) 
 HR#Q ...    ADS  0  HTIMEJ(2)       [UPDATE TIME USED SO FAR BY JOB 
 HRSB ...MNUSER  
 HS#2 ...    LDX  2  FX2 
 HSRL ...    LDX 1   FX1 
 HT?= ...#NOR