mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-08-21 21:29:08 +00:00
Update a few more tests
This commit is contained in:
parent
7a8b754794
commit
6ea55e3038
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user