Apple-1-Tools
/
Vicious
mirror of https://github.com/sampopeltonen/Vicious.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Vicious/firmware/sidfile.s

554 lines
9.8 KiB
ArmAsm
Raw Blame History

;
; File generated by cc65 v 2.13.3
;
.fopt compiler,"cc65 v 2.13.3"
.setcpu "6502"
.smart on
.autoimport on
.case on
.debuginfo off
.importzp sp, sreg, regsave, regbank, tmp1, ptr1, ptr2
.macpack longbranch
.import _initSIDTune
.import _prints
.import _printw
.import _fixSIDTune
.import _memcmp
.export _playSidFile
.export _readSidHeader
.export _moveSIDCodeToPlace
.export __strcpy
.export _MAGIG_ID_PSID
.export __memcpy
.export __readBigEndianW
.segment "RODATA"
_MAGIG_ID_PSID:
.byte $50
.byte $53
.byte $49
.byte $44
L0001:
.byte $0D,$0D,$56,$49,$43,$49,$4F,$55,$53,$20,$53,$49,$44,$20,$50,$4C
.byte $41,$59,$45,$52,$0D,$00,$0D,$54,$49,$54,$4C,$45,$3A,$20,$20,$20
.byte $00,$0D,$41,$55,$54,$48,$4F,$52,$3A,$20,$20,$00,$0D,$52,$45,$4C
.byte $45,$41,$53,$45,$3A,$20,$00,$0D,$53,$4F,$4E,$47,$53,$3A,$20,$24
.byte $00,$20,$44,$45,$46,$41,$55,$4C,$54,$3A,$20,$24,$00,$0D,$55,$53
.byte $49,$4E,$47,$20,$46,$49,$4C,$45,$20,$53,$49,$5A,$45,$3A,$20,$24
.byte $00,$0D,$49,$4E,$49,$54,$20,$41,$44,$44,$52,$45,$53,$53,$3A,$20
.byte $20,$20,$20,$24,$00,$0D,$50,$4C,$41,$59,$20,$41,$44,$44,$52,$45
.byte $53,$53,$3A,$20,$20,$20,$20,$24,$00,$0D,$4C,$4F,$41,$44,$20,$41
.byte $44,$44,$52,$45,$53,$53,$3A,$20,$20,$20,$20,$24,$00,$0D,$00,$53
.byte $54,$41,$52,$54,$20,$50,$4C,$41,$59,$49,$4E,$47,$2E,$2E,$2E,$0D
.byte $00,$0D,$53,$49,$44,$20,$54,$55,$4E,$45,$20,$4E,$4F,$54,$20,$46
.byte $4F,$55,$4E,$44,$20,$49,$4E,$20,$41,$44,$44,$52,$45,$53,$53,$20
.byte $24,$00,$0D,$00
; ---------------------------------------------------------------
; void __near__ playSidFile (unsigned int, unsigned int)
; ---------------------------------------------------------------
.segment "CODE"
.proc _playSidFile: near
.segment "CODE"
ldy #$7A
jsr subysp
lda #<(L0001)
ldx #>(L0001)
jsr pushax
jsr _prints
ldy #$7F
jsr pushwysp
lda #$04
jsr leaa0sp
jsr pushax
jsr _readSidHeader
tax
jeq L007D
lda #<(L0001+22)
ldx #>(L0001+22)
jsr pushax
jsr _prints
lda #$1A
jsr leaa0sp
jsr pushax
jsr _prints
lda #<(L0001+33)
ldx #>(L0001+33)
jsr pushax
jsr _prints
lda #$3A
jsr leaa0sp
jsr pushax
jsr _prints
lda #<(L0001+44)
ldx #>(L0001+44)
jsr pushax
jsr _prints
lda #$5A
jsr leaa0sp
jsr pushax
jsr _prints
lda #<(L0001+55)
ldx #>(L0001+55)
jsr pushax
jsr _prints
ldy #$15
jsr pushwysp
jsr _printw
lda #<(L0001+65)
ldx #>(L0001+65)
jsr pushax
jsr _prints
ldy #$17
jsr pushwysp
jsr _printw
lda #<(L0001+77)
ldx #>(L0001+77)
jsr pushax
jsr _prints
ldy #$7D
jsr pushwysp
jsr _printw
lda #<(L0001+97)
ldx #>(L0001+97)
jsr pushax
jsr _prints
ldy #$11
jsr pushwysp
jsr _printw
lda #<(L0001+117)
ldx #>(L0001+117)
jsr pushax
jsr _prints
ldy #$13
jsr pushwysp
jsr _printw
lda #$02
jsr leaa0sp
jsr pushax
ldy #$7F
jsr pushwysp
jsr _moveSIDCodeToPlace
jsr stax0sp
lda #<(L0001+137)
ldx #>(L0001+137)
jsr pushax
jsr _prints
jsr pushw0sp
jsr _printw
lda #<(L0001+157)
ldx #>(L0001+157)
jsr pushax
jsr _prints
jsr pushw0sp
ldy #$7F
jsr pushwysp
jsr _fixSIDTune
ldy #$11
jsr pushwysp
ldy #$13
jsr ldaxysp
jsr _initSIDTune
ldx #$4E
lda #$20
sta $BF84
stx $BF84+1
lda #$81
sta $BF8D
lda #<(L0001+159)
ldx #>(L0001+159)
jsr pushax
jsr _prints
lda #$11
sta $BF8E
jmp L00C2
L007D: lda #<(L0001+177)
ldx #>(L0001+177)
jsr pushax
jsr _prints
ldy #$7F
jsr pushwysp
jsr _printw
lda #<(L0001+210)
ldx #>(L0001+210)
jsr pushax
jsr _prints
L00C2: ldy #$7E
jmp addysp
.endproc
; ---------------------------------------------------------------
; unsigned char __near__ readSidHeader (unsigned int, __near__ struct SidHeader1*)
; ---------------------------------------------------------------
.segment "CODE"
.proc _readSidHeader: near
.segment "CODE"
jsr ldax0sp
sta ptr1
stx ptr1+1
ldy #$03
jsr ldaxysp
ldy #$00
sta (ptr1),y
iny
txa
sta (ptr1),y
jsr ldax0sp
jsr incax2
jsr pushax
ldy #$07
jsr pushwysp
lda #$04
jsr pusha0
jsr __memcpy
jsr ldax0sp
jsr incax2
jsr pushax
lda #<(_MAGIG_ID_PSID)
ldx #>(_MAGIG_ID_PSID)
jsr pushax
lda #$04
jsr pusha
jsr _memcmp
cmp #$00
bne L0039
tax
jmp incsp4
L0039: jsr pushw0sp
ldy #$05
jsr ldaxysp
jsr incax4
jsr pushax
jsr __readBigEndianW
ldy #$06
jsr staxspidx
jsr pushw0sp
ldy #$05
jsr ldaxysp
jsr incax6
jsr pushax
jsr __readBigEndianW
ldy #$08
jsr staxspidx
jsr pushw0sp
ldy #$05
jsr ldaxysp
jsr incax8
jsr pushax
jsr __readBigEndianW
ldy #$0A
jsr staxspidx
jsr pushw0sp
ldy #$05
jsr ldaxysp
ldy #$0A
jsr incaxy
jsr pushax
jsr __readBigEndianW
ldy #$0C
jsr staxspidx
jsr pushw0sp
ldy #$05
jsr ldaxysp
ldy #$0C
jsr incaxy
jsr pushax
jsr __readBigEndianW
ldy #$0E
jsr staxspidx
jsr pushw0sp
ldy #$05
jsr ldaxysp
ldy #$0E
jsr incaxy
jsr pushax
jsr __readBigEndianW
ldy #$10
jsr staxspidx
jsr pushw0sp
ldy #$05
jsr ldaxysp
ldy #$10
jsr incaxy
jsr pushax
jsr __readBigEndianW
ldy #$12
jsr staxspidx
jsr ldax0sp
ldy #$14
jsr incaxy
jsr pushax
ldy #$05
jsr ldaxysp
ldy #$12
jsr incaxy
jsr pushax
lda #$04
jsr pusha0
jsr __memcpy
jsr ldax0sp
ldy #$18
jsr incaxy
jsr pushax
ldy #$05
jsr ldaxysp
ldy #$16
jsr incaxy
jsr pushax
lda #$20
jsr pusha0
jsr __strcpy
jsr ldax0sp
ldy #$38
jsr incaxy
jsr pushax
ldy #$05
jsr ldaxysp
ldy #$36
jsr incaxy
jsr pushax
lda #$20
jsr pusha0
jsr __strcpy
jsr ldax0sp
ldy #$58
jsr incaxy
jsr pushax
ldy #$05
jsr ldaxysp
ldy #$56
jsr incaxy
jsr pushax
lda #$20
jsr pusha0
jsr __strcpy
ldx #$00
lda #$01
jmp incsp4
.endproc
; ---------------------------------------------------------------
; unsigned int __near__ moveSIDCodeToPlace (__near__ struct SidHeader1*, unsigned int)
; ---------------------------------------------------------------
.segment "CODE"
.proc _moveSIDCodeToPlace: near
.segment "CODE"
jsr decsp2
ldy #$05
jsr ldaxysp
jsr ldaxi
sta sreg
stx sreg+1
ldy #$05
jsr ldaxysp
ldy #$09
jsr ldaxidx
clc
adc sreg
pha
txa
adc sreg+1
tax
pla
jsr pushax
ldy #$07
jsr ldaxysp
ldy #$0B
jsr ldaxidx
cpx #$00
bne L00C9
cmp #$00
beq L0069
L00C9: ldy #$07
jsr ldaxysp
ldy #$0B
jsr ldaxidx
ldy #$02
jsr staxysp
jmp L006E
L0069: jsr ldax0sp
jsr ldaxi
ldy #$02
jsr staxysp
ldx #$00
lda #$02
jsr addeq0sp
L006E: ldy #$05
jsr pushwysp
ldy #$05
jsr pushwysp
ldy #$0B
jsr pushwysp
jsr __memcpy
ldy #$03
jsr ldaxysp
jmp incsp8
.endproc
; ---------------------------------------------------------------
; void __near__ _strcpy (__near__ unsigned char*, unsigned int, unsigned int)
; ---------------------------------------------------------------
.segment "CODE"
.proc __strcpy: near
.segment "CODE"
jsr push0
L0019: jsr ldax0sp
ldy #$02
cmp (sp),y
txa
iny
sbc (sp),y
bcs L001A
jsr ldax0sp
clc
ldy #$04
adc (sp),y
sta ptr1
txa
iny
adc (sp),y
sta ptr1+1
ldy #$00
lda (ptr1),y
jsr pusha
ldy #$00
lda (sp),y
cmp #$61
bcc L001F
lda (sp),y
sec
sbc #$20
sta (sp),y
L001F: ldy #$02
jsr ldaxysp
clc
ldy #$07
adc (sp),y
sta ptr1
txa
iny
adc (sp),y
sta ptr1+1
ldy #$00
lda (sp),y
sta (ptr1),y
ldy #$02
jsr ldaxysp
jsr incax1
ldy #$01
jsr staxysp
jsr incsp1
jmp L0019
L001A: ldy #$09
jsr pushwysp
ldy #$05
jsr ldaxysp
jsr decax1
jsr tosaddax
sta ptr1
stx ptr1+1
lda #$00
tay
sta (ptr1),y
jmp incsp8
.endproc
; ---------------------------------------------------------------
; void __near__ _memcpy (__near__ unsigned char*, unsigned int, unsigned int)
; ---------------------------------------------------------------
.segment "CODE"
.proc __memcpy: near
.segment "CODE"
jsr push0
L000E: jsr ldax0sp
ldy #$02
cmp (sp),y
txa
iny
sbc (sp),y
jcs incsp8
jsr ldax0sp
clc
ldy #$06
adc (sp),y
sta sreg
txa
iny
adc (sp),y
sta sreg+1
jsr ldax0sp
clc
ldy #$04
adc (sp),y
sta ptr1
txa
iny
adc (sp),y
sta ptr1+1
ldy #$00
lda (ptr1),y
sta (sreg),y
jsr ldax0sp
jsr incax1
jsr stax0sp
jmp L000E
.endproc
; ---------------------------------------------------------------
; unsigned int __near__ _readBigEndianW (unsigned int)
; ---------------------------------------------------------------
.segment "CODE"
.proc __readBigEndianW: near
.segment "CODE"
jsr ldax0sp
sta ptr1
stx ptr1+1
ldy #$00
lda (ptr1),y
tax
tya
jsr pushax
jsr pushw0sp
ldy #$05
jsr ldaxysp
jsr incax1
sta ptr1
stx ptr1+1
ldx #$00
lda (ptr1,x)
jsr tosadda0
jmp incsp4
.endproc
Reference in New Issue View Git Blame Copy Permalink