	output	.TOS
	include	ra_tos.i
	TEXT
prog_beg:
	gemdos	Super,!			;enter Supervisor mode
	ori	#$0700,sr		;disable all interrupts
	lea	($00FA0001).l,a0	;a0 -> $00FA0001  (ROM4 base adr+1)
.loop:
	tst.b	(a0)			;make single-byte read access
	bra.s	.loop			;loop forever
prog_end:
	END