Was planning to use this as input matrix
Even drew some graphics using inkscape
But it is too large.
Check out https://github.com/MothSynths/MothOS
Going to test if we can use the full 16Mb Flash and 8Mb PSRam
Next to do, remove DuPont wires, and design a 3d printed case.
While attending Bornhack 2024 in Danmark, I came up with the below fun ideas.
Using Python and OpenCV, I made some funny webcam hacks.
Note: My laptop webcam is very bad, a better webcam should give you a more stable result.
First, a virtual workspace flipper. Just using my head movement to flip through my virtual desktops. (Turning left and right)
Next, an image viewer.
Using your head movement up, down, left and right to control the image.
Note : this is not the same movement as above. This won’t use rotation of your head!
Started coding a demo with a friend of mine.
I made a part that uses raster interrupts and gives the illusion that the picture is up in the border.
Hopefully I’ve got some rastertime left to play music. But I learned a lot!
UPDATE: Yes also with SID music!
Not shown: Bad raster lines, split colors background and bordercolor.
Maybe I’ll add these later.
UPDATE: 20240720
Sprite multiplexing done and self modifying code.
Testing the first keyboard. It is the 8085-SDK hex matrix keyboard.
It is running on a Raspberry Pi Zero 2, without X server.
So the images are displayed using the framebuffer.
Also the touch data is read using evdev and the raw devices.
Todo:
Bash test and configuring the OS for testing.
cat <<EOF >> /boot/config.txt hdmi_group=2 hdmi_mode=87 hdmi_timings=400 0 100 10 140 1280 10 20 20 2 0 0 0 60 0 43000000 3 display_rotate=3 EOF # Image testing apt-get install fbi sudo fbi -d /dev/fb0 -T 1 8085.png -a --noverbose apt-get install python3-evdev python3-uinput evtest evtest
First simple python test
import select
from math import floor
import sys
slot = 0
keysname=[["F","E","D","C","vect-int","reset"],
["B","A","9","8","GO","Single-Step"],
["7","6","5","4","Exam-reg","Subst-mem"],
["3","2","1","0","Exec","Next"],
]
keysnames=[["F","E","D","C","vect-int","reset"],
["B","A","L","H","GO","Single-Step"],
["PCL","PCH","SPL","SPH","Exam-reg","Subst-mem"],
["3","2","1","0",".",","],
]
for path in evdev.list_devices():
device = evdev.InputDevice(path)
if evdev.ecodes.EV_ABS in device.capabilities():
break
else:
sys.stderr.write('Failed to find the touchscreen.\n')
sys.exit(1)
while True:
r, w, x = select.select([device.fd], [], [])
id_ = -1
x = y = 0
for event in device.read():
if event.code == event.value == 0:
if id_ != -1:
yy = floor(( x - 600 ) / 700)
xx = floor(( y - 1377 ) / 226)
if yy < 4 and yy >=0 and xx < 6 and xx >= 00:
if slot == 1:
print(keysnames[yy][xx])
else:
print(keysname[yy][xx])
elif event.code == ABS_MT_TRACKING_ID:
id_ = event.value
elif event.code == ABS_MT_SLOT:
slot = event.value
elif event.code == ABS_MT_POSITION_X:
x = event.value
elif event.code == ABS_MT_POSITION_Y:
y = event.value
I came up with a simple matrix calculation
Pressing the 4 corner keys gave me x and y.
I took averages for min and max reading.
I don’t need pixel-perfect reading, and I noticed values between 960 and 3080 vertically.
We want 960 – 3080 into 4 blocks, but the middle should start @ 960.
So 3080/3 = about 700
700 / 2 = 350
block 1 starts 350 sooner than 960 is ~ 600
Upper key y coords = 600-> + 700
Next is 1300 -> + 700
converting to whole numbers using floor gives me:
floor(( y – 600 ) / 700)
NOTE: My x and y are rotated
Example using coordinates
1600, 1600
floor(( 1600 – 600 ) / 700) = floor(1,4…) = 1st row
(from row 0,1,2,3)
In the past I made a Etch a Sketch with my lasercutter.
Using two rotary encoders and the 64×64 matrix display I recently bought, I made a drawing thingy.
Like a Etch a Sketch.
Some Circuit Python code.
Now I have to fix an out of memory issue using below.
And make a colour selection button??? 🙂
import time
import board
import displayio
import math
import vectorio
import rgbmatrix
import framebufferio
import array
import bitmaptools
import rotaryio
import board
encoder1 = rotaryio.IncrementalEncoder(board.GP27, board.GP26)
encoder2 = rotaryio.IncrementalEncoder(board.GP18, board.GP19)
last_position1 = 0
last_position2 = 0
# Release any existing displays
displayio.release_displays()
# --- Matrix Properties ---
DISPLAY_WIDTH = 64
DISPLAY_HEIGHT = 64
# --- Matrix setup ---
BIT_DEPTH = 2
matrix = rgbmatrix.RGBMatrix(
width=64, bit_depth=2, height=64,
rgb_pins=[board.GP0, board.GP1, board.GP2, board.GP3, board.GP4, board.GP5],
addr_pins=[board.GP6, board.GP7, board.GP8, board.GP9, board.GP22],
clock_pin=board.GP10, latch_pin=board.GP12, output_enable_pin=board.GP13)
colrs = 13
display = framebufferio.FramebufferDisplay(matrix, auto_refresh=True)
b1 = displayio.Bitmap(display.width, display.height, colrs )
palette = displayio.Palette(colrs )
palette[0] = 0x000000 # black
palette[1] = 0x964B00 # brown (light yellow)
palette[2] = 0x00FFFF # cyan
palette[3] = 0x850101 # deep red
palette[4] = 0x7F00FF # violet
palette[5] = 0xC46210 # orange
palette[6] = 0x3D9140 # Cobalt green
palette[7] = 0x004225 # british racing green
palette[8] = 0x8B008B # dark magenta
palette[9] = 0x1F75FE # crayola blue
palette[10] =0x00308F # air force blue US air force
palette[11] =0xBF00FF # electric purple
palette[12] =0x08E8DE # turquoise
g1 = displayio.Group(scale=1)
display.root_group = g1
bmp = displayio.Bitmap(64,64, 2)
tilegrid = displayio.TileGrid(bitmap=bmp, pixel_shader=palette)
g1.append(tilegrid)
display.auto_refresh = True
tilegrid = displayio.TileGrid(bitmap=bmp, pixel_shader=palette)
while True:
position1 = encoder1.position
if last_position1 is None or position1 != last_position1:
if position1 > last_position1:
position1 = position1 + 1
if position1 < last_position1:
position1 = position1 - 1
if position1 < 0:
position1 = 0
last_position1 = position1
position2 = encoder2.position
if last_position2 is None or position2 != last_position2:
if position2 > last_position2:
position2 = position2 + 1
if position2 > last_position2:
position2 = position2 - 1
if position2 < 0:
position2 = 0
last_position2 = position2
bmp[position1,position2]=1
tilegrid = displayio.TileGrid(bitmap=bmp, pixel_shader=palette)
g1.append(tilegrid)
display.auto_refresh = True
Working on 68000 Single Board Computer.
Made a clock circuit and busy designing a power-on-reset schematic. I’ve made one before, but this circuit needs RESET and HALT being pulled low.
The 68000 being 24 bit address and 16 bit data needs 2x 8-bit roms and 2x 8 bit ram, but i didn’t have the components yet in this picture.
Address decoder using ATF22V10C is also halfway.
Schematics online soon.
Started a protected Git repo for C64 demo and proof of concepts for our old ICECREW group.
Installed Gitea, behind a reverse proxy.
Part of reverse proxy
ProxyRequests Off ProxyPreserveHost On SSLProxyVerify none SSLProxyCheckPeerCN off SSLProxyCheckPeerName off <Location /> ProxyPass http://10.x.y.z:3000/ ProxyPassReverse http://10.x.y.z:3000/ Require ip 213.10.144.27 Require ip a.b.c.d Require ip e.f.g.h </Location>
Gitea config with token login over https
Generate token Login https://icecrew.henriaanstoot.nl/ Select your profile (upper right) And select Settings > Applications Select a name for your token. And press generate Top screen shows a token, copy this! Create new project Press explore (upper left) Select organisation and icecrew Press New Repository, give a name and create (press https when not defaulted, there is NO ssh to this server) The example is wrong! (Use below changing TOKENHERE and PROJECTNAME touch README.md git init -b master git add README.md git commit -m "first commit" git remote add origin https://TOKENHERE@icecrew.henriaanstoot.nl/icecrew/PROJECTNAME.git git push -u origin master Clone a project Goto a project press HTTPS when not defaulted to this. git clone https://icecrew.henriaanstoot.nl/icecrew/borderflag.git edit .git/config and add your token to the url ! to push
My Sidplayer as an option to select own collection.
And I’ve made a top list
# Best composers (no order) Ouwehand_Reyn Tel_Jeroen Huelsbeck_Chris Rowlands_Steve Hubbard_Rob Daglish_Ben Follin_Tim Gray_Matt Tjelta_Geir Mibri (from get in the Van) # Best tunes (no order) R-Type.sid Arkanoid.sid Bottom.sid Turbo_Outrun.sid A_Tune_for_Unity.sid Ohne_Dich_Rammstein.sid # Start of own collection (not in above collection) Abyssus_Ignis_[8580].sid Catastrophe_[8580].sid Dumb_Terminal_[8580].sid Get_in_the_Van_[8580].sid Getting_in_the_Van_[8580].sid Supercharger_[8580].sid Tuna_Guitar_[8580].sid
Investigating syncing effect to Sid music.
I got a great tip from Youth who made the Freakandel demo presented at X2024.
> Setup the loop to play the music > Copy part of the memory to the screen ($0400) in the same loop to look for memory locations that are used as variables for the music. > Looking at > Memory where the music is stored > Zeropage ($00-$ff) > See if there's some useful changes that coincide with for example drums > For my own tunes, I use a music routine where I can put event markers in the music itself and react to those from the code. That's >how I synced https://www.micheldebree.nl/posts/big_angry_sprite/ > You could also try reading the SID registers for voice 3 (waveform and ADSR), those are the only ones that are not write-only. > Obviously you can then only react to those changes in voice 3.
I used retrodebugger to see which bytes are changing.
Then I wrote a program which changes the background colour to this value.
I also made a program to use a joystick to see which address have the most interesting effect.
(use up)
1 !to "sidbgnd.prg",cbm
2
3 * = $0801
4
5 sysline:
6 0801 0b0801009e323036... !byte $0b,$08,$01,$00,$9e,$32,$30,$36,$31,$00,$00,$00 ;= SYS 2061
7
8 * = $080d
9
10 080d 78 sei
11 080e a960 lda #<irq
12 0810 a208 ldx #>irq
13 0812 8d1403 sta $314
14 0815 8e1503 stx $315
15 0818 a91b lda #$1b
16 081a a200 ldx #$00
17 081c a07f ldy #$7f
18 081e 8d11d0 sta $d011
19 0821 8e12d0 stx $d012
20 0824 8c0ddc sty $dc0d
21 0827 a901 lda #$01
22 0829 8d1ad0 sta $d01a
23 082c 8d19d0 sta $d019
24 082f a900 lda #$00
25 0831 200010 jsr $1000
26 0834 58 cli
27 0835 a920 lda #$20
28 0837 8d6b08 sta vector
29 083a a917 lda #$17
30 083c 8d6c08 sta vector+1
31 083f a000 ldy #$00
32 0841 b93017 hold lda $1730,y
33 0844 8d20d0 sta $D020
34 0847 ad00dc lda $dc00
35 084a 2901 and #$1
36 084c c901 cmp #$1
37 084e f0f1 beq hold
38 0850 ad00dc lda $dc00
39 0853 2901 and #$1
40 0855 c900 cmp #$0
41 0857 f0e8 beq hold
42 0859 c8 iny
43 085a 8c6d08 sty vector+2
44 085d 4c4108 jmp hold
45 irq
46 0860 a901 lda #$01
47 0862 8d19d0 sta $d019
48 0865 200310 jsr $1003
49 0868 4c31ea jmp $ea31
50
51 vector
52 086b 0000 !byte $00,$00
53
54 * = $1000
55 1000 4c37104c85104c2f... !binary "Techno_Drums.sid" ,, $7c+2
A fun experiment using opening the C64 border and changing colors on certain rasterlines.
Code (acme)
acme borderflag.asm
x64 +drive8truedrive borderflag.prg
!cpu 650rasterline
!to "borderflag.prg",cbm
* = $0801
!byte $0d,$08,$dc,$07,$9e,$20,$34
!byte $39,$31,$35,$32,$00,$00,$00
* = $c000
sei ; turn off interrupts
ldx #1 ; enable raster interrupts
stx $d01a
lda #<irq ; set raster interrupt vector
ldx #>irq
sta $0314
stx $0315
ldy #$f0 ; set first interrupt rasterline
sty $d012
lda $d011 ; reset rasterline hi bit
and #%01111111
sta $d011
asl $d019 ; ack VIC interrupts
cli
loop_until_doomsday
jmp loop_until_doomsday
irq
asl $d019 ; ack irq
lda #$01 ; set screenframe and background
sta $d020
lda #$02
sta $d021
lda #$38 ; wait for line $38
cmp $d012
bne *-3
lda #$02 ; set screenframe and background
sta $d020
lda #$01
sta $d021
lda #$f9 ; wait for line $f9C
cmp $d012 ; just below border in 25 row mode
bne *-3
lda $d011 ; switch to 24 row mode ($d011 bit 3 = 0)
and #$f7 ; %11110111
sta $d011
lda #$fd ; wait for line $fd
cmp $d012 ; just below border in 25 row mode
bne *-3
lda $d011 ; switch back to 25 row mode ($d011 bit 3 = 1)
ora #$08 ; %00001000
sta $d011
jmp $ea31 ; exit irq
UPDATE after filming demo:
Commodore font and better logo.
(Font also in info screen)
50000+ Songs / 1600+ Artists
Controls:
TODO:
I needed to get some data from protected sheets.
But I got this on 100+ files:
F that:
Made a script to remove sheet protection and ran this in a loop over all files.
Bye bye protection.
./script.sh /mnt/fileserver/sensordata001.xlsx Parsing /mnt/fileserver/sensordata001.xlsx Archive: this.zip inflating: tmp/[Content_Types].xml inflating: tmp/_rels/.rels inflating: tmp/xl/_rels/workbook.xml.rels inflating: tmp/xl/workbook.xml inflating: tmp/xl/worksheets/sheet4.xml inflating: tmp/xl/worksheets/sheet2.xml inflating: tmp/xl/worksheets/sheet3.xml inflating: tmp/xl/worksheets/sheet1.xml inflating: tmp/xl/styles.xml inflating: tmp/xl/theme/theme1.xml inflating: tmp/xl/sharedStrings.xml inflating: tmp/docProps/core.xml inflating: tmp/docProps/app.xml adding: [Content_Types].xml (deflated 78%) adding: docProps/ (stored 0%) adding: docProps/core.xml (deflated 49%) adding: docProps/app.xml (deflated 54%) adding: _rels/ (stored 0%) adding: _rels/.rels (deflated 60%) adding: xl/ (stored 0%) adding: xl/worksheets/ (stored 0%) adding: xl/worksheets/sheet2.xml (deflated 92%) adding: xl/worksheets/sheet1.xml (deflated 46%) adding: xl/worksheets/sheet4.xml (deflated 92%) adding: xl/worksheets/sheet3.xml (deflated 92%) adding: xl/_rels/ (stored 0%) adding: xl/_rels/workbook.xml.rels (deflated 77%) adding: xl/workbook.xml (deflated 56%) adding: xl/theme/ (stored 0%) adding: xl/theme/theme1.xml (deflated 78%) adding: xl/styles.xml (deflated 57%) adding: xl/sharedStrings.xml (deflated 23%)
Bash script:
It leaves the original intact, but makes a unprotected copy named the same with unprot_ in front of it.
#!/bin/bash
if [ -n "$1" ]; then
echo "Parsing $1"
else
echo "usage : scriptname /path/to/sheet.xlsx"
exit 0
fi
name=$(basename $1)
dir=$(dirname $1)
rm -f this.zip
rm -rf tmp
mkdir tmp
cp "$1" this.zip
unzip this.zip -d tmp
find tmp/xl/worksheets/ -iname *xml -exec sed -i -e "s/<sheetProtection.*\/>//g" {} \;
cd tmp
rm -f "$dir/unprot_${name}"
zip -r "$dir/unprot_${name}" *
cd ..
I think we’ve seen Maderia .. 🙂
I bought a little notebook while being there.
I wrote about 12 pages of ideas, schematics and projects to start.
8085 Cartridge revisited
Problem with cartridge: prg is 17k, exomized 10k.
So you need 2 banks of 8k.
This disables basic rom, needed for the program.
The program needs to be relocated to 0x800 anyway.
So my exomizer options will take care of that.
But the basic is not being enabled again.
exomizer sfx sys -o data.exo -Di_ram_enter=\$37 -Di_ram_during=\$34 -f'LDA #$37 STA $01' 8085.prg xa frame.asm -o frame.bin x64 -cart16 frame.bin
Result … JAM