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

**Defined in:** [[george:source:MACS_MISW|MACS MISW]]

**Used in:** [[george:source:MONITOR36|MONITOR36]], [[george:source:PROCONTX867|PROCONTX867]]

<code - TESTOUT.mac.txt>
 *RD6    #MAC  TESTOUT                      [D.PLATTEN   
 *RXQ          LDCH  0  JSOURCE1(3)  
 *SCB          SBN   0  10   
 *SX2          BZE   0  MPX                 [J IF UPX
 *TBL          SBN   0  1
 *TW=          BZE   0  MPX                 [OR MPX  
 *W*W          SBN   0  13   
 *WTG          BZE   0  MIPB 
 *X*6          SBN   0  36   
 *XSQ          BNZ   0  MFIN                [J IF NOT CI CHANNEL 
 *Y#B          CALL  2  MCOM                [FIND LINECONTROL BLOCK  
 *YS2    #HAL  AMXOR+CILCB,0 
 *^?L          LDCT  0  4                   [SET INTERLOCK BIT 4 TO SHOW CPA THAT
 *^R=          ORS   0  CIREADY(1)          [ABANDONMENT STARTED 
 B2=W          BRN      MFIN 
 B2QG    MIPB  CALL  2  MCOM 
 B3=6    #HAL  AMXOR+ADCB,0  
 B3PQ          LDX   0  IWAIT(1) 
 B49B          LDXC  2  ICURSOR(1)   
 B4P2    #UNS  JSKI37
 B58L    (   
 B5N=          BCC      MNVD 
 B67W          LDN   2  #1000
 B6MG          ANDX  2  ICONTU(1)
 B776          BZE   2  MWAK 
 B7LQ          ERS   2  ICONTU(1)
 B86B          ORN   0  #200 
 B8L2          STO   0  IWAIT(1) 
 B95L          FON      CONTVDUWT
 B9K=          BRN      MFIN1
 B=4W    MNVD
 B=JG    )   
 B?46    #SKI  JSKI37<1$1
 B?HQ          BCS      MWAK                [VDU MOP CPAT:SET TESTOUT MARKER &   
 B#3B                                       [WAKE IF NECESSARY   
 B#H2          LDCT  2  #40  
 B*2L          ANDX  2  0
 B*G=          BZE   2  MFIN 
 B*^W          ERX   0  2
 BBFG    MWAK
 BB^6          ORN   0  #200 
 BCDQ          STO   0  IWAIT(1) 
 BCYB    MFIN  LDX   1  FX1  
 BDD2          LDX   2  FX2  
 BDXL          BRN      MFIN1
 BFC=    [   
 BFWW    [ THIS SUBROUTINE FINDS LCB'S ACCORDING TO CONTENTS OF LINK+1   
 BGBG    MCOM  LDX   1  3                   [CPA ADDRESS 
 BGW6    MCOM2 LDX   1  FPTR(1)  
 BH*Q          LDX   0  ATYPE(1) 
 BHTB          TXU   0  0(2) 
 BJ*2          BCC      MCOM1
 BJSL          TXL   0  CACT 
 BK#=          BCS      MCOM2               [J. IF END OF THIS ACTIVITY  
 BKRW          BRN      MFIN 
 BL?G    MCOM1 EXIT  2  1
 BLR6    MPX   CALL  2  MCOM                [FIND MOP LINE CONTROL BLOCK 
 BM=Q    #HAL  AMXOR+ALCB,0  
 BMQB          LDX   0  GWAIT(1) 
 BN=2          LDCT  2  #40                 [GET TIMED OUT BIT   
 BNPL          ANDX  2  0
 BP9=          BZE   2  MFIN                [J. IF NOT TIMED OUT 
 BPNW          ORN   0  1                   [SET BREAK IN BIT FOR READY MACRO
 BQ8G          ERX   0  2                   [UNSET TIMED OUT AND 
 BQN6          STO   0  GWAIT(1)            [ASLEEP BITS FOR MISW.   
 BR7Q          BRN      MFIN 
 BRMB    MFIN1   
 BS72    #NOR
</code>