;************************
;*	ASCII.M68
;*
;* Usage: ASCII [cr]
;*
;* prints the ascii chars
;* to the screen
;*
;* by Dave Heyliger
;************************

	OBJNAM	ASCII.LIT

	SEARCH SYS			;Get the Alpha Micro MONITOR CALLS
	SEARCH SYSSYM
	SEARCH TRM

TOP:	PHDR	-1,0,PH$REE!PH$REU	;re-entrant & re-usable code
	MOVB	'A,D1			;place ascii "A" in register D1

LOOP:	TTY				;"print" ascii value in D1 out
	ADDB	#1.,D1			;and then increment D1
	CMPB	D1,#123.	     	;see if D1 = #123 (decimal)
	BNE	LOOP			;if NOT, then branch to label LOOP
	CRLF				;else simulate a [cr]
	EXIT				;and exit back to the operating system

	END				;end of the code

.