apple1-videocard-lib/demos/sdcard/sdcard.c
2022-03-28 17:50:48 +02:00

210 lines
6.5 KiB
C

// TODO warm flag form boot message
// TODO comando HELP
// TODO comando CD
// TODO comando MKDIR
// TODO comando RMDIR
// TODO comando DEL
// TODO comando REN
// TODO comando COPY
// TODO comando RUN a vuoto?
// TODO questione del puntino che va in timeout
#define APPLE1_USE_WOZ_MONITOR 1
#pragma start_address(0x8000)
//#pragma start_address(0x0280)
#pragma zp_reserve(0x4a)
#pragma zp_reserve(0x4b)
#pragma zp_reserve(0x4c)
#pragma zp_reserve(0x4d)
#pragma zp_reserve(0x4e)
#pragma zp_reserve(0x4f)
#pragma zp_reserve(0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5a,0x5b,0x5c,0x5d,0x5e,0x5f)
#pragma zp_reserve(0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f)
#pragma zp_reserve(0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f)
#pragma zp_reserve(0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7a,0x7b,0x7c,0x7d,0x7e,0x7f)
#pragma zp_reserve(0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8a,0x8b,0x8c,0x8d,0x8e,0x8f)
#pragma zp_reserve(0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9a,0x9b,0x9c,0x9d,0x9e,0x9f)
#pragma zp_reserve(0xa0,0xa1,0xa2,0xa3,0xa4,0xa5,0xa6,0xa7,0xa8,0xa9,0xaa,0xab,0xac,0xad,0xae,0xaf)
#pragma zp_reserve(0xb0,0xb1,0xb2,0xb3,0xb4,0xb5,0xb6,0xb7,0xb8,0xb9,0xba,0xbb,0xbc,0xbd,0xbe,0xbf)
#pragma zp_reserve(0xc0,0xc1,0xc2,0xc3,0xc4,0xc5,0xc6,0xc7,0xc8,0xc9,0xca,0xcb,0xcc,0xcd,0xce,0xcf)
#pragma zp_reserve(0xd0,0xd1,0xd2,0xd3,0xd4,0xd5,0xd6,0xd7,0xd8,0xd9,0xda,0xdb,0xdc,0xdd,0xde,0xdf)
#pragma zp_reserve(0xe0,0xe1,0xe2,0xe3,0xe4,0xe5,0xe6,0xe7,0xe8,0xe9,0xea,0xeb,0xec,0xed,0xee,0xef)
#pragma zp_reserve(0xf0,0xf1,0xf2,0xf3,0xf4,0xf5,0xf6,0xf7,0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfe,0xff)
#include <utils.h>
#include <apple1.h>
#include <string.h>
byte *const VIA_PORTB = (byte *) 0xA000; // port B register
byte *const VIA_PORTA = (byte *) 0xA001; // port A register
byte *const VIA_DDRB = (byte *) 0xA002; // port A data direction register
byte *const VIA_DDRA = (byte *) 0xA003; // port B data direction register
byte *const VIA_T1CL = (byte *) 0xA004; //
byte *const VIA_T1CH = (byte *) 0xA005; //
byte *const VIA_T1LL = (byte *) 0xA006; //
byte *const VIA_T1LH = (byte *) 0xA007; //
byte *const VIA_T2CL = (byte *) 0xA008; //
byte *const VIA_T2CH = (byte *) 0xA009; //
byte *const VIA_SR = (byte *) 0xA00A; //
byte *const VIA_ACR = (byte *) 0xA00B; //
byte *const VIA_PCR = (byte *) 0xA00C; //
byte *const VIA_IFR = (byte *) 0xA00D; //
byte *const VIA_IER = (byte *) 0xA00E; //
byte *const VIA_PORTANH = (byte *) 0xA00F; //
#define CPU_STROBE(v) (*VIA_PORTB = (v)) /* CPU strobe is bit 0 OUTPUT */
#define MCU_STROBE (*VIA_PORTB & 128) /* MCU strobe is bit 7 INPUT */
// global variables that are shared among the functions
__address( 3) byte TIMEOUT;
__address( 4) word TIMEOUT_MAX = 0x1388;
__address( 6) word TIMEOUT_CNT;
__address( 8) word tmpword;
__address(10) word start_address;
__address(12) word end_address;
__address(14) word len;
__address(16) byte hex_to_word_ok;
__address(17) byte cmd;
__address(18) byte *token_ptr;
__address(20) word TIMEOUT_RANGE = 0;
#define MCU_STROBE_HIGH 128
#define MCU_STROBE_LOW 0
void wait_mcu_strobe(byte v) {
if(TIMEOUT) return;
TIMEOUT_CNT = 0;
while(v ^ MCU_STROBE) {
TIMEOUT_CNT++;
if(TIMEOUT_CNT > TIMEOUT_RANGE) TIMEOUT_RANGE = TIMEOUT_CNT;
if(TIMEOUT_CNT > TIMEOUT_MAX) {
TIMEOUT = 1;
break;
}
}
}
void send_byte_to_MCU(byte data) {
*VIA_DDRA = 0xFF; // set port A as output
*VIA_PORTA = data; // deposit byte on the data port
CPU_STROBE(1); // set strobe high
wait_mcu_strobe(MCU_STROBE_HIGH); // wait for the MCU to read the data
CPU_STROBE(0); // set strobe low
wait_mcu_strobe(MCU_STROBE_LOW); // wait for the MCU to set strobe low
}
byte receive_byte_from_MCU() {
*VIA_DDRA = 0; // set port A as input
CPU_STROBE(0); // set listen
wait_mcu_strobe(MCU_STROBE_HIGH); // wait for the MCU to deposit data
byte data = *VIA_PORTA; // read data
CPU_STROBE(1); // set strobe high
wait_mcu_strobe(MCU_STROBE_LOW); // wait for the MCU to set strobe low
CPU_STROBE(0); // set strobe low
return data;
}
void VIA_init() {
*VIA_DDRB = 1; // pin 1 is output (CPU_STROBE), pin7 is input (MCU_STROBE)
CPU_STROBE(0); // initial state
}
// send a string to the MCY (0 terminator is sent as well)
void send_string_to_MCU(char *msg) {
while(1) {
byte data = *msg++;
send_byte_to_MCU(data);
if(TIMEOUT) break;
if(data == 0) break;
}
}
// receive a string sent by the MCU
void receive_string_from_MCU(char *dest) {
while(1) {
byte data = receive_byte_from_MCU();
*dest++ = data;
if(TIMEOUT) break;
if(data == 0) break; // string terminator
}
}
// print a string sent by the MCU
void print_string_response() {
while(1) {
byte data = receive_byte_from_MCU();
if(TIMEOUT) break;
if(data == 0) break; // string terminator
else woz_putc(data);
}
}
/*
// print a string sent by the MCU, breakable via keyboard
void print_string_response_brk() {
byte print_on = 1;
while(1) {
byte data = receive_byte_from_MCU();
if(TIMEOUT) break;
if(data == 0) break; // string terminator
if(print_on) woz_putc(data);
if(apple1_readkey()) {
woz_puts("*BRK*\r");
print_on = 0;
}
}
}
*/
/*
//
void print_string_response_linebyline() {
byte paused = 0;
byte print_on = 1;
while(1) {
// ask for a line of text
send_byte_to_MCU(OK_RESPONSE);
if(TIMEOUT) break;
// get MCU response byte
byte data = receive_byte_from_MCU();
if(TIMEOUT) break;
if(data == ERR_RESPONSE) break; // no more lines of text
// next is a line of text as a string
print_string_response();
if(TIMEOUT) break;
if(apple1_readkey()) {
woz_puts("*BRK*\r");
print_on = 0;
}
}
}
*/
void receive_word_from_mcu() {
*((byte *)&tmpword) = receive_byte_from_MCU();
*((byte *)(&tmpword+1)) = receive_byte_from_MCU();
}
void send_word_to_mcu() {
send_byte_to_MCU( *((byte *)&tmpword) );
send_byte_to_MCU( *((byte *)(&tmpword+1)) );
}
#include "console.h"
void main() {
//#ifdef APPLE1_JUKEBOX
// apple1_eprom_init();
//#endif
console();
}