Mit dem TOSPATCH Paket von Markus Heiden könnte man das TOS 1.04 patchen und sich einen neuen 6er Satz 27C256 Eproms programmieren ...
;*******************************************************************************
;* MRF:
;* Harddisk-Waiter (zum gleichzeitigen Anschalten von Rechner und Platte).
;* Leider ist mir unbekannt, von wem diese Routine stammt, ich habe sie in
;* einem Bootsektor gefunden. Zudem kann man das Warten mit [ALTERNATE]
;* abbrechen (wenn z.B. keine Platte vorhanden ist).
;*
;* >>> Achtung: Der Harddisk-Waiter funktioniert nur mit einer Platte. Zudem
;* bin ich nur sicher, da er mit meiner Megafile 60 funktioniert.
.HD_WAIT0 = 0 ;1: Patch einbinden, 0: Patch nicht einbinden
_IF .HD_WAIT0
.HD_WAIT: ~ HDWAIT.ABS ;Lnge 212 Bytes
!.HD_WAIT+8 .. ~ ;In diesem Patch nicht relozieren
438 |$4E,B9,.HD_WAIT+.BASE.L ;Jsr zum Harddisk-Waiter
43E |$4E,71,4E,71 ;Rest mit NOP's auffllen
_ENDIF
;*******************************************************************************
;* MRF:
;* Alternativer Hardisk-Waiter. Wartet .TIME Sekunden bei einem
;* Kaltstart auf die Platte. Dies funktioniert mit allen Platten!
;* Mit Tastendruck kann das Warten abgebrochen werden.
.HD_WAIT1 = 0 ;1: Patch einbinden, 0: Patch nicht einbinden
.TIME = .12 ;Wartezeit in s
_IF .HD_WAIT1
.HD_WAIT: ~ HDWAIT1.ABS ;Lnge 56 Bytes
!.HD_WAIT+8 .. ~ ;In diesem Patch nicht relozieren
.HD_WAIT+A |$.TIME*.200.L ;Wartezeit eintragen
438 |$4E,B9,.HD_WAIT+.BASE.L ;Jsr zum Harddisk-Waiter
43E |$4E,71,4E,71 ;Rest mit NOP's auffllen
_ENDIF
;*******************************************************************************
;* MH:
;* Hardisk-Waiter von EWK.
.HD_WAIT2 = 0 ;1: Patch einbinden, 0: Patch nicht einbinden
.TIME = .30 ;max. Wartezeit in s (max. 99s !!!)
.DEVICE = 0 ;DMA-Device, auf das gewartet werden soll (0-7)
_IF .HD_WAIT2
.HD_WAIT: ~ HDWAIT2.ABS ;Lnge 332 Bytes
!.HD_WAIT+8 .. ~ ;in diesem Patch nicht relozieren
;.HD_WAIT+E |$4E,71 ;Nur fr RAM-TOS und >=2 Harddisks
.HD_WAIT+1F |$.TIME.B ;Wartezeit eintragen
.HD_WAIT+86 |$.DEVICE*20.W ;Device eintragen
.HD_WAIT+92 |$.DEVICE*20.W
.HD_WAIT+10A |$.DEVICE+30.B
438 |$4E,B9,.HD_WAIT+.BASE.L ;Jsr zum Harddisk-Waiter
43E |$4E,71,4E,71 ;Rest mit NOP's auffllen
_ENDIF
;*******************************************************************************