Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
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