etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-17 11:35:11 +00:00
Code Issues Projects Releases Wiki Activity

Switched to plain ASCII for decorating arguments.

Browse source
This commit is contained in:
Andrew Alderwick 2021-03-27 22:59:46 +00:00
parent 8ebf499715
commit 8b4301ce42
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
projects/software/neralie.usm
View file

@ -101,11 +101,11 @@
^digit JSR
JMP2r
@letter ( index₂ -- )
@letter ( index* -- )
#0008 MUL2 ,font-letters ADD2 =Sprite.addr
^digit-middle JMP
@digit ( index₂ -- )
@digit ( index* -- )
#0008 MUL2 ,font-numbers ADD2 =Sprite.addr
$middle
#02 =Sprite.color
@ -113,16 +113,16 @@
JMP2r
@h ( x1₂ x2₂ y₂ -- )
@h ( x1* x2* y* -- )
=Screen.y
,Screen.x =lines.addr
^draw-line JMP
@v ( y1₂ y2₂ x₂ -- )
@v ( y1* y2* x* -- )
=Screen.x
,Screen.y =lines.addr
@draw-line ( v1₂ v2₂ -- )
@draw-line ( v1* v2* -- )
OVR2 OVR2 LTH2 #01 JNZ SWP2
STH2
@ -150,7 +150,7 @@
#00 =fps.next
JMP2r
@print-string ( string₂ -- )
@print-string ( string* -- )
DUP2 PEK2 DUP ^$not-end JNZ
$end
@ -160,12 +160,12 @@
=Console.char
#0001 ADD2 ^print-string JMP
@print-byte-decimal ( byte₁ -- )
@print-byte-decimal ( byte -- )
#00 =number.started
#00 SWP
^print-short-decimal-byte-start JMP
@print-short-decimal ( short₂ -- )
@print-short-decimal ( short* -- )
#00 =number.started
#2710 ^modf JSR ^$digit JSR
#03e8 ^modf JSR ^$digit JSR
@ -185,7 +185,7 @@
#01 =number.started
JMP2r
@modf ( dividend₂ divisor₂ -- remainder₂ quotient₂ )
@modf ( dividend* divisor* -- remainder* quotient* )
OVR2 OVR2 DIV2 DUP2 STH2 MUL2 SUB2 STH2r JMP2r
@strings