// 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;

#define MCU_STROBE_HIGH 128
#define MCU_STROBE_LOW  0

/*
void wait_mcu_strobe(byte v) {   
   if(TIMEOUT) return;

   TIMEOUT_CNT = 0;
   while((v==0 && MCU_STROBE != 0) || (v!=0 && MCU_STROBE == 0)) {
      TIMEOUT_CNT++;
      if(TIMEOUT_CNT > TIMEOUT_MAX) {
         TIMEOUT = 1;
         break;
      }
   }
}
*/

void wait_mcu_strobe(byte v) {   
   if(TIMEOUT) return;

   TIMEOUT_CNT = 0;
   while(v ^ MCU_STROBE) {
      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;
   }
}

// 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 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)) );
}

// #define LOADING_DOTS 0

#include "console.h"

void main() {
//#ifdef APPLE1_JUKEBOX
//   apple1_eprom_init();
//#endif

   console();
}