foo.c

   1 #include <stdio.h>
   2 #include "fakeasm.h"
   3 typedef unsigned char u8;
   4
   5 u8 data[] = {
   6         0x84, 0x9d, 0xb0, 0x69, 0x9d, 0x84, 0x69, 0x58,
   7         0x75, 0x8c, 0xb0, 0x69, 0x8c, 0x75, 0x69, 0x58
   8 };
   9 u8 i0;
  10 u8 i1;
  11 u8 i2;
  12 u8 i3;
  13 u8 x;
  14 u8 t;
  15 u8 o;
  16 void g(void) {
  17         // g(i, x, t, o) -> t
  18         u8 tmp;
  19         ANDI    (t, 0x07)
  20         MOV     (tmp, i2)
  21         ANDI    (tmp, 3)
  22         TST     (tmp)
  23         BREQ    (skip)
  24         SUBI    (t, -8)
  25         skip:
  26         t = data[t];
  27         t = ((i3<<24|i2<<16|i1<<8|i0)*t) >> o;
  28         AND     (t, x)
  29         ANDI    (t, 3)
  30         RET
  31 };
  32
  33 int main(void) {
  34         u8 n;
  35         u8 s;
  36         u8 acc;
  37         //TODO: clear all vars/registers
  38         for (;;) {
  39                 MOV     (n, i2)
  40                 LSL     (n)
  41                 LSL     (n)
  42                 #define tmp acc
  43                 MOV     (tmp, i1)
  44                 SWAP    (tmp)
  45                 ANDI    (tmp, 0x0f)
  46                 LSR     (tmp)
  47                 LSR     (tmp)
  48                 OR      (n, tmp)
  49                 #undef tmp
  50                 MOV     (s, i3)
  51                 ROR     (s)
  52                 ROR     (s)
  53                 ANDI    (s, 0x80)
  54                 #define tmp acc
  55                 MOV     (tmp, i2)
  56                 LSR     (tmp)
  57                 OR      (s, tmp)
  58                 #undef tmp
  59
  60                 //voice 1:
  61                 LDI     (x, 1)
  62                 MOV     (t, n)
  63                 LDI     (o, 12)
  64                 RCALL   g();
  65                 MOV     (acc, t)
  66
  67                 //voice 2:
  68                 MOV     (x, s)
  69                 #define tmp o
  70                 MOV     (tmp, i2)
  71                 LSL     (tmp)
  72                 LSL     (tmp)
  73                 LSL     (tmp)
  74                 MOV     (t, i1)
  75                 SWAP    (t)
  76                 ANDI    (t, 0xf)
  77                 LSR     (t)
  78                 OR      (t, tmp)
  79                 #undef tmp
  80                 EOR     (t, n)
  81                 LDI     (o, 10)
  82                 RCALL   g();
  83                 ADD     (acc, t)
  84
  85                 //voice 3:
  86                 x = s / 3;
  87                 t = n + (((i3&0x01)<<13 | i2<<5 | i1>>3) % 3);
  88                 LDI     (o, 10)
  89                 RCALL   g();
  90                 ADD     (acc, t)
  91
  92                 //voice 4:
  93                 x = s / 5;
  94                 t = 8 + n - (((i3&0x01)<<14 | i2<<6 | i1>>2) % 3);
  95                 LDI     (o, 9)
  96                 RCALL   g();
  97                 ADD     (acc, t)
  98
  99                 putchar(acc<<4);
 100                 #define tmp acc
 101                 LDI     (tmp, 0)
 102                 SUBI    (i0, -1)
 103                 ADC     (i1, tmp, !i0)
 104                 ADC     (i2, tmp, !i0&&!i1)
 105                 ADC     (i3, tmp, !i0&&!i1&&!i2)
 106                 #undef tmp
 107         }
 108 }