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

(repl.tal) Improved slash sprite

This commit is contained in:
neauoire 2022-03-31 21:00:42 -07:00
parent cd5c3f3ed4
commit 0dc0f633c7
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
etc/repl.tal
View File

@ -35,6 +35,7 @@
#01 ;draw-stack JSR2
#01 ;draw-program JSR2
#01 ;draw-labels JSR2
;draw-status JSR2
#010e DEO
@ -189,6 +190,16 @@ JMP2r
( drawing )
@draw-status ( -- )
.Screen/width DEI2 #0060 SUB2 .Screen/x DEO2
.Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
.l/ptr LDZ2 #01 ;draw-short JSR2
LIT '/ #01 ;draw-char JSR2
#0000 ;labels SUB2 #01 ;draw-short JSR2
JMP2r
@draw-labels ( color -- )
POP
@ -199,8 +210,6 @@ JMP2r
;labels
&while
LDA2k #03 ;draw-short JSR2
.Screen/x DEI2k #0008 ADD2 ROT DEO2
DUP2 INC2 INC2 #01 ;draw-str JSR2
.Screen/x DEI2k #0008 ADD2 ROT DEO2
;scap JSR2 INC2 LDA2k #0000 NEQ2 ,&while JCN
@ -218,12 +227,14 @@ JMP2r
#81 .Screen/sprite DEO
#00 .Screen/sprite DEO
;prompt-txt #02 ;draw-str JSR2
;input #01 STHr MUL ;draw-str JSR2
;input #01 STHkr MUL ;draw-str JSR2
LIT '_ #03 STHr MUL ;draw-char JSR2
JMP2r
@draw-stack ( color -- )
( highlight last item )
STH
( position )
#0020 .Screen/x DEO2
@ -448,7 +459,7 @@ JMP2r
0000 0000 0000 0000 0000 0030 3010 2000
0000 0000 0000 0000 fe00 0000 0000 0000
0000 0000 0000 0000 0000 0000 3030 0000
0000 0000 0002 0408 1020 4080 0000 0000
0000 0004 0404 0808 0810 1010 2020 0000
( numbers )
0000 0038 4482 8292 9292 8282 4438 0000
0000 0010 3050 1010 1010 1010 1038 0000