6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-09 16:25:01 +00:00
Code Issues Projects Releases Wiki Activity

Tracking Y register WIP

Browse Source
This commit is contained in:
David Schmenk
2018-03-29 17:14:27 -07:00
parent b5885dfe8f
commit f7b1d6c3fb
1 changed files with 61 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

144
src/libsrc/apple/jit.pla
View File

@@ -263,20 +263,20 @@ def compiler(defptr)#0
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
VX-- // DEX
if VY <> 0 if VY <> 0
*codeptr = $00A0 // LDY #$00 *codeptr = $00A0 // LDY #$00
codeptr = codeptr + 2 codeptr = codeptr + 2
VY = 0 VY = 0
fin fin
VX-- // DEX *codeptr = $C094+(VX<<8) // STY ESTKH,X
codeptr = codeptr + 2
if opcode == 0 if opcode == 0
^codeptr = $98; codeptr++ // TYA -> LDA #$00 ^codeptr = $98; codeptr++ // TYA -> LDA #$00
else else
*codeptr = $A9+(opcode/2<<8) // LDA #(CN/2) *codeptr = $A9+(opcode/2<<8) // LDA #(CN/2)
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
*codeptr = $C094+(VX<<8) // STY ESTKH,X
codeptr = codeptr + 2
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
else else
when opcode when opcode
@@ -344,25 +344,15 @@ def compiler(defptr)#0
dest = *(bytecode+i) dest = *(bytecode+i)
//puts("LA/CW $"); puth(dest) //puts("LA/CW $"); puth(dest)
if A_IS_TOSL & TOS_DIRTY if A_IS_TOSL & TOS_DIRTY
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
if VY <> 0 VX-- // DEX
*codeptr = $00A0 // LDY #$00 codeptr=>0 = $A9+(dest&$FF00) // LDA #<VAL
codeptr = codeptr + 2 codeptr=>2 = $C095+(VX<<8) // STA ESTKH,X
VY = 0 codeptr=>4 = $A9+(dest<<8) // LDA #>VAL
fin codeptr = codeptr + 6
VX-- // DEX A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
codeptr=>0 = $A9+(dest&$FF00) // LDA #<VAL
codeptr=>2 = $C095+(VX<<8) // STA ESTKH,X
if dest & $00FF == 0
codeptr->4 = $98 // TYA -> LDA #$00
codeptr = codeptr + 5
else
codeptr=>4 = $A9+(dest<<8) // LDA #>VAL
codeptr = codeptr + 6
fin
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
i++ i++
break break
is $28 // LLA is $28 // LLA
@@ -370,29 +360,19 @@ def compiler(defptr)#0
j = ^(bytecode+i) j = ^(bytecode+i)
//puts("LLA "); puti(^(bytecode+i)) //puts("LLA "); puti(^(bytecode+i))
if A_IS_TOSL & TOS_DIRTY if A_IS_TOSL & TOS_DIRTY
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
if VY <> 0 VX-- // DEX
*codeptr = $00A0 // LDY #$00 codeptr=>0 = $A9+(j<<8) // LDA #imm
codeptr = codeptr + 2 codeptr->2 = $18 // CLC
VY = 0 codeptr=>3 = $E065 // ADC IFPL
fin codeptr=>5 = $D095+(VX<<8) // STA ESTKL,X
VX-- // DEX codeptr=>7 = $00A9 // LDA #$00
if j codeptr=>9 = $E165 // ADC IFPH
*codeptr = $A9+(j<<8) // LDA #imm codeptr=>11 = $C095+(VX<<8) // STA ESTKH,X
codeptr = codeptr + 2 codeptr = codeptr + 13
else A_IS_TOSL = FALSE
^codeptr = $98; codeptr++ // TYA -> LDA #$00
fin
codeptr->0 = $18 // CLC
codeptr=>1 = $E065 // ADC IFPL
codeptr=>3 = $D095+(VX<<8) // STA ESTKL,X
codeptr->5 = $98 // TYA -> LDA #$00
codeptr=>6 = $E165 // ADC IFPH
codeptr=>8 = $C095+(VX<<8) // STA ESTKH,X
codeptr = codeptr + 10
A_IS_TOSL = FALSE
break break
is $2A // CB is $2A // CB
i++ i++
@@ -401,14 +381,14 @@ def compiler(defptr)#0
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
VX-- // DEX
if VY <> 0 if VY <> 0
*codeptr = $00A0 // LDY #$00 *codeptr = $00A0 // LDY #$00
codeptr = codeptr + 2 codeptr = codeptr + 2
VY = 0 VY = 0
fin fin
VX-- // DEX codeptr=>0 = $C094+(VX<<8) // STY ESTKH,X
codeptr=>0 = $A9+(^(bytecode+i)<<8) // LDA #imm codeptr=>2 = $A9+(^(bytecode+i)<<8) // LDA #imm
codeptr=>2 = $C094+(VX<<8) // STY ESTKH,X
codeptr = codeptr + 4 codeptr = codeptr + 4
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
break break
@@ -433,31 +413,31 @@ def compiler(defptr)#0
i = i + j i = i + j
fin fin
codeptr = dest codeptr = dest
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
break break
is $32 // DROP2 is $32 // DROP2
//puts("DROP2") //puts("DROP2")
VX++ // INX VX++ // INX
is $30 // DROP is $30 // DROP
//puts("DROP") //puts("DROP")
VX++ // INX VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $34 // DUP is $34 // DUP
//puts("DUP") //puts("DUP")
if not A_IS_TOSL if not A_IS_TOSL
*codeptr = $D0B5+(VX<<8) // LDA ESTKL,X *codeptr = $D0B5+(VX<<8) // LDA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
elsif A_IS_TOSL & TOS_DIRTY elsif A_IS_TOSL & TOS_DIRTY
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
VX-- // DEX codeptr=>0 = $C0B4+(VX<<8) // LDY ESTKH,X
codeptr=>0 = $C0B4+$0100+(VX<<8) // LDY ESTKH+1,X VX-- // DEX
codeptr=>2 = $C094+(VX<<8) // STY ESTKH,X codeptr=>2 = $C094+(VX<<8) // STY ESTKH,X
codeptr = codeptr + 4 codeptr = codeptr + 4
VY = UNKNOWN VY = UNKNOWN
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
break break
//is $36 //is $36
//puts("DIVMOD") //puts("DIVMOD")
@@ -514,7 +494,7 @@ def compiler(defptr)#0
i++ i++
//puts("ORI $"); putb(^(bytecode+i)) //puts("ORI $"); putb(^(bytecode+i))
if not A_IS_TOSL if not A_IS_TOSL
*codeptr = $D0B5+(VX<<8) // LDA ESTKL,X *codeptr = $D0B5+(VX<<8) // LDA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
*codeptr = $09+(^(bytecode+i)<<8) // ORA #imm *codeptr = $09+(^(bytecode+i)<<8) // ORA #imm
@@ -677,7 +657,6 @@ def compiler(defptr)#0
addrxlate=>[dest] = codeptr + 5 - *jitcodeptr addrxlate=>[dest] = codeptr + 5 - *jitcodeptr
fin fin
codeptr = codeptr + 7 codeptr = codeptr + 7
VY = UNKNOWN
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $4E // BRTRU is $4E // BRTRU
@@ -822,7 +801,6 @@ def compiler(defptr)#0
codeptr=>1 = $03D0 // INTERP codeptr=>1 = $03D0 // INTERP
codeptr=>3 = $5A + (^(bytecode+i)<<8) // LEAVE CODE AND OPERAND codeptr=>3 = $5A + (^(bytecode+i)<<8) // LEAVE CODE AND OPERAND
codeptr = codeptr + 5 codeptr = codeptr + 5
VY = UNKNOWN
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $5C // RET is $5C // RET
@@ -833,7 +811,6 @@ def compiler(defptr)#0
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
^codeptr = $60; codeptr++ // RTS ^codeptr = $60; codeptr++ // RTS
VY = UNKNOWN
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $5E // CFFB is $5E // CFFB
@@ -917,19 +894,19 @@ def compiler(defptr)#0
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
VX-- // DEX
if VY <> j if VY <> j
*codeptr = $A0+((j+1)<<8) // LDY #imm *codeptr = $A0+((j+1)<<8) // LDY #imm
codeptr = codeptr + 2 codeptr = codeptr + 2
VY = j
else else
^codeptr = $C8; codeptr++ // INY ^codeptr = $C8; codeptr++ // INY
fin fin
VX-- // DEX
codeptr=>0 = $E0B1 // LDA (IFP),Y codeptr=>0 = $E0B1 // LDA (IFP),Y
codeptr=>2 = $C095+(VX<<8) // STA ESTKH,X codeptr=>2 = $C095+(VX<<8) // STA ESTKH,X
codeptr->4 = $88 // DEY codeptr->4 = $88 // DEY
codeptr=>5 = $E0B1 // LDA (IFP),Y codeptr=>5 = $E0B1 // LDA (IFP),Y
codeptr = codeptr + 7 codeptr = codeptr + 7
VY = j
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
break break
is $68 // LAB is $68 // LAB
@@ -939,15 +916,15 @@ def compiler(defptr)#0
*codeptr = $D095+(VX<<8) // STA ESTKL,X *codeptr = $D095+(VX<<8) // STA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
fin fin
VX-- // DEX
if VY <> 0 if VY <> 0
*codeptr = $00A0 // LDY #$00 *codeptr = $00A0 // LDY #$00
codeptr = codeptr + 2 codeptr = codeptr + 2
VY = 0 VY = 0
fin fin
VX-- // DEX codeptr=>0 = $C094+(VX<<8) // STY ESTKH,X
codeptr->0 = $AD // LDA abs codeptr->2 = $AD // LDA abs
codeptr=>1 = *(bytecode+i) codeptr=>3 = *(bytecode+i)
codeptr=>3 = $C094+(VX<<8) // STY ESTKH,X
codeptr = codeptr + 5 codeptr = codeptr + 5
A_IS_TOSL = TOS_DIRTY // STA ESTKL,X A_IS_TOSL = TOS_DIRTY // STA ESTKL,X
i++ i++
@@ -975,9 +952,9 @@ def compiler(defptr)#0
j = ^(bytecode+i) j = ^(bytecode+i)
//puts("DLB "); puti(j) //puts("DLB "); puti(j)
if not A_IS_TOSL if not A_IS_TOSL
*codeptr = $D0B5+(VX<<8) // LDA ESTKL,X *codeptr = $D0B5+(VX<<8) // LDA ESTKL,X
codeptr = codeptr + 2 codeptr = codeptr + 2
A_IS_TOSL = TOS_CLEAN A_IS_TOSL = TOS_CLEAN
fin fin
if VY <> j if VY <> j
*codeptr = $A0+(j<<8) // LDY #imm *codeptr = $A0+(j<<8) // LDY #imm
@@ -998,6 +975,7 @@ def compiler(defptr)#0
if VY <> j if VY <> j
*codeptr = $A0+((j+1)<<8) // LDY #imm *codeptr = $A0+((j+1)<<8) // LDY #imm
codeptr = codeptr + 2 codeptr = codeptr + 2
VY = j
else else
^codeptr = $C8; codeptr++ // INY ^codeptr = $C8; codeptr++ // INY
fin fin
@@ -1007,7 +985,6 @@ def compiler(defptr)#0
codeptr=>5 = $D0B5+(VX<<8) // LDA ESTKL,X codeptr=>5 = $D0B5+(VX<<8) // LDA ESTKL,X
codeptr=>7 = $E091 // STA (IFP),Y codeptr=>7 = $E091 // STA (IFP),Y
codeptr = codeptr + 9 codeptr = codeptr + 9
VY = j
A_IS_TOSL = TOS_CLEAN A_IS_TOSL = TOS_CLEAN
break break
is $70 // SB is $70 // SB
@@ -1105,7 +1082,7 @@ def compiler(defptr)#0
codeptr->0 = $8D // STA abs codeptr->0 = $8D // STA abs
codeptr=>1 = dest codeptr=>1 = dest
codeptr=>3 = $C0B5+(VX<<8) // LDA ESTKH,X codeptr=>3 = $C0B5+(VX<<8) // LDA ESTKH,X
codeptr->5 = $8D // STA abs codeptr->5 = $8D // STA abs+1
codeptr=>6 = dest+1 codeptr=>6 = dest+1
codeptr = codeptr + 8 codeptr = codeptr + 8
VX++ // INX VX++ // INX
@@ -1137,7 +1114,7 @@ def compiler(defptr)#0
codeptr->0 = $8D // STA abs codeptr->0 = $8D // STA abs
codeptr=>1 = dest codeptr=>1 = dest
codeptr=>3 = $C0B4+(VX<<8) // LDY ESTKH,X codeptr=>3 = $C0B4+(VX<<8) // LDY ESTKH,X
codeptr->5 = $8C // STY abs codeptr->5 = $8C // STY abs+1
codeptr=>6 = dest+1 codeptr=>6 = dest+1
codeptr = codeptr + 8 codeptr = codeptr + 8
VY = UNKNOWN VY = UNKNOWN
@@ -1169,8 +1146,8 @@ def compiler(defptr)#0
codeptr=>5 = $C0B5+(VX<<8) // LDA ESTKH,X codeptr=>5 = $C0B5+(VX<<8) // LDA ESTKH,X
codeptr=>7 = $C075+$0100+(VX<<8) // ADC ESTKH+1,X codeptr=>7 = $C075+$0100+(VX<<8) // ADC ESTKH+1,X
codeptr=>9 = $C095+$0100+(VX<<8) // STA ESTKH+1,X codeptr=>9 = $C095+$0100+(VX<<8) // STA ESTKH+1,X
VX++ // INX
codeptr = codeptr + 11 codeptr = codeptr + 11
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $84 // SUB is $84 // SUB
@@ -1186,8 +1163,8 @@ def compiler(defptr)#0
codeptr=>7 = $C0B5+$0100+(VX<<8) // LDA ESTKH+1,X codeptr=>7 = $C0B5+$0100+(VX<<8) // LDA ESTKH+1,X
codeptr=>9 = $C0F5+(VX<<8) // SBC ESTKH,X codeptr=>9 = $C0F5+(VX<<8) // SBC ESTKH,X
codeptr=>11 = $C095+$0100+(VX<<8) // STA ESTKH+1,X codeptr=>11 = $C095+$0100+(VX<<8) // STA ESTKH+1,X
VX++ // INX
codeptr = codeptr + 13 codeptr = codeptr + 13
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $86 // MUL is $86 // MUL
@@ -1294,8 +1271,8 @@ def compiler(defptr)#0
codeptr=>4 = $C0B5+(VX<<8) // LDA ESTKH,X codeptr=>4 = $C0B5+(VX<<8) // LDA ESTKH,X
codeptr=>6 = $C035+$0100+(VX<<8) // AND ESTKH+1,X codeptr=>6 = $C035+$0100+(VX<<8) // AND ESTKH+1,X
codeptr=>8 = $C095+$0100+(VX<<8) // STA ESTKH+1,X codeptr=>8 = $C095+$0100+(VX<<8) // STA ESTKH+1,X
VX++ // INX
codeptr = codeptr + 10 codeptr = codeptr + 10
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $96 // OR is $96 // OR
@@ -1309,8 +1286,8 @@ def compiler(defptr)#0
codeptr=>4 = $C0B5+(VX<<8) // LDA ESTKH,X codeptr=>4 = $C0B5+(VX<<8) // LDA ESTKH,X
codeptr=>6 = $C015+$0100+(VX<<8) // ORA ESTKH+1,X codeptr=>6 = $C015+$0100+(VX<<8) // ORA ESTKH+1,X
codeptr=>8 = $C095+$0100+(VX<<8) // STA ESTKH+1,X codeptr=>8 = $C095+$0100+(VX<<8) // STA ESTKH+1,X
VX++ // INX
codeptr = codeptr + 10 codeptr = codeptr + 10
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $98 // XOR is $98 // XOR
@@ -1324,8 +1301,8 @@ def compiler(defptr)#0
codeptr=>4 = $C0B5+(VX<<8) // LDA ESTKH,X codeptr=>4 = $C0B5+(VX<<8) // LDA ESTKH,X
codeptr=>6 = $C055+$0100+(VX<<8) // EOR ESTKH+1,X codeptr=>6 = $C055+$0100+(VX<<8) // EOR ESTKH+1,X
codeptr=>8 = $C095+$0100+(VX<<8) // STA ESTKH+1,X codeptr=>8 = $C095+$0100+(VX<<8) // STA ESTKH+1,X
VX++ // INX
codeptr = codeptr + 10 codeptr = codeptr + 10
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $9E // IDXW is $9E // IDXW
@@ -1342,8 +1319,8 @@ def compiler(defptr)#0
codeptr=>8 = $C0B5+(VX<<8) // LDA ESTKH,X codeptr=>8 = $C0B5+(VX<<8) // LDA ESTKH,X
codeptr=>10 = $C075+$0100+(VX<<8) // ADC ESTKH+1,X codeptr=>10 = $C075+$0100+(VX<<8) // ADC ESTKH+1,X
codeptr=>12 = $C095+$0100+(VX<<8) // STA ESTKH+1,X codeptr=>12 = $C095+$0100+(VX<<8) // STA ESTKH+1,X
VX++ // INX
codeptr = codeptr + 14 codeptr = codeptr + 14
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $A0 // BRGT - FOR/NEXT SPECIFIC TEST & BRANCH is $A0 // BRGT - FOR/NEXT SPECIFIC TEST & BRANCH
@@ -1433,7 +1410,7 @@ def compiler(defptr)#0
if not (codeptr->16 & $80) // Unresolved address list if not (codeptr->16 & $80) // Unresolved address list
addrxlate=>[dest] = codeptr + 15 - *jitcodeptr addrxlate=>[dest] = codeptr + 15 - *jitcodeptr
fin fin
codeptr=>17 = $E8E8 // INX; INX codeptr=>17 = $E8E8 //VX=VX+2 // INX; INX
codeptr = codeptr + 19 codeptr = codeptr + 19
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
@@ -1471,7 +1448,7 @@ def compiler(defptr)#0
if not (codeptr->16 & $80) // Unresolved address list if not (codeptr->16 & $80) // Unresolved address list
addrxlate=>[dest] = codeptr + 15 - *jitcodeptr addrxlate=>[dest] = codeptr + 15 - *jitcodeptr
fin fin
codeptr=>17 = $E8E8 // INX; INX codeptr=>17 = $E8E8 //VX=VX+2 // INX; INX
codeptr = codeptr + 19 codeptr = codeptr + 19
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
@@ -1507,7 +1484,7 @@ def compiler(defptr)#0
if not (codeptr->14 & $80) // Unresolved address list if not (codeptr->14 & $80) // Unresolved address list
addrxlate=>[dest] = codeptr + 13 - *jitcodeptr addrxlate=>[dest] = codeptr + 13 - *jitcodeptr
fin fin
codeptr=>15 = $E8E8 // INX; INX codeptr=>15 = $E8E8 //VX=VX+2 // INX; INX
codeptr = codeptr + 17 codeptr = codeptr + 17
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
@@ -1546,7 +1523,7 @@ def compiler(defptr)#0
if not (codeptr->16 & $80) // Unresolved address list if not (codeptr->16 & $80) // Unresolved address list
addrxlate=>[dest] = codeptr + 15 - *jitcodeptr addrxlate=>[dest] = codeptr + 15 - *jitcodeptr
fin fin
codeptr=>17 = $E8E8 // INX; INX codeptr=>17 = $E8E8 //VX=VX+2 // INX; INX
codeptr = codeptr + 19 codeptr = codeptr + 19
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
@@ -1570,8 +1547,8 @@ def compiler(defptr)#0
if not (codeptr->6 & $80) // Unresolved address list if not (codeptr->6 & $80) // Unresolved address list
addrxlate=>[dest] = codeptr + 5 - *jitcodeptr addrxlate=>[dest] = codeptr + 5 - *jitcodeptr
fin fin
VX++ // INX
codeptr = codeptr + 7 codeptr = codeptr + 7
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $AE // BROR - LOGICAL OR SPECIFIC BRANCH is $AE // BROR - LOGICAL OR SPECIFIC BRANCH
@@ -1594,8 +1571,8 @@ def compiler(defptr)#0
if not (codeptr->6 & $80) // Unresolved address list if not (codeptr->6 & $80) // Unresolved address list
addrxlate=>[dest] = codeptr + 5 - *jitcodeptr addrxlate=>[dest] = codeptr + 5 - *jitcodeptr
fin fin
VX++ // INX
codeptr = codeptr + 7 codeptr = codeptr + 7
VX++ // INX
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
is $B0 // ADDLB is $B0 // ADDLB
@@ -1637,6 +1614,7 @@ def compiler(defptr)#0
codeptr->7 = $C8 // INY codeptr->7 = $C8 // INY
codeptr=>8 = $E071 // ADC (IFP),Y codeptr=>8 = $E071 // ADC (IFP),Y
codeptr=>10 = $C095+(VX<<8) // STA ESTKH,X codeptr=>10 = $C095+(VX<<8) // STA ESTKH,X
codeptr = codeptr + 12
VY = j + 1 VY = j + 1
A_IS_TOSL = FALSE A_IS_TOSL = FALSE
break break
@@ -1805,8 +1783,8 @@ def compiler(defptr)#0
// Free working bufffers // Free working bufffers
// //
//heaprelease(addrxlate) //heaprelease(addrxlate)
//puts("Done compiling: $"); puth(defptr=>interpaddr); putln puts("Done compiling: $"); puth(defptr=>interpaddr); putln
//getc getc
return return
fin fin
//if opcode == $B6; getc; fin //if opcode == $B6; getc; fin