Factor out dumpFloat in calculator.asm
This commit is contained in:
parent
8356dbbd93
commit
66dd813d7b
|
@ -2,34 +2,10 @@ org 0
|
||||||
|
|
||||||
cleq r0, r0, normalize
|
cleq r0, r0, normalize
|
||||||
|
|
||||||
xor r0, r0
|
|
||||||
load r1, #12
|
|
||||||
cleq r0, r0, pushWord
|
|
||||||
load r0, fResultPtr+0
|
load r0, fResultPtr+0
|
||||||
load r1, fResultPtr+1
|
load r1, fResultPtr+1
|
||||||
cleq r0, r0, pushWord
|
cleq r0, r0, pushWord
|
||||||
dumpFResult:
|
cleq r0, r0, dumpFloat
|
||||||
cleq r0, r0, stSwap
|
|
||||||
cleq r0, r0, peekWord
|
|
||||||
or r0, r1
|
|
||||||
xor r2, r2
|
|
||||||
breq r0, r2, dumpFResultEnd
|
|
||||||
cleq r0, r0, stDec
|
|
||||||
|
|
||||||
cleq r0, r0, stSwap
|
|
||||||
cleq r0, r0, stDup
|
|
||||||
cleq r0, r0, stLoadByte
|
|
||||||
cleq r0, r0, popWord
|
|
||||||
xor r0, r0
|
|
||||||
or r0, r1
|
|
||||||
cleq r0, r0, writehexByte
|
|
||||||
load r0, #20
|
|
||||||
store ffff, r0
|
|
||||||
cleq r0, r0, stInc
|
|
||||||
breq r0, r0, dumpFResult
|
|
||||||
|
|
||||||
dumpFResultEnd:
|
|
||||||
cleq r0, r0, newline
|
|
||||||
|
|
||||||
load r0, fResultPtr+0
|
load r0, fResultPtr+0
|
||||||
load r1, fResultPtr+1
|
load r1, fResultPtr+1
|
||||||
|
@ -78,6 +54,36 @@ printend:
|
||||||
cleq r0, r0, newline
|
cleq r0, r0, newline
|
||||||
halt
|
halt
|
||||||
|
|
||||||
|
dumpFloat:
|
||||||
|
xor r0, r0
|
||||||
|
load r1, #12
|
||||||
|
cleq r0, r0, pushWord
|
||||||
|
dumpFloatLoop:
|
||||||
|
cleq r0, r0, peekWord
|
||||||
|
or r0, r1
|
||||||
|
xor r2, r2
|
||||||
|
breq r0, r2, dumpFloatEnd
|
||||||
|
cleq r0, r0, stDec
|
||||||
|
|
||||||
|
cleq r0, r0, stSwap
|
||||||
|
cleq r0, r0, stDup
|
||||||
|
cleq r0, r0, stLoadByte
|
||||||
|
cleq r0, r0, popWord
|
||||||
|
xor r0, r0
|
||||||
|
or r0, r1
|
||||||
|
cleq r0, r0, writehexByte
|
||||||
|
load r0, #20
|
||||||
|
store ffff, r0
|
||||||
|
cleq r0, r0, stInc
|
||||||
|
cleq r0, r0, stSwap
|
||||||
|
breq r0, r0, dumpFloatLoop
|
||||||
|
|
||||||
|
dumpFloatEnd:
|
||||||
|
cleq r0, r0, popWord
|
||||||
|
cleq r0, r0, popWord
|
||||||
|
breq r0, r0, newline
|
||||||
|
|
||||||
|
|
||||||
debug:
|
debug:
|
||||||
store debugr0, r0
|
store debugr0, r0
|
||||||
store debugr1, r1
|
store debugr1, r1
|
||||||
|
|
Loading…
Reference in New Issue