TESTMON [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: TESTMON)}}
====== TESTMON ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_FIXD|MACROS FIXD]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:COMPS_JSR|COMPS JSR]], [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:DRSTART6|DRSTART6]], [[george:source:EDSTART860|EDSTART860]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXTEND866|EXTEND866]], [[george:source:INKS|INKS]], [[george:source:MTSTART864|MTSTART864]], [[george:source:OLMTE85|OLMTE85]], [[george:source:OPCA867|OPCA867]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:TESTMON|TESTMON]]

<code - TESTMON.mac.txt>
 3MYJ ...[??? TESTMON SECT CENT FGN 11 DOC   
 3N8B    #   
 3NN2    #MAC  TESTMON                      [BRANCH TO %D IF MONITORING OF TYPE  
 3P7L                                       [ DEFINED BY CONTENTS OF %B IS REQUD 
 3PM=                                       [ ON PERIPHERAL DEFINED BY %C
 3Q6W                                       [ %A (OPT) IS ADDR OF PCA
 3QLG    #STR  %A
 3R66          MOD LDX 0 AMON,%A 
 3RKQ    #STR  %A
 3S5B    #SKI
 3SK2    (   
 3T4L          SMO      FX2  
 3TJ=          LDX   0  AMON 
 3W3W    )   
 3WHG          BNG   0  MTESTMON1
 3X36          ANDX  0  %B   
 3XGQ          BZE   0  MTESTMON1
 3Y2B          LDX   0  %B   
 3YG2          SMO      FX2  
 3Y^L          STO   0  ACOMMUNE5
 3^F=          LDX   0  %C   
 3^YW          SMO      FX2  
 42DG          STO   0  ACOMMUNE6
 42Y6    #STR  %A
 43CQ    (   
 43XB          LDX   0  %A   
 44C2          SMO      FX2  
 44WL          STO   0  ACOMMUNE4
 45B=          DOWN  TESTMON,1   
 45TW    )   
 46*G    #STR  %A
 46T6    #SKI
 47#Q          DOWN  TESTMON,2   
 47SB          BRN      %D   
 48#2    MTESTMON1   
 48RL          LDX   1  FX1  
 49?=          LDX   2  FX2  
 49QW    [   
 4==G    [   
 4=Q6    #NOR
</code>