mirror-uxn
/
nasu
mirror of https://git.sr.ht/~rabbits/nasu
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Almost ready for format

main
Devine Lu Linvega 2 years ago
parent
b3b175177e
commit
565fd2325f
1 changed files with 136 additions and 135 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 271
      src/nasu.tal

271
src/nasu.tal
Unescape View File

@ -80,44 +80,44 @@ BRK
( >>> ) 09 "Nasu $1 ( >>> ) 09 "Nasu $1
( - ) 00 00 =about/toggle "About $1 ( - ) 00 00 =about/toggle "About $1
( - ) 01 "n =file-new "New $1 ( - ) 01 "n =file-new "New $1
( - ) 01 "r =trap "Rename $1 ( - ) 01 "r =trap "Rename $1
( - ) 01 "o =file-open "Open $1 ( - ) 01 "o =file-open "Open $1
( - ) 00 00 =file-open-mono "OpenMono $1 ( - ) 00 00 =file-open-mono "OpenMono $1
( - ) 01 "s =file-save "Save $1 ( - ) 01 "s =file-save "Save $1
( - ) 00 00 =file-save-mono "SaveMono $1 ( - ) 00 00 =file-save-mono "SaveMono $1
( - ) 01 "p =save-theme "SaveTheme $1 ( - ) 01 "p =save-theme "SaveTheme $1
( - ) 01 "q =exit "Exit $1 ( - ) 01 "q =exit "Exit $1
( >>> ) 09 "Edit $1 ( >>> ) 09 "Edit $1
( - ) 01 "c =edit-copy-chr "Copy $1 ( - ) 01 "c =edit-copy-chr "Copy $1
( - ) 05 "C =edit-copy-icn "CopyMono $1 ( - ) 05 "C =edit-copy-icn "CopyMono $1
( - ) 01 "v =edit-paste "Paste $1 ( - ) 01 "v =edit-paste "Paste $1
( - ) 01 "x =edit-cut "Cut $1 ( - ) 01 "x =edit-cut "Cut $1
( - ) 00 08 =edit-erase "Erase $1 ( - ) 00 08 =edit-erase "Erase $1
( - ) 00 "i =edit-invert "Invert $1 ( - ) 00 "i =edit-invert "Invert $1
( - ) 00 "c =edit-colorize "Colorize $1 ( - ) 00 "c =edit-colorize "Colorize $1
( - ) 00 00 =edit-flipx "Horizontal $1 ( - ) 00 00 =edit-flipx "Horizontal $1
( - ) 00 00 =edit-flipy "Veritcal $1 ( - ) 00 00 =edit-flipy "Veritcal $1
( >>> ) 01 "View $1 ( >>> ) 01 "View $1
( - ) 02 00 =<toggle-zoom> "Zoom $1 ( - ) 02 00 =<toggle-zoom> "Zoom $1
( >>> ) 0a "Move $1 ( >>> ) 0a "Move $1
( - ) 10 00 =move-up "Up $1 ( - ) 10 00 =move-up "Up $1
( - ) 20 00 =move-down "Down $1 ( - ) 20 00 =move-down "Down $1
( - ) 40 00 =move-left "Left $1 ( - ) 40 00 =move-left "Left $1
( - ) 80 00 =move-right "Right $1 ( - ) 80 00 =move-right "Right $1
( - ) 14 00 =move-dech "Decr.H $1 ( - ) 14 00 =move-dech "Decr.H $1
( - ) 24 00 =move-inch "Incr.H $1 ( - ) 24 00 =move-inch "Incr.H $1
( - ) 44 00 =move-decw "Decr.W $1 ( - ) 44 00 =move-decw "Decr.W $1
( - ) 84 00 =move-incw "Incr.W $1 ( - ) 84 00 =move-incw "Incr.W $1
( - ) 00 1b =move-reset "Reset $1 ( - ) 00 1b =move-reset "Reset $1
( - ) 01 "a =select-all "SelectAll $1 ( - ) 01 "a =select-all "SelectAll $1
( >>> ) 07 "Tool $1 ( >>> ) 07 "Tool $1
( - ) 00 "q =tool-brush "Brush $1 ( - ) 00 "q =tool-brush "Brush $1
( - ) 00 "w =tool-selector "Selector $1 ( - ) 00 "w =tool-selector "Selector $1
( - ) 00 "e =tool-zoom "Zoom $1 ( - ) 00 "e =tool-zoom "Zoom $1
( - ) 00 "1 =pick-color1 "Background $1 ( - ) 00 "1 =pick-color1 "Background $1
( - ) 00 "2 =pick-color2 "ColorA $1 ( - ) 00 "2 =pick-color2 "ColorA $1
( - ) 00 "3 =pick-color3 "ColorB $1 ( - ) 00 "3 =pick-color3 "ColorB $1
( - ) 00 "4 =pick-color4 "ColorC $1 ( - ) 00 "4 =pick-color4 "ColorC $1
$1 $1
( (
@ -242,9 +242,9 @@ BRK
.Mouse/x DEI2 .tileview/x1 LDZ2 SUB2 .Mouse/x DEI2 .tileview/x1 LDZ2 SUB2
.Mouse/y DEI2 .tileview/y1 LDZ2 SUB2 .Mouse/y DEI2 .tileview/y1 LDZ2 SUB2
( | test ) ( | test )
#02 .settings/tool LDZ EQU ?&zoom #02 .settings/tool LDZ EQU ?&zoom
#01 .settings/zoom LDZ EQU ?&zoomed #01 .settings/zoom LDZ EQU ?&zoomed
#01 .settings/tool LDZ EQU ?&select #01 .settings/tool LDZ EQU ?&select
( | paint ) ( | paint )
.settings/color LDZ .Mouse/state DEI #01 EQU MUL .settings/color LDZ .Mouse/state DEI #01 EQU MUL
<put-pixel> <put-pixel>
@ -308,11 +308,11 @@ BRK
( ) [ #20 ] NEQk NIP ?&no-save file-save POP BRK &no-save ( ) [ #20 ] NEQk NIP ?&no-save file-save POP BRK &no-save
( ) [ #1e ] NEQk NIP ?&no-load file-open POP BRK &no-load ( ) [ #1e ] NEQk NIP ?&no-load file-open POP BRK &no-load
( ) [ #1d ] NEQk NIP ?&no-name file-new POP BRK &no-name ( ) [ #1d ] NEQk NIP ?&no-name file-new POP BRK &no-name
( ) [ #04 ] NEQk NIP ?&no-tool0 #00 set-tool POP BRK &no-tool0 ( ) [ #04 ] NEQk NIP ?&no-tool0 #00 <set-tool> POP BRK &no-tool0
( ) [ #05 ] NEQk NIP ?&no-tool1 #01 set-tool POP BRK &no-tool1 ( ) [ #05 ] NEQk NIP ?&no-tool1 #01 <set-tool> POP BRK &no-tool1
( ) [ #06 ] NEQk NIP ?&no-tool2 #02 set-tool &no-tool2 ( ) [ #06 ] NEQk NIP ?&no-tool2 #02 <set-tool> &no-tool2
( ) INCk .settings/color LDZ NEQ ?&no-eraser #00 set-color POP BRK &no-eraser ( ) INCk .settings/color LDZ NEQ ?&no-eraser #00 <set-color> POP BRK &no-eraser
( ) [ #02 ] GTHk NIP ?&no-color INCk set-color POP BRK &no-color ( ) [ #02 ] GTHk NIP ?&no-color INCk <set-color> POP BRK &no-color
( ) [ #08 ] LTHk NIP ?&no-rename trap POP BRK &no-rename ( ) [ #08 ] LTHk NIP ?&no-rename trap POP BRK &no-rename
POP POP
@ -322,10 +322,10 @@ BRK
.Mouse/y DEI2 .zoomview/y1 LDZ2 SUB2 #0020 LTH2 ?&no-mod .Mouse/y DEI2 .zoomview/y1 LDZ2 SUB2 #0020 LTH2 ?&no-mod
.Mouse/x DEI2 .zoomview/x1 LDZ2 SUB2 #03 SFT2 NIP .Mouse/x DEI2 .zoomview/x1 LDZ2 SUB2 #03 SFT2 NIP
( ) DUP #00 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?&no-su ;op-shiftu run &no-su ( ) DUP #00 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?&no-su ;op-shiftu <run> &no-su
( ) DUP #00 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?&no-sd ;op-shiftd run &no-sd ( ) DUP #00 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?&no-sd ;op-shiftd <run> &no-sd
( ) DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?&no-sr ;op-shiftr run &no-sr ( ) DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?&no-sr ;op-shiftr <run> &no-sr
( ) DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?&no-shiftleft ;op-shiftl run &no-shiftleft ( ) DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?&no-shiftleft ;op-shiftl <run> &no-shiftleft
POP POP
( release mouse ) [ LIT2 00 -Mouse/state ] DEO ( release mouse ) [ LIT2 00 -Mouse/state ] DEO
!&finish !&finish
@ -401,14 +401,14 @@ BRK
!<draw-toolview> !<draw-toolview>
@set-color ( color -- ) @<set-color> ( color -- )
.settings/color STZ .settings/color STZ
<draw-toolview> <draw-toolview>
!<draw-colorview> !<draw-colorview>
@set-tool ( tool -- ) @<set-tool> ( tool -- )
.settings/tool STZ .settings/tool STZ
@ -459,9 +459,9 @@ JMP2r
JMP2r JMP2r
@mod-selection ( x y -- ) @<mod-selection> ( x y -- )
.settings/zoom LDZ ?mod-selection-zoom .settings/zoom LDZ ?<mod-selection-zoom>
DUP DUP
.selection/y2 LDZ ADD #0f AND .selection/y2 STZ .selection/y2 LDZ ADD #0f AND .selection/y2 STZ
@ -484,7 +484,7 @@ JMP2r
!<redraw> !<redraw>
@mod-selection-zoom ( x y -- ) @?<mod-selection-zoom> ( x y -- )
( | set zoom ) ( | set zoom )
.selection/zy LDZ ADD SWP .selection/zy LDZ ADD SWP
@ -497,7 +497,7 @@ JMP2r
!<draw-tileview-zoom> !<draw-tileview-zoom>
@scale-selection ( x y -- ) @<scale-selection> ( x y -- )
.selection/y2 LDZ ADD #0f AND .selection/y2 STZ .selection/y2 LDZ ADD #0f AND .selection/y2 STZ
.selection/x2 LDZ ADD #0f AND .selection/x2 STZ .selection/x2 LDZ ADD #0f AND .selection/x2 STZ
@ -558,10 +558,11 @@ JMP2r
STH STH
OVR2 SWP2 get-pixel-addr OVR2 SWP2 get-pixel-addr
( ch1 ) OVR2 OVR2 STHkr #00 toggle-pixel ( ch1 ) OVR2 OVR2 STHkr #00 <toggle-pixel>
( ch2 ) #0008 ADD2 STHr #01 ( ch2 ) #0008 ADD2 STHr #01
( >> )
@toggle-pixel ( x* addr* color -- ) @<toggle-pixel> ( x* addr* color -- )
STH2 STH2
LDAk LDAk
@ -626,10 +627,10 @@ JMP2r
( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r } ( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r }
( write ) ( write )
STH2 DUP2 ,&x1 STR2 STH2 DUP2 ,&x1 STR2
[ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 ( ) [ LIT2 00 -selection/x2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2
[ LIT2 00 -selection/x1 ] LDZ #30 SFT2 ADD2 ,&x2 STR2 ( ) [ LIT2 00 -selection/x1 ] LDZ #30 SFT2 ADD2 ,&x2 STR2
[ LIT2 &x1 $2 ] STH2kr get-pixel ,&c1 STR ( ) [ LIT2 &x1 $2 ] STH2kr get-pixel ,&c1 STR
[ LIT2 &x2 $2 ] STH2kr get-pixel ,&c2 STR ( ) [ LIT2 &x2 $2 ] STH2kr get-pixel ,&c2 STR
,&x2 LDR2 STH2kr [ LIT &c1 $1 ] <put-pixel> ,&x2 LDR2 STH2kr [ LIT &c1 $1 ] <put-pixel>
,&x1 LDR2 STH2r [ LIT &c2 $1 ] !<put-pixel> ,&x1 LDR2 STH2r [ LIT &c2 $1 ] !<put-pixel>
@ -641,7 +642,7 @@ JMP2r
( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r } ( ) ADD2 LTH2 ?{ POP2 POP2 JMP2r }
( | write ) ( | write )
DUP2 ,&y1 STR2 DUP2 ,&y1 STR2
[ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2 ( ) [ LIT2 00 -selection/y2 ] LDZ INC #30 SFT2 #0001 SUB2 SWP2 SUB2
[ LIT2 00 -selection/y1 ] LDZ #30 SFT2 ADD2 ,&y2 STR2 [ LIT2 00 -selection/y1 ] LDZ #30 SFT2 ADD2 ,&y2 STR2
DUP2 [ LIT2 &y1 $2 ] get-pixel ,&c1 STR DUP2 [ LIT2 &y1 $2 ] get-pixel ,&c1 STR
DUP2 [ LIT2 &y2 $2 ] get-pixel ,&c2 STR DUP2 [ LIT2 &y2 $2 ] get-pixel ,&c2 STR
@ -651,7 +652,7 @@ JMP2r
( (
@|map ) @|map )
@run ( op* -- ) @<run> ( op* -- )
,&fn STR2 ,&fn STR2
.selection/y2 LDZ INC .selection/y1 LDZ .selection/y2 LDZ INC .selection/y1 LDZ
@ -676,7 +677,7 @@ JMP2r
,&t STR2 ,&t STR2
#1000 #1000
&>loop &>loop ( -- )
#00 OVR [ LIT2 &t $2 ] ADD2 LDA2k #ffff EOR2 SWP2 STA2 #00 OVR [ LIT2 &t $2 ] ADD2 LDA2k #ffff EOR2 SWP2 STA2
INC INC GTHk ?&>loop INC INC GTHk ?&>loop
POP2 POP2
@ -686,17 +687,17 @@ JMP2r
@op-shiftu ( addr* -- ) @op-shiftu ( addr* -- )
DUP2k #0007 ADD2 SWP2 LDAk STH DUP2k #0007 ADD2 SWP2 LDAk STH
&ch1 &>ch1 ( -- )
INC2k LDA STH INC2k LDA STH
DUP2 STHr ROT ROT STA DUP2 STHr ROT ROT STA
INC2 GTH2k ?&ch1 INC2 GTH2k ?&>ch1
POP2 POP2
( cap ) STHr ROT ROT STA ( cap ) STHr ROT ROT STA
#0008 ADD2 DUP2 #0007 ADD2 SWP2 LDAk STH #0008 ADD2 DUP2 #0007 ADD2 SWP2 LDAk STH
&ch2 &>ch2 ( -- )
INC2k LDA STH INC2k LDA STH
DUP2 STHr ROT ROT STA DUP2 STHr ROT ROT STA
INC2 GTH2k ?&ch2 INC2 GTH2k ?&>ch2
POP2 POP2
( cap ) STHr ROT ROT STA ( cap ) STHr ROT ROT STA
@ -705,17 +706,17 @@ JMP2r
@op-shiftd ( addr* -- ) @op-shiftd ( addr* -- )
DUP2k #0007 ADD2 LDAk STH DUP2k #0007 ADD2 LDAk STH
&ch1 &>ch1 ( -- )
DUP2 #0001 SUB2 LDA STH DUP2 #0001 SUB2 LDA STH
DUP2 STHr ROT ROT STA DUP2 STHr ROT ROT STA
#0001 SUB2 LTH2k ?&ch1 #0001 SUB2 LTH2k ?&>ch1
POP2 POP2
( cap ) STHr ROT ROT STA ( cap ) STHr ROT ROT STA
#0008 ADD2 DUP2 #0007 ADD2 LDAk STH #0008 ADD2 DUP2 #0007 ADD2 LDAk STH
&ch2 &>ch2 ( -- )
DUP2 #0001 SUB2 LDA STH DUP2 #0001 SUB2 LDA STH
DUP2 STHr ROT ROT STA DUP2 STHr ROT ROT STA
#0001 SUB2 LTH2k ?&ch2 #0001 SUB2 LTH2k ?&>ch2
POP2 POP2
( cap ) STHr ROT ROT STA ( cap ) STHr ROT ROT STA
@ -725,13 +726,13 @@ JMP2r
STH2 STH2
#0800 #0800
&>loop &>loop ( -- )
( | ch1 )
#00 OVR STH2kr ADD2 ( 1 ) #00 OVR STH2kr ADD2
LDAk rol ROT ROT STA ( 1 ) LDAk rol ROT ROT STA
( | ch2 )
#00 OVR STH2kr #0008 ADD2 ADD2 ( 2 ) #00 OVR STH2kr #0008 ADD2 ADD2
LDAk rol ROT ROT STA ( 2 ) LDAk rol ROT ROT STA
INC GTHk ?&>loop INC GTHk ?&>loop
POP2 POP2
POP2r POP2r
@ -742,13 +743,13 @@ JMP2r
STH2 STH2
#0800 #0800
&>loop &>loop ( -- )
( | ch1 )
#00 OVR STH2kr ADD2 ( 1 ) #00 OVR STH2kr ADD2
LDAk ror ROT ROT STA ( 1 ) LDAk ror ROT ROT STA
( | ch2 )
#00 OVR STH2kr #0008 ADD2 ADD2 ( 2 ) #00 OVR STH2kr #0008 ADD2 ADD2
LDAk ror ROT ROT STA ( 2 ) LDAk ror ROT ROT STA
INC GTHk ?&>loop INC GTHk ?&>loop
POP2 POP2
POP2r POP2r
@ -764,8 +765,8 @@ JMP2r
@op-write ( addr* -- ) @op-write ( addr* -- )
[ LIT2 &length $2 ] [ LIT2 &length $2 ]
DUP2 .File/length DEO2 ( ) DUP2 .File/length DEO2
;&buf SWP2 mcpy ( ) ;&buf SWP2 mcpy
;&buf .File/write DEO2 ;&buf .File/write DEO2
JMP2r JMP2r
@ -799,7 +800,7 @@ JMP2r
;spritesheet .Screen/addr DEO2 ;spritesheet .Screen/addr DEO2
[ LIT2 f6 -Screen/auto ] DEO [ LIT2 f6 -Screen/auto ] DEO
#1000 #1000
&>loop &>loop ( -- )
#81 .Screen/sprite DEO #81 .Screen/sprite DEO
INC GTHk ?&>loop INC GTHk ?&>loop
POP2 POP2
@ -809,7 +810,7 @@ JMP2r
#00 .selection/y1 LDZ #30 SFT2 .tileview/y1 LDZ2 ADD2 .Screen/y DEO2 #00 .selection/y1 LDZ #30 SFT2 .tileview/y1 LDZ2 ADD2 .Screen/y DEO2
.selection LDZ2 get-tile-addr ,&sprite STR2 .selection LDZ2 get-tile-addr ,&sprite STR2
.selection/y2 LDZ .selection/y1 LDZ SUB INC #00 .selection/y2 LDZ .selection/y1 LDZ SUB INC #00
&>loop-sel &>loop-sel ( -- )
#00 OVR #80 SFT2 [ LIT2 &sprite $2 ] ADD2 .Screen/addr DEO2 #00 OVR #80 SFT2 [ LIT2 &sprite $2 ] ADD2 .Screen/addr DEO2
#84 .Screen/sprite DEO #84 .Screen/sprite DEO
INC GTHk ?&>loop-sel INC GTHk ?&>loop-sel
@ -823,7 +824,7 @@ JMP2r
#04 ;<draw-chr>/color STA #04 ;<draw-chr>/color STA
.selection/x2 LDZ .selection/x1 LDZ SUB INC #40 SFT .selection/x2 LDZ .selection/x1 LDZ SUB INC #40 SFT
.selection/y2 LDZ .selection/y1 LDZ SUB INC ORA .selection/y2 LDZ .selection/y1 LDZ SUB INC ORA
draw-byte <draw-byte>
&no-label &no-label
JMP2r JMP2r
@ -835,9 +836,9 @@ JMP2r
.tileview/x1 LDZ2 .Screen/x DEO2 .tileview/x1 LDZ2 .Screen/x DEO2
.tileview/y1 LDZ2 .Screen/y DEO2 .tileview/y1 LDZ2 .Screen/y DEO2
[ LIT2 f2 -Screen/auto ] DEO [ LIT2 f2 -Screen/auto ] DEO
#f0 &times ( -- ) #f0 &>times ( -- )
[ LIT2 00 -Screen/sprite ] DEO [ LIT2 00 -Screen/sprite ] DEO
INC DUP ?&times INC DUP ?&>times
POP POP
( | draw ) ( | draw )
[ LIT2 01 -Screen/auto ] DEO [ LIT2 01 -Screen/auto ] DEO
@ -898,11 +899,11 @@ JMP2r
JMP2r JMP2r
( tools )
( panes )
@<draw-zoomview> ( -- ) @<draw-zoomview> ( -- )
@ -975,16 +976,16 @@ JMP2r
#03 ;<draw-chr>/color STA #03 ;<draw-chr>/color STA
.settings/ratio LDZ .settings/ratio LDZ
!draw-byte !<draw-byte>
@<draw-colorview> ( -- ) @<draw-colorview> ( -- )
.colorview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .colorview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
.colorview/x1 LDZ2 .Screen/x DEO2 .colorview/x1 LDZ2 .Screen/x DEO2
#03 ;<draw-chr>/color STA #03 ;<draw-chr>/color STA
.System/r /get-color draw-hex .System/r /get-color <draw-hex>
.System/g /get-color draw-hex .System/g /get-color <draw-hex>
.System/b /get-color draw-hex .System/b /get-color <draw-hex>
.colorview/x1 LDZ2 .colorview/y1 LDZ2 .colorview/x1 LDZ2 .colorview/y1 LDZ2
[ LIT2 00 -Screen/auto ] DEO [ LIT2 00 -Screen/auto ] DEO
@ -999,7 +1000,7 @@ JMP2r
.Screen/y DEO2 .Screen/y DEO2
.Screen/x DEO2 .Screen/x DEO2
#1000 #1000
&>loop &>loop ( -- )
DUP STHkr GTH #30 SFT #00 SWP ;slider-icns ADD2 .Screen/addr DEO2 DUP STHkr GTH #30 SFT #00 SWP ;slider-icns ADD2 .Screen/addr DEO2
#02 .Screen/sprite DEO #02 .Screen/sprite DEO
.Screen/x DEI2k INC2 INC2 ROT DEO2 .Screen/x DEI2k INC2 INC2 ROT DEO2
@ -1016,7 +1017,7 @@ JMP2r
[ LIT2 00 -Screen/auto ] DEO [ LIT2 00 -Screen/auto ] DEO
#1000 #1000
&>loop &>loop ( -- )
#00 OVR #03 AND #30 SFT2 .blendview/x1 LDZ2 ADD2 .Screen/x DEO2 #00 OVR #03 AND #30 SFT2 .blendview/x1 LDZ2 ADD2 .Screen/x DEO2
#00 OVR #32 SFT2 .blendview/y1 LDZ2 ADD2 .Screen/y DEO2 #00 OVR #32 SFT2 .blendview/y1 LDZ2 ADD2 .Screen/y DEO2
;fill-icn .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2
@ -1031,7 +1032,7 @@ JMP2r
.blendview/x1 LDZ2 .Screen/x DEO2 .blendview/x1 LDZ2 .Screen/x DEO2
.blendview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .blendview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
#03 ;<draw-chr>/color STA #03 ;<draw-chr>/color STA
( get blending ) .settings/blend LDZ draw-byte ( get blending ) .settings/blend LDZ <draw-byte>
( | y ) ( | y )
.blendview/x1 LDZ2 #0010 ADD2 .Screen/x DEO2 .blendview/x1 LDZ2 #0010 ADD2 .Screen/x DEO2
@ -1053,17 +1054,17 @@ JMP2r
.dataview/x1 LDZ2 .Screen/x DEO2 .dataview/x1 LDZ2 .Screen/x DEO2
.dataview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2 .dataview/y2 LDZ2 #0008 SUB2 .Screen/y DEO2
#03 ;<draw-chr>/color STA #03 ;<draw-chr>/color STA
.selection LDZ2 #40 SFT ADD draw-byte .selection LDZ2 #40 SFT ADD <draw-byte>
.dataview/y1 LDZ2 .Screen/y DEO2 .dataview/y1 LDZ2 .Screen/y DEO2
#0400 #0400
&>loop &>loop
.dataview/x1 LDZ2 .Screen/x DEO2 .dataview/x1 LDZ2 .Screen/x DEO2
#00 OVR DUP ADD .settings/focus LDZ2 ADD2 #00 OVR DUP ADD .settings/focus LDZ2 ADD2
#01 ;<draw-chr>/color STA #01 ;<draw-chr>/color STA
( ch1 ) LDA2k draw-short ( ch1 ) LDA2k <draw-short>
.Screen/x DEI2k #000c ADD2 ROT DEO2 .Screen/x DEI2k #000c ADD2 ROT DEO2
#02 ;<draw-chr>/color STA #02 ;<draw-chr>/color STA
( ch2 ) #0008 ADD2 LDA2 draw-short ( ch2 ) #0008 ADD2 LDA2 <draw-short>
( | skip line ) ( | skip line )
.dataview/x1 LDZ2 .Screen/x DEO2 .dataview/x1 LDZ2 .Screen/x DEO2
draw-lb draw-lb
@ -1148,7 +1149,7 @@ JMP2r
.Screen/auto DEO .Screen/auto DEO
STH STH
#00 #00
&>l2 &>l2 ( -- )
STHkr .Screen/sprite DEO STHkr .Screen/sprite DEO
INC GTHk ?&>l2 INC GTHk ?&>l2
POP2 POP2
@ -1181,25 +1182,25 @@ JMP2r
@draw-str ( str* -- str* ) @draw-str ( str* -- str* )
LDAk #00 EQU ?&skip LDAk #00 EQU ?{
[ LIT2 01 -Screen/auto ] DEO [ LIT2 01 -Screen/auto ] DEO
&>while ( -- ) &>while ( -- )
LDAk <draw-chr> LDAk <draw-chr>
INC2 LDAk ?&>while INC2 LDAk ?&>while
&skip }
INC2 INC2
JMP2r JMP2r
@draw-short ( short* -- ) @<draw-short> ( short* -- )
SWP draw-byte SWP <draw-byte>
@draw-byte ( byte -- ) @<draw-byte> ( byte -- )
DUP #04 SFT draw-hex DUP #04 SFT <draw-hex>
@draw-hex ( char -- ) @<draw-hex> ( char -- )
#0f AND DUP #09 GTH #27 MUL ADD #30 ADD #0f AND DUP #09 GTH #27 MUL ADD #30 ADD
( >> ) ( >> )
@ -1307,7 +1308,7 @@ JMP2r
;filepath .File/name DEO2 ;filepath .File/name DEO2
#0008 .File/length DEO2 #0008 .File/length DEO2
#0000 #0000
&>loop &>loop ( -- )
#00 OVR #40 SFT2 ;spritesheet ADD2 .File/read DEO2 #00 OVR #40 SFT2 ;spritesheet ADD2 .File/read DEO2
INC NEQk ?&>loop INC NEQk ?&>loop
POP2 POP2
@ -1324,13 +1325,13 @@ JMP2r
;spritesheet .File/write DEO2 ;spritesheet .File/write DEO2
( | nametable ) ( | nametable )
has-nametable #00 EQU ?&no-nametable has-nametable #00 EQU ?{
;nametable-ext ;filepath scap #0004 mcpy ;nametable-ext ;filepath scap #0004 mcpy
;filepath .File/name DEO2 ;filepath .File/name DEO2
#0300 .File/length DEO2 #0300 .File/length DEO2
;nametable .File/write DEO2 ;nametable .File/write DEO2
;filepath scap #0004 SUB2 #0004 <mclr> ;filepath scap #0004 SUB2 #0004 <mclr>
&no-nametable }
#00 .state/changed STZ #00 .state/changed STZ
@ -1342,7 +1343,7 @@ JMP2r
;filepath .File/name DEO2 ;filepath .File/name DEO2
#0008 .File/length DEO2 #0008 .File/length DEO2
#0000 #0000
&>loop &>loop ( -- )
#00 OVR #40 SFT2 ;spritesheet ADD2 .File/write DEO2 #00 OVR #40 SFT2 ;spritesheet ADD2 .File/write DEO2
INC NEQk ?&>loop INC NEQk ?&>loop
POP2 POP2
@ -1369,7 +1370,7 @@ JMP2r
;snarf-txt .File/name DEO2 ;snarf-txt .File/name DEO2
#0008 ;op-write/length STA2 #0008 ;op-write/length STA2
;op-write run ;op-write <run>
!<redraw> !<redraw>
@ -1377,7 +1378,7 @@ JMP2r
;snarf-txt .File/name DEO2 ;snarf-txt .File/name DEO2
#0010 ;op-write/length STA2 #0010 ;op-write/length STA2
;op-write run ;op-write <run>
!<redraw> !<redraw>
@ -1385,27 +1386,27 @@ JMP2r
;snarf-txt .File/name DEO2 ;snarf-txt .File/name DEO2
#0010 .File/length DEO2 #0010 .File/length DEO2
;op-read run ;op-read <run>
!<redraw> !<redraw>
@edit-cut ( -- ) @edit-cut ( -- )
edit-copy-chr edit-copy-chr
;op-erase run ;op-erase <run>
!<redraw> !<redraw>
@edit-erase ( -- ) @edit-erase ( -- )
;op-erase run ;op-erase <run>
#01 .state/changed STZ <draw-state> #01 .state/changed STZ <draw-state>
!<redraw> !<redraw>
@edit-invert ( -- ) @edit-invert ( -- )
;op-invert run ;op-invert <run>
#01 .state/changed STZ <draw-state> #01 .state/changed STZ <draw-state>
!<redraw> !<redraw>
@ -1430,19 +1431,19 @@ JMP2r
( select ) ( select )
@tool-brush ( -- ) #00 !set-tool @tool-brush ( -- ) #00 !<set-tool>
@tool-selector ( -- ) #01 !set-tool @tool-selector ( -- ) #01 !<set-tool>
@tool-zoom ( -- ) #02 !set-tool @tool-zoom ( -- ) #02 !<set-tool>
@move-up ( -- ) #00ff !mod-selection @move-up ( -- ) #00ff !<mod-selection>
@move-down ( -- ) #0001 !mod-selection @move-down ( -- ) #0001 !<mod-selection>
@move-left ( -- ) #ff00 !mod-selection @move-left ( -- ) #ff00 !<mod-selection>
@move-right ( -- ) #0100 !mod-selection @move-right ( -- ) #0100 !<mod-selection>
@move-dech ( -- ) #00ff !scale-selection @move-dech ( -- ) #00ff !<scale-selection>
@move-inch ( -- ) #0001 !scale-selection @move-inch ( -- ) #0001 !<scale-selection>
@move-decw ( -- ) #ff00 !scale-selection @move-decw ( -- ) #ff00 !<scale-selection>
@move-incw ( -- ) #0100 !scale-selection @move-incw ( -- ) #0100 !<scale-selection>
@move-reset ( -- ) .selection/x1 LDZ2 .selection/x2 STZ2 !<redraw> @move-reset ( -- ) .selection/x1 LDZ2 .selection/x2 STZ2 !<redraw>
@ -1452,10 +1453,10 @@ JMP2r
( pick ) ( pick )
@pick-color1 ( -- ) #00 !set-color @pick-color1 ( -- ) #00 !<set-color>
@pick-color2 ( -- ) #01 !set-color @pick-color2 ( -- ) #01 !<set-color>
@pick-color3 ( -- ) #02 !set-color @pick-color3 ( -- ) #02 !<set-color>
@pick-color4 ( -- ) #03 !set-color @pick-color4 ( -- ) #03 !<set-color>
( generics ) ( generics )

Write Preview
Loading…
Cancel
Save