Miscellaneous bugfixed and renamings.

This commit is contained in:
David Given 2019-06-11 21:33:57 +02:00
parent 3fe9a05adc
commit 0607529df2
4 changed files with 8 additions and 5 deletions

View file

@ -148,8 +148,9 @@ _cpm_warmboot = 0
! Special CP/M stuff.
.define _cpm_fcb
.define _cpm_fcb, _cpm_fcb2
_cpm_fcb = 0x005c
_cpm_fcb2 = 0x006c
.define _cpm_ramtop
.comm _cpm_ramtop, 2
@ -157,6 +158,9 @@ _cpm_fcb = 0x005c
.define _cpm_default_dma
_cpm_default_dma = 0x0080
.define _cpm_iobyte
_cpm_iobyte = 3
.define _cpm_cmdlinelen, _cpm_cmdline
_cpm_cmdlinelen = 0x0080
_cpm_cmdline = 0x0081

View file

@ -88,7 +88,7 @@ extern void cpm_overwrite_ccp(void);
/* 11 */ extern uint8_t cpm_const(void);
/* 12 */ extern uint16_t cpm_get_version(void);
/* 13 */ extern void cpm_reset_disk_system(void);
/* 14 */ extern void cpm_select_disk(uint8_t disk);
/* 14 */ extern void cpm_select_drive(uint8_t disk);
/* 15 */ extern uint8_t cpm_open_file(FCB* fcb);
/* 16 */ extern uint8_t cpm_close_file(FCB* fcb);
/* 17 */ extern uint8_t cpm_findfirst(FCB* fcb);

View file

@ -16,6 +16,5 @@ call_bdos:
call 0x0005
pop b ! restore FP
mov d, h
mov e, l
xchg ! DE = HL
ret

View file

@ -18,7 +18,7 @@ local bdos_calls = {
[11] = "cpm_const",
[12] = "cpm_get_version",
[13] = "cpm_reset_disk_system",
[14] = "cpm_select_disk",
[14] = "cpm_select_drive",
[15] = "cpm_open_file",
[16] = "cpm_close_file",
[17] = "cpm_findfirst",