executive routine part 2

/dispatch table for user

d7,	jmp tot	/io
	jmp ill	/illegal
	jmp wa	/wat
	jmp ra	/rpa
	jmp rb	/rpb
	jmp to	/tyo
	jmp ti	/tyi
	jmp pa	/ppa
	jmp pb	/ppb
	jmp di	/dia
	jmp db	/dba
	jmp dc	/dcc
	jmp da	/dra
	jmp bp	/bpt
	jmp ar	/arq
	jmp ds	/dsm
	jmp rr	/rrb
	jmp xe0	/proceed trap

/dispatch table for ID

d9,	jmp tot
	jmp .	/illegal
	jmp .	/wat
	jmp ra	/rpa
	jmp rb	/rpb
	jmp to	/tyo
	jmp ti	/tyi
	jmp pa	/ppa
	jmp pb	/ppb
	jmp di	/dia
	jmp loc	/dba=lock
	jmp dc	/dcc
	jmp unl	/dra=unlock
	jmp .	/bpt
	jmp ar	/arq
	jmp id3	/dsm
	jmp .	/rrb
	jmp .	/crock
                                                
/entry from interrupts
tot,	rpf
	dio i pf1
	clf 7
	jsp srv
	jmp rm1
	stf 5
	jmp .-3

rm1,	0
	jmp pac	/get next user
	jsp cbk
pf1,	ior .
	lia
	lpf
rm3,	ad1
	lac 0
	lio 2
	jmp i 1

dms,	ior i jfm	/dismiss for io
	dac i jfm

wa,	cla	/dismiss this user
	dip i act
	lac i rf0	/release core fields
	dap . 2
	cla
	dip .
	lac i rf1
	dap . 3
	cli>>05<<swp
	spi
	dip .
wa1,	rpf
	dio i pf1
	clf 7

pac,	lac 0
	dac i ac1
	lac 1
	dac i pc1
	lac 2
	dac i io1
	rbe
	dio i be
pam,	lac i pf1
	and (60000
	sad (40000
	clc
	dip i jfm

pan,	jsp bsc
	law i ber-aas 1
	dac pli
	jmp pai
                                                
par,	law aas
	dap aw1
	law ber
	dap be
	law dmi
	dap act
	law jdm
	dap jfm
	law pbb
	dap rst
	jsp bsc
	jsp srv
	jmp aw1
	jmp .-2

pa6,	idx plj
	lia
	isp pli
	jmp pai
	spi
	jmp pai-1
	dzm plj
	dzm pli
	lio i act
	spi i
	jmp pai
	jmp pa5	/low priority activation

pli,	0
plj,	0

	stf 5
pai,	cli	/advance to next user
	lar
	scn
	szs 60
	jmp 6700	/system debug
	idx aw1
	sad (lio ber
	jmp par
	idx be
	idx act
	idx jfm
	idx rst

aw1,	lio .	/check this user
	lar
be,	lio .
	lbe
	lac onn
	xor csi
	and (177
	and i act
	sza
	jmp onf
	lac i act
	and onn
	sza i
	jmp pa6                
and cbi
	sza
	jmp ube
	law i 2
	sad pli
	jmp pa6
	jsp cbk
	dac iss
	sza i
	jmp pa6

be2,	law i ber-aas-1	/high priority activation
	add pli
	sad (aas-ber aas-ber
	law i ber-aas
	dac plj