Browse Source

Updated README

main
neauoire 4 years ago
parent
commit
cf02d57e22
  1. 2
      README.md
  2. 54
      src/main.tal

2
README.md

@ -7,7 +7,7 @@
You must have the [Uxn](https://git.sr.ht/~rabbits/uxn/) assembler and emulator.
```
uxnasm nasu.tal nasu.rom && uxnemu nasu.rom
uxnasm src/main.tal bin/nasu.rom && uxnemu bin/nasu.rom
```
## Controls

54
src/main.tal

@ -324,6 +324,10 @@ BRK
;clamp-selection JSR2
;redraw JSR2 POP BRK
&no-expand
DUP [ LIT 'g ] ! ,&no-glyph-copy JCN
;copy-glyph-snarf JSR2
;redraw JSR2 POP BRK
&no-glyph-copy
DUP [ LIT 'c ] ! ,&no-copy JCN
;copy-snarf JSR2
;redraw JSR2 POP BRK
@ -1436,6 +1440,56 @@ RTN
RTN
@copy-glyph-snarf ( -- )
;snarf-txt .File/name DEO2
#0001 .File/length DEO2
#1000
&loop
#00 OVR STH2
#80
STH2kr #0000 ;get-pixel JSR2 #01 AND +
STH2kr #0001 ;get-pixel JSR2 #01 AND #10 SFT +
STH2kr #0002 ;get-pixel JSR2 #01 AND #20 SFT +
STH2kr #0003 ;get-pixel JSR2 #01 AND #30 SFT +
;&write STA
;&write .File/save DEO2
#90
STH2kr #0004 ;get-pixel JSR2 #01 AND +
STH2kr #0005 ;get-pixel JSR2 #01 AND #10 SFT +
STH2kr #0006 ;get-pixel JSR2 #01 AND #20 SFT +
STH2kr #0007 ;get-pixel JSR2 #01 AND #30 SFT +
;&write STA
;&write .File/save DEO2
#a0
STH2kr #0008 ;get-pixel JSR2 #01 AND +
STH2kr #0009 ;get-pixel JSR2 #01 AND #10 SFT +
STH2kr #000a ;get-pixel JSR2 #01 AND #20 SFT +
STH2kr #000b ;get-pixel JSR2 #01 AND #30 SFT +
;&write STA
;&write .File/save DEO2
#f0
STH2kr #000c ;get-pixel JSR2 #01 AND +
STH2kr #000d ;get-pixel JSR2 #01 AND #10 SFT +
STH2kr #000e ;get-pixel JSR2 #01 AND #20 SFT +
STH2kr #000f ;get-pixel JSR2 #01 AND #30 SFT +
;&write STA
;&write .File/save DEO2
POP2r
INC GTHk ;&loop JCN2
POP2
RTN
&write $1
@paste-snarf ( -- )
;snarf-txt .File/name DEO2

Loading…
Cancel
Save