mirror of https://github.com/st3fan/ewm.git
Adding some random tests
This commit is contained in:
parent
f80e7cf8e6
commit
762c746aef
|
@ -0,0 +1,11 @@
|
||||||
|
|
||||||
|
all: echo.bin
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *.o *.bin *.lst *.hex
|
||||||
|
|
||||||
|
echo.bin: echo.o
|
||||||
|
ld65 -t none -vm -o $@ $<
|
||||||
|
echo.o: echo.s
|
||||||
|
ca65 -l $<
|
||||||
|
|
|
@ -0,0 +1,24 @@
|
||||||
|
|
||||||
|
.ORG $8000
|
||||||
|
|
||||||
|
KBD = $D010 ; PIA.A keyboard input
|
||||||
|
KBDCR = $D011 ; PIA.A keyboard control register
|
||||||
|
DSP = $D012 ; PIA.B display output register
|
||||||
|
DSPCR = $D013 ; PIA.B display control register
|
||||||
|
|
||||||
|
MAIN: JSR GETC ;
|
||||||
|
JSR PUTC ;
|
||||||
|
|
||||||
|
CMP #$03 ;
|
||||||
|
BNE MAIN ;
|
||||||
|
BRK ;
|
||||||
|
|
||||||
|
GETC: LDA KBDCR ;
|
||||||
|
BPL GETC ; Do we have a character?
|
||||||
|
LDA KBD ; Yup, load it
|
||||||
|
RTS ;
|
||||||
|
|
||||||
|
PUTC: BIT DSP ; Bit (B7) cleared yet?
|
||||||
|
BMI PUTC ; No, wait for display
|
||||||
|
STA DSP ; Yup, send it to the display
|
||||||
|
RTS ;
|
|
@ -0,0 +1,25 @@
|
||||||
|
|
||||||
|
all: echo.bin textpages.bin lores.bin buttons.bin
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *.o *.bin *.lst *.hex
|
||||||
|
|
||||||
|
echo.bin: echo.o
|
||||||
|
ld65 -t none -vm -o $@ $<
|
||||||
|
echo.o: echo.s
|
||||||
|
ca65 -l $<
|
||||||
|
|
||||||
|
textpages.bin: textpages.o
|
||||||
|
ld65 -t none -vm -o $@ $<
|
||||||
|
textpages.o: textpages.s
|
||||||
|
ca65 -l $<
|
||||||
|
|
||||||
|
lores.bin: lores.o
|
||||||
|
ld65 -t none -vm -o $@ $<
|
||||||
|
lores.o: lores.s
|
||||||
|
ca65 -l $<
|
||||||
|
|
||||||
|
buttons.bin: buttons.o
|
||||||
|
ld65 -t none -vm -o $@ $<
|
||||||
|
buttons.o: buttons.s
|
||||||
|
ca65 -l $<
|
|
@ -0,0 +1,16 @@
|
||||||
|
|
||||||
|
.org $8000
|
||||||
|
|
||||||
|
kybd = $c000
|
||||||
|
strobe = $c010
|
||||||
|
cout = $fded
|
||||||
|
home = $fc58
|
||||||
|
|
||||||
|
start: jsr home
|
||||||
|
loop: lda kybd
|
||||||
|
cmp #$80
|
||||||
|
bcc loop
|
||||||
|
sta strobe
|
||||||
|
jsr cout
|
||||||
|
jmp loop
|
||||||
|
|
|
@ -0,0 +1,113 @@
|
||||||
|
|
||||||
|
.org $8000
|
||||||
|
|
||||||
|
ptr = $06
|
||||||
|
|
||||||
|
full = $c052
|
||||||
|
mixed = $c053
|
||||||
|
|
||||||
|
page1 = $c054
|
||||||
|
page2 = $c055
|
||||||
|
|
||||||
|
kybd = $c000
|
||||||
|
strobe = $c010
|
||||||
|
|
||||||
|
|
||||||
|
main: lda $c054
|
||||||
|
lda $c056
|
||||||
|
lda $c052
|
||||||
|
lda $c050
|
||||||
|
|
||||||
|
jsr clear1
|
||||||
|
jsr clear2
|
||||||
|
|
||||||
|
loop: lda page1 ; mixed page 1
|
||||||
|
lda mixed
|
||||||
|
jsr clear1
|
||||||
|
jsr settext1
|
||||||
|
jsr wait
|
||||||
|
|
||||||
|
lda page1 ;full page 1
|
||||||
|
lda full
|
||||||
|
jsr clear1
|
||||||
|
jsr wait
|
||||||
|
|
||||||
|
lda page2 ;mixed page 2
|
||||||
|
lda mixed
|
||||||
|
jsr clear2
|
||||||
|
jsr settext2
|
||||||
|
jsr wait
|
||||||
|
|
||||||
|
lda page2 ;full page 2
|
||||||
|
lda full
|
||||||
|
jsr clear2
|
||||||
|
jsr wait
|
||||||
|
|
||||||
|
jmp loop
|
||||||
|
|
||||||
|
|
||||||
|
wait: lda kybd
|
||||||
|
cmp #$80
|
||||||
|
bcc wait
|
||||||
|
sta strobe
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
clear1: lda #$04
|
||||||
|
sta ptr+1
|
||||||
|
ldy #$00
|
||||||
|
sty ptr
|
||||||
|
start1: lda #$11
|
||||||
|
loop1: sta (ptr),y
|
||||||
|
iny
|
||||||
|
bne loop1
|
||||||
|
nxt1: inc ptr+1
|
||||||
|
lda ptr+1
|
||||||
|
cmp #$08
|
||||||
|
bcc start1
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
clear2: lda #$08
|
||||||
|
sta ptr+1
|
||||||
|
ldy #$00
|
||||||
|
sty ptr
|
||||||
|
start2: lda #$22
|
||||||
|
loop2: sta (ptr),y
|
||||||
|
iny
|
||||||
|
bne loop2
|
||||||
|
nxt2: inc ptr+1
|
||||||
|
lda ptr+1
|
||||||
|
cmp #$0c
|
||||||
|
bcc start2
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
settext1: lda #$06
|
||||||
|
sta ptr+1
|
||||||
|
ldy #$50
|
||||||
|
sty ptr
|
||||||
|
xstart2: lda #$B1
|
||||||
|
xloop2: sta (ptr),y
|
||||||
|
iny
|
||||||
|
bne xloop2
|
||||||
|
xnxt2: inc ptr+1
|
||||||
|
lda ptr+1
|
||||||
|
cmp #$08
|
||||||
|
bcc xstart2
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
settext2: lda #$0a
|
||||||
|
sta ptr+1
|
||||||
|
ldy #$50
|
||||||
|
sty ptr
|
||||||
|
ystart2: lda #$B2
|
||||||
|
yloop2: sta (ptr),y
|
||||||
|
iny
|
||||||
|
bne yloop2
|
||||||
|
ynxt2: inc ptr+1
|
||||||
|
lda ptr+1
|
||||||
|
cmp #$0c
|
||||||
|
bcc ystart2
|
||||||
|
rts
|
|
@ -0,0 +1,56 @@
|
||||||
|
|
||||||
|
.org $8000
|
||||||
|
|
||||||
|
ptr = $06
|
||||||
|
|
||||||
|
page2off = $c054
|
||||||
|
page2on = $c055
|
||||||
|
kybd = $c000
|
||||||
|
strobe = $c010
|
||||||
|
|
||||||
|
|
||||||
|
main: jsr clear1
|
||||||
|
jsr clear2
|
||||||
|
loop: lda page2off
|
||||||
|
jsr wait
|
||||||
|
lda page2on
|
||||||
|
jsr wait
|
||||||
|
jmp loop
|
||||||
|
|
||||||
|
|
||||||
|
wait: lda kybd
|
||||||
|
cmp #$80
|
||||||
|
bcc wait
|
||||||
|
sta strobe
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
clear1: lda #$04
|
||||||
|
sta ptr+1
|
||||||
|
ldy #$00
|
||||||
|
sty ptr
|
||||||
|
start1: lda #'1'
|
||||||
|
loop1: sta (ptr),y
|
||||||
|
iny
|
||||||
|
bne loop1
|
||||||
|
nxt1: inc ptr+1
|
||||||
|
lda ptr+1
|
||||||
|
cmp #$08
|
||||||
|
bcc start1
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
clear2: lda #$08
|
||||||
|
sta ptr+1
|
||||||
|
ldy #$00
|
||||||
|
sty ptr
|
||||||
|
start2: lda #'2'
|
||||||
|
loop2: sta (ptr),y
|
||||||
|
iny
|
||||||
|
bne loop2
|
||||||
|
nxt2: inc ptr+1
|
||||||
|
lda ptr+1
|
||||||
|
cmp #$0c
|
||||||
|
bcc start2
|
||||||
|
rts
|
||||||
|
|
Loading…
Reference in New Issue