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

**Defined in:** [[george:source:MACROS_ICB|MACROS ICB]]

**Used in:** [[george:source:GIVE867|GIVE867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:QUOTA850|QUOTA850]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REQESLIP861|REQESLIP861]], [[george:source:SWAP865|SWAP865]], [[george:source:TPINS861|TPINS861]]

<code - TESTRT.mac.txt>
 2D76 ...[??? TESTRT SECT CENT FGN 2 DOC 
 2KH2    #MAC  TESTRT
 2L2L    #   
 2LG= ...[              MACRO TO TEST WHETHER THE PROGRAM BELONGING TO THE   
 2L^W ...[              CURRENT JOB HAS HAD A   'REALTIME ON' COMMAND EFFECTED   
 2MFG ...[              %A IS A BRANCH IF REALTIME IS IN EFFECT  
 2M^6    #   
 2NDQ    #STR        %B  
 2NYB    #SKI
 2PD2    (   
 2PXL    #STR  %C%D%E
 2QC=          FCJOB    1,FX2,%C,%D,%E   
 2QWW    #STR  %C%D%E
 2RBG    #SKI
 2RW6          FCJOB    1,FX2,PCA,CPA,OLPA   
 2S*Q          LDX   0  JMISC(1) 
 2STB          LDX   1  FX1  
 2T*2          LDX   2  FX2  
 2TSL    )   
 2W#=    #STR  %B
 2WRW          MOD   LDX   0  JMISC,%B   
 2X?G          ANDN  0  #200                [MASK FOR RELEVANT MARKER BIT (B16)  
 2XR6          BNZ   0  %A                  [BRANCH IF REALTIME IN EFFECT
 2Y=Q    #NOR
</code>