terminal.tal (6258B)
1 ( GUI Terminal ) 2 3 ( devices ) 4 5 |00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ] 6 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 7 |80 @Controller [ &vector $2 &button $1 &key $1 ] 8 9 ( variables ) 10 11 |0000 12 13 @buffer $80 14 15 ( init ) 16 17 |0100 ( -> ) 18 19 ( theme ) 20 #0f0f .System/r DEO2 21 #0ff0 .System/g DEO2 22 #0fff .System/b DEO2 23 24 ( vectors ) 25 ;on-button .Controller/vector DEO2 26 27 ( AUTO-Y-ADDR ) 28 #06 .Screen/auto DEO 29 30 #01 ;draw-input JSR2 31 32 BRK 33 34 @on-button ( -> ) 35 36 .Controller/key DEI 37 DUP ,&no-null JCN 38 POP BRK 39 &no-null 40 DUP #0d NEQ ,&no-enter JCN 41 #00 ;draw-input JSR2 42 ;validate JSR2 43 ;buffer #0080 ;mclr JSR2 44 #01 ;draw-input JSR2 45 &no-enter 46 DUP #08 NEQ ,&no-backspace JCN 47 #00 ;draw-input JSR2 48 ;buffer ;spop JSR2 49 #01 ;draw-input JSR2 50 &no-backspace 51 DUP STHk #1f GTH STHr #7b LTH #0101 NEQ2 ,&no-valid JCN 52 ;buffer ;slen JSR2 #007f GTH2 ,&no-valid JCN 53 STHk ;buffer STHr ;sput JSR2 54 #01 ;draw-input JSR2 55 &no-valid 56 POP 57 58 BRK 59 60 @validate ( -- ) 61 62 #0010 .Screen/x DEO2 63 .Screen/height DEI2 #0040 SUB2 .Screen/y DEO2 64 65 ( clear ) 66 #8000 67 &loop 68 #30 #00 ;draw-char JSR2 69 INC GTHk ,&loop JCN 70 POP2 71 #0010 .Screen/x DEO2 72 73 ( respond ) 74 ;strings/you-said #02 ;draw-str JSR2 75 LIT 22 #02 ;draw-char JSR2 76 ;buffer #03 ;draw-str JSR2 77 LIT 22 #02 ;draw-char JSR2 78 LIT ". #02 ;draw-char JSR2 79 80 JMP2r 81 82 @draw-input ( color -- ) 83 84 STH 85 #0010 .Screen/x DEO2 86 .Screen/height DEI2 #0020 SUB2 .Screen/y DEO2 87 88 ( marker ) LIT "> #03 ;draw-char JSR2 89 90 ;buffer STHr ;draw-str JSR2 91 92 JMP2r 93 94 @draw-str ( str* color -- ) 95 96 STH 97 &while 98 LDAk STHkr ,draw-char JSR 99 INC2 LDAk ,&while JCN 100 POP2 101 POPr 102 103 JMP2r 104 105 @draw-char ( char color -- ) 106 107 SWP 108 [ #20 SUB #00 SWP #40 SFT2 ;font ADD2 ] .Screen/addr DEO2 109 .Screen/sprite DEOk DEO 110 .Screen/y DEI2 #0010 SUB2 .Screen/y DEO2 111 .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2 112 113 JMP2r 114 115 ( utils ) 116 117 @slen ( str* -- len* ) 118 119 DUP2 ,scap JSR SWP2 SUB2 120 121 JMP2r 122 123 @scap ( str* -- str-end* ) 124 125 ( clamp ) LDAk #00 NEQ JMP JMP2r 126 &while INC2 LDAk ,&while JCN 127 128 JMP2r 129 130 @sput ( str* char -- ) 131 132 ROT ROT ,scap JSR STA 133 134 JMP2r 135 136 @spop ( str* -- ) 137 138 ( clamp ) LDAk #00 NEQ JMP JMP2r 139 #00 ROT ROT ,scap JSR #0001 SUB2 STA 140 141 JMP2r 142 143 @mclr ( addr* len* -- ) 144 145 OVR2 ADD2 SWP2 146 &loop 147 STH2k #00 STH2r STA 148 INC2 GTH2k ,&loop JCN 149 POP2 POP2 150 151 JMP2r 152 153 @strings 154 &you-said "You 20 "said 20 $1 155 156 @font ( terminus01x02 ) 157 0000 0000 0000 0000 0000 0000 0000 0000 158 0000 183c 3c3c 1818 1800 1818 0000 0000 159 0066 6666 2400 0000 0000 0000 0000 0000 160 0000 006c 6cfe 6c6c 6cfe 6c6c 0000 0000 161 1818 7cc6 c2c0 7c06 0686 c67c 1818 0000 162 0000 0000 c2c6 0c18 3060 c686 0000 0000 163 0000 386c 6c38 76dc cccc cc76 0000 0000 164 0030 3030 6000 0000 0000 0000 0000 0000 165 0000 0c18 3030 3030 3030 180c 0000 0000 166 0000 3018 0c0c 0c0c 0c0c 1830 0000 0000 167 0000 0000 0066 3cff 3c66 0000 0000 0000 168 0000 0000 0018 187e 1818 0000 0000 0000 169 0000 0000 0000 0000 0018 1818 3000 0000 170 0000 0000 0000 00fe 0000 0000 0000 0000 171 0000 0000 0000 0000 0000 1818 0000 0000 172 0000 0000 0206 0c18 3060 c080 0000 0000 173 0000 386c c6c6 d6d6 c6c6 6c38 0000 0000 174 0000 1838 7818 1818 1818 187e 0000 0000 175 0000 7cc6 060c 1830 60c0 c6fe 0000 0000 176 0000 7cc6 0606 3c06 0606 c67c 0000 0000 177 0000 0c1c 3c6c ccfe 0c0c 0c1e 0000 0000 178 0000 fec0 c0c0 fc06 0606 c67c 0000 0000 179 0000 3860 c0c0 fcc6 c6c6 c67c 0000 0000 180 0000 fec6 0606 0c18 3030 3030 0000 0000 181 0000 7cc6 c6c6 7cc6 c6c6 c67c 0000 0000 182 0000 7cc6 c6c6 7e06 0606 0c78 0000 0000 183 0000 0000 1818 0000 0018 1800 0000 0000 184 0000 0000 1818 0000 0018 1830 0000 0000 185 0000 0006 0c18 3060 3018 0c06 0000 0000 186 0000 0000 007e 0000 7e00 0000 0000 0000 187 0000 0060 3018 0c06 0c18 3060 0000 0000 188 0000 7cc6 c60c 1818 1800 1818 0000 0000 189 0000 007c c6c6 dede dedc c07c 0000 0000 190 0000 1038 6cc6 c6fe c6c6 c6c6 0000 0000 191 0000 fc66 6666 7c66 6666 66fc 0000 0000 192 0000 3c66 c2c0 c0c0 c0c2 663c 0000 0000 193 0000 f86c 6666 6666 6666 6cf8 0000 0000 194 0000 fe66 6268 7868 6062 66fe 0000 0000 195 0000 fe66 6268 7868 6060 60f0 0000 0000 196 0000 3c66 c2c0 c0de c6c6 663a 0000 0000 197 0000 c6c6 c6c6 fec6 c6c6 c6c6 0000 0000 198 0000 3c18 1818 1818 1818 183c 0000 0000 199 0000 1e0c 0c0c 0c0c cccc cc78 0000 0000 200 0000 e666 666c 7878 6c66 66e6 0000 0000 201 0000 f060 6060 6060 6062 66fe 0000 0000 202 0000 c6ee fefe d6c6 c6c6 c6c6 0000 0000 203 0000 c6e6 f6fe dece c6c6 c6c6 0000 0000 204 0000 7cc6 c6c6 c6c6 c6c6 c67c 0000 0000 205 0000 fc66 6666 7c60 6060 60f0 0000 0000 206 0000 7cc6 c6c6 c6c6 c6d6 de7c 0c0e 0000 207 0000 fc66 6666 7c6c 6666 66e6 0000 0000 208 0000 7cc6 c660 380c 06c6 c67c 0000 0000 209 0000 7e7e 5a18 1818 1818 183c 0000 0000 210 0000 c6c6 c6c6 c6c6 c6c6 c67c 0000 0000 211 0000 c6c6 c6c6 c6c6 c66c 3810 0000 0000 212 0000 c6c6 c6c6 d6d6 d6fe ee6c 0000 0000 213 0000 c6c6 6c7c 3838 7c6c c6c6 0000 0000 214 0000 6666 6666 3c18 1818 183c 0000 0000 215 0000 fec6 860c 1830 60c2 c6fe 0000 0000 216 0000 3c30 3030 3030 3030 303c 0000 0000 217 0000 0080 c0e0 7038 1c0e 0602 0000 0000 218 0000 3c0c 0c0c 0c0c 0c0c 0c3c 0000 0000 219 1038 6cc6 0000 0000 0000 0000 0000 0000 220 0000 0000 0000 0000 0000 0000 00ff 0000 221 3030 1800 0000 0000 0000 0000 0000 0000 222 0000 0000 0078 0c7c cccc cc76 0000 0000 223 0000 e060 6078 6c66 6666 667c 0000 0000 224 0000 0000 007c c6c0 c0c0 c67c 0000 0000 225 0000 1c0c 0c3c 6ccc cccc cc76 0000 0000 226 0000 0000 007c c6fe c0c0 c67c 0000 0000 227 0000 386c 6460 f060 6060 60f0 0000 0000 228 0000 0000 0076 cccc cccc cc7c 0ccc 7800 229 0000 e060 606c 7666 6666 66e6 0000 0000 230 0000 1818 0038 1818 1818 183c 0000 0000 231 0000 0606 000e 0606 0606 0606 6666 3c00 232 0000 e060 6066 6c78 786c 66e6 0000 0000 233 0000 3818 1818 1818 1818 183c 0000 0000 234 0000 0000 00ec fed6 d6d6 d6c6 0000 0000 235 0000 0000 00dc 6666 6666 6666 0000 0000 236 0000 0000 007c c6c6 c6c6 c67c 0000 0000 237 0000 0000 00dc 6666 6666 667c 6060 f000 238 0000 0000 0076 cccc cccc cc7c 0c0c 1e00 239 0000 0000 00dc 7666 6060 60f0 0000 0000 240 0000 0000 007c c660 380c c67c 0000 0000 241 0000 1030 30fc 3030 3030 361c 0000 0000 242 0000 0000 00cc cccc cccc cc76 0000 0000 243 0000 0000 0066 6666 6666 3c18 0000 0000 244 0000 0000 00c6 c6d6 d6d6 fe6c 0000 0000 245 0000 0000 00c6 6c38 3838 6cc6 0000 0000 246 0000 0000 00c6 c6c6 c6c6 c67e 060c f800 247 0000 0000 00fe cc18 3060 c6fe 0000 0000 248 0000 0e18 1818 7018 1818 180e 0000 0000 249 0000 1818 1818 0018 1818 1818 0000 0000 250 0000 7018 1818 0e18 1818 1870 0000 0000