AC0==0
AC1==1
AC2==2
PDP==17

PTP==100

EXTERNAL PUTC,PUTS
EXTERNAL GETCH,GETC

ENTRY:	JRST	START

PDL:	BLOCK	100
SP:	XWD	-100,PDL-1

START:
	MOVE	PDP,SP

	MOVSI	AC2,440700
	HRRI	AC2,MSG
	PUSHJ	PDP,PUTS

	PUSHJ	PDP,GETC
;	CONO	PTP,20
	PUSHJ	PDP,PTPUT
	JRST	.-2

	HALT

PTPUT:
	CONSZ	PTP,20
	 JRST	.-1
	DATAO	PTP,AC1
	POPJ	PDP,

MSG:	ASCIZ /Hello, world!
yo! > /

END ENTRY