summaryrefslogtreecommitdiff
path: root/SysCDisk.S
diff options
context:
space:
mode:
Diffstat (limited to 'SysCDisk.S')
-rw-r--r--SysCDisk.S207
1 files changed, 19 insertions, 188 deletions
diff --git a/SysCDisk.S b/SysCDisk.S
index 2d56e30..9385e1b 100644
--- a/SysCDisk.S
+++ b/SysCDisk.S
@@ -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
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-01 15:38:18 +0000