2019-07-22 16:58:55 +00:00
|
|
|
%import c64flt
|
|
|
|
|
%zeropage basicsafe
|
|
|
|
|
|
2019-07-29 21:11:13 +00:00
|
|
|
main {
|
2019-07-22 16:58:55 +00:00
|
|
|
|
|
|
|
|
sub start() {
|
2020-08-29 21:55:26 +00:00
|
|
|
print_rom_floats_values()
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
print_rom_floats()
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub print_rom_floats() {
|
|
|
|
|
c64flt.FL_PIVAL=9.9999
|
|
|
|
|
c64flt.print_f(c64flt.FL_PIVAL)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_N32768)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_FONE)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_SQRHLF)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_SQRTWO)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_NEGHLF)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_LOG2)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_TENC)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_NZMIL)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_FHALF)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_LOGEB2)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_PIHALF)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_TWOPI)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
c64flt.print_f(c64flt.FL_FR4)
|
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
}
|
2019-07-22 16:58:55 +00:00
|
|
|
|
2020-08-29 21:55:26 +00:00
|
|
|
sub print_rom_floats_values() {
|
2019-07-22 16:58:55 +00:00
|
|
|
; these are all floating point constants defined in the ROM so no allocation required
|
2020-08-29 21:55:26 +00:00
|
|
|
; the compiler recognises these and will substitute the ROM values automatically
|
2019-07-22 16:58:55 +00:00
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(3.141592653589793)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(-32768.0)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f( 1.0)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(0.7071067811865476)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(1.4142135623730951)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f( -0.5)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(0.6931471805599453)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(10.0)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(1.0e9)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(0.5)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(1.4426950408889634)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(1.5707963267948966)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(6.283185307179586)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(0.25)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
2019-07-23 22:39:01 +00:00
|
|
|
c64flt.print_f(0.0)
|
2019-07-22 16:58:55 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
}
|
|
|
|
|
}
|
