mirror of
https://github.com/nippur72/apple1-videocard-lib.git
synced 2024-12-22 13:30:38 +00:00
210 lines
6.5 KiB
C
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();
|
|
}
|
|
|