2 / VERSION 5A 4/28/77 PT
6 JMP SETINT /SET UP #INT INITIALLY
7 ISZ ONQI /BUMP ARG POINTER
8 ISZ INTQ+1 /BUMP INTERRUPT Q POINTER
10 DCA% INTQ+1 /STICK IOT ONTO INT Q
11 TAD XSKP /FOLLOWED BY A SKIP
13 DCA% INTQ+1 /ONTO INT Q
14 ISZ ONQI /SKIP FIRST WORD OF ADDR
16 ONQISW, TAD% ONQI /GET INT HANDLER ADDRESS
18 DCA% INTADR+1 /ONTO ADDRESS STACK
19 TAD INTADR+1 /NOW MAKE JMS%
22 DCA% INTQ+1 /ONTO INT Q
25 ISZ IQSIZE /ROOM FOR MORE ?
27 TAD .-1 /NO, CLOSE OUT THESUBR
30 SETINT, TAD ONQISW /DO THIS PART ONLY ONCE
44 JMP ONQI+1 /BACK TO ONQI
62 JMP SETBAK /SETUP #IDLE
63 TAD% ONQB /GET ADDRESS OF IDLE JOB
65 DCA% BAKADR+1 /STORE ONTO BACKROUND JOB Q
66 TAD BAKADR+1 /MAKE A JMS%
72 ISZ BQSIZE /MORE ROOM ?
74 TAD .-1 /NO, CLOSE THE DOOR
77 SETBAK, TAD ONQBSW /CLOSE OFF #IDLE INITIALIZATION
80 TAD XSKP /FIX UP #IDLE