x16-fp24-test.bas

10 REM LOAD "TEST.PRG",8,1
11 A = 320
12 B = 1.5
20 POKE $28,INT((A - INT(A))*256)
30 POKE $29,(INT(A) - 256*INT(INT(A)/256))
40 POKE $2A,INT(INT(A)/256)
50 POKE $2B,INT((B - INT(B))*256)
60 POKE $2C,(INT(B) - 256*INT(INT(B)/256))
70 POKE $2D,INT(INT(B)/256)
80 SYS $9000
90 GOSUB 1000
100 SYS $9003
110 GOSUB 1000
120 SYS $9006
130 GOSUB 1000
140 SYS $9009
150 GOSUB 1000
160 END

1000 C = PEEK($2E)/256 + PEEK($2F) + PEEK($30)*256
1010 PRINT C
1020 RETURN