/INTEL 8080 LOADER

FIELD 1

*1000


LOAD,	JMS LOADSR
	MOSTGO


LOADSR,	0
	CLA
	RTCHAR
	ROCT
	CHECK
	255
	JMP SEVRAL
	CHECK
	215
	SKP CLA
	TYDER
	CDF 0
	TAD I OCNUMI
	CDF 10
	DCA LOWLIM
	CLA CMA
	DCA LODCNT
	JMP LODLOD

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

LODLOD,	LINE
	TAD PDPCON
	6526
	CLA
	TAD LOWLIM
	JMS ADDRES
	TAD I LOWLIM
	JMS DATA
	ISZ LOWLIM
	MOSTSR
	ISZ LODCNT
	JMP LODLOD+1
	CLA
	TAD PDPCON
	6525
	JMP I LOADSR


ADDRES,	0
	6515
	CMA
	6516
	CLA
	JMP I ADDRES


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


SWREG,	JMS SWRGSR
	MOSTSR
	JMP .-2




SWRGSR,	0
	CLA
	TAD PDPCON
	6526
	LAS
	JMS I DIGOUT
	JMS I DIGIN
	NOP
	JMS I ANYSUB
	CLA
	TAD PDPCON
	6525
	CLA
	JMP I SWRGSR



DIGOUT,	ADDRES
DIGIN,	MQSR
ANYSUB,	NULSUB
PDPCON,	5000




MQSR,	0
	CLA
	6514
	CMA
	MQL
	JMP I MQSR




NULSUB,	0
	JMP I NULSUB




OCNUMI,	431
LOWLIM,	0
LODCNT,	0
NLOW,	377



LODRAM,	TAD PDPCON
	6526
	CLA
	TAD I N625
	JMS ADDRES
	TAD I N653
	JMS DATA
	TAD PDPCON
	6525
	CIF 0
	JMP I LODBAK


N625,	625
N653,	653
LODBAK,	651




FRED,	CLA
	TAD PDPCON
	6526
	CLA MQA
	JMS ADDRES
	6514
	CMA
	CIF 0
	AND NLOW
	DCA NULSUB
	TAD PDPCON
	6525
	CLA
	TAD NULSUB
	JMP I FRDBAK


FRDBAK,	622


RAMSYM,	CLA
	6524
	SMA CLA
	JMP .-2
	6523
	6514
	AND NLOW
	TAD N2000
	DCA ADDTEM
	TAD I ADDTEM
	JMS DATA
	JMP RAMSYM



	NOP
	NOP
	NOP


ADDTEM,	0
N2000,	2000



*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


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