mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-12-26 18:29:54 +00:00
Added plus/4 keyboard tester.
This commit is contained in:
jespergravgaard
parent
d9fdaca1b0
commit
969301af0f
@ -44,6 +44,11 @@ public class TestPrograms {
|
|||||||
public TestPrograms() {
|
public TestPrograms() {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@Test
|
||||||
|
public void testPlus4KeyboardTest() throws IOException, URISyntaxException {
|
||||||
|
compileAndCompare("plus4-keyboard-test.c")
|
||||||
|
}
|
||||||
|
|
||||||
@Test
|
@Test
|
||||||
public void testPlus4Kbhit() throws IOException, URISyntaxException {
|
public void testPlus4Kbhit() throws IOException, URISyntaxException {
|
||||||
compileAndCompare("plus4-kbhit.c");
|
compileAndCompare("plus4-kbhit.c");
|
||||||
|
|||||||
120
src/test/ref/plus4-keyboard-test.asm
Normal file
120
src/test/ref/plus4-keyboard-test.asm
Normal file
@ -0,0 +1,120 @@
|
|||||||
|
// Test reading keyboard port on the TED of the Plus/4
|
||||||
|
.pc = $1001 "Basic"
|
||||||
|
:BasicUpstart(main)
|
||||||
|
.pc = $100d "Program"
|
||||||
|
|
||||||
|
// Keyboard latch
|
||||||
|
.label KEYBOARD_INPUT = $ff08
|
||||||
|
// Keyboard scan
|
||||||
|
.label KEYBOARD_SCAN = $fd30
|
||||||
|
// Default address of screen character matrix
|
||||||
|
.label DEFAULT_SCREEN = $c00
|
||||||
|
main: {
|
||||||
|
.label row = 3
|
||||||
|
.label y = 2
|
||||||
|
// asm
|
||||||
|
sei
|
||||||
|
// memset(DEFAULT_SCREEN, ' ', 0x0400)
|
||||||
|
jsr memset
|
||||||
|
__b1:
|
||||||
|
// for(char y=0;y<8;y++)
|
||||||
|
lda.z y
|
||||||
|
cmp #8
|
||||||
|
bcc __b2
|
||||||
|
lda #<DEFAULT_SCREEN
|
||||||
|
sta.z row
|
||||||
|
lda #>DEFAULT_SCREEN
|
||||||
|
sta.z row+1
|
||||||
|
lda #0
|
||||||
|
sta.z y
|
||||||
|
jmp __b1
|
||||||
|
__b2:
|
||||||
|
// 1<<y
|
||||||
|
lda #1
|
||||||
|
ldy.z y
|
||||||
|
cpy #0
|
||||||
|
beq !e+
|
||||||
|
!:
|
||||||
|
asl
|
||||||
|
dey
|
||||||
|
bne !-
|
||||||
|
!e:
|
||||||
|
// 0xff^(1<<y)
|
||||||
|
eor #$ff
|
||||||
|
// *KEYBOARD_SCAN = 0xff^(1<<y)
|
||||||
|
sta KEYBOARD_SCAN
|
||||||
|
// *KEYBOARD_INPUT = 0
|
||||||
|
lda #0
|
||||||
|
sta KEYBOARD_INPUT
|
||||||
|
// key_bit = *KEYBOARD_INPUT^0xff
|
||||||
|
lda #$ff
|
||||||
|
eor KEYBOARD_INPUT
|
||||||
|
tax
|
||||||
|
ldy #0
|
||||||
|
__b3:
|
||||||
|
// for(char x=0;x<8;x++)
|
||||||
|
cpy #8
|
||||||
|
bcc __b4
|
||||||
|
// row += 40
|
||||||
|
lda #$28
|
||||||
|
clc
|
||||||
|
adc.z row
|
||||||
|
sta.z row
|
||||||
|
bcc !+
|
||||||
|
inc.z row+1
|
||||||
|
!:
|
||||||
|
// for(char y=0;y<8;y++)
|
||||||
|
inc.z y
|
||||||
|
jmp __b1
|
||||||
|
__b4:
|
||||||
|
// key_bit&0x80
|
||||||
|
txa
|
||||||
|
and #$80
|
||||||
|
// if(key_bit&0x80)
|
||||||
|
cmp #0
|
||||||
|
beq __b6
|
||||||
|
// row[x] = '*'
|
||||||
|
lda #'*'
|
||||||
|
sta (row),y
|
||||||
|
__b6:
|
||||||
|
// key_bit <<= 1
|
||||||
|
txa
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
// for(char x=0;x<8;x++)
|
||||||
|
iny
|
||||||
|
jmp __b3
|
||||||
|
}
|
||||||
|
// Copies the character c (an unsigned char) to the first num characters of the object pointed to by the argument str.
|
||||||
|
memset: {
|
||||||
|
.const c = ' '
|
||||||
|
.const num = $400
|
||||||
|
.label str = DEFAULT_SCREEN
|
||||||
|
.label end = str+num
|
||||||
|
.label dst = 5
|
||||||
|
lda #<str
|
||||||
|
sta.z dst
|
||||||
|
lda #>str
|
||||||
|
sta.z dst+1
|
||||||
|
__b1:
|
||||||
|
// for(char* dst = str; dst!=end; dst++)
|
||||||
|
lda.z dst+1
|
||||||
|
cmp #>end
|
||||||
|
bne __b2
|
||||||
|
lda.z dst
|
||||||
|
cmp #<end
|
||||||
|
bne __b2
|
||||||
|
// }
|
||||||
|
rts
|
||||||
|
__b2:
|
||||||
|
// *dst = c
|
||||||
|
lda #c
|
||||||
|
ldy #0
|
||||||
|
sta (dst),y
|
||||||
|
// for(char* dst = str; dst!=end; dst++)
|
||||||
|
inc.z dst
|
||||||
|
bne !+
|
||||||
|
inc.z dst+1
|
||||||
|
!:
|
||||||
|
jmp __b1
|
||||||
|
}
|
||||||
63
src/test/ref/plus4-keyboard-test.cfg
Normal file
63
src/test/ref/plus4-keyboard-test.cfg
Normal file
@ -0,0 +1,63 @@
|
|||||||
|
@begin: scope:[] from
|
||||||
|
[0] phi()
|
||||||
|
to:@1
|
||||||
|
@1: scope:[] from @begin
|
||||||
|
[1] phi()
|
||||||
|
[2] call main
|
||||||
|
to:@end
|
||||||
|
@end: scope:[] from @1
|
||||||
|
[3] phi()
|
||||||
|
|
||||||
|
(void()) main()
|
||||||
|
main: scope:[main] from @1
|
||||||
|
asm { sei }
|
||||||
|
[5] call memset
|
||||||
|
to:main::@1
|
||||||
|
main::@1: scope:[main] from main main::@1 main::@5
|
||||||
|
[6] (byte*) main::row#6 ← phi( main::@1/(const nomodify byte*) DEFAULT_SCREEN main::@5/(byte*) main::row#1 )
|
||||||
|
[6] (byte) main::y#2 ← phi( main::@1/(byte) 0 main::@5/(byte) main::y#1 )
|
||||||
|
[7] if((byte) main::y#2<(byte) 8) goto main::@2
|
||||||
|
to:main::@1
|
||||||
|
main::@2: scope:[main] from main::@1
|
||||||
|
[8] (byte~) main::$2 ← (byte) 1 << (byte) main::y#2
|
||||||
|
[9] (byte~) main::$3 ← (byte) $ff ^ (byte~) main::$2
|
||||||
|
[10] *((const nomodify byte*) KEYBOARD_SCAN) ← (byte~) main::$3
|
||||||
|
[11] *((const nomodify byte*) KEYBOARD_INPUT) ← (byte) 0
|
||||||
|
[12] (byte) main::key_bit#0 ← *((const nomodify byte*) KEYBOARD_INPUT) ^ (byte) $ff
|
||||||
|
to:main::@3
|
||||||
|
main::@3: scope:[main] from main::@2 main::@6
|
||||||
|
[13] (byte) main::key_bit#2 ← phi( main::@2/(byte) main::key_bit#0 main::@6/(byte) main::key_bit#1 )
|
||||||
|
[13] (byte) main::x#2 ← phi( main::@2/(byte) 0 main::@6/(byte) main::x#1 )
|
||||||
|
[14] if((byte) main::x#2<(byte) 8) goto main::@4
|
||||||
|
to:main::@5
|
||||||
|
main::@5: scope:[main] from main::@3
|
||||||
|
[15] (byte*) main::row#1 ← (byte*) main::row#6 + (byte) $28
|
||||||
|
[16] (byte) main::y#1 ← ++ (byte) main::y#2
|
||||||
|
to:main::@1
|
||||||
|
main::@4: scope:[main] from main::@3
|
||||||
|
[17] (byte~) main::$6 ← (byte) main::key_bit#2 & (byte) $80
|
||||||
|
[18] if((byte) 0==(byte~) main::$6) goto main::@6
|
||||||
|
to:main::@7
|
||||||
|
main::@7: scope:[main] from main::@4
|
||||||
|
[19] *((byte*) main::row#6 + (byte) main::x#2) ← (byte) '*'
|
||||||
|
to:main::@6
|
||||||
|
main::@6: scope:[main] from main::@4 main::@7
|
||||||
|
[20] (byte) main::key_bit#1 ← (byte) main::key_bit#2 << (byte) 1
|
||||||
|
[21] (byte) main::x#1 ← ++ (byte) main::x#2
|
||||||
|
to:main::@3
|
||||||
|
|
||||||
|
(void*()) memset((void*) memset::str , (byte) memset::c , (word) memset::num)
|
||||||
|
memset: scope:[memset] from main
|
||||||
|
[22] phi()
|
||||||
|
to:memset::@1
|
||||||
|
memset::@1: scope:[memset] from memset memset::@2
|
||||||
|
[23] (byte*) memset::dst#2 ← phi( memset/(byte*)(const void*) memset::str#0 memset::@2/(byte*) memset::dst#1 )
|
||||||
|
[24] if((byte*) memset::dst#2!=(const byte*) memset::end#0) goto memset::@2
|
||||||
|
to:memset::@return
|
||||||
|
memset::@return: scope:[memset] from memset::@1
|
||||||
|
[25] return
|
||||||
|
to:@return
|
||||||
|
memset::@2: scope:[memset] from memset::@1
|
||||||
|
[26] *((byte*) memset::dst#2) ← (const byte) memset::c#0
|
||||||
|
[27] (byte*) memset::dst#1 ← ++ (byte*) memset::dst#2
|
||||||
|
to:memset::@1
|
||||||
1242
src/test/ref/plus4-keyboard-test.log
Normal file
1242
src/test/ref/plus4-keyboard-test.log
Normal file
File diff suppressed because it is too large
Load Diff
55
src/test/ref/plus4-keyboard-test.sym
Normal file
55
src/test/ref/plus4-keyboard-test.sym
Normal file
@ -0,0 +1,55 @@
|
|||||||
|
(label) @1
|
||||||
|
(label) @begin
|
||||||
|
(label) @end
|
||||||
|
(const nomodify byte*) DEFAULT_SCREEN = (byte*) 3072
|
||||||
|
(const nomodify byte*) KEYBOARD_INPUT = (byte*) 65288
|
||||||
|
(const nomodify byte*) KEYBOARD_SCAN = (byte*) 64816
|
||||||
|
(void()) main()
|
||||||
|
(byte~) main::$2 reg byte a 202.0
|
||||||
|
(byte~) main::$3 reg byte a 202.0
|
||||||
|
(byte~) main::$6 reg byte a 2002.0
|
||||||
|
(label) main::@1
|
||||||
|
(label) main::@2
|
||||||
|
(label) main::@3
|
||||||
|
(label) main::@4
|
||||||
|
(label) main::@5
|
||||||
|
(label) main::@6
|
||||||
|
(label) main::@7
|
||||||
|
(byte) main::key_bit
|
||||||
|
(byte) main::key_bit#0 reg byte x 202.0
|
||||||
|
(byte) main::key_bit#1 reg byte x 1001.0
|
||||||
|
(byte) main::key_bit#2 reg byte x 620.8
|
||||||
|
(byte*) main::row
|
||||||
|
(byte*) main::row#1 row zp[2]:3 101.0
|
||||||
|
(byte*) main::row#6 row zp[2]:3 85.92857142857143
|
||||||
|
(byte) main::x
|
||||||
|
(byte) main::x#1 reg byte y 2002.0
|
||||||
|
(byte) main::x#2 reg byte y 667.3333333333334
|
||||||
|
(byte) main::y
|
||||||
|
(byte) main::y#1 y zp[1]:2 202.0
|
||||||
|
(byte) main::y#2 y zp[1]:2 86.93333333333334
|
||||||
|
(void*()) memset((void*) memset::str , (byte) memset::c , (word) memset::num)
|
||||||
|
(label) memset::@1
|
||||||
|
(label) memset::@2
|
||||||
|
(label) memset::@return
|
||||||
|
(byte) memset::c
|
||||||
|
(const byte) memset::c#0 c = (byte) ' '
|
||||||
|
(byte*) memset::dst
|
||||||
|
(byte*) memset::dst#1 dst zp[2]:5 2002.0
|
||||||
|
(byte*) memset::dst#2 dst zp[2]:5 1334.6666666666667
|
||||||
|
(byte*) memset::end
|
||||||
|
(const byte*) memset::end#0 end = (byte*)(const void*) memset::str#0+(const word) memset::num#0
|
||||||
|
(word) memset::num
|
||||||
|
(const word) memset::num#0 num = (word) $400
|
||||||
|
(void*) memset::return
|
||||||
|
(void*) memset::str
|
||||||
|
(const void*) memset::str#0 str = (void*)(const nomodify byte*) DEFAULT_SCREEN
|
||||||
|
|
||||||
|
zp[1]:2 [ main::y#2 main::y#1 ]
|
||||||
|
zp[2]:3 [ main::row#6 main::row#1 ]
|
||||||
|
reg byte y [ main::x#2 main::x#1 ]
|
||||||
|
reg byte x [ main::key_bit#2 main::key_bit#0 main::key_bit#1 ]
|
||||||
|
zp[2]:5 [ memset::dst#2 memset::dst#1 ]
|
||||||
|
reg byte a [ main::$2 ]
|
||||||
|
reg byte a [ main::$3 ]
|
||||||
|
reg byte a [ main::$6 ]
|
||||||
Loading…
Reference in New Issue
Block a user