/8ED0AB PATCH TO RUN ON 8/A W/O FRONT PANEL

*123
ERROR=JMS I .
	EERROR

*200
	JMP 147

*475
	NOP
	NOP

*4646
	JMP I .+1
	4746

*5400
EERROR,	0		/ROUTINE TO HANDLE ERRORS
	CLA
	TAD BEGLST
	DCA COUNT
CHAR,	TAD I COUNT
	SNA
	JMP DONE
	JMS PRINT
	ISZ COUNT
	JMP CHAR

DONE,	TAD (7777
	TAD EERROR
	DCA COUNT
	TAD COUNT
	BSW
	RTR
	RAR
	AND (7
	TAD (60
	JMS PRINT
	TAD COUNT
	BSW
	AND (7
	TAD (60
	JMS PRINT
	TAD COUNT
	RTR
	RAR
	AND (7
	TAD (60
	JMS PRINT
	TAD COUNT
	AND (7
	TAD (60
	JMS PRINT
	TAD (15
	JMS PRINT
	TAD (12
	JMS PRINT
	JMP I (7600

COUNT,	0

BEGLST,	.+1
LSTBEG,	"T;"E;"S;"T;240;"F;"A;"I;"L;"U;"R;"E;240;"A;"T;240;"L;"O;"C;"A;"T
	"I;"O;"N;240;0

PRINT,	0
	TLS
	TSF
	JMP .-1
	CLA
	JMP I PRINT