| module ram(clk, addr, data_in, data_out, cs, we); | |
| parameter ADDR_WIDTH = 11; | |
| parameter DATA_WIDTH = 8; | |
| parameter INIT_FILE = ""; | |
| input clk; | |
| input [ADDR_WIDTH-1:0] addr; | |
| input [DATA_WIDTH-1:0] data_in; | |
| output [DATA_WIDTH-1:0] data_out; |
| leds = $D000 | |
| dips = $D001 | |
| * = $F000 | |
| begin lda dips | |
| sta leds | |
| jmp begin | |
| * = $FFFA |
| module ram(clk, addr, data_in, data_out, cs, we); | |
| parameter ADDR_WIDTH = 11; | |
| parameter DATA_WIDTH = 8; | |
| parameter INIT_FILE = ""; | |
| input clk; | |
| input [ADDR_WIDTH-1:0] addr; | |
| input [DATA_WIDTH-1:0] data_in; | |
| output reg [DATA_WIDTH-1:0] data_out; |
| #define bytesPerLine 16 | |
| #define dataSize 131072 | |
| #define A16 10 | |
| #define _CE 11 | |
| #define _OE 12 | |
| #define _WE 13 | |
| void setupPorts() { | |
| // Set disable writing and output, enable chip | |
| digitalWrite(_WE, HIGH); |
I couldn't find a comprehensive list of links for the RC2014 so I started one. Suggestions welcome.
| ; | |
| ; Compute a Mandelbrot set on a simple Z80 computer. | |
| ; | |
| ; From https://rosettacode.org/wiki/Mandelbrot_set#Z80_Assembly | |
| ; Adapted to CP/M and colorzied by J.B. Langston | |
| ; Latest version at https://gist.github.com/jblang/3b17598ccfa0f7e5cca79ad826a399a9 | |
| ; Assemble with sjasm | |
| ; | |
| ; Porting this program to another Z80 platform should be easy and straight- | |
| ; forward: The only dependencies on my homebrew machine are the system-calls |
| ; Control APA102 LEDs attached to the YM2149 sound chip's | |
| ; IO port A on pins 0 (data) and 1 (clock) by bit banging a shift register | |
| ; Yes, I have turned my RC2014 into the world's most Rube Goldbergesque Arduino | |
| ymaddr equ 0d8h ; address port on YM2149 | |
| ymdata equ 0d0h ; data port on YM2149 | |
| mixer equ 7h ; mixer/IO control register | |
| iodira equ 40h ; port A direction bit |
| SECTION code_clib | |
| PUBLIC disz80 | |
| PUBLIC _disz80 | |
| EXTERN fputc_cons | |
| ; This code is been found in a ZX Spectrum tool called UTILITY3 v1.3 |
| ; Apple 30th Anniversary Tribute for Apple II by Dave Schmenk | |
| ; Original at https://www.applefritter.com/node/24600#comment-60100 | |
| ; Disassembled, Commented, and ported to Apple II by J.B. Langston | |
| ; Assemble with `64tass -b -o a2apple30th.bin -L a2apple30th.lst` | |
| KEYBD = $C000 ; keyboard register | |
| STROBE = $C010 ; keyboard strobe register | |
| PTR = $06 ; pointer to current image | |
| * = $0C00 |