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

**Defined in:** [[george:source:RING-MACROS|RING-MACROS]]

**Used in:** [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENWAIT867|OPENWAIT867]], [[george:source:RESTLIMB864|RESTLIMB864]]

<code - TFCBCHECK.mac.txt>
 =2JY ...[??? TFCBCHEC SECT FILE FGN 20 DOC  
 =2SQ    #MAC  TFCBCHECK 
 =3#B    [THIS MACRO DOES THE SAME AS TOPFCB AND CHECKS THAT THE POINTER GIVEN IN
 =3S2    [%A IS TO A FILE/FCB
 =4?L          TOPFCB   %A   
 =4R=          LDX   0  ATYPE(%A)
 =5=W          SBX   0  FILEPLUSFCB  
 =5QG          BZE   0  M1TFCBCHECK  
 =6=6          GEOERR   1,FCB MISS   
 =6PQ    M1TFCBCHECK 
 =79B    #NOR
</code>