6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-22 23:29:55 +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('$') // putc('$')
// call($FDDA, h, 0, 0, 0) // call($FDDA, h, 0, 0, 0)
//end //end
def prword(h)#0 //def prword(h)#0
putc('$') // putc('$')
call($F941, h >> 8, h, 0, 0) // call($F941, h >> 8, h, 0, 0)
end //end
//def putname(pchr)#0 //def putname(pchr)#0
// byte c // byte c
// //
@ -330,16 +330,17 @@ end
// //
// Uninitialized placeholders of API // Uninitialized placeholders of API
// //
def uninit0() def uninit
puts("SANE not initialized\n") puts("SANE not initialized\n")
return -1 return -1
end end
def uninit0()
return uninit
end
def uninit1(op, dst) def uninit1(op, dst)
puts("SANE not initialized\n") return uninit
return -1
end end
def uninit2(op, dst, src) def uninit2(op, dst, src)
puts("SANE not initialized\n") return uninit
return -1
end end
done 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:fpOp2(FFINT|FOX2Z, @iC, @xT) // Convert ext T to int C
sane:zpRestore() sane:zpRestore()
puti(iA); putc('+'); puti(iB); putc('='); puti(iC); putc('\n') 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 done