PLAYERSOURCE
FILE INFORMATION
FILENAME(S): PLAYERSOURCE
FILE TYPE(S): SEQ
FILE SIZE: 25.4K
FIRST SEEN: 2025-12-02 22:47:24
APPEARS ON: 1 disk(s)
FILE HASH
b914449f683d212f876e2ecbf226faf46fc68b7d20f42ba64afa7324c9c2133d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64ER 06 96 SEITE | PLAYERSOURCE | SEQ | swasti, charly | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 36 34 27 45 52 20 CD 55 53 49 43 20 D0 4C 41 |;64'ER .USIC .LA| 00000010: 59 45 52 20 56 2E 30 39 0D 3B C1 4C 4C 20 C3 4F |YER V.09.;.LL .O| 00000020: 44 49 4E 47 20 41 4E 44 20 C4 45 53 49 47 4E 20 |DING AND .ESIGN | 00000030: 42 59 20 D4 C8 C5 20 D3 D9 CE C4 D2 CF CD 0D 3B |BY ... ........;| 00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000060: 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 |-------. | 00000070: 20 2A 3D 20 24 30 46 30 30 0D 20 20 20 20 20 20 | *= $0F00. | 00000080: 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 20 | SEI. | 00000090: 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDA #$00. | 000000A0: 20 20 4A 53 52 20 49 4E 49 54 0D 52 54 20 20 20 | JSR INIT.RT | 000000B0: 20 20 20 20 4C 44 41 20 23 24 34 32 0D 20 20 20 | LDA #$42. | 000000C0: 20 20 20 20 20 20 43 4D 50 20 24 44 30 31 32 0D | CMP $D012.| 000000D0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 52 54 0D | BNE RT.| 000000E0: 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 44 30 | INC $D0| 000000F0: 32 30 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |20. JSR | 00000100: 50 4C 41 59 0D 20 20 20 20 20 20 20 20 20 44 45 |PLAY. DE| 00000110: 43 20 24 44 30 32 30 0D 20 20 20 20 20 20 20 20 |C $D020. | 00000120: 20 4C 44 41 20 24 44 43 30 31 0D 20 20 20 20 20 | LDA $DC01. | 00000130: 20 20 20 20 41 4E 44 20 23 24 31 30 0D 20 20 20 | AND #$10. | 00000140: 20 20 20 20 20 20 42 4E 45 20 52 54 0D 20 20 20 | BNE RT. | 00000150: 20 20 20 20 20 20 4A 4D 50 20 24 39 30 30 30 0D | JMP $9000.| 00000160: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000180: 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 |--------. | 00000190: 20 20 2A 3D 20 24 31 30 30 30 0D 0D 20 20 20 20 | *= $1000.. | 000001A0: 20 20 20 20 20 4A 4D 50 20 49 4E 49 54 0D 20 20 | JMP INIT. | 000001B0: 20 20 20 20 20 20 20 4A 4D 50 20 50 4C 41 59 0D | JMP PLAY.| 000001C0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 50 4C 41 | JMP PLA| 000001D0: 59 32 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |Y2.;------------| 000001E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 46 49 4C 54 |-----------.FILT| 00000200: 59 50 20 20 20 2E 42 59 54 45 20 24 30 30 0D 46 |YP .BYTE $00.F| 00000210: 49 4C 43 4F 4E 20 20 20 2E 42 59 54 45 20 24 30 |ILCON .BYTE $0| 00000220: 30 0D 46 49 4C 46 52 45 51 4C 20 2E 42 59 54 45 |0.FILFREQL .BYTE| 00000230: 20 24 30 30 0D 46 49 4C 46 52 45 51 48 20 2E 42 | $00.FILFREQH .B| 00000240: 59 54 45 20 24 30 30 0D 56 4F 4C 55 4D 45 20 20 |YTE $00.VOLUME | 00000250: 20 2E 42 59 54 45 20 24 30 30 0D 52 45 53 4F 4E | .BYTE $00.RESON| 00000260: 41 4E 43 45 20 2E 42 59 54 45 20 24 30 30 0D 53 |ANCE .BYTE $00.S| 00000270: 50 45 45 44 20 20 20 20 2E 42 59 54 45 20 24 30 |PEED .BYTE $0| 00000280: 30 0D 53 50 45 45 44 31 20 20 20 2E 42 59 54 45 |0.SPEED1 .BYTE| 00000290: 20 24 30 30 0D 4D 55 4C 54 49 20 20 20 20 2E 42 | $00.MULTI .B| 000002A0: 59 54 45 20 24 30 30 0D 49 44 45 4E 54 49 46 59 |YTE $00.IDENTIFY| 000002B0: 20 2E 42 59 54 45 20 24 30 30 0D 46 41 44 45 20 | .BYTE $00.FADE | 000002C0: 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 46 41 | .BYTE $00.FA| 000002D0: 44 45 54 49 4D 45 20 2E 42 59 54 45 20 24 30 30 |DETIME .BYTE $00| 000002E0: 0D 46 49 4C 54 52 53 20 20 20 2E 42 59 54 45 20 |.FILTRS .BYTE | 000002F0: 24 30 30 0D 48 41 52 44 56 41 4C 20 20 2E 42 59 |$00.HARDVAL .BY| 00000300: 54 45 20 24 30 46 20 3B 28 58 59 3A 20 58 3D 38 |TE $0F ;(XY: X=8| 00000310: 2D 3E 4B 45 45 50 20 41 44 0D 20 20 20 20 20 20 |->KEEP AD. | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 20 | ; | 00000330: 20 20 20 58 3D 30 2D 3E 20 41 44 3D 59 29 0D 20 | X=0-> AD=Y). | 00000340: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 00000350: 30 2C 30 2C 30 2C 30 20 3B 59 45 54 20 45 4D 50 |0,0,0,0 ;YET EMP| 00000360: 54 59 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |TY. .BYT| 00000370: 45 20 24 30 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 |E $00,0,0,0,0. | 00000380: 20 20 20 20 20 20 20 2E 54 45 58 54 20 22 2D 50 | .TEXT "-P| 00000390: 4C 41 59 45 52 20 26 20 4D 55 53 49 43 20 42 59 |LAYER & MUSIC BY| 000003A0: 20 54 48 45 20 22 0D 20 20 20 20 20 20 20 20 20 | THE ". | 000003B0: 2E 54 45 58 54 20 22 53 59 4E 44 52 4F 4D 21 2D |.TEXT "SYNDROM!-| 000003C0: 22 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |".;-------------| 000003D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000003E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 44 55 52 20 20 |----------.DUR | 000003F0: 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 44 55 | .BYTE $00.DU| 00000400: 52 41 54 20 20 20 20 2E 42 59 54 45 20 24 30 30 |RAT .BYTE $00| 00000410: 0D 53 4E 44 20 20 20 20 20 20 2E 42 59 54 45 20 |.SND .BYTE | 00000420: 24 30 30 0D 41 44 20 20 20 20 20 20 20 2E 42 59 |$00.AD .BY| 00000430: 54 45 20 24 30 30 0D 53 52 20 20 20 20 20 20 20 |TE $00.SR | 00000440: 2E 42 59 54 45 20 24 30 30 0D 4F 4E 20 20 20 20 |.BYTE $00.ON | 00000450: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 56 44 49 | .BYTE $00.VDI| 00000460: 52 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |R .BYTE $00.| 00000470: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00000480: 30 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 |00,0,0,0,0,0,0 | 00000490: 3B 37 20 42 59 54 45 53 0D 20 20 20 20 20 20 20 |;7 BYTES. | 000004A0: 20 20 2E 42 59 54 45 20 24 30 30 2C 30 2C 30 2C | .BYTE $00,0,0,| 000004B0: 30 2C 30 2C 30 2C 30 20 20 3B 37 20 42 59 54 45 |0,0,0,0 ;7 BYTE| 000004C0: 53 0D 54 52 50 4F 53 20 20 20 20 2E 42 59 54 45 |S.TRPOS .BYTE| 000004D0: 20 24 30 30 0D 54 52 41 43 4B 4C 20 20 20 2E 42 | $00.TRACKL .B| 000004E0: 59 54 45 20 24 30 30 0D 54 52 41 43 4B 48 20 20 |YTE $00.TRACKH | 000004F0: 20 2E 42 59 54 45 20 24 30 30 0D 53 45 43 50 4F | .BYTE $00.SECPO| 00000500: 53 20 20 20 2E 42 59 54 45 20 24 30 30 0D 57 41 |S .BYTE $00.WA| 00000510: 56 45 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 |VE .BYTE $00| 00000520: 0D 46 49 4C 50 4F 53 20 20 20 2E 42 59 54 45 20 |.FILPOS .BYTE | 00000530: 24 30 30 0D 50 55 50 4F 53 20 20 20 20 2E 42 59 |$00.PUPOS .BY| 00000540: 54 45 20 24 30 30 0D 20 20 20 20 20 20 20 20 20 |TE $00. | 00000550: 2E 42 59 54 45 20 24 30 30 2C 30 2C 30 2C 30 2C |.BYTE $00,0,0,0,| 00000560: 30 2C 30 2C 30 20 20 3B 20 2D 22 2D 0D 20 20 20 |0,0,0 ; -"-. | 00000570: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C | .BYTE $00,| 00000580: 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 2D |0,0,0,0,0,0 ; -| 00000590: 22 2D 0D 41 4E 44 4F 52 20 20 20 20 2E 42 59 54 |"-.ANDOR .BYT| 000005A0: 45 20 24 30 30 0D 43 4F 4E 54 20 20 20 20 20 2E |E $00.CONT .| 000005B0: 42 59 54 45 20 24 30 30 0D 54 52 50 4F 53 45 20 |BYTE $00.TRPOSE | 000005C0: 20 20 2E 42 59 54 45 20 24 30 30 0D 46 49 4E 45 | .BYTE $00.FINE| 000005D0: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 57 | .BYTE $00.W| 000005E0: 41 56 45 50 4F 53 20 20 2E 42 59 54 45 20 24 30 |AVEPOS .BYTE $0| 000005F0: 30 0D 53 57 49 54 43 48 20 20 20 2E 42 59 54 45 |0.SWITCH .BYTE| 00000600: 20 24 30 30 0D 4E 4F 50 55 20 20 20 20 20 2E 42 | $00.NOPU .B| 00000610: 59 54 45 20 24 30 30 0D 20 20 20 20 20 20 20 20 |YTE $00. | 00000620: 20 2E 42 59 54 45 20 24 30 30 2C 30 2C 30 2C 30 | .BYTE $00,0,0,0| 00000630: 2C 30 2C 30 2C 30 20 20 3B 20 2D 22 2D 0D 20 20 |,0,0,0 ; -"-. | 00000640: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 | .BYTE $00| 00000650: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 |,0,0,0,0,0,0 ; | 00000660: 2D 22 2D 0D 56 53 50 45 45 44 20 20 20 2E 42 59 |-"-.VSPEED .BY| 00000670: 54 45 20 24 30 30 0D 56 41 44 44 4C 20 20 20 20 |TE $00.VADDL | 00000680: 2E 42 59 54 45 20 24 30 30 0D 56 41 44 44 48 20 |.BYTE $00.VADDH | 00000690: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 53 56 4F | .BYTE $00.SVO| 000006A0: 4C 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |L .BYTE $00.| 000006B0: 47 4C 49 44 45 48 20 20 20 2E 42 59 54 45 20 24 |GLIDEH .BYTE $| 000006C0: 30 30 0D 47 4C 49 44 45 4C 20 20 20 2E 42 59 54 |00.GLIDEL .BYT| 000006D0: 45 20 24 30 30 0D 47 4C 4C 20 20 20 20 20 20 2E |E $00.GLL .| 000006E0: 42 59 54 45 20 24 30 30 0D 20 20 20 20 20 20 20 |BYTE $00. | 000006F0: 20 20 2E 42 59 54 45 20 24 30 30 2C 30 2C 30 2C | .BYTE $00,0,0,| 00000700: 30 2C 30 2C 30 2C 30 20 20 3B 20 2D 22 2D 0D 20 |0,0,0,0 ; -"-. | 00000710: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 00000720: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B |0,0,0,0,0,0,0 ;| 00000730: 20 2D 22 2D 0D 47 4C 48 20 20 20 20 20 20 2E 42 | -"-.GLH .B| 00000740: 59 54 45 20 24 30 30 0D 47 4C 54 4F 20 20 20 20 |YTE $00.GLTO | 00000750: 20 2E 42 59 54 45 20 24 30 30 0D 47 4C 46 52 4F | .BYTE $00.GLFRO| 00000760: 4D 20 20 20 2E 42 59 54 45 20 24 30 30 0D 47 4C |M .BYTE $00.GL| 00000770: 44 45 4C 20 20 20 20 2E 42 59 54 45 20 24 30 30 |DEL .BYTE $00| 00000780: 0D 47 4C 44 45 48 20 20 20 20 2E 42 59 54 45 20 |.GLDEH .BYTE | 00000790: 24 30 30 0D 4E 4F 54 45 4F 4B 20 20 20 2E 42 59 |$00.NOTEOK .BY| 000007A0: 54 45 20 24 30 30 0D 44 52 55 4D 20 20 20 20 20 |TE $00.DRUM | 000007B0: 2E 42 59 54 45 20 24 30 30 0D 20 20 20 20 20 20 |.BYTE $00. | 000007C0: 20 20 20 2E 42 59 54 45 20 24 30 30 2C 30 2C 30 | .BYTE $00,0,0| 000007D0: 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 2D 22 2D 0D |,0,0,0,0 ; -"-.| 000007E0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 000007F0: 30 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 |00,0,0,0,0,0,0 | 00000800: 3B 20 2D 22 2D 0D 50 55 4C 53 4C 4F 20 20 20 2E |; -"-.PULSLO .| 00000810: 42 59 54 45 20 24 30 30 0D 50 55 4C 53 48 49 20 |BYTE $00.PULSHI | 00000820: 20 20 2E 42 59 54 45 20 24 30 30 0D 50 55 4C 53 | .BYTE $00.PULS| 00000830: 46 52 4D 20 20 2E 42 59 54 45 20 24 30 30 0D 50 |FRM .BYTE $00.P| 00000840: 55 4C 53 41 44 44 4C 20 2E 42 59 54 45 20 24 30 |ULSADDL .BYTE $0| 00000850: 30 0D 50 55 4C 53 41 44 44 48 20 2E 42 59 54 45 |0.PULSADDH .BYTE| 00000860: 20 24 30 30 0D 53 57 49 54 43 48 32 20 20 2E 42 | $00.SWITCH2 .B| 00000870: 59 54 45 20 24 30 30 0D 43 55 54 20 20 20 20 20 |YTE $00.CUT | 00000880: 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 20 20 | .BYTE $00. | 00000890: 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 30 2C | .BYTE $00,0,| 000008A0: 30 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 2D 22 2D |0,0,0,0,0 ; -"-| 000008B0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000008C0: 24 30 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 |$00,0,0,0,0,0,0 | 000008D0: 20 3B 20 2D 22 2D 0D 53 4E 44 4E 20 20 20 20 20 | ; -"-.SNDN | 000008E0: 2E 42 59 54 45 20 24 30 30 0D 45 46 46 48 49 20 |.BYTE $00.EFFHI | 000008F0: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 45 46 46 | .BYTE $00.EFF| 00000900: 4C 4F 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |LO .BYTE $00.| 00000910: 50 43 4F 4E 54 20 20 20 20 2E 42 59 54 45 20 24 |PCONT .BYTE $| 00000920: 30 30 0D 57 56 53 50 45 45 44 20 20 2E 42 59 54 |00.WVSPEED .BYT| 00000930: 45 20 24 30 30 0D 48 41 52 44 4F 4E 20 20 20 2E |E $00.HARDON .| 00000940: 42 59 54 45 20 24 30 30 0D 4E 4F 54 45 56 20 20 |BYTE $00.NOTEV | 00000950: 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 20 | .BYTE $00. | 00000960: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 30 | .BYTE $00,0| 00000970: 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 2D 22 |,0,0,0,0,0 ; -"| 00000980: 2D 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |-. .BYTE| 00000990: 20 24 30 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | $00,0,0,0,0,0,0| 000009A0: 20 20 3B 20 2D 22 2D 0D 57 56 53 50 45 45 44 31 | ; -"-.WVSPEED1| 000009B0: 20 2E 42 59 54 45 20 24 30 30 0D 56 53 50 45 45 | .BYTE $00.VSPEE| 000009C0: 44 31 20 20 2E 42 59 54 45 20 24 30 30 0D 56 41 |D1 .BYTE $00.VA| 000009D0: 44 44 4C 31 20 20 20 2E 42 59 54 45 20 24 30 30 |DDL1 .BYTE $00| 000009E0: 0D 56 41 44 44 48 31 20 20 20 2E 42 59 54 45 20 |.VADDH1 .BYTE | 000009F0: 24 30 30 0D 56 49 4C 4F 20 20 20 20 20 2E 42 59 |$00.VILO .BY| 00000A00: 54 45 20 24 30 30 0D 56 49 48 49 20 20 20 20 20 |TE $00.VIHI | 00000A10: 2E 42 59 54 45 20 24 30 30 0D 56 49 46 49 52 53 |.BYTE $00.VIFIRS| 00000A20: 54 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 |T .BYTE $00. | 00000A30: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C | .BYTE $00,| 00000A40: 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 2D |0,0,0,0,0,0 ; -| 00000A50: 22 2D 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |"-. .BYT| 00000A60: 45 20 24 30 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |E $00,0,0,0,0,0,| 00000A70: 30 20 20 3B 20 2D 22 2D 0D 0D 0D 0D 4D 41 52 4B |0 ; -"-....MARK| 00000A80: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 0D | .BYTE $00..| 00000A90: 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...;------------| 00000AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 49 4E 49 54 |-----------.INIT| 00000AC0: 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 | ASL A. | 00000AD0: 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 | ASL A. | 00000AE0: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 00000AF0: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L| 00000B00: 44 58 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 |DX #$00. | 00000B10: 20 54 58 41 0D 49 4E 49 54 43 4C 20 20 20 53 54 | TXA.INITCL ST| 00000B20: 41 20 44 55 52 2C 58 20 20 20 20 20 3B 43 4C 45 |A DUR,X ;CLE| 00000B30: 41 52 20 44 41 54 41 0D 20 20 20 20 20 20 20 20 |AR DATA. | 00000B40: 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 50 | INX. CP| 00000B50: 58 20 23 4D 41 52 4B 2D 44 55 52 0D 20 20 20 20 |X #MARK-DUR. | 00000B60: 20 20 20 20 20 42 4E 45 20 49 4E 49 54 43 4C 0D | BNE INITCL.| 00000B70: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 | LDX #$0| 00000B80: 30 20 20 20 20 20 20 3B 50 52 45 50 41 52 45 20 |0 ;PREPARE | 00000B90: 50 4F 49 4E 54 45 52 53 0D 54 52 46 49 4C 4C 20 |POINTERS.TRFILL | 00000BA0: 20 20 4C 44 41 20 54 52 41 4B 4B 2C 59 0D 20 20 | LDA TRAKK,Y. | 00000BB0: 20 20 20 20 20 20 20 53 54 41 20 54 52 41 43 4B | STA TRACK| 00000BC0: 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |L,X. LDA| 00000BD0: 20 54 52 41 4B 4B 2B 31 2C 59 0D 20 20 20 20 20 | TRAKK+1,Y. | 00000BE0: 20 20 20 20 53 54 41 20 54 52 41 43 4B 48 2C 58 | STA TRACKH,X| 00000BF0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 39 |. LDA #9| 00000C00: 20 20 20 20 20 20 20 20 3B 52 45 53 45 54 20 56 | ;RESET V| 00000C10: 4F 49 43 45 53 0D 20 20 20 20 20 20 20 20 20 53 |OICES. S| 00000C20: 54 41 20 24 44 34 30 34 2C 58 0D 20 20 20 20 20 |TA $D404,X. | 00000C30: 20 20 20 20 53 54 41 20 4F 4E 2C 58 0D 20 20 20 | STA ON,X. | 00000C40: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00000C50: 20 20 20 20 20 20 53 54 41 20 41 44 2C 58 0D 20 | STA AD,X. | 00000C60: 20 20 20 20 20 20 20 20 53 54 41 20 53 52 2C 58 | STA SR,X| 00000C70: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00000C80: 30 32 20 20 20 20 20 20 3B 53 54 41 52 54 56 41 |02 ;STARTVA| 00000C90: 4C 55 45 53 0D 20 20 20 20 20 20 20 20 20 53 54 |LUES. ST| 00000CA0: 41 20 44 55 52 41 54 2C 58 0D 20 20 20 20 20 20 |A DURAT,X. | 00000CB0: 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 | LDA #$FF. | 00000CC0: 20 20 20 20 20 53 54 41 20 57 56 53 50 45 45 44 | STA WVSPEED| 00000CD0: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |1,X. LDA| 00000CE0: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00000CF0: 20 48 41 52 44 4F 4E 2C 58 0D 20 20 20 20 20 20 | HARDON,X. | 00000D00: 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 | LDA #1. | 00000D10: 20 20 20 53 54 41 20 41 4E 44 4F 52 2C 58 0D 20 | STA ANDOR,X. | 00000D20: 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 | INY. | 00000D30: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00000D40: 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 20 43 | TXA. C| 00000D50: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 00000D60: 23 37 20 20 20 20 20 20 20 20 3B 30 2D 37 2D 31 |#7 ;0-7-1| 00000D70: 34 2D 4C 4F 4F 50 0D 20 20 20 20 20 20 20 20 20 |4-LOOP. | 00000D80: 54 41 58 0D 20 20 20 20 20 20 20 20 20 43 50 58 |TAX. CPX| 00000D90: 20 23 32 31 0D 20 20 20 20 20 20 20 20 20 42 4E | #21. BN| 00000DA0: 45 20 54 52 46 49 4C 4C 0D 20 20 20 20 20 20 20 |E TRFILL. | 00000DB0: 20 20 4C 44 41 20 54 52 41 4B 4B 2C 59 0D 20 20 | LDA TRAKK,Y. | 00000DC0: 20 20 20 20 20 20 20 53 54 41 20 53 50 45 45 44 | STA SPEED| 00000DD0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 |. LDA #0| 00000DE0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 50 |. STA SP| 00000DF0: 45 45 44 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |EED1. LD| 00000E00: 41 20 54 52 41 4B 4B 2B 31 2C 59 0D 20 20 20 20 |A TRAKK+1,Y. | 00000E10: 20 20 20 20 20 53 54 41 20 56 4F 4C 55 4D 45 0D | STA VOLUME.| 00000E20: 20 20 20 20 20 20 20 20 20 52 54 53 0D 3B 2D 2D | RTS.;--| 00000E30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E50: 2D 2D 2D 2D 2D 0D 50 4C 41 59 20 20 20 20 20 4C |-----.PLAY L| 00000E60: 44 41 20 24 46 38 20 20 20 20 20 20 3B 53 41 56 |DA $F8 ;SAV| 00000E70: 45 20 55 53 45 44 0D 20 20 20 20 20 20 20 20 20 |E USED. | 00000E80: 50 48 41 20 20 20 20 20 20 20 20 20 20 3B 5A 45 |PHA ;ZE| 00000E90: 52 4F 50 41 47 45 20 54 4F 20 53 54 41 43 4B 0D |ROPAGE TO STACK.| 00000EA0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 39 | LDA $F9| 00000EB0: 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 |. PHA. | 00000EC0: 20 20 20 20 20 20 20 44 45 43 20 53 50 45 45 44 | DEC SPEED| 00000ED0: 31 20 20 3B 4D 41 49 4E 2D 53 50 45 45 44 2D 43 |1 ;MAIN-SPEED-C| 00000EE0: 4F 4E 54 52 4F 4C 0D 20 20 20 20 20 20 20 20 20 |ONTROL. | 00000EF0: 42 50 4C 20 4E 45 57 31 0D 20 20 20 20 20 20 20 |BPL NEW1. | 00000F00: 20 20 4C 44 41 20 53 50 45 45 44 0D 20 20 20 20 | LDA SPEED. | 00000F10: 20 20 20 20 20 53 54 41 20 53 50 45 45 44 31 0D | STA SPEED1.| 00000F20: 4E 45 57 31 20 20 20 20 20 4C 44 58 20 23 30 0D |NEW1 LDX #0.| 00000F30: 20 20 20 20 20 20 20 20 20 4A 53 52 20 56 4F 49 | JSR VOI| 00000F40: 43 45 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |CE. LDX | 00000F50: 23 37 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |#7. JSR | 00000F60: 56 4F 49 43 45 0D 20 20 20 20 20 20 20 20 20 4C |VOICE. L| 00000F70: 44 58 20 23 31 34 0D 20 20 20 20 20 20 20 20 20 |DX #14. | 00000F80: 4A 53 52 20 56 4F 49 43 45 0D 20 20 20 20 20 20 |JSR VOICE. | 00000F90: 20 20 20 4C 44 41 20 46 41 44 45 20 20 20 20 20 | LDA FADE | 00000FA0: 3B 56 4F 4C 55 4D 45 2D 46 41 44 45 0D 20 20 20 |;VOLUME-FADE. | 00000FB0: 20 20 20 20 20 20 42 45 51 20 4E 4F 46 41 44 45 | BEQ NOFADE| 00000FC0: 20 20 20 3B 41 43 54 49 56 45 20 3F 0D 20 20 20 | ;ACTIVE ?. | 00000FD0: 20 20 20 20 20 20 44 45 43 20 46 41 44 45 54 49 | DEC FADETI| 00000FE0: 4D 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ME. LDA | 00000FF0: 46 41 44 45 54 49 4D 45 0D 20 20 20 20 20 20 20 |FADETIME. | 00001000: 20 20 42 4E 45 20 4E 4F 46 41 44 45 0D 46 54 49 | BNE NOFADE.FTI| 00001010: 4D 45 20 20 20 20 4C 44 41 20 23 30 20 20 20 20 |ME LDA #0 | 00001020: 20 20 20 3B 44 49 52 45 43 54 20 43 4F 44 45 0D | ;DIRECT CODE.| 00001030: 20 20 20 20 20 20 20 20 20 53 54 41 20 46 41 44 | STA FAD| 00001040: 45 54 49 4D 45 20 3B 41 43 43 45 53 53 45 44 0D |ETIME ;ACCESSED.| 00001050: 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 4F 4C | LDA VOL| 00001060: 55 4D 45 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |UME. CLC| 00001070: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 46 41 |. ADC FA| 00001080: 44 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |DE. STA | 00001090: 56 4F 4C 55 4D 45 0D 20 20 20 20 20 20 20 20 20 |VOLUME. | 000010A0: 43 4D 50 20 23 24 46 46 20 20 20 20 20 3B 4C 4F |CMP #$FF ;LO| 000010B0: 57 45 52 20 53 54 4F 50 0D 20 20 20 20 20 20 20 |WER STOP. | 000010C0: 20 20 42 45 51 20 46 41 44 45 53 54 4F 50 0D 20 | BEQ FADESTOP. | 000010D0: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 31 30 | CMP #$10| 000010E0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E 4F |. BNE NO| 000010F0: 46 41 44 45 20 20 20 3B 55 50 50 45 52 20 53 54 |FADE ;UPPER ST| 00001100: 4F 50 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |OP. LDA | 00001110: 23 24 30 46 0D 20 20 20 20 20 20 20 20 20 53 54 |#$0F. ST| 00001120: 41 20 56 4F 4C 55 4D 45 0D 20 20 20 20 20 20 20 |A VOLUME. | 00001130: 20 20 42 4E 45 20 4E 4F 46 41 44 45 0D 0D 46 41 | BNE NOFADE..FA| 00001140: 44 45 53 54 4F 50 20 4C 44 41 20 23 30 0D 20 20 |DESTOP LDA #0. | 00001150: 20 20 20 20 20 20 20 53 54 41 20 46 41 44 45 0D | STA FADE.| 00001160: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 4F 4C | STA VOL| 00001170: 55 4D 45 0D 4E 4F 46 41 44 45 20 20 20 4C 44 41 |UME.NOFADE LDA| 00001180: 20 56 4F 4C 55 4D 45 20 20 20 20 3B 50 45 52 4D | VOLUME ;PERM| 00001190: 41 4E 45 4E 54 0D 20 20 20 20 20 20 20 20 20 4F |ANENT. O| 000011A0: 52 41 20 46 49 4C 54 59 50 20 20 20 20 3B 43 4F |RA FILTYP ;CO| 000011B0: 4E 54 52 4F 4C 53 0D 20 20 20 20 20 20 20 20 20 |NTROLS. | 000011C0: 53 54 41 20 24 44 34 31 38 0D 20 20 20 20 20 20 |STA $D418. | 000011D0: 20 20 20 4C 44 41 20 46 49 4C 43 4F 4E 0D 20 20 | LDA FILCON. | 000011E0: 20 20 20 20 20 20 20 4F 52 41 20 52 45 53 4F 4E | ORA RESON| 000011F0: 41 4E 43 45 0D 20 20 20 20 20 20 20 20 20 53 54 |ANCE. ST| 00001200: 41 20 24 44 34 31 37 0D 20 20 20 20 20 20 20 20 |A $D417. | 00001210: 20 4C 44 41 20 46 49 4C 46 52 45 51 4C 0D 20 20 | LDA FILFREQL. | 00001220: 20 20 20 20 20 20 20 53 54 41 20 24 44 34 31 35 | STA $D415| 00001230: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 |. LDA FI| 00001240: 4C 46 52 45 51 48 0D 20 20 20 20 20 20 20 20 20 |LFREQH. | 00001250: 53 54 41 20 24 44 34 31 36 0D 20 20 20 20 20 20 |STA $D416. | 00001260: 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 20 | PLA | 00001270: 20 3B 52 45 57 52 49 54 45 20 5A 45 52 4F 2D 0D | ;REWRITE ZERO-.| 00001280: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 39 | STA $F9| 00001290: 20 20 20 20 20 20 20 3B 50 41 47 45 0D 20 20 20 | ;PAGE. | 000012A0: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. | 000012B0: 20 20 20 53 54 41 20 24 46 38 0D 20 20 20 20 20 | STA $F8. | 000012C0: 20 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D 2D | RTS.;-------| 000012D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000012E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000012F0: 0D 56 4F 49 43 45 20 20 20 20 4C 44 41 20 4F 4E |.VOICE LDA ON| 00001300: 2C 58 20 20 20 20 20 20 3B 56 4F 49 43 45 20 41 |,X ;VOICE A| 00001310: 43 54 49 56 45 3F 0D 20 20 20 20 20 20 20 20 20 |CTIVE?. | 00001320: 42 4E 45 20 56 4F 49 4F 4E 0D 20 20 20 20 20 20 |BNE VOION. | 00001330: 20 20 20 52 54 53 0D 56 4F 49 4F 4E 20 20 20 20 | RTS.VOION | 00001340: 4C 44 41 20 53 50 45 45 44 31 20 20 3B 4E 45 57 |LDA SPEED1 ;NEW| 00001350: 20 44 55 52 41 54 49 4F 4E 2D 0D 20 20 20 20 20 | DURATION-. | 00001360: 20 20 20 20 43 4D 50 20 53 50 45 45 44 20 20 20 | CMP SPEED | 00001370: 3B 46 52 41 4D 45 20 3F 0D 20 20 20 20 20 20 20 |;FRAME ?. | 00001380: 20 20 42 45 51 20 4E 45 57 20 20 20 20 20 3B 0D | BEQ NEW ;.| 00001390: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 56 4F |. JMP VO| 000013A0: 49 43 45 33 3B 48 52 2D 43 48 45 43 4B 20 46 4F |ICE3;HR-CHECK FO| 000013B0: 52 20 4C 4F 57 0D 20 20 20 20 20 20 20 20 20 20 |R LOW. | 000013C0: 20 20 20 20 20 20 20 20 20 3B 53 50 45 45 44 53 | ;SPEEDS| 000013D0: 20 4E 45 43 45 53 53 41 52 59 0D 4E 45 57 20 20 | NECESSARY.NEW | 000013E0: 20 20 20 20 44 45 43 20 44 55 52 41 54 2C 58 20 | DEC DURAT,X | 000013F0: 3B 4E 45 57 20 43 4F 4D 4D 41 4E 44 2D 0D 20 20 |;NEW COMMAND-. | 00001400: 20 20 20 20 20 20 20 42 45 51 20 4E 45 57 33 20 | BEQ NEW3 | 00001410: 20 20 20 3B 46 52 41 4D 45 20 3F 0D 20 20 20 20 | ;FRAME ?. | 00001420: 20 20 20 20 20 4A 4D 50 20 56 4F 49 43 45 33 0D | JMP VOICE3.| 00001430: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00001440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001450: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 54 52 41 43 4B 2D |--------.;TRACK-| 00001460: 43 4F 4E 54 52 4F 4C 2D 52 4F 55 54 49 4E 45 53 |CONTROL-ROUTINES| 00001470: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 43 4F 4D 4D 41 |---------.;COMMA| 000014A0: 4E 44 53 0D 20 20 20 20 20 20 20 20 20 3B 24 46 |NDS. ;$F| 000014B0: 46 20 58 58 20 20 20 20 4C 4F 4F 50 20 58 58 0D |F XX LOOP XX.| 000014C0: 20 20 20 20 20 20 20 20 20 3B 24 46 45 20 20 20 | ;$FE | 000014D0: 20 20 20 20 53 54 4F 50 20 56 4F 49 43 45 0D 20 | STOP VOICE. | 000014E0: 20 20 20 20 20 20 20 20 3B 24 46 44 20 58 58 20 | ;$FD XX | 000014F0: 20 20 20 54 52 41 4E 53 50 4F 53 45 20 2B 58 58 | TRANSPOSE +XX| 00001500: 0D 20 20 20 20 20 20 20 20 20 3B 24 46 43 20 58 |. ;$FC X| 00001510: 58 20 20 20 20 54 52 41 4E 53 50 4F 53 45 20 2D |X TRANSPOSE -| 00001520: 58 58 0D 20 20 20 20 20 20 20 20 20 3B 24 46 42 |XX. ;$FB| 00001530: 20 58 58 20 20 20 20 46 41 44 45 49 4E 20 20 58 | XX FADEIN X| 00001540: 58 0D 20 20 20 20 20 20 20 20 20 3B 24 46 41 20 |X. ;$FA | 00001550: 58 58 20 20 20 20 46 41 44 45 4F 55 54 20 58 58 |XX FADEOUT XX| 00001560: 0D 20 20 20 20 20 20 20 20 20 3B 24 45 58 20 20 |. ;$EX | 00001570: 20 20 20 20 20 56 4F 4C 55 4D 45 20 58 0D 3B 2D | VOLUME X.;-| 00001580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000015A0: 2D 2D 2D 2D 2D 2D 0D 4E 45 57 33 20 20 20 20 20 |------.NEW3 | 000015B0: 4C 44 41 20 54 52 41 43 4B 4C 2C 58 20 3B 53 45 |LDA TRACKL,X ;SE| 000015C0: 54 20 50 4F 49 4E 54 45 52 53 0D 20 20 20 20 20 |T POINTERS. | 000015D0: 20 20 20 20 53 54 41 20 24 46 38 0D 20 20 20 20 | STA $F8. | 000015E0: 20 20 20 20 20 4C 44 41 20 54 52 41 43 4B 48 2C | LDA TRACKH,| 000015F0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |X. STA $| 00001600: 46 39 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |F9.;------------| 00001610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001620: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 43 48 45 |-----------.;CHE| 00001630: 43 4B 20 54 52 41 43 4B 2D 43 4F 4D 4D 41 4E 44 |CK TRACK-COMMAND| 00001640: 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |S.;-------------| 00001650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 52 45 41 44 20 |----------.READ | 00001670: 20 20 20 20 4C 44 59 20 54 52 50 4F 53 2C 58 0D | LDY TRPOS,X.| 00001680: 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 | LDA ($F| 00001690: 38 29 2C 59 0D 20 20 20 20 20 20 20 20 20 42 50 |8),Y. BP| 000016A0: 4C 20 4E 4F 43 4F 4D 20 20 20 3B 53 45 43 54 4F |L NOCOM ;SECTO| 000016B0: 52 20 4F 52 20 43 4F 4D 4D 41 4E 44 3F 0D 20 20 |R OR COMMAND?. | 000016C0: 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 46 20 | CMP #$FF | 000016D0: 20 20 20 20 20 20 3B 45 4E 44 0D 20 20 20 20 20 | ;END. | 000016E0: 20 20 20 20 42 4E 45 20 43 4F 4D 31 0D 20 20 20 | BNE COM1. | 000016F0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00001700: 20 20 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 | LDA ($F8),Y. | 00001710: 20 20 20 20 20 20 20 20 53 54 41 20 54 52 50 4F | STA TRPO| 00001720: 53 2C 58 0D 20 20 20 20 20 20 20 20 20 54 41 59 |S,X. TAY| 00001730: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 52 45 |. JMP RE| 00001740: 41 44 2B 33 0D 43 4F 4D 31 20 20 20 20 20 43 4D |AD+3.COM1 CM| 00001750: 50 20 23 24 46 45 20 20 20 20 20 20 20 3B 53 54 |P #$FE ;ST| 00001760: 4F 50 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |OP. BNE | 00001770: 43 4F 4D 32 0D 20 20 20 20 20 20 20 20 20 4C 44 |COM2. LD| 00001780: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST| 00001790: 41 20 4F 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 |A ON,X. | 000017A0: 52 54 53 0D 43 4F 4D 32 20 20 20 20 20 43 4D 50 |RTS.COM2 CMP| 000017B0: 20 23 24 46 44 20 20 20 20 20 20 20 3B 54 52 2B | #$FD ;TR+| 000017C0: 58 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |XX. BNE | 000017D0: 43 4F 4D 33 0D 20 20 20 20 20 20 20 20 20 49 4E |COM3. IN| 000017E0: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 |Y. LDA (| 000017F0: 24 46 38 29 2C 59 0D 44 41 5A 55 20 20 20 20 20 |$F8),Y.DAZU | 00001800: 53 54 41 20 54 52 50 4F 53 45 2C 58 0D 20 20 20 |STA TRPOSE,X. | 00001810: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00001820: 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 | TYA. | 00001830: 53 54 41 20 54 52 50 4F 53 2C 58 0D 20 20 20 20 |STA TRPOS,X. | 00001840: 20 20 20 20 20 4A 4D 50 20 52 45 41 44 2B 33 0D | JMP READ+3.| 00001850: 43 4F 4D 33 20 20 20 20 20 43 4D 50 20 23 24 46 |COM3 CMP #$F| 00001860: 43 20 20 20 20 20 20 20 3B 54 52 2D 58 58 0D 20 |C ;TR-XX. | 00001870: 20 20 20 20 20 20 20 20 42 4E 45 20 43 4F 4D 34 | BNE COM4| 00001880: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |. INY. | 00001890: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 38 29 | LDA ($F8)| 000018A0: 2C 59 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 |,Y. EOR | 000018B0: 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 43 4C |#$FF. CL| 000018C0: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 000018D0: 24 30 31 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |$01. JMP| 000018E0: 20 44 41 5A 55 0D 43 4F 4D 34 20 20 20 20 20 43 | DAZU.COM4 C| 000018F0: 4D 50 20 23 24 46 42 20 20 20 20 20 20 20 3B 46 |MP #$FB ;F| 00001900: 44 2B 58 58 0D 20 20 20 20 20 20 20 20 20 42 4E |D+XX. BN| 00001910: 45 20 43 4F 4D 35 0D 20 20 20 20 20 20 20 20 20 |E COM5. | 00001920: 49 4E 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |INY. LDA| 00001930: 20 28 24 46 38 29 2C 59 0D 20 20 20 20 20 20 20 | ($F8),Y. | 00001940: 20 20 53 54 41 20 46 41 44 45 54 49 4D 45 0D 20 | STA FADETIME. | 00001950: 20 20 20 20 20 20 20 20 53 54 41 20 46 54 49 4D | STA FTIM| 00001960: 45 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |E+1. LDA| 00001970: 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #1. STA| 00001980: 20 46 41 44 45 0D 20 20 20 20 20 20 20 20 20 4A | FADE. J| 00001990: 4D 50 20 44 41 5A 55 2B 33 0D 43 4F 4D 35 20 20 |MP DAZU+3.COM5 | 000019A0: 20 20 20 43 4D 50 20 23 24 46 41 20 20 20 20 20 | CMP #$FA | 000019B0: 20 20 3B 46 44 2D 58 58 0D 20 20 20 20 20 20 20 | ;FD-XX. | 000019C0: 20 20 42 4E 45 20 43 4F 4D 36 0D 20 20 20 20 20 | BNE COM6. | 000019D0: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 000019E0: 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 20 20 | LDA ($F8),Y. | 000019F0: 20 20 20 20 20 20 53 54 41 20 46 41 44 45 54 49 | STA FADETI| 00001A00: 4D 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |ME. STA | 00001A10: 46 54 49 4D 45 2B 31 0D 20 20 20 20 20 20 20 20 |FTIME+1. | 00001A20: 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 20 20 | LDA #$FF. | 00001A30: 20 20 20 53 54 41 20 46 41 44 45 0D 20 20 20 20 | STA FADE. | 00001A40: 20 20 20 20 20 4A 4D 50 20 44 41 5A 55 2B 33 0D | JMP DAZU+3.| 00001A50: 43 4F 4D 36 20 20 20 20 20 43 4D 50 20 23 24 45 |COM6 CMP #$E| 00001A60: 30 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 43 |0. BCC C| 00001A70: 4F 4D 37 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |OM7. CMP| 00001A80: 20 23 24 46 30 20 20 20 20 20 20 20 3B 4D 56 4C | #$F0 ;MVL| 00001A90: 2E 58 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 |.X. BCS | 00001AA0: 43 4F 4D 37 0D 20 20 20 20 20 20 20 20 20 41 4E |COM7. AN| 00001AB0: 44 20 23 24 30 46 0D 20 20 20 20 20 20 20 20 20 |D #$0F. | 00001AC0: 53 54 41 20 56 4F 4C 55 4D 45 0D 20 20 20 20 20 |STA VOLUME. | 00001AD0: 20 20 20 20 49 4E 43 20 54 52 50 4F 53 2C 58 0D | INC TRPOS,X.| 00001AE0: 43 4F 4D 37 20 20 20 20 20 4A 4D 50 20 52 45 41 |COM7 JMP REA| 00001AF0: 44 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |D.;-------------| 00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B D3 45 43 54 |----------.;.ECT| 00001B20: 4F 52 2D 43 4F 4E 54 52 4F 4C 0D 3B 43 4F 4D 4D |OR-CONTROL.;COMM| 00001B30: 41 4E 44 53 20 20 24 46 44 2E 58 58 20 20 20 44 |ANDS $FD.XX D| 00001B40: 55 52 20 58 58 0D 20 20 20 20 20 20 20 20 20 20 |UR XX. | 00001B50: 3B 24 46 43 2E 58 58 20 20 20 53 4E 44 20 58 58 |;$FC.XX SND XX| 00001B60: 0D 20 20 20 20 20 20 20 20 20 20 3B 24 46 45 20 |. ;$FE | 00001B70: 20 20 20 20 20 43 4F 4E 54 28 2D 2D 2D 29 0D 20 | CONT(---). | 00001B80: 20 20 20 20 20 20 20 20 20 3B 24 46 42 20 20 20 | ;$FB | 00001B90: 20 20 20 47 41 54 45 0D 20 20 20 20 20 20 20 20 | GATE. | 00001BA0: 20 20 3B 24 46 41 20 20 20 20 20 20 53 57 49 54 | ;$FA SWIT| 00001BB0: 43 48 0D 20 20 20 20 20 20 20 20 20 20 3B 24 46 |CH. ;$F| 00001BC0: 39 20 20 20 20 20 20 43 55 54 0D 3B 2D 2D 2D 2D |9 CUT.;----| 00001BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001BF0: 2D 2D 2D 0D 4E 4F 43 4F 4D 20 20 20 20 54 41 59 |---.NOCOM TAY| 00001C00: 20 20 20 20 20 20 20 20 20 20 3B 53 45 54 20 50 | ;SET P| 00001C10: 4F 49 4E 54 45 52 53 0D 20 20 20 20 20 20 20 20 |OINTERS. | 00001C20: 20 4C 44 41 20 53 45 43 4C 4F 2C 59 0D 20 20 20 | LDA SECLO,Y. | 00001C30: 20 20 20 20 20 20 53 54 41 20 24 46 38 0D 20 20 | STA $F8. | 00001C40: 20 20 20 20 20 20 20 4C 44 41 20 53 45 43 48 49 | LDA SECHI| 00001C50: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00001C60: 24 46 39 0D 52 45 41 44 33 20 20 20 20 4C 44 59 |$F9.READ3 LDY| 00001C70: 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 20 20 20 | SECPOS,X. | 00001C80: 20 20 20 4C 44 41 20 28 24 46 38 29 2C 59 20 20 | LDA ($F8),Y | 00001C90: 3B 43 4F 4D 4D 41 4E 44 20 4F 52 0D 20 20 20 20 |;COMMAND OR. | 00001CA0: 20 20 20 20 20 43 4D 50 20 23 24 43 30 20 20 20 | CMP #$C0 | 00001CB0: 20 20 3B 4E 4F 54 45 20 3F 0D 20 20 20 20 20 20 | ;NOTE ?. | 00001CC0: 20 20 20 42 43 53 20 4E 4E 4F 54 45 20 20 20 20 | BCS NNOTE | 00001CD0: 3B 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 |;. PHA. | 00001CE0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 | LDA #0. | 00001CF0: 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 4C 2C | STA GLL,| 00001D00: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 47 |X. STA G| 00001D10: 4C 48 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |LH,X. ST| 00001D20: 41 20 47 4C 49 44 45 4C 2C 58 0D 20 20 20 20 20 |A GLIDEL,X. | 00001D30: 20 20 20 20 53 54 41 20 47 4C 49 44 45 48 2C 58 | STA GLIDEH,X| 00001D40: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 56 53 |. STA VS| 00001D50: 50 45 45 44 2C 58 0D 20 20 20 20 20 20 20 20 20 |PEED,X. | 00001D60: 53 54 41 20 56 49 4C 4F 2C 58 0D 20 20 20 20 20 |STA VILO,X. | 00001D70: 20 20 20 20 53 54 41 20 56 49 48 49 2C 58 0D 0D | STA VIHI,X..| 00001D80: 20 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 | PLA. | 00001D90: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 54 45 0D 4E | JMP NOTE.N| 00001DA0: 4E 4F 54 45 0D 20 20 20 20 20 20 20 20 20 43 4D |NOTE. CM| 00001DB0: 50 20 23 24 46 46 20 20 20 20 20 20 20 20 20 20 |P #$FF | 00001DC0: 3B 45 4E 44 0D 20 20 20 20 20 20 20 20 20 42 4E |;END. BN| 00001DD0: 45 20 53 43 4F 4D 31 0D 20 20 20 20 20 20 20 20 |E SCOM1. | 00001DE0: 20 49 4E 43 20 54 52 50 4F 53 2C 58 0D 20 20 20 | INC TRPOS,X. | 00001DF0: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00001E00: 20 20 20 20 20 20 53 54 41 20 53 45 43 50 4F 53 | STA SECPOS| 00001E10: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00001E20: 53 57 49 54 43 48 2C 58 20 3B 4E 4F 20 43 55 54 |SWITCH,X ;NO CUT| 00001E30: 20 49 46 20 53 57 49 54 43 48 0D 20 20 20 20 20 | IF SWITCH. | 00001E40: 20 20 20 20 42 4E 45 20 4E 4F 57 52 41 50 20 20 | BNE NOWRAP | 00001E50: 20 3B 49 53 20 41 43 54 49 56 45 0D 20 20 20 20 | ;IS ACTIVE. | 00001E60: 20 20 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 | LDA #$FF. | 00001E70: 20 20 20 20 20 20 20 53 54 41 20 57 56 53 50 45 | STA WVSPE| 00001E80: 45 44 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |ED1,X. L| 00001E90: 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 |DA #$00. | 00001EA0: 20 53 54 41 20 57 41 56 45 2C 58 0D 4E 4F 57 52 | STA WAVE,X.NOWR| 00001EB0: 41 50 20 20 20 4A 4D 50 20 4E 45 57 33 0D 53 43 |AP JMP NEW3.SC| 00001EC0: 4F 4D 31 20 20 20 20 43 4D 50 20 23 24 46 39 0D |OM1 CMP #$F9.| 00001ED0: 20 20 20 20 20 20 20 20 20 42 43 53 20 53 43 4F | BCS SCO| 00001EE0: 4D 31 41 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |M1A. JMP| 00001EF0: 20 53 43 4F 4D 37 0D 53 43 4F 4D 31 41 20 20 20 | SCOM7.SCOM1A | 00001F00: 43 4D 50 20 23 24 46 45 20 20 20 20 20 3B 2D 2D |CMP #$FE ;--| 00001F10: 2D 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 |-. BNE S| 00001F20: 43 4F 4D 32 0D 4E 4F 54 45 33 20 20 20 20 49 4E |COM2.NOTE3 IN| 00001F30: 59 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 |Y. TYA. | 00001F40: 20 20 20 20 20 20 20 20 53 54 41 20 53 45 43 50 | STA SECP| 00001F50: 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |OS,X. LD| 00001F60: 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 |A #1. ST| 00001F70: 41 20 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 |A CONT,X. | 00001F80: 20 20 4A 4D 50 20 4E 4F 54 45 32 0D 53 43 4F 4D | JMP NOTE2.SCOM| 00001F90: 32 20 20 20 20 43 4D 50 20 23 24 46 44 20 20 20 |2 CMP #$FD | 00001FA0: 20 20 3B 44 55 52 2E 58 58 0D 20 20 20 20 20 20 | ;DUR.XX. | 00001FB0: 20 20 20 42 4E 45 20 53 43 4F 4D 33 0D 20 20 20 | BNE SCOM3. | 00001FC0: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00001FD0: 20 20 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 | LDA ($F8),Y. | 00001FE0: 20 20 20 20 20 20 20 20 53 54 41 20 44 55 52 2C | STA DUR,| 00001FF0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |X. STA D| 00002000: 55 52 41 54 2C 58 0D 44 41 5A 55 34 20 20 20 20 |URAT,X.DAZU4 | 00002010: 49 4E 59 0D 20 20 20 20 20 20 20 20 20 54 59 41 |INY. TYA| 00002020: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 45 |. STA SE| 00002030: 43 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 20 |CPOS,X. | 00002040: 4A 4D 50 20 52 45 41 44 33 2B 33 0D 53 43 4F 4D |JMP READ3+3.SCOM| 00002050: 33 20 20 20 20 43 4D 50 20 23 24 46 43 20 20 20 |3 CMP #$FC | 00002060: 20 20 3B 53 4E 44 2E 58 58 0D 20 20 20 20 20 20 | ;SND.XX. | 00002070: 20 20 20 42 4E 45 20 53 43 4F 4D 34 0D 20 20 20 | BNE SCOM4. | 00002080: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00002090: 20 20 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 | LDA ($F8),Y. | 000020A0: 20 20 20 20 20 20 20 20 53 54 41 20 53 4E 44 2C | STA SND,| 000020B0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 |X. STA S| 000020C0: 4E 44 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 4A |NDN,X. J| 000020D0: 4D 50 20 44 41 5A 55 34 0D 53 43 4F 4D 34 20 20 |MP DAZU4.SCOM4 | 000020E0: 20 20 43 4D 50 20 23 24 46 42 20 20 20 20 20 3B | CMP #$FB ;| 000020F0: 47 41 54 45 0D 20 20 20 20 20 20 20 20 20 42 4E |GATE. BN| 00002100: 45 20 53 43 4F 4D 35 0D 20 20 20 20 20 20 20 20 |E SCOM5. | 00002110: 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 | LDA #1. | 00002120: 20 45 4F 52 20 41 4E 44 4F 52 2C 58 0D 20 20 20 | EOR ANDOR,X. | 00002130: 20 20 20 20 20 20 53 54 41 20 41 4E 44 4F 52 2C | STA ANDOR,| 00002140: 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E |X. JMP N| 00002150: 4F 54 45 33 0D 0D 0D 0D 53 43 4F 4D 35 20 20 20 |OTE3....SCOM5 | 00002160: 20 43 4D 50 20 23 24 46 41 20 20 20 20 20 3B 53 | CMP #$FA ;S| 00002170: 57 49 54 43 48 0D 20 20 20 20 20 20 20 20 20 42 |WITCH. B| 00002180: 4E 45 20 53 43 4F 4D 36 0D 20 20 20 20 20 20 20 |NE SCOM6. | 00002190: 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 | LDA #1. | 000021A0: 20 20 45 4F 52 20 53 57 49 54 43 48 2C 58 0D 20 | EOR SWITCH,X. | 000021B0: 20 20 20 20 20 20 20 20 53 54 41 20 53 57 49 54 | STA SWIT| 000021C0: 43 48 2C 58 0D 4E 4F 46 58 20 20 20 20 20 49 4E |CH,X.NOFX IN| 000021D0: 43 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 20 20 |C SECPOS,X. | 000021E0: 20 20 20 20 4A 4D 50 20 52 45 41 44 33 0D 0D 53 | JMP READ3..S| 000021F0: 43 4F 4D 36 20 20 20 20 43 4D 50 20 23 24 46 39 |COM6 CMP #$F9| 00002200: 20 20 20 20 20 3B 43 55 54 0D 20 20 20 20 20 20 | ;CUT. | 00002210: 20 20 20 42 4E 45 20 53 43 4F 4D 37 0D 20 20 20 | BNE SCOM7. | 00002220: 20 20 20 20 20 20 4C 44 41 20 44 55 52 2C 58 0D | LDA DUR,X.| 00002230: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 55 52 | STA DUR| 00002240: 41 54 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |AT,X. LD| 00002250: 41 20 23 38 20 20 20 20 20 20 20 3B 52 45 53 45 |A #8 ;RESE| 00002260: 54 53 20 56 4F 49 43 45 0D 20 20 20 20 20 20 20 |TS VOICE. | 00002270: 20 20 53 54 41 20 24 44 34 30 34 2C 58 20 20 3B | STA $D404,X ;| 00002280: 2B 20 56 4F 49 43 45 20 52 4F 55 54 49 4E 45 53 |+ VOICE ROUTINES| 00002290: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 57 41 |. STA WA| 000022A0: 56 45 2C 58 20 20 3B 54 4F 20 53 41 56 45 20 52 |VE,X ;TO SAVE R| 000022B0: 41 53 54 45 52 54 49 4D 45 0D 20 20 20 20 20 20 |ASTERTIME. | 000022C0: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 000022D0: 20 20 20 20 20 53 54 41 20 24 44 34 30 35 2C 58 | STA $D405,X| 000022E0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000022F0: 34 30 36 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |406,X. S| 00002300: 54 41 20 41 44 2C 58 0D 20 20 20 20 20 20 20 20 |TA AD,X. | 00002310: 20 53 54 41 20 53 52 2C 58 0D 20 20 20 20 20 20 | STA SR,X. | 00002320: 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 | LDA #$FF. | 00002330: 20 20 20 20 20 53 54 41 20 57 56 53 50 45 45 44 | STA WVSPEED| 00002340: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |1,X. LDA| 00002350: 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #1. STA| 00002360: 20 43 55 54 2C 58 0D 20 20 20 20 20 20 20 20 20 | CUT,X. | 00002370: 49 4E 43 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 |INC SECPOS,X. | 00002380: 20 20 20 20 20 20 4A 4D 50 20 48 52 43 48 45 43 | JMP HRCHEC| 00002390: 4B 0D 53 43 4F 4D 37 20 20 20 20 41 4E 44 20 23 |K.SCOM7 AND #| 000023A0: 24 33 46 20 20 20 20 3B 53 55 50 45 52 43 4F 4D |$3F ;SUPERCOM| 000023B0: 4D 41 4E 44 53 0D 20 20 20 20 20 20 20 20 20 54 |MANDS. T| 000023C0: 41 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |AY. LDA | 000023D0: 43 4F 4D 4D 54 41 42 31 2C 59 0D 20 20 20 20 20 |COMMTAB1,Y. | 000023E0: 20 20 20 20 53 54 41 20 45 46 46 48 49 2C 58 0D | STA EFFHI,X.| 000023F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4D | LDA COM| 00002400: 4D 54 41 42 32 2C 59 0D 20 20 20 20 20 20 20 20 |MTAB2,Y. | 00002410: 20 53 54 41 20 45 46 46 4C 4F 2C 58 0D 20 20 20 | STA EFFLO,X. | 00002420: 20 20 20 20 20 20 4C 44 41 20 43 4F 4D 4D 54 41 | LDA COMMTA| 00002430: 42 2C 59 0D 20 20 20 20 20 20 20 20 20 41 53 4C |B,Y. ASL| 00002440: 20 41 0D 20 20 20 20 20 20 20 20 20 54 41 59 0D | A. TAY.| 00002450: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4D | LDA COM| 00002460: 4D 54 41 42 33 2C 59 0D 20 20 20 20 20 20 20 20 |MTAB3,Y. | 00002470: 20 53 54 41 20 4A 55 4D 50 2B 31 0D 20 20 20 20 | STA JUMP+1. | 00002480: 20 20 20 20 20 4C 44 41 20 43 4F 4D 4D 54 41 42 | LDA COMMTAB| 00002490: 33 2B 31 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |3+1,Y. S| 000024A0: 54 41 20 4A 55 4D 50 2B 32 0D 0D 4A 55 4D 50 20 |TA JUMP+2..JUMP | 000024B0: 20 20 20 20 4A 4D 50 20 52 45 41 44 33 0D 0D 0D | JMP READ3...| 000024C0: 4E 4F 54 45 20 20 20 20 20 43 4D 50 20 23 24 36 |NOTE CMP #$6| 000024D0: 30 20 20 20 3B 43 4F 55 4E 54 20 4E 4F 54 45 56 |0 ;COUNT NOTEV| 000024E0: 41 4C 55 45 0D 20 20 20 20 20 20 20 20 20 42 43 |ALUE. BC| 000024F0: 43 20 4E 4F 52 4D 41 4C 0D 20 20 20 20 20 20 20 |C NORMAL. | 00002500: 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 20 53 | SEC. S| 00002510: 42 43 20 23 24 36 30 0D 4E 4F 52 4D 41 4C 20 20 |BC #$60.NORMAL | 00002520: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 00002530: 43 20 54 52 50 4F 53 45 2C 58 0D 20 20 20 20 20 |C TRPOSE,X. | 00002540: 20 20 20 20 53 54 41 20 4E 4F 54 45 56 2C 58 20 | STA NOTEV,X | 00002550: 3B 4E 45 57 20 4E 4F 54 45 0D 20 20 20 20 20 20 |;NEW NOTE. | 00002560: 20 20 20 53 54 41 20 4E 4F 54 45 4F 4B 2C 58 0D | STA NOTEOK,X.| 00002570: 20 20 20 20 20 20 20 20 20 49 4E 43 20 53 45 43 | INC SEC| 00002580: 50 4F 53 2C 58 0D 4E 4F 54 45 32 0D 0D 20 20 20 |POS,X.NOTE2.. | 00002590: 20 20 20 20 20 20 4C 44 41 20 44 55 52 2C 58 20 | LDA DUR,X | 000025A0: 20 3B 50 52 45 56 49 4F 55 53 20 4E 4F 54 45 0D | ;PREVIOUS NOTE.| 000025B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 55 52 | STA DUR| 000025C0: 41 54 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |AT,X. LD| 000025D0: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST| 000025E0: 41 20 43 55 54 2C 58 0D 20 20 20 20 20 20 20 20 |A CUT,X. | 000025F0: 20 4C 44 41 20 53 57 49 54 43 48 2C 58 0D 20 20 | LDA SWITCH,X. | 00002600: 20 20 20 20 20 20 20 42 4E 45 20 53 57 4F 4E 0D | BNE SWON.| 00002610: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4E | LDA CON| 00002620: 54 2C 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |T,X. BNE| 00002630: 20 53 57 4F 4E 0D 20 20 20 20 20 20 20 20 20 4C | SWON. L| 00002640: 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |DA #1. S| 00002650: 54 41 20 41 4E 44 4F 52 2C 58 0D 20 20 20 20 20 |TA ANDOR,X. | 00002660: 20 20 20 20 4C 44 59 20 53 4E 44 2C 58 0D 20 20 | LDY SND,X. | 00002670: 20 20 20 20 20 20 3B 4C 44 41 20 48 41 52 44 4F | ;LDA HARDO| 00002680: 4E 2C 58 0D 20 20 20 20 20 20 20 20 3B 42 4E 45 |N,X. ;BNE| 00002690: 20 4E 4F 43 4F 4E 54 49 0D 20 20 20 20 20 20 20 | NOCONTI. | 000026A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 48 | ;TH| 000026B0: 49 53 20 46 52 41 4D 45 0D 20 20 20 20 20 20 20 |IS FRAME. | 000026C0: 20 20 4C 44 41 20 41 44 54 41 42 2C 59 3B 53 45 | LDA ADTAB,Y;SE| 000026D0: 54 53 20 54 48 45 20 4E 45 57 0D 20 20 20 20 20 |TS THE NEW. | 000026E0: 20 20 20 20 53 54 41 20 41 44 2C 58 20 20 20 3B | STA AD,X ;| 000026F0: 41 44 53 52 2D 53 45 54 54 49 4E 47 53 0D 20 20 |ADSR-SETTINGS. | 00002700: 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 35 | STA $D405| 00002710: 2C 58 3B 3D 20 42 45 47 49 4E 4E 49 4E 47 20 4F |,X;= BEGINNING O| 00002720: 46 20 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |F A. LDA| 00002730: 20 53 56 4F 4C 2C 58 0D 20 20 20 20 20 20 20 20 | SVOL,X. | 00002740: 20 42 45 51 20 53 53 31 0D 20 20 20 20 20 20 20 | BEQ SS1. | 00002750: 20 20 4C 44 41 20 53 52 2C 58 0D 20 20 20 20 20 | LDA SR,X. | 00002760: 20 20 20 20 41 4E 44 20 23 24 30 46 0D 20 20 20 | AND #$0F. | 00002770: 20 20 20 20 20 20 4F 52 41 20 53 56 4F 4C 2C 58 | ORA SVOL,X| 00002780: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 53 |. BNE SS| 00002790: 32 0D 53 53 31 20 20 20 20 20 20 4C 44 41 20 53 |2.SS1 LDA S| 000027A0: 52 54 41 42 2C 59 3B 4E 45 57 20 4E 4F 54 45 20 |RTAB,Y;NEW NOTE | 000027B0: 3D 20 4D 41 58 2E 0D 53 53 32 20 20 20 20 20 20 |= MAX..SS2 | 000027C0: 53 54 41 20 53 52 2C 58 20 20 20 3B 52 41 53 54 |STA SR,X ;RAST| 000027D0: 45 52 54 49 4D 45 0D 20 20 20 20 20 20 20 20 20 |ERTIME. | 000027E0: 53 54 41 20 24 44 34 30 36 2C 58 0D 20 20 20 20 |STA $D406,X. | 000027F0: 20 20 20 20 20 4A 4D 50 20 4E 4F 43 4F 4E 54 49 | JMP NOCONTI| 00002800: 0D 53 53 20 20 20 20 20 20 20 4C 44 41 20 43 4F |.SS LDA CO| 00002810: 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 |NT,X. BE| 00002820: 51 20 4E 4F 43 4F 4E 54 49 0D 0D 53 57 4F 4E 20 |Q NOCONTI..SWON | 00002830: 20 20 20 20 4A 53 52 20 50 4C 41 59 33 0D 20 20 | JSR PLAY3. | 00002840: 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F 43 4F 4E | JMP NOCON| 00002850: 54 0D 4E 4F 43 4F 4E 54 49 20 20 4C 44 41 20 57 |T.NOCONTI LDA W| 00002860: 41 56 50 54 41 42 2C 59 0D 20 20 20 20 20 20 20 |AVPTAB,Y. | 00002870: 20 20 53 54 41 20 57 41 56 45 50 4F 53 2C 58 0D | STA WAVEPOS,X.| 00002880: 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 | TYA. | 00002890: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 000028A0: 20 20 20 4C 44 59 20 57 41 56 45 50 4F 53 2C 58 | LDY WAVEPOS,X| 000028B0: 20 3B 53 45 54 53 20 57 41 56 45 0D 20 20 20 20 | ;SETS WAVE. | 000028C0: 20 20 20 20 20 4C 44 41 20 57 41 56 45 54 41 42 | LDA WAVETAB| 000028D0: 2C 59 20 3B 28 46 49 52 53 54 20 52 4F 57 29 0D |,Y ;(FIRST ROW).| 000028E0: 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 | PHA. | 000028F0: 20 20 20 20 20 20 41 4E 44 20 23 24 46 37 0D 20 | AND #$F7. | 00002900: 20 20 20 20 20 20 20 20 53 54 41 20 57 41 56 45 | STA WAVE| 00002910: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00002920: 24 44 34 30 34 2C 58 20 20 20 3B 43 48 45 43 4B |$D404,X ;CHECK| 00002930: 20 46 4F 52 0D 20 20 20 20 20 20 20 20 20 50 4C | FOR. PL| 00002940: 41 20 20 20 20 20 20 20 20 20 20 20 3B 44 52 55 |A ;DRU| 00002950: 4D 2D 4D 4F 44 45 0D 20 20 20 20 20 20 20 20 20 |M-MODE. | 00002960: 41 4E 44 20 23 24 30 38 0D 20 20 20 20 20 20 20 |AND #$08. | 00002970: 20 20 53 54 41 20 44 52 55 4D 2C 58 0D 20 20 20 | STA DRUM,X. | 00002980: 20 20 20 20 20 20 42 45 51 20 4E 4F 44 52 55 4D | BEQ NODRUM| 00002990: 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 |2. LDA F| 000029A0: 52 45 51 54 41 42 2C 59 0D 20 20 20 20 20 20 20 |REQTAB,Y. | 000029B0: 20 20 53 54 41 20 24 44 34 30 31 2C 58 0D 20 20 | STA $D401,X. | 000029C0: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 000029D0: 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 30 | STA $D400| 000029E0: 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |,X. JMP | 000029F0: 4E 4F 4E 4F 4E 0D 4E 4F 44 52 55 4D 32 20 20 4C |NONON.NODRUM2 L| 00002A00: 44 41 20 46 52 45 51 54 41 42 2C 59 0D 20 20 20 |DA FREQTAB,Y. | 00002A10: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00002A20: 20 20 20 41 44 43 20 4E 4F 54 45 56 2C 58 0D 20 | ADC NOTEV,X. | 00002A30: 20 20 20 20 20 20 20 20 53 54 41 20 4E 4F 54 45 | STA NOTE| 00002A40: 4F 4B 2C 58 0D 20 20 20 20 20 20 20 20 20 54 41 |OK,X. TA| 00002A50: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 |Y. LDA F| 00002A60: 52 51 4C 4F 2C 59 0D 20 20 20 20 20 20 20 20 20 |RQLO,Y. | 00002A70: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00002A80: 20 46 49 4E 45 2C 58 0D 20 20 20 20 20 20 20 20 | FINE,X. | 00002A90: 20 53 54 41 20 24 44 34 30 30 2C 58 0D 20 20 20 | STA $D400,X. | 00002AA0: 20 20 20 20 20 20 4C 44 41 20 46 52 51 48 49 2C | LDA FRQHI,| 00002AB0: 59 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |Y. ADC #| 00002AC0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00002AD0: 44 34 30 31 2C 58 0D 4E 4F 4E 4F 4E 20 20 20 20 |D401,X.NONON | 00002AE0: 50 4C 41 0D 20 20 20 20 20 20 20 20 20 54 41 59 |PLA. TAY| 00002AF0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 45 46 |. LDA EF| 00002B00: 46 54 41 42 2C 59 0D 20 20 20 20 20 20 20 20 20 |FTAB,Y. | 00002B10: 41 4E 44 20 23 24 30 46 0D 20 20 20 20 20 20 20 |AND #$0F. | 00002B20: 20 20 53 54 41 20 57 56 53 50 45 45 44 2C 58 0D | STA WVSPEED,X.| 00002B30: 20 20 20 20 20 20 20 20 20 53 54 41 20 57 56 53 | STA WVS| 00002B40: 50 45 45 44 31 2C 58 0D 20 20 20 20 20 20 20 20 |PEED1,X. | 00002B50: 20 49 4E 43 20 57 41 56 45 50 4F 53 2C 58 0D 20 | INC WAVEPOS,X. | 00002B60: 20 20 20 20 20 20 20 20 4C 44 41 20 50 43 4F 4E | LDA PCON| 00002B70: 54 2C 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |T,X. BNE| 00002B80: 20 46 49 4C 4C 4C 0D 20 20 20 20 20 20 20 20 20 | FILLL. | 00002B90: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDA #0. | 00002BA0: 53 54 41 20 4E 4F 50 55 2C 58 0D 3B 2D 2D 2D 2D |STA NOPU,X.;----| 00002BB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002BC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002BD0: 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |---. LDA| 00002BE0: 20 50 55 4C 50 54 41 42 2C 59 20 20 3B 50 55 4C | PULPTAB,Y ;PUL| 00002BF0: 53 45 2D 52 4F 55 54 49 4E 45 0D 20 20 20 20 20 |SE-ROUTINE. | 00002C00: 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 | TAY | 00002C10: 20 20 20 3B 49 4E 49 54 0D 20 20 20 20 20 20 20 | ;INIT. | 00002C20: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 00002C30: 44 43 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |DC #1. S| 00002C40: 54 41 20 50 55 50 4F 53 2C 58 0D 20 20 20 20 20 |TA PUPOS,X. | 00002C50: 20 20 20 20 4C 44 41 20 50 55 4C 53 54 41 42 31 | LDA PULSTAB1| 00002C60: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00002C70: 50 55 4C 53 48 49 2C 58 0D 20 20 20 20 20 20 20 |PULSHI,X. | 00002C80: 20 20 53 54 41 20 24 44 34 30 33 2C 58 0D 20 20 | STA $D403,X. | 00002C90: 20 20 20 20 20 20 20 4C 44 41 20 50 55 4C 53 54 | LDA PULST| 00002CA0: 41 42 32 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |AB2,Y. S| 00002CB0: 54 41 20 50 55 4C 53 4C 4F 2C 58 0D 20 20 20 20 |TA PULSLO,X. | 00002CC0: 20 20 20 20 20 53 54 41 20 24 44 34 30 32 2C 58 | STA $D402,X| 00002CD0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 |. LDA #0| 00002CE0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 50 55 |. STA PU| 00002CF0: 4C 53 46 52 4D 2C 58 0D 20 20 20 20 20 20 20 20 |LSFRM,X. | 00002D00: 20 4C 44 59 20 53 4E 44 2C 58 0D 46 49 4C 4C 4C | LDY SND,X.FILLL| 00002D10: 20 20 20 20 4C 44 41 20 46 49 4C 50 54 41 42 2C | LDA FILPTAB,| 00002D20: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |Y. STA F| 00002D30: 49 4C 50 4F 53 2C 58 0D 4E 4F 43 4F 4E 54 20 20 |ILPOS,X.NOCONT | 00002D40: 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 | LDA #0. | 00002D50: 20 53 54 41 20 43 4F 4E 54 2C 58 0D 20 20 20 20 | STA CONT,X. | 00002D60: 20 20 20 20 20 4C 44 41 20 48 41 52 44 4F 4E 2C | LDA HARDON,| 00002D70: 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 48 |X. BEQ H| 00002D80: 52 43 48 45 43 4B 0D 0D 20 20 20 20 20 20 20 20 |RCHECK.. | 00002D90: 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 | LDA #1. | 00002DA0: 20 53 54 41 20 41 4E 44 4F 52 2C 58 0D 0D 48 52 | STA ANDOR,X..HR| 00002DB0: 43 48 45 43 4B 20 20 4C 44 59 20 53 45 43 50 4F |CHECK LDY SECPO| 00002DC0: 53 2C 58 20 20 3B 43 48 45 43 4B 49 4E 47 20 4E |S,X ;CHECKING N| 00002DD0: 45 58 54 0D 48 52 43 48 45 43 4B 32 20 4C 44 41 |EXT.HRCHECK2 LDA| 00002DE0: 20 28 24 46 38 29 2C 59 20 20 20 3B 53 45 43 54 | ($F8),Y ;SECT| 00002DF0: 4F 52 44 41 54 41 20 46 4F 52 0D 20 20 20 20 20 |ORDATA FOR. | 00002E00: 20 20 20 20 43 4D 50 20 23 24 46 46 20 20 20 20 | CMP #$FF | 00002E10: 20 20 3B 48 41 52 44 52 45 53 54 41 52 54 20 4F | ;HARDRESTART O| 00002E20: 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N. | 00002E30: 20 20 20 20 20 20 20 20 20 3B 4F 52 20 4F 46 46 | ;OR OFF| 00002E40: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4F 4E |. BEQ ON| 00002E50: 59 45 53 20 20 3B 55 53 45 52 20 43 41 4E 20 4D |YES ;USER CAN M| 00002E60: 41 4E 49 50 55 4C 41 54 45 0D 4E 4F 45 4E 44 20 |ANIPULATE.NOEND | 00002E70: 20 20 20 43 4D 50 20 23 24 36 30 20 20 20 3B 54 | CMP #$60 ;T| 00002E80: 48 49 53 20 28 4F 4E 59 45 53 2F 4F 4E 4E 4F 29 |HIS (ONYES/ONNO)| 00002E90: 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 4F 4E |. BCC ON| 00002EA0: 59 45 53 20 20 3B 28 4E 45 57 20 53 45 43 54 4F |YES ;(NEW SECTO| 00002EB0: 52 20 48 52 29 0D 20 20 20 20 20 20 20 20 20 43 |R HR). C| 00002EC0: 4D 50 20 23 24 43 30 0D 20 20 20 20 20 20 20 20 |MP #$C0. | 00002ED0: 20 42 43 43 20 4F 4E 4E 4F 0D 20 20 20 20 20 20 | BCC ONNO. | 00002EE0: 20 20 20 43 4D 50 20 23 24 46 45 0D 20 20 20 20 | CMP #$FE. | 00002EF0: 20 20 20 20 20 42 45 51 20 4F 4E 4E 4F 0D 20 20 | BEQ ONNO. | 00002F00: 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 42 0D | CMP #$FB.| 00002F10: 20 20 20 20 20 20 20 20 20 42 45 51 20 4F 4E 4E | BEQ ONN| 00002F20: 4F 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |O. CMP #| 00002F30: 24 46 39 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$F9. BEQ| 00002F40: 20 4F 4E 4E 4F 0D 20 20 20 20 20 20 20 20 20 43 | ONNO. C| 00002F50: 4D 50 20 23 24 46 43 0D 20 20 20 20 20 20 20 20 |MP #$FC. | 00002F60: 20 42 4E 45 20 53 57 49 31 0D 20 20 20 20 20 20 | BNE SWI1. | 00002F70: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 | INY. | 00002F80: 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 20 20 20 |LDA ($F8),Y. | 00002F90: 20 20 20 20 20 53 54 41 20 53 4E 44 4E 2C 58 0D | STA SNDN,X.| 00002FA0: 20 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 | DEY. | 00002FB0: 20 20 20 20 20 20 4C 44 41 20 23 24 46 43 0D 53 | LDA #$FC.S| 00002FC0: 57 49 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |WI1. CMP| 00002FD0: 20 23 24 46 41 0D 20 20 20 20 20 20 20 20 20 42 | #$FA. B| 00002FE0: 4E 45 20 53 57 49 0D 20 20 20 20 20 20 20 20 20 |NE SWI. | 00002FF0: 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 |LDA #1. | 00003000: 45 4F 52 20 53 57 49 54 43 48 2C 58 0D 20 20 20 |EOR SWITCH,X. | 00003010: 20 20 20 20 20 20 53 54 41 20 53 57 49 54 43 48 | STA SWITCH| 00003020: 32 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |2,X. JMP| 00003030: 20 50 4C 55 53 31 0D 0D 0D 53 57 49 20 20 20 20 | PLUS1...SWI | 00003040: 20 20 43 4D 50 20 23 24 46 43 0D 20 20 20 20 20 | CMP #$FC. | 00003050: 20 20 20 20 42 43 43 20 50 4C 55 53 31 0D 20 20 | BCC PLUS1. | 00003060: 20 20 20 20 20 20 20 49 4E 59 0D 50 4C 55 53 31 | INY.PLUS1| 00003070: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00003080: 20 42 4E 45 20 48 52 43 48 45 43 4B 32 0D 0D 4F | BNE HRCHECK2..O| 00003090: 4E 4E 4F 20 20 20 20 20 4C 44 41 20 23 30 0D 20 |NNO LDA #0. | 000030A0: 20 20 20 20 20 20 20 20 42 45 51 20 48 52 53 45 | BEQ HRSE| 000030B0: 54 0D 4F 4E 59 45 53 20 20 20 20 4C 44 41 20 23 |T.ONYES LDA #| 000030C0: 31 0D 48 52 53 45 54 20 20 20 20 53 54 41 20 48 |1.HRSET STA H| 000030D0: 41 52 44 4F 4E 2C 58 0D 20 20 20 20 20 20 20 20 |ARDON,X. | 000030E0: 20 4C 44 41 20 53 57 49 54 43 48 32 2C 58 0D 20 | LDA SWITCH2,X. | 000030F0: 20 20 20 20 20 20 20 20 42 45 51 20 4F 4E 44 0D | BEQ OND.| 00003100: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00003110: 20 20 20 20 20 20 20 20 20 53 54 41 20 48 41 52 | STA HAR| 00003120: 44 4F 4E 2C 58 0D 4F 4E 44 0D 20 20 20 20 20 20 |DON,X.OND. | 00003130: 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D | RTS.;--------| 00003140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00003160: 3B 48 41 52 44 2D 52 45 53 54 41 52 54 2D 52 4F |;HARD-RESTART-RO| 00003170: 55 54 49 4E 45 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |UTINE.;---------| 00003180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 56 |--------------.V| 000031A0: 4F 49 43 45 33 20 20 20 4C 44 41 20 53 50 45 45 |OICE3 LDA SPEE| 000031B0: 44 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E |D. BNE N| 000031C0: 4F 53 50 45 45 44 30 0D 20 20 20 20 20 20 20 20 |OSPEED0. | 000031D0: 20 4C 44 41 20 44 55 52 41 54 2C 58 0D 20 20 20 | LDA DURAT,X. | 000031E0: 20 20 20 20 20 20 43 4D 50 20 23 24 30 34 0D 20 | CMP #$04. | 000031F0: 20 20 20 20 20 20 20 20 42 43 53 20 4E 49 43 48 | BCS NICH| 00003200: 54 53 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |TS. CMP | 00003210: 23 24 30 31 0D 20 20 20 20 20 20 20 20 20 42 45 |#$01. BE| 00003220: 51 20 46 52 41 4D 45 31 0D 20 20 20 20 20 20 20 |Q FRAME1. | 00003230: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 52 | ;FR| 00003240: 41 4D 45 20 32 2B 31 0D 46 52 41 4D 45 32 20 20 |AME 2+1.FRAME2 | 00003250: 20 4C 44 41 20 48 41 52 44 4F 4E 2C 58 0D 20 20 | LDA HARDON,X. | 00003260: 20 20 20 20 20 20 20 42 45 51 20 4E 49 43 48 54 | BEQ NICHT| 00003270: 53 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 |S. JSR P| 00003280: 4C 41 59 33 0D 20 20 20 20 20 20 20 20 20 4C 44 |LAY3. LD| 00003290: 41 20 48 41 52 44 56 41 4C 0D 20 20 20 20 20 20 |A HARDVAL. | 000032A0: 20 20 20 42 50 4C 20 48 52 53 45 54 54 0D 20 20 | BPL HRSETT. | 000032B0: 20 20 20 20 20 20 20 4C 44 41 20 41 44 2C 58 0D | LDA AD,X.| 000032C0: 48 52 53 45 54 54 20 20 20 53 54 41 20 24 44 34 |HRSETT STA $D4| 000032D0: 30 35 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |05,X. LD| 000032E0: 41 20 53 52 2C 58 0D 20 20 20 20 20 20 20 20 20 |A SR,X. | 000032F0: 41 4E 44 20 23 24 46 30 0D 20 20 20 20 20 20 20 |AND #$F0. | 00003300: 20 20 53 54 41 20 24 44 34 30 36 2C 58 0D 20 20 | STA $D406,X. | 00003310: 20 20 20 20 20 20 20 4C 44 41 20 57 41 56 45 2C | LDA WAVE,| 00003320: 58 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 |X. AND #| 00003330: 24 46 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$FE. STA| 00003340: 20 24 44 34 30 34 2C 58 0D 0D 0D 20 20 20 20 20 | $D404,X... | 00003350: 20 20 20 20 52 54 53 0D 46 52 41 4D 45 31 20 20 | RTS.FRAME1 | 00003360: 20 4C 44 41 20 48 41 52 44 4F 4E 2C 58 0D 20 20 | LDA HARDON,X. | 00003370: 20 20 20 20 20 20 20 42 45 51 20 4E 49 43 48 54 | BEQ NICHT| 00003380: 53 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 53 |S. LDY S| 00003390: 4E 44 4E 2C 58 20 20 3B 54 48 49 53 20 46 52 41 |NDN,X ;THIS FRA| 000033A0: 4D 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ME. LDA | 000033B0: 41 44 54 41 42 2C 59 3B 53 45 54 53 20 54 48 45 |ADTAB,Y;SETS THE| 000033C0: 20 4E 45 57 0D 20 20 20 20 20 20 20 20 20 53 54 | NEW. ST| 000033D0: 41 20 41 44 2C 58 20 20 20 3B 41 44 53 52 2D 53 |A AD,X ;ADSR-S| 000033E0: 45 54 54 49 4E 47 53 0D 20 20 20 20 20 20 20 20 |ETTINGS. | 000033F0: 20 53 54 41 20 24 44 34 30 35 2C 58 3B 3D 20 42 | STA $D405,X;= B| 00003400: 45 47 49 4E 4E 49 4E 47 20 4F 46 20 41 0D 20 20 |EGINNING OF A. | 00003410: 20 20 20 20 20 20 20 4C 44 41 20 53 52 54 41 42 | LDA SRTAB| 00003420: 2C 59 3B 4E 45 57 20 4E 4F 54 45 20 3D 20 4D 41 |,Y;NEW NOTE = MA| 00003430: 58 2E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |X.. STA | 00003440: 53 52 2C 58 20 20 20 3B 52 41 53 54 45 52 54 49 |SR,X ;RASTERTI| 00003450: 4D 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |ME. STA | 00003460: 24 44 34 30 36 2C 58 0D 20 20 20 20 20 20 20 20 |$D406,X. | 00003470: 20 4C 44 41 20 23 24 30 39 0D 20 20 20 20 20 20 | LDA #$09. | 00003480: 20 20 20 53 54 41 20 24 44 34 30 34 2C 58 0D 0D | STA $D404,X..| 00003490: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 4E |. RTS..N| 000034A0: 4F 53 50 45 45 44 30 0D 20 20 20 20 20 20 20 20 |OSPEED0. | 000034B0: 20 43 4D 50 20 23 31 0D 20 20 20 20 20 20 20 20 | CMP #1. | 000034C0: 20 42 4E 45 20 53 50 32 0D 53 50 50 20 20 20 20 | BNE SP2.SPP | 000034D0: 20 20 4C 44 41 20 53 50 45 45 44 31 0D 20 20 20 | LDA SPEED1. | 000034E0: 20 20 20 20 20 20 42 45 51 20 53 50 31 0D 20 20 | BEQ SP1. | 000034F0: 20 20 20 20 20 20 20 4C 44 41 20 44 55 52 41 54 | LDA DURAT| 00003500: 2C 58 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |,X. CMP | 00003510: 23 31 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |#1. BEQ | 00003520: 46 52 41 4D 45 32 0D 20 20 20 20 20 20 20 20 20 |FRAME2. | 00003530: 4A 4D 50 20 4E 49 43 48 54 53 0D 53 50 31 0D 20 |JMP NICHTS.SP1. | 00003540: 20 20 20 20 20 20 20 20 4C 44 41 20 44 55 52 41 | LDA DURA| 00003550: 54 2C 58 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |T,X. CMP| 00003560: 20 23 33 0D 20 20 20 20 20 20 20 20 20 42 43 53 | #3. BCS| 00003570: 20 4E 49 43 48 54 53 0D 20 20 20 20 20 20 20 20 | NICHTS. | 00003580: 20 43 4D 50 20 23 31 0D 20 20 20 20 20 20 20 20 | CMP #1. | 00003590: 20 42 45 51 20 46 52 41 4D 45 31 0D 20 20 20 20 | BEQ FRAME1. | 000035A0: 20 20 20 20 20 4A 4D 50 20 46 52 41 4D 45 32 0D | JMP FRAME2.| 000035B0: 0D 53 50 32 20 20 20 20 20 20 4C 44 41 20 44 55 |.SP2 LDA DU| 000035C0: 52 41 54 2C 58 0D 20 20 20 20 20 20 20 20 20 43 |RAT,X. C| 000035D0: 4D 50 20 23 24 30 31 0D 20 20 20 20 20 20 20 20 |MP #$01. | 000035E0: 20 42 4E 45 20 4E 49 43 48 54 53 0D 20 20 20 20 | BNE NICHTS. | 000035F0: 20 20 20 20 20 4C 44 41 20 53 50 45 45 44 31 0D | LDA SPEED1.| 00003600: 20 20 20 20 20 20 20 20 20 42 45 51 20 46 52 41 | BEQ FRA| 00003610: 4D 45 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |ME1. CMP| 00003620: 20 23 33 0D 20 20 20 20 20 20 20 20 20 42 43 43 | #3. BCC| 00003630: 20 46 52 41 4D 45 32 0D 4E 49 43 48 54 53 20 20 | FRAME2.NICHTS | 00003640: 20 4A 4D 50 20 50 4C 41 59 33 0D 3B 2D 2D 2D 2D | JMP PLAY3.;----| 00003650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003660: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003670: 2D 2D 2D 0D 3B 20 20 20 20 20 20 20 20 41 44 53 |---.; ADS| 00003680: 52 2D 52 4F 55 54 49 4E 45 53 0D 3B 2D 2D 2D 2D |R-ROUTINES.;----| 00003690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000036A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000036B0: 2D 2D 2D 0D 50 4C 41 59 32 20 20 20 20 4C 44 58 |---.PLAY2 LDX| 000036C0: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 4A | #$00. J| 000036D0: 53 52 20 50 4C 41 59 33 0D 20 20 20 20 20 20 20 |SR PLAY3. | 000036E0: 20 20 4C 44 58 20 23 37 0D 20 20 20 20 20 20 20 | LDX #7. | 000036F0: 20 20 4A 53 52 20 50 4C 41 59 33 0D 20 20 20 20 | JSR PLAY3. | 00003700: 20 20 20 20 20 4C 44 58 20 23 31 34 0D 3B 2D 2D | LDX #14.;--| 00003710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003730: 2D 2D 2D 2D 2D 0D 50 4C 41 59 33 0D 3B 2D 2D 2D |-----.PLAY3.;---| 00003740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003760: 2D 2D 2D 2D 0D 3B 57 41 56 45 2D 46 52 45 51 2D |----.;WAVE-FREQ-| 00003770: 54 41 42 4C 45 2D 48 41 4E 44 4C 49 4E 47 0D 3B |TABLE-HANDLING.;| 00003780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000037A0: 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 |-------. | 000037B0: 20 4C 44 41 20 43 55 54 2C 58 0D 20 20 20 20 20 | LDA CUT,X. | 000037C0: 20 20 20 20 42 45 51 20 54 4F 4E 0D 20 20 20 20 | BEQ TON. | 000037D0: 20 20 20 20 20 52 54 53 0D 54 4F 4E 0D 3B 2D 2D | RTS.TON.;--| 000037E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000037F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003800: 2D 2D 2D 2D 2D 0D 3B 56 49 42 2F 53 4C 49 44 45 |-----.;VIB/SLIDE| 00003810: 2F 45 54 43 2E 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |/ETC..;---------| 00003820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B |--------------.;| 00003840: 47 4C 49 44 45 0D 20 20 20 20 20 20 20 20 20 4C |GLIDE. L| 00003850: 44 41 20 47 4C 4C 2C 58 0D 20 20 20 20 20 20 20 |DA GLL,X. | 00003860: 20 20 42 4E 45 20 47 4C 59 20 20 20 20 20 20 3B | BNE GLY ;| 00003870: 43 48 45 43 4B 20 49 46 20 47 4C 49 44 45 0D 20 |CHECK IF GLIDE. | 00003880: 20 20 20 20 20 20 20 20 4C 44 41 20 47 4C 48 2C | LDA GLH,| 00003890: 58 20 20 20 20 3B 41 43 54 49 56 45 0D 20 20 20 |X ;ACTIVE. | 000038A0: 20 20 20 20 20 20 42 4E 45 20 47 4C 59 0D 20 20 | BNE GLY. | 000038B0: 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F 47 4C 49 | JMP NOGLI| 000038C0: 0D 47 4C 59 0D 20 20 20 20 20 20 20 20 20 4C 44 |.GLY. LD| 000038D0: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST| 000038E0: 41 20 56 53 50 45 45 44 2C 58 0D 20 20 20 20 20 |A VSPEED,X. | 000038F0: 20 20 20 20 53 54 41 20 56 49 4C 4F 2C 58 20 20 | STA VILO,X | 00003900: 20 20 3B 41 44 44 20 56 41 4C 55 45 53 0D 20 20 | ;ADD VALUES. | 00003910: 20 20 20 20 20 20 20 53 54 41 20 56 49 48 49 2C | STA VIHI,| 00003920: 58 20 20 20 20 3B 44 49 53 41 42 4C 45 20 56 49 |X ;DISABLE VI| 00003930: 42 52 2E 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |BR.. CLC| 00003940: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 47 4C |. LDA GL| 00003950: 49 44 45 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 |IDEL,X. | 00003960: 41 44 43 20 47 4C 4C 2C 58 0D 20 20 20 20 20 20 |ADC GLL,X. | 00003970: 20 20 20 53 54 41 20 47 4C 49 44 45 4C 2C 58 0D | STA GLIDEL,X.| 00003980: 20 20 20 20 20 20 20 20 20 4C 44 41 20 47 4C 49 | LDA GLI| 00003990: 44 45 48 2C 58 0D 20 20 20 20 20 20 20 20 20 41 |DEH,X. A| 000039A0: 44 43 20 47 4C 48 2C 58 0D 20 20 20 20 20 20 20 |DC GLH,X. | 000039B0: 20 20 53 54 41 20 47 4C 49 44 45 48 2C 58 0D 0D | STA GLIDEH,X..| 000039C0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 47 4C 48 | LDA GLH| 000039D0: 2C 58 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 |,X. BMI | 000039E0: 47 4C 55 50 31 0D 20 20 20 20 20 20 20 20 20 4C |GLUP1. L| 000039F0: 44 59 20 4E 4F 54 45 56 2C 58 20 20 20 3B 52 45 |DY NOTEV,X ;RE| 00003A00: 41 43 48 45 44 0D 20 20 20 20 20 20 20 20 20 4C |ACHED. L| 00003A10: 44 41 20 46 52 51 4C 4F 2C 59 20 20 20 3B 44 45 |DA FRQLO,Y ;DE| 00003A20: 53 54 49 4E 41 54 49 4F 4E 0D 20 20 20 20 20 20 |STINATION. | 00003A30: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 | CLC | 00003A40: 20 3B 46 52 45 51 55 45 4E 43 45 3F 0D 20 20 20 | ;FREQUENCE?. | 00003A50: 20 20 20 20 20 20 41 44 43 20 47 4C 49 44 45 4C | ADC GLIDEL| 00003A60: 2C 58 20 20 3B 28 55 50 47 4C 49 44 45 29 0D 20 |,X ;(UPGLIDE). | 00003A70: 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 | PHA. | 00003A80: 20 20 20 20 20 4C 44 41 20 46 52 51 48 49 2C 59 | LDA FRQHI,Y| 00003A90: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 47 4C |. ADC GL| 00003AA0: 49 44 45 48 2C 58 0D 20 20 20 20 20 20 20 20 20 |IDEH,X. | 00003AB0: 43 4D 50 20 47 4C 44 45 48 2C 58 0D 20 20 20 20 |CMP GLDEH,X. | 00003AC0: 20 20 20 20 20 42 43 43 20 47 4C 55 50 32 0D 20 | BCC GLUP2. | 00003AD0: 20 20 20 20 20 20 20 20 42 4E 45 20 47 4C 55 50 | BNE GLUP| 00003AE0: 45 4E 31 0D 47 4C 55 50 34 20 20 20 20 50 4C 41 |EN1.GLUP4 PLA| 00003AF0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 47 4C |. CMP GL| 00003B00: 44 45 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 42 |DEL,X. B| 00003B10: 43 43 20 4E 4F 47 4C 49 0D 0D 0D 47 4C 55 50 45 |CC NOGLI...GLUPE| 00003B20: 4E 20 20 20 4C 44 41 20 23 30 20 20 20 20 20 20 |N LDA #0 | 00003B30: 20 20 3B 53 54 4F 50 20 47 4C 49 44 45 0D 20 20 | ;STOP GLIDE. | 00003B40: 20 20 20 20 20 20 20 53 54 41 20 47 4C 49 44 45 | STA GLIDE| 00003B50: 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |L,X. STA| 00003B60: 20 47 4C 49 44 45 48 2C 58 0D 20 20 20 20 20 20 | GLIDEH,X. | 00003B70: 20 20 20 53 54 41 20 47 4C 4C 2C 58 0D 20 20 20 | STA GLL,X. | 00003B80: 20 20 20 20 20 20 53 54 41 20 47 4C 48 2C 58 0D | STA GLH,X.| 00003B90: 20 20 20 20 20 20 20 20 20 4C 44 41 20 47 4C 54 | LDA GLT| 00003BA0: 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |O,X. STA| 00003BB0: 20 4E 4F 54 45 56 2C 58 0D 20 20 20 20 20 20 20 | NOTEV,X. | 00003BC0: 20 20 53 54 41 20 4E 4F 54 45 4F 4B 2C 58 0D 20 | STA NOTEOK,X. | 00003BD0: 20 20 20 20 20 20 20 20 42 45 51 20 4E 4F 47 4C | BEQ NOGL| 00003BE0: 49 0D 0D 47 4C 55 50 31 0D 20 20 20 20 20 20 20 |I..GLUP1. | 00003BF0: 20 20 4C 44 59 20 4E 4F 54 45 56 2C 58 0D 20 20 | LDY NOTEV,X. | 00003C00: 20 20 20 20 20 20 20 4C 44 41 20 46 52 51 4C 4F | LDA FRQLO| 00003C10: 2C 59 20 20 20 3B 43 48 45 43 4B 20 44 45 53 54 |,Y ;CHECK DEST| 00003C20: 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |IN.. CLC| 00003C30: 20 20 20 20 20 20 20 20 20 20 20 3B 46 4F 52 20 | ;FOR | 00003C40: 44 4F 57 4E 47 4C 49 44 45 0D 20 20 20 20 20 20 |DOWNGLIDE. | 00003C50: 20 20 20 41 44 43 20 47 4C 49 44 45 4C 2C 58 0D | ADC GLIDEL,X.| 00003C60: 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 | PHA. | 00003C70: 20 20 20 20 20 20 4C 44 41 20 46 52 51 48 49 2C | LDA FRQHI,| 00003C80: 59 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 47 |Y. ADC G| 00003C90: 4C 49 44 45 48 2C 58 0D 20 20 20 20 20 20 20 20 |LIDEH,X. | 00003CA0: 20 43 4D 50 20 47 4C 44 45 48 2C 58 0D 20 20 20 | CMP GLDEH,X. | 00003CB0: 20 20 20 20 20 20 42 43 43 20 47 4C 55 50 45 4E | BCC GLUPEN| 00003CC0: 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 47 |1. BNE G| 00003CD0: 4C 55 50 32 0D 20 20 20 20 20 20 20 20 20 50 4C |LUP2. PL| 00003CE0: 41 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 47 |A. CMP G| 00003CF0: 4C 44 45 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 |LDEL,X. | 00003D00: 42 43 53 20 4E 4F 47 4C 49 0D 20 20 20 20 20 20 |BCS NOGLI. | 00003D10: 20 20 20 42 43 43 20 47 4C 55 50 45 4E 0D 47 4C | BCC GLUPEN.GL| 00003D20: 55 50 45 4E 31 20 20 50 4C 41 0D 20 20 20 20 20 |UPEN1 PLA. | 00003D30: 20 20 20 20 4A 4D 50 20 47 4C 55 50 45 4E 0D 0D | JMP GLUPEN..| 00003D40: 0D 0D 47 4C 55 50 32 20 20 20 20 50 4C 41 0D 3B |..GLUP2 PLA.;| 00003D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003D70: 2D 2D 2D 2D 2D 2D 2D 0D 3B 56 49 42 52 41 54 4F |-------.;VIBRATO| 00003D80: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00003D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4E 4F 47 4C 49 20 |---------.NOGLI | 00003DB0: 20 20 20 4C 44 41 20 56 53 50 45 45 44 2C 58 0D | LDA VSPEED,X.| 00003DC0: 20 20 20 20 20 20 20 20 20 42 45 51 20 4E 4F 56 | BEQ NOV| 00003DD0: 49 42 0D 0D 20 20 20 20 20 20 20 20 20 41 4E 44 |IB.. AND| 00003DE0: 20 23 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 | #1. BNE| 00003DF0: 20 4E 56 49 42 0D 20 20 20 20 20 20 20 20 20 49 | NVIB. I| 00003E00: 4E 43 20 56 49 46 49 52 53 54 2C 58 0D 4E 56 49 |NC VIFIRST,X.NVI| 00003E10: 42 20 20 20 20 20 4C 44 41 20 56 44 49 52 2C 58 |B LDA VDIR,X| 00003E20: 20 20 20 20 20 3B 43 48 45 43 4B 20 44 49 52 45 | ;CHECK DIRE| 00003E30: 43 54 2E 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |CT.. BNE| 00003E40: 20 56 49 44 4F 20 20 20 20 20 20 20 3B 56 49 42 | VIDO ;VIB| 00003E50: 2E 20 55 50 0D 20 20 20 20 20 20 20 20 20 4C 44 |. UP. LD| 00003E60: 41 20 56 49 46 49 52 53 54 2C 58 0D 20 20 20 20 |A VIFIRST,X. | 00003E70: 20 20 20 20 20 42 4E 45 20 56 49 31 0D 20 20 20 | BNE VI1. | 00003E80: 20 20 20 20 20 20 49 4E 43 20 56 49 46 49 52 53 | INC VIFIRS| 00003E90: 54 2C 58 20 20 3B 48 41 4C 46 56 41 4C 55 45 3F |T,X ;HALFVALUE?| 00003EA0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 41 |. LDA VA| 00003EB0: 44 44 4C 31 2C 58 0D 20 20 20 20 20 20 20 20 20 |DDL1,X. | 00003EC0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00003ED0: 20 56 49 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 | VILO,X. | 00003EE0: 20 53 54 41 20 56 49 4C 4F 2C 58 20 20 20 20 20 | STA VILO,X | 00003EF0: 3B 41 44 44 20 48 41 4C 46 0D 20 20 20 20 20 20 |;ADD HALF. | 00003F00: 20 20 20 4C 44 41 20 56 41 44 44 48 31 2C 58 0D | LDA VADDH1,X.| 00003F10: 20 20 20 20 20 20 20 20 20 41 44 43 20 56 49 48 | ADC VIH| 00003F20: 49 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |I,X. STA| 00003F30: 20 56 49 48 49 2C 58 0D 20 20 20 20 20 20 20 20 | VIHI,X. | 00003F40: 20 4A 4D 50 20 56 49 32 0D 56 49 31 20 20 20 20 | JMP VI2.VI1 | 00003F50: 20 20 4C 44 41 20 56 41 44 44 4C 2C 58 20 20 20 | LDA VADDL,X | 00003F60: 20 3B 41 44 44 20 46 55 4C 4C 0D 20 20 20 20 20 | ;ADD FULL. | 00003F70: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00003F80: 20 41 44 43 20 56 49 4C 4F 2C 58 0D 20 20 20 20 | ADC VILO,X. | 00003F90: 20 20 20 20 20 53 54 41 20 56 49 4C 4F 2C 58 0D | STA VILO,X.| 00003FA0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 41 44 | LDA VAD| 00003FB0: 44 48 2C 58 0D 20 20 20 20 20 20 20 20 20 41 44 |DH,X. AD| 00003FC0: 43 20 56 49 48 49 2C 58 0D 20 20 20 20 20 20 20 |C VIHI,X. | 00003FD0: 20 20 53 54 41 20 56 49 48 49 2C 58 0D 56 49 32 | STA VIHI,X.VI2| 00003FE0: 20 20 20 20 20 20 49 4E 43 20 56 53 50 45 45 44 | INC VSPEED| 00003FF0: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |1,X. LDA| 00004000: 20 56 53 50 45 45 44 31 2C 58 20 20 3B 44 49 52 | VSPEED1,X ;DIR| 00004010: 2E 54 55 52 4E 3F 0D 20 20 20 20 20 20 20 20 20 |.TURN?. | 00004020: 43 4D 50 20 56 53 50 45 45 44 2C 58 0D 20 20 20 |CMP VSPEED,X. | 00004030: 20 20 20 20 20 20 42 4E 45 20 56 49 33 0D 56 49 | BNE VI3.VI| 00004040: 34 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 |4 LDA #1. | 00004050: 20 20 20 20 20 20 20 45 4F 52 20 56 44 49 52 2C | EOR VDIR,| 00004060: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 56 |X. STA V| 00004070: 44 49 52 2C 58 0D 56 49 33 20 20 20 20 20 20 4A |DIR,X.VI3 J| 00004080: 4D 50 20 4E 4F 56 49 42 0D 56 49 44 4F 20 20 20 |MP NOVIB.VIDO | 00004090: 20 20 4C 44 41 20 56 49 4C 4F 2C 58 20 20 20 20 | LDA VILO,X | 000040A0: 20 3B 56 49 42 2E 20 44 4F 57 4E 0D 20 20 20 20 | ;VIB. DOWN. | 000040B0: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 | SEC. | 000040C0: 20 20 53 42 43 20 56 41 44 44 4C 2C 58 0D 20 20 | SBC VADDL,X. | 000040D0: 20 20 20 20 20 20 20 53 54 41 20 56 49 4C 4F 2C | STA VILO,| 000040E0: 58 20 20 20 20 20 3B 53 42 43 20 46 55 4C 4C 0D |X ;SBC FULL.| 000040F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 49 48 | LDA VIH| 00004100: 49 2C 58 0D 20 20 20 20 20 20 20 20 20 53 42 43 |I,X. SBC| 00004110: 20 56 41 44 44 48 2C 58 0D 20 20 20 20 20 20 20 | VADDH,X. | 00004120: 20 20 53 54 41 20 56 49 48 49 2C 58 0D 20 20 20 | STA VIHI,X. | 00004130: 20 20 20 20 20 20 44 45 43 20 56 53 50 45 45 44 | DEC VSPEED| 00004140: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 |1,X. BEQ| 00004150: 20 56 49 34 0D 20 20 20 20 20 20 20 20 20 4A 4D | VI4. JM| 00004160: 50 20 4E 4F 56 49 42 0D 0D 0D 0D 4E 4F 56 49 42 |P NOVIB....NOVIB| 00004170: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00004180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 57 41 56 45 2F |---------.;WAVE/| 000041A0: 46 49 4C 54 2F 50 55 4C 53 45 0D 3B 2D 2D 2D 2D |FILT/PULSE.;----| 000041B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000041C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000041D0: 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |---. LDA| 000041E0: 20 57 56 53 50 45 45 44 31 2C 58 20 3B 4E 45 57 | WVSPEED1,X ;NEW| 000041F0: 20 52 4F 57 20 3F 0D 20 20 20 20 20 20 20 20 20 | ROW ?. | 00004200: 43 4D 50 20 23 24 46 46 0D 20 20 20 20 20 20 20 |CMP #$FF. | 00004210: 20 20 42 45 51 20 4E 4F 43 48 4E 49 43 48 0D 20 | BEQ NOCHNICH. | 00004220: 20 20 20 20 20 20 20 20 44 45 43 20 57 56 53 50 | DEC WVSP| 00004230: 45 45 44 31 2C 58 0D 20 20 20 20 20 20 20 20 20 |EED1,X. | 00004240: 42 50 4C 20 4E 4F 43 48 4E 49 43 48 0D 20 20 20 |BPL NOCHNICH. | 00004250: 20 20 20 20 20 20 4C 44 41 20 57 56 53 50 45 45 | LDA WVSPEE| 00004260: 44 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |D,X. STA| 00004270: 20 57 56 53 50 45 45 44 31 2C 58 0D 4E 45 57 52 | WVSPEED1,X.NEWR| 00004280: 45 41 44 20 20 4C 44 59 20 57 41 56 45 50 4F 53 |EAD LDY WAVEPOS| 00004290: 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 43 20 |,X. INC | 000042A0: 57 41 56 45 50 4F 53 2C 58 0D 20 20 20 20 20 20 |WAVEPOS,X. | 000042B0: 20 20 20 4C 44 41 20 57 41 56 45 54 41 42 2C 59 | LDA WAVETAB,Y| 000042C0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 000042D0: 39 31 20 20 20 20 20 20 3B 43 48 45 43 4B 20 53 |91 ;CHECK S| 000042E0: 54 4F 50 0D 20 20 20 20 20 20 20 20 20 42 45 51 |TOP. BEQ| 000042F0: 20 53 43 48 4C 55 53 53 0D 20 20 20 20 20 20 20 | SCHLUSS. | 00004300: 20 20 43 4D 50 20 23 24 39 30 20 20 20 20 20 20 | CMP #$90 | 00004310: 3B 43 48 45 43 4B 20 4C 4F 4F 50 0D 20 20 20 20 |;CHECK LOOP. | 00004320: 20 20 20 20 20 42 4E 45 20 4E 45 58 54 53 54 45 | BNE NEXTSTE| 00004330: 50 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 |P. LDA F| 00004340: 52 45 51 54 41 42 2C 59 0D 20 20 20 20 20 20 20 |REQTAB,Y. | 00004350: 20 20 53 54 41 20 57 41 56 45 50 4F 53 2C 58 0D | STA WAVEPOS,X.| 00004360: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 45 57 | JMP NEW| 00004370: 52 45 41 44 0D 4E 45 58 54 53 54 45 50 20 50 48 |READ.NEXTSTEP PH| 00004380: 41 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 |A. AND #| 00004390: 24 46 37 20 20 20 20 20 3B 43 48 45 43 4B 20 44 |$F7 ;CHECK D| 000043A0: 52 55 4D 4D 4F 44 45 0D 20 20 20 20 20 20 20 20 |RUMMODE. | 000043B0: 20 53 54 41 20 57 41 56 45 2C 58 0D 20 20 20 20 | STA WAVE,X. | 000043C0: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 000043D0: 20 20 41 4E 44 20 23 24 30 38 0D 20 20 20 20 20 | AND #$08. | 000043E0: 20 20 20 20 53 54 41 20 44 52 55 4D 2C 58 0D 20 | STA DRUM,X. | 000043F0: 20 20 20 20 20 20 20 20 42 45 51 20 4E 4F 44 52 | BEQ NODR| 00004400: 55 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |UM. LDA | 00004410: 46 52 45 51 54 41 42 2C 59 0D 20 20 20 20 20 20 |FREQTAB,Y. | 00004420: 20 20 20 53 54 41 20 4E 4F 54 45 4F 4B 2C 58 0D | STA NOTEOK,X.| 00004430: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F 43 | JMP NOC| 00004440: 48 4E 49 43 48 0D 4E 4F 44 52 55 4D 20 20 20 4C |HNICH.NODRUM L| 00004450: 44 41 20 46 52 45 51 54 41 42 2C 59 0D 20 20 20 |DA FREQTAB,Y. | 00004460: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00004470: 20 20 20 41 44 43 20 4E 4F 54 45 56 2C 58 0D 20 | ADC NOTEV,X. | 00004480: 20 20 20 20 20 20 20 20 53 54 41 20 4E 4F 54 45 | STA NOTE| 00004490: 4F 4B 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D |OK,X. JM| 000044A0: 50 20 4E 4F 43 48 4E 49 43 48 0D 0D 0D 53 43 48 |P NOCHNICH...SCH| 000044B0: 4C 55 53 53 20 20 4C 44 41 20 23 24 46 46 20 20 |LUSS LDA #$FF | 000044C0: 20 20 20 20 20 3B 53 54 4F 50 20 4D 41 52 4B 0D | ;STOP MARK.| 000044D0: 20 20 20 20 20 20 20 20 20 53 54 41 20 57 56 53 | STA WVS| 000044E0: 50 45 45 44 31 2C 58 0D 20 20 20 20 20 20 20 20 |PEED1,X. | 000044F0: 20 4C 44 41 20 57 41 56 45 2C 58 0D 20 20 20 20 | LDA WAVE,X. | 00004500: 20 20 20 20 20 41 4E 44 20 23 24 34 30 0D 20 20 | AND #$40. | 00004510: 20 20 20 20 20 20 20 42 4E 45 20 4E 4F 43 48 4E | BNE NOCHN| 00004520: 49 43 48 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |ICH. LDA| 00004530: 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #1. STA| 00004540: 20 4E 4F 50 55 2C 58 0D 0D 0D 4E 4F 43 48 4E 49 | NOPU,X...NOCHNI| 00004550: 43 48 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |CH..;-----------| 00004560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 50 55 |------------.;PU| 00004580: 4C 53 52 4F 55 54 49 4E 45 0D 3B 2D 2D 2D 2D 2D |LSROUTINE.;-----| 00004590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000045A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000045B0: 2D 2D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |--. LDA | 000045C0: 4E 4F 50 55 2C 58 0D 20 20 20 20 20 20 20 20 20 |NOPU,X. | 000045D0: 42 4E 45 20 46 49 4C 4C 49 0D 20 20 20 20 20 20 |BNE FILLI. | 000045E0: 20 20 20 4C 44 41 20 50 55 50 4F 53 2C 58 0D 20 | LDA PUPOS,X. | 000045F0: 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 20 | TAY. | 00004600: 20 20 20 20 20 4C 44 41 20 50 55 4C 53 46 52 4D | LDA PULSFRM| 00004610: 2C 58 20 20 20 3B 4E 45 57 20 52 4F 57 3F 0D 20 |,X ;NEW ROW?. | 00004620: 20 20 20 20 20 20 20 20 42 4E 45 20 4E 4F 4E 45 | BNE NONE| 00004630: 57 53 45 54 0D 4E 4F 43 48 4D 41 4C 20 20 4C 44 |WSET.NOCHMAL LD| 00004640: 41 20 50 55 4C 53 54 41 42 31 2C 59 0D 20 20 20 |A PULSTAB1,Y. | 00004650: 20 20 20 20 20 20 43 4D 50 20 23 24 39 30 20 20 | CMP #$90 | 00004660: 20 20 20 20 20 20 3B 43 48 45 43 4B 20 4C 4F 4F | ;CHECK LOO| 00004670: 50 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 50 |P. BNE P| 00004680: 50 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |P1. LDA | 00004690: 50 55 4C 53 54 41 42 32 2C 59 0D 20 20 20 20 20 |PULSTAB2,Y. | 000046A0: 20 20 20 20 53 54 41 20 50 55 50 4F 53 2C 58 0D | STA PUPOS,X.| 000046B0: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 000046C0: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 43 48 4D 41 | JMP NOCHMA| 000046D0: 4C 0D 50 50 31 20 20 20 20 20 20 43 4D 50 20 23 |L.PP1 CMP #| 000046E0: 24 39 31 20 20 20 20 20 20 20 20 3B 43 48 45 43 |$91 ;CHEC| 000046F0: 4B 20 53 54 4F 50 0D 20 20 20 20 20 20 20 20 20 |K STOP. | 00004700: 42 4E 45 20 50 50 32 0D 20 20 20 20 20 20 20 20 |BNE PP2. | 00004710: 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 | LDA #1. | 00004720: 20 53 54 41 20 4E 4F 50 55 2C 58 0D 20 20 20 20 | STA NOPU,X. | 00004730: 20 20 20 20 20 42 4E 45 20 46 49 4C 4C 49 0D 0D | BNE FILLI..| 00004740: 0D 50 50 32 20 20 20 20 20 20 53 54 41 20 50 55 |.PP2 STA PU| 00004750: 4C 53 41 44 44 48 2C 58 20 20 3B 43 4F 55 4E 54 |LSADDH,X ;COUNT| 00004760: 20 56 41 4C 55 45 53 0D 20 20 20 20 20 20 20 20 | VALUES. | 00004770: 20 4C 44 41 20 50 55 4C 53 54 41 42 32 2C 59 0D | LDA PULSTAB2,Y.| 00004780: 20 20 20 20 20 20 20 20 20 53 54 41 20 50 55 4C | STA PUL| 00004790: 53 41 44 44 4C 2C 58 0D 20 20 20 20 20 20 20 20 |SADDL,X. | 000047A0: 20 4C 44 41 20 50 55 4C 53 54 41 42 32 2B 31 2C | LDA PULSTAB2+1,| 000047B0: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 50 |Y. STA P| 000047C0: 55 4C 53 46 52 4D 2C 58 0D 20 20 20 20 20 20 20 |ULSFRM,X. | 000047D0: 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 43 | TYA. C| 000047E0: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 000047F0: 23 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#2. STA | 00004800: 50 55 50 4F 53 2C 58 0D 4E 4F 4E 45 57 53 45 54 |PUPOS,X.NONEWSET| 00004810: 20 4C 44 41 20 50 55 4C 53 4C 4F 2C 58 0D 20 20 | LDA PULSLO,X. | 00004820: 20 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 | CLC | 00004830: 20 20 20 20 20 20 20 20 3B 53 45 54 20 56 41 4C | ;SET VAL| 00004840: 55 45 53 0D 20 20 20 20 20 20 20 20 20 41 44 43 |UES. ADC| 00004850: 20 50 55 4C 53 41 44 44 4C 2C 58 0D 20 20 20 20 | PULSADDL,X. | 00004860: 20 20 20 20 20 53 54 41 20 50 55 4C 53 4C 4F 2C | STA PULSLO,| 00004870: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |X. STA $| 00004880: 44 34 30 32 2C 58 0D 20 20 20 20 20 20 20 20 20 |D402,X. | 00004890: 4C 44 41 20 50 55 4C 53 48 49 2C 58 0D 20 20 20 |LDA PULSHI,X. | 000048A0: 20 20 20 20 20 20 41 44 43 20 50 55 4C 53 41 44 | ADC PULSAD| 000048B0: 44 48 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |DH,X. ST| 000048C0: 41 20 50 55 4C 53 48 49 2C 58 0D 20 20 20 20 20 |A PULSHI,X. | 000048D0: 20 20 20 20 53 54 41 20 24 44 34 30 33 2C 58 0D | STA $D403,X.| 000048E0: 20 20 20 20 20 20 20 20 20 44 45 43 20 50 55 4C | DEC PUL| 000048F0: 53 46 52 4D 2C 58 0D 0D 0D 0D 0D 3B 2D 2D 2D 2D |SFRM,X.....;----| 00004900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004920: 2D 2D 2D 0D 3B C6 49 4C 54 45 52 52 4F 55 54 49 |---.;.ILTERROUTI| 00004930: 4E 45 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NE.;------------| 00004940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 46 49 4C 4C |-----------.FILL| 00004960: 49 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |I | 00004970: 20 3B 53 54 49 4C 4C 20 54 4F 20 43 4F 44 45 0D | ;STILL TO CODE.| 00004980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004990: 20 20 20 20 20 3B 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D | ;.;--------| 000049A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000049B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 000049C0: 3B 57 52 49 54 49 4E 47 20 54 48 45 20 D3 C9 C4 |;WRITING THE ...| 000049D0: 2D 52 45 47 49 53 54 45 52 53 0D 3B 2D 2D 2D 2D |-REGISTERS.;----| 000049E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000049F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004A00: 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |---. LDA| 00004A10: 20 41 44 2C 58 20 20 20 20 20 3B 52 45 47 49 53 | AD,X ;REGIS| 00004A20: 54 45 52 53 0D 20 20 20 20 20 20 20 20 20 53 54 |TERS. ST| 00004A30: 41 20 24 44 34 30 35 2C 58 0D 20 20 20 20 20 20 |A $D405,X. | 00004A40: 20 20 20 4C 44 41 20 53 52 2C 58 0D 20 20 20 20 | LDA SR,X. | 00004A50: 20 20 20 20 20 53 54 41 20 24 44 34 30 36 2C 58 | STA $D406,X| 00004A60: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 57 41 |. LDA WA| 00004A70: 56 45 2C 58 0D 20 20 20 20 20 20 20 20 20 54 41 |VE,X. TA| 00004A80: 59 20 20 20 20 20 20 20 20 20 3B 49 46 20 47 41 |Y ;IF GA| 00004A90: 54 45 42 49 54 20 4F 46 46 20 42 59 0D 20 20 20 |TEBIT OFF BY. | 00004AA0: 20 20 20 20 20 20 41 4E 44 20 23 31 20 20 20 20 | AND #1 | 00004AB0: 20 20 3B 54 41 42 4C 45 2C 20 44 49 53 41 42 4C | ;TABLE, DISABL| 00004AC0: 45 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4E |E. BEQ N| 00004AD0: 4F 47 41 54 20 20 20 3B 47 41 54 45 20 43 4F 4D |OGAT ;GATE COM| 00004AE0: 4D 41 4E 44 0D 20 20 20 20 20 20 20 20 20 54 59 |MAND. TY| 00004AF0: 41 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 |A. AND #| 00004B00: 24 46 45 0D 20 20 20 20 20 20 20 20 20 4F 52 41 |$FE. ORA| 00004B10: 20 41 4E 44 4F 52 2C 58 0D 20 20 20 20 20 20 20 | ANDOR,X. | 00004B20: 20 20 54 41 59 0D 4E 4F 47 41 54 20 20 20 20 54 | TAY.NOGAT T| 00004B30: 59 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |YA. STA | 00004B40: 24 44 34 30 34 2C 58 20 20 3B 57 52 49 54 45 20 |$D404,X ;WRITE | 00004B50: 52 45 4D 41 49 4E 49 4E 47 0D 20 20 20 20 20 20 |REMAINING. | 00004B60: 20 20 20 4C 44 59 20 4E 4F 54 45 4F 4B 2C 58 0D | LDY NOTEOK,X.| 00004B70: 20 20 20 20 20 20 20 20 20 4C 44 41 20 44 52 55 | LDA DRU| 00004B80: 4D 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 |M,X. BEQ| 00004B90: 20 4E 4F 52 4D 0D 20 20 20 20 20 20 20 20 20 54 | NORM. T| 00004BA0: 59 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |YA. STA | 00004BB0: 24 44 34 30 31 2C 58 0D 20 20 20 20 20 20 20 20 |$D401,X. | 00004BC0: 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 | LDA #0. | 00004BD0: 20 53 54 41 20 24 44 34 30 30 2C 58 0D 20 20 20 | STA $D400,X. | 00004BE0: 20 20 20 20 20 20 42 45 51 20 57 49 54 45 52 0D | BEQ WITER.| 00004BF0: 4E 4F 52 4D 0D 20 20 20 20 20 20 20 20 20 43 4C |NORM. CL| 00004C00: 43 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 |C. LDA V| 00004C10: 49 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 41 |ILO,X. A| 00004C20: 44 43 20 47 4C 49 44 45 4C 2C 58 0D 20 20 20 20 |DC GLIDEL,X. | 00004C30: 20 20 20 20 20 53 54 41 20 48 45 4C 50 0D 20 20 | STA HELP. | 00004C40: 20 20 20 20 20 20 20 4C 44 41 20 56 49 48 49 2C | LDA VIHI,| 00004C50: 58 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 47 |X. ADC G| 00004C60: 4C 49 44 45 48 2C 58 0D 20 20 20 20 20 20 20 20 |LIDEH,X. | 00004C70: 20 53 54 41 20 48 45 4C 50 2B 31 0D 20 20 20 20 | STA HELP+1. | 00004C80: 20 20 20 20 20 4C 44 41 20 46 52 51 4C 4F 2C 59 | LDA FRQLO,Y| 00004C90: 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 |. CLC. | 00004CA0: 20 20 20 20 20 20 20 41 44 43 20 46 49 4E 45 2C | ADC FINE,| 00004CB0: 58 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 48 |X. ADC H| 00004CC0: 45 4C 50 0D 20 20 20 20 20 20 20 20 20 53 54 41 |ELP. STA| 00004CD0: 20 24 44 34 30 30 2C 58 0D 20 20 20 20 20 20 20 | $D400,X. | 00004CE0: 20 20 4C 44 41 20 48 45 4C 50 2B 31 0D 20 20 20 | LDA HELP+1. | 00004CF0: 20 20 20 20 20 20 41 44 43 20 46 52 51 48 49 2C | ADC FRQHI,| 00004D00: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |Y. STA $| 00004D10: 44 34 30 31 2C 58 0D 57 49 54 45 52 0D 20 20 20 |D401,X.WITER. | 00004D20: 20 20 20 20 20 20 52 54 53 0D 0D 48 45 4C 50 20 | RTS..HELP | 00004D30: 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 30 | .BYTE $00,$0| 00004D40: 30 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |0.;-------------| 00004D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B D4 41 42 4C |----------.;.ABL| 00004D70: 45 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ES.;------------| 00004D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 46 52 51 4C |-----------.FRQL| 00004DA0: 4F 20 20 20 20 2E 42 59 54 45 20 24 30 43 2C 24 |O .BYTE $0C,$| 00004DB0: 31 43 2C 24 32 44 2C 24 33 45 2C 24 34 37 2C 24 |1C,$2D,$3E,$47,$| 00004DC0: 36 36 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |66. .BYT| 00004DD0: 45 20 24 37 42 2C 24 39 31 2C 24 41 39 2C 24 43 |E $7B,$91,$A9,$C| 00004DE0: 33 2C 24 44 44 2C 24 46 41 0D 20 20 20 20 20 20 |3,$DD,$FA. | 00004DF0: 20 20 20 2E 42 59 54 45 20 24 31 38 2C 24 33 38 | .BYTE $18,$38| 00004E00: 2C 24 35 41 2C 24 37 44 2C 24 41 33 2C 24 43 43 |,$5A,$7D,$A3,$CC| 00004E10: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00004E20: 24 46 36 2C 24 32 33 2C 24 35 33 2C 24 38 36 2C |$F6,$23,$53,$86,| 00004E30: 24 42 42 2C 24 46 34 0D 20 20 20 20 20 20 20 20 |$BB,$F4. | 00004E40: 20 2E 42 59 54 45 20 24 33 30 2C 24 37 30 2C 24 | .BYTE $30,$70,$| 00004E50: 42 34 2C 24 46 42 2C 24 34 37 2C 24 39 38 0D 20 |B4,$FB,$47,$98. | 00004E60: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 45 | .BYTE $E| 00004E70: 44 2C 24 34 37 2C 24 41 37 2C 24 30 43 2C 24 37 |D,$47,$A7,$0C,$7| 00004E80: 37 2C 24 45 39 0D 20 20 20 20 20 20 20 20 20 2E |7,$E9. .| 00004E90: 42 59 54 45 20 24 36 31 2C 24 45 31 2C 24 36 38 |BYTE $61,$E1,$68| 00004EA0: 2C 24 46 37 2C 24 38 46 2C 24 33 30 0D 20 20 20 |,$F7,$8F,$30. | 00004EB0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 44 41 2C | .BYTE $DA,| 00004EC0: 24 38 46 2C 24 34 45 2C 24 31 38 2C 24 45 46 2C |$8F,$4E,$18,$EF,| 00004ED0: 24 44 32 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |$D2. .BY| 00004EE0: 54 45 20 24 43 33 2C 24 43 33 2C 24 44 31 2C 24 |TE $C3,$C3,$D1,$| 00004EF0: 45 46 2C 24 31 46 2C 24 36 30 0D 20 20 20 20 20 |EF,$1F,$60. | 00004F00: 20 20 20 20 2E 42 59 54 45 20 24 42 35 2C 24 31 | .BYTE $B5,$1| 00004F10: 45 2C 24 39 43 2C 24 33 31 2C 24 44 46 2C 24 41 |E,$9C,$31,$DF,$A| 00004F20: 35 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |5. .BYTE| 00004F30: 20 24 38 37 2C 24 38 36 2C 24 41 32 2C 24 44 46 | $87,$86,$A2,$DF| 00004F40: 2C 24 33 45 2C 24 43 31 0D 20 20 20 20 20 20 20 |,$3E,$C1. | 00004F50: 20 20 2E 42 59 54 45 20 24 36 42 2C 24 33 43 2C | .BYTE $6B,$3C,| 00004F60: 24 33 39 2C 24 36 33 2C 24 42 45 2C 24 34 42 0D |$39,$63,$BE,$4B.| 00004F70: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00004F80: 30 46 2C 24 30 43 2C 24 34 35 2C 24 42 46 2C 24 |0F,$0C,$45,$BF,$| 00004F90: 37 44 2C 24 38 33 0D 20 20 20 20 20 20 20 20 20 |7D,$83. | 00004FA0: 2E 42 59 54 45 20 24 44 36 2C 24 37 39 2C 24 37 |.BYTE $D6,$79,$7| 00004FB0: 33 2C 24 43 37 2C 24 37 43 2C 24 39 37 0D 20 20 |3,$C7,$7C,$97. | 00004FC0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 45 | .BYTE $1E| 00004FD0: 2C 24 31 38 2C 24 38 42 2C 24 37 45 2C 24 46 41 |,$18,$8B,$7E,$FA| 00004FE0: 2C 24 30 36 0D 20 20 20 20 20 20 20 20 20 2E 42 |,$06. .B| 00004FF0: 59 54 45 20 24 41 43 2C 24 46 33 2C 24 45 36 2C |YTE $AC,$F3,$E6,| 00005000: 24 38 46 2C 24 46 38 2C 24 46 43 0D 3B 2D 2D 2D |$8F,$F8,$FC.;---| 00005010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005030: 2D 2D 2D 2D 0D 46 52 51 48 49 20 20 20 20 2E 42 |----.FRQHI .B| 00005040: 59 54 45 20 24 30 31 2C 24 30 31 2C 24 30 31 2C |YTE $01,$01,$01,| 00005050: 24 30 31 2C 24 30 31 2C 24 30 31 0D 20 20 20 20 |$01,$01,$01. | 00005060: 20 20 20 20 20 2E 42 59 54 45 20 24 30 31 2C 24 | .BYTE $01,$| 00005070: 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |01,$01,$01,$01,$| 00005080: 30 31 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |01. .BYT| 00005090: 45 20 24 30 32 2C 24 30 32 2C 24 30 32 2C 24 30 |E $02,$02,$02,$0| 000050A0: 32 2C 24 30 32 2C 24 30 32 0D 20 20 20 20 20 20 |2,$02,$02. | 000050B0: 20 20 20 2E 42 59 54 45 20 24 30 32 2C 24 30 33 | .BYTE $02,$03| 000050C0: 2C 24 30 33 2C 24 30 33 2C 24 30 33 2C 24 30 33 |,$03,$03,$03,$03| 000050D0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000050E0: 24 30 34 2C 24 30 34 2C 24 30 34 2C 24 30 34 2C |$04,$04,$04,$04,| 000050F0: 24 30 35 2C 24 30 35 0D 20 20 20 20 20 20 20 20 |$05,$05. | 00005100: 20 2E 42 59 54 45 20 24 30 35 2C 24 30 36 2C 24 | .BYTE $05,$06,$| 00005110: 30 36 2C 24 30 37 2C 24 30 37 2C 24 30 37 0D 20 |06,$07,$07,$07. | 00005120: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 00005130: 38 2C 24 30 38 2C 24 30 39 2C 24 30 39 2C 24 30 |8,$08,$09,$09,$0| 00005140: 41 2C 24 30 42 0D 20 20 20 20 20 20 20 20 20 2E |A,$0B. .| 00005150: 42 59 54 45 20 24 30 42 2C 24 30 43 2C 24 30 44 |BYTE $0B,$0C,$0D| 00005160: 2C 24 30 45 2C 24 30 45 2C 24 30 46 0D 20 20 20 |,$0E,$0E,$0F. | 00005170: 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 30 2C | .BYTE $10,| 00005180: 24 31 31 2C 24 31 32 2C 24 31 33 2C 24 31 35 2C |$11,$12,$13,$15,| 00005190: 24 31 36 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |$16. .BY| 000051A0: 54 45 20 24 31 37 2C 24 31 39 2C 24 31 41 2C 24 |TE $17,$19,$1A,$| 000051B0: 31 43 2C 24 31 44 2C 24 31 46 0D 20 20 20 20 20 |1C,$1D,$1F. | 000051C0: 20 20 20 20 2E 42 59 54 45 20 24 32 31 2C 24 32 | .BYTE $21,$2| 000051D0: 33 2C 24 32 35 2C 24 32 37 2C 24 32 41 2C 24 32 |3,$25,$27,$2A,$2| 000051E0: 43 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |C. .BYTE| 000051F0: 20 24 32 46 2C 24 33 32 2C 24 33 35 2C 24 33 38 | $2F,$32,$35,$38| 00005200: 2C 24 33 42 2C 24 33 46 0D 20 20 20 20 20 20 20 |,$3B,$3F. | 00005210: 20 20 2E 42 59 54 45 20 24 34 33 2C 24 34 37 2C | .BYTE $43,$47,| 00005220: 24 34 42 2C 24 34 46 2C 24 35 34 2C 24 35 39 0D |$4B,$4F,$54,$59.| 00005230: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00005240: 35 45 2C 24 36 34 2C 24 36 41 2C 24 37 30 2C 24 |5E,$64,$6A,$70,$| 00005250: 37 37 2C 24 37 45 0D 20 20 20 20 20 20 20 20 20 |77,$7E. | 00005260: 2E 42 59 54 45 20 24 38 36 2C 24 38 45 2C 24 39 |.BYTE $86,$8E,$9| 00005270: 36 2C 24 39 46 2C 24 41 38 2C 24 42 33 0D 20 20 |6,$9F,$A8,$B3. | 00005280: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 42 44 | .BYTE $BD| 00005290: 2C 24 43 38 2C 24 44 34 2C 24 45 31 2C 24 45 45 |,$C8,$D4,$E1,$EE| 000052A0: 2C 24 46 44 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |,$FD.;----------| 000052B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000052C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 53 |-------------.;S| 000052D0: 55 50 45 52 43 4F 4D 4D 41 4E 44 53 0D 3B 2D 2D |UPERCOMMANDS.;--| 000052E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000052F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005300: 2D 2D 2D 2D 2D 0D 3B 30 30 20 2D 20 4E 4F 54 48 |-----.;00 - NOTH| 00005310: 49 4E 47 0D 3B 30 31 20 2D 20 43 4F 4E 54 2E 20 |ING.;01 - CONT. | 00005320: 50 55 4C 53 45 20 28 4E 4F 20 50 55 4C 53 45 20 |PULSE (NO PULSE | 00005330: 52 45 53 54 41 52 54 29 0D 3B 30 32 20 2D 20 53 |RESTART).;02 - S| 00005340: 52 52 2E 58 58 0D 3B 30 33 20 2D 20 41 44 52 2E |RR.XX.;03 - ADR.| 00005350: 58 58 0D 3B 30 34 20 2D 20 56 4F 4C 2E 58 58 0D |XX.;04 - VOL.XX.| 00005360: 3B 30 35 20 2D 20 47 4C 44 2E 58 58 58 58 0D 3B |;05 - GLD.XXXX.;| 00005370: 30 36 20 2D 20 53 4C 44 2E 58 58 58 58 0D 3B 30 |06 - SLD.XXXX.;0| 00005380: 37 20 2D 20 56 49 42 2E 58 58 58 58 0D 3B 2D 2D |7 - VIB.XXXX.;--| 00005390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000053A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000053B0: 2D 2D 2D 2D 2D 0D 43 4F 4D 4D 54 41 42 20 20 2E |-----.COMMTAB .| 000053C0: 42 59 54 45 20 24 30 37 2C 24 30 36 3B 43 4F 4D |BYTE $07,$06;COM| 000053D0: 4D 41 4E 44 0D 43 4F 4D 4D 54 41 42 31 20 2E 42 |MAND.COMMTAB1 .B| 000053E0: 59 54 45 20 24 33 30 2C 24 30 30 20 3B 56 41 4C |YTE $30,$00 ;VAL| 000053F0: 55 45 0D 43 4F 4D 4D 54 41 42 32 20 2E 42 59 54 |UE.COMMTAB2 .BYT| 00005400: 45 20 24 34 30 2C 24 41 30 20 3B 56 41 4C 55 45 |E $40,$A0 ;VALUE| 00005410: 0D 43 4F 4D 4D 54 41 42 33 20 2E 57 4F 52 44 20 |.COMMTAB3 .WORD | 00005420: 4E 4F 46 58 2C 43 4F 4E 54 50 2C 53 55 53 54 2C |NOFX,CONTP,SUST,| 00005430: 41 44 52 2C 56 4F 4C 0D 20 20 20 20 20 20 20 20 |ADR,VOL. | 00005440: 20 2E 57 4F 52 44 20 47 4C 44 2C 53 4C 44 2C 56 | .WORD GLD,SLD,V| 00005450: 49 42 52 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |IBR.;-----------| 00005460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 43 4F 4E |------------.CON| 00005480: 54 50 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 |TP LDA #1. | 00005490: 20 20 20 20 20 20 45 4F 52 20 50 43 4F 4E 54 2C | EOR PCONT,| 000054A0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 50 |X. STA P| 000054B0: 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 20 |CONT,X. | 000054C0: 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D 2D 2D 2D 2D |JMP NOFX.;------| 000054D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000054E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000054F0: 2D 0D 53 55 53 54 20 20 20 20 20 4C 44 41 20 45 |-.SUST LDA E| 00005500: 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 |FFLO,X. | 00005510: 53 54 41 20 53 52 2C 58 0D 20 20 20 20 20 20 20 |STA SR,X. | 00005520: 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D 2D 2D | JMP NOFX.;----| 00005530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005550: 2D 2D 2D 0D 41 44 52 20 20 20 20 20 20 4C 44 41 |---.ADR LDA| 00005560: 20 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 | EFFLO,X. | 00005570: 20 20 53 54 41 20 41 44 2C 58 0D 20 20 20 20 20 | STA AD,X. | 00005580: 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D | JMP NOFX.;--| 00005590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000055A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000055B0: 2D 2D 2D 2D 2D 0D 56 4F 4C 20 20 20 20 20 20 4C |-----.VOL L| 000055C0: 44 41 20 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 |DA EFFLO,X. | 000055D0: 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 | ASL A. | 000055E0: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 000055F0: 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 | ASL A. | 00005600: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. | 00005610: 53 54 41 20 53 56 4F 4C 2C 58 0D 20 20 20 20 20 |STA SVOL,X. | 00005620: 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D | JMP NOFX.;--| 00005630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005650: 2D 2D 2D 2D 2D 0D 47 4C 44 20 20 20 20 20 20 4C |-----.GLD L| 00005660: 44 59 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 20 |DY SECPOS,X. | 00005670: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00005680: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00005690: 20 20 53 54 41 20 47 4C 49 44 45 4C 2C 58 0D 20 | STA GLIDEL,X. | 000056A0: 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 49 44 | STA GLID| 000056B0: 45 48 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |EH,X. LD| 000056C0: 41 20 28 24 46 38 29 2C 59 0D 20 20 20 20 20 20 |A ($F8),Y. | 000056D0: 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 | PHA. | 000056E0: 43 4D 50 20 23 24 36 30 0D 20 20 20 20 20 20 20 |CMP #$60. | 000056F0: 20 20 42 43 43 20 47 4C 31 0D 20 20 20 20 20 20 | BCC GL1. | 00005700: 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 20 | SEC. | 00005710: 53 42 43 20 23 24 36 30 0D 47 4C 31 20 20 20 20 |SBC #$60.GL1 | 00005720: 20 20 53 54 41 20 47 4C 46 52 4F 4D 2C 58 0D 20 | STA GLFROM,X. | 00005730: 20 20 20 20 20 20 20 20 49 4E 59 0D 47 4C 53 4C | INY.GLSL| 00005740: 20 20 20 20 20 4C 44 41 20 28 24 46 38 29 2C 59 | LDA ($F8),Y| 00005750: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00005760: 36 30 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 |60. BCC | 00005770: 47 4C 32 0D 20 20 20 20 20 20 20 20 20 53 45 43 |GL2. SEC| 00005780: 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 23 24 |. SBC #$| 00005790: 36 30 0D 47 4C 32 20 20 20 20 20 20 53 54 41 20 |60.GL2 STA | 000057A0: 47 4C 54 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 |GLTO,X. | 000057B0: 50 48 41 0D 20 20 20 20 20 20 20 20 20 54 41 59 |PHA. TAY| 000057C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 52 |. LDA FR| 000057D0: 51 4C 4F 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |QLO,Y. S| 000057E0: 54 41 20 47 4C 44 45 4C 2C 58 0D 20 20 20 20 20 |TA GLDEL,X. | 000057F0: 20 20 20 20 4C 44 41 20 46 52 51 48 49 2C 59 0D | LDA FRQHI,Y.| 00005800: 20 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 44 | STA GLD| 00005810: 45 48 2C 58 0D 20 20 20 20 20 20 20 20 20 50 4C |EH,X. PL| 00005820: 41 0D 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |A.. CMP | 00005830: 47 4C 46 52 4F 4D 2C 58 0D 20 20 20 20 20 20 20 |GLFROM,X. | 00005840: 20 20 42 45 51 20 47 4C 34 0D 20 20 20 20 20 20 | BEQ GL4. | 00005850: 20 20 20 42 43 53 20 47 4C 55 50 0D 20 20 20 20 | BCS GLUP. | 00005860: 20 20 20 20 20 4C 44 41 20 45 46 46 4C 4F 2C 58 | LDA EFFLO,X| 00005870: 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 23 24 |. EOR #$| 00005880: 46 46 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |FF. CLC.| 00005890: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 30 | ADC #$0| 000058A0: 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 47 |1. STA G| 000058B0: 4C 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |LL,X. LD| 000058C0: 41 20 45 46 46 48 49 2C 58 0D 20 20 20 20 20 20 |A EFFHI,X. | 000058D0: 20 20 20 45 4F 52 20 23 24 46 46 0D 20 20 20 20 | EOR #$FF. | 000058E0: 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 20 20 | ADC #0. | 000058F0: 20 20 20 20 20 53 54 41 20 47 4C 48 2C 58 0D 20 | STA GLH,X. | 00005900: 20 20 20 20 20 20 20 20 4A 4D 50 20 47 4C 33 0D | JMP GL3.| 00005910: 47 4C 55 50 0D 20 20 20 20 20 20 20 20 20 4C 44 |GLUP. LD| 00005920: 41 20 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 |A EFFLO,X. | 00005930: 20 20 20 53 54 41 20 47 4C 4C 2C 58 0D 20 20 20 | STA GLL,X. | 00005940: 20 20 20 20 20 20 4C 44 41 20 45 46 46 48 49 2C | LDA EFFHI,| 00005950: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 47 |X. STA G| 00005960: 4C 48 2C 58 0D 47 4C 33 0D 20 20 20 20 20 20 20 |LH,X.GL3. | 00005970: 20 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 49 | PLA. I| 00005980: 4E 43 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 20 |NC SECPOS,X. | 00005990: 20 20 20 20 20 49 4E 43 20 53 45 43 50 4F 53 2C | INC SECPOS,| 000059A0: 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E |X. JMP N| 000059B0: 4F 54 45 0D 47 4C 34 0D 20 20 20 20 20 20 20 20 |OTE.GL4. | 000059C0: 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 | LDA #0. | 000059D0: 20 53 54 41 20 47 4C 4C 2C 58 0D 20 20 20 20 20 | STA GLL,X. | 000059E0: 20 20 20 20 42 45 51 20 47 4C 33 0D 3B 2D 2D 2D | BEQ GL3.;---| 000059F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005A10: 2D 2D 2D 2D 0D 53 4C 44 20 20 20 20 20 20 4C 44 |----.SLD LD| 00005A20: 59 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 20 20 |Y SECPOS,X. | 00005A30: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00005A40: 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 | LDA #0. | 00005A50: 20 53 54 41 20 47 4C 49 44 45 4C 2C 58 0D 20 20 | STA GLIDEL,X. | 00005A60: 20 20 20 20 20 20 20 53 54 41 20 47 4C 49 44 45 | STA GLIDE| 00005A70: 48 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |H,X. LDA| 00005A80: 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #1. STA| 00005A90: 20 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 | CONT,X. | 00005AA0: 20 4C 44 41 20 4E 4F 54 45 56 2C 58 0D 20 20 20 | LDA NOTEV,X. | 00005AB0: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 00005AC0: 20 20 20 53 54 41 20 47 4C 46 52 4F 4D 2C 58 0D | STA GLFROM,X.| 00005AD0: 20 20 20 20 20 20 20 20 20 44 45 43 20 53 45 43 | DEC SEC| 00005AE0: 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 20 4A |POS,X. J| 00005AF0: 4D 50 20 47 4C 53 4C 0D 3B 2D 2D 2D 2D 2D 2D 2D |MP GLSL.;-------| 00005B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005B20: 0D 56 49 42 52 20 20 20 20 20 4C 44 41 20 45 46 |.VIBR LDA EF| 00005B30: 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |FLO,X. S| 00005B40: 54 41 20 56 41 44 44 4C 2C 58 0D 20 20 20 20 20 |TA VADDL,X. | 00005B50: 20 20 20 20 53 54 41 20 56 41 44 44 4C 31 2C 58 | STA VADDL1,X| 00005B60: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 45 46 |. LDA EF| 00005B70: 46 48 49 2C 58 0D 20 20 20 20 20 20 20 20 20 41 |FHI,X. A| 00005B80: 4E 44 20 23 24 30 46 0D 20 20 20 20 20 20 20 20 |ND #$0F. | 00005B90: 20 53 54 41 20 56 41 44 44 48 2C 58 0D 20 20 20 | STA VADDH,X. | 00005BA0: 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 | LSR A. | 00005BB0: 20 20 20 20 20 53 54 41 20 56 41 44 44 48 31 2C | STA VADDH1,| 00005BC0: 58 0D 20 20 20 20 20 20 20 20 20 52 4F 52 20 56 |X. ROR V| 00005BD0: 41 44 44 4C 31 2C 58 0D 20 20 20 20 20 20 20 20 |ADDL1,X. | 00005BE0: 20 4C 44 41 20 45 46 46 48 49 2C 58 0D 20 20 20 | LDA EFFHI,X. | 00005BF0: 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 | LSR A. | 00005C00: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 00005C10: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00005C20: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00005C30: 20 20 53 54 41 20 56 53 50 45 45 44 2C 58 0D 20 | STA VSPEED,X. | 00005C40: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00005C50: 20 20 20 20 20 20 20 53 54 41 20 56 53 50 45 45 | STA VSPEE| 00005C60: 44 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |D1,X. LD| 00005C70: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST| 00005C80: 41 20 56 49 4C 4F 2C 58 0D 20 20 20 20 20 20 20 |A VILO,X. | 00005C90: 20 20 53 54 41 20 56 49 48 49 2C 58 0D 20 20 20 | STA VIHI,X. | 00005CA0: 20 20 20 20 20 20 53 54 41 20 56 49 46 49 52 53 | STA VIFIRS| 00005CB0: 54 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |T,X. STA| 00005CC0: 20 56 44 49 52 2C 58 0D 20 20 20 20 20 20 20 20 | VDIR,X. | 00005CD0: 20 4A 4D 50 20 4E 4F 46 58 0D 0D 0D 3B 2D 2D 2D | JMP NOFX...;---| 00005CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005D00: 2D 2D 2D 2D 0D 54 52 41 4B 4B 20 20 20 20 2E 57 |----.TRAKK .W| 00005D10: 4F 52 44 20 54 52 31 2C 54 52 32 2C 54 52 33 0D |ORD TR1,TR2,TR3.| 00005D20: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00005D30: 30 30 3B 53 50 45 45 44 0D 20 20 20 20 20 20 20 |00;SPEED. | 00005D40: 20 20 2E 42 59 54 45 20 24 30 46 3B 56 4F 4C 55 | .BYTE $0F;VOLU| 00005D50: 4D 45 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ME..;-----------| 00005D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 45 43 |------------.SEC| 00005D80: 4C 4F 20 20 20 20 2E 42 59 54 45 20 3C 53 30 30 |LO .BYTE <S00| 00005D90: 2C 3C 53 30 31 2C 3C 53 30 32 0D 0D 53 45 43 48 |,<S01,<S02..SECH| 00005DA0: 49 20 20 20 20 2E 42 59 54 45 20 3E 53 30 30 2C |I .BYTE >S00,| 00005DB0: 3E 53 30 31 2C 3E 53 30 32 0D 0D 3B 2D 2D 2D 2D |>S01,>S02..;----| 00005DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005DE0: 2D 2D 2D 0D 3B 43 4F 4D 4D 41 4E 44 53 0D 20 20 |---.;COMMANDS. | 00005DF0: 20 20 20 20 20 20 20 3B 24 46 46 20 58 58 20 20 | ;$FF XX | 00005E00: 20 20 4C 4F 4F 50 20 58 58 0D 20 20 20 20 20 20 | LOOP XX. | 00005E10: 20 20 20 3B 24 46 45 20 20 20 20 20 20 20 53 54 | ;$FE ST| 00005E20: 4F 50 20 56 4F 49 43 45 0D 20 20 20 20 20 20 20 |OP VOICE. | 00005E30: 20 20 3B 24 46 44 20 58 58 20 20 20 20 54 52 41 | ;$FD XX TRA| 00005E40: 4E 53 50 4F 53 45 20 2B 58 58 0D 20 20 20 20 20 |NSPOSE +XX. | 00005E50: 20 20 20 20 3B 24 46 43 20 58 58 20 20 20 20 54 | ;$FC XX T| 00005E60: 52 41 4E 53 50 4F 53 45 20 2D 58 58 0D 20 20 20 |RANSPOSE -XX. | 00005E70: 20 20 20 20 20 20 3B 24 46 42 20 58 58 20 20 20 | ;$FB XX | 00005E80: 20 46 41 44 45 49 4E 20 20 58 58 0D 20 20 20 20 | FADEIN XX. | 00005E90: 20 20 20 20 20 3B 24 46 41 20 58 58 20 20 20 20 | ;$FA XX | 00005EA0: 46 41 44 45 4F 55 54 20 58 58 0D 20 20 20 20 20 |FADEOUT XX. | 00005EB0: 20 20 20 20 3B 24 45 58 20 20 20 20 20 20 20 56 | ;$EX V| 00005EC0: 4F 4C 55 4D 45 20 58 0D 0D 3B 2D 2D 2D 2D 2D 2D |OLUME X..;------| 00005ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005EF0: 2D 0D 54 52 31 20 20 20 20 20 20 2E 42 59 54 45 |-.TR1 .BYTE| 00005F00: 20 24 46 44 2C 30 2C 30 2C 24 46 46 2C 30 0D 0D | $FD,0,0,$FF,0..| 00005F10: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00005F20: 46 41 2C 24 30 44 2C 30 2C 30 2C 24 46 41 2C 30 |FA,$0D,0,0,$FA,0| 00005F30: 2C 30 2C 30 0D 20 20 20 20 20 20 20 20 20 2E 42 |,0,0. .B| 00005F40: 59 54 45 20 24 46 43 2C 24 30 34 0D 20 20 20 20 |YTE $FC,$04. | 00005F50: 20 20 20 20 20 2E 42 59 54 45 20 24 46 42 2C 24 | .BYTE $FB,$| 00005F60: 30 44 2C 30 2C 30 2C 30 2C 30 0D 20 20 20 20 20 |0D,0,0,0,0. | 00005F70: 20 20 20 20 2E 42 59 54 45 20 24 46 43 2C 24 30 | .BYTE $FC,$0| 00005F80: 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |0. .BYTE| 00005F90: 20 24 46 46 2C 24 30 30 0D 0D 54 52 32 0D 20 20 | $FF,$00..TR2. | 00005FA0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 45 | .BYTE $FE| 00005FB0: 2C 24 46 46 2C 24 30 30 0D 0D 54 52 33 0D 20 20 |,$FF,$00..TR3. | 00005FC0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 45 | .BYTE $FE| 00005FD0: 2C 24 46 46 2C 24 30 30 0D 3B 2D 2D 2D 2D 2D 2D |,$FF,$00.;------| 00005FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006000: 2D 0D 3B 43 4F 4D 4D 41 4E 44 53 20 20 24 46 44 |-.;COMMANDS $FD| 00006010: 2E 58 58 20 20 20 44 55 52 20 58 58 0D 20 20 20 |.XX DUR XX. | 00006020: 20 20 20 20 20 20 20 3B 24 46 43 2E 58 58 20 20 | ;$FC.XX | 00006030: 20 53 4E 44 20 58 58 0D 20 20 20 20 20 20 20 20 | SND XX. | 00006040: 20 20 3B 24 46 45 20 20 20 20 20 20 43 4F 4E 54 | ;$FE CONT| 00006050: 28 2D 2D 2D 29 0D 20 20 20 20 20 20 20 20 20 20 |(---). | 00006060: 3B 24 46 42 20 20 20 20 20 20 47 41 54 45 0D 20 |;$FB GATE. | 00006070: 20 20 20 20 20 20 20 20 20 3B 24 46 41 20 20 20 | ;$FA | 00006080: 20 20 20 53 57 49 54 43 48 0D 20 20 20 20 20 20 | SWITCH. | 00006090: 20 20 20 20 3B 24 46 39 20 20 20 20 20 20 43 55 | ;$F9 CU| 000060A0: 54 0D 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T....;----------| 000060B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000060C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 30 |-------------.S0| 000060D0: 30 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 44 |0 .BYTE $FD| 000060E0: 2C 24 31 38 0D 20 20 20 20 20 20 20 20 20 2E 42 |,$18. .B| 000060F0: 59 54 45 20 24 46 43 2C 24 30 30 0D 20 20 20 20 |YTE $FC,$00. | 00006100: 20 20 20 20 20 2E 42 59 54 45 20 24 34 30 2C 24 | .BYTE $40,$| 00006110: 46 45 2C 24 43 30 2C 24 46 45 2C 24 43 31 2C 24 |FE,$C0,$FE,$C1,$| 00006120: 39 34 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |94. .BYT| 00006130: 45 20 24 46 45 2C 24 46 45 0D 20 20 20 20 20 20 |E $FE,$FE. | 00006140: 20 20 20 2E 42 59 54 45 20 24 46 46 0D 0D 53 30 | .BYTE $FF..S0| 00006150: 31 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 44 |1 .BYTE $FD| 00006160: 2C 24 30 43 0D 20 20 20 20 20 20 20 20 20 2E 42 |,$0C. .B| 00006170: 59 54 45 20 24 46 43 2C 24 30 31 0D 20 20 20 20 |YTE $FC,$01. | 00006180: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 | .BYTE $00,$| 00006190: 46 45 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |FE. .BYT| 000061A0: 45 20 24 46 43 2C 24 30 32 0D 20 20 20 20 20 20 |E $FC,$02. | 000061B0: 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 46 45 | .BYTE $00,$FE| 000061C0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000061D0: 24 46 46 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 |$FF.... | 000061E0: 2E 42 59 54 45 20 24 46 46 0D 0D 53 30 32 20 20 |.BYTE $FF..S02 | 000061F0: 20 20 20 20 2E 42 59 54 45 20 24 46 44 2C 24 33 | .BYTE $FD,$3| 00006200: 30 2C 24 46 43 2C 24 30 33 0D 20 20 20 20 20 20 |0,$FC,$03. | 00006210: 20 20 20 2E 42 59 54 45 20 24 33 30 0D 20 20 20 | .BYTE $30. | 00006220: 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 46 0D | .BYTE $FF.| 00006230: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00006240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 49 4E 53 54 52 |---------.;INSTR| 00006260: 55 4D 45 4E 54 20 44 41 54 41 0D 3B 2D 2D 2D 2D |UMENT DATA.;----| 00006270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006290: 2D 2D 2D 0D 41 44 54 41 42 20 20 20 20 2E 42 59 |---.ADTAB .BY| 000062A0: 54 45 20 24 30 32 2C 24 30 35 2C 24 30 32 2C 24 |TE $02,$05,$02,$| 000062B0: 30 30 0D 53 52 54 41 42 20 20 20 20 2E 42 59 54 |00.SRTAB .BYT| 000062C0: 45 20 24 41 41 2C 24 46 37 2C 24 38 37 2C 24 35 |E $AA,$F7,$87,$5| 000062D0: 39 0D 57 41 56 50 54 41 42 20 20 2E 42 59 54 45 |9.WAVPTAB .BYTE| 000062E0: 20 24 30 30 2C 24 30 33 2C 24 30 39 2C 24 30 46 | $00,$03,$09,$0F| 000062F0: 0D 50 55 4C 50 54 41 42 20 20 2E 42 59 54 45 20 |.PULPTAB .BYTE | 00006300: 24 30 30 2C 24 30 36 2C 24 30 38 2C 24 30 36 0D |$00,$06,$08,$06.| 00006310: 46 49 4C 50 54 41 42 20 20 2E 42 59 54 45 20 24 |FILPTAB .BYTE $| 00006320: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 0D 45 |00,$00,$00,$00.E| 00006330: 46 46 54 41 42 20 20 20 2E 42 59 54 45 20 24 30 |FFTAB .BYTE $0| 00006340: 30 2C 24 30 30 2C 24 30 30 2C 24 30 31 3B 58 59 |0,$00,$00,$01;XY| 00006350: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00006360: 20 20 20 20 20 20 20 20 3B 58 3D 0D 20 20 20 20 | ;X=. | 00006370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00006380: 20 20 20 3B 59 3D 57 56 53 50 45 45 44 0D 0D 0D | ;Y=WVSPEED...| 00006390: 57 41 56 45 54 41 42 20 20 2E 42 59 54 45 20 24 |WAVETAB .BYTE $| 000063A0: 38 39 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |89. .BYT| 000063B0: 45 20 24 34 31 2C 24 39 31 0D 20 20 20 20 20 20 |E $41,$91. | 000063C0: 20 20 20 2E 42 59 54 45 20 24 38 39 2C 24 31 39 | .BYTE $89,$19| 000063D0: 2C 24 31 39 2C 24 31 39 2C 24 31 38 2C 24 39 31 |,$19,$19,$18,$91| 000063E0: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 000063F0: 24 38 39 2C 24 34 39 2C 24 38 39 2C 24 34 38 2C |$89,$49,$89,$48,| 00006400: 24 38 38 2C 24 39 31 0D 20 20 20 20 20 20 20 20 |$88,$91. | 00006410: 20 2E 42 59 54 45 20 24 32 31 2C 24 32 31 2C 24 | .BYTE $21,$21,$| 00006420: 32 31 2C 24 39 30 0D 0D 46 52 45 51 54 41 42 0D |21,$90..FREQTAB.| 00006430: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00006440: 44 44 2C 24 30 30 2C 24 30 30 0D 20 20 20 20 20 |DD,$00,$00. | 00006450: 20 20 20 20 2E 42 59 54 45 20 24 44 44 2C 24 30 | .BYTE $DD,$0| 00006460: 41 2C 24 30 37 2C 24 30 34 2C 24 30 32 2C 24 30 |A,$07,$04,$02,$0| 00006470: 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |0. .BYTE| 00006480: 20 24 44 44 2C 24 30 45 2C 24 34 43 2C 24 30 41 | $DD,$0E,$4C,$0A| 00006490: 2C 24 33 43 2C 24 30 30 0D 20 20 20 20 20 20 20 |,$3C,$00. | 000064A0: 20 20 2E 42 59 54 45 20 24 30 30 2C 24 30 33 2C | .BYTE $00,$03,| 000064B0: 24 30 37 2C 24 30 46 0D 0D 50 55 4C 53 54 41 42 |$07,$0F..PULSTAB| 000064C0: 31 20 2E 42 59 54 45 20 24 30 33 2C 24 30 30 2C |1 .BYTE $03,$00,| 000064D0: 24 30 30 2C 24 46 46 2C 24 30 30 2C 24 39 30 0D |$00,$FF,$00,$90.| 000064E0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 000064F0: 30 30 2C 24 39 31 0D 20 20 20 20 20 20 20 20 20 |00,$91. | 00006500: 2E 42 59 54 45 20 24 30 38 2C 24 39 31 0D 0D 50 |.BYTE $08,$91..P| 00006510: 55 4C 53 54 41 42 32 20 2E 42 59 54 45 20 24 46 |ULSTAB2 .BYTE $F| 00006520: 30 2C 24 32 30 2C 24 32 30 2C 24 45 30 2C 24 32 |0,$20,$20,$E0,$2| 00006530: 30 2C 24 30 31 0D 20 20 20 20 20 20 20 20 20 2E |0,$01. .| 00006540: 42 59 54 45 20 24 30 30 2C 24 30 30 0D 20 20 20 |BYTE $00,$00. | 00006550: 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C | .BYTE $00,| 00006560: 24 30 30 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |$00...;---------| 00006570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |--------------..|
;64'ER MUSIC PLAYER V.09.;ALL CODING AND
DESIGN BY THE SYNDROM.;----------------
-----------------------. *= $0F0
0. SEI. LDA #$00.
JSR INIT.RT LDA #$42. CM
P $D012. BNE RT. INC $D0
20. JSR PLAY. DEC $D020.
LDA $DC01. AND #$10.
BNE RT. JMP $9000.;-------
--------------------------------.
*= $1000.. JMP INIT. J
MP PLAY. JMP PLAY2.;------------
---------------------------.FILTYP .BY
TE $00.FILCON .BYTE $00.FILFREQL .BYTE
$00.FILFREQH .BYTE $00.VOLUME .BYTE $
00.RESONANCE .BYTE $00.SPEED .BYTE $0
0.SPEED1 .BYTE $00.MULTI .BYTE $00.
IDENTIFY .BYTE $00.FADE .BYTE $00.FA
DETIME .BYTE $00.FILTRS .BYTE $00.HARD
VAL .BYTE $0F ;(XY: X=8->KEEP AD.
; X=0-> AD=Y).
.BYTE $00,0,0,0 ;YET EMPTY. .BYT
E $00,0,0,0,0. .TEXT "-PLAYER &
MUSIC BY THE ". .TEXT "SYNDROM!-
".;-------------------------------------
--.DUR .BYTE $00.DURAT .BYTE $00
.SND .BYTE $00.AD .BYTE $00.S
R .BYTE $00.ON .BYTE $00.VDI
R .BYTE $00. .BYTE $00,0,0,0
,0,0,0 ;7 BYTES. .BYTE $00,0,0,
0,0,0,0 ;7 BYTES.TRPOS .BYTE $00.TRA
CKL .BYTE $00.TRACKH .BYTE $00.SECPO
S .BYTE $00.WAVE .BYTE $00.FILPOS
.BYTE $00.PUPOS .BYTE $00.
.BYTE $00,0,0,0,0,0,0 ; -"-. .B
YTE $00,0,0,0,0,0,0 ; -"-.ANDOR .BYT
E $00.CONT .BYTE $00.TRPOSE .BYTE
$00.FINE .BYTE $00.WAVEPOS .BYTE $0
0.SWITCH .BYTE $00.NOPU .BYTE $00.
.BYTE $00,0,0,0,0,0,0 ; -"-.
.BYTE $00,0,0,0,0,0,0 ; -"-.VSPE
ED .BYTE $00.VADDL .BYTE $00.VADDH
.BYTE $00.SVOL .BYTE $00.GLIDEH
.BYTE $00.GLIDEL .BYTE $00.GLL .
BYTE $00. .BYTE $00,0,0,0,0,0,0
; -"-. .BYTE $00,0,0,0,0,0,0 ;
-"-.GLH .BYTE $00.GLTO .BYTE $
00.GLFROM .BYTE $00.GLDEL .BYTE $00
.GLDEH .BYTE $00.NOTEOK .BYTE $00.D
RUM .BYTE $00. .BYTE $00,0,0
,0,0,0,0 ; -"-. .BYTE $00,0,0,0
,0,0,0 ; -"-.PULSLO .BYTE $00.PULSHI
.BYTE $00.PULSFRM .BYTE $00.PULSADDL
.BYTE $00.PULSADDH .BYTE $00.SWITCH2 .B
YTE $00.CUT .BYTE $00. .BYT
E $00,0,0,0,0,0,0 ; -"-. .BYTE
$00,0,0,0,0,0,0 ; -"-.SNDN .BYTE $0
0.EFFHI .BYTE $00.EFFLO .BYTE $00.
PCONT .BYTE $00.WVSPEED .BYTE $00.HA
RDON .BYTE $00.NOTEV .BYTE $00.
.BYTE $00,0,0,0,0,0,0 ; -"-.
.BYTE $00,0,0,0,0,0,0 ; -"-.WVSPEED1
.BYTE $00.VSPEED1 .BYTE $00.VADDL1 .
BYTE $00.VADDH1 .BYTE $00.VILO .BY
TE $00.VIHI .BYTE $00.VIFIRST .BYTE
$00. .BYTE $00,0,0,0,0,0,0 ; -
"-. .BYTE $00,0,0,0,0,0,0 ; -"-
....MARK .BYTE $00.....;------------
---------------------------.INIT ASL
A. ASL A. ASL A.
TAY. LDX #$00. TXA.INI
TCL STA DUR,X ;CLEAR DATA.
INX. CPX #MARK-DUR. BNE
INITCL. LDX #$00 ;PREPARE
POINTERS.TRFILL LDA TRAKK,Y. S
TA TRACKL,X. LDA TRAKK+1,Y.
STA TRACKH,X. LDA #9
;RESET VOICES. STA $D404,X.
STA ON,X. LDA #0. ST
A AD,X. STA SR,X. LDA #$
02 ;STARTVALUES. STA DURAT,
X. LDA #$FF. STA WVSPEED
1,X. LDA #0. STA HARDON,
X. LDA #1. STA ANDOR,X.
INY. INY. TXA.
CLC. ADC #7 ;0-7-1
4-LOOP. TAX. CPX #21.
BNE TRFILL. LDA TRAKK,Y.
STA SPEED. LDA #0.
STA SPEED1. LDA TRAKK+1,Y.
STA VOLUME. RTS.;----------
-----------------------------.PLAY L
DA $F8 ;SAVE USED. PHA
;ZEROPAGE TO STACK. LDA $F9
. PHA. DEC SPEED1 ;MAIN
-SPEED-CONTROL. BPL NEW1.
LDA SPEED. STA SPEED1.NEW1
LDX #0. JSR VOICE. LDX
#7. JSR VOICE. LDX #14.
JSR VOICE. LDA FADE
;VOLUME-FADE. BEQ NOFADE ;ACTI
VE ?. DEC FADETIME. LDA
FADETIME. BNE NOFADE.FTIME LD
A #0 ;DIRECT CODE. STA FAD
ETIME ;ACCESSED. LDA VOLUME.
CLC. ADC FADE. STA
VOLUME. CMP #$FF ;LOWER STOP
. BEQ FADESTOP. CMP #$10
. BNE NOFADE ;UPPER STOP.
LDA #$0F. STA VOLUME.
BNE NOFADE..FADESTOP LDA #0. S
TA FADE. STA VOLUME.NOFADE LDA
VOLUME ;PERMANENT. ORA FILTY
P ;CONTROLS. STA $D418.
LDA FILCON. ORA RESONANCE.
STA $D417. LDA FILFREQL.
STA $D415. LDA FILFREQH.
STA $D416. PLA
;REWRITE ZERO-. STA $F9 ;
PAGE. PLA. STA $F8.
RTS.;-------------------------------
--------.VOICE LDA ON,X ;VOICE A
CTIVE?. BNE VOION. RTS.V
OION LDA SPEED1 ;NEW DURATION-.
CMP SPEED ;FRAME ?. BEQ NE
W ;.. JMP VOICE3;HR-CHECK FO
R LOW. ;SPEEDS NECESSA
RY.NEW DEC DURAT,X ;NEW COMMAND-.
BEQ NEW3 ;FRAME ?. JMP
VOICE3.;-------------------------------
--------.;TRACK-CONTROL-ROUTINES.;------
---------------------------------.;COMMA
NDS. ;$FF XX LOOP XX.
;$FE STOP VOICE. ;$FD XX
TRANSPOSE +XX. ;$FC XX TRA
NSPOSE -XX. ;$FB XX FADEIN X
X. ;$FA XX FADEOUT XX.
;$EX VOLUME X.;-----------------
----------------------.NEW3 LDA TRAC
KL,X ;SET POINTERS. STA $F8.
LDA TRACKH,X. STA $F9.;----
-----------------------------------.;CHE
CK TRACK-COMMANDS.;---------------------
------------------.READ LDY TRPOS,X.
LDA ($F8),Y. BPL NOCOM
;SECTOR OR COMMAND?. CMP #$FF
;END. BNE COM1. IN
Y. LDA ($F8),Y. STA TRPO
S,X. TAY. JMP READ+3.COM
1 CMP #$FE ;STOP. BNE
COM2. LDA #0. STA ON,X.
RTS.COM2 CMP #$FD ;TR+
XX. BNE COM3. INY.
LDA ($F8),Y.DAZU STA TRPOSE,X.
INY. TYA. STA TRPO
S,X. JMP READ+3.COM3 CMP #$F
C ;TR-XX. BNE COM4.
INY. LDA ($F8),Y. EOR
#$FF. CLC. ADC #$01.
JMP DAZU.COM4 CMP #$FB ;F
D+XX. BNE COM5. INY.
LDA ($F8),Y. STA FADETIME.
STA FTIME+1. LDA #1.
STA FADE. JMP DAZU+3.COM5
CMP #$FA ;FD-XX. BNE CO
M6. INY. LDA ($F8),Y.
STA FADETIME. STA FTIME+1.
LDA #$FF. STA FADE.
JMP DAZU+3.COM6 CMP #$E0.
BCC COM7. CMP #$F0 ;MVL
.X. BCS COM7. AND #$0F.
STA VOLUME. INC TRPOS,X.
COM7 JMP READ.;---------------------
------------------.;SECTOR-CONTROL.;COMM
ANDS $FD.XX DUR XX. ;$FC.XX
SND XX. ;$FE CONT(---).
;$FB GATE. ;$FA
SWITCH. ;$F9 CUT.;----
-----------------------------------.NOCO
M TAY ;SET POINTERS.
LDA SECLO,Y. STA $F8. L
DA SECHI,Y. STA $F9.READ3 LDY
SECPOS,X. LDA ($F8),Y ;COMMAND
OR. CMP #$C0 ;NOTE ?.
BCS NNOTE ;. PHA.
LDA #0. STA GLL,X. STA G
LH,X. STA GLIDEL,X. STA
GLIDEH,X. STA VSPEED,X.
STA VILO,X. STA VIHI,X..
PLA. JMP NOTE.NNOTE. CM
P #$FF ;END. BNE SCOM1.
INC TRPOS,X. LDA #0.
STA SECPOS,X. LDA SWITCH,X
;NO CUT IF SWITCH. BNE NOWRAP
;IS ACTIVE. LDA #$FF. S
TA WVSPEED1,X. LDA #$00.
STA WAVE,X.NOWRAP JMP NEW3.SCOM1 C
MP #$F9. BCS SCOM1A. JMP
SCOM7.SCOM1A CMP #$FE ;---.
BNE SCOM2.NOTE3 INY. TYA.
STA SECPOS,X. LDA #1.
STA CONT,X. JMP NOTE2.SCOM
2 CMP #$FD ;DUR.XX. BNE S
COM3. INY. LDA ($F8),Y.
STA DUR,X. STA DURAT,X.D
AZU4 INY. TYA. STA SE
CPOS,X. JMP READ3+3.SCOM3 CMP
#$FC ;SND.XX. BNE SCOM4.
INY. LDA ($F8),Y.
STA SND,X. STA SNDN,X. J
MP DAZU4.SCOM4 CMP #$FB ;GATE.
BNE SCOM5. LDA #1.
EOR ANDOR,X. STA ANDOR,X.
JMP NOTE3....SCOM5 CMP #$FA ;S
WITCH. BNE SCOM6. LDA #1
. EOR SWITCH,X. STA SWIT
CH,X.NOFX INC SECPOS,X. JMP
READ3..SCOM6 CMP #$F9 ;CUT.
BNE SCOM7. LDA DUR,X.
STA DURAT,X. LDA #8 ;RESE
TS VOICE. STA $D404,X ;+ VOICE
ROUTINES. STA WAVE,X ;TO SAVE R
ASTERTIME. LDA #$00. STA
$D405,X. STA $D406,X. S
TA AD,X. STA SR,X. LDA #
$FF. STA WVSPEED1,X. LDA
#1. STA CUT,X. INC SECP
OS,X. JMP HRCHECK.SCOM7 AND #
$3F ;SUPERCOMMANDS. TAY.
LDA COMMTAB1,Y. STA EFFHI,X.
LDA COMMTAB2,Y. STA EFF
LO,X. LDA COMMTAB,Y. ASL
A. TAY. LDA COMMTAB3,Y.
STA JUMP+1. LDA COMMTAB
3+1,Y. STA JUMP+2..JUMP JMP
READ3...NOTE CMP #$60 ;COUNT NOTEV
ALUE. BCC NORMAL. SEC.
SBC #$60.NORMAL CLC. AD
C TRPOSE,X. STA NOTEV,X ;NEW NOT
E. STA NOTEOK,X. INC SEC
POS,X.NOTE2.. LDA DUR,X ;PREVIO
US NOTE. STA DURAT,X. LD
A #0. STA CUT,X. LDA SWI
TCH,X. BNE SWON. LDA CON
T,X. BNE SWON. LDA #1.
STA ANDOR,X. LDY SND,X.
;LDA HARDON,X. ;BNE NOCONTI
. ;THIS FRAME.
LDA ADTAB,Y;SETS THE NEW. STA
AD,X ;ADSR-SETTINGS. STA $D405
,X;= BEGINNING OF A. LDA SVOL,X.
BEQ SS1. LDA SR,X.
AND #$0F. ORA SVOL,X.
BNE SS2.SS1 LDA SRTAB,Y;NEW NOTE
= MAX..SS2 STA SR,X ;RASTERTIME.
STA $D406,X. JMP NOCONTI
.SS LDA CONT,X. BEQ NOCONT
I..SWON JSR PLAY3. JMP NOCON
T.NOCONTI LDA WAVPTAB,Y. STA WA
VEPOS,X. TYA. PHA.
LDY WAVEPOS,X ;SETS WAVE. LDA
WAVETAB,Y ;(FIRST ROW). PHA.
AND #$F7. STA WAVE,X.
STA $D404,X ;CHECK FOR. PL
A ;DRUM-MODE. AND #$08
. STA DRUM,X. BEQ NODRUM
2. LDA FREQTAB,Y. STA $D
401,X. LDA #0. STA $D400
,X. JMP NONON.NODRUM2 LDA FREQT
AB,Y. CLC. ADC NOTEV,X.
STA NOTEOK,X. TAY.
LDA FRQLO,Y. CLC. ADC
FINE,X. STA $D400,X. LD
A FRQHI,Y. ADC #0. STA $
D401,X.NONON PLA. TAY.
LDA EFFTAB,Y. AND #$0F.
STA WVSPEED,X. STA WVSPEED1,X.
INC WAVEPOS,X. LDA PCON
T,X. BNE FILLL. LDA #0.
STA NOPU,X.;--------------------
-------------------. LDA PULPTAB
,Y ;PULSE-ROUTINE. TAY
;INIT. CLC. ADC #1.
STA PUPOS,X. LDA PULSTAB1
,Y. STA PULSHI,X. STA $D
403,X. LDA PULSTAB2,Y. S
TA PULSLO,X. STA $D402,X.
LDA #0. STA PULSFRM,X.
LDY SND,X.FILLL LDA FILPTAB,Y.
STA FILPOS,X.NOCONT LDA #0.
STA CONT,X. LDA HARDON,X.
BEQ HRCHECK.. LDA #1.
STA ANDOR,X..HRCHECK LDY SECPOS,X ;CH
ECKING NEXT.HRCHECK2 LDA ($F8),Y ;SECT
ORDATA FOR. CMP #$FF ;HARDR
ESTART ON. ;OR OFF
. BEQ ONYES ;USER CAN MANIPULAT
E.NOEND CMP #$60 ;THIS (ONYES/ONNO)
. BCC ONYES ;(NEW SECTOR HR).
CMP #$C0. BCC ONNO.
CMP #$FE. BEQ ONNO. C
MP #$FB. BEQ ONNO. CMP #
$F9. BEQ ONNO. CMP #$FC.
BNE SWI1. INY.
LDA ($F8),Y. STA SNDN,X.
DEY. LDA #$FC.SWI1. CMP
#$FA. BNE SWI. LDA #1.
EOR SWITCH,X. STA SWITCH
2,X. JMP PLUS1...SWI CMP #$
FC. BCC PLUS1. INY.PLUS1
INY. BNE HRCHECK2..ONNO
LDA #0. BEQ HRSET.ONYES LDA #
1.HRSET STA HARDON,X. LDA SWI
TCH2,X. BEQ OND. LDA #0.
STA HARDON,X.OND. RTS.;
---------------------------------------.
;HARD-RESTART-ROUTINE.;-----------------
----------------------.VOICE3 LDA SPEE
D. BNE NOSPEED0. LDA DUR
AT,X. CMP #$04. BCS NICH
TS. CMP #$01. BEQ FRAME1
. ;FRAME 2+1.FRAME2
LDA HARDON,X. BEQ NICHTS.
JSR PLAY3. LDA HARDVAL.
BPL HRSETT. LDA AD,X.HRSETT
STA $D405,X. LDA SR,X.
AND #$F0. STA $D406,X. L
DA WAVE,X. AND #$FE. STA
$D404,X... RTS.FRAME1 LDA HAR
DON,X. BEQ NICHTS. LDY S
NDN,X ;THIS FRAME. LDA ADTAB,Y;
SETS THE NEW. STA AD,X ;ADSR-S
ETTINGS. STA $D405,X;= BEGINNING
OF A. LDA SRTAB,Y;NEW NOTE = MA
X.. STA SR,X ;RASTERTIME.
STA $D406,X. LDA #$09.
STA $D404,X... RTS..NOSPEED0.
CMP #1. BNE SP2.SPP
LDA SPEED1. BEQ SP1. L
DA DURAT,X. CMP #1. BEQ
FRAME2. JMP NICHTS.SP1.
LDA DURAT,X. CMP #3. BCS
NICHTS. CMP #1. BEQ FRA
ME1. JMP FRAME2..SP2 LDA DU
RAT,X. CMP #$01. BNE NIC
HTS. LDA SPEED1. BEQ FRA
ME1. CMP #3. BCC FRAME2.
NICHTS JMP PLAY3.;--------------------
-------------------.; ADSR-ROUTIN
ES.;------------------------------------
---.PLAY2 LDX #$00. JSR PLAY3
. LDX #7. JSR PLAY3.
LDX #14.;--------------------------
-------------.PLAY3.;-------------------
--------------------.;WAVE-FREQ-TABLE-HA
NDLING.;--------------------------------
-------. LDA CUT,X. BEQ
TON. RTS.TON.;------------------
---------------------.;VIB/SLIDE/ETC..;-
--------------------------------------.;
GLIDE. LDA GLL,X. BNE GL
Y ;CHECK IF GLIDE. LDA GLH,
X ;ACTIVE. BNE GLY. J
MP NOGLI.GLY. LDA #0. ST
A VSPEED,X. STA VILO,X ;ADD V
ALUES. STA VIHI,X ;DISABLE VI
BR.. CLC. LDA GLIDEL,X.
ADC GLL,X. STA GLIDEL,X.
LDA GLIDEH,X. ADC GLH,X
. STA GLIDEH,X.. LDA GLH
,X. BMI GLUP1. LDY NOTEV
,X ;REACHED. LDA FRQLO,Y ;DE
STINATION. CLC ;FREQUE
NCE?. ADC GLIDEL,X ;(UPGLIDE).
PHA. LDA FRQHI,Y.
ADC GLIDEH,X. CMP GLDEH,X.
BCC GLUP2. BNE GLUPEN1.GLUP
4 PLA. CMP GLDEL,X. B
CC NOGLI...GLUPEN LDA #0 ;STOP
GLIDE. STA GLIDEL,X. STA
GLIDEH,X. STA GLL,X. ST
A GLH,X. LDA GLTO,X. STA
NOTEV,X. STA NOTEOK,X.
BEQ NOGLI..GLUP1. LDY NOTEV,X.
LDA FRQLO,Y ;CHECK DESTIN..
CLC ;FOR DOWNGLIDE.
ADC GLIDEL,X. PHA. LD
A FRQHI,Y. ADC GLIDEH,X.
CMP GLDEH,X. BCC GLUPEN1.
BNE GLUP2. PLA. CMP G
LDEL,X. BCS NOGLI. BCC G
LUPEN.GLUPEN1 PLA. JMP GLUPEN..
..GLUP2 PLA.;------------------------
---------------.;VIBRATO.;--------------
-------------------------.NOGLI LDA V
SPEED,X. BEQ NOVIB.. AND
#1. BNE NVIB. INC VIFIR
ST,X.NVIB LDA VDIR,X ;CHECK DIRE
CT.. BNE VIDO ;VIB. UP.
LDA VIFIRST,X. BNE VI1.
INC VIFIRST,X ;HALFVALUE?.
LDA VADDL1,X. CLC. ADC
VILO,X. STA VILO,X ;ADD HAL
F. LDA VADDH1,X. ADC VIH
I,X. STA VIHI,X. JMP VI2
.VI1 LDA VADDL,X ;ADD FULL.
CLC. ADC VILO,X. STA
VILO,X. LDA VADDH,X. AD
C VIHI,X. STA VIHI,X.VI2 IN
C VSPEED1,X. LDA VSPEED1,X ;DIR
.TURN?. CMP VSPEED,X. BN
E VI3.VI4 LDA #1. EOR VDIR,
X. STA VDIR,X.VI3 JMP NOVIB
.VIDO LDA VILO,X ;VIB. DOWN.
SEC. SBC VADDL,X. S
TA VILO,X ;SBC FULL. LDA VIH
I,X. SBC VADDH,X. STA VI
HI,X. DEC VSPEED1,X. BEQ
VI4. JMP NOVIB....NOVIB.;------
---------------------------------.;WAVE/
FILT/PULSE.;----------------------------
-----------. LDA WVSPEED1,X ;NEW
ROW ?. CMP #$FF. BEQ NO
CHNICH. DEC WVSPEED1,X.
BPL NOCHNICH. LDA WVSPEED,X.
STA WVSPEED1,X.NEWREAD LDY WAVEPOS
,X. INC WAVEPOS,X. LDA W
AVETAB,Y. CMP #$91 ;CHECK S
TOP. BEQ SCHLUSS. CMP #$
90 ;CHECK LOOP. BNE NEXTSTE
P. LDA FREQTAB,Y. STA WA
VEPOS,X. JMP NEWREAD.NEXTSTEP PH
A. AND #$F7 ;CHECK DRUMMODE.
STA WAVE,X. PLA.
AND #$08. STA DRUM,X.
BEQ NODRUM. LDA FREQTAB,Y.
STA NOTEOK,X. JMP NOCHNICH.NO
DRUM LDA FREQTAB,Y. CLC.
ADC NOTEV,X. STA NOTEOK,X.
JMP NOCHNICH...SCHLUSS LDA #$FF
;STOP MARK. STA WVSPEED1,X.
LDA WAVE,X. AND #$40.
BNE NOCHNICH. LDA #1.
STA NOPU,X...NOCHNICH..;-----------
----------------------------.;PULSROUTIN
E.;-------------------------------------
--. LDA NOPU,X. BNE FILL
I. LDA PUPOS,X. TAY.
LDA PULSFRM,X ;NEW ROW?.
BNE NONEWSET.NOCHMAL LDA PULSTAB1,Y.
CMP #$90 ;CHECK LOOP.
BNE PP1. LDA PULSTAB2,Y.
STA PUPOS,X. TAY. JM
P NOCHMAL.PP1 CMP #$91 ;CHEC
K STOP. BNE PP2. LDA #1.
STA NOPU,X. BNE FILLI..
.PP2 STA PULSADDH,X ;COUNT VALUES.
LDA PULSTAB2,Y. STA PUL
SADDL,X. LDA PULSTAB2+1,Y.
STA PULSFRM,X. TYA. C
LC. ADC #2. STA PUPOS,X.
NONEWSET LDA PULSLO,X. CLC
;SET VALUES. ADC PULSADD
L,X. STA PULSLO,X. STA $
D402,X. LDA PULSHI,X. AD
C PULSADDH,X. STA PULSHI,X.
STA $D403,X. DEC PULSFRM,X..
...;------------------------------------
---.;FILTERROUTINE.;--------------------
-------------------.FILLI
;STILL TO CODE. ;.;
---------------------------------------.
;WRITING THE SID-REGISTERS.;------------
---------------------------. LDA
AD,X ;REGISTERS. STA $D405,
X. LDA SR,X. STA $D406,X
. LDA WAVE,X. TAY
;IF GATEBIT OFF BY. AND #1
;TABLE, DISABLE. BEQ NOGAT ;
GATE COMMAND. TYA. AND #
$FE. ORA ANDOR,X. TAY.NO
GAT TYA. STA $D404,X ;WRITE
REMAINING. LDY NOTEOK,X.
LDA DRUM,X. BEQ NORM. T
YA. STA $D401,X. LDA #0.
STA $D400,X. BEQ WITER.
NORM. CLC. LDA VILO,X.
ADC GLIDEL,X. STA HELP.
LDA VIHI,X. ADC GLIDEH,X.
STA HELP+1. LDA FRQLO,Y
. CLC. ADC FINE,X.
ADC HELP. STA $D400,X.
LDA HELP+1. ADC FRQHI,Y.
STA $D401,X.WITER. RTS..HELP
.BYTE $00,$00.;---------------------
------------------.;TABLES.;------------
---------------------------.FRQLO .BY
TE $0C,$1C,$2D,$3E,$47,$66. .BYT
E $7B,$91,$A9,$C3,$DD,$FA. .BYTE
$18,$38,$5A,$7D,$A3,$CC. .BYTE
$F6,$23,$53,$86,$BB,$F4. .BYTE $
30,$70,$B4,$FB,$47,$98. .BYTE $E
D,$47,$A7,$0C,$77,$E9. .BYTE $61
,$E1,$68,$F7,$8F,$30. .BYTE $DA,
$8F,$4E,$18,$EF,$D2. .BYTE $C3,$
C3,$D1,$EF,$1F,$60. .BYTE $B5,$1
E,$9C,$31,$DF,$A5. .BYTE $87,$86
,$A2,$DF,$3E,$C1. .BYTE $6B,$3C,
$39,$63,$BE,$4B. .BYTE $0F,$0C,$
45,$BF,$7D,$83. .BYTE $D6,$79,$7
3,$C7,$7C,$97. .BYTE $1E,$18,$8B
,$7E,$FA,$06. .BYTE $AC,$F3,$E6,
$8F,$F8,$FC.;---------------------------
------------.FRQHI .BYTE $01,$01,$01,
$01,$01,$01. .BYTE $01,$01,$01,$
01,$01,$01. .BYTE $02,$02,$02,$0
2,$02,$02. .BYTE $02,$03,$03,$03
,$03,$03. .BYTE $04,$04,$04,$04,
$05,$05. .BYTE $05,$06,$06,$07,$
07,$07. .BYTE $08,$08,$09,$09,$0
A,$0B. .BYTE $0B,$0C,$0D,$0E,$0E
,$0F. .BYTE $10,$11,$12,$13,$15,
$16. .BYTE $17,$19,$1A,$1C,$1D,$
1F. .BYTE $21,$23,$25,$27,$2A,$2
C. .BYTE $2F,$32,$35,$38,$3B,$3F
. .BYTE $43,$47,$4B,$4F,$54,$59.
.BYTE $5E,$64,$6A,$70,$77,$7E.
.BYTE $86,$8E,$96,$9F,$A8,$B3.
.BYTE $BD,$C8,$D4,$E1,$EE,$FD.;--
-------------------------------------.;S
UPERCOMMANDS.;--------------------------
-------------.;00 - NOTHING.;01 - CONT.
PULSE (NO PULSE RESTART).;02 - SRR.XX.;0
3 - ADR.XX.;04 - VOL.XX.;05 - GLD.XXXX.;
06 - SLD.XXXX.;07 - VIB.XXXX.;----------
-----------------------------.COMMTAB .
BYTE $07,$06;COMMAND.COMMTAB1 .BYTE $30,
$00 ;VALUE.COMMTAB2 .BYTE $40,$A0 ;VALUE
.COMMTAB3 .WORD NOFX,CONTP,SUST,ADR,VOL.
.WORD GLD,SLD,VIBR.;-----------
----------------------------.CONTP LD
A #1. EOR PCONT,X. STA P
CONT,X. JMP NOFX.;--------------
-------------------------.SUST LDA E
FFLO,X. STA SR,X. JMP NO
FX.;------------------------------------
---.ADR LDA EFFLO,X. STA AD
,X. JMP NOFX.;------------------
---------------------.VOL LDA EFFLO
,X. ASL A. ASL A.
ASL A. ASL A. STA SVOL
,X. JMP NOFX.;------------------
---------------------.GLD LDY SECPO
S,X. INY. LDA #0.
STA GLIDEL,X. STA GLIDEH,X.
LDA ($F8),Y. PHA.
CMP #$60. BCC GL1. SEC.
SBC #$60.GL1 STA GLFROM,X.
INY.GLSL LDA ($F8),Y.
CMP #$60. BCC GL2. SEC
. SBC #$60.GL2 STA GLTO,X.
PHA. TAY. LDA FR
QLO,Y. STA GLDEL,X. LDA
FRQHI,Y. STA GLDEH,X. PL
A.. CMP GLFROM,X. BEQ GL
4. BCS GLUP. LDA EFFLO,X
. EOR #$FF. CLC.
ADC #$01. STA GLL,X. LD
A EFFHI,X. EOR #$FF. ADC
#0. STA GLH,X. JMP GL3.
GLUP. LDA EFFLO,X. STA G
LL,X. LDA EFFHI,X. STA G
LH,X.GL3. PLA. INC SECPO
S,X. INC SECPOS,X. JMP N
OTE.GL4. LDA #0. STA GLL
,X. BEQ GL3.;-------------------
--------------------.SLD LDY SECPOS
,X. INY. LDA #0.
STA GLIDEL,X. STA GLIDEH,X.
LDA #1. STA CONT,X.
LDA NOTEV,X. PHA. STA G
LFROM,X. DEC SECPOS,X. J
MP GLSL.;-------------------------------
--------.VIBR LDA EFFLO,X. S
TA VADDL,X. STA VADDL1,X.
LDA EFFHI,X. AND #$0F.
STA VADDH,X. LSR A. STA
VADDH1,X. ROR VADDL1,X.
LDA EFFHI,X. LSR A. LSR
A. LSR A. LSR A.
STA VSPEED,X. LSR A. S
TA VSPEED1,X. LDA #0. ST
A VILO,X. STA VIHI,X. ST
A VIFIRST,X. STA VDIR,X.
JMP NOFX...;---------------------------
------------.TRAKK .WORD TR1,TR2,TR3.
.BYTE $00;SPEED. .BYTE
$0F;VOLUME..;---------------------------
------------.SECLO .BYTE <S00,<S01,<S
02..SECHI .BYTE >S00,>S01,>S02..;----
-----------------------------------.;COM
MANDS. ;$FF XX LOOP XX.
;$FE STOP VOICE. ;$FD X
X TRANSPOSE +XX. ;$FC XX T
RANSPOSE -XX. ;$FB XX FADEIN
XX. ;$FA XX FADEOUT XX.
;$EX VOLUME X..;--------------
-------------------------.TR1 .BYTE
$FD,0,0,$FF,0.. .BYTE $FA,$0D,0
,0,$FA,0,0,0. .BYTE $FC,$04.
.BYTE $FB,$0D,0,0,0,0. .BYT
E $FC,$00. .BYTE $FF,$00..TR2.
.BYTE $FE,$FF,$00..TR3. .
BYTE $FE,$FF,$00.;----------------------
-----------------.;COMMANDS $FD.XX DU
R XX. ;$FC.XX SND XX.
;$FE CONT(---). ;$FB
GATE. ;$FA SWITCH.
;$F9 CUT....;------------------
---------------------.S00 .BYTE $FD
,$18. .BYTE $FC,$00. .BY
TE $40,$FE,$C0,$FE,$C1,$94. .BYT
E $FE,$FE. .BYTE $FF..S01 .
BYTE $FD,$0C. .BYTE $FC,$01.
.BYTE $00,$FE. .BYTE $FC,$0
2. .BYTE $00,$FE. .BYTE
$FF.... .BYTE $FF..S02 .BYT
E $FD,$30,$FC,$03. .BYTE $30.
.BYTE $FF..;----------------------
-----------------.;INSTRUMENT DATA.;----
-----------------------------------.ADTA
B .BYTE $02,$05,$02,$00.SRTAB .BYT
E $AA,$F7,$87,$59.WAVPTAB .BYTE $00,$03
,$09,$0F.PULPTAB .BYTE $00,$06,$08,$06.
FILPTAB .BYTE $00,$00,$00,$00.EFFTAB
.BYTE $00,$00,$00,$01;XY.
;X=. ;Y=WV
SPEED...WAVETAB .BYTE $89. .BYT
E $41,$91. .BYTE $89,$19,$19,$19
,$18,$91. .BYTE $89,$49,$89,$48,
$88,$91. .BYTE $21,$21,$21,$90..
FREQTAB. .BYTE $DD,$00,$00.
.BYTE $DD,$0A,$07,$04,$02,$00.
.BYTE $DD,$0E,$4C,$0A,$3C,$00.
.BYTE $00,$03,$07,$0F..PULSTAB1 .BYTE
$03,$00,$00,$FF,$00,$90. .BYTE $
00,$91. .BYTE $08,$91..PULSTAB2
.BYTE $F0,$20,$20,$E0,$20,$01. .
BYTE $00,$00. .BYTE $00,$00...;-
--------------------------------------..
> CLICK IMAGE PREVIEW FOR FULL MODAL