diff options
| -rw-r--r-- | CDisk.S | 152 | ||||
| -rw-r--r-- | FileIO.S | 170 | ||||
| -rw-r--r-- | SysCDisk.S | 207 |
3 files changed, 206 insertions, 323 deletions
@@ -34,6 +34,7 @@ ** 29-Dec-90 V3.24 Gecrunchte Files werden automatisch entcruncht ** ** 06-May-91 V4.00 Tada! Schreibroutine eingebaut ** ** 16-Apr-92 V4.01 PP_SAVEMARGIN added, PowerPacker jetzt 100% ** +** 27-Jun-20 V4.02 File-Routinen nach FileIO.S gegen CopyPasta ** ** ** ***************************************************************************** @@ -42,7 +43,6 @@ CRUNCH -;;DEBUG ;;LIGHTSHOW IFD DEBUG @@ -55,16 +55,17 @@ DERR_WRONGDISK: EQU $26 DERR_WRONGPRODUCT: EQU $27 ENDC -CUSTOMOFFSET: EQU $19BE INCLUDE "MyExec.i" INCLUDE "relcustom.i" - ;; INCLUDE "protcustom.i" INCLUDE "hardware/intbits.i" INCLUDE "hardware/cia.i" + + XREF ReplyPacket + IFD RAMVERSION XREF ProcessFFSPacket ; Für ramdrive.device ENDC @@ -73,13 +74,15 @@ CUSTOMOFFSET: EQU $19BE XREF PPDecrunch ENDC - XDEF InitDiskFunc ; Disk-System initialisieren - XDEF SetNoDiskHandlerFunc - XDEF ReadFileFunc ; 'Datei' lesen - XDEF LoadFileFunc ; Speicher reservieren & File lesen - XDEF LoadFastFileFunc ; FAST alloc & File lesen - XDEF WriteFileFunc ; 'Datei' schreiben - XDEF SendPacketFunc ; Asynchronen Lese-Request schicken + XDEF InitDiskFunc ; Disk-System initialisieren + XDEF SetNoDiskHandlerFunc ; Wird aufgerufen für Diskchange + + XDEF ProcessNextRequest ; Wird von SendPacket() aufgerufen + + IFND SYSTEM + XDEF GetD7A4A5 + ENDC + *************************************************************************** @@ -298,96 +301,6 @@ SetNoDiskHandlerFunc: *************************************************************************** -** ** -** R E A D F I L E - Datei von Disk an angegebene Adresse laden ** -** ** -** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** -** A0.L : Ladeadresse ** -** ** -** Resultat : nix ** -** ** -*************************************************************************** - -ReadFileFunc: movem.l d1/a0-a1,-(SP) - moveq #0|DPF_REPLYBYTE,d1 ; LESEN - bra.s APost ; Paket aufgeben - - -*************************************************************************** -** ** -** W R I T E F I L E - Existierende 'Datei' auf Disk überschreiben ** -** ** -** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** -** A0.L : Adresse der Daten für das File ** -** ** -** Resultat : nix ** -** ** -*************************************************************************** - -WriteFileFunc: movem.l d1/a0-a1,-(SP) - move.b #DPF_WRITE|DPF_REPLYBYTE,d1 ; SCHREIBEN - bra.s APost ; Paket aufgeben - - -*************************************************************************** -** ** -** L O A D F I L E - Speicher reservieren, Datei von Disk lesen ** -** ** -** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** -** ** -** Resultat : D0.L : Adresse des Files, 0 if error ** -** Z-Bit: gelöscht wenn OK, gesetzt wenn Error ** -** ** -*************************************************************************** - -LoadFileFunc: movem.l d1/a0-a1,-(SP) - moveq #DPF_REPLYBYTE|DPF_ALLOCMEM,d1 ; Packet Flags - bra.s APost ; Paket aufgeben - -LoadFastFileFunc: - movem.l d1/a0-a1,-(SP) - moveq #DPF_REPLYBYTE|DPF_ALLOCFASTMEM,d1 ; Packet Flags - ;; bra.s APost ; Paket aufgeben - - -APost: lea -dp_SIZEOF-2(SP),SP ; DiskPacket erstellen - move.l a0,dp_Address(SP) ; Ladeadresse eintragen - movea.l SP,a0 ; A0 : Packet - move.l d0,dp_FileName(a0) ; Dateinamen eintragen - lea dp_SIZEOF(SP),a1 ; A1 : End-Flag - clr.b (a1) ; löschen - move.l a1,dp_Reply(a0) - move.b d1,dp_Flags(a0) ; DPF_REPLYBYTE [|DPF_WRITE] usw. - bsr.s SendPacketFunc -1$: tst.b (a1) ; Warten bis File geladen/geschrieben - beq.s 1$ - move.l dp_Address(SP),d0 ; Resultat: Adresse - lea dp_SIZEOF+2(SP),SP ; DiskPacket freigeben - movem.l (SP)+,d1/a0-a1 - rts - - -*************************************************************************** -** ** -** S E N D P A C K E T - Asynchronen Read-Request aufgeben ** -** ** -** Parameter : A0.L : Zeiger auf struct DiskPacket ** -** ** -** Resultat : nix ** -** ** -*************************************************************************** - -SendPacketFunc: movem.l d7/a0-a1/a4-a5,-(SP) - bsr GetD7A4A5 ; Für ProcessNextRequest() - movea.l a0,a1 ; Packet - lea meb_DiskList(a6),a0 - jsr meb_AddTail(a6) ; Packet anhängen - bsr.s ProcessNextRequest ; System ankicken - movem.l (SP)+,d7/a0-a1/a4-a5 - rts - - -*************************************************************************** *** Nächsten Request aus Diskliste verarbeiten @@ -410,7 +323,7 @@ ProcessNextRequest: movea.l meb_RAMDiskBase(a6),a1 ; Filename=RAM-Basis cmpi.l #FFSMAGIC,(a1) ; RAM-Disk in Ordnung ? beq.s 1$ ; ja ---> - MSG <"RAMDISK CORRUPT, A0=PACKET, A1=BASE"> + SMSG <"RAMDISK CORRUPT, PACKET=$%08lx, BASE=$%08lx">,a0,a1 1$: bsr ProcessFFSPacket ; Packet (A0) bearbeiten (FFS) bsr ReplyPacket ; Packet (A0) beantworten bra .EndProcReq ; ---> @@ -518,37 +431,6 @@ StartUnit: move.l d0,-(SP) move.l (SP)+,d0 rts -*************************************************************************** - - *** Packet (A0) beantworten - -ReplyPacket: movem.l a0-a2,-(SP) - movea.l a0,a2 ; A2 : Packet - - IFD CRUNCH - bclr.b #DPB_CRUNCHED,dp_Flags(a2) - beq.s 1$ - movea.l dp_Address(a2),a0 ; A0 : Start der gecrunchten Daten - move.l dp_FileSize(a2),d0 ; D0 : File-Länge gecruncht - move.l (a0),dp_FileSize(a2) ; Echte Länge für User - bsr PPDecrunch ; File decrunchen -1$: - ENDC - movea.l dp_Reply(a2),a1 ; A1 : User's Reply-Adresse - btst.b #DPB_REPLYHANDLER,dp_Flags(a2) - beq.s 2$ - movea.l a2,a0 ; A0 : Packet für User - jsr (a1) ; ReplyHandler aufrufen - bra.s 99$ ; ---> -2$: - btst.b #DPB_REPLYBYTE,dp_Flags(a2) - beq.s 3$ - st.b (a1) ; ReplyByte setzen - ;; bra.s 99$ ; ---> -3$: -99$: movem.l (SP)+,a0-a2 - rts - *************************************************************************** ** ** @@ -924,9 +806,9 @@ DoWaitDMA: .ReadError: IFD DEBUG - movea.l du_ActPacket(a3),a0 ; Für MSG - MSG <"Read Error D0=Error A0=Packet A2=MFM A3=Unit"> - ELSEIF + movea.l du_ActPacket(a3),a0 ; Für SMSG + SMSG <"Read Error %d, Packet=$%08lx MFM=$%08lx Unit=$%08lx">,d0,a0,a2,a3 + ELSE move.w #$fff,$dff180 ; Weiss=Failure ENDC clr.w du_DiskNumber(a3) ; Ungültige Diskette diff --git a/FileIO.S b/FileIO.S new file mode 100644 index 0000000..74cd21b --- /dev/null +++ b/FileIO.S @@ -0,0 +1,170 @@ + + IDNT FileIO + SECTION text,CODE + + + INCLUDE "MyExec.i" + + XREF ProcessNextRequest + + IFND SYSTEM + XREF GetD7A4A5 + ENDC + + IFD RAMVERSION + XREF ProcessFFSPacket ; Für ramdrive.device + ENDC + + XDEF ReadFileFunc ; 'Datei' lesen + XDEF WriteFileFunc ; 'Datei' schreiben + + XDEF LoadFileFunc ; Speicher reservieren & File lesen + XDEF LoadFastFileFunc ; FAST alloc & File lesen + + XDEF SendPacketFunc ; Asynchronen Lese-Request schicken + + XDEF ReplyPacket ; Internal helper for CDisk.S/SysCDisk.S + + + +*************************************************************************** +** ** +** R E A D F I L E - Datei von Disk an angegebene Adresse laden ** +** ** +** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** +** A0.L : Ladeadresse ** +** ** +** Resultat : nix ** +** ** +*************************************************************************** + +ReadFileFunc: movem.l d1/a0-a1,-(SP) + moveq #0|DPF_REPLYBYTE,d1 ; LESEN + bra.s APost ; Paket aufgeben + + +*************************************************************************** +** ** +** W R I T E F I L E - Existierende 'Datei' auf Disk überschreiben ** +** ** +** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** +** A0.L : Adresse der Daten für das File ** +** ** +** Resultat : nix ** +** ** +*************************************************************************** + +WriteFileFunc: movem.l d1/a0-a1,-(SP) + move.b #DPF_WRITE|DPF_REPLYBYTE,d1 ; SCHREIBEN + bra.s APost ; Paket aufgeben + + +*************************************************************************** +** ** +** L O A D F I L E - Speicher reservieren, Datei von Disk lesen ** +** ** +** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** +** ** +** Resultat : D0.L : Adresse des Files, 0 if error ** +** Z-Bit: gelöscht wenn OK, gesetzt wenn Error ** +** ** +*************************************************************************** + +LoadFileFunc: movem.l d1/a0-a1,-(SP) + moveq #DPF_REPLYBYTE|DPF_ALLOCMEM,d1 ; Packet Flags + bra.s APost ; Paket aufgeben + +LoadFastFileFunc: + movem.l d1/a0-a1,-(SP) + moveq #DPF_REPLYBYTE|DPF_ALLOCFASTMEM,d1 ; Packet Flags + ;; bra.s APost ; Paket aufgeben + +APost: lea -dp_SIZEOF-2(SP),SP ; DiskPacket erstellen + move.l a0,dp_Address(SP) ; Ladeadresse eintragen + movea.l SP,a0 ; A0 : Packet + move.l d0,dp_FileName(a0) ; Dateinamen eintragen + lea dp_SIZEOF(SP),a1 ; A1 : End-Flag + clr.b (a1) ; löschen + move.l a1,dp_Reply(a0) + move.b d1,dp_Flags(a0) ; DPF_REPLYBYTE [|DPF_WRITE] usw. + bsr SendPacketFunc +1$: + SMSG <"Waiting ..."> + tst.b (a1) ; Warten bis File geladen/geschrieben + beq.s 1$ + move.l dp_Address(SP),d0 ; Resultat: Adresse + lea dp_SIZEOF+2(SP),SP ; DiskPacket freigeben + SMSG <"LoadFile done"> + movem.l (SP)+,d1/a0-a1 + rts + + +*************************************************************************** +** ** +** S E N D P A C K E T - Asynchronen Read-Request aufgeben ** +** ** +** Parameter : A0.L : Zeiger auf struct DiskPacket ** +** ** +** Resultat : nix ** +** ** +*************************************************************************** + +SendPacketFunc: + IFD SYSTEM + movem.l a0-a1,-(SP) + ELSE + movem.l d7/a0-a1/a4-a5,-(SP) + bsr GetD7A4A5 ; Für ProcessNextRequest() in CDisk.S (nicht in SysCDisk.S) + ENDC + movea.l a0,a1 ; Packet + lea meb_DiskList(a6),a0 + jsr meb_AddTail(a6) ; Packet anhängen + bsr ProcessNextRequest ; System ankicken + IFD SYSTEM + movem.l (SP)+,a0-a1 + ELSE + movem.l (SP)+,d7/a0-a1/a4-a5 + ENDC + rts + + +*************************************************************************** + + *** Packet (A0) beantworten + +ReplyPacket: movem.l d0/a0-a2,-(SP) + movea.l a0,a2 ; A2 : Packet + moveq #0,d0 + move.b dp_Flags(a2),d0 + + ;;; SMSG <"ReplyPacket($%08lx), flags=$%02ld">,a2,d0 + + IFD CRUNCH + btst #DPB_CRUNCHED,d0 + beq.s 1$ + movea.l dp_Address(a2),a0 ; A0 : Start der gecrunchten Daten + move.l dp_FileSize(a2),d0 ; D0 : File-Länge gecruncht + move.l (a0),dp_FileSize(a2) ; Echte Länge für User + SMSG <"Decrunching %ld to %ld bytes at $%08lx">,d0,(a0),a0 + bsr PPDecrunch ; File decrunchen +1$: + ENDC + movea.l dp_Reply(a2),a1 ; A1 : User's Reply-Adresse + btst #DPB_REPLYHANDLER,d0 + beq.s 2$ + SMSG <"Calling reply handler $%08lx">,a1 + movea.l a2,a0 ; A0 : Packet für User + jsr (a1) ; ReplyHandler aufrufen + bra.s 99$ ; ---> +2$: + btst #DPB_REPLYBYTE,d0 + beq.s 3$ + SMSG <"Setting reply byte $%08lx">,a1 + st.b (a1) ; ReplyByte setzen + ;; bra.s 99$ ; ---> +3$: +99$: movem.l (SP)+,d0/a0-a2 + rts + + + END @@ -11,17 +11,15 @@ ;CRUNCH XREF _RawPrintfFunc + XREF ReplyPacket IFD CRUNCH XREF PPDecrunch ENDC - XDEF InitDiskFunc ; Disk-System initialisieren + XDEF InitDiskFunc ; Disk-System initialisieren XDEF SetNoDiskHandlerFunc - XDEF ReadFileFunc ; 'Datei' lesen - XDEF WriteFileFunc ; 'Datei' schreiben - XDEF LoadFileFunc ; Speicher reservieren & File lesen - XDEF LoadFastFileFunc ; FAST alloc & File lesen - XDEF SendPacketFunc ; Asynchronen Lese-Request schicken + + XDEF ProcessNextRequest ; Wird von SendPacket() aufgerufen *************************************************************************** @@ -39,7 +37,7 @@ InitDiskFunc: movem.l d0/a0,-(SP) *** DiskRequest-Liste initialisieren lea meb_DiskList(a6),a0 - jsr meb_NewList(a6) + SYSJSR NewList movem.l (SP)+,d0/a0 rts @@ -59,91 +57,6 @@ SetNoDiskHandlerFunc: ************************************************************************** -** ** -** R E A D F I L E - 'Datei' von Disk lesen & MFM-dekodieren ** -** ** -** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** -** A0.L : Ladeadresse ** -** ** -** Resultat : D0.L : Fehlernummer, 0 if successful ** -** Z-Bit: gesetzt if OK, gelöscht wenn Fehler ** -** ** -************************************************************************** - -ReadFileFunc: movem.l a0-a1,-(SP) - lea -dp_SIZEOF-2(SP),SP ; DiskPacket erstellen - move.l d0,dp_FileName(SP) - move.l a0,dp_Address(SP) - movea.l SP,a0 ; A0 : Packet - lea dp_SIZEOF(SP),a1 ; A1 : End-Flag - clr.b (a1) ; löschen - move.l a1,dp_Reply(a0) - move.b #DPF_REPLYBYTE,dp_Flags(a0) - bsr.s SendPacketFunc -1$: tst.b (a1) ; Warten bis File geladen! - beq.s 1$ - lea dp_SIZEOF+2(SP),SP ; DiskPacket freigeben - moveq #0,d0 ; Success ** DEBUG ** - movem.l (SP)+,a0-a1 - rts - - -************************************************************************** -** ** -** L O A D F I L E - Speicher reservieren, Datei von Disk lesen ** -** ** -** Parameter : D0.L : DiskAdresse (Disk/Track/Offset) der Datei ** -** ** -** Resultat : D0.L : Adresse des Files, 0 if error ** -** Z-Bit: gelöscht wenn OK, gesetzt wenn Error ** -** ** -************************************************************************** - -LoadFileFunc: movem.l d1/a0-a1,-(SP) - moveq #DPF_REPLYBYTE|DPF_ALLOCMEM,d1 ; Packet Flags - bra.s DoLoadFile ; ---> - -LoadFastFileFunc: - movem.l d1/a0-a1,-(SP) - moveq #DPF_REPLYBYTE|DPF_ALLOCFASTMEM,d1 ; Packet Flags - ;; bra.s DoLoadFile ; ---> - -DoLoadFile: lea -dp_SIZEOF-2(SP),SP ; DiskPacket erstellen - movea.l SP,a0 ; A0 : Packet - lea dp_SIZEOF(SP),a1 ; A1 : End-Flag - move.l d0,dp_FileName(a0) - clr.b (a1) ; End-Flag löschen - move.l a1,dp_Reply(a0) - move.b d1,dp_Flags(a0) ; ReplyType & MemoryType - bsr.s SendPacketFunc -1$: tst.b (a1) ; Warten bis File geladen! - beq.s 1$ - move.l dp_Address(SP),d0 ; Resultat: Adresse - lea dp_SIZEOF+2(SP),SP ; Doesn't change CCR - movem.l (SP)+,d1/a0-a1 - rts - - -************************************************************************** -** ** -** S E N D P A C K E T - Asynchronen Read-Request aufgeben ** -** ** -** Parameter : A0.L : Zeiger auf struct DiskPacket ** -** ** -** Resultat : nix ** -** ** -************************************************************************** - -SendPacketFunc: movem.l d7/a0-a1/a4-a5,-(SP) - movea.l a0,a1 ; Packet - lea meb_DiskList(a6),a0 - jsr meb_AddTail(a6) ; Packet anhängen - bsr.s ProcessNextRequest ; System ankicken - movem.l (SP)+,d7/a0-a1/a4-a5 - rts - - -************************************************************************** *** Nächsten Request aus Diskliste verarbeiten @@ -154,16 +67,11 @@ ProcessNextRequest: jsr meb_RemHead(a6) ; setzt CCR beq .EndProcReq ; Kein Request pending ---> movea.l d0,a2 ; A2 : Aktuelles Packet - - *** "Loading 'filename' (flags)" auf Debug-Konsole ausgeben - + IFD DEBUG moveq #0,d0 - move.b dp_Flags(a2),d0 - move.w d0,-(SP) - move.l dp_FileName(a2),-(SP) - pea LoadingFmt(PC) - bsr _RawPrintfFunc - lea 10(SP),SP + move.b dp_Flags(a2),d0 ; für SMSG + SMSG <"Loading '%s' (flags=$%02lx) ... ">,dp_FileName(a2),d0 + ENDC *** Packet bearbeiten @@ -172,28 +80,24 @@ ProcessNextRequest: movea.l dp_FileName(a2),a0 bsr @CheckFile move.l d0,d2 ; D2 : File-Länge - move.l d2,-(SP) bne 1$ ; OK --> - pea NotFoundText(PC) - bsr _RawPrintfFunc - addq.w #4,SP + SMSG <"'%s': file not found!">,dp_FileName(a2) bra .Error -1$ +1$: btst.b #DPB_ALLOCMEM,dp_Flags(a2) ; CHIP-Alloc gewünscht ? beq.s .NoChipAlloc ; nein ---> move.l d2,d0 ; File-Länge movea.l a5,a6 ; MyExecBase - jsr meb_AllocMem(a6) + SYSJSR AllocMem bra.s .AllocCont ; ---> .NoChipAlloc: btst.b #DPB_ALLOCFASTMEM,dp_Flags(a2) ; FAST-Alloc gewünscht? beq.s .NoFastAlloc ; nein ---> move.l d2,d0 ; File-Länge movea.l a5,a6 ; MyExecBase - jsr meb_AllocFastMem(a6) + SYSJSR AllocFastMem .AllocCont: move.l d0,dp_Address(a2) ; Adresse ins Packet .NoFastAlloc: - move.l dp_FileName(a2),d1 move.l #MODE_OLDFILE,d2 movea.l _DOSBase,a6 @@ -201,89 +105,25 @@ ProcessNextRequest: move.l d0,d7 bne.s 2$ - movea.l dp_FileName(a2),a0 - lea df0buf,a1 -.copy: move.b (a0)+,(a1)+ - bne.s .copy +.Error: movea.l a5,a6 ; MyExecBase + jmp meb_ColdReboot(a6) ; Raus hier! - move.l #buf,d1 - JSRLIB Open - move.l d0,d7 - beq.s .Error -2$ - move.l d7,d1 +2$: move.l d7,d1 move.l dp_Address(a2),d2 move.l #10000000,d3 JSRLIB Read - move.l d0,-(SP) - pea BytesFmt(PC) - bsr _RawPrintfFunc - lea 8(SP),SP + SMSG <"Loaded %ld bytes at $%08lx">,d0,d2 move.l d7,d1 JSRLIB Close - +.DoReply movea.l a2,a0 movea.l a5,a6 ; MyExecBase - bsr.s ReplyPacket ; Packet (A0) beantworten - + bsr ReplyPacket ; Packet (A0) beantworten .EndProcReq: movem.l (SP)+,d0-d7/a0-a5 rts -.Error: movea.l a5,a6 ; MyExecBase - jmp meb_ColdReboot(a6) ; Raus hier! - - -*************************************************************************** - - *** Packet (A0) beantworten - -ReplyPacket: movem.l a0-a2,-(SP) - movea.l a0,a2 ; A2 : Packet - movea.l dp_Reply(a2),a1 ; A1 : User's Reply-Adresse - - *** Text ausgeben - - move.l dp_Address(a2),-(SP) - pea LoadedFmt(PC) - bsr _RawPrintfFunc - lea 8(SP),SP - - IFD CRUNCH - bclr.b #DPB_CRUNCHED,dp_Flags(a2) - beq.s 1$ - movea.l dp_Address(a2),a0 ; A0 : Decrunch-Start - move.l dp_FileSize(a2),d0 ; D0 : File-Länge gecruncht - move.l (a0),dp_FileSize(a2) ; Echte Länge für User - bsr PPDecrunch -1$: - ENDC - btst.b #DPB_REPLYHANDLER,dp_Flags(a2) - beq.s 2$ - movea.l a2,a0 ; A0 : Packet für User - jsr (a1) ; ReplyHandler aufrufen - bra.s 99$ ; ---> -2$: - btst.b #DPB_REPLYBYTE,dp_Flags(a2) - beq.s 3$ - st.b (a1) ; ReplyByte setzen - ;; bra.s 99$ ; ---> -3$: -99$: movem.l (SP)+,a0-a2 - rts - -************************************************************************** -** ** -** W R I T E F I L E - Existierende 'Datei' auf Disk überschreiben ** -** ** -** Parameter : D0.L : FN_-Konstante (von DiskMaker erzeugt) ** -** A0.L : Adresse der Daten für das File ** -** ** -************************************************************************** - -WriteFileFunc: rts - ************************************************************************** * D A T E N (auch im CODE-Segment wegen PC-relativ) * @@ -291,13 +131,4 @@ WriteFileFunc: rts InsertDiskRoutine: ds.l 1 ; User's InsertDisk handler - -LoadingFmt: dc.b "Loading '%s' (flags=$%02x) ... ",0 -BytesFmt: dc.b "%ld bytes ",0 -LoadedFmt: dc.b "at $%08lx",10,13,0 -NotFoundText: dc.b "file not found",10,13,0 - -buf: dc.b "DF0:" -df0buf: ds.b 64 - END |