Switched to plain ASCII for decorating arguments.
This commit is contained in:
parent
8ebf499715
commit
8b4301ce42
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue