Skip to content

Make relative jumps use @z80.byte too. #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Make relative jumps use @z80.byte too. #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 10 additions & 5 deletions z80.alm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -270,7 +270,8 @@ macro ?! isreg: metadata 1 element 1 eq @z80
compute offset, lhs - $ - 2
check -200o <= offset & offset < 200o
jno errrange
emit 1: 020o, @offset
emit 1: 020o
execute =@z80.=byte @offset
exit
errindirection:
err 'invalid indirection'
Expand All @@ -294,13 +295,15 @@ macro ?! isreg: metadata 1 element 1 eq @z80
check -200o <= offset & offset < 200o
jno errrange
compute opcode, lhs metadata 1 scale 0 and 030o or 040o
emit 1: @opcode, @offset
emit 1: @opcode
execute =@z80.=byte @offset
exit
unconditional:
compute offset, lhs - $ - 2
check -200o <= offset & offset < 200o
jno errrange
emit 1: 030o, @offset
emit 1: 030o
execute =@z80.=byte @offset
exit
errindirection:
err 'invalid indirection'
Expand Down Expand Up @@ -335,10 +338,12 @@ macro ?! isreg: metadata 1 element 1 eq @z80
lhs metadata 1 scale 0 and 047o = 001o
jno farconditional
compute opcode, lhs metadata 1 scale 0 and 030o or 040o
emit 1: @opcode, @offset
emit 1: @opcode
execute =@z80.=byte @offset
jump after
nearunconditional:
emit 1: 030o, @offset
emit 1: 030o
execute =@z80.=byte @offset
jump after
far:
match , lhs
Expand Down