2019-07-15 01:57:51 +00:00
|
|
|
%import c64flt
|
2019-07-01 21:41:30 +00:00
|
|
|
%zeropage basicsafe
|
2019-07-15 01:57:51 +00:00
|
|
|
%option enable_floats
|
2019-03-29 01:13:28 +00:00
|
|
|
|
2019-03-19 00:22:26 +00:00
|
|
|
~ main {
|
2019-04-21 01:04:13 +00:00
|
|
|
|
2019-07-15 21:05:04 +00:00
|
|
|
sub start() {
|
2019-07-29 00:47:01 +00:00
|
|
|
uword target = 4444
|
2019-07-29 20:06:59 +00:00
|
|
|
; @($d020) = A
|
|
|
|
; @($d020) = A+4
|
|
|
|
; @(target) = A+4
|
|
|
|
; @(target+4) = A+4
|
2019-07-28 22:33:19 +00:00
|
|
|
|
2019-07-29 20:06:59 +00:00
|
|
|
whenubyte(20)
|
|
|
|
whenubyte(111)
|
|
|
|
whenbyte(-10)
|
|
|
|
whenbyte(-111)
|
|
|
|
whenbyte(0)
|
|
|
|
|
|
|
|
whenuword(500)
|
|
|
|
whenuword(44)
|
|
|
|
whenword(-3000)
|
|
|
|
whenword(-44)
|
|
|
|
whenword(0)
|
|
|
|
|
|
|
|
sub whenbyte(byte value) {
|
|
|
|
when value {
|
|
|
|
-4 -> c64scr.print("minusfour")
|
|
|
|
-5 -> c64scr.print("minusfive")
|
|
|
|
-10,-20,-30 -> {
|
|
|
|
c64scr.print("minusten or twenty or thirty")
|
|
|
|
}
|
|
|
|
-99 -> c64scr.print("minusninetynine")
|
|
|
|
else -> c64scr.print("don't know")
|
|
|
|
}
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
}
|
|
|
|
|
|
|
|
sub whenubyte(ubyte value) {
|
|
|
|
when value {
|
|
|
|
4 -> c64scr.print("four")
|
|
|
|
5 -> c64scr.print("five")
|
|
|
|
10,20,30 -> {
|
|
|
|
c64scr.print("ten or twenty or thirty")
|
|
|
|
}
|
|
|
|
99 -> c64scr.print("ninetynine")
|
|
|
|
else -> c64scr.print("don't know")
|
|
|
|
}
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
}
|
|
|
|
|
|
|
|
sub whenuword(uword value) {
|
|
|
|
when value {
|
|
|
|
400 -> c64scr.print("four100")
|
|
|
|
500 -> c64scr.print("five100")
|
|
|
|
1000,2000,3000 -> {
|
|
|
|
c64scr.print("thousand 2thousand or 3thousand")
|
|
|
|
}
|
|
|
|
9999 -> c64scr.print("ninetynine99")
|
|
|
|
else -> c64scr.print("don't know")
|
|
|
|
}
|
2019-07-29 20:47:04 +00:00
|
|
|
|
2019-07-29 20:06:59 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
}
|
|
|
|
|
|
|
|
sub whenword(word value) {
|
|
|
|
when value {
|
|
|
|
-400 -> c64scr.print("minusfour100")
|
|
|
|
-500 -> c64scr.print("minusfive100")
|
|
|
|
-1000,-2000,-3000 -> {
|
|
|
|
c64scr.print("minusthousand 2thousand or 3thousand")
|
|
|
|
}
|
|
|
|
-9999 -> c64scr.print("minusninetynine99")
|
|
|
|
else -> c64scr.print("don't know")
|
|
|
|
}
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
}
|
2019-07-22 16:58:55 +00:00
|
|
|
}
|
2019-04-11 22:04:15 +00:00
|
|
|
}
|