(George Source)
Macros used: CAPCA, CILLEGAL, ENGPER, FPERENTB, GEOERR, HUNT2, MONITOR, OUTPACK, PERTEST, PROGBRKIN, RUNPROG, SEGENTRY, STEPBAC1, TRACE, UNPLUG
22FL #LIS K0DISEVENT 22^= #SEG DISEVENT65 [EMRYS WILLIAMS 23DW 8HDISEVENT 23YG SEGENTRY K1DISEVENT,XENT1 24D6 # THIS SEGMENT IS ENTERED FROM OPCA(THE EVENT DECODER SEG)WHEN AN OBJ. 24XQ # PROG ISSUES A PERI ON A DISENGAGED ONLINE DEVICE 25CB # EXEC1 CONTAINS THE GEOGRAPHIC NO OF THE DEVICE B3-9 & THE PROG HAS 25X2 # BEEN STEPPED BACK TO REOBEY THE PERI BY EXECUTIVE 26BL QMASK #7777777 26W= XENT1 27*W SMO EVENT1(2) [PTR TO CURREVT MEL 27TG LDX 5 ASU1-AFW1 [PTR TO ASU OF CURRENT MEMBER 28*6 ANDX 5 QMASK(1) [MASK OUT MS2 6 BITS 28SQ SMO EVENT1(2) 29#B STOZ ASU1-AFW1 29S2 #SKIP K6DISEVENT>99-99 2=?L TRACE 5,DISEVENT 2=R= UNPLUG 2?=W STEPBAC1 ,FX2 [ONR NOT STEPPED BACK ON 19O3A 2?QG HUNT2 3,APERI,APERIRES,2 [FIND PRB 2#=6 FPERENTB 3,5,ZA6 [FIND ENTRY 2#PQ LDX 5 1(3) 2*9B LDX 6 0(3) 2*P2 PERTEST 5,ZA1 [TESTS WHETHER MONITORING WAS SET ON 2B8L [THIS DEVICE BECOMING DISENGAGED 2BN= CAPCA [IF NOT GET THE DEVICE RE-ENGAGED 2C7W ENGPER ZA2,5,ZA3 [& RESTART THE OBJ PROG 2CMG RUNPROG 2D76 ZA2 PROGBRKIN [THE OBJ PROG IS IN A SUITABLE STATE 2DLQ [SINCE THE PERI WILL BE RE-OBEYED 2F6B ZA1 2FL2 LDN 7 0 [SET SWITCH TO 'MONITORED' 2G5L CAPCA 2GK= ZA4 OUTPACK 6,1,PERINAME 2J46 BNZ 7 ZA5 [J IF 'CANTDO' 2JHQ MONITOR DISPER 2K3B # THIS SECTION IS ENTERED IF THE OPERATOR DOES A'CANTDO' 2KH2 ZA3 LDN 7 1 [SET SWITCH TO 'CANTDO' 2L2L BRN ZA4 2LG= ZA5 CILLEGAL PERFAIL [REPORT 2L^W ZA6 GEOERR 1,DISEVENT 2MFG #REP 20 2M^6 4H 2NDQ #END ^^^^ ...05033253000300000000