mirror of https://git.sr.ht/~rabbits/uxn
Added nametable demo
This commit is contained in:
Devine Lu Linvega
parent
10aec891e7
commit
0114af1a10
|
|
@ -0,0 +1,232 @@
|
|||
|
||||
(
|
||||
uxnasm projects/examples/demos/nametable.tal bin/nametable.rom
|
||||
uxnemu bin/nametable.rom
|
||||
)
|
||||
|
||||
%+ { ADD } %- { SUB } %/ { DIV }
|
||||
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
||||
%++ { ADD2 } %-- { SUB2 } %// { DIV2 }
|
||||
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
|
||||
|
||||
%2** { #10 SFT2 } %2// { #01 SFT2 }
|
||||
%8** { #30 SFT2 } %8// { #03 SFT2 }
|
||||
%10** { #40 SFT2 } %10// { #04 SFT2 }
|
||||
%MOD2 { DIV2k MUL2 SUB2 }
|
||||
%MOD { DIVk MUL SUB }
|
||||
%RTN { JMP2r }
|
||||
|
||||
%WIDTH { #0037 }
|
||||
%HEIGHT { #0029 } ( 08cf )
|
||||
%LENGTH { WIDTH HEIGHT MUL2 10** }
|
||||
|
||||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|
||||
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|
||||
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|
||||
( variables )
|
||||
|
||||
|0000
|
||||
|
||||
( program )
|
||||
|
||||
@tiles-frame
|
||||
&x $2 &y $2
|
||||
@nametable-frame
|
||||
&x $2 &y $2
|
||||
@buffer $10
|
||||
|
||||
|0100 ( -> )
|
||||
|
||||
( theme )
|
||||
#34cd .System/r DEO2
|
||||
#28ac .System/g DEO2
|
||||
#297b .System/b DEO2
|
||||
|
||||
WIDTH 8** #0010 ++ .Screen/width DEO2
|
||||
#01e8 .Screen/height DEO2
|
||||
|
||||
#0008 .tiles-frame/x STZ2
|
||||
HEIGHT 8** #0008 ++ .tiles-frame/y STZ2
|
||||
#0008 .nametable-frame/x STZ2
|
||||
#0008 .nametable-frame/y STZ2
|
||||
|
||||
;input-name
|
||||
DUP2 ,load JSR
|
||||
;assoc JSR2
|
||||
|
||||
;draw-tiles JSR2
|
||||
;draw-nametable JSR2
|
||||
;draw-short JSR2
|
||||
|
||||
BRK
|
||||
|
||||
@load ( filename* -- )
|
||||
|
||||
LIT2r 0000
|
||||
.File/name DEO2
|
||||
&stream
|
||||
#0010 .File/length DEO2
|
||||
;buffer
|
||||
DUP2 .File/read DEO2
|
||||
,find-tile JSR #ffff !! ,&skip JCN
|
||||
;buffer ;add-tile JSR2
|
||||
&skip
|
||||
INC2r
|
||||
.File/success DEI2 #0000 !! ,&stream JCN
|
||||
STH2r #0001 -- ;result/tiles STA2
|
||||
|
||||
RTN
|
||||
|
||||
@find-tile ( addr* -- addr* )
|
||||
|
||||
STH2
|
||||
;result/length LDA2 #0000
|
||||
&loop
|
||||
DUP2 10** ;result/data ++ STH2kr ;tiles-equal JSR2 #00 = ,&continue JCN
|
||||
NIP2 POP2r RTN
|
||||
&continue
|
||||
INC2 GTH2k ,&loop JCN
|
||||
POP2 POP2 POP2r
|
||||
( default ) #ffff
|
||||
|
||||
RTN
|
||||
|
||||
@tiles-equal ( a* b* -- bool )
|
||||
|
||||
STH2
|
||||
DUP2 #0010 ++ SWP2
|
||||
&loop
|
||||
LDAk LDAkr STHr = ,&continue JCN
|
||||
POP2 POP2 POP2r #00 RTN
|
||||
&continue
|
||||
INC2r
|
||||
INC2 GTH2k ,&loop JCN
|
||||
POP2 POP2 POP2r #01
|
||||
|
||||
RTN
|
||||
|
||||
@add-tile ( addr* -- addr* )
|
||||
|
||||
STH2
|
||||
#0010 #0000
|
||||
&loop
|
||||
( addr* ) DUP2 ;result/length LDA2 10** ;result/data ++ ++
|
||||
( data ) OVR2 STH2kr ++ LDA
|
||||
( order ) ROT ROT STA
|
||||
INC2 GTH2k ,&loop JCN
|
||||
POP2 POP2
|
||||
POP2r
|
||||
( incr ) ;result/length LDA2 INC2 ;result/length STA2
|
||||
|
||||
RTN
|
||||
|
||||
@assoc ( -- length )
|
||||
|
||||
LIT2r 0000
|
||||
.File/name DEO2
|
||||
&stream
|
||||
#0010 .File/length DEO2
|
||||
;buffer
|
||||
DUP2 .File/read DEO2
|
||||
;find-tile JSR2 STH2kr SWP2 ;set-tile JSR2
|
||||
INC2r
|
||||
.File/success DEI2 #0000 !! ,&stream JCN
|
||||
POP2r
|
||||
|
||||
RTN
|
||||
|
||||
( draw )
|
||||
|
||||
@draw-tiles ( -- )
|
||||
|
||||
.tiles-frame/x LDZ2 .Screen/x DEO2
|
||||
.tiles-frame/y LDZ2 .Screen/y DEO2
|
||||
;result/data .Screen/addr DEO2
|
||||
|
||||
( width ) LITr 00
|
||||
( auto x addr ) #05 .Screen/auto DEO
|
||||
;result/data ;result/length LDA2 10** ++ ;result/data
|
||||
&loop
|
||||
STHkr WIDTH NIP MOD ,&continue JCN
|
||||
.tiles-frame/x LDZ2 .Screen/x DEO2
|
||||
.Screen/y DEI2 #0008 ++ .Screen/y DEO2
|
||||
POPr LITr 00
|
||||
&continue
|
||||
INCr
|
||||
#81 .Screen/sprite DEO
|
||||
#0010 ++ GTH2k ,&loop JCN
|
||||
POP2 POP2
|
||||
( auto none ) #00 .Screen/auto DEO
|
||||
POPr
|
||||
|
||||
RTN
|
||||
|
||||
@set-tile ( id* addr* -- )
|
||||
|
||||
SWP2 2** ;result/data ++ ;result/length LDA2 10** ++ STA2
|
||||
|
||||
RTN
|
||||
|
||||
@get-tile ( id* -- addr* )
|
||||
|
||||
2** ;result/length LDA2 10** ;result/data ++ ++ LDA2
|
||||
|
||||
RTN
|
||||
|
||||
@draw-nametable ( -- )
|
||||
|
||||
;result/tiles LDA2 #0000
|
||||
&loop
|
||||
DUP2 WIDTH MOD2 8** .nametable-frame/x LDZ2 ++ .Screen/x DEO2
|
||||
DUP2 WIDTH DIV2 8** .nametable-frame/y LDZ2 ++ .Screen/y DEO2
|
||||
DUP2 ;get-tile JSR2 10** ;result/data ++ .Screen/addr DEO2
|
||||
#81 .Screen/sprite DEO
|
||||
INC2 GTH2k ,&loop JCN
|
||||
POP2 POP2
|
||||
|
||||
RTN
|
||||
|
||||
@draw-short ( -- )
|
||||
|
||||
#0008 .Screen/x DEO2
|
||||
#0008 .Screen/y DEO2
|
||||
#01 .Screen/auto DEO
|
||||
;result/length LDA2 SWP
|
||||
( high ) ,&draw-byte JSR
|
||||
( low ) ,&draw-byte JSR
|
||||
#05 .Screen/auto DEO
|
||||
|
||||
RTN
|
||||
|
||||
&draw-byte ( byte -- )
|
||||
DUP
|
||||
( high ) #04 SFT ,&draw-char JSR
|
||||
( low ) #0f AND ,&draw-char JSR
|
||||
RTN
|
||||
&draw-char ( num -- )
|
||||
#30 SFT #00 SWP ;font-hex ADD2 .Screen/addr DEO2
|
||||
#01 .Screen/sprite DEO
|
||||
RTN
|
||||
|
||||
@input-name "projects/pictures/bulma37x29.chr $1
|
||||
|
||||
@font-hex ( 0-F )
|
||||
007c 8282 8282 827c 0030 1010 1010 1010
|
||||
007c 8202 7c80 80fe 007c 8202 1c02 827c
|
||||
000c 1424 4484 fe04 00fe 8080 7c02 827c
|
||||
007c 8280 fc82 827c 007c 8202 1e02 0202
|
||||
007c 8282 7c82 827c 007c 8282 7e02 827c
|
||||
007c 8202 7e82 827e 00fc 8282 fc82 82fc
|
||||
007c 8280 8080 827c 00fc 8282 8282 82fc
|
||||
007c 8280 f080 827c 007c 8280 f080 8080
|
||||
|
||||
@result
|
||||
&length $2
|
||||
&tiles $2
|
||||
&data
|
||||
Binary file not shown.
Loading…
Reference in New Issue