6502
/
l65
mirror of https://github.com/g012/l65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Added .w opcode suffix to force absolute over zeropage.

This commit is contained in:
g012 2017-09-04 00:13:13 +02:00
parent 9031730490
commit a8beaf1990
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
l65.lua
View File

@ -1145,21 +1145,29 @@ local function ParseLua(src)
end
end
if opcode_absolute[op] or opcode_absolute_x[op] or opcode_absolute_y[op] then
local suffix = ''
tok:Save()
if tok:ConsumeSymbol('.', tokenList) then
if tok:Get(tokenList).Data == 'w' then suffix = '_nozp'
else tok:Restore() tok:Save() end
end
local st, expr = ParseExpr(scope)
if st then
if not st then tok:Restore()
else
tok:Commit()
if not tok:ConsumeSymbol(',', tokenList) then
if not opcode_absolute[op] then return false, expr end
stat = emit_opcode(op .. "_absolute", expr) break
stat = emit_opcode(op .. "_absolute" .. suffix, expr) break
end
if tok:Peek().Data == 'x' then
if not opcode_absolute_x[op] then return false, expr end
tok:Get(tokenList)
stat = emit_opcode(op .. "_absolute_x", expr) break
stat = emit_opcode(op .. "_absolute_x" .. suffix, expr) break
end
if tok:Peek().Data == 'y' then
if not opcode_absolute_y[op] then return false, expr end
tok:Get(tokenList)
stat = emit_opcode(op .. "_absolute_x", expr) break
stat = emit_opcode(op .. "_absolute_x" .. suffix, expr) break
end
return false, expr
end