;; Lab 9 main routine
	.ORIG	x4000
	LEA	R0,MsgSt
	PUTS
	LD	R0,CX3000
	JSRR	R0,#0

	LEA	R0,MsgDr
	PUTS
	TRAP	x55

	HALT

CX3000	.FILL	x3000
MsgSt	.STRINGZ "\nCalling your drain subroutine located at x3000\n"
MsgDr	.STRINGZ "\nCalling your drain trap located at trap x55\n"
	.END