TESTOUT
(GIN Macro)
Defined in: MACS MISW
Used in: MONITOR36, PROCONTX867
- 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