File: RX01BT.PA of Tape: OS8/OS8-Latest/new-12

(Source file text) 

---

/RX01 HARDWARE BOOTSTRAP
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)  1980   BY DATAPLAN GMBH, LAUDA, BRD
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DATAPLAN GMBH.
/DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR
/IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DATAPLAN'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DATAPLAN.
/
/DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
/OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DATAPLAN.
/
/
/
/
/
/
/
/
/
/
/
/WVDM, ZUERICH, 1-JAN-80
/MODIFIKATION VON RX01-HARDWARE BOOTSTRAP
/DIESER BOOTSTRAP FUNKTIONIERT AUCH AUF RX02 MASCHINE
/ZUGEHOERIGER SYSTEM-HANDLER IST: RX01SY VERSION !M!
/EINZIGER AENDERUNG IST BEI 'BOOT,': 'TAD K3002' STATT 'STL RTL'
/OKTAL: BEI ADRESSE 24:   '1050'    STATT    '7126'

DEVCOD=	750	/DEVICECODE

LCD=	6001+DEVCOD	/LOAD COMMAND REGISTER
XDR=	6002+DEVCOD	/TRANSFER DATA REGISTER
STR=	6003+DEVCOD	/SKIP ON TRANSFER REQUEST FLAG, CLEAR FLAG
SER=	6004+DEVCOD	/SKIP ON ERROR FLAG, CLEAR FLAG
SDN=	6005+DEVCOD	/SKIP ON DONE FLAG, CLEAR FLAG
INTR=	6006+DEVCOD	/INTERRUPT ENABLE/DISABLE
INIT=	6007+DEVCOD	/INITIALIZE CONTROLLER AND RECALIBRATE DRIVES

BOOTST=2
	*24
BOOT,	TAD	K3002	/MAKE 2000 OUT OF 7000, SET 2
	TAD	UNIT
	LCD
	CLA IAC
	JMS	LOAD
	JMS	LOAD
	CLL RAL

START,
HANGGG,	SDN
	JMP	LOAD+1
	SER
	SNA
	SKP CLA
	JMP	GOODRD
	TAD	UNIT
	CIA
	TAD	X6030
	DCA	UNIT
	JMP	BOOT
GOODRD,	LCD
LP,	JMS	LOAD
K3002,	DCA	BOOTST
	ISZ	.-1
	JMP	LP

LOAD,	0
	STR
	JMP	HANGGG
	XDR
	JMP I	LOAD
UNIT,	7024
X6030,	6030

	FIELD 0
	*START
	$

---