uxn

Varvara Ordinator, written in ANSI C(SDL2)
git clone https://git.eamoncaddigan.net/uxn.git
Log | Files | Refs | README | LICENSE

commit a693d4ef90e2421c5e1abdfb9a74fbe0be32af04
parent 17099c8ba91c2b344dd604f9439a7f7c7801a2d9
Author: neauoire <aliceffekt@gmail.com>
Date:   Sat, 13 Feb 2021 13:26:14 -0800

Removed old examples

Diffstat:
Dexamples/loop.usm | 24------------------------
Mexamples/mouse.usm | 14+++++++-------
Dexamples/pixel.usm | 27---------------------------
3 files changed, 7 insertions(+), 58 deletions(-)

diff --git a/examples/loop.usm b/examples/loop.usm @@ -1,24 +0,0 @@ -( loop ) - -|0100 @RESET - -( increment value on stack ) - -,00 - -@loop1 - ,01 ADD DUP - ,ff NEQ ,loop1 ROT JMP? POP2 - -( increment value in memory ) - -@loop2 - #00 LDR ,01 ADD #00 STR - #00 LDR - ,ff NEQ ,loop2 ROT JMP? POP2 - -BRK - -|c000 @FRAME BRK -|d000 @ERROR BRK -|FFFA .RESET .FRAME .ERROR diff --git a/examples/mouse.usm b/examples/mouse.usm @@ -5,28 +5,28 @@ |0100 @RESET - ,02 ,dev/r STR ( set dev/read mouse#02 ) - ,01 ,dev/w STR ( set dev/write screen#01 ) + #02 ,dev/r STR ( set dev/read mouse#02 ) + #01 ,dev/w STR ( set dev/write screen#01 ) BRK |c000 @FRAME ( get mouse button, or break ) - ,04 IOR - ,01 NEQ + #04 IOR + #01 NEQ BRK? ( paint a white pixel ) - ,01 ,01 + #01 #01 ,getmouse JSR ,putpixel JSR BRK @getmouse - ,00 IOR2 ( get mouse x ) - ,02 IOR2 ( get mouse y ) + #00 IOR2 ( get mouse x ) + #02 IOR2 ( get mouse y ) RTS @putpixel diff --git a/examples/pixel.usm b/examples/pixel.usm @@ -1,27 +0,0 @@ -( draw a single pixel ) - -:dev/w fff9 ( keep write port in a const ) -;x 2 -;y 2 - -|0100 @RESET - - ( set dev/write to screen ) - - ,01 ,dev/w STR - - ,0020 ,x STR2 ( set x-pos ) - ,0030 ,y STR2 ( set y-pos ) - - ( IOW will now send to screen ) - - ,y LDR2 IOW2 ( y-pos ) - ,x LDR2 IOW2 ( x-pos ) - ,02 IOW ( color ) - ,01 IOW ( redraw ) - -BRK - -|c000 @FRAME BRK -|d000 @ERROR BRK -|FFFA .RESET .FRAME .ERROR