Cybernoid/Cybernoid2/Cybernoid2.a

;ACME 0.85

!cpu 6502	; Compatible with all Apple2's
!to "Cybernoid2", plain
!sl "Cybernoid2.labels"
*=$6000

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

!source "..\Common\Z80-Macros.a"
!source "..\Common\ZP-Macros.a"
!source "..\Common\AppleDefs.a"
!source "..\Common\MockingboardDefs.a"
!source "..\Common\MB-Macros.a"

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

!zone code

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

NUM_SONGS = 16

INIT:
; Pre: A = Song# [0..NUM_SONGS-1]
;

	+MB_Init1	RegA

	+PUSH16	RegA	;RegAF
	jsr		lf3fa
	+POP16	RegA	;RegAF
	jsr		lf398

	+MB_Init2
	rts

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

lf398:		; Called by INIT
	+LD		RegE, RegA

lf399:		; Re-init: Called by Cmd_01..08
	+LD		RegC, RegA
	jsr		lf415

	+LD_REG_INDIRECT	RegA, RegHL
	cmp		#$09
	bcs		lf3a5
		+LD		RegC, RegA
		+INCW	RegHL
		+LD_REG_INDIRECT	RegA, RegHL

lf3a5:
	cmp		#$f4
	php					; New
	+LD_REG_IMM	RegB, $0a
	plp					; New
	bne		lf3ae

		+INCW	RegHL
		+LD_REG_INDIRECT	RegB, RegHL
		+INCW	RegHL

lf3ae:
	+LDW	RegIX, lf690
	dec		RegC
	beq		lf3d1

	+LDW	RegIX, lf6b3
	dec		RegC
	beq		lf3d1

	+LDW	RegIX, lf6d6
	dec		RegC
	beq		lf3d1

	+LD_REG_INDIRECT_ABS	RegA, lf6a0
;	ora		RegA		; Superfluous
	+LDW	RegIX, lf690
	beq		lf3d1
		+LDW	RegIX, lf6b3

lf3d1:
	+LD		RegA, RegB
	+CP_INDIRECT_OFFSET	RegIX, $10
	+RET_C	

	+LD_REG_IMM	RegA, 0	; xor a
	+LD_INDIRECT_OFFSET	RegIX, $10, RegA
	+LD_INDIRECT_OFFSET	RegIX, $12, RegL
	+LD_INDIRECT_OFFSET	RegIX, $13, RegH
	+LD_INDIRECT_OFFSET	RegIX, $14, RegL
	+LD_INDIRECT_OFFSET	RegIX, $15, RegH
	+LD_INDIRECT_OFFSET	RegIX, $16, RegL
	+LD_INDIRECT_OFFSET	RegIX, $17, RegH
	+LD_INDIRECT_OFFSET_IMM	RegIX, $11, $01
	+LD_INDIRECT_OFFSET	RegIX, $18, RegA
	+LD_INDIRECT_OFFSET	RegIX, $20, RegA
	+LD_INDIRECT_OFFSET	RegIX, $10, RegB
	rts

lf3fa:
	+LD_REG_IMM	RegA, 0	; xor a
	+LD_INDIRECT_ABS	lf6a0, RegA
	+LD_INDIRECT_ABS	lf6c3, RegA
	+LD_INDIRECT_ABS	lf6e6, RegA
	+LD_INDIRECT_ABS	lf67a, RegA
	+LD_INDIRECT_ABS	lf67b, RegA
	+LD_INDIRECT_ABS	lf67c, RegA
	+LD_REG_IMM	RegA, $3f
	+LD_INDIRECT_ABS	lf679, RegA
	jmp	lf46c

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

lf415:

;	+LD		RegA, RegE
;	lda		RegA
;	asl	
;	sta		RegA
;
;	clc		; CARRY OK
;	lda		RegA
;	adc		#$<lf818
;	sta		RegA
;	+LD		RegL, RegA
;	lda		RegA
;	adc		#$>lf818
;	sta		RegA
;
;	sbc		RegL	; CARRY possibly wrong
;	+LD		RegH, RegA
;	+LD_REG_INDIRECT	RegE, RegHL
;	+INCW	RegHL
;	+LD_REG_INDIRECT	RegD, RegHL
;	+LDW	RegHL, lf700
;	+ADDW	RegHL, RegDE

	lda		RegE
	cmp		#58
	bcc		.lt1
		brk
.lt1

	lda		#<lf818
	sta		TmpHL			; LSB
	lda		#>lf818
	sta		TmpHL+1			; MSB

	+LD		RegA, RegE
	asl		; =lsl
	tay

	clc
	lda		(TmpHL),y		; LSB
	adc		#<lf700
	sta		RegL
	iny
	lda		(TmpHL),y		; MSB
	adc		#>lf700
	sta		RegH

	rts

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

lf426:

;	+LD		RegA, RegE
;	lda		RegA
;	asl	
;	sta		RegA
;
;	clc		; CARRY OK
;	lda		RegA
;	adc		#$c8
;	sta		RegA
;	+LD		RegE, RegA
;	lda		RegA
;	adc		#$f7
;	sta		RegA
;
;	sbc		RegE	; CARRY possibly wrong
;	+LD		RegD, RegA
;	+LD_REG_INDIRECT	RegA, RegDE
;	clc		; CARRY possibly wrong
;	lda		RegA
;	adc		#$00
;	sta		RegA
;	+LD		RegC, RegA
;	+INCW	RegDE
;	+LD_REG_INDIRECT	RegA, RegDE
;	lda		RegA
;	adc		#$f7
;	sta		RegA
;	+LD		RegB, RegA

	lda		RegE
	cmp		#40
	bcc		.lt2
		brk
.lt2

	lda		#<lf7c8
	sta		TmpHL			; LSB
	lda		#>lf7c8
	sta		TmpHL+1			; MSB

	+LD		RegA, RegE
	asl		; =lsl
	tay

	clc
	lda		(TmpHL),y		; LSB
	adc		#<lf700
	sta		RegC
	iny
	lda		(TmpHL),y		; MSB
	adc		#>lf700
	sta		RegB

	rts

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

Interrupt:
	+MB_ISR	lf439

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

lf439:
	inc		nFrameNum+2
	lda		nFrameNum+2
	cmp		#50
	bne		.fnum_ok
		lda		#0
		sta		nFrameNum+2
		inc		nFrameNum+1
		lda		nFrameNum+1
		cmp		#60
		bne		.fnum_ok
			lda		#0
			sta		nFrameNum+1
			inc		nFrameNum+0
.fnum_ok:

	;

	+LDW	RegIX, lf690			; IX = &VoiceA
	+LDW_INDIRECT	RegHL, lf672	; HL = AYREGS.PeriodA
	jsr	lf483
	+LDW_INDIRECT	RegHL, lf680
	+LDW_INDIRECT	lf672, RegHL	; AYREGS.PeriodA = (lf680)

	+LDW_INDIRECT	RegHL, lf674	; HL = AYREGS.PeriodB
	+LDW	RegIX, lf6b3			; IX = &VoiceB
	jsr	lf483
	+LDW_INDIRECT	RegHL, lf680
	+LDW_INDIRECT	lf674, RegHL	; AYREGS.PeriodB = (lf680)

	+LDW_INDIRECT	RegHL, lf676	; HL = AYREGS.PeriodC
	+LDW	RegIX, lf6d6			; IX = &VoiceC
	jsr	lf483
	+LDW_INDIRECT	RegHL, lf680
	+LDW_INDIRECT	lf676, RegHL	; AYREGS.PeriodC = (lf680)

	jsr	lf62e

	;

lf46c:
	; Copy [lf67f..lf672] -> AY registers
	+MB_WriteAYRegs	lf672

	rts

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

lf483:
	+LDW_INDIRECT	lf680, RegHL	; Init 'Tone period'
	+LD_REG_INDIRECT_OFFSET	RegA, RegIX, $10
;	ora		RegA						; Superfluous
	+RET_Z	

	+DEC_INDIRECT_OFFSET	RegIX, $11
	+JP_NZ	lf5dd

	+LD_REG_IMM	RegA, $14
	+LD_INDIRECT_ABS	lf49d_SMC+1, RegA	; Self mod'ing code

	+LD_REG_INDIRECT_OFFSET	RegH, RegIX, $13
	+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $12

lf49c:
;	+LD_REG_IMM	RegA, $12				; SMC-target
lf49d_SMC:
	lda		#$12
	sta		RegA
	;
	dec		RegA
	+LD_INDIRECT_ABS	lf49d_SMC+1, RegA	; Self mod'ing code
	+RET_Z	

	+LD_REG_INDIRECT	RegA, RegHL		; Cmd
	+INCW	RegHL
	+LD_REG_INDIRECT	RegE, RegHL		; Param
	+INCW	RegHL

	lda		RegA
	+JP_Z	lf588

	cmp		#$09
	+JP_C	lf4f9						; jp if a = {1..8}
	cmp		#$65
	+JP_C	lf583						; jp if a = {09h..64h}
	cmp		#$7f
	+JP_C	lf504						; jp if a = {65h..7Eh} (Diff)
	cmp		#$df
	+JP_C	lf578						; jp if a = {7Fh..DEh} (Diff)

	cmp		#$e3
	+JP_Z	lf581
	cmp		#$e1
	+JP_Z	lf4ec
	cmp		#$e9
	+JP_Z	lf517
	cmp		#$e8
	+JP_Z	lf523
	cmp		#$ea
	+JP_Z	lf52f
	cmp		#$e2
	+JP_Z	lf55e
	cmp		#$e5
	+JP_Z	lf539
	cmp		#$e6
	+JP_Z	lf511
	cmp		#$f0
	+JP_Z	lf558
	cmp		#$ff
	+JP_Z	lf545
	jmp		lf49c

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

lf4ec:		; Cmd_E1
	+LD_INDIRECT_OFFSET_IMM	RegIX, $10, $00
	+LD_REG_INDIRECT_OFFSET	RegH, RegIX, $1d	; HL = &AYREGS[VolX]
	+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $1c
	+LD_INDIRECT_IMM	RegHL, $00
	rts

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

lf4f9:		; Cmd_01..08
	+PUSH16	RegHL		; Diff
	+PUSH16	RegIX
	jsr		lf399		; Re-init
	+POP16	RegIX		; Diff
	+POP16	RegHL
	jmp	lf49c

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

lf504:		; Cmd_66..7F (Diff)
	sec		; CARRY OK
	sbc		#$66		; A = [0..$19]
	sta		RegA		; New
	+LD_INDIRECT_ABS	lf678, RegA		; Noise
	+LD_INDIRECT_OFFSET_IMM	RegIX, $19, $01
	+DECW	RegHL
	jmp		lf49c

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

lf511:		; Cmd_E6
	+LD_INDIRECT_OFFSET	RegIX, $18, RegE
	jmp		lf49c

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

lf517:		; Cmd_E9
	jsr		lf426
	+LD_INDIRECT_OFFSET	RegIX, $0e, RegC
	+LD_INDIRECT_OFFSET	RegIX, $0f, RegB
	jmp		lf49c

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

lf523:		; Cmd_E8
	jsr		lf426
	+LD_INDIRECT_OFFSET	RegIX, $0c, RegC
	+LD_INDIRECT_OFFSET	RegIX, $0d, RegB
	jmp		lf49c

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

lf52f:		; Cmd_EA
	jsr		lf426
	+LDW_INDIRECT	lf68e, RegBC
	jmp		lf49c

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

lf539:		; Cmd_E5
	+LD_INDIRECT_OFFSET	RegIX, $15, RegH
	+LD_INDIRECT_OFFSET	RegIX, $14, RegL
	jsr		lf415
	jmp		lf49c

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

lf545:		; Cmd_FF
	+LD_REG_INDIRECT_OFFSET	RegH, RegIX, $15
	+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $14
	+LD_REG_INDIRECT	RegA, RegHL
	inc		RegA
	bne		lf555
	   	+LD_REG_INDIRECT_OFFSET	RegH, RegIX, $17
		+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $16

lf555:
	jmp		lf49c

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

lf558:		; Cmd_F0
	+LD_INDIRECT_OFFSET	RegIX, $20, RegE
	jmp		lf49c

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

lf55e:		; Cmd_E2
; Pseudo random number generator

	+PUSH16	RegHL

;	+LDW	RegHL, $da52			; SMC-target
lf560_SMC_l:
	lda		#<$da52					; LSB
	sta		RegL
lf560_SMC_h:
	lda		#>$da52					; MSB
	sta		RegH

	+LD		RegC, RegL
	+LD		RegB, RegH
	+ADDW	RegHL, RegHL
	+ADDW	RegHL, RegHL
	+ADDW	RegHL, RegBC
	+ADDW	RegHL, RegHL
	+ADDW	RegHL, RegHL
	+ADDW	RegHL, RegHL
	+ADDW	RegHL, RegBC

;	+LDW_INDIRECT	lf560, RegHL	; Self modifying code
	lda		RegL
	sta		lf560_SMC_l+1			; Self modifying code
	lda		RegH
	sta		lf560_SMC_h+1			; Self modifying code
	;
	+LD		RegA, RegH

	and		RegE
	sta		RegA				; New
	inc		RegA

;	+LD_INDIRECT_ABS	lf582, RegA	; Self modifying code
	lda		RegA
	sta		lf582_SMC+1			; Self modifying code

	+POP16	RegHL
	jmp		lf49c

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

lf578:		; Cmd_80..DF (Diff)

	and		#$7f		; A = [0..$5f]
	sta		RegA		; New
	+DECW	RegHL
	+LD_REG_INDIRECT_OFFSET	RegE, RegIX, $1f
	jmp		lf583

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

lf581:		; Cmd_E3

;	+LD_REG_IMM	RegA, $1b			; SMC-target
lf582_SMC:
	lda		#$1b
	sta		RegA

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

lf583:		; Cmd_09..64

	clc		; CARRY OK
	ldy		#$18
	lda		RegA		; Req'd: lf578 jmp's with A=RegE
	adc		(RegIX),y
	sta		RegA		; Superfluous

	sec		; CARRY possibly wrong	; Diff
	sbc		#$0c					; Diff
	sta		RegA		; New		; Diff

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

lf588:		; Cmd_00

	+LD_INDIRECT_OFFSET	RegIX, $11, RegE
	+LD_INDIRECT_OFFSET	RegIX, $21, RegA
	+LD_INDIRECT_OFFSET	RegIX, $1f, RegE	; Diff
	+LD_INDIRECT_OFFSET	RegIX, $13, RegH	; Diff
	+LD_INDIRECT_OFFSET	RegIX, $12, RegL	; Diff
	jsr	lf61e
	+LD_REG_INDIRECT_OFFSET	RegH, RegIX, $1d	; HL = &AYREGS[VolX]
	+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $1c
	+LD_INDIRECT_IMM	RegHL, $00				; AYREGS[VolX] = $00
	+PUSH16	RegIX
	+POP16	RegDE			; DE = &VoiceX[0]
	+LDW	RegHL, $008
	+ADDW	RegHL, RegDE	; HL = &VoiceX[8]
	+LDI
	+LDI
	+LDI
	+LDI
	+LDI
	+LDI
	+LDI
	+LDI					; memcpy(&VoiceX[0], &VoiceX[8], 8)

	+DEC_INDIRECT_OFFSET	RegIX, $19
	php		; New: Save flags
	+LD_INDIRECT_OFFSET_IMM	RegIX, $19, $00
	+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $1a
	plp		; New: Restore flags
	bne		lf5d1
	+LDW_INDIRECT	RegHL, $f68e
	+LDW_INDIRECT	lf686, RegHL
	+LDW	RegHL, $0000
	+LDW_INDIRECT	lf682, RegHL

lf5d1:
	+LD_REG_INDIRECT_ABS	RegA, lf679	; Enable
	ldy		#$1b
	and		(RegIX),y
	ora		RegL
	and		#$3f
	sta		RegA			; New
	+LD_INDIRECT_ABS	lf679, RegA		; Enable

lf5dd:
	jsr		lf646
	+LD_REG_INDIRECT_OFFSET	RegH, RegIX, $1d
	+LD_REG_INDIRECT_OFFSET	RegL, RegIX, $1c
	+LD_REG_INDIRECT	RegA, RegHL
	clc	
	lda		RegA			; Superfluous
	adc		RegC
	sta		RegA			; Superfluous
	sec		; CARRY OK
	sbc		#$80
	sta		RegA			; New
	+LD_INDIRECT	RegHL, RegA
	+LDW_INDIRECT	RegHL, lf680
	+LD		RegA, RegH
	ora		RegL
	sta		RegA			; New
	+RET_Z	

	;

	+LD_REG_INDIRECT_OFFSET	RegA, RegIX, $20
;	ora		RegA			; Superfluous
	bne		lf60f
	+INCW	RegIX
	+INCW	RegIX
	jsr		lf646

Portamento:
	+LDW_INDIRECT	RegHL, lf680	; HL = TonePeriod
	+LD_REG_IMM	RegB, $00
	+ADDW	RegHL, RegBC
	+ADDW	RegHL, RegBC	; Diff	; HL += 2*RegC
	+LD_REG_IMM	RegC, $80
	+INVERT_CARRY
	+SBCW	RegHL, RegBC
	+SBCW	RegHL, RegBC	; Diff	; HL -= ($100 + C)
	+LDW_INDIRECT	lf680, RegHL	; TonePeriod = HL
	rts

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

lf60f:
	+DEC_INDIRECT_OFFSET	RegIX, $22
	php		; New: Save flags
	+LD_REG_INDIRECT_OFFSET	RegA, RegIX, $21
	plp		; New: Restore flags
	beq		lf61e
		clc		; CARRY OK
		ldy		#$20
		lda		RegA	; Superfluous
		adc		(RegIX),y
		sta		RegA
		+LD_INDIRECT_OFFSET_IMM	RegIX, $22, $01

lf61e:

	lda		RegA
	cmp		#101	; Tune#2 uses value of 100(!)
	bcc		.lt3
		brk
.lt3

;	lda		RegA
;	asl	
;	sta		RegA	; Superfluous
;	clc				; CARRY OK
;	lda		RegA
;	adc		#$00
;	sta		RegA
;	+LD		RegL, RegA
;	lda		RegA
;	adc		#$f7
;	sta		RegA
;	sbc		RegL	; CARRY possibly wrong
;	+LD		RegH, RegA

	lda		RegA
	asl											; A = 2*RegA
	clc
	adc		#<lf700								; LSB
	sta		RegL
	lda		#0
	adc		#>lf700								; MSB
	sta		RegH								; LDI src: RegHL

	+LDW	RegDE, lf680
	+LDI
	+LDI			; memcpy(&lf680, HL, 2) : Set new TonePeriod
	rts

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

lf62e:
	+LDW	RegIX, lf682
	jsr		lf646
	+LDW	RegHL, lf678	; &(Noise period)
	+LD_REG_INDIRECT	RegA, RegHL
	clc	
	lda		RegA	; Superfluous
	adc		RegC
	sta		RegA	; Superfluous
	sec		; CARRY OK
	sbc		#$80
	sta		RegA	; New
	+LD_INDIRECT	RegHL, RegA
	cmp		#$11
	+RET_C	

	+INCW	RegHL
	+LD_REG_INDIRECT	RegA, RegHL
	ora		#$38
	sta		RegA	; New
	+LD_INDIRECT	RegHL, RegA
	rts

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

lf646:
	+PUSH16	RegIX
	+POP16	RegHL
	+LD_REG_INDIRECT_OFFSET	RegD, RegIX, $05
	+LD_REG_INDIRECT_OFFSET	RegE, RegIX, $04
	+INC_INDIRECT	RegHL
	+LD_REG_INDIRECT	RegA, RegDE
	+SUB_INDIRECT	RegHL		; RegA -= (HL)
	php			; New
	+LD_REG_IMM	RegC, $80
	plp			; New
	+RET_NZ	

	+LD_INDIRECT	RegHL, RegA
	+INCW	RegDE
	+LD_REG_INDIRECT	RegA, RegDE
	+LD		RegC, RegA
	+INCW	RegDE
	+INCW	RegHL
	+INC_INDIRECT	RegHL
	+LD_REG_INDIRECT	RegA, RegDE
	+SUB_INDIRECT	RegHL
	+RET_NZ	

	+LD_INDIRECT	RegHL, RegA
	+INCW	RegDE
	+LD_REG_INDIRECT	RegA, RegDE
	inc		RegA
	bne		lf66b
		+LD_REG_INDIRECT_OFFSET	RegD, RegIX, $0d
		+LD_REG_INDIRECT_OFFSET	RegE, RegIX, $0c

lf66b:
	+LD_INDIRECT_OFFSET	RegIX, $05, RegD
	+LD_INDIRECT_OFFSET	RegIX, $04, RegE
	rts

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

; Skyfox MB detection routine:

SF_GetMBSlot:
; Pre:
; Post:
;  Z = 0 (NE) : MB detected
;  X = HI(MB base address)
;  (MBBase) = MB slot address
;

	jsr		SF_Detect

.Loop:	stx		TmpL
		jsr		SF_Detect
		cpx		TmpL
		bne		.Loop

	cpx		#$C8
	rts

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

SF_Detect:
	lda		#0
	sta		MBBaseL
	lda		#$c1
	sta		MBBaseH
	ldx		#7

.SlotNext:
		ldy		#$00+SY6522_TIMER1L_COUNTER
		jsr		SF_GetTimerL
		bne		.SlotLoop

		ldy		#$80+SY6522_TIMER1L_COUNTER
		jsr		SF_GetTimerL
		beq		.SlotDone

.SlotLoop:
		inc		MBBaseH
		dex
		bne		.SlotNext

.SlotDone:
	ldx		MBBaseH
	rts

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


SF_GetTimerL:
	lda		(MBBase),y
	cmp		MBBaseL
	sbc		(MBBase),y
	cmp		#$08
	rts

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

!zone data

ZPBlock:	!fill ZPSize,0
Z80Block:	!fill ZPSize,0
nMBBaseHi:	!byte 0

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

; Song Hi/Lo reg values:
SongTbl:	!byte 01	;  0: (AY: Title/In-game)
			!byte 34	;  1: (AY: Game over)
			!byte 40	;  2: (AY: Hall of fame)
			!byte 00	;  3: (Beeper: Title)
			!byte 32	;  4: (AY: SFX 01)
			!byte 33	;  5: (AY: SFX 02)
			!byte 26	;  6: (AY: SFX 03)
			!byte 24	;  7: (AY: SFX 04)
			!byte 31	;  8: (AY: SFX 05)
			!byte 22	;  9: (AY: SFX 06)
			!byte 28	; 10: (AY: SFX 07)
			!byte 29	; 11: (AY: SFX 08)
			!byte 23	; 12: (AY: SFX 09)
			!byte 27	; 13: (AY: SFX 10)
			!byte 37	; 14: (AY: SFX 11)
			!byte 25	; 15: (AY: SFX 12)

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

; AY regs [0..$D]
AYRegValues:
lf672:		!word 0		; A period
lf674:		!word 0		; B period
lf676:		!word 0		; C period
lf678:		!byte 0		; Noise period
lf679:		!byte 0		; Enable
lf67a:		!byte 0		; A volume
lf67b:		!byte 0		; B volume
lf67c:		!byte 0		; C volume
lf67d:		!word 0		; Envelope period
lf67f:		!byte 0		; Envelope shape

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

lf680:		!word 0		; Tone period
lf682:		!word 0
			!word 0

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

lf686:		!word 0

			!word 0
			!word 0
			!word 0

lf68e:		!word 0		; Cmd_EA: Set to RegBC

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

; Voice-A struct

lf690:		!byte 0		; $00
			!byte 0		; $01
			!byte 0		; $02
			!byte 0		; $03
			!word 0		; $04/05
			!word 0		; $06/07

			!byte 0		; $08
			!byte 0		; $09
			!byte 0		; $0a
			!byte 0		; $0b
			!word 0		; $0c/0d : Cmd_E8: Set to RegC/B
			!word 0		; $0e/0f : Cmd_E9: Set to RegC/B

lf6a0:		!byte 0		; $10    : Cmd_E1: Set to $00    : $00 = Tune complete
			!byte 0		; $11    : Cmd_00: Set to RegE
			!word 0		; $12/13 : Cmd_00: Set to RegL/H : Next Cmd & Param
			!word 0		; $14/15 : Cmd_E5: Set to RegL/H
			!word 0		; $16/17
			!byte 0		; $18	 : Cmd_E6: Set to RegE
			!byte 0		; $19	 : Cmd_66: Set to $01
			!byte $08	; $1a    - 001000 - Disable A (Noise)
			!byte $36	; $1b    - 110110 - Enable A (Noise & Tone)
			!word lf67a	; $1c/1d - &VolA
			!byte 0		; $1e
			!byte 0		; $1f	 : Cmd_00: Set to RegE
			!byte 0		; $20    : Cmd_F0: Set to RegE
			!byte 0		; $21    : Cmd_00: Set to RegA
			!byte 0		; $22

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

; Voice-B struct

lf6b3:		!byte 0
			!byte 0
			!byte 0
			!byte 0
			!word 0
			!word 0
			!byte 0
			!byte 0
			!byte 0
			!byte 0
			!word 0
			!word 0
lf6c3:		!byte 0
			!byte 0
			!word 0
			!word 0
			!word 0
			!byte 0
			!byte 0
			!byte $10	; 010000 - Disable B (Noise)
			!byte $2d	; 101101 - Enable B (Noise & Tone)
			!word lf67b	; &VolB
			!byte 0
			!byte 0
			!byte 0
			!byte 0
			!byte 0

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

; Voice-C struct

lf6d6:		!byte 0
			!byte 0
			!byte 0
			!byte 0
			!word 0
			!word 0
			!byte 0
			!byte 0
			!byte 0
			!byte 0
			!word 0
			!word 0
lf6e6:		!byte 0
			!byte 0
			!word 0
			!word 0
			!word 0
			!byte 0
			!byte 0
			!byte $20	; 100000 - Disable C (Noise)
			!byte $1b	; 011011 - Enable C (Noise & Tone)
			!word lf67c	; &VolC
			!byte 0
			!byte 0
			!byte 0
			!byte 0
			!byte 0

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

;lf6f9:
			!byte $2A,$00,$00,$00,$00,$00,$00 	; Padding

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

lf700:
; Table size = WORD[100]
; . Period for each note
; . ZX Spectrum's CLK for AY8912 = 1.77345MHz
; . Envelopes are not used, so no E-Periods to convert

!macro ZX2MB .period {
	!word .period*10227/17734
}

	+ZX2MB $0000  
	+ZX2MB $150C  
	+ZX2MB $13DD  
	+ZX2MB $12C0  
	+ZX2MB $11B2  
	+ZX2MB $10B4  
	+ZX2MB $0FC4  
	+ZX2MB $0EE2  
	+ZX2MB $0E0C  
	+ZX2MB $0D42  
	+ZX2MB $0C84  
	+ZX2MB $0BD0  
	+ZX2MB $0B26  
	+ZX2MB $0A86  
	+ZX2MB $09EF  
	+ZX2MB $0960  
	+ZX2MB $08D9  
	+ZX2MB $085A  
	+ZX2MB $07E2  
	+ZX2MB $0771  
	+ZX2MB $0706  
	+ZX2MB $06A1  
	+ZX2MB $0642  
	+ZX2MB $05E8  
	+ZX2MB $0593  
	+ZX2MB $0543  
	+ZX2MB $04F7  
	+ZX2MB $04B0  
	+ZX2MB $046D  
	+ZX2MB $042D  
	+ZX2MB $03F1  
	+ZX2MB $03B8  
	+ZX2MB $0383  
	+ZX2MB $0350  
	+ZX2MB $0321  
	+ZX2MB $02F4  
	+ZX2MB $02CA  
	+ZX2MB $02A1  
	+ZX2MB $027C  
	+ZX2MB $0258  
	+ZX2MB $0236  
	+ZX2MB $0217  
	+ZX2MB $01F9  
	+ZX2MB $01DC  
	+ZX2MB $01C1  
	+ZX2MB $01A8  
	+ZX2MB $0190  
	+ZX2MB $017A  
	+ZX2MB $0165  
	+ZX2MB $0151  
	+ZX2MB $013E  
	+ZX2MB $012C  
	+ZX2MB $011B  
	+ZX2MB $010B  
	+ZX2MB $00FC  
	+ZX2MB $00EE  
	+ZX2MB $00E1  
	+ZX2MB $00D4  
	+ZX2MB $00C8  
	+ZX2MB $00BD  
	+ZX2MB $00B2  
	+ZX2MB $00A8  
	+ZX2MB $009F  
	+ZX2MB $0096  
	+ZX2MB $008E  
	+ZX2MB $0086  
	+ZX2MB $007E  
	+ZX2MB $0077  
	+ZX2MB $0070  
	+ZX2MB $006A  
	+ZX2MB $0064  
	+ZX2MB $005E  
	+ZX2MB $0059  
	+ZX2MB $0054  
	+ZX2MB $004F  
	+ZX2MB $004B  
	+ZX2MB $0047  
	+ZX2MB $0043  
	+ZX2MB $003F  
	+ZX2MB $003C  
	+ZX2MB $0038  
	+ZX2MB $0035  
	+ZX2MB $0032  
	+ZX2MB $002F  
	+ZX2MB $002D  
	+ZX2MB $002A  
	+ZX2MB $0028  
	+ZX2MB $0025  
	+ZX2MB $0023  
	+ZX2MB $0021  
	+ZX2MB $0020  
	+ZX2MB $001E  
	+ZX2MB $001C  
	+ZX2MB $001B  
	+ZX2MB $0019  
	+ZX2MB $0018  
	+ZX2MB $0016  
	+ZX2MB $0015  
	+ZX2MB $0014  
	+ZX2MB $0000  

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

; Ref'ed by func @ f426

lf7c8:
; Table size = WORD[40]

	!word $018C  		; lf700 + $18c = lf88c (addr of music data)
	!word $0190  
	!word $019A  
	!word $01A4  
	!word $01B4  
	!word $01BE  
	!word $01CB  
	!word $01D8  
	!word $01E5  
	!word $01F5  
	!word $01FF  
	!word $0209  
	!word $0213  
	!word $021D  
	!word $021E  
	!word $021F  
	!word $0220  
	!word $022A  
	!word $022B  
	!word $0241  
	!word $0242  
	!word $0246  
	!word $0250  
	!word $025D  
	!word $026A  
	!word $027A  
	!word $0281  
	!word $0288  
	!word $0295  
	!word $0299  
	!word $02A6  
	!word $02AD  
	!word $02BA  
	!word $02C1  
	!word $02C2  
	!word $02CC  
	!word $02E5  
	!word $02FE  
	!word $030E  
	!word $0000  

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

; Ref'ed by func @ f415

lf818:
; Table size = WORD[58]

	!word $031A  
	!word $0439  
	!word $04E5  
	!word $04E8  
	!word $04F3  
	!word $0541  
	!word $0553  
	!word $0563  
	!word $05A5  
	!word $05E7  
	!word $05F2  
	!word $0613  
	!word $0628  
	!word $062D  
	!word $0643  
	!word $0662  
	!word $0662  
	!word $0686  
	!word $0687  
	!word $0000  

;lf840:
	!word $0000  

;lf842:
	!word $0000  
	!word $031F  
	!word $032B  
	!word $033A  
	!word $0346  
	!word $0352  
	!word $0361  
	!word $0370  
	!word $037C  
	!word $038C  
	!word $039B  
	!word $03A7  
	!word $03B8  
	!word $03C9  
	!word $03D7  
	!word $03E2  
	!word $03E2  
	!word $03F1  
	!word $03FF  
	!word $0403  
	!word $0415  
	!word $0420  
	!word $0000  

;lf870:
	!word $0000  
	!word $0000  
	!word $0000  
	!word $0000  

;lf878:
	!word $0000  
	!word $0686  
	!word $068F  
	!word $069C  
	!word $06A7  
	!word $06B2  
	!word $06BF  
	!word $06C8  
	!word $06D3  
	!word $06DC  

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

; Music data

;lf88c:
; Table size = BYTE[1385]

	!byte $C8,$80,$C8,$FF,$01,$81,$0D,$09,$7F,$09,$C8,$80,$C8,$FF,$01,$8D
	!byte $01,$01,$7F,$04,$01,$77,$01,$FF,$01,$8A,$01,$02,$82,$01,$02,$7F
	!byte $07,$0C,$7F,$06,$C8,$80,$C8,$FF,$01,$81,$0A,$09,$7F,$06,$C8,$80
	!byte $C8,$FF,$01,$8C,$01,$0A,$7F,$08,$14,$7F,$04,$C8,$80,$C8,$FF,$01
	!byte $8D,$01,$02,$7F,$07,$0C,$7F,$06,$C8,$80,$C8,$FF,$01,$8D,$01,$01
	!byte $7F,$0B,$09,$7F,$02,$C8,$80,$C8,$FF,$01,$8B,$01,$08,$7F,$01,$02
	!byte $7F,$01,$07,$7F,$03,$16,$7F,$07,$FF,$01,$83,$03,$11,$7F,$05,$C8
	!byte $80,$C8,$FF,$01,$89,$01,$01,$7D,$03,$C8,$80,$C8,$FF,$01,$77,$01
	!byte $01,$83,$03,$C8,$80,$C8,$FF,$01,$81,$02,$02,$7F,$03,$03,$81,$01
	!byte $FF,$FF,$FF,$FF,$01,$87,$03,$01,$79,$06,$01,$87,$03,$FF,$FF,$01
	!byte $93,$01,$01,$6D,$01,$01,$7F,$02,$01,$81,$04,$01,$7F,$04,$01,$81
	!byte $02,$C8,$80,$C8,$FF,$FF,$02,$7F,$C8,$FF,$01,$80,$01,$01,$B4,$01
	!byte $C8,$80,$C8,$FF,$01,$80,$01,$01,$7E,$01,$02,$E3,$01,$C8,$80,$C8
	!byte $FF,$01,$8A,$01,$01,$7E,$01,$02,$7F,$03,$C8,$80,$C8,$FF,$01,$85
	!byte $03,$01,$71,$01,$01,$80,$01,$01,$8F,$01,$01,$7B,$03,$FF,$01,$85
	!byte $03,$01,$71,$01,$FF,$01,$96,$01,$02,$79,$02,$FF,$01,$86,$01,$01
	!byte $85,$01,$01,$7F,$03,$C8,$80,$C8,$FF,$01,$A1,$C8,$FF,$01,$85,$03
	!byte $09,$7D,$04,$0E,$7F,$03,$C8,$80,$C8,$FF,$01,$84,$01,$01,$7F,$01
	!byte $FF,$01,$8B,$01,$01,$7E,$01,$02,$7F,$03,$C8,$80,$C8,$FF,$01,$83
	!byte $05,$01,$71,$01,$FF,$FF,$02,$8D,$01,$02,$67,$01,$C8,$80,$C8,$FF
	!byte $01,$8F,$01,$08,$80,$01,$02,$7F,$01,$04,$7F,$01,$07,$7F,$02,$0C
	!byte $7F,$04,$16,$7F,$07,$C8,$80,$C8,$FF,$01,$79,$01,$01,$8B,$01,$01
	!byte $6F,$01,$01,$9B,$01,$01,$5B,$01,$01,$AF,$01,$01,$47,$01,$01,$C3
	!byte $01,$FF,$01,$8F,$01,$01,$7A,$01,$01,$86,$01,$01,$7F,$09,$08,$7F
	!byte $06,$FF,$01,$99,$03,$01,$79,$07,$0A,$7E,$C8,$FF,$00,$00,$F4,$63
	!byte $E1,$FF,$FF,$04,$F4,$0F,$E8,$19,$E9,$18,$5D,$48,$EA,$16,$E1,$04
	!byte $F4,$0F,$E8,$01,$F0,$3C,$EA,$05,$67,$24,$4F,$EA,$16,$E1,$04,$F4
	!byte $0F,$E8,$1D,$E9,$1E,$4F,$4D,$EA,$16,$E1,$03,$F4,$0F,$E8,$06,$E9
	!byte $19,$53,$0F,$EA,$16,$E1,$03,$F4,$0F,$E8,$07,$E9,$01,$EA,$01,$6C
	!byte $5E,$10,$EA,$16,$E1,$03,$F4,$0F,$E8,$05,$E9,$1C,$EA,$27,$68,$4F
	!byte $14,$EA,$16,$E1,$03,$F4,$0F,$E8,$15,$E9,$10,$43,$14,$EA,$16,$E1
	!byte $03,$F4,$0F,$E2,$0F,$E8,$25,$E9,$26,$E6,$3E,$E3,$19,$EA,$16,$E1
	!byte $04,$F4,$0F,$E8,$23,$E9,$24,$EA,$00,$73,$56,$63,$EA,$16,$E1,$03
	!byte $F4,$0F,$E8,$12,$E9,$24,$61,$12,$EA,$16,$E1,$03,$F4,$0F,$E8,$1D
	!byte $E9,$1A,$EA,$0B,$71,$39,$40,$E9,$0C,$EA,$16,$E1,$03,$F4,$0F,$E8
	!byte $06,$E9,$22,$EA,$00,$73,$5E,$02,$5E,$10,$EA,$16,$E1,$01,$F4,$0F
	!byte $02,$23,$00,$0C,$03,$23,$00,$12,$E5,$23,$E1,$F4,$0F,$E8,$01,$E9
	!byte $1A,$5B,$12,$4F,$69,$E1,$04,$F4,$0F,$E8,$01,$E9,$20,$EA,$14,$70
	!byte $49,$2A,$EA,$16,$E1,$04,$F4,$0F,$E8,$02,$E9,$1C,$58,$16,$D8,$D8
	!byte $EA,$16,$E1,$E1,$00,$00,$00,$01,$F4,$0F,$02,$29,$03,$2A,$E8,$00
	!byte $00,$32,$E5,$2A,$00,$6E,$E5,$2A,$FF,$E6,$30,$E8,$1E,$E9,$00,$E2
	!byte $3F,$E3,$03,$FF,$E9,$14,$E6,$30,$E8,$04,$EA,$01,$E3,$1E,$EA,$00
	!byte $E8,$08,$73,$E3,$46,$E8,$04,$EA,$01,$66,$E3,$3C,$FF,$01,$F4,$0F
	!byte $03,$00,$02,$03,$E6,$00,$F0,$00,$E9,$0C,$E8,$03,$E5,$05,$E5,$05
	!byte $E5,$05,$E5,$05,$03,$03,$02,$31,$E5,$04,$E5,$05,$03,$03,$02,$33
	!byte $E5,$04,$E5,$06,$02,$0D,$03,$09,$E5,$07,$02,$0E,$E5,$08,$02,$34
	!byte $03,$03,$E5,$04,$E6,$0A,$E5,$05,$03,$0C,$02,$35,$E6,$05,$E5,$04
	!byte $E5,$05,$02,$00,$E5,$05,$02,$37,$E5,$06,$E5,$04,$03,$09,$02,$0D
	!byte $E6,$00,$E5,$07,$02,$0E,$E5,$08,$03,$03,$02,$38,$E5,$04,$02,$32
	!byte $E5,$05,$02,$34,$03,$03,$E5,$04,$02,$39,$E5,$05,$E5,$05,$E5,$05
	!byte $02,$34,$E5,$05,$02,$39,$E5,$05,$E5,$05,$E5,$05,$02,$34,$E5,$05
	!byte $03,$00,$E6,$09,$F0,$13,$E8,$1F,$02,$00,$E5,$05,$E5,$05,$E5,$06
	!byte $E5,$06,$E5,$05,$E5,$05,$E5,$06,$E5,$06,$E6,$0E,$02,$36,$E5,$05
	!byte $E5,$05,$E5,$05,$02,$00,$E5,$02,$FF,$00,$38,$FF,$E6,$1F,$E8,$17
	!byte $F0,$0C,$E5,$04,$E5,$05,$FF,$EA,$16,$E9,$12,$66,$21,$07,$A1,$66
	!byte $AD,$A1,$6B,$AB,$66,$9F,$66,$9F,$66,$AB,$66,$9D,$9D,$66,$A9,$9D
	!byte $6B,$B5,$66,$9D,$66,$9C,$66,$A9,$66,$9D,$9D,$66,$A9,$9D,$6B,$A8
	!byte $66,$9C,$66,$9C,$66,$A8,$66,$9A,$66,$9A,$66,$A6,$66,$9A,$6B,$B2
	!byte $66,$9A,$66,$98,$66,$A6,$66,$9F,$9F,$66,$AB,$9F,$6B,$B7,$66,$9F
	!byte $66,$9F,$66,$AB,$FF,$66,$15,$07,$66,$A1,$66,$AB,$66,$AD,$6B,$AD
	!byte $66,$A1,$66,$9F,$66,$A1,$FF,$66,$1E,$07,$AA,$66,$9E,$A8,$6B,$B6
	!byte $66,$AA,$66,$A8,$66,$AA,$FF,$66,$1F,$07,$66,$9F,$66,$AB,$66,$AB
	!byte $6A,$AF,$66,$AF,$66,$A3,$66,$AF,$66,$A4,$66,$A4,$66,$9C,$66,$9F
	!byte $6A,$B0,$66,$A4,$66,$9C,$66,$9F,$66,$A4,$66,$98,$66,$9C,$66,$9F
	!byte $6A,$B0,$66,$A4,$66,$9C,$66,$9F,$66,$A3,$66,$A3,$66,$A8,$66,$AA
	!byte $6A,$AF,$66,$A3,$66,$A8,$66,$AA,$FF,$66,$23,$07,$66,$A3,$66,$A7
	!byte $66,$AF,$6A,$AD,$66,$AD,$66,$A1,$66,$AD,$66,$9C,$66,$9C,$66,$A8
	!byte $66,$A8,$6A,$B4,$66,$A8,$66,$9C,$66,$A8,$66,$9A,$66,$9A,$66,$A6
	!byte $66,$9A,$6A,$B2,$66,$9A,$66,$A6,$66,$9A,$66,$A5,$66,$A5,$66,$B1
	!byte $66,$A5,$6A,$A3,$66,$A3,$66,$AF,$66,$A3,$FF,$E6,$1F,$E8,$17,$E9
	!byte $00,$E5,$07,$E5,$08,$FF,$00,$07,$A1,$9C,$A4,$A6,$A8,$A6,$A4,$A3
	!byte $21,$23,$15,$07,$97,$15,$0E,$1F,$07,$A1,$1F,$0E,$1D,$07,$9F,$1D
	!byte $2A,$1C,$07,$9B,$1C,$1C,$FF,$00,$0E,$48,$07,$CA,$C8,$C5,$C0,$C7
	!byte $45,$54,$43,$1C,$41,$2A,$40,$07,$BF,$40,$1C,$FF,$E8,$17,$E5,$04
	!byte $FF,$E6,$18,$E8,$1B,$F0,$0C,$00,$0E,$23,$07,$A4,$A6,$A3,$A4,$A6
	!byte $28,$54,$28,$1C,$28,$38,$FF,$E6,$18,$E8,$1B,$F0,$0C,$27,$0E,$27
	!byte $07,$A8,$AA,$A7,$A8,$AA,$2C,$2A,$1C,$07,$9E,$20,$0E,$28,$07,$AA
	!byte $2C,$0E,$AF,$2D,$38,$FF,$21,$0E,$A4,$A3,$A6,$24,$07,$A6,$A8,$A9
	!byte $A8,$A6,$A4,$A3,$21,$0E,$95,$A3,$1F,$07,$21,$23,$1A,$07,$9D,$9C
	!byte $95,$9A,$9D,$9C,$95,$9F,$9D,$9C,$95,$FF,$E8,$09,$E9,$0C,$E5,$0B
	!byte $E5,$32,$E1,$E6,$24,$E8,$09,$E9,$0A,$23,$0E,$E9,$0C,$21,$46,$E1
	!byte $E6,$24,$E8,$09,$E9,$0C,$E5,$0A,$E5,$32,$E1,$E6,$24,$E8,$1B,$F0
	!byte $18,$E5,$0A,$23,$1C,$E1,$E6,$1D,$E8,$1F,$F0,$0C,$E5,$10,$E5,$05
	!byte $E5,$05,$FF,$E6,$1D,$E8,$1F,$F0,$0C,$E5,$05,$FF,$E6,$1D,$E8,$09
	!byte $F0,$0C,$E5,$10,$1A,$38,$E1,$E8,$1B,$F0,$18,$E5,$0B,$E5,$32,$E1
	!byte $E8,$1F,$F0,$18,$00,$0E,$3C,$07,$BB,$BC,$00,$07,$B9,$00,$07,$FF
	!byte $00,$1A,$18,$00,$0E,$3C,$07,$BB,$BC

;lfdf5: