File: RX01BT.PA of Tape: OS8/OS8-V40/v40-10
(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 $