]>
cloudbase.mooo.com Git - z180-stamp.git/blob - avr/cmd_loadcpm3.c
2 * (C) Copyright 2015,2016,2018 Leo C. <erbl259-lmu@yahoo.de>
4 * SPDX-License-Identifier: GPL-2.0
8 * See CP/M 3 System Manual, Appendix D: CPM3.SYS File Format
11 #include "cmd_loadcpm3.h"
16 #include "con-utils.h"
21 #define RS 128 /* CP/M record size */
25 static FRESULT
read_record(FIL
*fp
, uint8_t *buffer
)
27 unsigned int br
; /* bytes read */
29 FRESULT res
= f_read(fp
, buffer
, RS
, &br
);
38 * Input: addr = Page Address of load top
39 * len = Length in pages of module to read
42 ERRNUM
load(FIL
*File
, uint32_t addr
, uint8_t len
)
46 len
*= 2; /* length in records of module */
47 //debug("## load: addr: 0x%.4X, records: 0x%.4X, (%u)\n", addr, len, len);
51 FRESULT res
= read_record(File
, buffer
);
55 if (!(z80_bus_cmd(Request
) & ZST_ACQUIRED
))
57 z80_write_block(buffer
, addr
, RS
);
59 //debug("## written: 0x%.4X\n", addr);
65 #pragma GCC diagnostic ignored "-Wmaybe-uninitialized"
67 command_ret_t
do_loadcpm3(cmd_tbl_t
*cmdtp UNUSED
, uint_fast8_t flag UNUSED
, int argc
, char * const argv
[])
73 uint16_t osentry_addr
= 0;
74 uint32_t common_base
= 0;
78 char default_fname
[strlen_P(PSTR(CONFIG_CPM3_SYSFILE
)) + 1];
83 //common_base = getenv_ulong(PSTR(ENV_CPM3_COMMON_BASE), 16,
84 // CONFIG_CPM3_COMMON_BASE);
85 banked_base
= getenv_ulong(PSTR(ENV_CPM3_BANKED_BASE
), 16,
86 CONFIG_CPM3_BANKED_BASE
);
89 banked_base
= eval_arg(argv
[3], NULL
);
91 common_base
= eval_arg(argv
[2], NULL
);
93 fname
= getenv_str(PSTR(ENV_CPM3_SYSFILE
));
94 if (fname
== NULL
|| *fname
== '\0') {
95 strcpy_P(default_fname
, PSTR(CONFIG_CPM3_SYSFILE
));
96 fname
= default_fname
;
102 res
= f_open(&File
, fname
, FA_READ
);
106 printf_P(PSTR("Loading: '%s'...\n"), fname
);
108 /* read the load record */
109 res
= read_record(&File
, buffer
);
113 mem_top
= buffer
[0] << 8;
115 bank_top
= buffer
[2] << 8;
116 bank_len
= buffer
[3];
117 osentry_addr
= buffer
[4] + (buffer
[5] << 8);
119 /* read display info */
120 res
= read_record(&File
, buffer
);
126 uint8_t *p
= memchr(buffer
, '$', RS
);
128 my_puts((char *)buffer
);
130 if (common_base
== 0) {
132 * http://www.seasip.info/Cpm/scb.html
134 FSIZE_t common_base_ofs
= ((res_len
- 6) << 8) + 2*RS
+ RS
-7;
135 FSIZE_t cur_pos
= f_tell(&File
);
136 unsigned int br
; /* bytes read */
137 if ((res
= f_lseek(&File
, common_base_ofs
)) ||
138 (res
= f_read(&File
, buffer
, 2, &br
)) ||
139 (res
= f_lseek(&File
, cur_pos
)))
145 common_base
= (uint16_t) buffer
[0] + (buffer
[1] << 8);
146 setenv_hex(PSTR(ENV_CPM3_COMMON_BASE
), common_base
);
149 setenv_hex(PSTR(ENV_CPM3_SCB
), mem_top
- ((res_len
- (6 - 1)) << 8) + common_base
);
151 /* Main System Load */
153 /* Load Common Portion of System */
154 if ((res
= load(&File
, common_base
+ mem_top
, res_len
)) != 0)
157 /* Load Banked Portion of System */
158 res
= load(&File
, banked_base
+ bank_top
, bank_len
);
164 cmd_error(CMD_RET_FAILURE
, res
, PSTR("%s"), fname
);
167 if (osentry_addr
+ common_base
> 0xffff) {
168 z80_bus_cmd(Request
);
169 if (z80_read(osentry_addr
+ common_base
) == 0xc3) {
170 osentry_addr
= z80_read(osentry_addr
+common_base
+1) +
171 (z80_read(osentry_addr
+ common_base
+2) << 8);
173 z80_bus_cmd(Release
);
174 if (banked_base
+ osentry_addr
> 0xffff)
177 setenv_hex(PSTR(ENV_STARTADDRESS
), osentry_addr
);
179 printf_P(PSTR("Loaded: Resident: "));
181 printf_P(PSTR("%.5lX-%.5lX, "),
182 (common_base
+ mem_top
) - res_len
*256,
183 (common_base
+ mem_top
) - 1);
185 printf_P(PSTR(" - "));
186 printf_P(PSTR("Banked: "));
188 printf_P(PSTR("%.5lX-%.5lX\n"),
189 (banked_base
+ bank_top
) - bank_len
*256,
190 (banked_base
+ bank_top
) - 1);
192 printf_P(PSTR(" - \n"));
194 return CMD_RET_SUCCESS
;