TESTGETW

(GIN Macro)

Defined in: MACROS GLJ

Used in: PRINT70

TESTGETW.mac.txt

 3G54 ...[??? TESTGETW SECT CENT FGN 18 DOC  
 3G#W    #   
 3GSG    #   
 3H#6    #     THIS MACRO BRANCHES TO %A IF NO GETWORD HAS BEEN OBEYED IN THIS   
 3HRQ    #     CPA SINCE THE LAST WORDFIN OR LOAD
 3J?B    #   
 3JR2    #   
 3K=L    #MAC  TESTGETW  
 3KQ=    #SKI  K6GETWORD 
 3L9W    (   
 3LPG          LDX   2  FX2  
 3M96          LDCH  0  ATYPE(2) 
 3MNQ          SBN   0  CPAT/64  
 3N8B          BZE   0  MTESTGETW1          [J IF ISSUED FROM CPA
 3NN2          GEOERR   1,NOT CPA
 3P7L    MTESTGETW1  
 3PM=    )   
 3Q6W          LDX   2  FX2  
 3QLG          LDX   0  EXTPS+1(2)   
 3R66          LDX   1  FX1  
 3RKQ          ANDX  0  MTESTGETW2(1)
 3S5B          BZE   0  %A                  [J IF NO GETWORD SINCE LAST WORDFIN  
 3SK2          BRN      MTESTGETW3          [OR LOAD 
 3T4L    MTESTGETW2     #17000000           [BITS 2,3,4,5
 3TJ=    MTESTGETW3  
 3W3W    #NOR