neauoire
/
parade
mirror of https://git.sr.ht/~rabbits/parade
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Cleanup

This commit is contained in:
neauoire 2021-08-26 15:06:00 -07:00
parent 4c1f6a6469
commit a5ec95529b
2 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/font.tal
View File

@ -1697,3 +1697,5 @@
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
@world

35
src/main.tal
View File

@ -1,6 +1,6 @@
( Parade
TODO
- Reflect vessel name in header
- Reflect vessel name in headerview
- Blink cursor
)
@ -31,8 +31,8 @@
%DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
%CLEAR-INPUT { .input/x LDZ2 .input/y LDZ2 ;input-field #00 ;draw-uf2 JSR2 }
%DRAW-INPUT { .input/x LDZ2 .input/y LDZ2 ;input-field #01 ;draw-uf2 JSR2 }
%CLEAR-INPUT { .inputview/x LDZ2 .inputview/y LDZ2 ;input-field #00 ;draw-uf2 JSR2 }
%DRAW-INPUT { .inputview/x LDZ2 .inputview/y LDZ2 ;input-field #01 ;draw-uf2 JSR2 }
( devices )
@ -46,17 +46,20 @@
|0000
@ghost
&vessel
@input-field $32
@header
@headerview
&x $2
&y $2
@body
@bodyview
&x $2
&y $2
@input
@inputview
&x $2
&y $2
@ -73,14 +76,14 @@
#f039 .System/b DEO2
( place )
#0040 #0030 .header/y STZ2 .header/x STZ2
#0040 #0080 .body/y STZ2 .body/x STZ2
#0040 #00f0 .input/y STZ2 .input/x STZ2
#0040 #0030 .headerview/y STZ2 .headerview/x STZ2
#0040 #0080 .bodyview/y STZ2 .bodyview/x STZ2
#0040 #00f0 .inputview/y STZ2 .inputview/x STZ2
( draw label )
.body/x LDZ2 .body/y LDZ2 ;text-buffer #01 ;draw-uf2 JSR2
.input/x LDZ2 #0010 -- .input/y LDZ2 ;prompt-txt #03 ;draw-uf2 JSR2
.header/x LDZ2 .header/y LDZ2 ;header-txt #01 ;draw-uf3 JSR2
.bodyview/x LDZ2 .bodyview/y LDZ2 ;text-buffer #01 ;draw-uf2 JSR2
.inputview/x LDZ2 #0010 -- .inputview/y LDZ2 ;prompt-txt #03 ;draw-uf2 JSR2
.headerview/x LDZ2 .headerview/y LDZ2 ;headerview-txt #01 ;draw-uf3 JSR2
BRK
@ -110,7 +113,7 @@ BRK
@input-validate ( -- )
.body/x LDZ2 .body/y LDZ2 ;text-buffer #00 ;draw-uf2 JSR2
.bodyview/x LDZ2 .bodyview/y LDZ2 ;text-buffer #00 ;draw-uf2 JSR2
( find param )
;input-field DUP2 [ #20 ;cfnd JSR2 ] ++ INC2
@ -133,7 +136,7 @@ BRK
;unknown-txt ;text-buffer ;scpy JSR2
&end
.body/x LDZ2 .body/y LDZ2 ;text-buffer #01 ;draw-uf2 JSR2
.bodyview/x LDZ2 .bodyview/y LDZ2 ;text-buffer #01 ;draw-uf2 JSR2
CLEAR-INPUT
#00 ;input-field STA
@ -457,6 +460,8 @@ RTN
RTN
&a $2 &b $2
( lookup table )
@actions
&create-txt "create $1 &become-txt "become $1 &enter-txt "enter $1 &leave-txt "leave $1
&take-txt "take $1 &drop-txt "drop $1 &warp-txt "warp $1 &transform-txt "transform $1
@ -478,6 +483,6 @@ RTN
@unknown-txt "Unknown 20 "command. $1
@header-txt "You 20 "are 20 "a 20 "ghost 0a 20 "in 20 "the 20 "library. $1
@headerview-txt "You 20 "are 20 "a 20 "ghost 0a 20 "in 20 "the 20 "library. $1
@text-buffer $100