... | ... |
@@ -33,7 +33,6 @@ |
33 | 33 |
|
34 | 34 |
|0000 |
35 | 35 |
|
36 |
-@second $1 |
|
37 | 36 |
@pointer |
38 | 37 |
&x $2 &y $2 |
39 | 38 |
@browser |
... | ... |
@@ -80,9 +79,7 @@ BRK |
80 | 79 |
|
81 | 80 |
@on-frame ( -> ) |
82 | 81 |
|
83 |
- BRK |
|
84 |
- .DateTime/second DEI .second LDZ ! BRK? |
|
85 |
- .DateTime/second DEI .second STZ ;draw-time JSR2 |
|
82 |
+ ( unused ) |
|
86 | 83 |
|
87 | 84 |
BRK |
88 | 85 |
|
... | ... |
@@ -94,13 +91,9 @@ BRK |
94 | 91 |
.pointer/y LDZ2 .Screen/y DEO2 |
95 | 92 |
#40 .Screen/sprite DEO |
96 | 93 |
|
97 |
- ( record pointer positions ) |
|
98 |
- .Mouse/x DEI2 .pointer/x STZ2 |
|
99 |
- .Mouse/y DEI2 .pointer/y STZ2 |
|
100 |
- |
|
101 | 94 |
( draw new cursor ) |
102 |
- .pointer/x LDZ2 .Screen/x DEO2 |
|
103 |
- .pointer/y LDZ2 .Screen/y DEO2 |
|
95 |
+ .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2 |
|
96 |
+ .Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2 |
|
104 | 97 |
#41 .Mouse/state DEI #01 = + .Screen/sprite DEO |
105 | 98 |
|
106 | 99 |
( select choice ) |
... | ... |
@@ -119,14 +112,22 @@ BRK |
119 | 112 |
.Controller/button DEI |
120 | 113 |
DUP #10 ! ,&no-up JCN |
121 | 114 |
#01 .browser/sel LDZ GTHk SWP? POP DEC ;select-file JSR2 |
115 |
+ POP BRK |
|
122 | 116 |
&no-up |
123 | 117 |
DUP #20 ! ,&no-down JCN |
124 | 118 |
.browser/sel LDZ ;dir/lines LDA LTHk SWP? POP INC ;select-file JSR2 |
119 |
+ POP BRK |
|
125 | 120 |
&no-down |
126 | 121 |
DUP #01 ! ,&no-a JCN |
127 | 122 |
.browser/sel LDZ ;run-file JSR2 |
123 |
+ POP BRK |
|
128 | 124 |
&no-a |
129 | 125 |
POP |
126 |
+ .Controller/key DEI |
|
127 |
+ DUP #0d ! ,&no-enter JCN |
|
128 |
+ .browser/sel LDZ ;run-file JSR2 |
|
129 |
+ &no-enter |
|
130 |
+ POP |
|
130 | 131 |
|
131 | 132 |
BRK |
132 | 133 |
|