MACRO-80 3.44 09-Dec-81 PAGE 1 ; MUSIC3.ASM ; ; This is MUSIC3.z80 by Dave Roberts (MUSIC3 20240817.zip), modified to assemble with ; Microsoft M80 under CP/M. Build it with MUSIC3.SUB (M80, then L80 to MUSIC3.HEX). ; ; The code, the tables and the comments are the original. These things are changed: ; - Added .Z80 and ASEG at the start. Removed the ASM80 ".engine" directive. ; - ".if", ".else", ".endif", ".macro NAME", ".endm" and ".org" are in M80 form. ; - Hex constants 0x20 and $F0 are in the form 20H and 0F0H. ; - msb(X) is HIGH X, and ".align 256" is an ORG to the next 256-byte page. ; - The EQUs that use RAM are moved to the end, because M80 does not accept a ; forward reference in an EQU. ; - DEBUG is 0, for a CP/M .COM at 0100H that plays through the DAC. ; (Set it to 1 for the original debug build at 0000H.) ; .Z80 0000' ASEG ; Modification history. ; ===================== ; ; Version : ; Date : ; Author : ; Change : ; ; Version : 0.30 ; Date : 30th May 2024 ; Author : Dave Roberts ; Change : Dang, I lost the last version of my code! ; Added the song STAR SPANGLED BANNER from the Byte Magazine. ; Delete the superflous "XOR A". ; Change the "ADD A,(HL)" to "LD A,(HL)" for the first voice. ; Update the frequency table for a 248T - 4T = 244T play loop. ; : Changed all JR to JP. Update T comments. Need to recalculate data tables... ; : Included code to configure for CP/M (ORG 100) and for the Cromemco D+7A. ; ; Version : 0.20 ; Date : 5th January 2024 ; Author : Dave Roberts ; Change : It seems to work... ; ; Version : 0.10 ; Date : 4th January 2024 ; Author : Dave Roberts ; Change : TEMPO and DURATION ito IYH and IYL using the documented ; undocumented Z80 instructions. I have also added a ; compatability mode (which is obviously slower). ; : Added symbols TEST, DEBUG and USEUNDOC. ; : Start to convert to 16-bit Voice registers. ; : Remove TEST. I broke the assembler! ; ; Functionsal description. ; ======================== ; ; TODO: @@@ MACRO-80 3.44 09-Dec-81 PAGE 1-1 ; Definitions ; =========== ; 0001 USEUNDOC EQU 1 00FD PFIXIY EQU 0FDH 0019 DAC EQU 19h ; Cromemco D+7A Analogue Output #1. 0000 DEBUG EQU 0 IF DEBUG LOADAT EQU 0000H ELSE 0100 LOADAT EQU 0100H ENDIF 0400 K EQU 1024 0800 K2 EQU (2 * K) IF DEBUG TEMPO EQU 06H ; For testing/debugging. ELSE 0099 TEMPO EQU 99H ; For real. TODO: Check that the value is correct... ENDIF ; Macros for the undocumented Z80 instructions I am going to use. LD_IYH_A MACRO IF USEUNDOC db PFIXIY LD H,A ELSE LD (IX+IYH),A ENDIF ENDM LD_IYL_A MACRO IF USEUNDOC db PFIXIY LD L,A ELSE LD (IX+IYL),A ENDIF ENDM DEC_IYH MACRO IF USEUNDOC db PFIXIY DEC H ELSE DEC (IX+IYH) ENDIF MACRO-80 3.44 09-Dec-81 PAGE 1-2 ENDM DEC_IYL MACRO IF USEUNDOC db PFIXIY DEC L ELSE DEC (IX+IYL) ENDIF ENDM ; ******************* ; *** *** ; *** ROM code. *** ; *** *** ; ******************* ORG LOADAT ; *********************** ; *** *** ; *** Main program. *** ; *** *** ; *********************** 0100 START: ; We use subroutine calls, so require a stack. Set it to the top of memory. ; 0100 31 0E00 LD SP,TOS ; 10T - Define a stack in RAM to use. ; Initialise RAM to zero on start-up to guarantee the state. ; 0103 21 0600 LD HL,RAM+0 ; 10T - First byte of RAM. 0106 11 0601 LD DE,RAM+1 ; 10T - Second byte of RAM. 0109 01 0800 LD BC,K2 ; 10T - Number of bytes to clear. CHECK K2 or K2-1? 010C 36 00 LD (HL),0 ; 10T - Seed the first byte with zero (0). 010E ED B0 LDIR ; 8T - Go zap! (HL) to (DE), INC HL, INC DE, DEC BC and loop until BC zero. ; 21T [BC <> 0] + 16T [BC == 0]. 0110 CD 0114 CALL MUSIC ; 17T - Play the tune... 0113 76 HALT ; 4T - All finished. ; *************************** ; *** *** ; *** MUSIC subroutine. *** ; *** *** ; *************************** 0114 MUSIC: IF DEBUG ld a,'!' call outa3 ENDIF 0114 21 0400 LD HL,SCORE ; 10T - The start of the music score to play. MACRO-80 3.44 09-Dec-81 PAGE 1-3 IF USEUNDOC ELSE ; IX is not required anymore - as the RAM is referred to by other means. ; Apart from the emulated undocumented Z80 instructions. ; LD IX,WS ; 14T - Working memory (IX should remain constant). ENDIF ; Initialise the Voice variable registers to 0. ; 0117 11 0000 LD DE,0 ; 10T - Voice 1. 011A 01 0000 LD BC,0 ; 10T - Voice 2. 011D D9 EXX ; 4T - Switch register set to shadow. 011E 11 0000 LD DE,0 ; 10T - Voice 3. 0121 01 0000 LD BC,0 ; 10T - Voice 4. 0124 D9 EXX ; 4T - Switch register set back to normal again. 0125 MUSIC1: 0125 7E LD A,(HL) ; 7T - Pickup a byte from the score (duration). 0126 B7 OR A ; 4T - Check for a zero in the table. 0127 C8 RET Z ; 10T - Return from subroutine MUSIC if at the end of the SCORE. LD_IYH_A ; 8T - Get duration byte into register IYH (for use by subroutine PLAY). 0128 FD + db PFIXIY 0129 67 + LD H,A ; The following code is 'unrolled' for speed (at the expense of size)... 012A C5 PUSH BC ; 11T - Preserve Voice 2 onto the stack whilst we reuse it. 012B 06 03 LD B,HIGH FREQTBL ; 7T - Frequency table start. Must be on a 256-byte boundary to work. ; ****************** ; *** *** ; *** Voice 1. *** ; *** *** ; ****************** 012D 23 INC HL ; 6T - Bump the pointer into the score table. First/next note. 012E 4E LD C,(HL) ; 7T - Index into the next byte of the score table. A note ID. 012F 0A LD A,(BC) ; 7T - Pick up the first byte of the note's frequency - fractional part. 0130 32 0600 LD (V1FC),A ; 13T - Store it away in the workspace - fractional part. 0133 0C INC C ; 4T - Index to the next byte of the note's frequency - integer part. 0134 0A LD A,(BC) ; 7T - Pick up the second byte of the note's frequency - integer part. 0135 32 0601 LD (V1IC),A ; 13T - Store it away in the workspace - integer part. ; ****************** ; *** *** ; *** Voice 2. *** ; *** *** ; ****************** 0138 23 INC HL ; 6T - Bump the pointer into the score table. First/next note. 0139 4E LD C,(HL) ; 7T - Index into the next byte of the score table. A note ID. MACRO-80 3.44 09-Dec-81 PAGE 1-4 013A 0A LD A,(BC) ; 7T - Pick up the first byte of the note's frequency - fractional part. 013B 32 0602 LD (V2FC),A ; 13T - Store it away in the workspace - fractional part. 013E 0C INC C ; 4T - Index to the next byte of the note's frequency - integer part. 013F 0A LD A,(BC) ; 7T - Pick up the second byte of the note's frequency - integer part. 0140 32 0603 LD (V2IC),A ; 13T - Store it away in the workspace - integer part. ; ****************** ; *** *** ; *** Voice 3. *** ; *** *** ; ****************** 0143 23 INC HL ; 6T - Bump the pointer into the score table. First/next note. 0144 4E LD C,(HL) ; 7T - Index into the next byte of the score table. A note ID. 0145 0A LD A,(BC) ; 7T - Pick up the first byte of the note's frequency - fractional part. 0146 32 0604 LD (V3FC),A ; 13T - Store it away in the workspace - fractional part. 0149 0C INC C ; 4T - Index to the next byte of the note's frequency - integer part. 014A 0A LD A,(BC) ; 7T - Pick up the second byte of the note's frequency - integer part. 014B 32 0605 LD (V3IC),A ; 13T - Store it away in the workspace - integer part. ; ****************** ; *** *** ; *** Voice 4. *** ; *** *** ; ****************** 014E 23 INC HL ; 6T - Bump the pointer into the score table. First/next note. 014F 4E LD C,(HL) ; 7T - Index into the next byte of the score table. A note ID. 0150 0A LD A,(BC) ; 7T - Pick up the first byte of the note's frequency - fractional part. 0151 32 0606 LD (V4FC),A ; 13T - Store it away in the workspace - fractional part. 0154 0C INC C ; 4T - Index to the next byte of the note's frequency - integer part. 0155 0A LD A,(BC) ; 7T - Pick up the second byte of the note's frequency - integer part. 0156 32 0607 LD (V4IC),A ; 13T - Store it away in the workspace - integer part. 0159 23 INC HL ; 6T - Bump the pointer into the score table again. 015A C1 POP BC ; 10T - Recover Voice 2 from the stack again. ; *********************************************************************** ; *** *** ; *** Go and play the specified note(s) for the specified duration. *** ; *** *** ; *********************************************************************** ; Note: PUSH and POP is faster than LD (nn),HL and LD HL,(nn). ; Note: 21T verses 32T. 015B E5 PUSH HL ; 11T - Save the score pointer for use later. 015C CD 0163 CALL PLAY ; 17T - Play the note(s). 015F E1 POP HL ; 10T - Recover the score pointer. 0160 C3 0125 JP MUSIC1 ; 10T - Loop until done... ; ************************** ; *** *** ; *** PLAY subroutine. *** MACRO-80 3.44 09-Dec-81 PAGE 1-5 ; *** *** ; ************************** ; On entry, register IYH contains the music event duration. 0163 PLAY: 0163 PLAY1: 0163 3E 99 LD A,TEMPO ; 7T - TEMPO is a constant. LD_IYL_A ; 8T - stored in IYL. 0165 FD + db PFIXIY 0166 6F + LD L,A ; Symbol naming is as follows: V ; ; Where: ; ; F is the fractional part of the word. ; I is the integer part of the word. ; ; C is the constant word. ; ; The numbers are addresses of bytes within the workspace. ; ; Note that the order is important. The fractional byte of the word ; must be at a lower address than the integer byte of the word. This ; is to ensure the correct byte order for loading HL via an ; instruction of the form LD HL,(V1FC). This will load the fractional ; byte into register L and the integer byte into register H. ; ; The Z80 registers are used as follows: ; ; DE = Voice 1. ; BC = Voice 2. ; DE' = Voice 3. ; BC' = Voice 4. ; ; These registers MUST be preserved at all times for use during the PLAY ; subroutine. They must NOT be corrupted by the MUSIC subroutine either. ; 0167 PLAY2: ; ****************** ; *** *** ; *** Voice 1. *** ; *** *** ; ****************** 0167 2A 0600 LD HL,(V1FC) ; 16T - Voice 1 constant. 016A 19 ADD HL,DE ; 11T - Sum HL to Voice 1 variable. MACRO-80 3.44 09-Dec-81 PAGE 1-6 016B EB EX DE,HL ; 4T - Store resultant sum into Voice 1 variable. ; ****************** ; *** *** ; *** Voice 2. *** ; *** *** ; ****************** 016C 2A 0602 LD HL,(V2FC) ; 16T - Voice 2 constant. 016F 09 ADD HL,BC ; 11T - Sum HL to Voice 2 variable. 0170 44 LD B,H ; 4T - Store resultant sum into Voice 1 variable (high byte). 0171 4D LD C,L ; 4T - Store resultant sum into Voice 1 variable (low byte). 0172 D9 EXX ; 4T - Switch to shadow register set to process Voices 3 and 4. ; ****************** ; *** *** ; *** Voice 3. *** ; *** *** ; ****************** 0173 2A 0604 LD HL,(V3FC) ; 16T - Voice 3 constant. 0176 19 ADD HL,DE ; 11T - Sum HL' to Voice 3 variable. 0177 EB EX DE,HL ; 4T - Store resultant sum into Voice 1 variable. ; ****************** ; *** *** ; *** Voice 4. *** ; *** *** ; ****************** 0178 2A 0606 LD HL,(V4FC) ; 16T - Voice 4 constant. 017B 09 ADD HL,BC ; 11T - Sum HL' to Voice 4 variable. 017C 44 LD B,H ; 4T - Store resultant sum into Voice 4 variable (high byte). 017D 4D LD C,L ; 4T - Store resultant sum into Voice 4 variable (low byte). ; Derive the DAC output. ; Mote that we keep the shadow set of registers mapped in and process Voices 3 and 4 ; first before switching to process Voices 1 and 2. This saves an EXX instruction (4T). 017E 26 02 LD H,HIGH WAVETBL ; 7T - This table should be page aligned. 0180 6A LD L,D ; 4T - Voice 3 Integer byte. 0181 7E LD A,(HL) ; 7T - Index wave table for Voice 3 Integer byte. 0182 68 LD L,B ; 4T - Voice 4 Integer byte. 0183 86 ADD A,(HL) ; 7T - Index wave table for Voice 4 Integer byte. 0184 D9 EXX ; 4T - Switch back to the normal register set to process Voices 1 and 2. 0185 26 02 LD H,HIGH WAVETBL ; 7T - This table should be page aligned. 0187 6A LD L,D ; 4T - Voice 1 Integer byte. 0188 86 ADD A,(HL) ; 7T - Index wave table for Voice 1 Integer byte. MACRO-80 3.44 09-Dec-81 PAGE 1-7 0189 68 LD L,B ; 4T - Voice 2 Integer byte. 018A 86 ADD A,(HL) ; 7T - Index wave table for Voice 2 Integer byte. 018B D6 80 SUB 80h ; 7T - Convert from UNIPOLAR to BIPOLAR for Cromemco D+7A. IF DEBUG CALL OUTAHEX ; For debugging. ELSE 018D D3 19 OUT (DAC),A ; 11T - Send the value in register A to the DAC. ENDIF DEC_IYL ; 8T - Decrement the TEMPO. 018F FD + db PFIXIY 0190 2D + DEC L 0191 C2 0167 JP NZ,PLAY2 ; 10T - Loop for more... DEC_IYH ; 8T - Decrement the duration. 0194 FD + db PFIXIY 0195 25 + DEC H 0196 C2 0163 JP NZ,PLAY1 ; 10T - Loop for more... ; *********************** ; *** *** ; *** All finished. *** ; *** *** ; *********************** 0199 C9 RET ; 10T - Return from suproutine PLAY... IF DEBUG OUTAHEX: push af call outa1 pop af call outa2 ld a,'/' call outa3 ret outa1: rra rra rra rra outa2: or 0F0H daa add a,0A0H adc a,040H outa3: out (2),a ret ENDIF MACRO-80 3.44 09-Dec-81 PAGE 1-8 ; This table needs to be on a page (256 byte) boundary. ; ===================================================== ; ORG ($+255) AND 0FF00H ; ; Cosine integer wave table (4 voices @ 0-3F amplitude each, sum to FC). ; ====================================================================== ; 0200 WAVETBL: ; ; ; ; ; 0200 20 20 21 22 DB 20H, 20H, 21H, 22H, 23H, 23H, 24H, 25H, 26H, 26H, 27H, 28H, 29H, 29H, 2AH, 2BH ; 00 0204 23 23 24 25 0208 26 26 27 28 020C 29 29 2A 2B 0210 2C 2C 2D 2E DB 2CH, 2CH, 2DH, 2EH, 2EH, 2FH, 30H, 30H, 31H, 32H, 32H, 33H, 34H, 34H, 35H, 35H ; 10 0214 2E 2F 30 30 0218 31 32 32 33 021C 34 34 35 35 0220 36 36 37 37 DB 36H, 36H, 37H, 37H, 38H, 38H, 39H, 39H, 3AH, 3AH, 3BH, 3BH, 3BH, 3CH, 3CH, 3CH ; 20 0224 38 38 39 39 0228 3A 3A 3B 3B 022C 3B 3C 3C 3C 0230 3D 3D 3D 3D DB 3DH, 3DH, 3DH, 3DH, 3EH, 3EH, 3EH, 3EH, 3EH, 3FH, 3FH, 3FH, 3FH, 3FH, 3FH, 3FH ; 30 0234 3E 3E 3E 3E 0238 3E 3F 3F 3F 023C 3F 3F 3F 3F 0240 3F 3F 3F 3F DB 3FH, 3FH, 3FH, 3FH, 3FH, 3FH, 3FH, 3EH, 3EH, 3EH, 3EH, 3EH, 3EH, 3DH, 3DH, 3DH ; 40 0244 3F 3F 3F 3E 0248 3E 3E 3E 3E 024C 3E 3D 3D 3D 0250 3C 3C 3C 3B DB 3CH, 3CH, 3CH, 3BH, 3BH, 3BH, 3AH, 3AH, 39H, 39H, 39H, 38H, 38H, 37H, 37H, 36H ; 50 0254 3B 3B 3A 3A 0258 39 39 39 38 025C 38 37 37 36 0260 35 35 34 34 DB 35H, 35H, 34H, 34H, 33H, 33H, 32H, 31H, 31H, 30H, 2FH, 2FH, 2EH, 2DH, 2DH, 2CH ; 60 0264 33 33 32 31 0268 31 30 2F 2F 026C 2E 2D 2D 2C 0270 2B 2A 2A 29 DB 2BH, 2AH, 2AH, 29H, 28H, 27H, 27H, 26H, 25H, 24H, 24H, 23H, 22H, 21H, 21H, 20H ; 70 0274 28 27 27 26 0278 25 24 24 23 027C 22 21 21 20 0280 1F 1E 1D 1D DB 1FH, 1EH, 1DH, 1DH, 1CH, 1BH, 1AH, 1AH, 19H, 18H, 17H, 17H, 16H, 15H, 14H, 14H ; 80 0284 1C 1B 1A 1A 0288 19 18 17 17 028C 16 15 14 14 0290 13 12 11 11 DB 13H, 12H, 11H, 11H, 10H, 0FH, 0FH, 0EH, 0DH, 0DH, 0CH, 0CH, 0BH, 0AH, 0AH, 09H ; 90 0294 10 0F 0F 0E 0298 0D 0D 0C 0C 029C 0B 0A 0A 09 02A0 09 08 08 07 DB 09H, 08H, 08H, 07H, 07H, 06H, 06H, 05H, 05H, 05H, 04H, 04H, 03H, 03H, 03H, 02H ; A0 02A4 07 06 06 05 02A8 05 05 04 04 02AC 03 03 03 02 02B0 02 02 02 01 DB 02H, 02H, 02H, 01H, 01H, 01H, 01H, 01H, 00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H ; B0 MACRO-80 3.44 09-Dec-81 PAGE 1-9 02B4 01 01 01 01 02B8 00 00 00 00 02BC 00 00 00 00 02C0 00 00 00 00 DB 00H, 00H, 00H, 00H, 00H, 00H, 00H, 01H, 01H, 01H, 01H, 01H, 02H, 02H, 02H, 02H ; C0 02C4 00 00 00 01 02C8 01 01 01 01 02CC 02 02 02 02 02D0 03 03 03 04 DB 03H, 03H, 03H, 04H, 04H, 05H, 05H, 05H, 06H, 06H, 07H, 07H, 08H, 08H, 09H, 09H ; D0 02D4 04 05 05 05 02D8 06 06 07 07 02DC 08 08 09 09 02E0 0A 0A 0B 0C DB 0AH, 0AH, 0BH, 0CH, 0CH, 0DH, 0DH, 0EH, 0FH, 0FH, 10H, 11H, 11H, 12H, 13H, 14H ; E0 02E4 0C 0D 0D 0E 02E8 0F 0F 10 11 02EC 11 12 13 14 02F0 14 15 16 17 DB 14H, 15H, 16H, 17H, 17H, 18H, 19H, 1AH, 1AH, 1BH, 1CH, 1DH, 1DH, 1EH, 1FH, 1FH ; F0 02F4 17 18 19 1A 02F8 1A 1B 1C 1D 02FC 1D 1E 1F 1F ; This table needs to be on a page (256 byte) boundary. ; ===================================================== ; ORG ($+255) AND 0FF00H ; 0300 FREQTBL: ; ; Frequency table for a 4 MHz Z80 CPU. ; ==================================== ; ; The INCREMENT is calculated from the formula: ; ; INCREMENT = 256 * f / T ; ; Where: ; ; f is the desired note frequency (in Hertz). ; T is the sample rate (in Hertz). ; ; T is a function of the time taken to execute one iteration of ; the play loop. Calculate the time for one iteration (in seconds) ; and take the reciprocal (1/x) of the value to derive T. ; ; The floating point number obtained will be X.Y where X is the integer ; part and Y is the fractional part. ; ; The integer part (X) is used as the high byte directly whilst the fractional ; part is converted into a byte value in the range 0 through 255. ; ; As an example (from the BYTE article): ; ; 8.772 kHz sample rate. ; Desired frequency = C2 = 65.405 Hz ; Given increment = 1.9089 ; Given bytes = integer = 1, fractional = 233. ; MACRO-80 3.44 09-Dec-81 PAGE 1-10 ; 1.9089 = an integer part of 1. ; 0.9089 * 256 = 232.7 (rounded to 233). Although why 256 and not 255? ; ; Using the formual above for INCREMENT: ; ; INCREMENT = 256 * 65.405 / 8772 = 1.9089 (rounded). ; ; Now, I need to ascertain the corresponding maths for the Z80 implementation... ; ; The following hexadecimal word values are taken from the handwriting on the ; 6502 frequency table listing. ; ; Ideally, I will generate the byte table from a spreadsheet containing the ; note frequencies and the entered number of T states (at a clock frequency of ; 4 MHz). ; ; This table is for the 'original' Z80 project. ; IF 0 ; ; ID NOTE FREQUENCY DW 0000H ; 0 SILENCE DW 0305H ; 2 C2 65.405 DW 0333H ; 4 C2# 69.295 DW 0364H ; 6 D2 73.415 DW 039BH ; 8 D2# 77.783 DW 03CEH ; 10 E2 82.408 DW 040BH ; 12 F2 87.308 DW 0446H ; 14 F2# 92.498 DW 04B7H ; 16 G2 97.998 DW 04CCH ; 18 G2# 103.83 DW 0515H ; 20 A2 110.00 DW 0562H ; 22 A2# 116.54 DW 0564H ; 24 B2 123.47 DW 060BH ; 26 C3 130.81 DW 0667H ; 28 C3# 138.59 DW 06C8H ; 30 D3 146.83 DW 0795H ; 32 D3# 155.57 DW 079DH ; 34 E3 164.82 DW 0811H ; 36 F3 174.62 DW 08CCH ; 38 F3# 185.00 DW 090EH ; 40 G3 196.00 DW 0998H ; 42 G3# 207.65 DW 0A2AH ; 44 A3 220.00 DW 0AC5H ; 46 A3# 233.08 DW 0B69H ; 48 B3 246.94 DW 0C16H ; 50 C4 261.62 DW 0CCFH ; 52 C4# 277.18 DW 0D91H ; 54 D4 293.66 DW 0E60H ; 56 D4# 311.13 DW 0F3BH ; 58 E4 329.63 DW 1023H ; 60 F4 349.23 DW 1118H ; 62 F4# 369.99 DW 121DH ; 64 G4 391.99 DW 1330H ; 66 G4# 415.30 DW 1455H ; 68 A4 440.00 DW 158AH ; 70 A4# 466.16 MACRO-80 3.44 09-Dec-81 PAGE 1-11 DW 16D2H ; 72 B4 493.88 DW 182DH ; 74 C5 523.24 DW 199EH ; 76 C5# 554.36 DW 1B23H ; 78 D5 587.32 DW 1CC1H ; 80 D5# 622.26 DW 1E77H ; 82 E5 659.26 DW 2046H ; 84 F5 698.46 DW 2231H ; 86 F5# 739.98 DW 243AH ; 88 G5 783.98 DW 2661H ; 90 G5# 830.60 DW 28AAH ; 92 A5 880.00 DW 2B15H ; 94 A5# 932.32 DW 2DA5H ; 96 B5 987.76 DW 305CH ; 98 C6 1046.5 ENDIF IF 0 ; ; This is the table for a 4.0 Mhz Z80 clock and a 248T PLAY subroutine. ; Giving a 16,129 Hz sample rate. ; DW 0000H ; 0 SILENCE DW 010AH ; 2 C2 DW 011AH ; 4 C2# DW 012AH ; 6 D2 DW 013CH ; 8 D2# DW 014FH ; 10 E2 DW 0163H ; 12 F2 DW 0178H ; 14 F2# DW 018EH ; 16 G2 DW 01A6H ; 18 G2# DW 01BFH ; 20 A2 DW 01DAH ; 22 A2# DW 01F6H ; 24 B2 DW 0214H ; 26 C3 DW 0233H ; 28 C3# DW 0255H ; 30 D3 DW 0278H ; 32 D3# DW 029EH ; 34 E3 DW 02C6H ; 36 F3 DW 02F0H ; 38 F3# DW 031CH ; 40 G3 DW 034CH ; 42 G3# DW 037EH ; 44 A3 DW 03B3H ; 46 A3# DW 03EBH ; 48 B3 DW 0427H ; 50 C4 DW 0466H ; 52 C4# DW 04A9H ; 54 D4 DW 04F0H ; 56 D4# DW 053BH ; 58 E4 DW 058BH ; 60 F4 DW 05DFH ; 62 F4# DW 0639H ; 64 G4 DW 0697H ; 66 G4# DW 06FCH ; 68 A4 MACRO-80 3.44 09-Dec-81 PAGE 1-12 DW 0766H ; 70 A4# DW 07D7H ; 72 B4 DW 084EH ; 74 C5 DW 08CCH ; 76 C5# DW 0952H ; 78 D5 DW 09E0H ; 80 D5# DW 0A77H ; 82 E5 DW 0B16H ; 84 F5 DW 0BBFH ; 86 F5# DW 0C71H ; 88 G5 DW 0D2FH ; 90 G5# DW 0DF8H ; 92 A5 DW 0ECCH ; 94 A5# DW 0FADH ; 96 B5 DW 109CH ; 98 C6 ENDIF IF 1 ; ; This is the table for a 4.0 Mhz Z80 clock and a 244T PLAY subroutine. ; Giving a 16,393 Hz sample rate. ; 0300 0000 DW 0000H ; 0 SILENCE 0302 0105 DW 0105H ; 2 C2 0304 0115 DW 0115H ; 4 C2# 0306 0125 DW 0125H ; 6 D2 0308 0137 DW 0137H ; 8 D2# 030A 0149 DW 0149H ; 10 E2 030C 015D DW 015DH ; 12 F2 030E 0172 DW 0172H ; 14 F2# 0310 0188 DW 0188H ; 16 G2 0312 019F DW 019FH ; 18 G2# 0314 01B8 DW 01B8H ; 20 A2 0316 01D2 DW 01D2H ; 22 A2# 0318 01EE DW 01EEH ; 24 B2 031A 020B DW 020BH ; 26 C3 031C 022A DW 022AH ; 28 C3# 031E 024B DW 024BH ; 30 D3 0320 026E DW 026EH ; 32 D3# 0322 0293 DW 0293H ; 34 E3 0324 02BA DW 02BAH ; 36 F3 0326 02E4 DW 02E4H ; 38 F3# 0328 0310 DW 0310H ; 40 G3 032A 033E DW 033EH ; 42 G3# 032C 036F DW 036FH ; 44 A3 032E 03A4 DW 03A4H ; 46 A3# 0330 03DB DW 03DBH ; 48 B3 0332 0416 DW 0416H ; 50 C4 0334 0454 DW 0454H ; 52 C4# 0336 0496 DW 0496H ; 54 D4 0338 04DC DW 04DCH ; 56 D4# 033A 0526 DW 0526H ; 58 E4 033C 0574 DW 0574H ; 60 F4 033E 05C7 DW 05C7H ; 62 F4# 0340 061F DW 061FH ; 64 G4 0342 067C DW 067CH ; 66 G4# MACRO-80 3.44 09-Dec-81 PAGE 1-13 0344 06DF DW 06DFH ; 68 A4 0346 0748 DW 0748H ; 70 A4# 0348 07B6 DW 07B6H ; 72 B4 034A 082C DW 082CH ; 74 C5 034C 08A8 DW 08A8H ; 76 C5# 034E 092C DW 092CH ; 78 D5 0350 09B8 DW 09B8H ; 80 D5# 0352 0A4C DW 0A4CH ; 82 E5 0354 0AE8 DW 0AE8H ; 84 F5 0356 0B8E DW 0B8EH ; 86 F5# 0358 0C3E DW 0C3EH ; 88 G5 035A 0CF8 DW 0CF8H ; 90 G5# 035C 0DBE DW 0DBEH ; 92 A5 035E 0E8F DW 0E8FH ; 94 A5# 0360 0F6D DW 0F6DH ; 96 B5 0362 1058 DW 1058H ; 98 C6 ENDIF ; Song table. ; =========== ; ; This table consists of 5 bytes per musical event. ; The first byte indicates the duration of the event ; (according to the value of tempo). A value of zero ; indicates the end of the song. ; ; The next four (4) bytes corresponds to a byte for ; each of the four voices corresponding to the ; desired note ID. Zero indicates no note (or ; silence). ; ; The alignment is strictly not necessary - but makes the starting address ; for the score nice and simple to remember... ; ORG ($+255) AND 0FF00H ; 0400 SCORE: ; Simple sine wave test. ; DB 64,2,0,0,0 ; Note ID 2 = C2 = 65.405 Hz. ; DB 0 ; SONG TABLE FOR THE STAR SPANGLED BANNER BY FRANCIS SCOTT KEY ; AMD J. STAFFORD SMITH ; DURATION COUNT = 64 FOR QUARTER NOTE ; ; Copied from BYTE Magazine, Volume 2, Number 9 (September 1977) Pages 77 and 78. ; 0400 60 4A 00 00 DB 96,74,0,0,50 ; 3/8 C5 C4 1 0404 32 0405 10 44 00 00 DB 16,68,0,0,44 ; 1/16 A4 A3 0409 2C 040A 40 40 00 00 DB 64,64,0,0,36 ; 1/4 G4 F3 2 040E 24 040F 40 44 00 00 DB 64,68,0,0,36 ; 1/4 A4 F3 0413 24 MACRO-80 3.44 09-Dec-81 PAGE 1-14 0414 40 4A 00 00 DB 64,74,0,0,34 ; 1/4 C5 E3 0418 22 0419 80 54 4E 44 DB 128,84,78,68,30 ; 1/2 F5 D5 A4 D3 3 041D 1E 041E 30 5C 52 44 DB 48,92,82,68,28 ; 3/16 A5 E5 A4 C#3 0422 1C 0423 10 58 00 40 DB 16,88,0,64,28 ; 1/16 G5 G4 C#3 0427 1C 0428 40 54 00 3C DB 64,84,0,60,30 ; 1/4 F5 F4 D3 4 042C 1E 042D 40 44 00 3C DB 64,68,0,60,30 ; 1/4 A4 F4 D3 0431 1E 0432 40 48 40 3C DB 64,72,64,60,40 ; 1/4 B4 G4 F4 G3 0436 28 0437 80 4A 40 3A DB 128,74,64,58,50 ; 1/2 C5 G4 E4 C4 5 043B 32 043C 20 4A 00 00 DB 32,74,0,0,50 ; 1/8 C5 C4 0440 32 0441 20 4A 00 00 DB 32,74,0,0,50 ; 1/8 C5 C4 0445 32 0446 60 5C 54 44 DB 96,92,84,68,36 ; 3/8 A5 F5 A4 F3 6 044A 24 044B 20 58 00 40 DB 32,88,0,64,40 ; 1/8 G5 G4 G3 044F 28 0450 40 54 00 3C DB 64,84,0,60,44 ; 1/4 F5 F4 A3 0454 2C 0455 80 52 4A 40 DB 128,82,74,64,50 ; 1/2 E5 C5 G4 C4 7 0459 32 045A 30 4E 46 00 DB 48,78,70,0,46 ; 3/16 D5 B#4 B#3 045E 2E 045F 0F 52 4A 40 DB 15,82,74,64,46 ; 1/16 E5 C5 G4 B#3 0463 2E 0464 40 54 4A 44 DB 64,84,74,68,44 ; 1/4 F5 C5 A4 A3 8 0468 2C 0469 40 54 00 00 DB 64,84,0,0,60 ; 1/4 F5 F4 046D 3C 046E 40 4A 00 00 DB 64,74,0,0,50 ; 1/4 C5 C4 0472 32 0473 40 44 00 00 DB 64,68,0,0,44 ; 1/4 A4 A3 9 0477 2C 0478 40 3C 00 00 DB 64,60,0,0,36 ; 1/4 F4 F3 047C 24 047D 30 4A 00 00 DB 48,74,0,0,50 ; 3/16 C5 C4 0481 32 0482 10 44 00 00 DB 16,68,0,0,44 ; 1/16 A4 A3 0486 2C 0487 40 3C 00 00 DB 64,60,0,0,36 ; 1/4 F4 F3 10 048B 24 048C 40 44 00 00 DB 64,68,0,0,36 ; 1/4 A4 F3 0490 24 0491 40 4A 00 00 DB 64,74,0,0,34 ; 1/4 C5 E3 0495 22 0496 80 54 4E 44 DB 128,84,78,68,30 ; 1/2 F5 D5 A4 D3 11 049A 1E 049B 30 5C 52 44 DB 48,92,82,68,28 ; 3/16 A5 E5 A4 C#3 049F 1C MACRO-80 3.44 09-Dec-81 PAGE 1-15 04A0 10 58 00 40 DB 16,88,0,64,28 ; 1/16 G5 G4 C#3 04A4 1C 04A5 40 54 00 3C DB 64,84,0,60,30 ; 1/4 F5 F4 D3 12 04A9 1E 04AA 40 44 00 3C DB 64,68,0,60,30 ; 1/4 A4 F4 D3 04AE 1E 04AF 40 48 40 3C DB 64,72,64,60,40 ; 1/4 B4 G4 F4 G3 04B3 28 04B4 80 4A 40 3A DB 128,74,64,58,50 ; 1/2 C5 G4 E4 C4 13 04B8 32 04B9 20 4A 00 00 DB 32,74,0,0,50 ; 1/8 C5 C4 04BD 32 04BE 20 4A 00 00 DB 32,74,0,0,50 ; 1/8 C5 C4 04C2 32 04C3 60 5C 54 44 DB 96,92,84,68,36 ; 3/8 A5 F5 A4 F3 14 04C7 24 04C8 20 58 00 40 DB 32,88,0,64,40 ; 1/8 G5 G4 G3 04CC 28 04CD 20 54 00 3C DB 32,84,0,60,44 ; 1/8 F5 F4 A3 04D1 2C 04D2 80 52 4A 40 DB 128,82,74,64,50 ; 1/2 E5 C5 G4 C4 15 04D6 32 04D7 30 4E 46 00 DB 48,78,70,0,46 ; 3/16 D5 B#4 B#3 04DB 2E 04DC 10 52 4A 40 DB 16,82,74,64,46 ; 1/16 E5 C5 G4 B#3 04E0 2E 04E1 40 54 4A 44 DB 64,84,74,68,44 ; 1/4 F5 C5 A4 A3 16 04E5 2C 04E6 40 54 00 00 DB 64,84,0,0,60 ; 1/4 F5 F4 04EA 3C 04EB 40 4A 00 00 DB 64,74,0,0,50 ; 1/4 C5 C4 04EF 32 04F0 40 44 00 00 DB 64,68,0,0,44 ; 1/4 A4 A3 17 04F4 2C 04F5 40 3C 00 00 DB 64,60,0,0,36 ; 1/4 F4 F3 04F9 24 04FA 30 5C 54 44 DB 48,92,84,68,40 ; 3/16 A5 F5 A4 G3 04FE 28 04FF 10 5C 54 44 DB 16,92,84,68,40 ; 1/16 A5 F5 A4 G3 0503 28 0504 40 5C 54 44 DB 64,92,84,68,36 ; 1/4 A5 F5 A4 F3 18 0508 24 0509 40 5E 54 46 DB 64,94,84,70,40 ; 1/4 B#5 F5 B#4 G3 050D 28 050E 40 62 54 4A DB 64,98,84,74,44 ; 1/4 C6 F5 C5 A3 0512 2C 0513 80 62 54 4A DB 128,98,84,74,44 ; 1/2 C6 F5 C5 A3 19 0517 2C 0518 20 5E 54 46 DB 32,94,84,70,40 ; 1/8 B#5 F5 B#4 G3 051C 28 051D 20 5C 54 44 DB 32,92,84,68,44 ; 1/8 A5 F5 A4 A3 0521 2C 0522 40 58 52 40 DB 64,88,82,64,50 ; 1/4 G5 E5 G4 C4 20 0526 32 MACRO-80 3.44 09-Dec-81 PAGE 1-16 0527 40 5C 54 44 DB 64,92,84,68,60 ; 1/4 A5 F5 A4 F4 052B 3C 052C 40 5E 52 46 DB 64,94,82,70,64 ; 1/4 B#5 E5 B#4 G4 0530 40 0531 80 5E 58 46 DB 128,94,88,70,26 ; 1/2 B#5 G5 B#4 C3 21 0535 1A 0536 40 5E 52 46 DB 64,94,82,70,26 ; 1/4 B#5 E5 B#4 C3 053A 1A 053B 60 5C 4A 44 DB 96,92,74,68,36 ; 3/8 A5 C5 A4 F3 22 053F 24 0540 20 58 4A 40 DB 32,88,74,64,40 ; 1/8 G5 C5 G4 G3 0544 28 0545 40 54 4A 3C DB 64,84,74,60,44 ; 1/4 F5 C5 F4 A3 0549 2C 054A 80 52 4A 40 DB 128,82,74,64,50 ; 1/32 E5 C5 G4 C4 23 054E 32 054F 20 4E 00 36 DB 32,78,0,54,46 ; 1/8 D5 D4 B#3 0553 2E 0554 20 52 4A 3A DB 32,82,74,58,46 ; 1/8 E5 C5 E4 B#3 0558 2E 0559 40 54 4A 3C DB 64,84,74,60,44 ; 1/4 F5 C5 F4 A3 24 055D 2C 055E 40 44 3C 00 DB 64,68,60,0,54 ; 1/4 A4 F4 D4 0562 36 0563 40 48 40 3C DB 64,72,64,60,40 ; 1/4 B4 G4 F4 G3 0567 28 0568 80 4A 40 3A DB 128,74,64,58,26 ; 1/2 C5 G4 E4 C3 25 056C 1A 056D 40 4A 00 00 DB 64,74,0,0,50 ; 1/4 C5 C4 0571 32 0572 40 54 4A 44 DB 64,84,74,68,36 ; 1/4 F5 C5 A4 F3 26 0576 24 0577 40 54 46 40 DB 64,84,70,64,40 ; 1/4 F5 B#4 G4 G3 057B 28 057C 20 54 4A 44 DB 32,84,74,68,44 ; 1/8 F5 C5 A4 A3 0580 2C 0581 20 52 4A 44 DB 32,82,74,68,44 ; 1/8 E5 C5 A4 A3 0585 2C 0586 40 4E 46 3C DB 64,78,70,60,46 ; 1/4 D5 B#4 F4 B#3 27 058A 2E 058B 40 4E 46 3C DB 64,78,70,60,46 ; 1/4 D5 B#4 F4 B#3 058F 2E 0590 40 4E 4A 3E DB 64,78,74,62,44 ; 1/4 D5 C5 F#4 A3 0594 2C 0595 40 58 46 40 DB 64,88,70,64,40 ; 1/4 G5 B#4 G4 G3 28 0599 28 059A 20 5E 46 00 DB 32,94,70,0,40 ; 1/8 B#5 B#4 G3 059E 28 059F 20 5C 44 00 DB 32,92,68,0,44 ; 1/8 A5 A4 A3 05A3 2C 05A4 20 58 40 00 DB 32,88,64,0,46 ; 1/8 G5 G4 B#3 05A8 2E 05A9 20 54 3C 00 DB 32,84,60,0,48 ; 1/8 F5 F4 B3 05AD 30 MACRO-80 3.44 09-Dec-81 PAGE 1-17 05AE 40 54 4A 44 DB 64,84,74,68,50 ; 1/4 F5 C5 A4 C4 29 05B2 32 05B3 40 52 4A 40 DB 64,82,74,64,26 ; 1/4 E5 C5 G4 C3 05B7 1A 05B8 20 4A 00 00 DB 32,74,0,0,50 ; 1/8 C5 C4 05BC 32 05BD 20 4A 00 00 DB 32,74,0,0,46 ; 1/8 C5 B#3 05C1 2E 05C2 60 54 4A 44 DB 96,84,74,68,44 ; 3/8 F5 C5 A4 A3 30 05C6 2C 05C7 20 58 00 40 DB 32,88,0,64,50 ; G5 G4 C4 05CB 32 05CC 20 5C 00 44 DB 32,92,0,68,64 ; 1/8 A5 A4 G4 05D0 40 05D1 20 5E 00 46 DB 32,94,0,70,64 ; 1/8 B#5 B#4 G4 05D5 40 05D6 80 62 5C 54 DB 128,98,92,84,68 ; 1/2 C6 A5 F5 A4 31 05DA 44 05DB 20 54 4E 44 DB 32,84,78,68,54 ; 1/8 F5 D5 A4 D4 05DF 36 05E0 20 58 48 40 DB 32,88,72,64,52 ; 1/8 G5 B4 G4 D#4 05E4 34 05E5 60 5C 54 4A DB 96,92,84,74,50 ; 3/8 A5 F5 C5 C4 32 05E9 32 05EA 20 5E 54 4E DB 32,94,84,78,50 ; 1/8 B#5 F5 D5 C4 05EE 32 05EF 40 58 52 46 DB 64,88,82,70,50 ; 1/4 G5 E5 B#4 C4 05F3 32 05F4 80 54 4A 44 DB 128,84,74,68,60 ; 1/2 F5 C5 A4 F4 33 05F8 3C ; 05F9 00 DB 0 ; END OF PIECE ; ============================================================= ; Data space - follows after code... ; but aligned... ; ORG ($+255) AND 0FF00H 0600 RAM: 0600 WS: 0600 DS 2 ; + 0 and + 1. 0602 DS 2 ; + 2 and + 3. 0604 DS 2 ; + 4 and + 5. 0606 DS 2 ; + 6 and + 7. 0608 DS 2 ; + 8 and + 9. 060A DS 2 ; +10 and +11. 060C DS 2 ; +12 and +13. 060E DS 2 ; +14 and +15. IF USEUNDOC ELSE IYL EQU 16 IYH EQU 17 MACRO-80 3.44 09-Dec-81 PAGE 1-18 ENDIF 0E00 TOS EQU RAM + K2 0600 V1FC EQU RAM + 0 ; Voice 1 Fractional Constant. 0601 V1IC EQU RAM + 1 ; Voice 1 Integer Constant. 0602 V2FC EQU RAM + 2 ; Voice 2 Fractional Constant. 0603 V2IC EQU RAM + 3 ; Voice 2 Integer Constant. 0604 V3FC EQU RAM + 4 ; Voice 3 Fractional Constant. 0605 V3IC EQU RAM + 5 ; Voice 3 Integer Constant. 0606 V4FC EQU RAM + 6 ; Voice 4 Fractional Constant. 0607 V4IC EQU RAM + 7 ; Voice 4 Integer Constant. END MACRO-80 3.44 09-Dec-81 PAGE S Macros: DEC_IYH DEC_IYL LD_IYH_A LD_IYL_A Symbols: 0019 DAC 0000 DEBUG 0300 FREQTBL 0400 K 0800 K2 0100 LOADAT 0114 MUSIC 0125 MUSIC1 00FD PFIXIY 0163 PLAY 0163 PLAY1 0167 PLAY2 0600 RAM 0400 SCORE 0100 START 0099 TEMPO 0E00 TOS 0001 USEUNDOC 0600 V1FC 0601 V1IC 0602 V2FC 0603 V2IC 0604 V3FC 0605 V3IC 0606 V4FC 0607 V4IC 0200 WAVETBL 0600 WS No Fatal error(s)  0125 MUSIC1