2019-08-02 23:51:12 +00:00
|
|
|
%import c64lib
|
|
|
|
%import c64utils
|
|
|
|
%import c64flt
|
2019-07-01 21:41:30 +00:00
|
|
|
%zeropage basicsafe
|
2019-03-29 01:13:28 +00:00
|
|
|
|
2019-07-29 21:11:13 +00:00
|
|
|
main {
|
2019-04-21 01:04:13 +00:00
|
|
|
|
2019-07-15 21:05:04 +00:00
|
|
|
sub start() {
|
2019-08-02 23:51:12 +00:00
|
|
|
; float fl = 123.4567
|
|
|
|
; c64flt.print_f(round(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(round(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(round(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(ceil(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(ceil(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(ceil(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(floor(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(floor(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; c64flt.print_f(floor(fl))
|
|
|
|
; c64.CHROUT('\n')
|
|
|
|
; @($040a)=X
|
|
|
|
; return
|
2019-07-30 22:14:12 +00:00
|
|
|
|
2019-08-02 23:51:12 +00:00
|
|
|
while true {
|
|
|
|
float clock_seconds = ((mkword(c64.TIME_LO, c64.TIME_MID) as float) + (c64.TIME_HI as float)*65536.0) / 60
|
|
|
|
float hours = floor(clock_seconds / 3600)
|
|
|
|
clock_seconds -= hours*3600
|
|
|
|
float minutes = floor(clock_seconds / 60)
|
|
|
|
clock_seconds = floor(clock_seconds - minutes * 60.0)
|
|
|
|
|
|
|
|
c64scr.print("system time in ti$ is ")
|
|
|
|
c64flt.print_f(hours)
|
|
|
|
c64.CHROUT(':')
|
|
|
|
c64flt.print_f(minutes)
|
|
|
|
c64.CHROUT(':')
|
|
|
|
c64flt.print_f(clock_seconds)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
}
|
2019-07-22 16:58:55 +00:00
|
|
|
}
|
2019-04-11 22:04:15 +00:00
|
|
|
}
|