DEUNA support for ITS monitor.

src/system/dedefs.2

@@ -0,0 +1,30 @@
+%devec==120		;Interrupt vector
+
+%debas==774510		;Register base address, on UBA3
+
+%decr0=%debas		;PCSR0
+ %dgpcb==000001		;Get PCB address
+ %dgcmd==000002		;Execute command
+ %dtest==000003		;Self test
+ %dstrt==000004		;Start
+ %dboot==000005		;Boot
+ %dpdmd==000010		;Polling demand
+ %dstop==000017		;Stop
+ %drset==000040		;Reset
+ %dinte==000100		;Enable interrupts
+ %dintr==000200		;Interrupt
+ %dusci==000400		;Unsolicited state change
+ %drcbi==002000		;Receive buffer unavailable
+ %ddni ==004000		;Done
+ %dtxi ==010000		;Transmit
+ %drxi ==020000		;Receive
+ %deri ==040000		;Command error
+ %deri ==100000		;Status error
+
+%decr1=%debas+2		;PCSR1
+ %dxpwr==100000		;Transciever power ok
+ %dicab==040000		;Link ok
+ %dpcto==000200		;Port command time-out
+
+%decr2=%debas+4		;PCSR2
+%decr3=%debas+6		;PCSR3

src/system/deuna.1

@@ -0,0 +1,8 @@
+; DEUNA/DELUA SERVICE ROUTINE
+
+	EBLK
+DEBRK:	0
+	BBLK
+	JSR UTCSAV
+	;IODRI A,%DECR0
+	JRST DEEX

src/system/deuna.6

@@ -0,0 +1,13 @@
+; DEUNA/DELUA SERVICE ROUTINE
+
+$INSRT DEDEFS
+
+DECNT:	0
+
+	EBLK
+DEBRK:	0
+	BBLK
+	JSR UTCSAV
+	;AOS DECNT
+	IORDI A,%DECR0
+	JRST DEEX

src/system/its.1649

@@ -15982,6 +15982,7 @@ IFN NUNITS,[
 $INSRT UTAPE
 ]
 
+$INSRT DEUNA
 $INSRT DISK
 
 IFN NETP,[	; General ITS network code, includes specific nets
@@ -19179,6 +19180,7 @@ IFN TM03S,[
 	SKIPN MGTBZY
 	 JRST MGSBRK
 ]
+DEEX:
 IMPEX:
 MGEX:
 DSKEX:	MOVSI U,UTACS
@@ -19509,6 +19511,7 @@ UBAIIT:
 .MAX.==0
 IF2, .BAS.==UBAIIB
 
+UBINT 120, JSR DEBRK		; DEUNA/DELUA
 IFE TM03S, UBIDV 224		; Tape
 UBIDV 300			; NI1010 In
 UBIDV 304			; NI1010 Out