TEXT   189
executive routine part 2
Guest on 27th November 2024 06:48:52 AM


  1. executive routine part 2
  2.  
  3. /dispatch table for user
  4.  
  5. d7,     jmp tot /io
  6.         jmp ill /illegal
  7.         jmp wa  /wat
  8.         jmp ra  /rpa
  9.         jmp rb  /rpb
  10.         jmp to  /tyo
  11.         jmp ti  /tyi
  12.         jmp pa  /ppa
  13.         jmp pb  /ppb
  14.         jmp di  /dia
  15.         jmp db  /dba
  16.         jmp dc  /dcc
  17.         jmp da  /dra
  18.         jmp bp  /bpt
  19.         jmp ar  /arq
  20.         jmp ds  /dsm
  21.         jmp rr  /rrb
  22.         jmp xe0 /proceed trap
  23.  
  24. /dispatch table for ID
  25.  
  26. d9,     jmp tot
  27.         jmp .   /illegal
  28.         jmp .   /wat
  29.         jmp ra  /rpa
  30.         jmp rb  /rpb
  31.         jmp to  /tyo
  32.         jmp ti  /tyi
  33.         jmp pa  /ppa
  34.         jmp pb  /ppb
  35.         jmp di  /dia
  36.         jmp loc /dba=lock
  37.         jmp dc  /dcc
  38.         jmp unl /dra=unlock
  39.         jmp .   /bpt
  40.         jmp ar  /arq
  41.         jmp id3 /dsm
  42.         jmp .   /rrb
  43.         jmp .   /crock
  44.                                                
  45. /entry from interrupts
  46. tot,    rpf
  47.         dio i pf1
  48.         clf 7
  49.         jsp srv
  50.         jmp rm1
  51.         stf 5
  52.         jmp .-3
  53.  
  54. rm1,    0
  55.         jmp pac /get next user
  56.         jsp cbk
  57. pf1,    ior .
  58.         lia
  59.         lpf
  60. rm3,    ad1
  61.         lac 0
  62.         lio 2
  63.         jmp i 1
  64.  
  65. dms,    ior i jfm       /dismiss for io
  66.         dac i jfm
  67.  
  68. wa,     cla     /dismiss this user
  69.         dip i act
  70.         lac i rf0       /release core fields
  71.         dap . 2
  72.         cla
  73.         dip .
  74.         lac i rf1
  75.         dap . 3
  76.         cli>>05<<swp
  77.         spi
  78.         dip .
  79. wa1,    rpf
  80.         dio i pf1
  81.         clf 7
  82.  
  83. pac,    lac 0
  84.         dac i ac1
  85.         lac 1
  86.         dac i pc1
  87.         lac 2
  88.         dac i io1
  89.         rbe
  90.         dio i be
  91. pam,    lac i pf1
  92.         and (60000
  93.         sad (40000
  94.         clc
  95.         dip i jfm
  96.  
  97. pan,    jsp bsc
  98.         law i ber-aas 1
  99.         dac pli
  100.         jmp pai
  101.                                                
  102. par,    law aas
  103.         dap aw1
  104.         law ber
  105.         dap be
  106.         law dmi
  107.         dap act
  108.         law jdm
  109.         dap jfm
  110.         law pbb
  111.         dap rst
  112.         jsp bsc
  113.         jsp srv
  114.         jmp aw1
  115.         jmp .-2
  116.  
  117. pa6,    idx plj
  118.         lia
  119.         isp pli
  120.         jmp pai
  121.         spi
  122.         jmp pai-1
  123.         dzm plj
  124.         dzm pli
  125.         lio i act
  126.         spi i
  127.         jmp pai
  128.         jmp pa5 /low priority activation
  129.  
  130. pli,    0
  131. plj,    0
  132.  
  133.         stf 5
  134. pai,    cli     /advance to next user
  135.         lar
  136.         scn
  137.         szs 60
  138.         jmp 6700        /system debug
  139.         idx aw1
  140.         sad (lio ber
  141.         jmp par
  142.         idx be
  143.         idx act
  144.         idx jfm
  145.         idx rst
  146.  
  147. aw1,    lio .   /check this user
  148.         lar
  149. be,     lio .
  150.         lbe
  151.         lac onn
  152.         xor csi
  153.         and (177
  154.         and i act
  155.         sza
  156.         jmp onf
  157.         lac i act
  158.         and onn
  159.         sza i
  160.         jmp pa6                
  161. and cbi
  162.         sza
  163.         jmp ube
  164.         law i 2
  165.         sad pli
  166.         jmp pa6
  167.         jsp cbk
  168.         dac iss
  169.         sza i
  170.         jmp pa6
  171.  
  172. be2,    law i ber-aas-1 /high priority activation
  173.         add pli
  174.         sad (aas-ber aas-ber
  175.         law i ber-aas
  176.         dac plj

Raw Paste

Login or Register to edit or fork this paste. It's free.