mirror of
https://github.com/irmen/prog8.git
synced 2024-07-29 10:29:37 +00:00
52 lines
1002 B
Lua
52 lines
1002 B
Lua
%import textio
|
|
%zeropage kernalsafe
|
|
; %launcher none
|
|
;%output prg
|
|
;%address $2022
|
|
|
|
main {
|
|
sub start() {
|
|
ubyte[20] array1 = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
|
|
ubyte[20] array2 = [2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
|
|
|
|
sys.set_irqd()
|
|
|
|
cx16.rombank(9)
|
|
sys.memset(array1, 20, 255)
|
|
|
|
cx16.rombank(0)
|
|
ubyte ii
|
|
for ii in array1 {
|
|
txt.print_ubhex(ii, false)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
for ii in array2 {
|
|
txt.print_ubhex(ii, false)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
cx16.rombank(9)
|
|
sys.memset(array1, 20, 255)
|
|
array2=array1
|
|
|
|
cx16.rombank(0)
|
|
for ii in array1 {
|
|
txt.print_ubhex(ii, false)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
for ii in array2 {
|
|
txt.print_ubhex(ii, false)
|
|
txt.spc()
|
|
}
|
|
txt.nl()
|
|
|
|
cx16.rombank(4)
|
|
|
|
repeat {
|
|
}
|
|
}
|
|
}
|