14,319 bytes added,
07:38, 13 March 2007 <pre>
;; A simple disc copier which uses the BDOS functions.
;;
;; This example shows the correct method to access the BDOS functions.
;; This copier will work on CPC & CPC+.
;;
;; Copier supports:
;; - Vendor and Data format discs ONLY
;; - 40 track disc drive ONLY
;; - single sided disc drive ONLY
;;
;; Copyprotected discs can't be copied using this program!
;;
org &2000
nolist
write"copy.bin"
;;---------------------------------------------------------------------
;; operating system functions used
.kl_find_command equ &bcd4
.txt_output equ &bb5a
.bdos_set_message equ 1
.bdos_read_sector equ 4
.bdos_write_sector equ 5
.bdos_format equ 6
.bdos_move_track equ 7
.bdos_set_retry_count equ 9
.bdos_get_status equ 8
.km_read_char equ &bb09
.km_wait_char equ &bb06
.bdos_select_format equ 3
;;---------------------------------------------------------------------
;; offsets into our data buffer for our variables
.SOURCE_DRIVE equ 0
.DEST_DRIVE equ 1
.SECTOR_ID equ 2
.TRACK equ 3
.CUR_TRACK equ 4
.CUR_SECTOR equ 5
.DATA_PTR equ 6
.PREV_SET_MESSAGE equ 7
.PREV_RETRY equ 8
.NUM_TRACKS equ 9
;;=====================================================================
;; start of copy program
.copy
;;------------------------------------------------------
;; search for commands required for copy
;;
;; this is the correct method and will work with CPC and CPC+
ld hl,disc_command
call kl_find_command
ret nc
;; get address of commands
ld hl,read_sector_command
call kl_find_command
ret nc
ld (read_sector_cmd_data),hl
ld a,c
ld (read_sector_cmd_data+2),a
ld hl,write_sector_command
call kl_find_command
ret nc
ld (write_sector_cmd_data),hl
ld a,c
ld (write_sector_cmd_data+2),a
ld hl,format_command
call kl_find_command
ret nc
ld (format_cmd_data),hl
ld a,c
ld (format_cmd_data+2),a
ld hl,select_format_command
call kl_find_command
ret nc
ld (select_format_cmd_data),hl
ld a,c
ld (select_format_cmd_data+2),a
ld hl,move_track_command
call kl_find_command
ret nc
ld (move_track_cmd_data),hl
ld a,c
ld (move_track_cmd_data+2),a
ld hl,set_retry_count_command
call kl_find_command
ret nc
ld (set_retry_count_cmd_data),hl
ld a,c
ld (set_retry_count_cmd_data+2),a
ld hl,set_message_command
call kl_find_command
ret nc
ld (set_message_cmd_data),hl
ld a,c
ld (set_message_cmd_data+2),a
;;------------------------------------------------------
ld ix,copy_data
;;------------------------------------------------------
;; get source drive
;; display source drive question
ld hl,source_drive_txt
call print
ld hl,drive_txt
call print
;; ask user to select drive
call get_drive
ld (ix+SOURCE_DRIVE),c
;;------------------------------------------------------
;; get dest drive
ld hl,dest_drive_txt
call print
ld hl,drive_txt
call print
;; ask user to select drive
call get_drive
ld (ix+DEST_DRIVE),c
;;------------------------------------------------------
;; display insert message(s)
;; display message to insert disc into source drive
call source_drive_msg
call crlf
;; same drive used as source and destination?
ld a,(ix+SOURCE_DRIVE)
cp (ix+DEST_DRIVE)
jr z,copy2
;; different drives used as source and destination
;; display message to insert disc into destination drive
call dest_drive_msg
call crlf
.copy2
;;------------------------------------------------------
;; display ready message
;; display ready text
ld hl,ready_txt
call print
call flush_keyboard
call km_wait_char
call crlf
;;------------------------------------------------------
;; I have disabled messages and setup a high retry count
;; so that if there are any errors on the disc, they will
;; be retried without user intervention.
;; disable display of messages
ld a,0
call do_set_message
;; store old state
ld (ix+PREV_SET_MESSAGE),a
;; set retry count
ld a,255
call do_set_retry_count
;; store old state
ld (ix+PREV_RETRY),a
;;------------------------------------------------------
;; detect the format of the disc
;; will only detect vendor or data formats.
call detect_format
jr c,copy5
;;------------------------------------------------------
;; format could not be detected
ld hl,not_standard_format_txt
call print
;; quit copy
ld hl,copy_failed_txt
call print
jp exit
;;------------------------------------------------------
;; format was detected
.copy5
;; store first sector ID of the format detected
ld (ix+SECTOR_ID),a
;;------------------------------------------------------
;; select format for source drive
;; -this will setup the XDPB for the destination drive
;; -XDPB parameters used by FORMAT and READ/WRITE commands
ld a,(ix+SECTOR_ID)
ld e,(ix+SOURCE_DRIVE)
call do_select_format
;; source and destination different?
ld a,(ix+SOURCE_DRIVE)
cp (ix+DEST_DRIVE)
jr z,copy6
;; source and destination are different
;;------------------------------------------------------
;; select format for destination drive
;; -this will setup the XDPB for the destination drive
;; -XDPB parameters used by FORMAT and READ/WRITE commands
ld a,(ix+SECTOR_ID)
ld e,(ix+DEST_DRIVE)
call do_select_format
.copy6
;;------------------------------------------------------
xor a ;; initial track
ld (ix+TRACK),a
.copy_disc
;;------------------------------------------------------
;; calculate number of tracks to read/write/format in one go
;; 7 is the maximum number of tracks to read at one time
;; because of the limited buffer space
ld a,40
sub (ix+TRACK)
cp 7
jr c,cd3
ld a,7 ;; maximum number of tracks at one time
.cd3
ld (ix+NUM_TRACKS),a
;;------------------------------------------------------
;; read up to 7 tracks of data into the buffer
call read_tracks
;;------------------------------------------------------
;; display message to insert disc if source drive
;; is the same as the dest drive
;; source same as dest?
ld a,(ix+SOURCE_DRIVE)
cp (ix+DEST_DRIVE)
jr nz,cd2
call clear
ld hl,insert_dest_txt
call print
ld hl,press_key_txt
call print
call flush_keyboard
call km_wait_char
.cd2
;;------------------------------------------------------
;; format and then write the data of the tracks we read
call write_tracks
;;------------------------------------------------------
;; - store index of last track written (ready for next read)
;; - test if the last track written is the last track to write
ld a,(ix+CUR_TRACK)
ld (ix+TRACK),a
cp 40
jr z,cd5
;;------------------------------------------------------
;; display message to insert disc if source drive
;; is the same as the dest drive
;; source same as dest?
ld a,(ix+SOURCE_DRIVE)
cp (ix+DEST_DRIVE)
jr nz,copy_disc ;; if source is not the same as dest, continue to copy
;; display message
call clear
ld hl,insert_source_txt
call print
ld hl,press_key_txt
call print
call flush_keyboard
call km_wait_char
;; continue copying
jr copy_disc
.cd5
ld hl,copy_complete_txt
call print
;;------------------------------------
;; restore parameters that were changed
.exit
;; restore message display state
ld a,(ix+PREV_SET_MESSAGE)
call do_set_message
;; restore retry count
ld a,(ix+PREV_RETRY)
call do_set_retry_count
ret
;;------------------------------------
;; remove all characters from keyboard input buffer
.flush_keyboard
call km_read_char
jr nc,flush_keyboard
ret
;;------------------------------------
;; Exit: C = drive index
.get_drive
;; remove keys from keyboard buffer
call flush_keyboard
;; wait for next character from keyboard
call km_wait_char
;; convert to upper case
and &df
cp "A"
ld c,0
jr z,gd2
cp "B"
ld c,1
jr z,gd2
;; error (beep)
ld a,7
call txt_output
jr get_drive
.gd2
call txt_output
call crlf
ret
;;-------------------------
;; clear the current line
.clear
ld a,13
call txt_output
ld a,18
call txt_output
ld a,13
call txt_output
ret
;;-------------------------
;; display CR,LF control codes (go to next line)
.crlf
ld a,13
call txt_output
ld a,10
call txt_output
ret
;;-------------------------
;; display message to "Insert SOURCE disc into drive x"
.source_drive_msg
ld hl,insert_source_txt
ld a,(ix+SOURCE_DRIVE)
jr insert2
;;-------------------------
;; display message to "Insert DEST disc into drive x"
.dest_drive_msg
ld hl,insert_dest_txt
ld a,(ix+DEST_DRIVE)
.insert2
push af
call print
pop af
add a,"A"
call txt_output
ret
;;-------------------------------------
;; display a message starting at memory address pointed to by HL.
;; (message is terminated with 0 character)
.print
ld a,(hl)
inc hl
or a
ret z
call txt_output
jr print
;;-------------------------------------
;; these functions handle the BDOS functions
;; using the address of the command that was found at initialisation
;; time
.do_set_retry_count
push ix
rst 3
defw set_retry_count_cmd_data
pop ix
ret
.do_move_track
push ix
rst 3
defw move_track_cmd_data
pop ix
ret
.do_format
push ix
rst 3
defw format_cmd_data
pop ix
ret
.do_select_format
push ix
rst 3
defw select_format_cmd_data
pop ix
ret
.do_read
push ix
rst 3
defw read_sector_cmd_data
pop ix
ret
.do_write
push ix
rst 3
defw write_sector_cmd_data
pop ix
ret
.do_set_message
push ix
rst 3
defw set_message_cmd_data
pop ix
ret
;;----------------------------------------------
;; detect the format of the disc from track 0
;; of source disc
.detect_format
ld e,(ix+SOURCE_DRIVE)
ld d,(ix+CUR_TRACK)
call do_move_track
;; attempt to read the first sector of a data formatted
;; disc
ld hl,data_buffer
ld e,(ix+SOURCE_DRIVE)
ld d,(ix+CUR_TRACK)
ld c,&c1
call do_read
ld a,&c1
ret c
;; attempt to read the first sector of a system formatted
;; disc
ld hl,data_buffer
ld e,(ix+SOURCE_DRIVE)
ld d,(ix+CUR_TRACK)
ld c,&41
call do_read
ld a,&41
ret c
or a
ret
;;----------------------------------------------
;; format current track
.format_track
;; initialise format data
ld hl,format_data
push hl
ld b,9
ld a,(ix+SECTOR_ID)
ld c,(ix+CUR_TRACK)
.ft2
ld (hl),c
inc hl
ld (hl),0
inc hl
ld (hl),a
inc hl
ld (hl),2
inc hl
inc a
djnz ft2
pop hl
;; do the format
ld e,(ix+DEST_DRIVE)
ld d,(ix+CUR_TRACK)
call do_format
ret
;;----------------------------------------------
;; write data to all sectors on current track
.write_track
ld b,9
ld a,(ix+SECTOR_ID)
.wt1 push bc
push af
;; write data
ld l,(ix+DATA_PTR)
ld h,(ix+DATA_PTR+1)
ld e,(ix+DEST_DRIVE)
ld d,(ix+CUR_TRACK)
ld c,a
call do_write
;; update data pointer
ld l,(ix+DATA_PTR)
ld h,(ix+DATA_PTR+1)
ld bc,512
add hl,bc
ld (ix+DATA_PTR),l
ld (ix+DATA_PTR+1),h
pop af
pop bc
inc a
djnz wt1
ret
;;----------------------------------------------
;; format and write multiple tracks
.write_tracks
ld a,(ix+TRACK)
ld (ix+CUR_TRACK),a
ld hl,data_buffer
ld (ix+DATA_PTR),l
ld (ix+DATA_PTR+1),h
ld b,(ix+NUM_TRACKS)
.wts1
push bc
;; move to track
ld e,(ix+DEST_DRIVE)
ld d,(ix+CUR_TRACK)
call do_move_track
;; format it
ld hl,format_track_txt
call print
call disp_track
call format_track
;; write it
ld hl,write_track_txt
call print
call disp_track
call write_track
;; increment track number
inc (ix+CUR_TRACK)
pop bc
djnz wts1
ret
;;----------------------------------------------
;; read data from all sectors on current track
.read_track
ld b,9
ld a,(ix+SECTOR_ID)
.rt1 push bc
push af
ld l,(ix+DATA_PTR)
ld h,(ix+DATA_PTR+1)
ld e,(ix+SOURCE_DRIVE)
ld d,(ix+CUR_TRACK)
ld c,a
call do_read
;; update pointer for size of data
ld l,(ix+DATA_PTR)
ld h,(ix+DATA_PTR+1)
ld bc,512
add hl,bc
ld (ix+DATA_PTR),l
ld (ix+DATA_PTR+1),h
pop af
pop bc
inc a
djnz rt1
ret
;;----------------------------------------------
;; read multiple tracks
.read_tracks
ld a,(ix+TRACK)
ld (ix+CUR_TRACK),a
ld hl,data_buffer
ld (ix+DATA_PTR),l
ld (ix+DATA_PTR+1),h
ld b,(ix+NUM_TRACKS)
.rts1
push bc
ld hl,read_track_txt
call print
call disp_track
ld e,(ix+SOURCE_DRIVE)
ld d,(ix+CUR_TRACK)
call do_move_track
call read_track
;; increment track number
inc (ix+CUR_TRACK)
pop bc
djnz rts1
ret
;;----------------------------------------------
;; output the number of the current track to the screen
.disp_track
ld a,(ix+CUR_TRACK)
call print_decimal
ret
;;----------------------------------------------
;; display a decimal number to the screen
.print_decimal
ld e,1
ld b,100
call print_decimal_digit
ld b,10
call print_decimal_digit
dec e
ld b,1
.print_decimal_digit
ld c,0
.dd
sub b
jr c,dd2
inc c
jr dd
.dd2
add a,b
push af
ld a,e
or a
ld a,c
jr z,dd4
or a
jr z,dd5
dec e
.dd4
add a,"0"
call txt_output
.dd5
pop af
ret
;;----------------------------------------------
.disc_command
defb "DIS","C"+&80
.read_sector_command
defb bdos_read_sector+&80
.write_sector_command
defb bdos_write_sector+&80
.format_command
defb bdos_format+&80
.select_format_command
defb bdos_select_format+&80
.move_track_command
defb bdos_move_track+&80
.set_retry_count_command
defb bdos_set_retry_count+&80
.set_message_command
defb bdos_set_message+&80
;;-------------------------------------
.format_cmd_data
defw 0
defb 0
.read_sector_cmd_data
defw 0
defb 0
.write_sector_cmd_data
defw 0
defb 0
.select_format_cmd_data
defw 0
defb 0
.move_track_cmd_data
defw 0
defb 0
.set_retry_count_cmd_data
defw 0
defb 0
.set_message_cmd_data
defw 0
defb 0
;;---------------------------------------------------------------------
.source_drive_txt
defb "Source drive ",0
.dest_drive_txt
defb "Destination drive ",0
.drive_txt
defb "(A or B):",0
.not_standard_format_txt
defb "The format of the source disc is not standard.",0
.copy_failed_txt
defb 13,10,"Copy failed",13,10,0
.copy_complete_txt
defb 13,10,"Copy complete",13,10,0
.insert_source_txt
defb "Insert SOURCE disc into drive ",0
.insert_dest_txt
defb "Insert DEST disc into drive ",0
.ready_txt
defb "Press any key to start copying",0
.press_key_txt
defb " and press any key",0
.read_track_txt
defb 13,18,13,"Reading track ",0
.write_track_txt
defb 13,18,13,"Writing track ",0
.format_track_txt
defb 13,18,13,"Formating track ",0
;;---------------------------------------------------------------------
;; buffer for our variables
.copy_data
defs 16
;; temporary buffer used to store formatting data
.format_data
defs 9*4
;; the sector data is stored from this point onwards
;;
;; We read a maximum of 7 tracks, with a maximum of 512 bytes per sector and
;; a 9 sectors per track. This equates to 512*9*7 = 32256 bytes. There must
;; be enough space after the program to store this amount of data without
;; overwriting any system variables or the system jumpblock.
.data_buffer equ $+1
</pre>