/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,	CLA
	TAD LOWLIM
	JMS ADDRES
	TAD I LOWLIM
	JMS DATA
	ISZ LOWLIM
	MOSTSR
	ISZ LODCNT
	JMP LODLOD
	MOSTGO


ADDRES,	0
	DCA ADDDAT
	TAD ADDDAT
	AND NLOW
	CLL RTL
	RTL
	IAC
	JMS OUTPUT
	JMS HOLD
	TAD ADDDAT
	AND NHIGH
	CLL RTR
	RTR
	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
	CMA
	6516
	CMA
	6515
	JMS HOLD
	JMP I OUTPUT

HOLD,	0
HOLDLP,	MOSTSR
	CLA
	6514
	AND N360
	SNA CLA
	JMP HOLDLP
	CLA CMA
	6516
	ISZ DELCNT
	JMP .-1
	CLA
	JMP I HOLD


GO,	CLA
	TAD N10
	JMS OUTPUT
	MOSTGO




OCNUMI,	431
LOWLIM,	0
LODCNT,	0
ADDDAT,	0
NLOW,	377
NHIGH,	7400
N2,	2
N4,	4
N10,	10
N360,	360
DELCNT,	0


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