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

(romviz) Loading symbols

This commit is contained in:
Devine Lu Linvega 2023-04-05 11:23:41 -07:00
parent 3960d72b57
commit a2be85d2b1
1 changed files with 51 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
gui/romviz/romviz.tal
View File

@ -33,6 +33,7 @@ BRK
#0240 #0240
DUP2 .Screen/width DEO2 DUP2 .Screen/width DEO2
.Screen/height DEO2 .Screen/height DEO2
load-symbols
redraw redraw
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
@ -48,15 +49,52 @@ BRK
&on-mouse-down ( -> ) &on-mouse-down ( -> )
( TODO: ) .Mouse/x DEI2 phex #0a18 DEO
BRK BRK
@load-symbols ( -- )
;src
DUP2 scap STH2k ;&ext SWP2 scpy
.File/name DEO2
#8000 .File/length DEO2
;symbols .File/read DEO2
#00 STH2r STA
JMP2r
&ext ".sym $1
@find-symbol ( addr* -- sym* )
,&t STR2
;symbols
&l
LDA2k INC2 [ LIT2 &t $2 ] GTH2 ?&end
INC2k INC2 LDA #00 EQU ?&end
INC2 INC2 scap INC2 !&l
&end
JMP2r
@addr-pos ( addr* -- x* y* )
STH2k
( pixel x ) #000f AND2
( block x ) STH2kr #48 SFT2 ADD2 #00ff AND2
DUP2 ADD2 #0020 ADD2
( pixel y ) STHk2r #04 SFT2 #000f AND2
( block y ) STH2r #4c SFT2 ADD2
DUP2 ADD2 #0020 ADD2
JMP2r
( (
@|drawing ) @|drawing )
@redraw ( -- ) @redraw ( -- )
( bytes )
;src .File/name DEO2 ;src .File/name DEO2
#0001 .File/length DEO2 #0001 .File/length DEO2
;pixel-icn .Screen/addr DEO2 ;pixel-icn .Screen/addr DEO2
@ -69,11 +107,11 @@ BRK
POP2r POP2r
( filename ) ( filename )
#0020 .Screen/x DEO2 #0020 .Screen/x DEO2
#0018 .Screen/y DEO2 #0010 .Screen/y DEO2
#08 ;draw-chr/color STA #01 ;draw-chr/color STA
;src draw-str ;src
JMP2r !draw-str
@update-cursor ( color addr* -- ) @update-cursor ( color addr* -- )
@ -122,13 +160,10 @@ JMP2r
JMP2r JMP2r
(
@|stdlib )
@draw-cell ( byte addr* -- ) @draw-cell ( byte addr* -- )
addr-pos .Screen/y DEO2 .Screen/x DEO2 addr-pos .Screen/y DEO2 .Screen/x DEO2
DUP #00 NEQ ?&no-null DUP ?&no-null
.Screen/sprite DEO JMP2r .Screen/sprite DEO JMP2r
&no-null &no-null
DUP #20 GTH ?&no-low DUP #20 GTH ?&no-low
@ -141,18 +176,10 @@ JMP2r
JMP2r JMP2r
@addr-pos ( addr* -- x* y* ) (
@|stdlib )
STH2k
( pixel x ) #000f AND2
( block x ) STH2kr #48 SFT2 ADD2 #00ff AND2
#10 SFT2 #0020 ADD2
( pixel y ) STHk2r #04 SFT2 #000f AND2
( block y ) STH2r #4c SFT2 ADD2
#10 SFT2 #0020 ADD2
JMP2r
@scpy ( src* dst* -- ) OVR2 LDA ?&e POP2 POP2 JMP2r &e STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ?&w POP2 #00 STH2r STA JMP2r
@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r @skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w 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 @sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
@ -216,4 +243,8 @@ c060 3018 0c06 0300 3c0c 0c0c 0c0c 3c00
1818 1818 1818 1818 380c 0c06 0c0c 3800 1818 1818 1818 1818 380c 0c06 0c0c 3800
0000 60f2 9e0c 0000 3c42 9985 8599 423c ] 0000 60f2 9e0c 0000 3c42 9985 8599 423c ]
(
@|memory )
@symbols