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