mirror of
https://github.com/nippur72/apple1-videocard-lib.git
synced 2025-01-06 18:29:54 +00:00
22 lines
523 B
C
22 lines
523 B
C
// AppleSoft BASIC lite definitions
|
|
|
|
word const *TXTTAB = (word *) 0x0067;
|
|
word const *VARTAB = (word *) 0x0069;
|
|
word const *PRGEND = (word *) 0x00AF;
|
|
|
|
void comando_asave() {
|
|
woz_puts("SAVING\r");
|
|
|
|
// appends #F8 + start address (normally: "0801")
|
|
tmpword = (word) *TXTTAB;
|
|
strcat(filename, "#F8");
|
|
append_hex_tmpword(filename);
|
|
|
|
// launches a normal file write from start_address to end_address
|
|
start_address = (word) *TXTTAB;
|
|
end_address = (word) *PRGEND;
|
|
end_address--;
|
|
|
|
comando_write();
|
|
}
|