TESTRT

(GIN Macro)

Defined in: MACROS ICB

Used in: GIVE867, PROSTART867, QUOTA850, REALTIME867, REQESLIP861, SWAP865, TPINS861

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