fix allocation bug
This commit is contained in:
parent
77fa8081ff
commit
b0730d0045
|
@ -484,6 +484,7 @@
|
||||||
#0004 ADD2 SUB2 #0002 DIV2 NIP ( dst (dst-(a+4))/2 )
|
#0004 ADD2 SUB2 #0002 DIV2 NIP ( dst (dst-(a+4))/2 )
|
||||||
;arena-pos LDA2 STH2k #0003 ADD2 STA ( dst [a] )
|
;arena-pos LDA2 STH2k #0003 ADD2 STA ( dst [a] )
|
||||||
;arena-pos STA2 STH2r ( a )
|
;arena-pos STA2 STH2r ( a )
|
||||||
|
#0000 OVR2 INC2 STA2 ( a )
|
||||||
DUP2 ;c-peek-and-finalize JMP2
|
DUP2 ;c-peek-and-finalize JMP2
|
||||||
&error
|
&error
|
||||||
#abcd #0000 DIV ( TODO error here )
|
#abcd #0000 DIV ( TODO error here )
|
||||||
|
|
Loading…
Reference in New Issue