TFCBCHECK

(GIN Macro)

Defined in: RING-MACROS

Used in: OPENREL865, OPENWAIT867, RESTLIMB864

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