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

Switched to plain ASCII for decorating arguments.

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