1 TITLE 'sd disk handler'
3 ; CP/M-80 Version 3 -- Modular BIOS
6 ; Disk drive dispatching tables for linked BIOS
11 ; Variables containing parameters passed by BDOS
18 ; System Control Block variables
20 extrn @ermde ; BDOS error mode
24 extrn ?wboot ; warm boot vector
25 extrn ?pmsg ; print message @<HL>
26 extrn pr.idx ; print indexed message
27 extrn pr.inln,pr.crlf ; print inline message, print <cr><lf>
28 extrn pr.errors ; print BIOS disk error header
29 extrn bnk2phy ; translate banked to physical linear address
30 extrn msg.sm ; send message to AVR
31 extrn msg.recv ; receive message from AVR
32 extrn add_hla ; add <A> to <HL>
35 ; Port Address Equates
40 ; CP/M 3 Disk definition macros
44 ; Z180 macro library instruction definitions (ignored by slr180)
48 ; common control characters
57 ; Extended Disk Parameter Headers (XPDHs)
59 ; dph translate$table, - disk parameter header
60 ; disk$parameter$block,
61 ; checksum$size, (optional)
62 ; alloc$size (optional)
68 db 0,0 ; relative drive zero
69 sd0: dph 0,dpbsimhd512
75 db 1,0 ; relative drive one
76 sd1: dph 0,dpbsimhd512
82 db 2,0 ; relative drive zero
83 sd2: dph 0,dpbsimhd512
89 db 3,0 ; relative drive one
90 sd3: dph 0,dpbsimhd512
97 db 4,0 ; relative drive zero
98 sd4: dph 0,dpbsimhd512
104 db 5,0 ; relative drive one
105 sd5: dph 0,dpbsimhd512
111 db 6,0 ; relative drive zero
112 sd6: dph 0,dpbsimhd512
118 db 7,0 ; relative drive one
119 sd7: dph 0,dpbsimhd512
122 cseg ; DPB must be resident
124 ; dpb physical$sector$size, - disk parameter block
125 ; physical$sectors$per$track,
128 ; number$dir$entries,
130 ; checksum$vec$size (optional)
133 dpb 512,8,2048,4096,1024,6,8100h
136 dseg ; rest is banked
138 ; Disk I/O routines for standardized BIOS interface
140 ; Initialization entry point.
141 ; called for first time initialization.
145 db 'sdio: SD Card driver'cr,lf,0
155 ret ; all initialization done by drive 0
158 ; This entry is called when a logical drive is about to
159 ; be logged into for the purpose of density determination.
160 ; It may adjust the parameters contained in the disk
161 ; parameter header pointed at by <DE>
163 ; absolute drive number in @adrv (8 bits) +0
164 ; relative drive number in @rdrv (8 bits) +1
170 ld (hl),0 ;login function
180 call bnk2phy ;phys. linear address
189 ld b,send_msg_login_len
193 ld b,recv_msg_len ; max receive message len
205 ; disk READ and WRITE entry points.
206 ; these entries are called with the following arguments:
208 ; operation type (r/w) in @op (8 bits) +0
209 ; absolute drive number in @adrv (8 bits) +1
210 ; relative drive number in @rdrv (8 bits) +2
211 ; disk track address in @trk (16 bits) +3
212 ; disk sector address in @sect(16 bits) +5
213 ; multi sector count in @cnt (8 bits) +7
214 ; disk transfer address in @dma (16 bits) +8
215 ; disk transfer bank in @dbnk (8 bits) +10
216 ; pointer to XDPH in <DE>
218 ; they transfer the appropriate data, perform retries
219 ; if necessary, then return an error code in <A>
223 ld hl,residual ; remainng sectors from last multi io?
233 ld b,1 ; assume 1 sector to transfer
238 ld b,a ; number of sectors to transfer
239 dec a ; save remaining
241 xor a ; reset multi sector count
244 ; compute pysical transfer address
246 ; and send it to AVR.
250 ld hl,@op ;address of arguments
254 ld (de),a ;number of sectors
257 ld e,(hl) ;dma address
263 call bnk2phy ;phys. linear address
279 ld b,recv_msg_len ; max receive message len
283 ret z ; check status and return to BDOS if no error
287 jr z,retry ; Yes, then retry once more
291 ld a,(recv_msg_rc) ; return hard error to BDOS
293 cp 6 ; media changed?
296 cp 5 ; disk read only?
303 ;-------------------------------------------------------------------------------
311 ld hl,drvmsg0 ; point at first driver error message
317 ret z ; no fatfs error
322 ld hl,fr$msg0 ; point at first FatFs message
324 jp pr.idx ; return via print routine
327 ;-------------------------------------------------------------------------------
334 ds 1 ; subcommand (login/read/write)
337 ; -read/write- -login-
338 ds 2 ; @trk xdph address
339 ds 2 ; @sect (3 byte)
342 send_msg_rw_len equ $ - send_msg
343 send_msg_login_len equ 7
352 ds 4 ; room for additional parameter
353 recv_msg_len equ $ - recv_msg
356 ;-------------------------------------------------------------------------------
357 ; error message components
358 ; general driver errors
360 drvmsg0: db 'Unknown Error, ',0
361 drvmsg1: db 'Invalid Parameter(s), ',0
362 drvmsg2: db 'Invalid Drive, ',0
363 drvmsg3: db 'Bus Timeout, ',0
364 drvmsg4: db 'Access beyond disk size, ',0
365 drvmsg5: db 'Write protected, ',0
366 drvmsg6: db 'No media, ',0
369 ; fat file system errors
371 fr$msg0: db 'Unknown Error,',0
372 fr$msg1: db 'DISK_ERR,',0
373 fr$msg2: db 'INT_ERR,',0
374 fr$msg3: db 'NOT_READY,',0
375 fr$msg4: db 'NO_FILE,',0
376 fr$msg5: db 'NO_PATH,',0
377 fr$msg6: db 'INVALID_NAME,',0
378 fr$msg7: db 'DENIED,',0
379 fr$msg8: db 'EXIST,',0
380 fr$msg9: db 'INVALID_OBJECT,',0
381 fr$msg10: db 'WRITE_PROTECTED,',0
382 fr$msg11: db 'INVALID_DRIVE,',0
383 fr$msg12: db 'NOT_ENABLED,',0
384 fr$msg13: db 'NO_FILE_SYSTEM,',0
385 fr$msg14: db 'MKFS_ABORTED,',0
386 fr$msg15: db 'TIMEOUT,',0
387 fr$msg16: db 'LOCKED,',0
388 fr$msg17: db 'NOT_ENOUGH_CORE,',0
389 fr$msg18: db 'TOO_MANY_OPEN_FILES,',0
390 fr$msg19: db 'FR_INVALID_PARAMETER,',0
391 fr$msg20: db 'short read/write,',0