Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-01 06:16:15 +00:00
Code Issues Projects Releases Wiki Activity

assem optimize 4 letter mnems for size

Browse Source
This commit is contained in:
Irmen de Jong
2021-01-03 02:17:10 +01:00
parent f0930d8a18
commit 3e7c7ab497
2 changed files with 42 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/assembler/assem.p8
View File

@@ -24,8 +24,8 @@ main {
} }
txt.chrout('\n') txt.chrout('\n')
;user_input() user_input()
benchmark() ;benchmark()
; test_stack.test() ; test_stack.test()
} }

53
examples/assembler/gen_opcodes.py
View File

@@ -519,19 +519,11 @@ for first in tree:
for third in tree[first][second]: for third in tree[first][second]:
print(" cpy #'%s'" % third) print(" cpy #'%s'" % third)
print(" bne _not_%s%s%s" % (first, second, third)) print(" bne _not_%s%s%s" % (first, second, third))
if tree[first][second][third]: fourth = tree[first][second][third]
# TODO OPTIMIZE CODE FOR THE FOUR LETTER MNEMONICS (the fourth letter is always a digit 0-9) if fourth:
for fourth in tree[first][second][third]: if "".join(fourth.keys()) != "01234567":
print(" pha") raise ValueError("fourth", fourth.keys())
print(" lda _opcode_fourth_letter") print(" bra _check_%s%s%s" % (first, second, third))
print(" cmp #'%s'" % fourth)
print(" bne _not_%s%s%s%s" % (first, second, third, fourth))
print(" pla")
print(" lda #<i_%s%s%s%s" % (first, second, third, fourth))
print(" ldy #>i_%s%s%s%s" % (first, second, third, fourth))
print(" rts")
print("_not_%s%s%s%s:" % (first, second, third, fourth))
print(" pla")
else: else:
print(" lda #<i_%s%s%s" % (first, second, third)) print(" lda #<i_%s%s%s" % (first, second, third))
print(" ldy #>i_%s%s%s" % (first, second, third)) print(" ldy #>i_%s%s%s" % (first, second, third))
@@ -539,7 +531,42 @@ for first in tree:
print("_not_%s%s%s:" % (first, second, third)) print("_not_%s%s%s:" % (first, second, third))
print("_not_%s%s:" % (first, second)) print("_not_%s%s:" % (first, second))
print("_not_%s:" % first) print("_not_%s:" % first)
print("_invalid:")
print(" lda #0") print(" lda #0")
print(" ldy #0") print(" ldy #0")
print(" rts") print(" rts")
# the 4-letter mnemonics are:
# smb[0-7]
# bbr[0-7]
# rmb[0-7]
# bbs[0-7]
for fourlettermnemonic in ["smb", "bbr", "rmb", "bbs"]:
print("_check_%s" % fourlettermnemonic)
print(" lda #<_tab_%s" % fourlettermnemonic)
print(" ldy #>_tab_%s" % fourlettermnemonic)
print(""" sta P8ZP_SCRATCH_W2
sty P8ZP_SCRATCH_W2+1
bra _check4""")
print("""_check4
lda _opcode_fourth_letter
cmp #'0'
bcc _invalid
cmp #'8'
bcs _invalid
ldy #0
lda (P8ZP_SCRATCH_W2),y
pha
iny
lda (P8ZP_SCRATCH_W2),y
tay
pla
rts""")
for fourlettermnemonic in ["smb", "bbr", "rmb", "bbs"]:
print("_tab_%s" % fourlettermnemonic)
for ii in "01234567":
print(" .word i_%s%s" % (fourlettermnemonic, ii))
print(" .pend") print(" .pend")