cc65/testcode/lib/gamate/audiotest.s

;        .export reset, irq, nmi ; FIXME
        .export _main

        .include "gamate.inc"

.zeropage
addr: .word 0
psa:	.word 0

.word 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0 ; get out of sensitiv area

readaddr: .word 0
editbuffer1: .byte 0,0,0,0, 0,0,0,0 ;0,1,2,3,4,5,6,7
writeaddr: .word 0
editbuffer2: .byte 0,0,0,0, 0,0,0,0 ;8,9,$a,$b,$c,$d,$e,$f
cursor: .byte 0
controlslast: .byte 0
controlsedge: .byte 0

.data
temp_x:	.byte 0
temp_y:	.byte	0
temp_a:	.byte 0
irq_count: 	.byte 0
nmi_count:	.byte 0
psx:	.byte 0
psy:	.byte 0
xpos: .byte 0
ypos:	.byte 0

.code

chars:
.incbin "cga2.chr"

hex2asc:	.byte "0123456789abcdef"

;-------------------------------------------------------------------------------
        .export IRQStub

.proc nmi
        inc nmi_count
        rts
.endproc

.proc	IRQStub
        inc irq_count
        rts
.endproc

;-------------------------------------------------------------------------------

.proc _main
        lda #>AUDIO_BASE
        sta writeaddr+1
        sta readaddr+1
        lda #<AUDIO_BASE
        sta writeaddr
        sta readaddr

        lda #$10
        sta editbuffer1+6
        lda #$e
        sta editbuffer2+5
        lda #$ff
        sta editbuffer2+3
        lda #$ff
        sta editbuffer2+4
        lda #$0f
        sta editbuffer2
        lda #$0f
        sta editbuffer2+1
        lda #$0e
        sta editbuffer2+2
        lda	#$38
        sta editbuffer1+7

        lda #0
        sta	LCD_XPOS
        sta LCD_YPOS
        sta irq_count
        sta cursor
        lda #1
        sta nmi_count
        cli
        lda	#LCD_MODE_INC_Y
        sta	LCD_MODE

        jsr printy

        lda #1
        sta ZP_NMI_ENABLE

loop:	
        lda irq_count
loop1:
        cmp irq_count
        beq	loop1
        lda irq_count
        and #7
        bne loop1

        lda	#LCD_MODE_INC_Y
        sta	LCD_MODE

        ldx #3
        ldy #32
        lda irq_count
        jsr printhex


        lda cursor
        ldy	#0
        cmp #20
        bcc firstline
        sec
        sbc	#20
        ldy #24
firstline:
        sta LCD_X
        sty LCD_Y
        lda #' '
        jsr printsign
norclearcursor:

        jsr inputs

        lda irq_count
        and #8
        bne nocursor
        lda cursor
        ldy	#0
        cmp #20
        bcc firstline2
        sec
        sbc	#20
        ldy #24
firstline2:
        sta LCD_X
        sty LCD_Y
        lda #'x'
        jsr printsign
nocursor:

        lda	#LCD_MODE_INC_Y
        sta	LCD_MODE
        jsr printy
        jmp loop
.endproc

.proc printy

        ldy #0
loop1: 
        tya
        pha
        asl
        tax
        lda readaddr,y
        ldy #8
        jsr printhex
        pla
        tay
        iny
        cpy #10
        bne loop1

loop2:
        tya
        pha
        tya
        sec
        sbc #10
        asl
        tax
        lda readaddr,y
        ldy #16
        jsr printhex
        pla
        tay
        iny
        cpy #20
        bne loop2

        ldx #0
        ldy #32
        lda nmi_count
        jsr printhex

        rts
.endproc

;-------------------------------------------------------------------------------

.proc inputs
        lda controlslast
        eor JOY_DATA
        and controlslast
        eor #$ff
        sta controlsedge
        and #JOY_DATA_UP
        bne notup

        lda cursor
        lsr
        tay
        bcs uplow
        lda readaddr,y
        clc
        adc #$10
        sta readaddr,y
        jmp notup
uplow:lda readaddr,y
        clc
        adc #1
        sta readaddr,y
notup:lda controlsedge
        and #JOY_DATA_DOWN
        bne notdown
        lda cursor
        lsr
        tay
        bcs downlow
        lda readaddr,y
        sec
        sbc #$10
        sta readaddr,y
        jmp notdown
downlow:
        lda readaddr,y
        sec
        sbc #1
        sta readaddr,y
notdown:lda controlsedge
        and #JOY_DATA_LEFT
        bne notleft
        lda cursor
        beq notleft
        dec cursor
notleft:lda controlsedge
        and #JOY_DATA_RIGHT
        bne notright
        lda cursor
        cmp #40
        beq notright
        inc cursor
notright:lda controlsedge
        and #JOY_DATA_START
        bne notstart
        lda #0
        sta AUDIO_BASE
        sta AUDIO_BASE+1
        sta AUDIO_BASE+2
        sta AUDIO_BASE+3
        sta AUDIO_BASE+4
        sta AUDIO_BASE+5
        sta AUDIO_BASE+6
        sta AUDIO_BASE+8
        sta AUDIO_BASE+9
        sta AUDIO_BASE+10
        sta AUDIO_BASE+11
        sta AUDIO_BASE+12
        sta AUDIO_BASE+13
        sta AUDIO_BASE+7
notstart:lda controlsedge
        and #JOY_DATA_SELECT
        bne notselect
        lda editbuffer1
        sta AUDIO_BASE
        lda editbuffer1+1
        sta AUDIO_BASE+1
        lda editbuffer1+2
        sta AUDIO_BASE+2
        lda editbuffer1+3
        sta AUDIO_BASE+3
        lda editbuffer1+4
        sta AUDIO_BASE+4
        lda editbuffer1+5
        sta AUDIO_BASE+5
        lda editbuffer1+6
        sta AUDIO_BASE+6
        lda editbuffer2
        sta AUDIO_BASE+8
        lda editbuffer2+1
        sta AUDIO_BASE+9
        lda editbuffer2+2
        sta AUDIO_BASE+10
        lda editbuffer2+3
        sta AUDIO_BASE+11
        lda editbuffer2+4
        sta AUDIO_BASE+12
        lda editbuffer2+5
        sta AUDIO_BASE+13
        lda editbuffer1+7
        sta AUDIO_BASE+7
notselect:lda controlsedge
        and #JOY_DATA_FIRE_A
        bne notbuttona
        ldy #0
        ldy #0
writea:lda editbuffer1,y
        sta (writeaddr),y
        iny
        cpy	#8
        bne writea
writeb:lda editbuffer2-8,y
        sta (writeaddr),y
        iny
        cpy	#16
        bne writeb
notbuttona:lda controlsedge
        and #JOY_DATA_FIRE_B
        bne notbuttonb
        ldy #0
reada:lda (readaddr),y
        sta editbuffer1,y
        iny
        cpy	#8
        bne reada
readb:lda (readaddr),y
        sta editbuffer2-8,y
        iny
        cpy	#16
        bne readb
notbuttonb:
        lda JOY_DATA
        sta	controlslast
        rts
.endproc

;-------------------------------------------------------------------------------

.proc printstring
        sta	psa
        stx psa+1
        ldx #0
        stx	psx
        sty psy
printstring2:
        ldy	#0
        lda	(psa),y
        beq printstring1
        ldx psx
        stx	LCD_X
        ldy psy
        sty	LCD_Y
        jsr printsign
        inc psx
        lda psa
        clc
        adc	#1
        sta psa
        lda psa+1
        adc	#0
        sta psa+1
        jmp printstring2
printstring1:
        rts
.endproc

.proc printstringy
        sta	psa
        stx psa+1
printstring2:
        ldy	#0
        lda	(psa),y
        beq printstring1
        jsr printsign
        lda psa
        clc
        adc	#1
        sta psa
        lda psa+1
        adc	#0
        sta psa+1
        jmp printstring2
printstring1:
        rts
.endproc


.proc printhex
        pha
        lsr
        lsr
        lsr
        lsr
        and #$0f
        stx	temp_x
        tax
        lda	hex2asc,x
        ldx	temp_x
        stx	LCD_X
        sty	LCD_Y
        jsr	printsign
        pla
        and	#$0f
        inx
        stx	temp_x
        tax
        lda	hex2asc,x
        ldx	temp_x
        stx	LCD_X
        sty	LCD_Y
        jmp printsign
.endproc

.proc printsign
        sty	temp_y
        stx	temp_x
        sta	temp_a
        lda temp_a
        sta	addr
        lda #0
        sta addr+1
        asl	addr
        rol	addr+1
        asl	addr
        rol addr+1
        asl addr
        rol addr+1
        lda addr
        clc
        adc	#<chars
        sta	addr
        lda	addr+1
        adc	#>chars
        sta addr+1
        ldx	#8
        ldy #0
printsign1:
        lda	(addr),y
        sta	LCD_DATA
        iny
        dex
        bne printsign1
        ldx	temp_x
        ldy	temp_y
        rts
.endproc