XDTCDE.MAC=EXDBT.MAC
%
-1,3
	.TITLE	XDTCDE
	.IDENT	/01.01A/
	.PSECT	$$$XDT,RW,D,LCL,REL,CON
;
; ************************************************************************
;									 *
; MODIFIED EXDBT SOURCE TO FORM TEMPLATE CODE SECTION FOR LOADABLE       *
; XDT TASK. MODIFICATION FILE PREPARED BY RALPH STAMERJOHN		 *
;									 *
;	V01.01	RWS	28-OCT-80	REMOVE GETVAL, PUTVAL		 *
;	V01.01A	LKB	9-JAN-81	RENUMBER LINES IN XDTCDE.COR	 *
;									 *
; ************************************************************************
-141
XDTBEG::			;REF. LABEL
-151,151
UPC:	0			;USER pc			$7
-156,156
CNST:	0			;CONSTANT REGISTER		$C
-170,170
ADR1::		;ADDRESS OF THE BREAKPOINT	($0B-$7B)
-176,176
UIN::		;USER INSTRUCTION SAVE LOCATION ($0I-$7I)
-186
;
; LOADABLE XDT REGISTERS.
;
XDTCSR::			;TERMINAL CSR ADDRESS
TTYTKS:	.WORD	TKS		;
TTYTKB:	.WORD	TKB		;
TTYTPS:	.WORD	TPS		;
TTYTPB:	.WORD	TPB		;
;
; LOADABLE XDT DISPATCH VECTORS.
;
EXEXIT::.WORD			;NORMAL EXECUTIVE EXIT ROUTINE
RTNXIT::.WORD	0		;RETURN FROM TRAP ROUTINE
CRSXIT::.WORD	0		;EXIT TO CRASH ROUTINE
-192,192
SSTVEC:: +	ODDA		;0-ODD ADDRESS, OR HALT, VECTOR @4
-210,210
	 +	$TRTRP		;6-TRAP
-256,256
SSTXDT:: +	ERR		;0-ODD ADDRESS
-268,268
SSTADR::.WORD	4		;ODD ADDRESS
-416,449
;
; XDT INTERNAL STACK.
;
	.BLKB	100		;ALLOCATE 100 BYTES
XDTSTK:				;REF LABEL - STRAT OF XDT STACK
-647,647
ERR::	MOV	#XDTSTK,SP	;SET THE STACK FOR SANITY
	CALL 	SETCN		;SET OUTPUT FOR CONSOLE
-654,654
DCD::	MOV #XDTSTK,SP		;SET THE STACK FOR SANITY
-699,700
SETCN:	MOV TTYTPB,OUTB		;SET OUTPUT BUFFER ADDRESS
	MOV TTYTPS,OUTS		;SET OUTPUT STATUS ADDRESS
-896,896
SGMT::	TESTM	$SGFLT		;TEST IF IN EXEC MODE
-913,913
ODDA::	MOV	#"SO,EXP	;ASSUME STACK OVERFLOW
-919,926
BPTI::	TESTM	$TRACE		;TEST IF IN EXEC MODE
	MOV	#"BE,EXP	;"BE:" FOR MAYBE A BAD ENTRY
	CLRB	P		;ALLOW PROCEED DEAL
	BR	INTR		;SPECIAL NUMBER FOR THIS ONE
IOTX::	TESTM	$IOTRP		;TEST IF IN EXEC MODE
	MOV	#"IO,EXP	;"IO:" FOR IOTEE
	BR	ALOP		;ALLOW PROCEED
ILLI::	TESTM	$ILINS		;TEST IF IN EXEC MODE
-936,936
NEMT::	TESTM	$EMTRP		;TEST IF IN EXEC MODE
-950,950
	JMP	RTNX		;RTT MUST HAVE BEEN CHANGED TO AN RTI
-1024,1029
-1078
RTNX:	MOV	RTN,-(SP)	;GET INSTRUCTION TO EXIT WITH
	JMP	@RTNXIT		;AND EXIT TRAP
-1159,1161
10$:	TST	(SP)+		;CLEAN STACK
	RTS	R5		;PROCESS TRAP

20$:	MOV	(SP)+,R5	;GET NEW RETURN ADDRESS
	JMP	@EXEXIT		;TAKE NORMAL EXECUTIVE EXIT
-1222,1222
	JMP	@CRSXIT		; ALTERNATE ENTRY POINT TO THE CRASH MODULE
-1401,1403
GET:	TSTB	@TTYTKS		;CHARACTER READY
	BPL	GET		;IF PL NO
	MOVB	@TTYTKB,R0	;READ INPUT BYTE
-1428,1428
TYPE::	MOV	(SP),-(SP)	;DUPLICATE RETURN ADDRESS
-1619,1619
XDTSIZ	== <.-XDTBEG>
XDTEND::			;REF. LABEL
	.END
/