13 22FL ...#SEG  HLSOCCUR865         [CENT RJPORTER
   8 22_= ...#OPT  K0HLSOCCUR=0  
   8 23DW ...#OPT  K6HLSOCCUR=100
   7 23YG ...#LIS  K0HLSOCCUR
   7 24D6 ...      8HHLSOCCUR
   4 24XQ ...[   
  19 25CB ...[ THIS SEGMENT HANDLES HLSEVENT DEALING WITH ONLINE PERIPHERAL  
  12 25X2 ...[ REQUESTS OVER NEEDS RESERVATIONS  
   4 26BL ...[   
  11 26W= ...      SEGENTRY K1HLSOCCUR,XK1   
   7 27*W ...TOP9  #77700000 
   4 27TG ...XK1 
  18 7BC6 ...XONCHECK              [CHECK WHETHER THE EVENT HAS HAPPENED 
  10 7BC7 ...      STO   5  ACOMMUNE5(2) 
  10 7BC8 ...      STO   6  ACOMMUNE6(2) 
  10 7BC9 ...      STO   7  ACOMMUNE7(2) 
  10 7BC# ...      LDX   5  ACOMMUNE4(2) 
  11 7BCG ...      SRL   5  15       [X5=T#  
   8 7BCN ...      FJOCA    3,2  
  10 7BCW ...      LDX   7  JNEEDSPTR(3) 
  18 7BD4 ...      BZE   7  XONLREQ     [NO NEEDS FIELD=EVENT REQUIRED   
   7 7BD= ...      SMO      7
   9 7BDD ...      LDX   6  JOBNUM(3)
  14 7BDL ...      BZE   6  XONLREQ     [NULL NEEDS FIELD
   9 7BDS ...      BRN      XONLBCT  
   5 7BF2 ...XONLOOP 
   7 7BF8 ...      SMO      7
   9 7BFB ...      LDCH  0  JOBNUM(3)
  17 7BFJ ...      BXU   0  5,XONLBCT    [J IF TYPE FOUND NOT RIGHT  
   7 7BFQ ...      SMO      7
   9 7BFY ...      LDX   0  JOBNUM(3)
  17 7BG6 ...      ANDN  0  #377          [ISOLATE COUNT REQUESTED   
   9 7BG# ...      BZE   0  XONLREQ  
  10 7BGG ...      STO   0  ACOMMUNE9(2) 
  16 7BGN ...      BRN      XPRB         [NOW GO LOOK IN THE PRB 
   5 7BGW ...XONLBCT 
   7 7BH4 ...      ADN   7  1
   9 7BH= ...      BCT   6  XONLOOP  
  17 7BHD ...      BRN      XONLREQ      [NOT FOUND=NONE REQUESTED   
   4 7BHL ...XPRB
   8 7BHS ...      FPCACA   3,2  
  14 7BJ2 ...      LDX   1  3          [REMEMBER PCA ADDR
  11 7BJ8 ...      HUNT2    3,APERI,APERIRES 
   8 7BJB ...      LDCT  7  #777 
  14 7BJJ ...      ANDX  7  ACOMMUNE4(2)   [ISOLATE T#   
  17 7BJQ ...      LDN   6  0          [INITIALISE COUNT OF THIS TYPE
  15 7BJY ...      LDN   5  0          [INITIALISE OLPA COUNT
   5 7BK6 ...XPRBLOOP
   8 7BK# ...      LDX   0  A1(3)
  15 7BKG ...      BNG   0  XPRBEND     [J IF AT END OF PRB  
   9 7BKN ...      LDX   4  A1+1(3)  
  15 7BKW ...      BPZ   4  XONL1      [J IF DEVICE LIST ADDR
   7 7BL4 ...      ADN   5  1
   5 7BL= ...XONL1   
  20 7BLD ...      BXE   0  ACOMMUNE4(2),XONNEXT      [J IF IDENTICAL ENTRY FOUND
   8 7BLL ...      SMO      FX1  
   8 7BLS ...      ANDX  0  TOP9 
  17 7BM2 ...      BXU   0  7,XONNEXT            [J IF DIFFERENT TYPE
  18 7BM8 ...      BPZ   4  XONL2                [J IF DEVICE LIST ADDR  
  15 7BMB ...      LDN   2  ACTRING(1)           [PCA ADDR   
  15 7BMJ ...      LDX   4  5                    [OLPA COUNT 
   5 7BMQ ...XOLPA   
   9 7BMY ...      LDX   2  FPTR(2)  
   8 7BN6 ...      BCT   4  XOLPA
  11 7BN# ...      LDX   0  ATMARK-ACTRING(2)
   8 7BNG ...      LDX   2  FX2  
   9 7BNN ...      BZE   0  XONNEXT  
   7 7BNW ...      SBN   0  3
  17 7BP4 ...      BZE   0  XONNEXT             [J IF REALLY OFFLINE 
   5 7BP= ...XONL2   
  18 7BPD ...      ADN   6  1                    [ONE MORE ONLINE ENTRY  
   5 7BPL ...XONNEXT 
   7 7BPS ...      ADN   3  2
   9 7BQ2 ...      BRN      XPRBLOOP 
   5 7BQ8 ...XPRBEND 
  17 7BQB ...      BXL   6  ACOMMUNE9(2),XIGNORE     [J IF NO EVENT  
   5 7BQJ ...XONLREQ 
  10 7BQQ ...      LDX   0  ACOMMUNE4(2) 
   8 7BQY ...      SRL   0  15   
  10 7BR6 ...      STO   0  ACOMMUNE4(2) 
  10 7BR7 ...      LDX   5  ACOMMUNE5(2) 
  10 7BR8 ...      LDX   6  ACOMMUNE6(2) 
  10 7BR9 ...      LDX   7  ACOMMUNE7(2) 
  10 7C=T ...      ACROSS  HLSEVENT,10   
   5 7CQF ...XIGNORE 
   9 7D=5 ...      ACROSS HLSEVENT,11
   4 7DPP ...#END
   6 ____ ...210306660004