2020-09-20 21:49:36 +00:00
|
|
|
%import syslib
|
2020-09-21 16:42:28 +00:00
|
|
|
; %import graphics
|
2020-09-20 21:49:36 +00:00
|
|
|
%import textio
|
2020-09-21 21:39:25 +00:00
|
|
|
%zeropage basicsafe
|
2020-09-05 00:05:28 +00:00
|
|
|
|
2020-08-27 17:47:50 +00:00
|
|
|
|
2020-09-23 20:29:21 +00:00
|
|
|
main $0900{
|
2020-09-05 00:05:28 +00:00
|
|
|
|
2020-09-16 21:04:18 +00:00
|
|
|
sub start() {
|
2020-09-22 19:50:56 +00:00
|
|
|
ubyte v = 1
|
|
|
|
@($c000+v) = 10
|
|
|
|
|
|
|
|
txt.print_ub(@($c001))
|
|
|
|
txt.chrout('\n')
|
|
|
|
|
|
|
|
@($c000+v) ++
|
|
|
|
txt.print_ub(@($c001))
|
|
|
|
txt.chrout('\n')
|
|
|
|
|
|
|
|
@($c000+v) += 10
|
|
|
|
txt.print_ub(@($c001))
|
|
|
|
txt.chrout('\n')
|
|
|
|
|
|
|
|
@($c000+v) *= 10
|
|
|
|
txt.print_ub(@($c001))
|
|
|
|
txt.chrout('\n')
|
|
|
|
|
|
|
|
; @($c000) *= 99 ; TODO implement
|
|
|
|
|
2020-09-16 21:04:18 +00:00
|
|
|
}
|
2020-08-27 17:47:50 +00:00
|
|
|
}
|