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

Progress on Nasu

This commit is contained in:
neauoire 2021-03-03 13:49:25 -08:00
parent 61581c7956
commit fb8fac1a47
1 changed files with 98 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
examples/app.nasu.usm
View File

@ -28,24 +28,60 @@
|0100 @RESET |0100 @RESET
#0010 =bankview.x #0060 =bankview.y ,bank1 =bankview.addr #0010 =bankview.x #0060 =bankview.y ,bank1 =bankview.addr
#00b0 =tileview.x #0060 =tileview.y ,bank1 #0123 ADD2 =tileview.addr #00b0 =tileview.x #0060 =tileview.y ,bank1 #0448 ADD2 =tileview.addr
#00b0 =overview.x #0020 =overview.y #0010 =overview.x #0010 =overview.y
,draw-bankview JSR ,redraw JSR
,draw-tileview JSR
,draw-overview JSR
BRK BRK
|0200 @FRAME |0200 @FRAME
,no-ctrl ~dev/ctrl.buttons #00 EQU JMP? POP2
,no-ctrl-up ~dev/ctrl.buttons #10 EQU JMP? POP2
~tileview.addr #0008 ADD2 =tileview.addr
,redraw JSR
@no-ctrl-up
,no-ctrl-down ~dev/ctrl.buttons #20 EQU JMP? POP2
~tileview.addr #0008 SUB2 =tileview.addr
,redraw JSR
@no-ctrl-down
@no-ctrl
,no-click ~dev/mouse.state #00 EQU JMP? POP2
~dev/mouse.x ~bankview.x GTH2 ~dev/mouse.x ~bankview.x #0080 ADD2 LTH2 #0101 EQU2
~dev/mouse.y ~bankview.y GTH2 ~dev/mouse.y ~bankview.y #0080 ADD2 LTH2 #0101 EQU2
#0101 NEQ2 ,no-click ROT JMP? POP2
( touch in bankview )
~dev/mouse.x ~bankview.x SUB2 #0008 DIV2 #0008 MUL2
~dev/mouse.y ~bankview.y SUB2 #0008 DIV2 #0008 MUL2 #0010 MUL2 ADD2
~bankview.addr ADD2 =tileview.addr
,redraw JSR
@no-click
,draw-cursor JSR ,draw-cursor JSR
BRK BRK
@redraw
,draw-bankview JSR
,draw-tileview JSR
,draw-overview JSR
RTS
@draw-bankview @draw-bankview
~bankview.x #0002 SUB2 ~bankview.y #0002 SUB2 ~bankview.x #0090 ADD2 ~bankview.y #0090 ADD2 #03 ,line-rect JSR ~bankview.x #0002 SUB2 ~bankview.y #0002 SUB2 ~bankview.x #0081 ADD2 ~bankview.y #0081 ADD2 #03 ,line-rect JSR
( position ) ( position )
@ -58,10 +94,10 @@ BRK
#00 =i ,font_hex =dev/sprite.addr #00 =i ,font_hex =dev/sprite.addr
@draw-bankview-guides @draw-bankview-guides
~bankview.x #000a SUB2 =dev/sprite.x ~bankview.x #000a SUB2 =dev/sprite.x
~bankview.y #00 ~i #09 MUL ADD2 =dev/sprite.y ~bankview.y #00 ~i #08 MUL ADD2 =dev/sprite.y
( draw ) #02 =dev/sprite.color ( draw ) #02 =dev/sprite.color
~bankview.x #00 ~i #09 MUL ADD2 =dev/sprite.x ~bankview.x #00 ~i #08 MUL ADD2 =dev/sprite.x
~bankview.y #0092 ADD2 =dev/sprite.y ~bankview.y #0083 ADD2 =dev/sprite.y
( draw ) #02 =dev/sprite.color ( draw ) #02 =dev/sprite.color
~dev/sprite.addr #0008 ADD2 =dev/sprite.addr ~dev/sprite.addr #0008 ADD2 =dev/sprite.addr
( incr ) ~i #01 ADD =i ( incr ) ~i #01 ADD =i
@ -71,33 +107,28 @@ BRK
~bankview.x =dev/sprite.x ~bankview.y =dev/sprite.y ~bankview.x =dev/sprite.x ~bankview.y =dev/sprite.y
#00 =pt.x #00 =pt.y ~bankview.addr =dev/sprite.addr #00 =pt.x #00 =pt.y ~bankview.addr =dev/sprite.addr
@draw-bankview-tiles-ver @draw-bankview-tiles-ver
#00 =pt.x #00 =pt.x
~bankview.x =dev/sprite.x ~bankview.x =dev/sprite.x
@draw-bankview-tiles-hor @draw-bankview-tiles-hor
( draw ) #01 =dev/sprite.color ( draw ) #01 =dev/sprite.color
,no-highlight ~dev/sprite.addr ~tileview.addr LTH2 JMP? POP2
( TODO ) ,no-highlight ~dev/sprite.addr ~tileview.addr #0018 ADD2 GTH2 JMP? POP2
,no-highlight ~dev/sprite.addr ~tileview.addr NEQ2 JMP? POP2 ( draw ) #0c =dev/sprite.color
( draw ) #02 =dev/sprite.color
@no-highlight @no-highlight
( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x
( incr ) ~dev/sprite.x #0009 ADD2 =dev/sprite.x
( incr ) ~dev/sprite.addr #0008 ADD2 =dev/sprite.addr ( incr ) ~dev/sprite.addr #0008 ADD2 =dev/sprite.addr
( incr ) ~pt.x #01 ADD =pt.x ( incr ) ~pt.x #01 ADD =pt.x
,draw-bankview-tiles-hor ~pt.x #10 LTH JMP? POP2 ,draw-bankview-tiles-hor ~pt.x #10 LTH JMP? POP2
( incr ) ~pt.y #01 ADD =pt.y ( incr ) ~pt.y #01 ADD =pt.y
( incr ) ~dev/sprite.y #0009 ADD2 =dev/sprite.y ( incr ) ~dev/sprite.y #0008 ADD2 =dev/sprite.y
,draw-bankview-tiles-ver ~pt.y #10 LTH JMP? POP2 ,draw-bankview-tiles-ver ~pt.y #10 LTH JMP? POP2
RTS RTS
@draw-tileview @draw-tileview
~tileview.x #0002 SUB2 ~tileview.y #0002 SUB2 ~tileview.x #0090 ADD2 ~tileview.y #0090 ADD2 #03 ,line-rect JSR ~tileview.x #0002 SUB2 ~tileview.y #0002 SUB2 ~tileview.x #0081 ADD2 ~tileview.y #0081 ADD2 #03 ,line-rect JSR
( position ) ( position )
@ -105,50 +136,67 @@ RTS
~tileview.y #0010 SUB2 =dev/sprite.y ~tileview.y #0010 SUB2 =dev/sprite.y
~tileview.addr ,draw-short JSR ~tileview.addr ,draw-short JSR
( draw ver line )
~tileview.y #0008 SUB2 =dev/screen.y
~tileview.x #0047 ADD2 =dev/screen.x
@draw-hor
( draw ) #02 =dev/screen.color
( incr ) ~dev/screen.y #0002 ADD2 =dev/screen.y
~dev/screen.y ~tileview.y #0098 ADD2 LTH2 ,draw-hor ROT JMP? POP2
( draw hor line )
~tileview.y #0047 ADD2 =dev/screen.y
~tileview.x #0008 SUB2 =dev/screen.x
@draw-ver
( draw ) #02 =dev/screen.color
( incr ) ~dev/screen.x #0002 ADD2 =dev/screen.x
~dev/screen.x ~tileview.x #0098 ADD2 LTH2 ,draw-ver ROT JMP? POP2
( body ) ( body )
~tileview.x =dev/sprite.x ~tileview.x =dev/sprite.x
~tileview.y =dev/sprite.y ~tileview.y =dev/sprite.y
~tileview.addr #02f0 ADD2 =tileview.addr ~tileview.addr =tileview.addr
,draw-tileview-icn JSR ,draw-tileview-icn JSR
~tileview.x #0048 ADD2 =dev/sprite.x ~tileview.x #0040 ADD2 =dev/sprite.x
~tileview.y =dev/sprite.y ~tileview.y =dev/sprite.y
~tileview.addr #0008 ADD2 =tileview.addr ~tileview.addr #0008 ADD2 =tileview.addr
,draw-tileview-icn JSR ,draw-tileview-icn JSR
~tileview.x =dev/sprite.x ~tileview.x =dev/sprite.x
~tileview.y #0048 ADD2 =dev/sprite.y ~tileview.y #0040 ADD2 =dev/sprite.y
~tileview.addr #0010 ADD2 =tileview.addr ~tileview.addr #0008 ADD2 =tileview.addr
,draw-tileview-icn JSR ,draw-tileview-icn JSR
~tileview.x #0048 ADD2 =dev/sprite.x ~tileview.x #0040 ADD2 =dev/sprite.x
~tileview.y #0048 ADD2 =dev/sprite.y ~tileview.y #0040 ADD2 =dev/sprite.y
~tileview.addr #0018 ADD2 =tileview.addr ~tileview.addr #0008 ADD2 =tileview.addr
,draw-tileview-icn JSR ,draw-tileview-icn JSR
~tileview.addr #0018 SUB2 =tileview.addr
RTS RTS
@draw-overview @draw-overview
~overview.x #0002 SUB2 ~overview.y #0002 SUB2 ~overview.x #0020 ADD2 ~overview.y #0020 ADD2 #03 ,line-rect JSR ~overview.x =dev/sprite.x ~overview.y =dev/sprite.y
~overview.x ~overview.y #0010 SUB2 #02 ,over_txt ,draw-label-left JSR #00 =pt.x #00 =pt.y ~tileview.addr =dev/sprite.addr
( draw hor line )
#0040 =dev/screen.y
#0000 =dev/screen.x
@draw-ver
( draw ) #02 =dev/screen.color
( incr ) ~dev/screen.x #0002 ADD2 =dev/screen.x
~dev/screen.x ~tileview.x ~dev/screen.width ADD2 LTH2 ,draw-ver ROT JMP? POP2
( draw ver line )
#0000 =dev/screen.y
#0040 =dev/screen.x
@draw-hor
( draw ) #02 =dev/screen.color
( incr ) ~dev/screen.y #0002 ADD2 =dev/screen.y
~dev/screen.y #0040 LTH2 ,draw-hor ROT JMP? POP2
( body )
@draw-overview-tiles-ver
#00 =pt.x
~overview.x =dev/sprite.x
@draw-overview-tiles-hor
( draw ) #01 =dev/sprite.color
( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x
( incr ) ~dev/sprite.addr #0008 ADD2 =dev/sprite.addr
( incr ) ~pt.x #01 ADD =pt.x
,draw-overview-tiles-hor ~pt.x #04 LTH JMP? POP2
( incr ) ~pt.y #01 ADD =pt.y
( incr ) ~dev/sprite.y #0008 ADD2 =dev/sprite.y
,draw-overview-tiles-ver ~pt.y #04 LTH JMP? POP2
RTS RTS
@ -163,12 +211,12 @@ RTS
~tileview.addr #00 ~pt.y ADD2 LDR #07 ~pt.x SUB ROR #01 AND ( get bit ) ~tileview.addr #00 ~pt.y ADD2 LDR #07 ~pt.x SUB ROR #01 AND ( get bit )
#0008 MUL2 ADD2 =dev/sprite.addr ( add *8 ) #0008 MUL2 ADD2 =dev/sprite.addr ( add *8 )
( draw ) #01 =dev/sprite.color ( draw ) #01 =dev/sprite.color
( incr ) ~dev/sprite.x #0009 ADD2 =dev/sprite.x ( incr ) ~dev/sprite.x #0008 ADD2 =dev/sprite.x
( incr ) ~pt.x #01 ADD =pt.x ( incr ) ~pt.x #01 ADD =pt.x
,redraw-hor ~pt.x #08 LTH JMP? POP2 ,redraw-hor ~pt.x #08 LTH JMP? POP2
( incr ) ~dev/sprite.y #0009 ADD2 =dev/sprite.y ( incr ) ~dev/sprite.y #0008 ADD2 =dev/sprite.y
( incr ) ~pt.y #01 ADD =pt.y ( incr ) ~pt.y #01 ADD =pt.y
~dev/sprite.x #0048 SUB2 =dev/sprite.x ~dev/sprite.x #0040 SUB2 =dev/sprite.x
,redraw-ver ~pt.y #08 LTH JMP? POP2 ,redraw-ver ~pt.y #08 LTH JMP? POP2
RTS RTS
@ -261,7 +309,7 @@ RTS
RTS RTS
@cell0_icn [ 0000 0000 0000 0000 ] @cell0_icn [ 0000 0000 0000 0000 ]
@cell1_icn [ 7eff ffff ffff ff7e ] @cell1_icn [ 7cfe fefe fefe 7c00 ]
@bank_txt [ BANKVIEW 00 ] @bank_txt [ BANKVIEW 00 ]
@tile_txt [ TILEVIEW 00 ] @tile_txt [ TILEVIEW 00 ]
@ -319,7 +367,7 @@ RTS
|E000 @bank1 |E000 @bank1
[ [
0000 0000 0000 0000 0000 0000 0000 0000 0103 070f 1f3f 7fff 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000