82 lines
1.7 KiB
C
82 lines
1.7 KiB
C
// global len
|
|
|
|
void comando_save_bas() {
|
|
|
|
if(((word) *BASIC_HIMEM) < ((word) *BASIC_LOMEM)) {
|
|
woz_puts("?NO BASIC PROGRAM");
|
|
return;
|
|
}
|
|
|
|
// send command byte
|
|
send_byte_to_MCU(CMD_WRITE);
|
|
if(TIMEOUT) return;
|
|
|
|
strcat(filename, "#F1");
|
|
tmpword = (word) *BASIC_LOMEM;
|
|
append_hex_tmpword(filename);
|
|
|
|
// send filename
|
|
send_string_to_MCU(filename);
|
|
if(TIMEOUT) return;
|
|
|
|
// get first response
|
|
byte response = receive_byte_from_MCU();
|
|
if(TIMEOUT) return;
|
|
if(response == ERR_RESPONSE) {
|
|
// error with file, print message
|
|
print_string_response();
|
|
return;
|
|
}
|
|
|
|
woz_puts("SAVING\r");
|
|
|
|
// send file size
|
|
//tmpword = ((word) *BASIC_HIMEM) - ((word)*BASIC_LOMEM) + 512;
|
|
// in assembly:
|
|
asm {
|
|
sec
|
|
lda BASIC_HIMEM
|
|
sbc BASIC_LOMEM
|
|
sta tmpword
|
|
lda BASIC_HIMEM+1
|
|
sbc BASIC_LOMEM+1
|
|
sta tmpword+1
|
|
inc tmpword+1
|
|
inc tmpword+1
|
|
}
|
|
|
|
send_word_to_mcu();
|
|
if(TIMEOUT) return;
|
|
|
|
// send actual bytes
|
|
|
|
// "A1" header
|
|
send_byte_to_MCU('A');
|
|
send_byte_to_MCU('1');
|
|
if(TIMEOUT) return;
|
|
|
|
// lowmem + stack chuck
|
|
for(token_ptr=(byte *)2; token_ptr<=(byte *)0x1ff; token_ptr++) {
|
|
send_byte_to_MCU(*token_ptr);
|
|
if(TIMEOUT) return;
|
|
}
|
|
|
|
// basic data
|
|
tmpword = (word) *BASIC_HIMEM;
|
|
for(token_ptr=*BASIC_LOMEM; token_ptr<(byte *)tmpword; token_ptr++) {
|
|
send_byte_to_MCU(*token_ptr);
|
|
if(TIMEOUT) return;
|
|
}
|
|
|
|
// get second response
|
|
response = receive_byte_from_MCU();
|
|
if(TIMEOUT) return;
|
|
if(response == ERR_RESPONSE) {
|
|
// error with file, print message
|
|
print_string_response();
|
|
return;
|
|
}
|
|
|
|
bas_file_info();
|
|
}
|