{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DISEVENT65)}}
====== DISEVENT65 ======
(George Source)

**Macros used:** [[george:macro:CAPCA|CAPCA]], [[george:macro:CILLEGAL|CILLEGAL]], [[george:macro:ENGPER|ENGPER]], [[george:macro:FPERENTB|FPERENTB]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT2|HUNT2]], [[george:macro:MONITOR|MONITOR]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:PERTEST|PERTEST]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:STEPBAC1|STEPBAC1]], [[george:macro:TRACE|TRACE]], [[george:macro:UNPLUG|UNPLUG]]

<code - DISEVENT65.txt>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
</code>