avr/dumptask.c

   1 /*
   2  * Copyright (C) 2007 Anton Blad
   3  * Copyright (C) 2007 Fredrik Kuivinen
   4  * Copyright (C) 2007 Jakob Rosén
   5  *
   6  * This file is licensed under GPL v2.
   7  */
   8
   9 #include "dumptask.h"
  10 #include "timer1.h"
  11 #include "buffer.h"
  12 #include "fcpu.h"
  13 #include "c64tape.h"
  14 #include "motor.h"
  15 #include <avr/io.h>
  16 #include "trutcomm.h"
  17 #include <util/delay.h>
  18
  19 #define DUMPTASK_MODE_MASK 0x01
  20 #define DUMPTASK_FLAGS_DUMPING 0x02
  21 #define DUMPTASK_FLAGS_SENDPACKET 0x04
  22
  23 static uint8_t dumptask_flags;
  24 static uint16_t dumptask_blocksxferd;
  25 static buf_t dumptask_bufferextremeusage;
  26
  27 static inline uint8_t dumptask_isdumping()
  28 {
  29         return dumptask_flags & DUMPTASK_FLAGS_DUMPING;
  30 }
  31
  32 static inline void dumptask_setdumping()
  33 {
  34         dumptask_flags |= DUMPTASK_FLAGS_DUMPING;
  35 }
  36
  37 static inline void dumptask_cleardumping()
  38 {
  39         dumptask_flags &= ~DUMPTASK_FLAGS_DUMPING;
  40 }
  41
  42 static inline uint8_t dumptask_sendpacket()
  43 {
  44         return dumptask_flags & DUMPTASK_FLAGS_SENDPACKET;
  45 }
  46
  47 static inline void dumptask_setsendpacket()
  48 {
  49         dumptask_flags |= DUMPTASK_FLAGS_SENDPACKET;
  50 }
  51
  52 static inline void dumptask_clearsendpacket()
  53 {
  54         dumptask_flags &= ~DUMPTASK_FLAGS_SENDPACKET;
  55 }
  56
  57 static inline uint8_t dumptask_mode()
  58 {
  59         return dumptask_flags & DUMPTASK_MODE_MASK;
  60 }
  61
  62 static inline void dumptask_setmode(uint8_t mode)
  63 {
  64         dumptask_flags |= mode;
  65 }
  66
  67 void dumptask_init()
  68 {
  69         dumptask_flags = 0;
  70         dumptask_blocksxferd = 0;
  71         dumptask_bufferextremeusage = 0;
  72 }
  73
  74 void dumptask_setup(uint8_t mode)
  75 {
  76         buffer_clear();
  77
  78         // Set sense low, to stop motor.
  79         c64sense_off();
  80
  81         dumptask_flags = 0;
  82         dumptask_blocksxferd = 0;
  83         dumptask_bufferextremeusage = 0;
  84         dumptask_setmode(mode);
  85
  86         if(mode == DUMPTASK_MODE_DUMP) {
  87                 // Select TAPEREAD as ICP input
  88                 rsig(RSIG_TAPE);
  89                 timer1_setmode(TIMER1_MODE_DUMP);
  90         } else {
  91                 // Select C64 as ICP input
  92                 rsig(RSIG_C64);
  93                 timer1_setmode(TIMER1_MODE_SAVE);
  94         }
  95 }
  96
  97 buf_t dumptask_bufferusage()
  98 {
  99         return dumptask_bufferextremeusage;
 100 }
 101
 102 void dumptask()
 103 {
 104         if(dumptask_mode() == DUMPTASK_MODE_DUMP) {
 105                 if(!dumptask_isdumping() && tapesense_ison())
 106                 {
 107                         // Start dumping and tell C64 to turn motor on
 108                         c64sense_on();
 109                         timer1_start();
 110
 111                         // Send status message to host
 112                         trut_msg_dumpstarted();
 113
 114                         dumptask_setdumping();
 115                 }
 116                 else if(dumptask_isdumping() && !tapesense_ison())
 117                 {
 118                         // Stop dumping and tell C64 to turn motor off
 119                         c64sense_off();
 120                         timer1_pause();
 121
 122                         trut_msg_dumpfinished();
 123                         dumptask_setsendpacket();
 124
 125                         dumptask_cleardumping();
 126                 }
 127         } else { /* dumptask_mode() == DUMPTASK_MODE_C64WRITE */
 128                 if(!dumptask_isdumping())
 129                 {
 130                         // Start dumping and tell C64 to turn motor on
 131                         c64sense_on();
 132                         timer1_start();
 133
 134                         // Send status message to host
 135                         trut_msg_dumpstarted();
 136
 137                         dumptask_setdumping();
 138                 }
 139         }
 140
 141         // If we are dumping, check if there is enough data in buffer.
 142         if(dumptask_isdumping())
 143         {
 144                 if(buffer_numused() >= (TRUT_EP_DATA_SIZE >> 1) &&
 145                    trut_can_send_data())
 146                 {
 147                         dumptask_setsendpacket();
 148                 }
 149         }
 150
 151         if(dumptask_sendpacket())
 152         {
 153                 if(buffer_numused() > dumptask_bufferextremeusage)
 154                    dumptask_bufferextremeusage = buffer_numused();
 155
 156                 if(trut_send_buffer_data() == 0)
 157                         dumptask_blocksxferd++;
 158                 else
 159                         trut_msg_commerror(TRUT_MSG_COMMERROR_WRITEDATA);
 160
 161                 dumptask_clearsendpacket();
 162         }
 163 }