000000 main:
	mov	$11000,sp	012706	000
				011000	002
	mov	$hello,-(sp)	012746	004
				000300	006
	jsr	pc,puts		004737	010
				000200	012
	tst	(sp)+		005726	014
	halt			000000	016

000100 putchar:
	mov	2(sp),r0	016600	000
				000002	002
1:	bit	177564,$200	033727	004
				177564	006
				000200	010
	beq	1b		001774	012	xx
	tst	r0		005700	014
	beq	ret		001406	016	xx
	mov	r0,177566	010037	020
				177566	022
1:	bit	177564,$200	033727	024
				177564	026
				000200	030
	beq	1b		001774	032	xx
ret:	rts	pc		000207	034

000200 puts:
	tst	-(sp)		005746	000
1:	mov	4(sp),r0	016600	002
				000004	004
	tst	(r0)		005710	006
	beq	ret		001406	010	xx
	mov	(r0)+,(sp)	012016	012
	mov	r0,4(sp)	010066	014
				000004	016
	jsr	pc,putchar	004737	020	xx
				000100	022
	br	1b		000766	024	xx
ret:	tst	(sp)+		005726	026
	rts	pc		000207	030

000300 hello:
	"hello, world\0"
	0150
	0145
	0154
	0154
	0157
	0054
	0040
	0167
	0157
	0162
	0154
	0144
	0000
030