/INTEL LOADER


*1000


LOAD,	CLA
	JMS OUTPUT
	JMS START
	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
	DCA ADDDAT
	TAD ADDDAT
	AND NLOW
	CLL RTL
	RTL
	IAC
	JMS OUTPUT
	JMS HOLD
	TAD ADDDAT
	AND NHIGH
	CLL RTR
	RAR
	TAD N2
	JMS OUTPUT
	JMS HOLD
	JMP I ADDRES


DATA,	0
	AND NLOW
	CLL RTL
	RTL
	TAD N4
	JMS OUTPUT
	JMS HOLD
	JMP I DATA


START,	0
	CLA
	TAD RSTINS
	6526
	CMA
	6525
	CLA
	TAD N4
	6526
	6525
	CLA
	JMP I START


RSTINS,	6440


OUTPUT,	0
	DCA DELDEL
	TAD DELDEL
	AND N7760
	CMA
	6516
	CMA
	6515
	CLA
	TAD DELDEL
	AND N17
	6515
	CLA
	JMP I OUTPUT

HOLD,	0
	MOSTSR
	ISZ DELCNT
	JMP .-1
	CLA
	TAD N17
	6516
	CLA CMA
	6516
	ISZ DELCNT
	JMP .-1
	CLA
	JMP I HOLD


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


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