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

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

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

<code - MONENDB.mac.txt>
 4HR8 ...[??? MONENDB SECT CENT FGN 11 DOC   
 4J32    #   
 4JGL    #   
 4K2=    #MAC  MONENDB  [GENERATES MONITOR EVENT IF END OF MONRESUME. OBEYED FROM
 4KFW                   [CPA OR PCA WITH O/P UNPLUGGED AND X2-> PCA .
 4K^G                   [ON EXIT X0,X1,X2 DESTROYED  
 4LF6          LDCT  0  #600 
 4LYQ          ANDX  0  AMON(2)  
 4MDB          ERS   0  AMON(2)             [ERASE MONRESUME BITS
 4MY2          BPZ   0  MMON1               [J IF NOT RESTARTED BY MR
 4NCL          SLL   0  1
 4NX=          BPZ   0  MMON1               [J IF NOT MR STOP
 4PBW          ACROSS   MONEVENT,7          [ ELSE GENERATE MONITOR EVENT
 4PWG    MMON1   
 4QB6    #NOR
</code>