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

(notepad) Starting catching non hex values

This commit is contained in:
Devine Lu Linvega 2023-04-27 08:46:03 -07:00
parent 2c24b57a67
commit d308a85c89
1 changed files with 26 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
gui/notepad/notepad.tal
View File

@ -394,11 +394,11 @@ JMP2r
( wrap ) ( wrap )
LDAk #20 GTH ?&no-wrap LDAk #20 GTH ?&no-wrap
DUP2 word-length .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
#01 !draw-linebreak #01 !draw-linebreak
&no-wrap &no-wrap
( char ) ( char )
LDAk #20 SUB #00 SWP ;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2 LDAk char-width .Screen/x DEI2 ADD2
.Screen/x DEO2 .Screen/x DEO2
( tab ) ( tab )
LDAk #09 NEQ ?&no-tab LDAk #09 NEQ ?&no-tab
@ -412,23 +412,35 @@ JMP2r
JMP2r JMP2r
@word-length ( str* -- length* )
[ LIT2r 0000 ]
&while
LDAk #20 SUB #00 SWP ;font ADD2 LDA #00 SWP STH2 ADD2r
INC2 LDAk #20 GTH ?&while
POP2
STH2r
JMP2r
@get-page ( -- addr* ) @get-page ( -- addr* )
;mem #00 .page LDZ #2000 MUL2 ADD2 ;mem #00 .page LDZ #2000 MUL2 ADD2
JMP2r JMP2r
@get-glyph ( char -- addr* )
#20 SUB #00 SWP #50 SFT2 ;font/glyphs ADD2
JMP2r
@char-width ( char -- width* )
#20 SUB #00 SWP ;font ADD2 LDA #00 SWP
JMP2r
@word-width ( str* -- length* )
[ LIT2r 0000 ]
&while
LDAk char-width STH2 ADD2r
INC2 LDAk #20 GTH ?&while
POP2
STH2r
JMP2r
( (
@|drawing ) @|drawing )
@ -488,7 +500,7 @@ JMP2r
get-page get-page
&while &while
( draw char ) ( draw char )
LDAk #20 SUB #00 SWP #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 LDAk get-glyph .Screen/addr DEO2
DUP2 is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO DUP2 is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
.Screen/x DEI2k #0010 SUB2 ROT DEO2 .Screen/x DEI2k #0010 SUB2 ROT DEO2
( draw selector ) ( draw selector )