wow. source code
This commit is contained in:
commit
e844b374a8
|
|
@ -0,0 +1,17 @@
|
||||||
|
update-site
|
||||||
|
So12 - The Sound of Twelve - 01 My King.flac
|
||||||
|
So12 - The Sound of Twelve - 02 Symphonica.flac
|
||||||
|
So12 - The Sound of Twelve - 03 EchoKrunch.flac
|
||||||
|
So12 - The Sound of Twelve - 04 Trimensional Battle.flac
|
||||||
|
So12 - The Sound of Twelve - 05 Glarpedge.flac
|
||||||
|
So12 - The Sound of Twelve - 06 Emoticondria.flac
|
||||||
|
So12 - The Sound of Twelve - 07 Polyannagon.flac
|
||||||
|
So12 - The Sound of Twelve - 08 Time Winder.flac
|
||||||
|
So12 - The Sound of Twelve - 09 Restival.flac
|
||||||
|
So12 - The Sound of Twelve - 10 Progassaurus.flac
|
||||||
|
So12 - The Sound of Twelve - 11 Victory over Urgency.flac
|
||||||
|
So12 - The Sound of Twelve - 12 Fruitful Vision.flac
|
||||||
|
cover.jpg
|
||||||
|
genweb
|
||||||
|
index.php
|
||||||
|
junk
|
||||||
|
|
@ -0,0 +1,24 @@
|
||||||
|
This is free and unencumbered software released into the public domain.
|
||||||
|
|
||||||
|
Anyone is free to copy, modify, publish, use, compile, sell, or
|
||||||
|
distribute this software, either in source code form or as a compiled
|
||||||
|
binary, for any purpose, commercial or non-commercial, and by any
|
||||||
|
means.
|
||||||
|
|
||||||
|
In jurisdictions that recognize copyright laws, the author or authors
|
||||||
|
of this software dedicate any and all copyright interest in the
|
||||||
|
software to the public domain. We make this dedication for the benefit
|
||||||
|
of the public at large and to the detriment of our heirs and
|
||||||
|
successors. We intend this dedication to be an overt act of
|
||||||
|
relinquishment in perpetuity of all present and future rights to this
|
||||||
|
software under copyright law.
|
||||||
|
|
||||||
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||||||
|
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||||||
|
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
|
||||||
|
IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
|
||||||
|
OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
|
||||||
|
ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
|
||||||
|
OTHER DEALINGS IN THE SOFTWARE.
|
||||||
|
|
||||||
|
For more information, please refer to <http://unlicense.org/>
|
||||||
|
|
@ -0,0 +1,435 @@
|
||||||
|
#include <stddef.h>
|
||||||
|
#include "c65.h"
|
||||||
|
|
||||||
|
#define PN 0x80
|
||||||
|
#define PV 0x40
|
||||||
|
|
||||||
|
#define PB 16
|
||||||
|
#define PD 8
|
||||||
|
#define PI 4
|
||||||
|
#define PZ 2
|
||||||
|
#define PC 1
|
||||||
|
|
||||||
|
#define setnz(x) c->p = (c->p & 0x7D) | ((!x) << 1) | (x & 0x7F)
|
||||||
|
#define pull_noinc() (c->r(c, 0x100|(c->s)))
|
||||||
|
#define pull() (c->r(c, 0x100|(++c->s)))
|
||||||
|
#define push(x) c->w(c, 0x100|(c->s--), x)
|
||||||
|
#define op(x) static void x(c65* c)
|
||||||
|
// yes these end with two braces. dont worry about it
|
||||||
|
#define swop(x) static void x(c65* c) { switch(c->cycle)
|
||||||
|
|
||||||
|
swop(i_brk) {
|
||||||
|
case 0:
|
||||||
|
c->r(c, c->ip);
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
push(c->ip >> 8);
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
push(c->ip);
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
push(c->p | PB); // TODO is B set in-register too?
|
||||||
|
break;
|
||||||
|
case 4:
|
||||||
|
c->ip = c->r(c, 0xFFFE);
|
||||||
|
break;
|
||||||
|
case 5:
|
||||||
|
c->ip |= c->r(c, 0xFFFF) << 8;
|
||||||
|
c->end++;
|
||||||
|
break;
|
||||||
|
}}
|
||||||
|
|
||||||
|
swop(s_plpa) {
|
||||||
|
case 0:
|
||||||
|
c->r(c, c->ip);
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
pull();
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
uint8_t s = pull_noinc();
|
||||||
|
if(c->op == 0x20) c->p = s | 0x20; // bit 5 always set
|
||||||
|
else {
|
||||||
|
setnz(s);
|
||||||
|
c->a = s;
|
||||||
|
}
|
||||||
|
c->end++;
|
||||||
|
break;
|
||||||
|
}}
|
||||||
|
|
||||||
|
op(s_phpa) {
|
||||||
|
// https://www.nesdev.org/wiki/Status_flags#The_B_flag
|
||||||
|
switch(c->cycle) {
|
||||||
|
case 0:
|
||||||
|
c->r(c, c->ip);
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
push(((c->op & 0x40) ? c->a : c->p) | 0x10); // php always pushes brk flag as set
|
||||||
|
c->end++;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
op(i_sef) {
|
||||||
|
static uint8_t t[4] = {0, 2, 6, 3};
|
||||||
|
uint8_t s = t[c->op >> 6];
|
||||||
|
c->p &= ~(1 << s) | (((c->op >> 5) & 1) << s); // set or clear flag depending on value of bit 5
|
||||||
|
c->r(c, c->ip); // TODO best guess
|
||||||
|
c->end++;
|
||||||
|
}
|
||||||
|
|
||||||
|
swop(a_jmp) {
|
||||||
|
case 0:
|
||||||
|
c->b = c->r(c, c->ip++);
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
c->ip = (c->r(c, c->ip) << 8) | c->b;
|
||||||
|
c->end++;
|
||||||
|
break;
|
||||||
|
}}
|
||||||
|
|
||||||
|
swop(r_bcc) { // TODO verify implementation
|
||||||
|
case 0:
|
||||||
|
c->b = c->r(c, c->ip++);
|
||||||
|
static char m[4] = {7, 6, 0, 9};
|
||||||
|
char d = m[c->op >> 6];
|
||||||
|
if(
|
||||||
|
(
|
||||||
|
(
|
||||||
|
c->p >> (d & 7)
|
||||||
|
) & 1
|
||||||
|
) ^ (d >> 3)
|
||||||
|
) c->end++; // branch not taken
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
c->ip++; // TODO correct?
|
||||||
|
c->r(c, ((c->ip + c->b) & 0xFF) | (c->ip & 0xFF00));
|
||||||
|
if(!((((c->ip & 0xFF) + ((int8_t)c->b)) >> 8) & 1)) c->end++; // no page crossing
|
||||||
|
c->ip += ((int8_t)c->b);
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
c->r(c, c->ip);
|
||||||
|
break;
|
||||||
|
}}
|
||||||
|
|
||||||
|
op(i_trans) {
|
||||||
|
switch(c->op) {
|
||||||
|
case 0x8A:
|
||||||
|
c->a = c->x;
|
||||||
|
setnz(c->a);
|
||||||
|
break;
|
||||||
|
case 0x98:
|
||||||
|
c->a = c->y;
|
||||||
|
setnz(c->a);
|
||||||
|
break;
|
||||||
|
case 0x9A:
|
||||||
|
c->s = c->x;
|
||||||
|
break;
|
||||||
|
case 0xA8:
|
||||||
|
c->y = c->a;
|
||||||
|
setnz(c->y);
|
||||||
|
break;
|
||||||
|
case 0xAA:
|
||||||
|
c->x = c->a;
|
||||||
|
setnz(c->x);
|
||||||
|
break;
|
||||||
|
case 0xBA:
|
||||||
|
c->x = c->s;
|
||||||
|
setnz(c->x);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
c->r(c, c->ip); // TODO best guess
|
||||||
|
c->end++;
|
||||||
|
}
|
||||||
|
|
||||||
|
op(i_dec) {
|
||||||
|
switch(c->op) {
|
||||||
|
case 0x88:
|
||||||
|
c->y--;
|
||||||
|
setnz(c->y);
|
||||||
|
break;
|
||||||
|
case 0xC8:
|
||||||
|
c->y++;
|
||||||
|
setnz(c->y);
|
||||||
|
break;
|
||||||
|
case 0xCA:
|
||||||
|
c->x--;
|
||||||
|
setnz(c->x);
|
||||||
|
break;
|
||||||
|
case 0xE8:
|
||||||
|
c->x++;
|
||||||
|
setnz(c->x);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static void(*t[256])(c65*) = {
|
||||||
|
i_brk,
|
||||||
|
NULL, // 01
|
||||||
|
NULL, // 02
|
||||||
|
NULL, // 03
|
||||||
|
NULL, // 04
|
||||||
|
NULL, // 05
|
||||||
|
NULL, // 06
|
||||||
|
NULL, // 07
|
||||||
|
s_phpa, // 08
|
||||||
|
NULL, // 09
|
||||||
|
NULL, // 0A
|
||||||
|
NULL, // 0B
|
||||||
|
NULL, // 0C
|
||||||
|
NULL, // 0D
|
||||||
|
NULL, // 0E
|
||||||
|
NULL, // 0F
|
||||||
|
r_bcc, // 10
|
||||||
|
NULL, // 11
|
||||||
|
NULL, // 12
|
||||||
|
NULL, // 13
|
||||||
|
NULL, // 14
|
||||||
|
NULL, // 15
|
||||||
|
NULL, // 16
|
||||||
|
NULL, // 17
|
||||||
|
i_sef, // 18
|
||||||
|
NULL, // 19
|
||||||
|
NULL, // 1A
|
||||||
|
NULL, // 1B
|
||||||
|
NULL, // 1C
|
||||||
|
NULL, // 1D
|
||||||
|
NULL, // 1E
|
||||||
|
NULL, // 1F
|
||||||
|
NULL, // 20
|
||||||
|
NULL, // 21
|
||||||
|
NULL, // 22
|
||||||
|
NULL, // 23
|
||||||
|
NULL, // 24
|
||||||
|
NULL, // 25
|
||||||
|
NULL, // 26
|
||||||
|
NULL, // 27
|
||||||
|
s_plpa, // 28
|
||||||
|
NULL, // 29
|
||||||
|
NULL, // 2A
|
||||||
|
NULL, // 2B
|
||||||
|
NULL, // 2C
|
||||||
|
NULL, // 2D
|
||||||
|
NULL, // 2E
|
||||||
|
NULL, // 2F
|
||||||
|
r_bcc, // 30
|
||||||
|
NULL, // 31
|
||||||
|
NULL, // 32
|
||||||
|
NULL, // 33
|
||||||
|
NULL, // 34
|
||||||
|
NULL, // 35
|
||||||
|
NULL, // 36
|
||||||
|
NULL, // 37
|
||||||
|
i_sef, // 38
|
||||||
|
NULL, // 39
|
||||||
|
NULL, // 3A
|
||||||
|
NULL, // 3B
|
||||||
|
NULL, // 3C
|
||||||
|
NULL, // 3D
|
||||||
|
NULL, // 3E
|
||||||
|
NULL, // 3F
|
||||||
|
NULL, // 40
|
||||||
|
NULL, // 41
|
||||||
|
NULL, // 42
|
||||||
|
NULL, // 43
|
||||||
|
NULL, // 44
|
||||||
|
NULL, // 45
|
||||||
|
NULL, // 46
|
||||||
|
NULL, // 47
|
||||||
|
s_phpa, // 48
|
||||||
|
NULL, // 49
|
||||||
|
NULL, // 4A
|
||||||
|
NULL, // 4B
|
||||||
|
a_jmp, // 4C
|
||||||
|
NULL, // 4D
|
||||||
|
NULL, // 4E
|
||||||
|
NULL, // 4F
|
||||||
|
r_bcc, // 50
|
||||||
|
NULL, // 51
|
||||||
|
NULL, // 52
|
||||||
|
NULL, // 53
|
||||||
|
NULL, // 54
|
||||||
|
NULL, // 55
|
||||||
|
NULL, // 56
|
||||||
|
NULL, // 57
|
||||||
|
i_sef, // 58
|
||||||
|
NULL, // 59
|
||||||
|
NULL, // 5A
|
||||||
|
NULL, // 5B
|
||||||
|
NULL, // 5C
|
||||||
|
NULL, // 5D
|
||||||
|
NULL, // 5E
|
||||||
|
NULL, // 5F
|
||||||
|
NULL, // 60
|
||||||
|
NULL, // 61
|
||||||
|
NULL, // 62
|
||||||
|
NULL, // 63
|
||||||
|
NULL, // 64
|
||||||
|
NULL, // 65
|
||||||
|
NULL, // 66
|
||||||
|
NULL, // 67
|
||||||
|
s_plpa, // 68
|
||||||
|
NULL, // 69
|
||||||
|
NULL, // 6A
|
||||||
|
NULL, // 6B
|
||||||
|
NULL, // 6C
|
||||||
|
NULL, // 6D
|
||||||
|
NULL, // 6E
|
||||||
|
NULL, // 6F
|
||||||
|
r_bcc, // 70
|
||||||
|
NULL, // 71
|
||||||
|
NULL, // 72
|
||||||
|
NULL, // 73
|
||||||
|
NULL, // 74
|
||||||
|
NULL, // 75
|
||||||
|
NULL, // 76
|
||||||
|
NULL, // 77
|
||||||
|
i_sef, // 78
|
||||||
|
NULL, // 79
|
||||||
|
NULL, // 7A
|
||||||
|
NULL, // 7B
|
||||||
|
NULL, // 7C
|
||||||
|
NULL, // 7D
|
||||||
|
NULL, // 7E
|
||||||
|
NULL, // 7F
|
||||||
|
NULL, // 80
|
||||||
|
NULL, // 81
|
||||||
|
NULL, // 82
|
||||||
|
NULL, // 83
|
||||||
|
NULL, // 84
|
||||||
|
NULL, // 85
|
||||||
|
NULL, // 86
|
||||||
|
NULL, // 87
|
||||||
|
i_dec, // 88
|
||||||
|
NULL, // 89
|
||||||
|
i_trans, // 8A
|
||||||
|
NULL, // 8B
|
||||||
|
NULL, // 8C
|
||||||
|
NULL, // 8D
|
||||||
|
NULL, // 8E
|
||||||
|
NULL, // 8F
|
||||||
|
r_bcc, // 90
|
||||||
|
NULL, // 91
|
||||||
|
NULL, // 92
|
||||||
|
NULL, // 93
|
||||||
|
NULL, // 94
|
||||||
|
NULL, // 95
|
||||||
|
NULL, // 96
|
||||||
|
NULL, // 97
|
||||||
|
i_trans, // 98
|
||||||
|
NULL, // 99
|
||||||
|
i_trans, // 9A
|
||||||
|
NULL, // 9B
|
||||||
|
NULL, // 9C
|
||||||
|
NULL, // 9D
|
||||||
|
NULL, // 9E
|
||||||
|
NULL, // 9F
|
||||||
|
NULL, // A0
|
||||||
|
NULL, // A1
|
||||||
|
NULL, // A2
|
||||||
|
NULL, // A3
|
||||||
|
NULL, // A4
|
||||||
|
NULL, // A5
|
||||||
|
NULL, // A6
|
||||||
|
NULL, // A7
|
||||||
|
i_trans, // A8
|
||||||
|
NULL, // A9
|
||||||
|
i_trans, // AA
|
||||||
|
NULL, // AB
|
||||||
|
NULL, // AC
|
||||||
|
NULL, // AD
|
||||||
|
NULL, // AE
|
||||||
|
NULL, // AF
|
||||||
|
r_bcc, // B0
|
||||||
|
NULL, // B1
|
||||||
|
NULL, // B2
|
||||||
|
NULL, // B3
|
||||||
|
NULL, // B4
|
||||||
|
NULL, // B5
|
||||||
|
NULL, // B6
|
||||||
|
NULL, // B7
|
||||||
|
i_sef, // B8
|
||||||
|
NULL, // B9
|
||||||
|
i_trans, // BA
|
||||||
|
NULL, // BB
|
||||||
|
NULL, // BC
|
||||||
|
NULL, // BD
|
||||||
|
NULL, // BE
|
||||||
|
NULL, // BF
|
||||||
|
NULL, // C0
|
||||||
|
NULL, // C1
|
||||||
|
NULL, // C2
|
||||||
|
NULL, // C3
|
||||||
|
NULL, // C4
|
||||||
|
NULL, // C5
|
||||||
|
NULL, // C6
|
||||||
|
NULL, // C7
|
||||||
|
i_dec, // C8
|
||||||
|
NULL, // C9
|
||||||
|
i_dec, // CA
|
||||||
|
NULL, // CB
|
||||||
|
NULL, // CC
|
||||||
|
NULL, // CD
|
||||||
|
NULL, // CE
|
||||||
|
NULL, // CF
|
||||||
|
r_bcc, // D0
|
||||||
|
NULL, // D1
|
||||||
|
NULL, // D2
|
||||||
|
NULL, // D3
|
||||||
|
NULL, // D4
|
||||||
|
NULL, // D5
|
||||||
|
NULL, // D6
|
||||||
|
NULL, // D7
|
||||||
|
i_sef, // D8
|
||||||
|
NULL, // D9
|
||||||
|
NULL, // DA
|
||||||
|
NULL, // DB
|
||||||
|
NULL, // DC
|
||||||
|
NULL, // DD
|
||||||
|
NULL, // DE
|
||||||
|
NULL, // DF
|
||||||
|
NULL, // E0
|
||||||
|
NULL, // E1
|
||||||
|
NULL, // E2
|
||||||
|
NULL, // E3
|
||||||
|
NULL, // E4
|
||||||
|
NULL, // E5
|
||||||
|
NULL, // E6
|
||||||
|
NULL, // E7
|
||||||
|
i_dec, // E8
|
||||||
|
NULL, // E9
|
||||||
|
NULL, // EA
|
||||||
|
NULL, // EB
|
||||||
|
NULL, // EC
|
||||||
|
NULL, // ED
|
||||||
|
NULL, // EE
|
||||||
|
NULL, // EF
|
||||||
|
r_bcc, // F0
|
||||||
|
NULL, // F1
|
||||||
|
NULL, // F2
|
||||||
|
NULL, // F3
|
||||||
|
NULL, // F4
|
||||||
|
NULL, // F5
|
||||||
|
NULL, // F6
|
||||||
|
NULL, // F7
|
||||||
|
i_sef, // F8
|
||||||
|
NULL, // F9
|
||||||
|
NULL, // FA
|
||||||
|
NULL, // FB
|
||||||
|
NULL, // FC
|
||||||
|
NULL, // FD
|
||||||
|
NULL, // FE
|
||||||
|
NULL, // FF
|
||||||
|
};
|
||||||
|
|
||||||
|
void c65_s(c65* c) {
|
||||||
|
if(c->end) {
|
||||||
|
c->op = c->r(c, c->ip); // fetch should not be part of the opcode cycle
|
||||||
|
c->cycle = c->end = 0; // op. impl. expected to end with ip set to next
|
||||||
|
// instruction's address - meant for jmp mostly
|
||||||
|
} else {
|
||||||
|
if(t[c->op]) t[c->op](c);
|
||||||
|
c->cycle++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,17 @@
|
||||||
|
#include <stdint.h>
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
uint16_t (*r)(void*,uint16_t); // r/w data from memory
|
||||||
|
void (*w)(void*,uint16_t,uint8_t); // first arg is a c65*
|
||||||
|
|
||||||
|
uint8_t a, x, y, s, p, // registers
|
||||||
|
|
||||||
|
cycle, op; // TAke a look, y'all:
|
||||||
|
// https://demozoo.org/productions/322616
|
||||||
|
|
||||||
|
uint8_t b, end; // internal registers for use in the
|
||||||
|
uint16_t c; // emulator. not accurate to actual
|
||||||
|
// pla 'microcode' of the 6502
|
||||||
|
|
||||||
|
uint16_t ip; // instruction pointer
|
||||||
|
} c65;
|
||||||
|
|
@ -0,0 +1,26 @@
|
||||||
|
#include "c65.c" // dont worry about it
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
int main() {
|
||||||
|
printf("<style>th{padding-left:5px}a{color:#bc43b8}a:visited{color:pink}body{background:#0f000f;color:#fc83f8;transform:translate(-50%,0%);left:50%;position:absolute}h2{margin:0;padding:0}</style><i><h1>c65 progress</h1></i><table style='text-align:right;border:1px solid;border-collapse:collapse'><tr>"); // dont worry about it
|
||||||
|
int i = 0;
|
||||||
|
for(int y = 0; y < 17; y++) {
|
||||||
|
printf("<tr>");
|
||||||
|
for(int x = 0; x < 17; x++) {
|
||||||
|
if(!y) {
|
||||||
|
if(x) printf("<th>_%X</th>", x - 1);
|
||||||
|
else printf("<th>__</th>");
|
||||||
|
}
|
||||||
|
if(!x) {
|
||||||
|
if(y) printf("<td>%X_</td>", y - 1);
|
||||||
|
}
|
||||||
|
uint8_t ind = (x-1) | ((y-1) << 4);
|
||||||
|
if(y && x) printf("<td title='%02X' style='color:%s</td>", ind, t[ind] ? "green'>y" : "red'>."); // dont worry about it
|
||||||
|
if(t[ind]) i++;
|
||||||
|
}
|
||||||
|
printf("</tr>");
|
||||||
|
}
|
||||||
|
printf("</table><i>mouse over a table entry to see the opcode number<br>if you have an <b style='color:red'>NMOS</b> 6502 and a logic probe, dm me<br><br>%i opcodes implemented (%f%%)</br>%i opcodes not (%f%%)<br><br>source code eventually...</i>", i, 25.0*i/64, 256-i, 25.0*(256-i)/64);
|
||||||
|
}
|
||||||
|
|
||||||
|
// c is a scripting language if youre stupid enough
|
||||||
Loading…
Reference in New Issue