; This program reads in a single ASCII character,
; then displays the next consecutive ASCII character

	.orig x3000
	in			; reads a char into R0
	add	r1, r0, #0	; save a copy in R1

	lea	r0, message	; put address of message in R0
	puts			; display message

	add	r0, r1, #1	; copy char back to r0, incremented
	out			; display incremented character

	halt
message .stringz "Here's the incremented character:  "
	.end