TESTLOOK [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

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

**Used in:** [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:READFILE84|READFILE84]]

<code - TESTLOOK.mac.txt>
 4PLN ...[??? TESTLOOK SECT FILE FGN 20 DOC  
 4PWG    #MAC  TESTLOOK  
 4QB6    #     AS ABOVE -J.IF SOMEONE GONE FOR LAST BLOCK
 4QTQ          LDEX  3  ARINGNO(%C)  
 4R*B          SBN   3  1
 4RT2          BZE   3  M3TESTLOOK   
 4S#L          ADN   3  1
 4SS=          LDX   0  3
 4T?W    M4TESTLOOK  
 4TRG          ADN   %C FELLEN   
 4W?6          BCT   0  M4TESTLOOK   
 4WQQ    M2TESTLOOK  
 4X=B          SBN   %C FELLEN   
 4XQ2          LDCT  0   #776
 4Y9L          ANDX  0   A1+FGENERAL1(%C)
 4YP=          BZE   0   M1TESTLOOK  
 4^8W          LDX   0  FREADBLOCK+A1(%C)
 4^NG          BXU   0  FREADBLOCK(%A),M1TESTLOOK
 5286          LDX   0  FGENERAL2+A1(%C) 
 52MQ          ANDN  0  2
 537B          BNZ   0  %B   
 53M2    M1TESTLOOK  
 546L          BCT   3  M2TESTLOOK   
 54L=    M3TESTLOOK  
 555W    #NOR
</code>