Rewrote the devscreen example
This commit is contained in:
neauoire
parent
6a095e8a22
commit
e4b6717981
2
build.sh
2
build.sh
|
|
@ -20,5 +20,5 @@ cc -std=c89 -DDEBUG -Wall -Wno-unknown-pragmas -Wpedantic -Wshadow -Wextra -Werr
|
|||
# cc uxn.c emulator.c -std=c89 -Os -DNDEBUG -g0 -s -Wall -Wno-unknown-pragmas -L/usr/local/lib -lSDL2 -o bin/emulator
|
||||
|
||||
# run
|
||||
./bin/assembler examples/devmouse.usm bin/boot.rom
|
||||
./bin/assembler examples/paint.usm bin/boot.rom
|
||||
./bin/emulator bin/boot.rom
|
||||
|
|
|
|||
22
emulator.c
22
emulator.c
|
|
@ -322,10 +322,10 @@ Uint8
|
|||
screenr(Device *d, Memory *m, Uint8 b)
|
||||
{
|
||||
switch(b) {
|
||||
case 0: return (WIDTH >> 8) & 0xff;
|
||||
case 1: return WIDTH & 0xff;
|
||||
case 2: return (HEIGHT >> 8) & 0xff;
|
||||
case 3: return HEIGHT & 0xff;
|
||||
case 0: return (HOR * 8 >> 8) & 0xff;
|
||||
case 1: return HOR * 8 & 0xff;
|
||||
case 2: return (VER * 8 >> 8) & 0xff;
|
||||
case 3: return VER * 8 & 0xff;
|
||||
}
|
||||
loadtheme(m->dat + 0xfff0);
|
||||
(void)m;
|
||||
|
|
@ -336,13 +336,13 @@ Uint8
|
|||
screenw(Device *d, Memory *m, Uint8 b)
|
||||
{
|
||||
d->mem[d->ptr++] = b;
|
||||
if(d->ptr > 5) {
|
||||
putpixel(pixels,
|
||||
(d->mem[2] << 8) + d->mem[3],
|
||||
(d->mem[0] << 8) + d->mem[1],
|
||||
d->mem[4]);
|
||||
if(d->mem[5] == 1)
|
||||
screen.reqdraw = 1;
|
||||
if(d->ptr > 4) {
|
||||
Uint16 x = (d->mem[2] << 8) + d->mem[3];
|
||||
Uint16 y = (d->mem[0] << 8) + d->mem[1];
|
||||
Uint8 clr = d->mem[4] & 0xf;
|
||||
Uint8 layer = d->mem[4] >> 4 & 0xf;
|
||||
paintpixel(layer ? screen.fg : screen.bg, x, y, clr);
|
||||
screen.reqdraw = 1;
|
||||
d->ptr = 0;
|
||||
}
|
||||
(void)m;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,30 @@
|
|||
( hello world )
|
||||
|
||||
:dev/w fff9 ( const write port )
|
||||
|
||||
;x 2 ;y 2 ;color 1
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
( set dev/write to console )
|
||||
#00 =dev/w
|
||||
( print to console )
|
||||
,text ,displaycli JSR
|
||||
|
||||
BRK
|
||||
|
||||
@displaycli
|
||||
|
||||
@cliloop
|
||||
DUP2 LDR IOW ( write pointer value to console )
|
||||
#0001 ADD2 ( increment string pointer )
|
||||
DUP2 LDR #00 NEQ ,cliloop ROT JMP? POP2 ( while *ptr!=0 goto loop )
|
||||
RTS
|
||||
|
||||
@text " Hello World " ( add characters to memory )
|
||||
|
||||
|c000 @FRAME
|
||||
|d000 @ERROR
|
||||
|
||||
|FFF0 [ f3f0 f30b f30a ] ( palette )
|
||||
|FFFA .RESET .FRAME .ERROR
|
||||
|
|
@ -111,7 +111,7 @@ RTS
|
|||
@cursor_icn [ 80c0 e0f0 f8e0 1000 ]
|
||||
|
||||
@polycat [
|
||||
0081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc
|
||||
081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc
|
||||
081c 3c3e 7e7e ffff 081c 3c3e 7e7e ff1f
|
||||
ffff ffff ff7f 3f0f f0e7 cfef f77c 3f0f
|
||||
ffff ffff fffe fcf0 0783 c1c3 871e fcf0
|
||||
|
|
|
|||
|
|
@ -0,0 +1,45 @@
|
|||
( screen )
|
||||
|
||||
:dev/r fff8 ( std read port )
|
||||
:dev/w fff9 ( std write port )
|
||||
|
||||
;centerx 2 ;centery 2 ;i 2
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
( set read/write to dev/screen )
|
||||
#01 DUP =dev/r =dev/w
|
||||
|
||||
( find screen center )
|
||||
#00 IOR2 #0002 DIV2 =centerx
|
||||
#02 IOR2 #0002 DIV2 =centery
|
||||
|
||||
( draw hor line )
|
||||
#0000 =i
|
||||
@draw-hor
|
||||
#03 ~i ~centery ,draw-pixel JSR
|
||||
~i #0002 ADD2 =i ( increment )
|
||||
~i #00 IOR2 LTH2 ,draw-hor ROT JMP? POP2
|
||||
|
||||
( draw ver line )
|
||||
#0000 =i
|
||||
@draw-ver
|
||||
#03 ~centerx ~i ,draw-pixel JSR
|
||||
~i #0002 ADD2 =i ( increment )
|
||||
~i #02 IOR2 LTH2 ,draw-ver ROT JMP? POP2
|
||||
|
||||
( draw pixel in the middle )
|
||||
#01 ~centerx ~centery ,draw-pixel JSR
|
||||
|
||||
BRK
|
||||
|
||||
@draw-pixel
|
||||
IOW2 ( y short )
|
||||
IOW2 ( x short )
|
||||
IOW ( color byte )
|
||||
RTS
|
||||
|
||||
|c000 @FRAME BRK
|
||||
|d000 @ERROR BRK
|
||||
|FFF0 [ f0ac f0bb f053 ] ( palette )
|
||||
|FFFA .RESET .FRAME .ERROR
|
||||
|
|
@ -1,43 +0,0 @@
|
|||
( pixels )
|
||||
|
||||
:dev/r fff8 ( std read port )
|
||||
:dev/w fff9 ( std write port )
|
||||
|
||||
;x 2 ;y 2 ;color 1 ;alive 1
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
#01 =dev/w ( set dev/write to screen )
|
||||
#01 =color ( set color )
|
||||
#0020 =x #0030 =y ( set origin )
|
||||
#01 =alive ( set alive = true )
|
||||
|
||||
BRK
|
||||
|
||||
|c000 @FRAME
|
||||
|
||||
~alive #00 EQU BRK?
|
||||
#01 ~color ~x ~y ,putpixel JSR
|
||||
,move JSR
|
||||
|
||||
BRK
|
||||
|
||||
@move
|
||||
~x #0001 ADD2 =x ( incr x )
|
||||
~x #0040 LTH2 RTS? ( if x > 60 )
|
||||
#0020 =x ( x = 0x0020 )
|
||||
~y #0001 ADD2 =y ( incr y )
|
||||
~y #0050 LTH2 RTS? ( y > 50 )
|
||||
#00 ,alive STR ( alive = 0 )
|
||||
RTS
|
||||
|
||||
@putpixel
|
||||
IOW2 ( y short )
|
||||
IOW2 ( x short )
|
||||
IOW ( color byte )
|
||||
IOW ( redraw byte )
|
||||
RTS
|
||||
|
||||
|d000 @ERROR BRK
|
||||
|FFF0 [ f2ac 35bb 2b53 ] ( palette )
|
||||
|FFFA .RESET .FRAME .ERROR
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
( screen )
|
||||
|
||||
:dev/r fff8 ( std read port )
|
||||
:dev/w fff9 ( std write port )
|
||||
|
||||
;width 2 ;height 2
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
( set read/write to dev/screen )
|
||||
#01 DUP =dev/r =dev/w
|
||||
|
||||
( load screen size )
|
||||
#00 IOR2 =width
|
||||
#02 IOR2 =height
|
||||
|
||||
( draw pixel at screen center )
|
||||
#0101
|
||||
~width #0002 DIV2
|
||||
~height #0002 DIV2
|
||||
,putpixel JSR
|
||||
|
||||
BRK
|
||||
|
||||
|c000 @FRAME BRK
|
||||
|
||||
@putpixel
|
||||
IOW2 ( y short )
|
||||
IOW2 ( x short )
|
||||
IOW ( color byte )
|
||||
IOW ( redraw byte )
|
||||
RTS
|
||||
|
||||
|d000 @ERROR BRK
|
||||
|FFF0 [ f2ac 35bb 2b53 ] ( palette )
|
||||
|FFFA .RESET .FRAME .ERROR
|
||||
|
|
@ -1,35 +0,0 @@
|
|||
( sprite )
|
||||
|
||||
:dev/w fff9 ( const write port )
|
||||
|
||||
|0100 @RESET
|
||||
|
||||
#01 =dev/w ( set dev/write to screen )
|
||||
#02 =dev/w ( set dev/write to sprite )
|
||||
|
||||
#0110 ,cursor_icn #20 #38 ,drawsprite JSR
|
||||
#0010 ,rounds_chr #28 #38 ,drawsprite JSR
|
||||
#3210 ,cursor_icn #20 #40 ,drawsprite JSR
|
||||
#0010 ,rounds_chr #28 #40 ,drawsprite JSR
|
||||
|
||||
BRK
|
||||
|
||||
@drawsprite
|
||||
IOW ( y byte )
|
||||
IOW ( x byte )
|
||||
IOW2 ( sprite address )
|
||||
IOW2 ( redraw byte )
|
||||
RTS
|
||||
|
||||
|0200 @SPRITESHEET
|
||||
|
||||
@cursor_icn [ 80c0 e0f0 f8e0 1000 ]
|
||||
@rounds_chr [ 3844 92aa 9244 3800 0038 7c7c 7c38 0000 ]
|
||||
|
||||
BRK
|
||||
|
||||
|c000 @FRAME BRK
|
||||
|d000 @ERROR BRK
|
||||
|
||||
|FFF0 [ f2ac 35bb 2b53 ] ( palette )
|
||||
|FFFA .RESET .FRAME .ERROR
|
||||
Loading…
Reference in New Issue