TIMECON

(GIN Macro)

Used in: BMXEMS83, GIVEA867, IPBLISTA867, LISTDIRF867, LISTINIT867, LISTINTC865, LISTSTAR867, MONOLITH864, OPER864, PCTLISTA867, PERFCHAP866, QPRINT867, REALTIME867, SETJD867, SETPF867, SETPRAMA867, SETUPARA867

TIMECON.mac.txt

 3K2S ...[??? TIMECON SECT CENT FGN 7 DOC
 3K=L    [MACRO FOR BINARY TO CHARACTER TIME CONVERSION  
 3KQ=    #MAC  TIMECON   
 3L9W    #STR  CLEANCT,%A
 3LPG    #SKI
 3M96    (   
 3MNQ          LDN   1  FTIME
 3N8B          SMO      FX2  
 3NN2          LDN   2  ACOMMUNE1
 3P7L          MOVE  1  2                   [SET 'HH.MM.00' IN ACOM1 & 2 
 3PM=          CALL  1  MTEST               [CLEAR V & SET X1
 3Q6W                   +60*1000/K9-1
 3QLG                   +100*1000/K9 
 3R66    MTEST LDX   0  CLEANCT  
 3RKQ          SBX   0  CLEANCTL 
 3S5B          BXL   0  0(1),MTIM1   
 3SK2          LDX   0  0(1) 
 3T4L    MTIM1   
 3TJ=          DVD   0  1(1)                [CONVERT TO SECS & DIVIDE BY 100 
 3W3W          LDX   0  1
 3WHG          MODE     0
 3X36          ORX   2  GSIGN
 3XGQ    MCONV CBD   0  1(2)                [POINT TO CHAR 3 OF ACOM2
 3Y2B          BCHX  2  £
 3YG2          BVCI     MCONV
 3Y^L          LDX   1  FX1  
 3^F=          LDX   2  FX2  
 3^YW    )   
 42DG    #STR  CLEANCT,%A
 42Y6    (   
 43CQ          LDX   0  %A   
 43XB          SMO      FX2  
 44C2          STO   0  ACOMMUNE7
 44WL          DOWN     DATECON,4%B  
 45B=    )   
 45TW    #NOR