romych/ocean-240.2
1
0
Fork 0
mirror of https://github.com/romychs/ocean-240.2 synced 2026-04-21 18:53:19 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity
af799fdcfe
ocean-240.2/ROMs/Sources/ROM-FDC/ccp_rom.asm

857 lines
14 KiB
NASM
Raw Blame History

; =======================================================
; Ocean-240.2
; CPM CPP, ROM PART
; AT 0xDB00
;
; Disassembled by Romych 2025-09-09
; =======================================================
INCLUDE "io.inc"
INCLUDE "equates.inc"
INCLUDE "external_ram.inc"
INCLUDE "mon_entries.inc"
IFNDEF BUILD_ROM
OUTPUT ccp_rom.bin
ENDIF
MODULE CCP_ROM
ORG 0xDB00
ccp_entry:
LD HL, 0x0 ; prevent stack overflow
ADD HL, SP
LD (TM_VARS.saved_stack_ptr), HL
LD SP, TM_VARS.safe_stack_ptr
CALL get_cmd_index
LD HL, ccp_commands ;= DB6Ch
LD E, A
LD D, 0x0
ADD HL, DE
ADD HL, DE
LD A, (HL)
INC HL
LD H, (HL)
LD L, A
JP (HL) ; jump to command
ccp_commands_str:
db "DIR READ WRITEEXIT "
; -------------------------------------------------------
; Search user command position in available commands list
; -------------------------------------------------------
get_cmd_index:
LD HL, ccp_commands_str ; -> 'DIR'
LD C, 0x0
.cmd_next:
LD A, C
CP CCP_COMMANDS_COUNT
RET NC
LD DE, CCP_RAM.ccp_cmd_line_buff
LD B, CCP_COMMAND_SIZE
.cmp_nxt:
LD A, (DE)
CP (HL) ; -> 'DIR'
JP NZ, .no_eq
INC DE
INC HL
DEC B
JP NZ, .cmp_nxt
LD A, (DE)
CP 0x20
JP NZ, .inc_next
LD A, C
RET
.no_eq:
INC HL
DEC B
JP NZ, .no_eq
.inc_next:
INC C
JP .cmd_next
; Command handlers ref table
ccp_commands:
dw ccp_dir
dw ccp_read
dw ccp_write
dw ccp_exit1
dw ccp_ret
ccp_ret:
LD HL, (TM_VARS.saved_stack_ptr)
LD SP, HL
JP CCP_RAM.ccp_ret_func ; ccp_ram_B200 + 6A5h
ccp_exit1:
JP MON_ENTRY.mon_cold_start
ccp_dir:
CALL CCP_RAM.ccp_get_parameter
CALL CCP_RAM.ccp_drive_sel
LD HL, CCP_RAM.ccp_cmd_line_buff
LD A, (HL)
CP ' '
JP NZ, .has_par
LD B, 11
.fill_qmark:
LD (HL), '?'
INC HL
DEC B
JP NZ, .fill_qmark
.has_par:
CALL CCP_RAM.ccp_find_first
JP NZ, .f_found
CALL CCP_RAM.ccp_out_no_file
JP CCP_RAM.ccp_proc_interupted
.f_found:
CALL CCP_RAM.ccp_out_crlf
LD HL, 0x0
LD (TM_VARS.tmp_dir_total), HL
LD E, 0x0
.do_next_direntry:
PUSH DE
CALL CCP_RAM.ccp_find_first
POP DE
PUSH DE
; Find file with e number
.find_file_e:
DEC E
JP M, .file_e_not_fnd
PUSH DE
CALL CCP_RAM.ccp_bdos_find_next
POP DE
JP Z, .file_e_found
JP .find_file_e
.file_e_not_fnd:
LD A, (CCP_RAM.ccp_bdos_call_result)
RRCA
RRCA
RRCA
AND 01100000b
LD C, A
PUSH BC
CALL CCP_RAM.ccp_out_crlf
CALL CCP_RAM.ccp_bdos_drv_get
INC A
LD (EXT_RAM.std_dma_buff), A
POP BC
LD B, 0x0
LD HL, EXT_RAM.std_dma_buff+1 ; std_dma_buff+1
LD E, L
LD D, H
ADD HL, BC
; copy filename to tmp FCB and out to screen
LD B, 0x1
.copy_next:
LD A, (HL)
LD (DE), A
LD C, A
CALL BIOS.conout_f
INC HL
INC DE
INC B
LD A, B
CP 12
JP C, .copy_next
.zero_up_36:
XOR A
LD (DE), A ; zero at end
INC B
LD A, B
CP 36
JP C, .zero_up_36
; calc file size for current entry
LD DE, EXT_RAM.std_dma_buff
CALL cpp_bdos_f_size
LD HL, (EXT_RAM.fcb_ra_record_num) ; file size in blocks
; get disk blk size
LD A, (TM_VARS.bdos_curdsk)
OR A
JP NZ, .no_dsk_a0
LD B, 0x3 ; for A - blk=3
JP .LAB_ram_dbfe
.no_dsk_a0:
LD B, 0x4 ; for other disks - blk=4
.LAB_ram_dbfe:
LD C, L
; convert 128b OS block to disk blocks
.mul_to_dsk_blk:
XOR A
LD A, H
RRA
LD H, A
LD A, L
RRA
LD L, A
DEC B
JP NZ, .mul_to_dsk_blk
; round up
LD A, (TM_VARS.bdos_curdsk)
OR A
JP NZ, .no_dsk_a1
LD A, 00000111b ; for A - ~(~0 << 3)
JP .ds_skip1
.no_dsk_a1:
LD A, 00001111b ; for other dsk - ~(~0 << 4)
.ds_skip1:
AND C
JP Z, .cvt_blk_kb
INC HL
; Convert blocks to kilobytes (A-1k B-2k)
.cvt_blk_kb:
LD A, (TM_VARS.bdos_curdsk)
OR A
JP Z, .ds_skip2
ADD HL, HL ; 2k
; add file size to total dir size
.ds_skip2:
EX DE, HL
LD HL, (TM_VARS.tmp_dir_total)
ADD HL, DE
LD (TM_VARS.tmp_dir_total), HL
; display size in K
LD C, ' '
CALL BIOS.conout_f
CALL BIOS.conout_f
CALL ccp_cout_num
LD C, 'K'
CALL BIOS.conout_f
CALL CCP_RAM.ccp_getkey_no_wait
JP NZ, CCP_RAM.ccp_proc_interupted
POP DE
INC E
JP .do_next_direntry
.file_e_found:
POP DE
LD HL,msg_free_space ;= "\r\nFREE SPACE "
; Out: FREE SPACE
CALL ccp_out_str_z
LD A, (TM_VARS.bdos_curdsk)
OR A
JP NZ, .no_dsk_a3
LD DE, DEF_DISK_A_SIZE ; 63 blk
JP .calc_remanis_ds
.no_dsk_a3:
LD DE, DEF_DISK_B_SIZE ; 360 blk * 2k = 720k
; Disk size - Dir size = Free
.calc_remanis_ds:
LD HL, (TM_VARS.tmp_dir_total)
LD A, E
SUB L
LD E, A
LD A, D
SBC A, H
LD D, A
CALL ccp_cout_num
LD C, 'K'
CALL BIOS.conout_f
CALL CCP_RAM.ccp_out_crlf
JP CCP_RAM.ccp_proc_interupted
msg_free_space:
db "\r\nFREE SPACE ",0
ccp_cout_num:
LD A, D
AND 11100000b
JP Z, .less_224
LD C, '*'
CALL BIOS.conout_f
CALL BIOS.conout_f
CALL BIOS.conout_f
CALL BIOS.conout_f
RET
.less_224:
LD HL, 0x0
; copy number to BC
LD B, D
LD C, E
LD DE, 0x1
LD A, 13
.bc_rra:
PUSH AF
PUSH HL
; BC >> 1
LD A, B
RRA
LD B, A
LD A, C
RRA
LD C, A
JP NC, .bc_rra_ex
POP HL
CALL cpp_daa16
PUSH HL
.bc_rra_ex:
LD L, E
LD H, D
CALL cpp_daa16
EX DE, HL
POP HL
POP AF
DEC A
JP NZ, .bc_rra
LD D, 0x4
LD B, 0x0
LAB_ram_dcc5:
LD E, 0x4
LAB_ram_dcc7:
LD A, L
RLA
LD L, A
LD A, H
RLA
LD H, A
LD A, C
RLA
LD C, A
DEC E
JP NZ, LAB_ram_dcc7
LD A, C
AND 0xf
ADD A, '0'
CP '0'
JP NZ, .no_zero
DEC B
INC B
JP NZ, .b_no_one
LD A, D
DEC A
JP Z, .d_one
LD A, ' '
JP .b_no_one
.d_one:
LD A, '0'
.no_zero:
LD B, 0x1
.b_no_one:
LD C, A
CALL BIOS.conout_f
DEC D
JP NZ, LAB_ram_dcc5
RET
; -------------------------------------------------------
; ADD with correction HL=HL+DE
; -------------------------------------------------------
cpp_daa16:
LD A, L
ADD A, E
DAA
LD L, A
LD A, H
ADC A, D
DAA
LD H, A
RET
; -------------------------------------------------------
; Call BDOS function 35 (F_SIZE) - Compute file size
; -------------------------------------------------------
cpp_bdos_f_size:
LD C, 35
JP EXT_RAM.jp_bdos_enter
; -------------------------------------------------------
; Read data from Tape
; -------------------------------------------------------
ccp_read:
CALL BIOS.const_f
OR A
JP Z, .no_key ; chk key pressed
CALL BIOS.conin_f
JP ccp_read
.no_key:
CALL CCP_RAM.ccp_bdos_drv_allreset
CALL CCP_RAM.ccp_out_crlf
; wait tape block header
LD A, 100
CALL BIOS.tape_wait_f
OR A
JP NZ, key_pressed1
; try to load header 8 times
LD E, 8
.load8_cont:
LD HL, EXT_RAM.std_dma_buff
CALL BIOS.tape_read_f
CP 0x4
JP Z, key_pressed1
OR A
JP Z, .hdr_id_chk
DEC E
JP NZ, .load8_cont
JP cp_load_err_what
; Check blk ID, will be 0x8000
.hdr_id_chk:
LD A, B
CP 0x80
JP NZ, .load8_cont
LD A, C
OR A
JP NZ, .load8_cont
; set end of file name strZ
XOR A
LD (EXT_RAM.std_dma_buff+12), A
LD DE, EXT_RAM.std_dma_buff
LD HL, CCP_RAM.ccp_fname_addr ;= 2020h
LD (CCP_RAM.ccp_name_addr), HL ;= B208h
.cp_name_char:
LD A, (DE)
OR A
JP Z, .name_copied
LD (HL), A ;= 2020h
INC HL
INC DE
JP .cp_name_char
.name_copied:
LD (HL), 0x0 ; mark end of strZ
CALL CCP_RAM.ccp_get_parameter
JP NZ, CCP_RAM.SUB_ram_b409
; Output file name to screen
LD HL, CCP_RAM.ccp_cmd_line_buff
LD B, 11
.name_output:
LD A, (HL)
AND 01111111b ; 7bit ASCII
LD C, A
CALL BIOS.conout_f
INC HL
DEC B
JP NZ, .name_output
; Out ' '
LD C, ' '
CALL BIOS.conout_f
CALL BIOS.conout_f
CALL BIOS.conout_f
CALL CCP_RAM.ccp_open_f
JP Z, .recreate_f
LD HL,MSG_EX ;= "*EX* "
CALL ccp_out_str_z
LD HL, CCP_RAM.ccp_cmd_line_buff+8
; '$$$' at the end of buffer
LD A, '$'
LD (HL), A
INC HL
LD (HL), A
INC HL
LD (HL), A
; delete file if exists and create new
.recreate_f:
LD DE, CCP_RAM.ccp_current_fcb
PUSH DE
CALL CCP_RAM.ccp_bdos_delete
POP DE
CALL CCP_RAM.ccp_bdos_create_f
JP Z, CCP_RAM.ccp_no_space_l1 ; out NO SPACE if err
XOR A
LD (CCP_RAM.ccp_cmd_line_buff+31), A
; Load block with ID=1
LD DE, 1
.fin_load:
LD HL, EXT_RAM.std_dma_buff
PUSH DE
.blk_ld_rep:
CALL BIOS.tape_read_f
CP 4
JP Z, key_pressed2
OR A
JP Z, .blk_id_chk
LD A, (CCP_RAM.ccp_cmd_line_buff+31)
AND 0x7f
JP NZ, cp_read_cs
.blk_id_chk:
LD A, C
OR B
JP Z, .blk_ld_rep
; Check id for 0xFFFF - last blk
LD A, C
AND B
CP 0xff
JP Z, blk_id_last
; Check ID for DE
LD A, C
CP E
JP NZ, blk_ne_id
LD A, B
CP D
JP NZ, blk_ne_id
; Ok, write blk to disk
LD DE, EXT_RAM.std_dma_buff
CALL CCP_RAM.ccp_bdos_dma_set
LD DE, CCP_RAM.ccp_current_fcb
CALL CCP_RAM.ccp_bdos_f_write
POP DE
JP NZ,ccp_del_f_no_space
INC DE
JP .fin_load
cp_load_err_what:
LD HL,msg_what ;= "WHAT?\a"
CALL ccp_out_str_z
JP load_restart
cp_read_cs:
POP BC
LD HL, msg_cs ;= "<CS "
CALL ccp_out_str_z
CALL ccp_cout_num
JP out_clos
blk_ne_id:
POP BC
LD HL, msg_sq ;= "<SQ "
CALL ccp_out_str_z
CALL ccp_cout_num
out_clos:
LD HL, msg_clos ;= ">\a"
CALL ccp_out_str_z
; cleanup partial file and load again
load_restart:
LD DE, CCP_RAM.ccp_current_fcb
CALL CCP_RAM.ccp_bdos_delete
CALL CCP_RAM.ccp_set_dma_std_addr
JP ccp_read
blk_id_last:
LD DE, CCP_RAM.ccp_current_fcb
CALL CCP_RAM.ccp_bdos_close_f
INC A
JP Z,ccp_del_f_no_space ; If no success, may be no disk space
CALL CCP_RAM.ccp_set_dma_std_addr ; reset DMA buff
JP ccp_read ; and read next file
key_pressed2:
POP DE
PUSH BC
LD DE, CCP_RAM.ccp_current_fcb
CALL CCP_RAM.ccp_bdos_delete
POP BC
LD A, C
AND 0x7f
CP CTRL_C
JP Z, ctrl_c_or_esc
CP ASCII_ESC
JP Z, ctrl_c_or_esc
LD HL, msg_break ;= "*BREAK*"
CALL ccp_out_str_z
JP ccp_read
key_pressed1:
LD A, C
AND 0x7f
CP CTRL_C
JP Z, ctrl_c
CP ASCII_ESC
JP NZ, ccp_read
ctrl_c:
CALL CCP_RAM.ccp_set_dma_std_addr
JP CCP_RAM.ccp_proc_interupted
ctrl_c_or_esc:
CALL CCP_RAM.ccp_out_crlf
JP ctrl_c
msg_what:
db "WHAT?\a",0
msg_cs:
db "<CS ", 0
msg_sq:
db "<SQ ", 0
msg_break:
db "*BREAK*", 0
MSG_EX:
db "*EX* ", 0
msg_clos:
db ">\a", 0
; -------------------------------------------------------
; Out zerro ended string
; In: HL -> strZ
; -------------------------------------------------------
ccp_out_str_z:
LD A, (HL)
OR A
RET Z
LD C, A
CALL BIOS.conout_f
INC HL
JP ccp_out_str_z
; -------------------------------------------------------
; Delete file and out No Space message
; -------------------------------------------------------
ccp_del_f_no_space:
LD DE, CCP_RAM.ccp_current_fcb
CALL CCP_RAM.ccp_bdos_delete
JP CCP_RAM.ccp_no_space_l1
; -------------------------------------------------------
; Read current file next block
; Out: A=0 - Ok, 0xFF - HW Error;
; -------------------------------------------------------
cpp_read_f_blk:
LD DE, TM_VARS.ccp_FCB ; FCB here
JP CCP_RAM.ccp_bdos_read_f
ccp_write:
CALL CCP_RAM.ccp_get_parameter
CALL CCP_RAM.ccp_drive_sel
LD HL, CCP_RAM.ccp_cmd_line_buff
LD A, (HL)
CP ' '
JP NZ, .find_f
LD B, 11
.fill_with_qm:
LD (HL), '?'
INC HL
DEC B
JP NZ, .fill_with_qm
.find_f:
CALL CCP_RAM.ccp_find_first
JP NZ, .found_f
CALL CCP_RAM.ccp_out_no_file
JP CCP_RAM.ccp_proc_interupted
.found_f:
LD E, 0 ; file counter
.do_next_f1:
PUSH DE
CALL CCP_RAM.ccp_find_first
POP DE
PUSH DE
.do_next_f2:
DEC E
JP M, .do_file
PUSH DE
CALL CCP_RAM.ccp_bdos_find_next
POP DE
JP Z, .no_more_f
JP .do_next_f2
.do_file:
POP BC
PUSH BC
LD A, C
OR A
JP Z, .calc_addr
LD DE, 1200
; Delay with key interrupt check
.delay_1:
XOR A
.delay_2:
DEC A
JP NZ, .delay_2
PUSH DE
CALL CCP_RAM.ccp_getkey_no_wait
POP DE
JP NZ, CCP_RAM.ccp_proc_interupted
DEC DE
LD A, D
OR E
JP NZ, .delay_1
.calc_addr:
LD A, (CCP_RAM.ccp_bdos_call_result)
; A=0-3 - for Ok, calc address od DIR entry in DMA buffer
RRCA
RRCA
RRCA
AND 01100000b
LD C, A
PUSH BC
CALL CCP_RAM.ccp_out_crlf
CALL CCP_RAM.ccp_bdos_drv_get
INC A
LD (TM_VARS.ccp_FCB), A
POP BC
LD B, 0x0
LD HL, EXT_RAM.std_dma_buff+1
ADD HL, BC
LD DE, TM_VARS.ccp_FCB_fn
LD B, 0x1
.copy_fn:
LD A, (HL)
LD (DE), A
INC HL
INC DE
INC B
LD A, B
CP 12
JP C, .copy_fn
.fillz_fn:
XOR A
LD (DE), A
INC DE
INC B
LD A, B
CP 36
JP C, .fillz_fn
LD HL, TM_VARS.ccp_FCB_fn
CALL ccp_out_str_z
LD HL, EXT_RAM.std_dma_buff
; Empty first 128 bytes of DMA buffer
LD B, 128
.clear_buf:
LD (HL), 0x0
INC HL
DEC B
JP NZ, .clear_buf
; Copy file name at buffer start
LD HL, EXT_RAM.std_dma_buff
LD DE, TM_VARS.ccp_FCB_fn
LD B, 8
.find_sp:
LD A, (DE)
CP ' '
JP Z, .sp_rep_dot ; ' ' -> '.'
LD (HL), A
INC HL
INC DE
JP .find_sp
.sp_rep_dot:
LD (HL), '.'
INC HL
CALL CCP_RAM.ccp_find_nxt_par
.cont_copy_fn:
LD A, (DE)
LD (HL), A
OR A
JP Z, .end_copy
INC HL
INC DE
JP .cont_copy_fn
.end_copy:
LD DE, TM_VARS.ccp_FCB
CALL CCP_RAM.ccp_bdos_call_open
LD DE, 0x8000 ; Block ID
LD HL, EXT_RAM.std_dma_buff
CALL cpp_pause_tape_wr_blk
CALL cpp_pause_tape_wr_blk
LD DE, 0x1
; Read file block and write to Tape
.read_f_write_t:
PUSH DE
CALL cpp_read_f_blk
; a=0xff if error; a=1 - EOF
DEC A
JP Z, .eof
LD A, (TM_VARS.ccp_FCB_CR)
AND 0x7f
CP 0x1
JP NZ, .write_once
; Write block to Tape with ID=0 twice
LD DE, 0x0 ; Block ID=0
LD HL, EXT_RAM.std_dma_buff
CALL cpp_pause_tape_wr_blk
.write_once:
CALL CCP_RAM.ccp_getkey_no_wait
LD HL, EXT_RAM.std_dma_buff
POP DE
JP NZ, CCP_RAM.ccp_proc_interupted
CALL cpp_pause_tape_wr_blk
; Inc Block ID and continue
INC DE
JP .read_f_write_t
.eof:
POP DE
EX DE, HL
LD (EXT_RAM.std_dma_buff), HL
EX DE, HL
; Final block ID=0xFFFF
LD DE, 0xffff
; Write twice
CALL cpp_pause_tape_wr_blk
CALL cpp_pause_tape_wr_blk
POP DE
INC E
JP .do_next_f1
.no_more_f:
POP DE
CALL CCP_RAM.ccp_out_crlf
JP CCP_RAM.ccp_proc_interupted
; -------------------------------------------------------
; Write block to tape after pause
; -------------------------------------------------------
cpp_pause_tape_wr_blk:
LD BC, 1500
.delay:
DEC BC
LD A, B
OR C
JP NZ, .delay
JP BIOS.tape_write_f
RET NC
; -------------------------------------------------------
; Filler to align blocks in ROM
; -------------------------------------------------------
LAST EQU $
CODE_SIZE EQU LAST-0xDB00
FILL_SIZE EQU 0x500-CODE_SIZE
DISPLAY "| CCP_ROM\t| ",/H,ccp_entry," | ",/H,CODE_SIZE," | ",/H,FILL_SIZE," |"
FILLER
DS FILL_SIZE, 0xFF
ENDMODULE
IFNDEF BUILD_ROM
OUTEND
ENDIF
Reference in New Issue View Git Blame Copy Permalink