; *** Patchtext zum GEOS Patch System von Falk Rehwagen

; *** Wintergartenstraße 2/107, D-04103 Leipzig, Telefon: (0341) 284343

; Patchtext für das Programm: DBGetFil128 V3.0 (deutsch)

; Programmautor: Jean F. Major

; Programmversion vom: 28.6.92 13:24

; Autor des Patchtextes: Falk Rehwagen

; Version des Patchtextes: Version 1.0

; durchzuführende Änderungen: Anpassung an das deutsche GEOS 128 V2.0r (1)

; keine Infoboxen während des Bootens anzeigen (2)

; Änderung des Infotextes (3)

; zusammengehörende Patches: keine

; Hinweise: Patchtext enthält keinen Checksummentest

; -> nur Kopien von Originalversionen bearbeiten lassen

; -> vor Gebrauch alle Änderungen gründlich testen

; kommentiert: ja

"DBGetFil128 V3.0",0 ; Klasse der zu patchenden Datei

14 ; Filetyp: selbstausführend

; ====================================

0 ; Hauptdatensatz bearbeiten

#$0699 ; neue DS-Länge $0699

2 ; 2 Änderung im DS

; Änderung 1 (1)

0 ; 0 Checksummen prüfen

3 ; 3 Bereiche ändern

#$046a ; ab Adresse $046a

#2 ; 2 Bytes ändern

#$0a6a ; Einsprung DoDlgBox-Ergänzung

#$0484 ; ab Adresse $0484

#2 ; 2 Bytes ändern

#$0a6a ; Einsprung DoDlgBox-Ergänzung

#$0a6a ; ab Adresse $0a6a

#9 ; 9 Bytes ändern

$ad,#$88c5 ; lda $88c5 ; Aufruf während des Bootens

$30,$01 ; bmi $0a70 ; -> wenn ja, Box nicht aufbauen

$60 ; rts ; Rücksprung

$4c,#$c256 ; jmp $c256 ; Dialogbox aufbauen

; Änderung 2 (2)

0 ; 0 Checksummen prüfen

2 ; 2 Bereiche ändern

#$0403 ; ab Adresse $0403

#2 ; 2 Bytes ändern

#$0a73 ; Sprung zum Daten anpassen

#$0a73 ; ab Adresse $0a73

#38 ; 38 Bytes ändern

$20,#$c139 ; jsr $c139 ; Muster setzen

$a9,$00 ; LoadB r3L,0 ; von Bank 0

$85,$08

$a9,$01 ; LoadB r3H,1 ; nach Bank 1 kopieren

$85,$09

$a9,$76 ; LoadW r0,$0e76 ; Daten von $0e76

$85,$02

$a9,$e0

$85,$03

$a9,$b7 ; LoadW r1,$08b7 ; nach $08b7 kopieren

$85,$04

$a9,$08

$85,$05

$a9,$02 ; LoadW r2,2 ; 2 Bytes kopieren

$85,$06

$a9,$00

$85,$07

$4c,#$c2e3 ; jsr $c2e3 ; Bytes kopieren

; ====================================

254 ; Info-Block ändern

1 ; 1 Änderung durchführen

; Änderung 1 (3)

0 ; 0 Checksummen prüfen

1 ; 1 Bereich ändern

#$cd ; ab Byte $cd

#35 ; 35 Bytes ändern

" (also for v2.0r by Falk"

" Rehwagen)",0 ; neue Infotext-Ergänzung

; ====================================