6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-07-20 13:28:56 +00:00
Code Issues Projects Releases Wiki Activity

Update a few more tests

Browse Source
This commit is contained in:
David Schmenk 2017-11-15 15:22:01 -08:00
parent 7a8b754794
commit 6ea55e3038
2 changed files with 28 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/libsrc/sane.pla
View File

@ -148,10 +148,10 @@ end
// putc('$')
// call($FDDA, h, 0, 0, 0)
//end
def prword(h)#0
putc('$')
call($F941, h >> 8, h, 0, 0)
end
//def prword(h)#0
// putc('$')
// call($F941, h >> 8, h, 0, 0)
//end
//def putname(pchr)#0
// byte c
//
@ -330,16 +330,17 @@ end
//
// Uninitialized placeholders of API
//
def uninit0()
def uninit
puts("SANE not initialized\n")
return -1
end
def uninit0()
return uninit
end
def uninit1(op, dst)
puts("SANE not initialized\n")
return -1
return uninit
end
def uninit2(op, dst, src)
puts("SANE not initialized\n")
return -1
return uninit
end
done

18
src/samplesrc/sanity.pla
View File

@ -30,4 +30,22 @@ sane:fpOp2(FFINT|FOADD, @xT, @iB) // Add int B to ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore()
puti(iA); putc('+'); puti(iB); putc('='); puti(iC); putc('\n')
sane:zpSave()
sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
sane:fpOp2(FFINT|FOSUB, @xT, @iB) // Add int B to ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore()
puti(iA); putc('-'); puti(iB); putc('='); puti(iC); putc('\n')
sane:zpSave()
sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
sane:fpOp2(FFINT|FOMUL, @xT, @iB) // Add int B to ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore()
puti(iA); putc('*'); puti(iB); putc('='); puti(iC); putc('\n')
sane:zpSave()
sane:fpOp2(FFINT|FOZ2X, @xT, @iA) // Convert int A to ext T
sane:fpOp2(FFINT|FODIV, @xT, @iB) // Add int B to ext T
sane:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore()
puti(iA); putc('/'); puti(iB); putc('='); puti(iC); putc('\n')
done