DEMO.PAL
Код:
.TITLE CAPS-11 DEMO PROGRAM
;
;CAPS-11 DEMONSTRATION PROGRAM
;
;DEC-11-OTDMA-A-LA
;COPYRIGHT 1973 DIGITAL EQUIPMENT CORPORATION
;MAYNARD, MASSACHUSETTS 01754
;DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR
;RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT
;SUPPLIED BY DEC.
;
;
.GLOBL START
;
;ADDRESS OF CAPS-11 KBL IS IN LOCATION 50
;
KBLADR=50
CR=15
LF=12
START: MOV #600,%6 ;SET STACK POINTER
IOT ;RESET CAPS-11
.BYTE 1,0
.WORD 0
IOT ;TYPE MESSAGE ON CONSOLE
.BYTE 4,2
.WORD MSGBUF
WAIT: IOT ;WAIT FOR IT TO FINISH
.BYTE 3,2
.WORD WAIT
JMP *KBLADR ;BACK TO CAPS-11 MONITOR
MSGBUF: .WORD 100 ;MAX.SIZE OF BUFFER
.BYTE 0,0 ;MODE IS FORMATTED ASCII
;STATUS BYTE IS 0
.WORD MSGEND-MSGBUF-5 ;BYTE COUNT
.BYTE CR,LF
.ASCII /CAPS-11 DEMNOSTRATION /
.ASCII /PROGRAM COMPLETE./
.BYTE CR,LF
MSGEND: .BYTE LF
.END START