$MACRO TYPE string-addr types asciz string
LEN #@1
I%IN <#@2> <> <<POKE 28 #40>> <POKE 28 #@2>
?+ 2,,28
;qiow$s #io.wvb,#5,#5,,,,<#BUF,r0,#40>   THIS IS TOO DAMN SLOW
	CLR     -(SP)
	CLR     -(SP)
	CLR     -(SP)
	MOV     #@2,-(SP)
	MOV     r0,-(SP)
	MOV     #@1,-(SP)
	CLR     -(SP)
	CLR     -(SP)
	CLR     -(SP)
;
; the below are for lun 5
; make this lun7 for the mp processor itself (module $type$)
;
	MOVB    #5,(SP)
	MOV     #5,-(SP)
	MOV     #io.wvb,-(SP)
	MOV     (PC)+,-(SP)
	.BYTE   3,12.
	EMT     ^O<377>
$ENDM
/
PROGRAM type
.ident /12oct/
.title $type$
$type$::
	mov r3,-(sp)
	mov 4(sp),r3
	TYPE r3
	mov (sp)+,r3
	mov (sp),2(sp)
	add #2,sp
	rts pc
	.end