TIMECON2 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

**Used in:** [[george:source:MONFIL865|MONFIL865]]

<code - TIMECON2.mac.txt>
 3GBT ...[??? TIMECON2 SECT CENT FGN   DOC   
 3GC4 ...[MACRO TO PUT CURRENT TIME IN %A
 3GC? ...#MAC  TIMECON2  
 3GCG ...      LDX   0  FTIME
 3GCP ...      ACCSTO   0,0,%A   
 3GCY ...      STO   1  GEN1 
 3GD7 ...      STO   2  GEN2 
 3GDB ...      LDX   1  CLEANCT  
 3GDK ...      SBX   1  CLEANCTL 
 3GDS ...      CALL  2  MTEST
 3GF3 ...      +1000/K9  
 3GF= ...      +59   
 3GFF ...MTEST DVS   0  0(2) 
 3GFN ...      BXL   1  1(2),X   
 3GFX ...      LDX   1  1(2) 
 3GG6 ...X     DVS   0  JTEN 
 3GG* ...      SLL   1  6
 3GGJ ...      ORX   0  1
 3GGR ...      ORX   0  FTIME+1  
 3GH2 ...      LDX   1  GEN1 
 3GH9 ...      LDX   2   GEN2
 3GHD ...      ACCSTO   0,1,%A   
 3GHM ...#NOR
</code>