MONENDB

(GIN Macro)

Defined in: MACROS FIXD

Used in: RUNPROG840

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