2023-09-14 23:04:23 +02:00
|
|
|
%import textio
|
2023-09-05 22:38:52 +02:00
|
|
|
%zeropage basicsafe
|
2023-08-14 21:49:13 +02:00
|
|
|
|
2023-08-14 00:50:40 +02:00
|
|
|
main {
|
2023-09-05 22:38:52 +02:00
|
|
|
sub start() {
|
2023-09-15 01:23:47 +02:00
|
|
|
uword zz = $ea45
|
|
|
|
|
txt.print_uwhex(zz, true)
|
|
|
|
|
txt.nl()
|
|
|
|
|
|
|
|
|
|
setlsb(zz, $11)
|
|
|
|
|
txt.print_uwhex(zz, true)
|
|
|
|
|
txt.nl()
|
|
|
|
|
setmsb(zz, $22)
|
|
|
|
|
txt.print_uwhex(zz, true)
|
|
|
|
|
txt.nl()
|
|
|
|
|
txt.nl()
|
|
|
|
|
|
|
|
|
|
uword[] array = [$1234,$5678,$abcd] ; TODO also with @split
|
2023-09-05 22:59:36 +02:00
|
|
|
|
2023-09-15 01:23:47 +02:00
|
|
|
ubyte one = 1
|
|
|
|
|
ubyte two = 2
|
|
|
|
|
txt.print_uwhex(array[1], true)
|
2023-09-14 23:04:23 +02:00
|
|
|
txt.nl()
|
2023-09-15 01:23:47 +02:00
|
|
|
txt.print_uwhex(array[2], true)
|
2023-09-14 23:04:23 +02:00
|
|
|
txt.nl()
|
2023-09-15 01:23:47 +02:00
|
|
|
setlsb(array[one],$ff)
|
|
|
|
|
setmsb(array[two],$00)
|
|
|
|
|
txt.print_uwhex(array[1], true)
|
2023-09-14 23:04:23 +02:00
|
|
|
txt.nl()
|
2023-09-15 01:23:47 +02:00
|
|
|
txt.print_uwhex(array[2], true)
|
2023-09-14 23:04:23 +02:00
|
|
|
txt.nl()
|
2023-08-12 13:42:24 +02:00
|
|
|
}
|
2023-07-10 22:03:48 +02:00
|
|
|
}
|
