2024-04-07 20:31:56 +00:00
|
|
|
%import textio
|
2024-03-12 22:39:54 +00:00
|
|
|
%zeropage basicsafe
|
2024-03-20 21:34:39 +00:00
|
|
|
%option no_sysinit
|
2023-12-31 00:02:33 +00:00
|
|
|
|
2024-01-07 17:48:18 +00:00
|
|
|
main {
|
2024-04-10 20:04:03 +00:00
|
|
|
ubyte[255] array1
|
|
|
|
ubyte[255] array2
|
|
|
|
uword block1 = memory("b1", 6000 ,0)
|
|
|
|
uword block2 = memory("b2", 6000 ,0)
|
|
|
|
|
2024-03-02 13:26:02 +00:00
|
|
|
sub start() {
|
2024-04-10 20:04:03 +00:00
|
|
|
cbm.SETTIM(0,0,0)
|
|
|
|
|
|
|
|
repeat 2000 {
|
|
|
|
sys.memcopy(array1, array2, sizeof(array1))
|
|
|
|
}
|
|
|
|
|
|
|
|
txt.print_uw(cbm.RDTIM16())
|
|
|
|
txt.nl()
|
|
|
|
|
|
|
|
cbm.SETTIM(0,0,0)
|
|
|
|
|
|
|
|
repeat 2000 {
|
|
|
|
cx16.memory_copy(array1, array2, sizeof(array1))
|
|
|
|
}
|
|
|
|
|
|
|
|
txt.print_uw(cbm.RDTIM16())
|
|
|
|
txt.nl()
|
|
|
|
|
|
|
|
cbm.SETTIM(0,0,0)
|
|
|
|
|
|
|
|
repeat 100 {
|
|
|
|
sys.memcopy(block1, block2, 6000)
|
|
|
|
}
|
|
|
|
|
|
|
|
txt.print_uw(cbm.RDTIM16())
|
|
|
|
txt.nl()
|
|
|
|
|
|
|
|
cbm.SETTIM(0,0,0)
|
|
|
|
|
|
|
|
repeat 100 {
|
|
|
|
cx16.memory_copy(block1, block2, 6000)
|
|
|
|
}
|
|
|
|
|
|
|
|
txt.print_uw(cbm.RDTIM16())
|
|
|
|
txt.nl()
|
2024-03-28 22:24:14 +00:00
|
|
|
}
|
2024-03-16 19:58:45 +00:00
|
|
|
}
|
2024-04-09 16:30:56 +00:00
|
|
|
|