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

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