; ----------------------------------------------------------
; One of a series of sample PC-231 programs to print strings
; Version #5: prints a fixed string which is stored in the
; computer's RAM in a data section following the program.
; This version implements a "function" which can be called
; from other parts of code and "passed" an address to print.
; Return address is stored in J3 and argument address in J2.
;
; by Fritz Ruehr # CS 231 # Fall 1998

	COPY  PC,J0	; get current address into J0
	INC   J0,4	; offset J0 for loop jump
	COPY  J0,R0	; set up R0 for use in LOADs
	INC   R0,5	; offset R0 for string
	LOAD  R1,R0	; get the first character from RAM
#NEXT
	WRITE R1,D2	; echo ASCII character to display
	INC   R0,1	; point to the next RAM character
	LOAD  R1,R0	; get the next character from RAM
	JPIF  R1,NZ,J0	; repeat loop unless zero char
	HALT		; end of program

; ---------------------------------------
; Data section (the string to be printed)

#STRING
	CONST 'H'
	CONST 'e'
	CONST 'l'
	CONST 'l'
	CONST 'o'

; --- End of print5 program ---