; ---------------------------------------------------------
; A sample PC-231 program to compute and print the alphabet
;
; by Fritz Ruehr # CS 231 # Fall 1998
; ---------------------------------------------------------

    DATA #print	; address of the WRITE
	COPY DR,J0	; set up for jump

	DATA 'Z'	; finish of alphabet
	COPY DR,R0	; put 'Z' in R0 for testing
	DATA 'A'	; start of alphabet

#print	WRITE DR,AD	; print current letter in ASCII
	COPY R0,R1	; get fresh 'Z' for test
	SUB  DR,R1	; compare current and finish

	INC DR,1	; compute next letter
	JPIF R1,NZ,J0	; continue if compared different
	HALT

; --- End of alphabet program ---