Browse Source

Added save/load nametable

main
neauoire 4 years ago
parent
commit
c0b9067f05
  1. 3
      .gitignore
  2. 36
      src/main.tal

3
.gitignore vendored

@ -5,4 +5,5 @@
/bin
*.chr
*snarf
*theme
*theme
*nametable

36
src/main.tal

@ -80,7 +80,6 @@
( todo )
%DATA-CLIP { #6000 }
%BANK-TEMP { #4000 }
%GET-HEX-ADDR { TOS 8** ;font-hex ++ .Screen/addr DEO2 }
%GET-COLOR { .settings/color LDZ STHk 2/ + DEI #01 STHr #01 AND - 4* SFT #0f AND }
@ -1302,6 +1301,8 @@ RTN
@new-file ( default* -- )
BANK-SPRITESHEET LENGTH ;clear JSR2
BANK-NAMETABLE #0200 ;clear JSR2
STH2
#0c #00
&loop
@ -1317,40 +1318,36 @@ RTN
@load-file ( -- )
( icn mode ) .Controller/button DEI #02 AND ,load-file-icn JCN
BANK-SPRITESHEET LENGTH ;clear JSR2
BANK-NAMETABLE #0200 ;clear JSR2
( spritesheet )
;path/name .File/name DEO2
LENGTH .File/length DEO2
BANK-SPRITESHEET .File/load DEO2
RESET-STATE
;redraw JSR2
RTN
( nametable )
;nametable-txt .File/name DEO2
#0200 .File/length DEO2
BANK-NAMETABLE .File/load DEO2
@load-file-icn ( -- )
BANK-SPRITESHEET LENGTH ;clear JSR2
;path/name .File/name DEO2
LENGTH .File/length DEO2
BANK-TEMP .File/load DEO2
RESET-STATE
#1000 #0000
&loop
DUP2 BANK-TEMP ++ LDA STH
DUP2k [ 8// 8** ++ ] BANK-SPRITESHEET ++ STHr ROT ROT STA
INC2 GTH2k ,&loop JCN
POP2 POP2
;redraw JSR2
RTN
@save-file ( -- )
( spritesheet )
;path/name .File/name DEO2
LENGTH .File/length DEO2
BANK-SPRITESHEET .File/save DEO2
( nametable )
;nametable-txt .File/name DEO2
#0200 .File/length DEO2
BANK-NAMETABLE .File/save DEO2
RESET-STATE
;save-theme JSR2
@ -1516,6 +1513,7 @@ RTN
RTN
@nametable-txt "nametable $1
@untitled-txt "untitled.chr $1
@tool-brush e0d0 8844 2212 0c00

Loading…
Cancel
Save