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

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

**Used in:** [[george:source:PMDUMP85|PMDUMP85]], [[george:source:PMDUMPMT85|PMDUMPMT85]]

<code - JPMFAIL.mac.txt>
 ^55Q ...[??? JPMFAIL SECT DIAG FGN 105 DOC  
 ^5KB    #MAC  JPMFAIL                      [M.C.D. MANN 
 ^652    [   
 ^6JL    [   
 ^74=    [     ************* 
 ^7HW    [     *  JPMFAIL  * 
 ^83G    [     ************* 
 ^8H6    [   
 ^92Q    [   
 ^9GB ...      LDCT %A  #150                [CHECK BITS 2, 3 AND 5   
 ^=22 ...      SMO      FXPMDR   
 ^=FL ...      ANDX %A  JMTRW1              [TRANSFER FAILED IF ANY OF   
 ^=^= ...      BNZ  %A  %B                  [THESE BITS ARE SET TO 1 
 ^?DW    #NOR
</code>