2,194 bytes added,
22:52, 12 March 2007 <pre>
;; This example shows how to write a sector to
;; a DATA format disc
;;
;; This code is public domain and can be used in your
;; own programs.
;;
;; Written by Kevin Thacker, 2002.
;;
;;------------------------------------------------
;; firmware function to find a RSX
.kl_find_command equ &bcd4
org &8000
nolist
;;------------------------------------------------
;; find BIOS: WRITE SECTOR command
;;
;; This method is compatible with other DOSs that
;; override or provide this command. If the command
;; is not found, then there is no furthur action. Therefore
;; on tape based systems, this code will have no effect.
ld hl,cmd_bios_write_sector
call kl_find_command
ret nc
;; command found
;; store address of command
ld (bios_write_sector),hl
;; store "rom select" of command
ld a,c
ld (bios_write_sector+2),a
;;------------------------------------------------------------------
;; fill buffer with data
ld hl,buffer
ld bc,512
ld e,0
.fb ld (hl),e
inc hl
inc e
dec bc
ld a,b
or c
jr nz,fb
;;------------------------------------------------------------------
;; write 512 bytes of data to track 0, sector &C1 from disc drive 0
;; HL = address of buffer
;; (change this value to define a different buffer address)
ld hl,buffer
;; E = drive number (0 or 1)
;; (change this value to define the disc drive to write to)
ld e,0
;; D = track number
;; (change this value to define the track to write to)
ld d,0
;; C = sector id
;;
;; sector ids for DATA format disc: &C1, &C2, &C3, &C4, &C5, &C6, &C7, &C8, &C9
;; sector ids for SYSTEM/VENDOR format disc: &41, &42, &43, &44, &45, &46, &47, &48, &49
;;
;; (change this value to define the id of the sector to write to)
ld c,&c1
;; execute command
rst 3
defw bios_write_sector
ret
;;------------------------------------------------------------------
;; this is initialised when the "BIOS: WRITE SECTOR" RSX has been found.
.bios_write_sector
defw 0 ;; address of function
defb 0 ;; "rom select" for function
.cmd_bios_write_sector
defb 5+&80 ;; this is the "BIOS: WRITE SECTOR" RSX
;;------------------------------------------------------------------
.buffer
defs 512
</pre>