-128
; +++029
; +++029   START OF OUTPUT MACROS.  THESE GO ALONG WITH SUBROUTINES IN CDAMN
; +++029
	.MCALL	QIOW$S		; +++029
				; +++029
	.MACRO	MOVSTR,STRNG	; +++029 MOVE STRING OF CHARACTERS TO (R1)
	.IRPC	CHR,<STRNG>	; +++029 FOR EACH CHAR IN STRNG...
	MOVB	#<''CHR>,(R1)+	; +++029 MOVE THE CHARACTER TO ADDRESS OF R1
	.ENDR
	.ENDM	MOVSTR
				; +++029

       .MACRO	OUTBYT,DESCRP,VALUE
	PUSH	R1		; SAVE
	MOV	#SBUF+1,R1
	MOVSTR	<DESCRP>	; YOUR DESCRIPTION
	MOVB	VALUE,R1	; VALUE TO OUTPUT
	CALL	SBYTE		; OUTPUT BYTE
	POP	R1		; RESTORE
	.ENDM	OUTBYT
; +++029
       .MACRO	OUTWRD,DESCRP,VALUE
	PUSH	R1		; SAVE
	MOV	#SBUF+1,R1
	MOVSTR	<DESCRP>	; YOUR DESCRIPTION
	MOV	VALUE,R1	; VALUE TO OUTPUT
	CALL	SWORD		; OUTPUT BYTE
	POP	R1		; RESTORE
	.ENDM	OUTWRD
; +++029
	.MACRO	OUTLIN,DESCRP
	PUSH	R1
	MOV	#LINBUF,R1
	MOVSTR	<DESCRP>
	CALL	SLINE
	MOV	#LINBUF,R1
	MOVSTR	<                                          >
	POP	R1
	.ENDM	OUTLIN
; +++029
; +++029  END OF OUTPUT SUBROUTINES
; +++029
; +++029
;-
/