TESTUSEJ

(GIN Macro)
Used in: PERUSFIL84, READFILE84, STEP864
TESTUSEJ.mac.txt
 3W?N ...[??? TESTUSEJ SECT FILE FGN 20 DOC  
 3WHG    #MAC  TESTUSEJ  
 3X36    #     JUMPS TO %B,IF ANYONE ELSE IS USING THE BLOCK IN FREADBLOCK OF
 3XGQ    #     THE ELEMENT AT %A,IN THE FSTACK BLOCK AT %C. X0 & X3 ARE OVERWRITT
 3Y2B    #     AND %C MAY BE IN A DUBIOUS STATE IF ONE HAS JUMPED TO UB  
 3YG2          LDEX  3  ARINGNO(%C)         [CT FOR LOOP 
 3Y^L          SBN   3  1
 3^F=          BZE   3  M3TESTUSEJ          [J IF ONLY ONE ELEMENT IN FSTACK BLK 
 3^YW          ADN   3  1                   [ADD 1 TO COUNT AGAIN
 42DG          LDX   0  3
 42Y6    M4TESTUSEJ  
 43CQ          ADN   %C FELLEN   
 43XB          BCT   0  M4TESTUSEJ   
 44C2    M2TESTUSEJ  
 44WL          SBN   %C FELLEN          [PTR.TO NEXT ELEMENT(GOING UP BLOCK) 
 45B=          LDCT  0   #776                [J ROUND IF NOT OPEN
 45TW          ANDX  0   A1+FGENERAL1(%C)    [I.E. SPARE FCA USED BY AUTOCLOSE   
 46*G          BZE   0   M1TESTUSEJ  
 46T6          LDX   0  FREADBLOCK(%A)      [DROP THRU' IF SOMEONE BEHIND US IN  
 47#Q          SBX   0  FREADBLOCK+A1(%C)   [FILE
 47SB          BNG   0  M1TESTUSEJ   
 48#2          BZE   0  M5TESTUSEJ   
 48RL          SBN   0  1
 49?=          BZE   0  %B   
 49QW          BRN      M1TESTUSEJ   
 4==G    M5TESTUSEJ  
 4=Q6          LDN   0  A1(%C)   
 4?9Q          SBN   0  0(%A)               [J IF NOT OUR ELEMENT
 4?PB          BNZ   0  %B                  [
 4#92    M1TESTUSEJ  
 4#NL          BCT   3  M2TESTUSEJ          [J  BACK 
 4*8=    M3TESTUSEJ  
 4*MW    #NOR