system.expansion.tal (1174B)
1 |00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1 2 |100 3 4 @on-reset ( -> ) 5 ;buf <pstr> 6 #2018 DEO 7 ;buf <pstr> 8 #0a18 DEO 9 ( | copy left ) 10 ;buf #0006 ADD2 ;mmu-cpyl/a STA2 11 ;buf #0003 ADD2 ;mmu-cpyl/b STA2 12 ;mmu-cpyl .System/expansion DEO2 13 ;buf <pstr> 14 #2018 DEO 15 ;res1 <pstr> 16 #0a18 DEO 17 ( | copy right ) 18 ;buf #0003 ADD2 ;mmu-cpyr/a STA2 19 ;buf #0009 ADD2 ;mmu-cpyr/b STA2 20 ;mmu-cpyr .System/expansion DEO2 21 ;buf <pstr> 22 #2018 DEO 23 ;res2 <pstr> 24 #0a18 DEO 25 ( | copy left ) 26 ;buf #0009 ADD2 ;mmu-cpyl/a STA2 27 ;buf #0006 ADD2 ;mmu-cpyl/b STA2 28 ;mmu-cpyl .System/expansion DEO2 29 ;buf <pstr> 30 #2018 DEO 31 ;res3 <pstr> 32 #0a18 DEO 33 ( | memset ) 34 ;buf #0003 ADD2 ;mmu-fill/a STA2 35 ;mmu-fill .System/expansion DEO2 36 ;buf <pstr> 37 #2018 DEO 38 ;res4 <pstr> 39 #0a18 DEO 40 BRK 41 42 @<pstr> ( str* -- ) 43 LDAk #18 DEO 44 INC2 LDAk ?<pstr> 45 POP2 JMP2r 46 47 @buf [ "......[hello]..... $1 ] 48 @res1 [ "...[hello]lo]..... $1 ] 49 @res2 [ "...[hello[hello].. $1 ] 50 @res3 [ "...[he[hello]lo].. $1 ] 51 @res4 [ "...-------------.. $1 ] 52 53 @mmu-fill [ 00 000d 0000 &a $2 2d ] 54 @mmu-cpyl [ 01 0007 0000 &a $2 0000 &b $2 ] 55 @mmu-cpyr [ 02 0007 0000 &a $2 0000 &b $2 ] 56