/INTEL 8080 LOADER


*1000


LOAD,	JMS LOADSR
	MOSTGO


LOADSR,	0
	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 CLL CML RAR
	6525
	CLA
	TAD LOWLIM
	JMS ADDRES
	TAD I LOWLIM
	JMS DATA
	ISZ LOWLIM
	MOSTSR
	ISZ LODCNT
	JMP LODLOD+1
	CLA CLL CML RAR
	6526
	JMP I LOADSR


ADDRES,	0
	6515
	CMA
	6516
	CLA
	JMP I ADDRES


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


SWREG,	JMS SWRGSR
	MOSTSR
	JMP .-2




SWRGSR,	0
	LAS
	JMS I DIGOUT
	JMS I DIGIN
	JMS I ANYSUB
	JMP I SWRGSR



DIGOUT,	ADDRES
DIGIN,	MQSR
ANYSUB,	NULSUB




MQSR,	0
	CLA
	6514
	CMA
	MQL
	JMP I MQSR




NULSUB,	0
	JMP I NULSUB




OCNUMI,	431
LOWLIM,	0
LODCNT,	0
NLOW,	377
*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


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