6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-07 15:31:49 +00:00
Code Issues Projects Releases Wiki Activity

SANE string conversions

Browse Source
This commit is contained in:
David Schmenk 2017-11-17 20:35:46 -08:00
parent 05d96070bd
commit 09a54be674
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/samplesrc/sanity.pla
View File

@ -8,8 +8,9 @@ include "inc/sane.plh"
//
word iA, iB, iC, zero, fpEnv
byte xT[t_extended]
word decform = 0, 4
byte strA[29] = "8.5"
word decrec = 0, 0
byte strA[28] = "10"
word decform = 0, 6
//
// My custom SANE exception handler
//
@ -57,17 +58,6 @@ sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore()
puti(iA); putc('/'); puti(iB); putc('='); puti(iC); putc('\n')
//
// Convert string to and from SANE
//
sane:zpSave()
sane:fpOp2(FFEXT|FOD2B, @xT, "8.5")
//sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
sane:fpOp2(FFINT|FODIV, @xT, @iB) // Div int B into ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:fpOp3(FFEXT|FOB2D, @strA, @xT, @decform)
sane:zpRestore()
puts("8.5 / 4 = "); puts(@strA); putc('('); puti(iC); putc(')'); putln
//
// Hook custom HALT exception handler and divide by zero :-)
//
sane:zpSave()
@ -82,4 +72,15 @@ sane:fpOp2(FFINT|FODIV, @xT, @zero) // Div ZERO into ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore()
puti(iA); putc('/'); puti(zero); putc('='); puti(iC); putc('\n')
//
// Convert string to and from SANE
//
sane:zpSave()
sane:fpOp2(FFEXT|FOD2B, @xT, @decrec)
//sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
sane:fpOp2(FFINT|FODIV, @xT, @iB) // Div int B into ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:fpOp3(FFEXT|FOB2D, @decrec, @xT, @decform)
sane:zpRestore()
puts("10 / 4 = "); puts(@strA); putc('e'); puti(decrec:2); putc('('); puti(iC); putc(')'); putln
done