{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TIMECON)}}
====== TIMECON ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_RJDG|MACROS RJDG]]

**Used in:** [[george:source:BMXEMS83|BMXEMS83]], [[george:source:GIVEA867|GIVEA867]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:LISTDIRF867|LISTDIRF867]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTSTAR867|LISTSTAR867]], [[george:source:MONOLITH864|MONOLITH864]], [[george:source:OPER864|OPER864]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:QPRINT867|QPRINT867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:SETJD867|SETJD867]], [[george:source:SETPF867|SETPF867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETUPARA867|SETUPARA867]]

<code - 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
</code>