commit 0dc0f63
neauoire
·
2022-04-01 04:00:42 +0000 UTC
parent cd5c3f3
(repl.tal) Improved slash sprite
1 files changed,
+15,
-4
+15,
-4
1@@ -35,6 +35,7 @@
2 #01 ;draw-stack JSR2
3 #01 ;draw-program JSR2
4 #01 ;draw-labels JSR2
5+ ;draw-status JSR2
6
7 #010e DEO
8
9@@ -189,6 +190,16 @@ JMP2r
10
11 ( drawing )
12
13+@draw-status ( -- )
14+
15+ .Screen/width DEI2 #0060 SUB2 .Screen/x DEO2
16+ .Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
17+ .l/ptr LDZ2 #01 ;draw-short JSR2
18+ LIT '/ #01 ;draw-char JSR2
19+ #0000 ;labels SUB2 #01 ;draw-short JSR2
20+
21+JMP2r
22+
23 @draw-labels ( color -- )
24
25 POP
26@@ -199,8 +210,6 @@ JMP2r
27
28 ;labels
29 &while
30- LDA2k #03 ;draw-short JSR2
31- .Screen/x DEI2k #0008 ADD2 ROT DEO2
32 DUP2 INC2 INC2 #01 ;draw-str JSR2
33 .Screen/x DEI2k #0008 ADD2 ROT DEO2
34 ;scap JSR2 INC2 LDA2k #0000 NEQ2 ,&while JCN
35@@ -218,12 +227,14 @@ JMP2r
36 #81 .Screen/sprite DEO
37 #00 .Screen/sprite DEO
38 ;prompt-txt #02 ;draw-str JSR2
39- ;input #01 STHr MUL ;draw-str JSR2
40+ ;input #01 STHkr MUL ;draw-str JSR2
41+ LIT '_ #03 STHr MUL ;draw-char JSR2
42
43 JMP2r
44
45 @draw-stack ( color -- )
46
47+ ( highlight last item )
48 STH
49 ( position )
50 #0020 .Screen/x DEO2
51@@ -448,7 +459,7 @@ JMP2r
52 0000 0000 0000 0000 0000 0030 3010 2000
53 0000 0000 0000 0000 fe00 0000 0000 0000
54 0000 0000 0000 0000 0000 0000 3030 0000
55- 0000 0000 0002 0408 1020 4080 0000 0000
56+ 0000 0004 0404 0808 0810 1010 2020 0000
57 ( numbers )
58 0000 0038 4482 8292 9292 8282 4438 0000
59 0000 0010 3050 1010 1010 1010 1038 0000