Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-10 23:29:02 +00:00
Code Issues Projects Releases Wiki Activity

implemented last remaining codegen for word-byte division and remainders.

Browse Source
This commit is contained in:
Irmen de Jong 2021-03-25 22:02:45 +01:00
parent d840975054
commit 4cae2c56ec
3 changed files with 38 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/res/version.txt
View File

@ -1 +1 @@
6.4-SNAPSHOT
6.4

45
compiler/src/prog8/compiler/target/cpu6502/codegen/assignment/AugmentableAssignmentAsmGen.kt
View File

@ -1051,20 +1051,47 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
}
"/" -> {
if(dt==DataType.UWORD) {
TODO("uwordvar / bytevar")
asmgen.out("""
lda $name
ldy $name+1
sta P8ZP_SCRATCH_W1
sty P8ZP_SCRATCH_W1+1
lda $otherName
ldy #0
jsr math.divmod_uw_asm
sta $name
sty $name+1
""")
} else {
TODO("wordvar / bytevar")
asmgen.out("""
lda $name
ldy $name+1
sta P8ZP_SCRATCH_W1
sty P8ZP_SCRATCH_W1+1
lda $otherName
ldy #0
jsr math.divmod_w_asm
sta $name
sty $name+1
""")
}
}
"%" -> {
if(valueDt!=DataType.UBYTE || dt!=DataType.UWORD)
throw AssemblyError("% expects unsigned operands")
if(dt==DataType.UWORD) {
TODO("uwordvar % ubytevar")
} else {
TODO("wordvar % ubytevar")
}
}
throw AssemblyError("remainder of signed integers is not properly defined/implemented, use unsigned instead")
asmgen.out("""
lda $name
ldy $name+1
sta P8ZP_SCRATCH_W1
sty P8ZP_SCRATCH_W1+1
lda $otherName
ldy #0
jsr math.divmod_uw_asm
lda P8ZP_SCRATCH_W2
sta $name
lda P8ZP_SCRATCH_W2+1
sta $name+1
""") }
"<<" -> {
asmgen.out("""
ldy $otherName

36
examples/test.p8
View File

@ -5,41 +5,7 @@ main {
sub start() {
word wvar
word wvar2
uword uwvar
uword uwvar2
byte bvar
byte bvar2
ubyte ubvar
uwvar result
uwvar = 49999
uwvar2 = 1234
result = uwvar / uwvar2
txt.print_uw(result)
result = uwvar % uwvar2
txt.print_uw(result)
; uwvar %= uwvar2
; wvar /= bvar
; uwvar /= bvar
; uwvar %= ubvar
; ubyte[] array = [1,2,3,4]
; ubyte ix
;
; ubyte a = array[1] + array[ix]
; a = array[ix] + array[ix]
; a = array[ix+1] + array[ix]
; uword multiple=0
; a = array[lsb(multiple)] + array[ix]
txt.print("hello")
; str filename = "titlescreen.bin"
; ubyte success = cx16.vload(filename, 8, 0, $0000)