/INTEL 8080 LOADER


*1000


LOAD,	CLA
	RTCHAR
	ROCT
	CHECK
	255
	JMP SEVRAL
	CHECK
	215
	SKP CLA
	TYDER
	TAD I OCNUMI
	DCA LOWLIM
	CLA CMA
	DCA LODCNT
	JMP LODLOD

SEVRAL,	CLA
	TAD I OCNUMI
	DCA LOWLIM
	RTCHAR
	ROCT
	CHECK
	215
	SKP CLA
	TYDER
	TAD I OCNUMI
	CMA
	TAD LOWLIM
	DCA LODCNT

LODLOD,	LINE
	CLA
	TAD LOWLIM
	JMS ADDRES
	TAD I LOWLIM
	JMS DATA
	ISZ LOWLIM
	MOSTSR
	ISZ LODCNT
	JMP LODLOD+1
	MOSTGO


ADDRES,	0
	AND NLOW
	6515
	CMA
	AND NLOW
	6516
	CLA
	JMP I ADDRES


DATA,	0
	AND NLOW
	6525
	CMA
	AND NLOW
	6526
	CLA CLL CML RAR
	6526
	6525
	CLA
	JMP I DATA






GO,	CLA
	TAD N10
	JMS OUTPUT
	ISZ DELDEL
	JMP .-1
	JMP I TYSIMI





TYSIMI,	TTYSIM
OCNUMI,	431
LOWLIM,	0
LODCNT,	0
ADDDAT,	0
NLOW,	377
NHIGH,	7400
N2,	2
N4,	4
N10,	10
N360,	360
DELCNT,	0
DELDEL,	0
N17,	17
N7760,	7760


*3000

TTYOUT,	CLA	/OUTPUT   INTEL TO DCWR   FLAG=2
	6514
	CLL RTR
	RTR
	MOSTSR
	WTSF
	JMP .-2
	WTLS
	CLA CLL IAC RAL
	6515

IOTWAT,	CLA
	MOSTSR
	6514
	AND C17
	SZA CLA
	JMP .-4
	JMP TTYLOP

TTYIN,	CLA	/INPUT   DCWR TO INTEL  FLAG=1
	MOSTSR
	RDSF
	JMP .-2
	RDRB
	CLL RTL
	RTL
	IAC
	6515
	JMP IOTWAT

C17,	17


TTYSIM,	WTLS
TTYLOP,	MOSTSR
	CLA CMA
	6516
	CLA
	6514
	AND C17
	SNA
	JMP TTYLOP

	CHECK
	1
	JMP TTYIN
	CHECK
	2
	JMP TTYOUT
	TYDER


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$