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

**Defined in:** [[george:source:CHCHCOORMAC2|CHCHCOORMAC2]]

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

<code - FON1.mac.txt>
 7C7L ...[??? FON1 SECT CENT FGN 32 DOC  
 7C#W    #     THIS  MACRO CHECKS ACTS WAITING FOR TIME ON 4 SEC INTERRUPT   
 7CSG    #     USES CLONG3 AND ONLY AWAKENS THOSE WHOSE TIME IS UP   
 7D#6    #MAC  FON1  
 7DRQ          LDX   1  FLOWQ
 7F?B    M1FON1 LDX  2  1
 7FR2          SBN   2  FLOWQ
 7G=L          BZE   2  M2FON1   
 7GQ=          LDX   1  0(1) 
 7H9W          STO   1  GEN6 
 7HPG          ADN   2  FLOWQ-CHAINADD   
 7J96          LDN   0  #4000
 7JNQ          ANDX  0  ATYPE(2) 
 7K8B          BZE   0  M1FON1   
 7KN2          LDX   0  CLONG3(2)
 7L7L          BZE   0  M3FON1   
 7LM=          BCT   0  M4FON1   
 7LX4 ...      STO   0  CLONG3(2)
 7M6W    M3FON1 UNQUEUE  
 7MLG          FPUT  
 7N66          LDX   1  GEN6 
 7NKQ          BRN      M1FON1   
 7P5B    M4FON1 STO  0  CLONG3(2)
 7PK2          BRN      M1FON1   
 7Q4L    M2FON1 LDX  1  FX1  
 7QJ=          LDX   2  FX2  
 7R3W    #NOR
</code>