1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2025-02-05 21:30:52 +00:00

Fixed tests.

This commit is contained in:
jespergravgaard 2018-08-11 00:52:02 +02:00
parent f33d7018ba
commit 9a9eeec129
6 changed files with 42 additions and 42 deletions

View File

@ -492,7 +492,7 @@ main: {
}
//SEG20 irq
irq: {
//SEG21 interrupt HARDWARE_ALL
//SEG21 entry interrupt(HARDWARE_ALL)
sta rega+1
stx regx+1
sty regy+1
@ -508,7 +508,7 @@ irq: {
jmp breturn
//SEG25 irq::@return
breturn:
//SEG26 [17] return [ ] ( )
//SEG26 [17] return [ ] ( ) - exit interrupt(HARDWARE_ALL)
rega:
lda #00
regx:
@ -615,7 +615,7 @@ main: {
}
//SEG20 irq
irq: {
//SEG21 interrupt HARDWARE_ALL
//SEG21 entry interrupt(HARDWARE_ALL)
sta rega+1
stx regx+1
sty regy+1
@ -631,7 +631,7 @@ irq: {
jmp breturn
//SEG25 irq::@return
breturn:
//SEG26 [17] return [ ] ( )
//SEG26 [17] return [ ] ( ) - exit interrupt(HARDWARE_ALL)
rega:
lda #00
regx:
@ -768,7 +768,7 @@ main: {
}
//SEG20 irq
irq: {
//SEG21 interrupt HARDWARE_ALL
//SEG21 entry interrupt(HARDWARE_ALL)
sta rega+1
stx regx+1
sty regy+1
@ -782,7 +782,7 @@ irq: {
lda #IRQ_RASTER
sta IRQ_STATUS
//SEG25 irq::@return
//SEG26 [17] return [ ] ( )
//SEG26 [17] return [ ] ( ) - exit interrupt(HARDWARE_ALL)
rega:
lda #00
regx:

View File

@ -498,7 +498,7 @@ main: {
}
//SEG19 irq_bottom_2
irq_bottom_2: {
//SEG20 interrupt KERNEL_KEYBOARD
//SEG20 entry interrupt(KERNEL_KEYBOARD)
//SEG21 [13] *((const byte*) FGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta FGCOL
@ -523,12 +523,12 @@ irq_bottom_2: {
jmp breturn
//SEG27 irq_bottom_2::@return
breturn:
//SEG28 [19] return [ ] ( )
//SEG28 [19] return [ ] ( ) - exit interrupt(KERNEL_KEYBOARD)
jmp $ea31
}
//SEG29 irq_bottom_1
irq_bottom_1: {
//SEG30 interrupt KERNEL_MIN
//SEG30 entry interrupt(KERNEL_MIN)
//SEG31 [20] *((const byte*) FGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta FGCOL
@ -553,7 +553,7 @@ irq_bottom_1: {
jmp breturn
//SEG37 irq_bottom_1::@return
breturn:
//SEG38 [26] return [ ] ( )
//SEG38 [26] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -656,7 +656,7 @@ main: {
}
//SEG19 irq_bottom_2
irq_bottom_2: {
//SEG20 interrupt KERNEL_KEYBOARD
//SEG20 entry interrupt(KERNEL_KEYBOARD)
//SEG21 [13] *((const byte*) FGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta FGCOL
@ -681,12 +681,12 @@ irq_bottom_2: {
jmp breturn
//SEG27 irq_bottom_2::@return
breturn:
//SEG28 [19] return [ ] ( )
//SEG28 [19] return [ ] ( ) - exit interrupt(KERNEL_KEYBOARD)
jmp $ea31
}
//SEG29 irq_bottom_1
irq_bottom_1: {
//SEG30 interrupt KERNEL_MIN
//SEG30 entry interrupt(KERNEL_MIN)
//SEG31 [20] *((const byte*) FGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta FGCOL
@ -711,7 +711,7 @@ irq_bottom_1: {
jmp breturn
//SEG37 irq_bottom_1::@return
breturn:
//SEG38 [26] return [ ] ( )
//SEG38 [26] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -833,7 +833,7 @@ main: {
}
//SEG19 irq_bottom_2
irq_bottom_2: {
//SEG20 interrupt KERNEL_KEYBOARD
//SEG20 entry interrupt(KERNEL_KEYBOARD)
//SEG21 [13] *((const byte*) FGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta FGCOL
@ -856,12 +856,12 @@ irq_bottom_2: {
lda #RED
sta FGCOL
//SEG27 irq_bottom_2::@return
//SEG28 [19] return [ ] ( )
//SEG28 [19] return [ ] ( ) - exit interrupt(KERNEL_KEYBOARD)
jmp $ea31
}
//SEG29 irq_bottom_1
irq_bottom_1: {
//SEG30 interrupt KERNEL_MIN
//SEG30 entry interrupt(KERNEL_MIN)
//SEG31 [20] *((const byte*) FGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta FGCOL
@ -884,7 +884,7 @@ irq_bottom_1: {
lda #RED
sta FGCOL
//SEG37 irq_bottom_1::@return
//SEG38 [26] return [ ] ( )
//SEG38 [26] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}

View File

@ -369,7 +369,7 @@ main: {
}
//SEG18 irq
irq: {
//SEG19 interrupt KERNEL_KEYBOARD
//SEG19 entry interrupt(KERNEL_KEYBOARD)
//SEG20 [12] *((const byte*) BGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta BGCOL
@ -382,7 +382,7 @@ irq: {
jmp breturn
//SEG23 irq::@return
breturn:
//SEG24 [15] return [ ] ( )
//SEG24 [15] return [ ] ( ) - exit interrupt(KERNEL_KEYBOARD)
jmp $ea31
}
@ -468,7 +468,7 @@ main: {
}
//SEG18 irq
irq: {
//SEG19 interrupt KERNEL_KEYBOARD
//SEG19 entry interrupt(KERNEL_KEYBOARD)
//SEG20 [12] *((const byte*) BGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta BGCOL
@ -481,7 +481,7 @@ irq: {
jmp breturn
//SEG23 irq::@return
breturn:
//SEG24 [15] return [ ] ( )
//SEG24 [15] return [ ] ( ) - exit interrupt(KERNEL_KEYBOARD)
jmp $ea31
}
@ -590,7 +590,7 @@ main: {
}
//SEG18 irq
irq: {
//SEG19 interrupt KERNEL_KEYBOARD
//SEG19 entry interrupt(KERNEL_KEYBOARD)
//SEG20 [12] *((const byte*) BGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta BGCOL
@ -601,7 +601,7 @@ irq: {
lda #IRQ_RASTER
sta IRQ_STATUS
//SEG23 irq::@return
//SEG24 [15] return [ ] ( )
//SEG24 [15] return [ ] ( ) - exit interrupt(KERNEL_KEYBOARD)
jmp $ea31
}

View File

@ -369,7 +369,7 @@ main: {
}
//SEG18 irq
irq: {
//SEG19 interrupt KERNEL_MIN
//SEG19 entry interrupt(KERNEL_MIN)
//SEG20 [12] *((const byte*) BGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta BGCOL
@ -382,7 +382,7 @@ irq: {
jmp breturn
//SEG23 irq::@return
breturn:
//SEG24 [15] return [ ] ( )
//SEG24 [15] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -468,7 +468,7 @@ main: {
}
//SEG18 irq
irq: {
//SEG19 interrupt KERNEL_MIN
//SEG19 entry interrupt(KERNEL_MIN)
//SEG20 [12] *((const byte*) BGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta BGCOL
@ -481,7 +481,7 @@ irq: {
jmp breturn
//SEG23 irq::@return
breturn:
//SEG24 [15] return [ ] ( )
//SEG24 [15] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -590,7 +590,7 @@ main: {
}
//SEG18 irq
irq: {
//SEG19 interrupt KERNEL_MIN
//SEG19 entry interrupt(KERNEL_MIN)
//SEG20 [12] *((const byte*) BGCOL#0) ← (const byte) WHITE#0 [ ] ( ) -- _deref_pbuc1=vbuc2
lda #WHITE
sta BGCOL
@ -601,7 +601,7 @@ irq: {
lda #IRQ_RASTER
sta IRQ_STATUS
//SEG23 irq::@return
//SEG24 [15] return [ ] ( )
//SEG24 [15] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}

View File

@ -338,7 +338,7 @@ main: {
}
//SEG16 irq
irq: {
//SEG17 interrupt KERNEL_MIN
//SEG17 entry interrupt(KERNEL_MIN)
//SEG18 asm { lda$dc0d }
lda $dc0d
//SEG19 [8] *((const byte*) BGCOL#0) ← (byte) col#0 [ ] ( ) -- _deref_pbuc1=vbuz1
@ -347,7 +347,7 @@ irq: {
jmp breturn
//SEG20 irq::@return
breturn:
//SEG21 [9] return [ ] ( )
//SEG21 [9] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -418,7 +418,7 @@ main: {
}
//SEG16 irq
irq: {
//SEG17 interrupt KERNEL_MIN
//SEG17 entry interrupt(KERNEL_MIN)
//SEG18 asm { lda$dc0d }
lda $dc0d
//SEG19 [8] *((const byte*) BGCOL#0) ← (byte) col#0 [ ] ( ) -- _deref_pbuc1=vbuz1
@ -427,7 +427,7 @@ irq: {
jmp breturn
//SEG20 irq::@return
breturn:
//SEG21 [9] return [ ] ( )
//SEG21 [9] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -511,14 +511,14 @@ main: {
}
//SEG16 irq
irq: {
//SEG17 interrupt KERNEL_MIN
//SEG17 entry interrupt(KERNEL_MIN)
//SEG18 asm { lda$dc0d }
lda $dc0d
//SEG19 [8] *((const byte*) BGCOL#0) ← (byte) col#0 [ ] ( ) -- _deref_pbuc1=vbuz1
lda col
sta BGCOL
//SEG20 irq::@return
//SEG21 [9] return [ ] ( )
//SEG21 [9] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}

View File

@ -279,7 +279,7 @@ main: {
}
//SEG12 irq
irq: {
//SEG13 interrupt KERNEL_MIN
//SEG13 entry interrupt(KERNEL_MIN)
//SEG14 [6] *((const byte*) BGCOL#0) ← ++ *((const byte*) BGCOL#0) [ ] ( ) -- _deref_pbuc1=_inc__deref_pbuc1
inc BGCOL
//SEG15 asm { lda$dc0d }
@ -287,7 +287,7 @@ irq: {
jmp breturn
//SEG16 irq::@return
breturn:
//SEG17 [8] return [ ] ( )
//SEG17 [8] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -343,7 +343,7 @@ main: {
}
//SEG12 irq
irq: {
//SEG13 interrupt KERNEL_MIN
//SEG13 entry interrupt(KERNEL_MIN)
//SEG14 [6] *((const byte*) BGCOL#0) ← ++ *((const byte*) BGCOL#0) [ ] ( ) -- _deref_pbuc1=_inc__deref_pbuc1
inc BGCOL
//SEG15 asm { lda$dc0d }
@ -351,7 +351,7 @@ irq: {
jmp breturn
//SEG16 irq::@return
breturn:
//SEG17 [8] return [ ] ( )
//SEG17 [8] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}
@ -420,13 +420,13 @@ main: {
}
//SEG12 irq
irq: {
//SEG13 interrupt KERNEL_MIN
//SEG13 entry interrupt(KERNEL_MIN)
//SEG14 [6] *((const byte*) BGCOL#0) ← ++ *((const byte*) BGCOL#0) [ ] ( ) -- _deref_pbuc1=_inc__deref_pbuc1
inc BGCOL
//SEG15 asm { lda$dc0d }
lda $dc0d
//SEG16 irq::@return
//SEG17 [8] return [ ] ( )
//SEG17 [8] return [ ] ( ) - exit interrupt(KERNEL_MIN)
jmp $ea81
}