XDTCDE.MAC=EXDBT.MAC
%
-1,3
	.TITLE	XDTCDE
	.IDENT	/01.01/
	.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		*
;									*
; ***********************************************************************
-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	0		;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
-255,255
SSTXDT:: +	ERR		;0-ODD ADDRESS
-266,266
SSTADR::.WORD	4		;ODD ADDRESS
-413,446
;
; XDT INTERNAL STACK.
;
	.BLKB	100		;ALLOCATE 100 BYTES
XDTSTK:				;REF LABEL - STRAT OF XDT STACK
-644,644
ERR::	MOV	#XDTSTK,SP	;SET THE STACK FOR SANITY
	CALL	SETCN		;SET OUTPUT FOR CONSOLE
-651,651
DCD::	MOV	#XDTSTK,SP	;SET THE STACK FOR SANITY
-696,697
SETCN:	MOV	TTYTPB,OUTB	;SET OUTPUT BUFFER ADDRESS
	MOV	TTYTPS,OUTS	;SET OUTPUT STATUS ADDRESS
-893,893
SGMT::	TESTM	$SGFLT		;TEST IF IN EXEC MODE
-910,910
ODDA::	MOV	#"SO,EXP	;ASSUME STACK OVERFLOW
-916,923
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
-933,933
NEMT::	TESTM	$EMTRP		;TEST IF IN EXEC MODE
-946,946
	JMP	RTNX		;RTT MUST HAVE BEEN CHANGED TO AN RTI
-1020,1025
-1074
RTNX:	MOV	RTN,-(SP)	;GET INSTRUCTION TO EXIT WITH
	JMP	@RTNXIT		;AND EXIT TRAP
-1155,1157
10$:	TST	(SP)+		;CLEAN STACK
	RTS	R5		;PROCESS TRAP

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

	.END
/