nanochess/IntyBASIC

Bug in varptr

artrag opened this issue · 0 comments

this seems a bug in the way varptr expressions are evaluated

This code

;[47] 	nn = (varptr sfx2_v(0)-varptr sfx2_n(0))-sfxstep
SRCFILE "isrsfx.bas",47
MVII #(label_SFX2_V-label_SFX2_N) AND $FFFF,R3
SUB var_SFXSTEP,R0
MVO R0,var_NN

should be

;[47] 	nn = (varptr sfx2_v(0)-varptr sfx2_n(0))-sfxstep
SRCFILE "isrsfx.bas",47
MVII #(label_SFX2_V-label_SFX2_N) AND $FFFF,R0
SUB var_SFXSTEP,R0
MVO R0,var_NN