d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ported nasu to new vectors

This commit is contained in:
neauoire 2021-04-05 13:30:26 -07:00
parent 2e3cfff210
commit 6bd58375f7
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build.sh
View File

@ -28,7 +28,7 @@ else
fi fi
echo "Assembling.." echo "Assembling.."
./bin/assembler projects/software/noodle.usm bin/boot.rom ./bin/assembler projects/software/nasu.usm bin/boot.rom
echo "Running.." echo "Running.."
if [ "${2}" = '--cli' ]; if [ "${2}" = '--cli' ];

22
projects/software/nasu.usm
View File

@ -34,10 +34,10 @@
|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 } |0100 ;System { vector 2 pad 6 r 2 g 2 b 2 }
|0110 ;Console { pad 8 char 1 byte 1 short 2 } |0110 ;Console { pad 8 char 1 byte 1 short 2 }
|0120 ;Screen { vector 2 width 2 height 2 pad 2 x 2 y 2 color 1 } |0120 ;Screen { vector 2 width 2 height 2 pad 2 x 2 y 2 color 1 }
|0130 ;Sprite { pad 8 x 2 y 2 addr 2 color 1 } |0130 ;Sprite { vector 2 pad 6 x 2 y 2 addr 2 color 1 }
|0140 ;Controller { buttons 1 } |0140 ;Controller { vector 2 button 1 }
|0150 ;Keys { key 1 } |0150 ;Keys { vector 2 key 1 }
|0160 ;Mouse { x 2 y 2 state 1 chord 1 change 1 } |0160 ;Mouse { vector 2 x 2 y 2 state 1 chord 1 }
|0170 ;File { pad 8 name 2 length 2 load 2 save 2 } |0170 ;File { pad 8 name 2 length 2 load 2 save 2 }
( program ) ( program )
@ -67,19 +67,19 @@ BRK
( keyboard controls ) ( keyboard controls )
~Keys #00 EQU ^$no-key JNZ ~Keys.key #00 EQU ^$no-key JNZ
~Keys #31 LTH ^$no-key JNZ ~Keys.key #31 LTH ^$no-key JNZ
~Keys #33 GTH ^$no-key JNZ ~Keys.key #33 GTH ^$no-key JNZ
( select ) ~Keys #31 SUB =bankview.mode ( select ) ~Keys.key #31 SUB =bankview.mode
( release ) #00 =Keys ( release ) #00 =Keys.key
,redraw JSR2 ,redraw JSR2
$no-key $no-key
~Controller.buttons #00 EQU ^$no-ctrl JNZ ~Controller.button #00 EQU ^$no-ctrl JNZ
~Controller.buttons ~Controller.button
DUP #10 EQU ^$no-ctrl-up JNZ DUP #10 EQU ^$no-ctrl-up JNZ
~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up ~tileview.addr #0080 ADD2 =tileview.addr $no-ctrl-up
DUP #20 EQU ^$no-ctrl-down JNZ DUP #20 EQU ^$no-ctrl-down JNZ