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

Optimized some example files

This commit is contained in:
neauoire 2021-03-14 15:17:00 -07:00
parent 9cd5bf7d0a
commit 481a318732
3 changed files with 49 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -75,6 +75,7 @@ RTN
- Don't brk when return stack is not zeroed - Don't brk when return stack is not zeroed
- LDRS should load from the zeropage? - LDRS should load from the zeropage?
- Keep ref counts in macros - Keep ref counts in macros
- A fast way(2 bytes) to read from the zero page #aa LDR.
### Macros ### Macros

30
projects/examples/dev.screen.usm
View File

@ -2,7 +2,6 @@
;center { x 2 y 2 } ;center { x 2 y 2 }
;timer { byte 1 } ;timer { byte 1 }
;i { byte 1 }
|0100 @RESET |0100 @RESET
@ -12,26 +11,31 @@
( draw hor line ) ( draw hor line )
#0000 =Screen.x ~center.y =Screen.y #0000 =Screen.x ~center.y =Screen.y
$draw-hor #0000 ~Screen.width ( from/to )
$draw-hor NOP
( draw ) #01 =Screen.color ( draw ) #01 =Screen.color
( incr ) ~Screen.x #0002 ADD2 =Screen.x ( incr ) SWP2 #0002 ADD2 DUP2 =Screen.x SWP2
,$draw-hor ~Screen.x ~Screen.width LTH2 JMP2? POP2 OVR2 OVR2 LTH2 ^$draw-hor SWP JMPS? POP
POP2 POP2
( draw ver line ) ( draw ver line )
~center.x =Screen.x #0000 =Screen.y ~center.x =Screen.x #0000 =Screen.y
$draw-ver #0000 ~Screen.height ( from/to )
$draw-ver NOP
( draw ) #02 =Screen.color ( draw ) #02 =Screen.color
( incr ) ~Screen.y #0002 ADD2 =Screen.y ( incr ) SWP2 #0002 ADD2 DUP2 =Screen.y SWP2
,$draw-ver ~Screen.y ~Screen.height LTH2 JMP2? POP2 OVR2 OVR2 LTH2 ^$draw-ver SWP JMPS? POP
POP2 POP2
( draw blending modes ) ( draw blending modes )
#00 =i
#0020 =Sprite.x #0020 =Sprite.y ,icon =Sprite.addr #0020 =Sprite.x #0020 =Sprite.y ,icon =Sprite.addr
$draw-blends #00 #10
( draw ) #00 ~i ADD =Sprite.color $draw-blends NOP
( incr ) ~Sprite.x #0008 ADD2 =Sprite.x ( move ) OVR #00 SWP #0008 MUL2 #0020 ADD2 =Sprite.x
( incr ) ~i #01 ADD =i ( draw ) OVR =Sprite.color
,$draw-blends ~i #10 LTH JMP2? POP2 ( incr ) SWP #01 ADD SWP
DUP2 LTH ^$draw-blends SWP JMPS? POP
POP POP
BRK BRK

40
projects/tests/loop.usm
View File

@ -4,38 +4,60 @@
|0100 @RESET |0100 @RESET
,type1 JSR2 ,slow-muljmp JSR2
,type2 JSR2 ,slow-jmppop JSR2
,type3 JSR2 ,slow-jmppop-rel JSR2
,fast-byte JSR2
,fast-short JSR2
BRK BRK
@type1 ( type: padded muljmp ) |0200 @slow-muljmp ( type: padded muljmp )
$loop NOP $loop NOP
~a #01 ADD =a ~a #01 ADD =a
~a #d0 LTH ^$loop MUL JMPS ~a #d0 LTH ^$loop MUL JMPS
~a =Console.byte ~a =Console.byte
RTS RTN
@type2 ( type: jmppop ) |0300 @slow-jmppop ( type: jmppop )
$loop $loop
~b #01 ADD =b ~b #01 ADD =b
,$loop ~b #d0 LTH JMP2? POP2 ,$loop ~b #d0 LTH JMP2? POP2
~b =Console.byte ~b =Console.byte
RTS RTN
@type3 ( type: padded jmppop ) |0400 @slow-jmppop-rel ( type: padded jmppop )
$loop NOP $loop NOP
~c #01 ADD =c ~c #01 ADD =c
~c #d0 LTH ^$loop SWP JMPS? POP ~c #d0 LTH ^$loop SWP JMPS? POP
~c =Console.byte ~c =Console.byte
RTS RTN
|0500 @fast-byte ( fast byte )
#00 #d0
$loop NOP
( incr ) SWP #01 ADD SWP
DUP2 LTH ^$loop SWP JMPS? POP
POP =Console.byte
RTN
|0600 @fast-short ( fast short )
#0000 #0d00
$loop NOP
( incr ) SWP2 #0001 ADD2 SWP2
OVR2 OVR2 LTH2 ^$loop SWP JMPS? POP
POP2 =Console.short
RTN
|c000 @FRAME |c000 @FRAME
|d000 @ERROR |d000 @ERROR