d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(noetpad) Starting text input

This commit is contained in:
Devine Lu Linvega 2023-04-26 10:50:26 -07:00
parent bbacbc7af4
commit fd47eb548a
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gui/notepad/notepad.tal
View File

@ -21,10 +21,18 @@
( unlock ) ( unlock )
;on-console .Console/vector DEO2 ;on-console .Console/vector DEO2
;on-mouse-body .Mouse/vector DEO2 ;on-mouse-body .Mouse/vector DEO2
;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2
draw-header draw-header
draw-note draw-note
draw-footer
BRK
@on-control ( -> )
.Controller/key DEI ;mem sput
redraw
BRK BRK
@ -88,6 +96,16 @@ BRK
BRK BRK
@on-frame ( -> )
[ LIT &last $1 ] [ LIT &f $1 ] INCk ,&f STR
#05 SFT DUP ,&last STR
EQU ?&unchanged
draw-note
&unchanged
BRK
( (
@|core ) @|core )
@ -144,7 +162,6 @@ JMP2r
#0018 .Screen/y DEO2 #0018 .Screen/y DEO2
#80 .Screen/pixel DEO #80 .Screen/pixel DEO
draw-note draw-note
draw-footer
JMP2r JMP2r
@ -193,7 +210,9 @@ JMP2r
#0018 .Screen/y DEO2 #0018 .Screen/y DEO2
;mem #00 .page LDZ #2000 MUL2 ADD2 draw-uf2 ;mem #00 .page LDZ #2000 MUL2 ADD2 draw-uf2
JMP2r ( draw cursor )
;blink-icn .Screen/addr DEO2
;on-frame/last LDA #01 AND .Screen/sprite DEO
@draw-footer ( -- ) @draw-footer ( -- )
@ -252,11 +271,16 @@ JMP2r
JMP2r JMP2r
@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
@phex ( short* -- ) SWP phex/b &b ( byte -- ) DUP #04 SFT phex/c &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r @phex ( short* -- ) SWP phex/b &b ( byte -- ) DUP #04 SFT phex/c &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
( (
@|assets ) @|assets )
@blink-icn [
8080 8080 8080 8080 8080 8080 8080 8080 ]
@caret-icn [ @caret-icn [
c628 1010 1010 1010 1010 1010 1010 28c6 ] c628 1010 1010 1010 1010 1010 1010 28c6 ]
@mouse-icn [ @mouse-icn [