	.LIST
	.ASECT
	.=001000
	;-------------------------------------------------------------------------------
START:
	mov #^C7,r0
	mov #1777,r1

	mov #CharTest,r5
	call PrintString
	
	
	mov #'a,r0
	jsr pc,printchar
	
	call Monitor

	mov #CharTest,r4
	mov #20,r3
	jsr pc,MemDump
	RepeatRead:
	call WaitChar
	call PrintChar
	jmp RepeatRead

	JMP .						;Inf Loop

PrintString:					;Print 255 terminated string
	movb (r5)+,r0
	cmpb r0,#^d255
	beq PrSD
	
	call PrintChar
	jmp PrintString
PrSD:
	return
	
	.INCLUDE /Funct.mac/
	.INCLUDE /Monito.mac/


CharTest:
	.ASCII  'Hello World!'		;These numbers are in octal!
	.byte ^d255
	
	.EVEN			
;Space for Stack - Stack starts at end of program
	.BLKB 128.	

	.END    START
