mirror of https://git.sr.ht/~rabbits/uxn
57 lines
1.1 KiB
Tal
57 lines
1.1 KiB
Tal
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
|
|100
|
|
|
|
@on-reset ( -> )
|
|
;buf <pstr>
|
|
#2018 DEO
|
|
;buf <pstr>
|
|
#0a18 DEO
|
|
( | copy left )
|
|
;buf #0006 ADD2 ;mmu-cpyl/a STA2
|
|
;buf #0003 ADD2 ;mmu-cpyl/b STA2
|
|
;mmu-cpyl .System/expansion DEO2
|
|
;buf <pstr>
|
|
#2018 DEO
|
|
;res1 <pstr>
|
|
#0a18 DEO
|
|
( | copy right )
|
|
;buf #0003 ADD2 ;mmu-cpyr/a STA2
|
|
;buf #0009 ADD2 ;mmu-cpyr/b STA2
|
|
;mmu-cpyr .System/expansion DEO2
|
|
;buf <pstr>
|
|
#2018 DEO
|
|
;res2 <pstr>
|
|
#0a18 DEO
|
|
( | copy left )
|
|
;buf #0009 ADD2 ;mmu-cpyl/a STA2
|
|
;buf #0006 ADD2 ;mmu-cpyl/b STA2
|
|
;mmu-cpyl .System/expansion DEO2
|
|
;buf <pstr>
|
|
#2018 DEO
|
|
;res3 <pstr>
|
|
#0a18 DEO
|
|
( | memset )
|
|
;buf #0003 ADD2 ;mmu-fill/a STA2
|
|
;mmu-fill .System/expansion DEO2
|
|
;buf <pstr>
|
|
#2018 DEO
|
|
;res4 <pstr>
|
|
#0a18 DEO
|
|
BRK
|
|
|
|
@<pstr> ( str* -- )
|
|
LDAk #18 DEO
|
|
INC2 LDAk ?<pstr>
|
|
POP2 JMP2r
|
|
|
|
@buf [ "......[hello]..... $1 ]
|
|
@res1 [ "...[hello]o]...... $1 ]
|
|
@res2 [ "...[hello[hello].. $1 ]
|
|
@res3 [ "...[he[hello]lo].. $1 ]
|
|
@res4 [ "...-------------.. $1 ]
|
|
|
|
@mmu-fill [ 00 000d 0000 &a $2 2d ]
|
|
@mmu-cpyl [ 01 0007 0000 &a $2 0000 &b $2 ]
|
|
@mmu-cpyr [ 02 0007 0000 &a $2 0000 &b $2 ]
|
|
|