Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-01-12 04:30:03 +00:00
Code Issues Projects Releases Wiki Activity

assignments

Browse Source
This commit is contained in:
Irmen de Jong 2018-11-08 23:46:29 +01:00
parent 9c26066dcb
commit 886464d94a
2 changed files with 231 additions and 236 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

244
compiler/examples/test.p8
View File

@ -268,24 +268,23 @@ ubyte_assignment_to_ubytearray:
string[mubyte2] = mubyte2
string[mubyte2] = ubarr1[2]
; ubarr2[mubyte2] = string[X] ;;todo via evaluation
; ubarr2[mubyte2] = string[b] ;todo via evaluation
; ubarr2[mubyte2] = string[ub] ;todo via evaluation
; ubarr2[mubyte2] = string[mbyte2] ;todo via evaluation
; ubarr2[mubyte2] = string[mubyte2] ;todo via evaluation
; ubarr2[mubyte2] = ubarr1[X] ;todo via evaluation
; ubarr2[mubyte2] = ubarr1[b] ;todo via evaluation
; ubarr2[mubyte2] = ubarr1[ub] ;todo via evaluation
; ubarr2[mubyte2] = ubarr1[mbyte2] ;todo via evaluation
; ubarr2[mubyte2] = ubarr1[mubyte2] ;todo via evaluation
; string[mubyte2] = ubarr1[Y] ;todo via evaluation
; string[mubyte2] = ubarr1[b] ;todo via evaluation
; string[mubyte2] = ubarr1[ub2] ;todo via evaluation
; string[mubyte2] = ubarr1[mbyte2] ;todo via evaluation
; string[mubyte2] = ubarr1[mubyte2] ;todo via evaluation
; string[mubyte2] = string[mubyte2] ;todo via evaluation
;
; ubarr1[ubarr2[X]] = ubarr2[ubarr1[Y]] ; todo via evaluation-- check generated asm...
ubarr2[mubyte2] = string[Y] ; via evaluation
ubarr2[mubyte2] = string[b] ; via evaluation
ubarr2[mubyte2] = string[ub] ; via evaluation
ubarr2[mubyte2] = string[mbyte2] ; via evaluation
ubarr2[mubyte2] = string[mubyte2] ; via evaluation
ubarr2[mubyte2] = ubarr1[Y] ; via evaluation
ubarr2[mubyte2] = ubarr1[b] ; via evaluation
ubarr2[mubyte2] = ubarr1[ub] ; via evaluation
ubarr2[mubyte2] = ubarr1[mbyte2] ; via evaluation
ubarr2[mubyte2] = ubarr1[mubyte2] ; via evaluation
string[mubyte2] = ubarr1[Y] ; via evaluation
string[mubyte2] = ubarr1[b] ; via evaluation
string[mubyte2] = ubarr1[ub2] ; via evaluation
string[mubyte2] = ubarr1[mbyte2] ; via evaluation
string[mubyte2] = ubarr1[mubyte2] ; via evaluation
string[mubyte2] = string[mubyte2] ; via evaluation
ubarr1[ubarr2[A]] = ubarr2[ubarr1[Y]] ; via evaluation-- todo check generated asm...
@ -335,19 +334,12 @@ byte_assignment_to_bytearray:
barr2[mubyte2] = b2
barr2[mubyte2] = mbyte2
barr2[mubyte2] = barr1[2]
; barr2[mubyte2] = string[X] ;;todo via evaluation
; barr2[mubyte2] = string[b] ;todo via evaluation
; barr2[mubyte2] = string[ub] ;todo via evaluation
; barr2[mubyte2] = string[mbyte2] ;todo via evaluation
; barr2[mubyte2] = string[mubyte2] ;todo via evaluation
; barr2[mubyte2] = ubarr1[X] ;todo via evaluation
; barr2[mubyte2] = ubarr1[b] ;todo via evaluation
; barr2[mubyte2] = ubarr1[ub] ;todo via evaluation
; barr2[mubyte2] = ubarr1[mbyte2] ;todo via evaluation
; barr2[mubyte2] = ubarr1[mubyte2] ;todo via evaluation
;
; barr1[ubarr2[X]] = barr2[ubarr1[Y]] ; todo via evaluation-- check generated asm...
barr2[mubyte2] = barr1[Y] ; via evaluation
barr2[mubyte2] = barr1[b] ; via evaluation
barr2[mubyte2] = barr1[ub] ; via evaluation
barr2[mubyte2] = barr1[mbyte2] ; via evaluation
barr2[mubyte2] = barr1[mubyte2] ; via evaluation
barr1[ubarr2[A]] = barr2[ubarr1[Y]] ; via evaluation-- todo check generated asm...
byte_assignment_to_membytearray:
@ -396,19 +388,12 @@ byte_assignment_to_membytearray:
mbarr1[mubyte2] = b2
mbarr1[mubyte2] = mbyte2
mbarr1[mubyte2] = barr1[2]
; mbarr1[mubyte2] = string[X] ;;todo via evaluation
; mbarr1[mubyte2] = string[b] ;todo via evaluation
; mbarr1[mubyte2] = string[ub] ;todo via evaluation
; mbarr1[mubyte2] = string[mbyte2] ;todo via evaluation
; mbarr1[mubyte2] = string[mubyte2] ;todo via evaluation
; mbarr1[mubyte2] = ubarr1[X] ;todo via evaluation
; mbarr1[mubyte2] = ubarr1[b] ;todo via evaluation
; mbarr1[mubyte2] = ubarr1[ub] ;todo via evaluation
; mbarr1[mubyte2] = ubarr1[mbyte2] ;todo via evaluation
; mbarr1[mubyte2] = ubarr1[mubyte2] ;todo via evaluation
; mbarr1[ubarr2[X]] = barr2[ubarr1[Y]] ; todo via evaluation-- check generated asm...
mbarr1[mubyte2] = barr1[Y] ; via evaluation
mbarr1[mubyte2] = barr1[b] ; via evaluation
mbarr1[mubyte2] = barr1[ub] ; via evaluation
mbarr1[mubyte2] = barr1[mbyte2] ; via evaluation
mbarr1[mubyte2] = barr1[mubyte2] ; via evaluation
mbarr1[ubarr2[A]] = barr2[ubarr1[Y]] ; via evaluation-- todo check generated asm...
@ -456,21 +441,21 @@ uword_assignment_to_uwordmem:
muword = string[4]
muword = ubarr1[2]
muword = uwarr1[2]
; muword = string[X]
; muword = string[b]
; muword = string[ub]
; muword = string[mbyte2]
; muword = string[mubyte2]
; muword = ubarr1[X]
; muword = ubarr1[b]
; muword = ubarr1[ub]
; muword = ubarr1[mbyte2]
; muword = ubarr1[mubyte2]
; muword = uwarr1[X]
; muword = uwarr1[b]
; muword = uwarr1[ub]
; muword = uwarr1[mbyte2]
; muword = uwarr1[mubyte2]
muword = string[X]
muword = string[b]
muword = string[ub]
muword = string[mbyte2]
muword = string[mubyte2]
muword = ubarr1[X]
muword = ubarr1[b]
muword = ubarr1[ub]
muword = ubarr1[mbyte2]
muword = ubarr1[mubyte2]
muword = uwarr1[X]
muword = uwarr1[b]
muword = uwarr1[ub]
muword = uwarr1[mbyte2]
muword = uwarr1[mubyte2]
uword_assignment_to_uwordarray:
@ -547,21 +532,21 @@ uword_assignment_to_uwordarray:
uwarr1[mubyte2] = uwarr1[2]
; uwarr1[2] = string[X] ; todo via evaluation
; uwarr1[2] = string[b] ; todo via evaluation
; uwarr1[2] = string[ub] ; todo via evaluation
; uwarr1[2] = string[mbyte2] ; todo via evaluation
; uwarr1[2] = string[mubyte2] ; todo via evaluation
; uwarr1[2] = ubarr1[X] ; todo via evaluation
; uwarr1[2] = ubarr1[b] ; todo via evaluation
; uwarr1[2] = ubarr1[ub] ; todo via evaluation
; uwarr1[2] = ubarr1[mbyte2] ; todo via evaluation
; uwarr1[2] = ubarr1[mubyte2] ; todo via evaluation
; uwarr1[2] = uwarr1[X] ; todo via evaluation
; uwarr1[2] = uwarr1[b] ; todo via evaluation
; uwarr1[2] = uwarr1[ub] ; todo via evaluation
; uwarr1[2] = uwarr1[mbyte2] ; todo via evaluation
; uwarr1[2] = uwarr1[mubyte2] ; todo via evaluation
uwarr1[2] = string[Y] ; via evaluation
uwarr1[2] = string[b] ; via evaluation
uwarr1[2] = string[ub] ; via evaluation
uwarr1[2] = string[mbyte2] ; via evaluation
uwarr1[2] = string[mubyte2] ; via evaluation
uwarr1[2] = ubarr1[Y] ; via evaluation
uwarr1[2] = ubarr1[b] ; via evaluation
uwarr1[2] = ubarr1[ub] ; via evaluation
uwarr1[2] = ubarr1[mbyte2] ; via evaluation
uwarr1[2] = ubarr1[mubyte2] ; via evaluation
uwarr1[2] = uwarr1[Y] ; via evaluation
uwarr1[2] = uwarr1[b] ; via evaluation
uwarr1[2] = uwarr1[ub] ; via evaluation
uwarr1[2] = uwarr1[mbyte2] ; via evaluation
uwarr1[2] = uwarr1[mubyte2] ; via evaluation
word_assignment_to_wordvar:
@ -643,7 +628,6 @@ word_assignment_to_wordmem:
mword = warr1[mubyte2]
; @todo these: (can re-use most of uword?)
word_assignment_to_wordarray:
warr2[2] = -42
warr2[2] = -42.w
@ -736,21 +720,21 @@ word_assignment_to_wordarray:
warr2[mubyte2] = warr1[2]
; warr1[2] = string[X] ; todo via evaluation
; warr1[2] = string[b] ; todo via evaluation
; warr1[2] = string[ub] ; todo via evaluation
; warr1[2] = string[mbyte2] ; todo via evaluation
; warr1[2] = string[mubyte2] ; todo via evaluation
; warr1[2] = barr1[X] ; todo via evaluation
; warr1[2] = barr1[b] ; todo via evaluation
; warr1[2] = barr1[ub] ; todo via evaluation
; warr1[2] = barr1[mbyte2] ; todo via evaluation
; warr1[2] = barr1[mubyte2] ; todo via evaluation
; warr1[2] = warr1[X] ; todo via evaluation
; warr1[2] = warr1[b] ; todo via evaluation
; warr1[2] = warr1[ub] ; todo via evaluation
; warr1[2] = warr1[mbyte2] ; todo via evaluation
; warr1[2] = warr1[mubyte2] ; todo via evaluation
warr1[2] = string[Y] ; via evaluation
warr1[2] = string[b] ; via evaluation
warr1[2] = string[ub] ; via evaluation
warr1[2] = string[mbyte2] ; via evaluation
warr1[2] = string[mubyte2] ; via evaluation
warr1[2] = barr1[Y] ; via evaluation
warr1[2] = barr1[b] ; via evaluation
warr1[2] = barr1[ub] ; via evaluation
warr1[2] = barr1[mbyte2] ; via evaluation
warr1[2] = barr1[mubyte2] ; via evaluation
warr1[2] = warr1[Y] ; via evaluation
warr1[2] = warr1[b] ; via evaluation
warr1[2] = warr1[ub] ; via evaluation
warr1[2] = warr1[mbyte2] ; via evaluation
warr1[2] = warr1[mubyte2] ; via evaluation
;; all possible assignments to a FLOAT VARIABLE
@ -776,26 +760,26 @@ float_assignment_to_floatvar:
fl1 = string[4]
fl1 = farr1[4]
; fl1 = string[X] ; todo via evaluation
; fl1 = string[b] ; todo via evaluation
; fl1 = string[ub] ; todo via evaluation
; fl1 = string[mbyte2] ; todo via evaluation
; fl1 = string[mubyte2] ; todo via evaluation
; fl1 = barr1[X] ;; todo via evaluation
; fl1 = ubarr1[X] ;; todo via evaluation
; fl1 = barr1[b] ;; todo via evaluation
; fl1 = ubarr1[b] ;; todo via evaluation
; fl1 = barr1[ub] ; todo via evaluation
; fl1 = ubarr1[ub] ; todo via evaluation
; fl1 = barr1[mbyte2] ; todo via evaluation
; fl1 = ubarr1[mbyte2] ; todo via evaluation
; fl1 = barr1[mubyte2] ; todo via evaluation
; fl1 = ubarr1[mubyte2] ; todo via evaluation
; fl1 = warr1[X] ; todo via evaluation
; fl1 = warr1[b] ; todo via evaluation
; fl1 = warr1[ub] ; todo via evaluation
; fl1 = warr1[mbyte2] ; todo via evaluation
; fl1 = warr1[mubyte2] ; todo via evaluation
fl1 = string[Y] ; via evaluation
fl1 = string[b] ; via evaluation
fl1 = string[ub] ; via evaluation
fl1 = string[mbyte2] ; via evaluation
fl1 = string[mubyte2] ; via evaluation
fl1 = barr1[Y] ; via evaluation
fl1 = ubarr1[Y] ; via evaluation
fl1 = barr1[b] ; via evaluation
fl1 = ubarr1[b] ; via evaluation
fl1 = barr1[ub] ; via evaluation
fl1 = ubarr1[ub] ; via evaluation
fl1 = barr1[mbyte2] ; via evaluation
fl1 = ubarr1[mbyte2] ; via evaluation
fl1 = barr1[mubyte2] ; via evaluation
fl1 = ubarr1[mubyte2] ; via evaluation
fl1 = warr1[Y] ; via evaluation
fl1 = warr1[b] ; via evaluation
fl1 = warr1[ub] ; via evaluation
fl1 = warr1[mbyte2] ; via evaluation
fl1 = warr1[mubyte2] ; via evaluation
float_assignment_to_floatmem:
@ -820,26 +804,26 @@ float_assignment_to_floatmem:
mfloat = string[4]
mfloat = farr1[4]
; mfloat = string[X] ; todo via evaluation
; mfloat = string[b] ; todo via evaluation
; mfloat = string[ub] ; todo via evaluation
; mfloat = string[mbyte2] ; todo via evaluation
; mfloat = string[mubyte2] ; todo via evaluation
; mfloat = barr1[X] ;; todo via evaluation
; mfloat = ubarr1[X] ;; todo via evaluation
; mfloat = barr1[b] ;; todo via evaluation
; mfloat = ubarr1[b] ;; todo via evaluation
; mfloat = barr1[ub] ; todo via evaluation
; mfloat = ubarr1[ub] ; todo via evaluation
; mfloat = barr1[mbyte2] ; todo via evaluation
; mfloat = ubarr1[mbyte2] ; todo via evaluation
; mfloat = barr1[mubyte2] ; todo via evaluation
; mfloat = ubarr1[mubyte2] ; todo via evaluation
; mfloat = warr1[X] ; todo via evaluation
; mfloat = warr1[b] ; todo via evaluation
; mfloat = warr1[ub] ; todo via evaluation
; mfloat = warr1[mbyte2] ; todo via evaluation
; mfloat = warr1[mubyte2] ; todo via evaluation
mfloat = string[Y] ; via evaluation
mfloat = string[b] ; via evaluation
mfloat = string[ub] ; via evaluation
mfloat = string[mbyte2] ; via evaluation
mfloat = string[mubyte2] ; via evaluation
mfloat = barr1[Y] ; via evaluation
mfloat = ubarr1[Y] ; via evaluation
mfloat = barr1[b] ; via evaluation
mfloat = ubarr1[b] ; via evaluation
mfloat = barr1[ub] ; via evaluation
mfloat = ubarr1[ub] ; via evaluation
mfloat = barr1[mbyte2] ; via evaluation
mfloat = ubarr1[mbyte2] ; via evaluation
mfloat = barr1[mubyte2] ; via evaluation
mfloat = ubarr1[mubyte2] ; via evaluation
mfloat = warr1[Y] ; via evaluation
mfloat = warr1[b] ; via evaluation
mfloat = warr1[ub] ; via evaluation
mfloat = warr1[mbyte2] ; via evaluation
mfloat = warr1[mubyte2] ; via evaluation

223
compiler/src/prog8/compiler/target/c64/AsmGen.kt
View File

@ -404,8 +404,6 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
Opcode.JUMP -> " jmp ${ins.callLabel}"
Opcode.CALL -> " jsr ${ins.callLabel}"
Opcode.RETURN -> " rts"
Opcode.B2UB -> "" // is a no-op, just carry on with the byte as-is
Opcode.UB2B -> "" // is a no-op, just carry on with the byte as-is
Opcode.RSAVE -> " php | pha | txa | pha | tya | pha"
Opcode.RRESTORE -> " pla | tay | pla | tax | pla | plp"
Opcode.DISCARD_BYTE -> " inx"
@ -423,53 +421,60 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
"_prog8_breakpoint_$breakpointCounter\tnop"
}
// Opcode.PUSH_BYTE -> {
// " lda #${hexVal(ins)} | sta ${ESTACK_LO.toHex()},x | dex"
// }
// Opcode.PUSH_WORD -> {
// val value = hexVal(ins)
// " lda #<$value | sta ${ESTACK_LO.toHex()},x | lda #>$value | sta ${ESTACK_HI.toHex()},x | dex"
// }
// Opcode.PUSH_FLOAT -> {
// val floatConst = getFloatConst(ins.arg!!)
// " lda #<$floatConst | ldy #>$floatConst | jsr prog8_lib.push_float"
// }
// Opcode.PUSH_VAR_BYTE -> {
// when(ins.callLabel) {
// "X" -> throw CompilerException("makes no sense to push X, it's used as a stack pointer itself")
// "A" -> " sta ${ESTACK_LO.toHex()},x | dex"
// "Y" -> " tya | sta ${ESTACK_LO.toHex()},x | dex"
// else -> " lda ${ins.callLabel} | sta ${ESTACK_LO.toHex()},x | dex"
// }
// }
// Opcode.PUSH_VAR_WORD -> {
// " lda ${ins.callLabel} | ldy ${ins.callLabel}+1 | sta ${ESTACK_LO.toHex()},x | pha | tya | sta ${ESTACK_HI.toHex()},x | pla | dex"
// }
// Opcode.PUSH_VAR_FLOAT -> " lda #<${ins.callLabel} | ldy #>${ins.callLabel}| jsr prog8_lib.push_float"
// Opcode.PUSH_MEM_B, Opcode.PUSH_MEM_UB -> {
// """
// lda ${hexVal(ins)}
// sta ${ESTACK_LO.toHex()},x
// dex
// """
// }
// Opcode.PUSH_MEM_W, Opcode.PUSH_MEM_UW -> {
// """
// lda ${hexVal(ins)}
// sta ${ESTACK_LO.toHex()},x
// lda ${(ins.arg.integerValue()+1).toHex()}
// sta ${ESTACK_HI.toHex()},x
// dex
// """
// }
Opcode.PUSH_BYTE -> {
" lda #${hexVal(ins)} | sta ${ESTACK_LO.toHex()},x | dex"
}
Opcode.PUSH_WORD -> {
val value = hexVal(ins)
" lda #<$value | sta ${ESTACK_LO.toHex()},x | lda #>$value | sta ${ESTACK_HI.toHex()},x | dex"
}
Opcode.PUSH_FLOAT -> {
val floatConst = getFloatConst(ins.arg!!)
" lda #<$floatConst | ldy #>$floatConst | jsr prog8_lib.push_float"
}
Opcode.PUSH_VAR_BYTE -> {
when(ins.callLabel) {
"X" -> throw CompilerException("makes no sense to push X, it's used as a stack pointer itself. You should probably not use the X register (or only in trivial assignments)")
"A" -> " sta ${ESTACK_LO.toHex()},x | dex"
"Y" -> " tya | sta ${ESTACK_LO.toHex()},x | dex"
else -> " lda ${ins.callLabel} | sta ${ESTACK_LO.toHex()},x | dex"
}
}
Opcode.PUSH_VAR_WORD -> {
" lda ${ins.callLabel} | ldy ${ins.callLabel}+1 | sta ${ESTACK_LO.toHex()},x | pha | tya | sta ${ESTACK_HI.toHex()},x | pla | dex"
}
Opcode.PUSH_VAR_FLOAT -> " lda #<${ins.callLabel} | ldy #>${ins.callLabel}| jsr prog8_lib.push_float"
Opcode.PUSH_MEM_B, Opcode.PUSH_MEM_UB -> {
"""
lda ${hexVal(ins)}
sta ${ESTACK_LO.toHex()},x
dex
"""
}
Opcode.PUSH_MEM_W, Opcode.PUSH_MEM_UW -> {
"""
lda ${hexVal(ins)}
sta ${ESTACK_LO.toHex()},x
lda ${hexValPlusOne(ins)}
sta ${ESTACK_HI.toHex()},x
dex
"""
}
// Opcode.READ_INDEXED_VAR_BYTE -> { // @todo is this correct?
// """
// ldy ${(ESTACK_LO+1).toHex()},x
// lda ${ins.callLabel},y
// sta ${(ESTACK_LO+1).toHex()},x
// """
// }
Opcode.READ_INDEXED_VAR_BYTE -> { // @todo is this correct?
"""
ldy ${(ESTACK_LO+1).toHex()},x
lda ${ins.callLabel},y
sta ${(ESTACK_LO+1).toHex()},x
"""
}
Opcode.READ_INDEXED_VAR_WORD -> { // @todo correct this
"""
ldy ${(ESTACK_LO+1).toHex()},x
lda ${ins.callLabel},y
sta ${(ESTACK_LO+1).toHex()},x
"""
}
Opcode.WRITE_INDEXED_VAR_BYTE -> { // @todo is this correct?
"""
@ -480,6 +485,15 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
sta ${ins.callLabel},y
"""
}
Opcode.WRITE_INDEXED_VAR_WORD -> { // @todo correct this
"""
inx
ldy ${ESTACK_LO.toHex()},x
inx
lda ${ESTACK_LO.toHex()},x
sta ${ins.callLabel},y
"""
}
Opcode.POP_MEM_BYTE -> {
"""
inx
@ -496,6 +510,9 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
sta ${hexValPlusOne(ins)}
"""
}
Opcode.POP_MEM_FLOAT -> {
" lda ${hexVal(ins)} | ldy ${hexValPlusOne(ins)} | jsr prog8_lib.pop_mem_float"
}
Opcode.POP_VAR_BYTE -> {
when (ins.callLabel) {
"X" -> throw CompilerException("makes no sense to pop X, it's used as a stack pointer itself")
@ -608,6 +625,10 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
Opcode.B2FLOAT -> " jsr prog8_lib.b2float"
Opcode.UW2FLOAT -> " jsr prog8_lib.uw2float"
Opcode.W2FLOAT -> " jsr prog8_lib.w2float"
Opcode.B2UB -> "" // is a no-op, just carry on with the byte as-is
Opcode.UB2B -> "" // is a no-op, just carry on with the byte as-is
Opcode.UB2UWORD -> " lda #0 | sta ${ESTACK_HI+1},x"
Opcode.B2WORD -> " ${signExtendA("${ESTACK_HI+1},x")}"
Opcode.DIV_UB -> " jsr prog8_lib.div_ub"
Opcode.DIV_B -> " jsr prog8_lib.div_b"
@ -980,50 +1001,6 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
private val patterns = listOf(
// -------------- simple conversions ----------------
// // convert ubyte to uword
// AsmPattern(listOf(Opcode.UB2UWORD, Opcode.POP_VAR_WORD)) {
// " lda #0 | sta ${ESTACK_HI+1},x"
// },
// // convert byte to word (sign extended)
// AsmPattern(listOf(Opcode.B2WORD, Opcode.POP_VAR_WORD)) {
// """
// lda ${ESTACK_LO+1},x
// ora #${'$'}7f
// bmi +
// lda #0
//+ sta ${ESTACK_HI+1},x
// """
// },
// ----------- push value from array on the stack -------------
// // push: array[variable]
// AsmPattern(listOf(Opcode.PUSH_VAR_BYTE, Opcode.READ_INDEXED_VAR_BYTE)) { segment ->
// val loadByteA = loadAFromIndexedByVar(segment[0], segment[1])
// " $loadByteA | sta ${ESTACK_LO.toHex()},x | dex"
// },
// // push: array[mem index]
// AsmPattern(
// listOf(Opcode.PUSH_MEM_B, Opcode.READ_INDEXED_VAR_BYTE),
// listOf(Opcode.PUSH_MEM_UB, Opcode.READ_INDEXED_VAR_BYTE)) { segment ->
// """
// ldy ${hexVal(segment[0])}
// lda ${segment[1].callLabel},y
// sta ${ESTACK_LO.toHex()},x
// dex
// """
// },
// // ----------- pop value off stack into array -------------
// // pop into: array[mem index]
// AsmPattern(listOf(Opcode.PUSH_MEM_UB, Opcode.WRITE_INDEXED_VAR_BYTE)) { segment ->
// """
// ldy ${hexVal(segment[0])}
// inx
// lda ${ESTACK_LO.toHex()},x
// sta ${segment[1].callLabel},y
// """
// },
// ----------- assignment to BYTE VARIABLE ----------------
// var = (u)bytevalue
@ -1665,30 +1642,49 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
}
},
// wordarray[index mem] = bytevar (extend sign)
AsmPattern(listOf(Opcode.PUSH_VAR_BYTE, Opcode.B2WORD, Opcode.PUSH_MEM_B, Opcode.WRITE_INDEXED_VAR_WORD)) { segment ->
AsmPattern(
listOf(Opcode.PUSH_VAR_BYTE, Opcode.B2WORD, Opcode.PUSH_MEM_B, Opcode.WRITE_INDEXED_VAR_WORD),
listOf(Opcode.PUSH_VAR_BYTE, Opcode.B2WORD, Opcode.PUSH_MEM_UB, Opcode.WRITE_INDEXED_VAR_WORD)) { segment ->
when(segment[0].callLabel) {
"A" ->
"""
sta ${hexVal(segment[2])}
${signExtendA(hexValPlusOne(segment[2]))}
pha
sty ${C64Zeropage.SCRATCH_B1}
lda ${hexVal(segment[2])}
asl a
tay
pla
sta ${segment[3].callLabel},y
${signExtendA(segment[3].callLabel + "+1,y")}
"""
"X" ->
"""
txa
sta ${hexVal(segment[2])}
${signExtendA(hexValPlusOne(segment[2]))}
stx ${C64Zeropage.SCRATCH_B1}
lda ${hexVal(segment[2])}
asl a
tay
lda ${C64Zeropage.SCRATCH_B1}
sta ${segment[3].callLabel},y
${signExtendA(segment[3].callLabel + "+1,y")}
"""
"Y" ->
"""
tya
sta ${hexVal(segment[2])}
${signExtendA(hexValPlusOne(segment[2]))}
sty ${C64Zeropage.SCRATCH_B1}
lda ${hexVal(segment[2])}
asl a
tay
lda ${C64Zeropage.SCRATCH_B1}
sta ${segment[3].callLabel},y
${signExtendA(segment[3].callLabel + "+1,y")}
"""
else ->
"""
lda ${hexVal(segment[2])}
asl a
tay
lda ${segment[0].callLabel}
sta ${hexVal(segment[2])}
${signExtendA(hexValPlusOne(segment[2]))}
sta ${segment[3].callLabel},y
${signExtendA(segment[3].callLabel + "+1,y")}
"""
}
},
@ -1721,9 +1717,24 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
"""
lda ${segment[1].callLabel}+$index1
sta ${segment[4].callLabel}+$index2
${signExtendA(segment[4].callLabel + "${index2+1}")}
${signExtendA(segment[4].callLabel + "+${index2+1}")}
"""
},
// wordarray2[mem (u)byte] = bytearray1[index1] (extend sign)
AsmPattern(
listOf(Opcode.PUSH_BYTE, Opcode.READ_INDEXED_VAR_BYTE, Opcode.B2WORD, Opcode.PUSH_MEM_B, Opcode.WRITE_INDEXED_VAR_WORD),
listOf(Opcode.PUSH_BYTE, Opcode.READ_INDEXED_VAR_BYTE, Opcode.B2WORD, Opcode.PUSH_MEM_UB, Opcode.WRITE_INDEXED_VAR_WORD)) { segment->
val index1 = intVal(segment[0])
"""
lda ${hexVal(segment[3])}
asl a
tay
lda ${segment[1].callLabel}+$index1
sta ${segment[4].callLabel},y
${signExtendA(segment[4].callLabel + "+1,y")}
"""
},
// wordarray[indexvar] = byte var (sign extended)
AsmPattern(listOf(Opcode.PUSH_VAR_BYTE, Opcode.B2WORD, Opcode.PUSH_VAR_BYTE, Opcode.WRITE_INDEXED_VAR_WORD)) { segment ->
val loadValueOnStack = when(segment[0].callLabel) {
@ -1766,9 +1777,9 @@ class AsmGen(val options: CompilationOptions, val program: IntermediateProgram,
val index = segment[1].arg!!.integerValue()*2
"""
lda ${hexVal(segment[0])}
sta ${segment[3].callLabel}+$index
sta ${segment[2].callLabel}+$index
lda ${hexValPlusOne(segment[0])}
sta ${segment[3].callLabel}+$index+1
sta ${segment[2].callLabel}+$index+1
"""
},
// wordarray2[indexvar] = bytearay[index] (sign extended)