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

Starting file save/load

This commit is contained in:
Devine Lu Linvega 2023-04-27 10:44:42 -07:00
parent c76d5c0909
commit dc696fba73
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gui/notepad/notepad.tal
View File

@ -32,12 +32,7 @@
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2 ;on-control .Controller/vector DEO2
( initialize memory ) file-init
#0801
&l
#00 OVR #d0 SFT2 ;mem ADD2 STH2 #20 STH2r STA
INC GTHk ?&l
POP2
draw-header draw-header
#00 change-page #00 change-page
@ -112,7 +107,7 @@ BRK
.Screen/height DEO2 .Screen/height DEO2
draw-header draw-header
redraw redraw
#00 .Mouse/state DEO [ LIT2 00 -Mouse/state ] DEO
BRK BRK
@ -151,7 +146,7 @@ BRK
&on-mouse-down ( -> ) &on-mouse-down ( -> )
#00 .Mouse/state DEO [ LIT2 00 -Mouse/state ] DEO
.Mouse/y DEI2 #00d6 SUB2 NIP .Mouse/y DEI2 #00d6 SUB2 NIP
#18 .Mouse/x DEI2 NIP SUB #18 .Mouse/x DEI2 NIP SUB
@ -332,17 +327,33 @@ JMP2r
( (
@|file ) @|file )
@file-init ( -- )
;notepad-txt file-size #0000 EQU2 ?file-new
@file-load ( -- )
;notepad-txt .File/name DEO2
#8000 .File/length DEO2
;mem .File/read DEO2
JMP2r
@file-new ( -- ) @file-new ( -- )
( initialize pages )
#0801
&l
#00 OVR #c0 SFT2 ;mem ADD2 STH2 #20 STH2r STA
INC GTHk ?&l
POP2
JMP2r JMP2r
@file-save ( -- ) @file-save ( -- )
JMP2r JMP2r
@file-load ( -- )
JMP2r
@notepad-txt ".notepad $1 @notepad-txt ".notepad $1
@ -495,7 +506,7 @@ JMP2r
@get-page ( -- addr* ) @get-page ( -- addr* )
;mem #00 .page LDZ #d0 SFT2 ADD2 ;mem #00 .page LDZ #c0 SFT2 ADD2
JMP2r JMP2r