Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/demo.mac
There are 7 other files named demo.mac in the archive. Click here to see a list.
	.TITLE DEMO
START:
	MOV	#DPB,-(SP)	;PUT DPB ADDRESS ON STACK
	EMT	377		;DO THE QIO
	MOV	(PC)+,-(SP)	;PUSH DPB ONTO THE STACK
	.BYTE	51.,1		;EXIT DIC,LENGTH OF 1
	EMT	377		;TRAP TO THE EXECUTIVE

DPB:	.BYTE 3,12.		;QIOW DIC,LENGTH 12
	.WORD 11000		;FUNCTION CODE
	.WORD 5			;LUN IS 5
	.BYTE 1,0		;EVENT FLAG 1
	.WORD	0
	.WORD	0
	.WORD	TEXT
	.WORD	N
	.WORD	60
	.WORD	0
	.WORD	0
	.WORD	0
TEXT:	.ASCII	/DEMO - IT WORKS!/
	N=.-TEXT		;LENGTH OF MESSAGE
	.EVEN
	.END START