PLAYER SOURCE
FILE INFORMATION
FILENAME(S): PLAYER SOURCE
FILE TYPE(S): SEQ
FILE SIZE: 29.1K
FIRST SEEN: 2025-12-02 22:47:41
APPEARS ON: 1 disk(s)
FILE HASH
d397618b03bf0f4c4befdf38d44c8f995d660554b160cb54e6b585ca05534359
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 07 96 | PLAYER SOURCE | SEQ | swasti, charly | 16 | 4 | 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 31 2E 30 0D 3B C1 4C 4C 20 C3 |YER V.1.0.;.LL .| 00000020: 4F 44 49 4E 47 20 41 4E 44 20 C4 45 53 49 47 4E |ODING AND .ESIGN| 00000030: 20 42 59 20 D4 C8 C5 20 D3 D9 CE C4 D2 CF CD 0D | BY ... ........| 00000040: 3B 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 2D 0D 3B 2D 2D 2D 2D 2D 2D |--------.;------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000090: 2D 0D 3B 45 44 49 54 4F 52 20 56 45 52 53 49 4F |-.;EDITOR VERSIO| 000000A0: 4E 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |N.;-------------| 000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 |----------. | 000000D0: 20 20 20 20 2A 3D 20 24 31 30 30 30 0D 0D 20 20 | *= $1000.. | 000000E0: 20 20 20 20 20 20 20 4A 4D 50 20 49 4E 49 54 0D | JMP INIT.| 000000F0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 50 4C 41 | JMP PLA| 00000100: 59 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 50 |Y. JMP P| 00000110: 4C 41 59 32 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |LAY2.;----------| 00000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 48 41 |-------------.HA| 00000140: 52 44 56 41 4C 20 20 2E 42 59 54 45 20 24 30 46 |RDVAL .BYTE $0F| 00000150: 20 3B 28 58 59 3A 20 58 3D 38 2D 3E 4B 45 45 50 | ;(XY: X=8->KEEP| 00000160: 20 41 44 0D 20 20 20 20 20 20 20 20 20 20 20 20 | AD. | 00000170: 20 20 20 20 20 20 20 3B 20 20 20 20 20 58 3D 30 | ; X=0| 00000180: 2D 3E 20 41 44 3D 59 29 0D 0D 46 49 4C 54 59 50 |-> AD=Y)..FILTYP| 00000190: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 46 49 4C | .BYTE $00.FIL| 000001A0: 43 4F 4E 20 20 20 2E 42 59 54 45 20 24 30 30 0D |CON .BYTE $00.| 000001B0: 46 49 4C 54 4C 4F 20 20 20 2E 42 59 54 45 20 24 |FILTLO .BYTE $| 000001C0: 30 30 0D 46 49 4C 54 48 49 20 20 20 2E 42 59 54 |00.FILTHI .BYT| 000001D0: 45 20 24 30 30 0D 56 4F 4C 55 4D 45 20 20 20 2E |E $00.VOLUME .| 000001E0: 42 59 54 45 20 24 30 30 0D 52 45 53 4F 4E 41 4E |BYTE $00.RESONAN| 000001F0: 43 45 20 2E 42 59 54 45 20 24 30 30 0D 53 50 45 |CE .BYTE $00.SPE| 00000200: 45 44 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |ED .BYTE $00.| 00000210: 53 50 45 45 44 31 20 20 20 2E 42 59 54 45 20 24 |SPEED1 .BYTE $| 00000220: 30 30 0D 4D 55 4C 54 49 20 20 20 20 2E 42 59 54 |00.MULTI .BYT| 00000230: 45 20 24 30 30 0D 49 44 45 4E 54 49 46 59 20 2E |E $00.IDENTIFY .| 00000240: 42 59 54 45 20 24 30 30 0D 46 41 44 45 20 20 20 |BYTE $00.FADE | 00000250: 20 20 2E 42 59 54 45 20 24 30 30 0D 46 41 44 45 | .BYTE $00.FADE| 00000260: 54 49 4D 45 20 2E 42 59 54 45 20 24 30 30 0D 4E |TIME .BYTE $00.N| 00000270: 4F 46 49 20 20 20 20 20 2E 42 59 54 45 20 24 30 |OFI .BYTE $0| 00000280: 30 0D 46 49 4C 46 52 45 51 4C 20 2E 42 59 54 45 |0.FILFREQL .BYTE| 00000290: 20 24 30 30 0D 46 49 4C 46 52 45 51 48 20 2E 42 | $00.FILFREQH .B| 000002A0: 59 54 45 20 24 30 30 0D 46 43 4F 4E 54 20 20 20 |YTE $00.FCONT | 000002B0: 20 2E 42 59 54 45 20 24 30 30 0D 46 49 4C 43 4F | .BYTE $00.FILCO| 000002C0: 4E 46 20 20 2E 42 59 54 45 20 24 30 30 0D 46 49 |NF .BYTE $00.FI| 000002D0: 4C 54 41 44 44 4C 20 2E 42 59 54 45 20 24 30 30 |LTADDL .BYTE $00| 000002E0: 0D 46 49 4C 54 41 44 44 48 20 2E 42 59 54 45 20 |.FILTADDH .BYTE | 000002F0: 24 30 30 0D 46 49 4C 54 46 52 4D 20 20 2E 42 59 |$00.FILTFRM .BY| 00000300: 54 45 20 24 30 30 0D 46 49 4C 50 4F 53 20 20 20 |TE $00.FILPOS | 00000310: 2E 42 59 54 45 20 24 30 30 0D 46 52 51 46 20 20 |.BYTE $00.FRQF | 00000320: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 | .BYTE $00. | 00000330: 20 20 20 20 20 20 2E 54 45 58 54 20 22 2D 50 4C | .TEXT "-PL| 00000340: 41 59 45 52 20 26 20 4D 55 53 49 43 20 42 59 20 |AYER & MUSIC BY | 00000350: 54 48 45 20 22 0D 20 20 20 20 20 20 20 20 20 2E |THE ". .| 00000360: 54 45 58 54 20 22 53 59 4E 44 52 4F 4D 21 2D 22 |TEXT "SYNDROM!-"| 00000370: 0D 46 4C 4F 20 20 20 20 20 20 2E 42 59 54 45 20 |.FLO .BYTE | 00000380: 24 30 30 0D 46 48 49 20 20 20 20 20 20 2E 42 59 |$00.FHI .BY| 00000390: 54 45 20 24 30 30 0D 57 53 50 45 45 44 20 20 20 |TE $00.WSPEED | 000003A0: 2E 42 59 54 45 20 24 30 30 2C 30 0D 20 20 20 20 |.BYTE $00,0. | 000003B0: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 30 | .BYTE $00,0| 000003C0: 0D 3B 2D 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 0D 44 55 52 20 20 20 |---------.DUR | 000003F0: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 44 55 52 | .BYTE $00.DUR| 00000400: 41 54 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |AT .BYTE $00.| 00000410: 53 4E 44 20 20 20 20 20 20 2E 42 59 54 45 20 24 |SND .BYTE $| 00000420: 30 30 0D 41 44 20 20 20 20 20 20 20 2E 42 59 54 |00.AD .BYT| 00000430: 45 20 24 30 30 0D 53 52 20 20 20 20 20 20 20 2E |E $00.SR .| 00000440: 42 59 54 45 20 24 30 30 0D 4F 4E 20 20 20 20 20 |BYTE $00.ON | 00000450: 20 20 2E 42 59 54 45 20 24 30 30 0D 56 44 49 52 | .BYTE $00.VDIR| 00000460: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 20 | .BYTE $00. | 00000470: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 | .BYTE $0| 00000480: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B |0,0,0,0,0,0,0 ;| 00000490: 37 20 42 59 54 45 53 0D 20 20 20 20 20 20 20 20 |7 BYTES. | 000004A0: 20 2E 42 59 54 45 20 24 30 30 2C 30 2C 30 2C 30 | .BYTE $00,0,0,0| 000004B0: 2C 30 2C 30 2C 30 20 20 3B 37 20 42 59 54 45 53 |,0,0,0 ;7 BYTES| 000004C0: 0D 54 52 50 4F 53 20 20 20 20 2E 42 59 54 45 20 |.TRPOS .BYTE | 000004D0: 24 30 30 0D 54 52 41 43 4B 4C 20 20 20 2E 42 59 |$00.TRACKL .BY| 000004E0: 54 45 20 24 30 30 0D 54 52 41 43 4B 48 20 20 20 |TE $00.TRACKH | 000004F0: 2E 42 59 54 45 20 24 30 30 0D 53 45 43 50 4F 53 |.BYTE $00.SECPOS| 00000500: 20 20 20 2E 42 59 54 45 20 24 30 30 0D 57 41 56 | .BYTE $00.WAV| 00000510: 45 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D |E .BYTE $00.| 00000520: 46 49 4C 43 4F 4E 54 20 20 2E 42 59 54 45 20 24 |FILCONT .BYTE $| 00000530: 30 30 0D 50 55 50 4F 53 20 20 20 20 2E 42 59 54 |00.PUPOS .BYT| 00000540: 45 20 24 30 30 0D 20 20 20 20 20 20 20 20 20 2E |E $00. .| 00000550: 42 59 54 45 20 24 30 30 2C 30 2C 30 2C 30 2C 30 |BYTE $00,0,0,0,0| 00000560: 2C 30 2C 30 20 20 3B 20 2D 22 2D 0D 20 20 20 20 |,0,0 ; -"-. | 00000570: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 2C 30 | .BYTE $00,0| 00000580: 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 20 3B 20 2D |,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 46 49 4C 43 4F 4E |0 ; -"-..FILCON| 00000A80: 54 31 20 2E 42 59 54 45 20 24 46 45 0D 57 41 56 |T1 .BYTE $FE.WAV| 00000A90: 45 58 50 4F 53 20 2E 42 59 54 45 20 24 30 30 0D |EXPOS .BYTE $00.| 00000AA0: 58 57 56 53 50 45 45 44 20 2E 42 59 54 45 20 24 |XWVSPEED .BYTE $| 00000AB0: 30 30 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |00. .BYT| 00000AC0: 45 20 24 30 30 0D 20 20 20 20 20 20 20 20 20 2E |E $00. .| 00000AD0: 42 59 54 45 20 24 30 30 0D 20 20 20 20 20 20 20 |BYTE $00. | 00000AE0: 20 20 2E 42 59 54 45 20 24 30 30 0D 20 20 20 20 | .BYTE $00. | 00000AF0: 20 20 20 20 20 2E 42 59 54 45 20 24 30 30 0D 20 | .BYTE $00. | 00000B00: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 46 | .BYTE $F| 00000B10: 44 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 20 3B |D,0,0,0,0,0,0 ;| 00000B20: 20 2D 22 2D 0D 20 20 20 20 20 20 20 20 20 2E 42 | -"-. .B| 00000B30: 59 54 45 20 24 46 42 2C 30 2C 30 2C 30 2C 30 2C |YTE $FB,0,0,0,0,| 00000B40: 30 2C 30 20 20 3B 20 2D 22 2D 0D 0D 0D 0D 0D 4D |0,0 ; -"-.....M| 00000B50: 41 52 4B 20 20 20 20 20 2E 42 59 54 45 20 24 30 |ARK .BYTE $0| 00000B60: 30 0D 0D 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |0.....;---------| 00000B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 49 |--------------.I| 00000B90: 4E 49 54 20 20 20 20 20 41 53 4C 20 41 0D 20 20 |NIT ASL A. | 00000BA0: 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 | ASL A. | 00000BB0: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00000BC0: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 00000BD0: 20 20 4C 44 58 20 23 24 30 30 0D 20 20 20 20 20 | LDX #$00. | 00000BE0: 20 20 20 20 54 58 41 0D 49 4E 49 54 43 4C 20 20 | TXA.INITCL | 00000BF0: 20 53 54 41 20 44 55 52 2C 58 20 20 20 20 20 3B | STA DUR,X ;| 00000C00: 43 4C 45 41 52 20 44 41 54 41 0D 20 20 20 20 20 |CLEAR DATA. | 00000C10: 20 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 | INX. | 00000C20: 20 43 50 58 20 23 4D 41 52 4B 2D 44 55 52 0D 20 | CPX #MARK-DUR. | 00000C30: 20 20 20 20 20 20 20 20 42 4E 45 20 49 4E 49 54 | BNE INIT| 00000C40: 43 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |CL. LDX | 00000C50: 23 30 0D 49 4E 49 54 43 4C 32 20 20 53 54 41 20 |#0.INITCL2 STA | 00000C60: 46 49 4C 54 59 50 2C 58 0D 20 20 20 20 20 20 20 |FILTYP,X. | 00000C70: 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 20 43 | INX. C| 00000C80: 50 58 20 23 46 52 51 46 2D 46 49 4C 54 59 50 0D |PX #FRQF-FILTYP.| 00000C90: 20 20 20 20 20 20 20 20 20 42 4E 45 20 49 4E 49 | BNE INI| 00000CA0: 54 43 4C 32 0D 20 20 20 20 20 20 20 20 20 4C 44 |TCL2. LD| 00000CB0: 58 20 23 24 30 30 20 20 20 20 20 20 3B 50 52 45 |X #$00 ;PRE| 00000CC0: 50 41 52 45 20 50 4F 49 4E 54 45 52 53 0D 54 52 |PARE POINTERS.TR| 00000CD0: 46 49 4C 4C 20 20 20 4C 44 41 20 54 52 41 4B 4B |FILL LDA TRAKK| 00000CE0: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00000CF0: 54 52 41 43 4B 4C 2C 58 0D 20 20 20 20 20 20 20 |TRACKL,X. | 00000D00: 20 20 4C 44 41 20 54 52 41 4B 4B 2B 31 2C 59 0D | LDA TRAKK+1,Y.| 00000D10: 20 20 20 20 20 20 20 20 20 53 54 41 20 54 52 41 | STA TRA| 00000D20: 43 4B 48 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |CKH,X. L| 00000D30: 44 41 20 23 39 20 20 20 20 20 20 20 20 3B 52 45 |DA #9 ;RE| 00000D40: 53 45 54 20 56 4F 49 43 45 53 0D 20 20 20 20 20 |SET VOICES. | 00000D50: 20 20 20 20 53 54 41 20 24 44 34 30 34 2C 58 0D | STA $D404,X.| 00000D60: 20 20 20 20 20 20 20 20 20 53 54 41 20 4F 4E 2C | STA ON,| 00000D70: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |X. LDA #| 00000D80: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 |0. STA A| 00000D90: 44 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |D,X. STA| 00000DA0: 20 53 52 2C 58 0D 20 20 20 20 20 20 20 20 20 4C | SR,X. L| 00000DB0: 44 41 20 23 24 30 32 20 20 20 20 20 20 3B 53 54 |DA #$02 ;ST| 00000DC0: 41 52 54 56 41 4C 55 45 53 0D 20 20 20 20 20 20 |ARTVALUES. | 00000DD0: 20 20 20 53 54 41 20 44 55 52 41 54 2C 58 0D 20 | STA DURAT,X. | 00000DE0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 | LDA #$FF| 00000DF0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 57 56 |. STA WV| 00000E00: 53 50 45 45 44 31 2C 58 0D 20 20 20 20 20 20 20 |SPEED1,X. | 00000E10: 20 20 4C 44 41 20 23 24 38 30 20 20 3B 58 30 2C | LDA #$80 ;X0,| 00000E20: 58 37 2C 58 45 20 46 4F 52 20 46 56 4F 49 43 45 |X7,XE FOR FVOICE| 00000E30: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 49 |. STA FI| 00000E40: 4C 43 4F 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 |LCON. LD| 00000E50: 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 |A #1. ST| 00000E60: 41 20 48 41 52 44 4F 4E 2C 58 0D 20 20 20 20 20 |A HARDON,X. | 00000E70: 20 20 20 20 53 54 41 20 41 4E 44 4F 52 2C 58 0D | STA ANDOR,X.| 00000E80: 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 | INY. | 00000E90: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. | 00000EA0: 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 20 | TXA. | 00000EB0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00000EC0: 20 23 37 20 20 20 20 20 20 20 20 3B 30 2D 37 2D | #7 ;0-7-| 00000ED0: 31 34 2D 4C 4F 4F 50 0D 20 20 20 20 20 20 20 20 |14-LOOP. | 00000EE0: 20 54 41 58 0D 20 20 20 20 20 20 20 20 20 43 50 | TAX. CP| 00000EF0: 58 20 23 32 31 0D 20 20 20 20 20 20 20 20 20 42 |X #21. B| 00000F00: 4E 45 20 54 52 46 49 4C 4C 0D 20 20 20 20 20 20 |NE TRFILL. | 00000F10: 20 20 20 4C 44 41 20 54 52 41 4B 4B 2C 59 0D 20 | LDA TRAKK,Y. | 00000F20: 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 | PHA. | 00000F30: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 00000F40: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00000F50: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00000F60: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 00000F70: 20 53 54 41 20 57 53 50 45 45 44 0D 20 20 20 20 | STA WSPEED. | 00000F80: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 00000F90: 20 20 41 4E 44 20 23 24 30 46 0D 20 20 20 20 20 | AND #$0F. | 00000FA0: 20 20 20 20 53 54 41 20 57 53 50 45 45 44 2B 31 | STA WSPEED+1| 00000FB0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 33 |. LDA #3| 00000FC0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 50 |. STA SP| 00000FD0: 45 45 44 31 0D 20 20 20 20 20 20 20 20 20 4C 44 |EED1. LD| 00000FE0: 41 20 54 52 41 4B 4B 2B 31 2C 59 0D 20 20 20 20 |A TRAKK+1,Y. | 00000FF0: 20 20 20 20 20 41 4E 44 20 23 24 30 46 0D 20 20 | AND #$0F. | 00001000: 20 20 20 20 20 20 20 53 54 41 20 56 4F 4C 55 4D | STA VOLUM| 00001010: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |E. LDA #| 00001020: 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |1. STA F| 00001030: 49 4C 43 4F 4E 54 0D 20 20 20 20 20 20 20 20 20 |ILCONT. | 00001040: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 53 |ASL A. S| 00001050: 54 41 20 46 49 4C 43 4F 4E 54 2B 37 0D 20 20 20 |TA FILCONT+7. | 00001060: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00001070: 20 20 20 20 20 53 54 41 20 46 49 4C 43 4F 4E 54 | STA FILCONT| 00001080: 2B 31 34 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |+14. LDA| 00001090: 20 23 24 46 45 0D 20 20 20 20 20 20 20 20 20 53 | #$FE. S| 000010A0: 54 41 20 46 49 4C 43 4F 4E 54 31 0D 20 20 20 20 |TA FILCONT1. | 000010B0: 20 20 20 20 20 4C 44 41 20 23 24 46 44 0D 20 20 | LDA #$FD. | 000010C0: 20 20 20 20 20 20 20 53 54 41 20 46 49 4C 43 4F | STA FILCO| 000010D0: 4E 54 31 2B 37 0D 20 20 20 20 20 20 20 20 20 4C |NT1+7. L| 000010E0: 44 41 20 23 24 46 42 0D 20 20 20 20 20 20 20 20 |DA #$FB. | 000010F0: 20 53 54 41 20 46 49 4C 43 4F 4E 54 31 2B 31 34 | STA FILCONT1+14| 00001100: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 |. LDA #0| 00001110: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 49 |. STA FI| 00001120: 4C 43 4F 4E 46 0D 20 20 20 20 20 20 20 20 20 53 |LCONF. S| 00001130: 54 41 20 57 53 50 45 45 44 43 2B 31 0D 20 20 20 |TA WSPEEDC+1. | 00001140: 20 20 20 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D | RTS.;-----| 00001150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001170: 2D 2D 0D 50 4C 41 59 20 20 20 20 20 4C 44 41 20 |--.PLAY LDA | 00001180: 24 46 38 20 20 20 20 20 20 3B 53 41 56 45 20 55 |$F8 ;SAVE U| 00001190: 53 45 44 0D 20 20 20 20 20 20 20 20 20 50 48 41 |SED. PHA| 000011A0: 20 20 20 20 20 20 20 20 20 20 3B 5A 45 52 4F 50 | ;ZEROP| 000011B0: 41 47 45 20 54 4F 20 53 54 41 43 4B 0D 20 20 20 |AGE TO STACK. | 000011C0: 20 20 20 20 20 20 4C 44 41 20 24 46 39 0D 20 20 | LDA $F9. | 000011D0: 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 | PHA. | 000011E0: 20 20 20 20 44 45 43 20 53 50 45 45 44 31 20 20 | DEC SPEED1 | 000011F0: 3B 4D 41 49 4E 2D 53 50 45 45 44 2D 43 4F 4E 54 |;MAIN-SPEED-CONT| 00001200: 52 4F 4C 0D 20 20 20 20 20 20 20 20 20 42 50 4C |ROL. BPL| 00001210: 20 4E 45 57 31 0D 57 53 50 45 45 44 43 20 20 4C | NEW1.WSPEEDC L| 00001220: 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 45 |DA #0. E| 00001230: 4F 52 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |OR #1. S| 00001240: 54 41 20 57 53 50 45 45 44 43 2B 31 0D 20 20 20 |TA WSPEEDC+1. | 00001250: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00001260: 20 20 20 4C 44 41 20 57 53 50 45 45 44 2C 58 0D | LDA WSPEED,X.| 00001270: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 50 45 | STA SPE| 00001280: 45 44 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |ED. STA | 00001290: 53 50 45 45 44 31 0D 4E 45 57 31 20 20 20 20 20 |SPEED1.NEW1 | 000012A0: 4C 44 58 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDX #0. | 000012B0: 4A 53 52 20 56 4F 49 43 45 0D 20 20 20 20 20 20 |JSR VOICE. | 000012C0: 20 20 20 4C 44 58 20 23 37 0D 20 20 20 20 20 20 | LDX #7. | 000012D0: 20 20 20 4A 53 52 20 56 4F 49 43 45 0D 20 20 20 | JSR VOICE. | 000012E0: 20 20 20 20 20 20 4C 44 58 20 23 31 34 0D 20 20 | LDX #14. | 000012F0: 20 20 20 20 20 20 20 4A 53 52 20 56 4F 49 43 45 | JSR VOICE| 00001300: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 41 |. LDA FA| 00001310: 44 45 20 20 20 20 20 3B 56 4F 4C 55 4D 45 2D 46 |DE ;VOLUME-F| 00001320: 41 44 45 0D 20 20 20 20 20 20 20 20 20 42 45 51 |ADE. BEQ| 00001330: 20 4E 4F 46 41 44 45 20 20 20 3B 41 43 54 49 56 | NOFADE ;ACTIV| 00001340: 45 20 3F 0D 20 20 20 20 20 20 20 20 20 44 45 43 |E ?. DEC| 00001350: 20 46 41 44 45 54 49 4D 45 0D 20 20 20 20 20 20 | FADETIME. | 00001360: 20 20 20 4C 44 41 20 46 41 44 45 54 49 4D 45 0D | LDA FADETIME.| 00001370: 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E 4F 46 | BNE NOF| 00001380: 41 44 45 0D 46 54 49 4D 45 20 20 20 20 4C 44 41 |ADE.FTIME LDA| 00001390: 20 23 30 20 20 20 20 20 20 20 3B 44 49 52 45 43 | #0 ;DIREC| 000013A0: 54 20 43 4F 44 45 0D 20 20 20 20 20 20 20 20 20 |T CODE. | 000013B0: 53 54 41 20 46 41 44 45 54 49 4D 45 20 3B 41 43 |STA FADETIME ;AC| 000013C0: 43 45 53 53 45 44 0D 20 20 20 20 20 20 20 20 20 |CESSED. | 000013D0: 4C 44 41 20 56 4F 4C 55 4D 45 0D 20 20 20 20 20 |LDA VOLUME. | 000013E0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 000013F0: 20 41 44 43 20 46 41 44 45 0D 20 20 20 20 20 20 | ADC FADE. | 00001400: 20 20 20 53 54 41 20 56 4F 4C 55 4D 45 0D 20 20 | STA VOLUME. | 00001410: 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 46 20 | CMP #$FF | 00001420: 20 20 20 20 3B 4C 4F 57 45 52 20 53 54 4F 50 0D | ;LOWER STOP.| 00001430: 20 20 20 20 20 20 20 20 20 42 45 51 20 46 41 44 | BEQ FAD| 00001440: 45 53 54 4F 50 0D 20 20 20 20 20 20 20 20 20 43 |ESTOP. C| 00001450: 4D 50 20 23 24 31 30 0D 20 20 20 20 20 20 20 20 |MP #$10. | 00001460: 20 42 4E 45 20 4E 4F 46 41 44 45 20 20 20 3B 55 | BNE NOFADE ;U| 00001470: 50 50 45 52 20 53 54 4F 50 0D 20 20 20 20 20 20 |PPER STOP. | 00001480: 20 20 20 4C 44 41 20 23 24 30 46 0D 20 20 20 20 | LDA #$0F. | 00001490: 20 20 20 20 20 53 54 41 20 56 4F 4C 55 4D 45 0D | STA VOLUME.| 000014A0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E 4F 46 | BNE NOF| 000014B0: 41 44 45 0D 0D 46 41 44 45 53 54 4F 50 20 4C 44 |ADE..FADESTOP LD| 000014C0: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST| 000014D0: 41 20 46 41 44 45 0D 20 20 20 20 20 20 20 20 20 |A FADE. | 000014E0: 53 54 41 20 56 4F 4C 55 4D 45 0D 4E 4F 46 41 44 |STA VOLUME.NOFAD| 000014F0: 45 20 20 20 4C 44 41 20 56 4F 4C 55 4D 45 20 20 |E LDA VOLUME | 00001500: 20 20 3B 50 45 52 4D 41 4E 45 4E 54 0D 20 20 20 | ;PERMANENT. | 00001510: 20 20 20 20 20 20 4F 52 41 20 46 49 4C 54 59 50 | ORA FILTYP| 00001520: 20 20 20 20 3B 43 4F 4E 54 52 4F 4C 53 0D 20 20 | ;CONTROLS. | 00001530: 20 20 20 20 20 20 20 53 54 41 20 24 44 34 31 38 | STA $D418| 00001540: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 |. LDA FI| 00001550: 4C 43 4F 4E 46 0D 20 20 20 20 20 20 20 20 20 4F |LCONF. O| 00001560: 52 41 20 52 45 53 4F 4E 41 4E 43 45 0D 20 20 20 |RA RESONANCE. | 00001570: 20 20 20 20 20 20 53 54 41 20 24 44 34 31 37 0D | STA $D417.| 00001580: 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 4C | LDA FIL| 00001590: 46 52 45 51 4C 0D 20 20 20 20 20 20 20 20 20 53 |FREQL. S| 000015A0: 54 41 20 24 44 34 31 35 0D 20 20 20 20 20 20 20 |TA $D415. | 000015B0: 20 20 4C 44 41 20 46 49 4C 46 52 45 51 48 0D 20 | LDA FILFREQH. | 000015C0: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 31 | STA $D41| 000015D0: 36 0D 20 20 20 20 20 20 20 20 20 50 4C 41 20 20 |6. PLA | 000015E0: 20 20 20 20 20 20 20 20 20 3B 52 45 57 52 49 54 | ;REWRIT| 000015F0: 45 20 5A 45 52 4F 2D 0D 20 20 20 20 20 20 20 20 |E ZERO-. | 00001600: 20 53 54 41 20 24 46 39 20 20 20 20 20 20 20 3B | STA $F9 ;| 00001610: 50 41 47 45 0D 20 20 20 20 20 20 20 20 20 50 4C |PAGE. PL| 00001620: 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |A. STA $| 00001630: 46 38 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |F8. RTS.| 00001640: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 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 0D 56 4F 49 43 45 20 20 |--------.VOICE | 00001670: 20 20 4C 44 41 20 4F 4E 2C 58 20 20 20 20 20 20 | LDA ON,X | 00001680: 3B 56 4F 49 43 45 20 41 43 54 49 56 45 3F 0D 20 |;VOICE ACTIVE?. | 00001690: 20 20 20 20 20 20 20 20 42 4E 45 20 56 4F 49 4F | BNE VOIO| 000016A0: 4E 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 56 |N. RTS.V| 000016B0: 4F 49 4F 4E 20 20 20 20 4C 44 41 20 53 50 45 45 |OION LDA SPEE| 000016C0: 44 31 20 20 3B 4E 45 57 20 44 55 52 41 54 49 4F |D1 ;NEW DURATIO| 000016D0: 4E 2D 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |N-. CMP | 000016E0: 53 50 45 45 44 20 20 20 3B 46 52 41 4D 45 20 3F |SPEED ;FRAME ?| 000016F0: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4E 45 |. BEQ NE| 00001700: 57 20 20 20 20 20 3B 0D 0D 20 20 20 20 20 20 20 |W ;.. | 00001710: 20 20 4A 4D 50 20 56 4F 49 43 45 33 3B 48 52 2D | JMP VOICE3;HR-| 00001720: 43 48 45 43 4B 20 46 4F 52 20 4C 4F 57 0D 20 20 |CHECK FOR LOW. | 00001730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001740: 20 3B 53 50 45 45 44 53 20 4E 45 43 45 53 53 41 | ;SPEEDS NECESSA| 00001750: 52 59 0D 4E 45 57 20 20 20 20 20 20 44 45 43 20 |RY.NEW DEC | 00001760: 44 55 52 41 54 2C 58 20 3B 4E 45 57 20 43 4F 4D |DURAT,X ;NEW COM| 00001770: 4D 41 4E 44 2D 0D 20 20 20 20 20 20 20 20 20 42 |MAND-. B| 00001780: 45 51 20 4E 45 57 33 20 20 20 20 3B 46 52 41 4D |EQ NEW3 ;FRAM| 00001790: 45 20 3F 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |E ?. JMP| 000017A0: 20 56 4F 49 43 45 33 0D 3B 2D 2D 2D 2D 2D 2D 2D | VOICE3.;-------| 000017B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000017C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000017D0: 0D 3B 54 52 41 43 4B 2D 43 4F 4E 54 52 4F 4C 2D |.;TRACK-CONTROL-| 000017E0: 52 4F 55 54 49 4E 45 53 0D 3B 2D 2D 2D 2D 2D 2D |ROUTINES.;------| 000017F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001810: 2D 0D 3B 43 4F 4D 4D 41 4E 44 53 0D 20 20 20 20 |-.;COMMANDS. | 00001820: 20 20 20 20 20 3B 24 46 46 20 58 58 20 20 20 20 | ;$FF XX | 00001830: 4C 4F 4F 50 20 58 58 0D 20 20 20 20 20 20 20 20 |LOOP XX. | 00001840: 20 3B 24 46 45 20 20 20 20 20 20 20 53 54 4F 50 | ;$FE STOP| 00001850: 20 56 4F 49 43 45 0D 20 20 20 20 20 20 20 20 20 | VOICE. | 00001860: 3B 24 46 44 20 58 58 20 20 20 20 54 52 41 4E 53 |;$FD XX TRANS| 00001870: 50 4F 53 45 20 2B 58 58 0D 20 20 20 20 20 20 20 |POSE +XX. | 00001880: 20 20 3B 24 46 43 20 58 58 20 20 20 20 54 52 41 | ;$FC XX TRA| 00001890: 4E 53 50 4F 53 45 20 2D 58 58 0D 20 20 20 20 20 |NSPOSE -XX. | 000018A0: 20 20 20 20 3B 24 46 42 20 58 58 20 20 20 20 46 | ;$FB XX F| 000018B0: 41 44 45 49 4E 20 20 58 58 0D 20 20 20 20 20 20 |ADEIN XX. | 000018C0: 20 20 20 3B 24 46 41 20 58 58 20 20 20 20 46 41 | ;$FA XX FA| 000018D0: 44 45 4F 55 54 20 58 58 0D 20 20 20 20 20 20 20 |DEOUT XX. | 000018E0: 20 20 3B 24 45 58 20 20 20 20 20 20 20 56 4F 4C | ;$EX VOL| 000018F0: 55 4D 45 20 58 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |UME X.;---------| 00001900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4E |--------------.N| 00001920: 45 57 33 20 20 20 20 20 4C 44 41 20 54 52 41 43 |EW3 LDA TRAC| 00001930: 4B 4C 2C 58 20 3B 53 45 54 20 50 4F 49 4E 54 45 |KL,X ;SET POINTE| 00001940: 52 53 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |RS. STA | 00001950: 24 46 38 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |$F8. LDA| 00001960: 20 54 52 41 43 4B 48 2C 58 0D 20 20 20 20 20 20 | TRACKH,X. | 00001970: 20 20 20 53 54 41 20 24 46 39 0D 3B 2D 2D 2D 2D | STA $F9.;----| 00001980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000019A0: 2D 2D 2D 0D 3B 43 48 45 43 4B 20 54 52 41 43 4B |---.;CHECK TRACK| 000019B0: 2D 43 4F 4D 4D 41 4E 44 53 0D 3B 2D 2D 2D 2D 2D |-COMMANDS.;-----| 000019C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000019D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000019E0: 2D 2D 0D 52 45 41 44 0D 20 20 20 20 20 20 20 20 |--.READ. | 000019F0: 20 4C 44 59 20 54 52 50 4F 53 2C 58 0D 20 20 20 | LDY TRPOS,X. | 00001A00: 20 20 20 20 20 20 4C 44 41 20 28 24 46 38 29 2C | LDA ($F8),| 00001A10: 59 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 4E |Y. BPL N| 00001A20: 4F 43 4F 4D 20 20 20 3B 53 45 43 54 4F 52 20 4F |OCOM ;SECTOR O| 00001A30: 52 20 43 4F 4D 4D 41 4E 44 3F 0D 20 20 20 20 20 |R COMMAND?. | 00001A40: 20 20 20 20 43 4D 50 20 23 24 46 46 20 20 20 20 | CMP #$FF | 00001A50: 20 20 20 20 20 3B 45 4E 44 0D 20 20 20 20 20 20 | ;END. | 00001A60: 20 20 20 42 4E 45 20 43 4F 4D 31 0D 20 20 20 20 | BNE COM1. | 00001A70: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00001A80: 20 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 20 | LDA ($F8),Y. | 00001A90: 20 20 20 20 20 20 20 53 54 41 20 54 52 50 4F 53 | STA TRPOS| 00001AA0: 2C 58 0D 20 20 20 20 20 20 20 20 20 54 41 59 0D |,X. TAY.| 00001AB0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 52 45 41 | JMP REA| 00001AC0: 44 2B 33 0D 43 4F 4D 31 20 20 20 20 20 43 4D 50 |D+3.COM1 CMP| 00001AD0: 20 23 24 46 45 20 20 20 20 20 20 20 20 20 3B 53 | #$FE ;S| 00001AE0: 54 4F 50 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |TOP. BNE| 00001AF0: 20 43 4F 4D 32 0D 20 20 20 20 20 20 20 20 20 4C | COM2. L| 00001B00: 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 |DA #0. S| 00001B10: 54 41 20 4F 4E 2C 58 0D 20 20 20 20 20 20 20 20 |TA ON,X. | 00001B20: 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 | LDA #1. | 00001B30: 20 53 54 41 20 43 55 54 2C 58 0D 20 20 20 20 20 | STA CUT,X. | 00001B40: 20 20 20 20 52 54 53 0D 43 4F 4D 32 20 20 20 20 | RTS.COM2 | 00001B50: 20 43 4D 50 20 23 24 46 44 20 20 20 20 20 20 20 | CMP #$FD | 00001B60: 20 20 3B 54 52 2B 58 58 0D 20 20 20 20 20 20 20 | ;TR+XX. | 00001B70: 20 20 42 4E 45 20 43 4F 4D 33 0D 20 20 20 20 20 | BNE COM3. | 00001B80: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00001B90: 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 44 41 5A | LDA ($F8),Y.DAZ| 00001BA0: 55 20 20 20 20 20 53 54 41 20 54 52 50 4F 53 45 |U STA TRPOSE| 00001BB0: 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D |,X. INY.| 00001BC0: 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 | TYA. | 00001BD0: 20 20 20 20 20 20 53 54 41 20 54 52 50 4F 53 2C | STA TRPOS,| 00001BE0: 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 52 |X. JMP R| 00001BF0: 45 41 44 2B 33 0D 43 4F 4D 33 20 20 20 20 20 43 |EAD+3.COM3 C| 00001C00: 4D 50 20 23 24 46 43 20 20 20 20 20 20 20 20 20 |MP #$FC | 00001C10: 3B 54 52 2D 58 58 0D 20 20 20 20 20 20 20 20 20 |;TR-XX. | 00001C20: 42 4E 45 20 43 4F 4D 34 0D 20 20 20 20 20 20 20 |BNE COM4. | 00001C30: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 4C | INY. L| 00001C40: 44 41 20 28 24 46 38 29 2C 59 0D 20 20 20 20 20 |DA ($F8),Y. | 00001C50: 20 20 20 20 45 4F 52 20 23 24 46 46 0D 20 20 20 | EOR #$FF. | 00001C60: 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 | CLC. | 00001C70: 20 20 20 41 44 43 20 23 24 30 31 0D 20 20 20 20 | ADC #$01. | 00001C80: 20 20 20 20 20 4A 4D 50 20 44 41 5A 55 0D 43 4F | JMP DAZU.CO| 00001C90: 4D 34 20 20 20 20 20 43 4D 50 20 23 24 46 42 20 |M4 CMP #$FB | 00001CA0: 20 20 20 20 20 20 20 20 3B 46 44 2B 58 58 0D 20 | ;FD+XX. | 00001CB0: 20 20 20 20 20 20 20 20 42 4E 45 20 43 4F 4D 35 | BNE COM5| 00001CC0: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |. INY. | 00001CD0: 20 20 20 20 20 20 20 4C 44 41 20 28 24 46 38 29 | LDA ($F8)| 00001CE0: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00001CF0: 46 41 44 45 54 49 4D 45 0D 20 20 20 20 20 20 20 |FADETIME. | 00001D00: 20 20 53 54 41 20 46 54 49 4D 45 2B 31 0D 20 20 | STA FTIME+1. | 00001D10: 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 | LDA #1. | 00001D20: 20 20 20 20 20 20 20 53 54 41 20 46 41 44 45 0D | STA FADE.| 00001D30: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 44 41 5A | JMP DAZ| 00001D40: 55 2B 33 0D 43 4F 4D 35 20 20 20 20 20 43 4D 50 |U+3.COM5 CMP| 00001D50: 20 23 24 46 41 20 20 20 20 20 20 20 20 20 3B 46 | #$FA ;F| 00001D60: 44 2D 58 58 0D 20 20 20 20 20 20 20 20 20 42 4E |D-XX. BN| 00001D70: 45 20 43 4F 4D 36 0D 20 20 20 20 20 20 20 20 20 |E COM6. | 00001D80: 49 4E 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |INY. LDA| 00001D90: 20 28 24 46 38 29 2C 59 0D 20 20 20 20 20 20 20 | ($F8),Y. | 00001DA0: 20 20 53 54 41 20 46 41 44 45 54 49 4D 45 0D 20 | STA FADETIME. | 00001DB0: 20 20 20 20 20 20 20 20 53 54 41 20 46 54 49 4D | STA FTIM| 00001DC0: 45 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |E+1. LDA| 00001DD0: 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 53 | #$FF. S| 00001DE0: 54 41 20 46 41 44 45 0D 20 20 20 20 20 20 20 20 |TA FADE. | 00001DF0: 20 4A 4D 50 20 44 41 5A 55 2B 33 0D 43 4F 4D 36 | JMP DAZU+3.COM6| 00001E00: 20 20 20 20 20 43 4D 50 20 23 24 45 30 0D 20 20 | CMP #$E0. | 00001E10: 20 20 20 20 20 20 20 42 43 43 20 43 4F 4D 37 0D | BCC COM7.| 00001E20: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 | CMP #$F| 00001E30: 30 20 20 20 20 20 20 20 20 20 3B 4D 56 4C 2E 58 |0 ;MVL.X| 00001E40: 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 43 4F |. BCS CO| 00001E50: 4D 37 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |M7. AND | 00001E60: 23 24 30 46 0D 20 20 20 20 20 20 20 20 20 53 54 |#$0F. ST| 00001E70: 41 20 56 4F 4C 55 4D 45 0D 20 20 20 20 20 20 20 |A VOLUME. | 00001E80: 20 20 49 4E 43 20 54 52 50 4F 53 2C 58 0D 43 4F | INC TRPOS,X.CO| 00001E90: 4D 37 20 20 20 20 20 4A 4D 50 20 52 45 41 44 0D |M7 JMP READ.| 00001EA0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00001EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001EC0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B D3 45 43 54 4F 52 |--------.;.ECTOR| 00001ED0: 2D 43 4F 4E 54 52 4F 4C 0D 3B 43 4F 4D 4D 41 4E |-CONTROL.;COMMAN| 00001EE0: 44 53 20 20 24 46 44 2E 58 58 20 20 20 44 55 52 |DS $FD.XX DUR| 00001EF0: 20 58 58 0D 20 20 20 20 20 20 20 20 20 20 3B 24 | XX. ;$| 00001F00: 46 43 2E 58 58 20 20 20 53 4E 44 20 58 58 0D 20 |FC.XX SND XX. | 00001F10: 20 20 20 20 20 20 20 20 20 3B 24 46 45 20 20 20 | ;$FE | 00001F20: 20 20 20 43 4F 4E 54 28 2D 2D 2D 29 0D 20 20 20 | CONT(---). | 00001F30: 20 20 20 20 20 20 20 3B 24 46 42 20 20 20 20 20 | ;$FB | 00001F40: 20 47 41 54 45 0D 20 20 20 20 20 20 20 20 20 20 | GATE. | 00001F50: 3B 24 46 41 20 20 20 20 20 20 53 57 49 54 43 48 |;$FA SWITCH| 00001F60: 0D 20 20 20 20 20 20 20 20 20 20 3B 24 46 39 20 |. ;$F9 | 00001F70: 20 20 20 20 20 43 55 54 0D 3B 2D 2D 2D 2D 2D 2D | CUT.;------| 00001F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FA0: 2D 0D 4E 4F 43 4F 4D 20 20 20 20 54 41 59 20 20 |-.NOCOM TAY | 00001FB0: 20 20 20 20 20 20 20 20 3B 53 45 54 20 50 4F 49 | ;SET POI| 00001FC0: 4E 54 45 52 53 0D 20 20 20 20 20 20 20 20 20 4C |NTERS. L| 00001FD0: 44 41 20 53 45 43 4C 4F 2C 59 0D 20 20 20 20 20 |DA SECLO,Y. | 00001FE0: 20 20 20 20 53 54 41 20 24 46 38 0D 20 20 20 20 | STA $F8. | 00001FF0: 20 20 20 20 20 4C 44 41 20 53 45 43 48 49 2C 59 | LDA SECHI,Y| 00002000: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00002010: 39 0D 52 45 41 44 33 20 20 20 20 4C 44 59 20 53 |9.READ3 LDY S| 00002020: 45 43 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 |ECPOS,X. | 00002030: 20 4C 44 41 20 28 24 46 38 29 2C 59 20 20 3B 43 | LDA ($F8),Y ;C| 00002040: 4F 4D 4D 41 4E 44 20 4F 52 0D 20 20 20 20 20 20 |OMMAND OR. | 00002050: 20 20 20 43 4D 50 20 23 24 43 30 20 20 20 20 20 | CMP #$C0 | 00002060: 3B 4E 4F 54 45 20 3F 0D 20 20 20 20 20 20 20 20 |;NOTE ?. | 00002070: 20 42 43 53 20 4E 4E 4F 54 45 20 20 20 20 3B 0D | BCS NNOTE ;.| 00002080: 20 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 | PHA. | 00002090: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 000020A0: 20 20 20 20 20 20 53 54 41 20 47 4C 4C 2C 58 0D | STA GLL,X.| 000020B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 48 | STA GLH| 000020C0: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 000020D0: 47 4C 49 44 45 4C 2C 58 0D 20 20 20 20 20 20 20 |GLIDEL,X. | 000020E0: 20 20 53 54 41 20 47 4C 49 44 45 48 2C 58 0D 20 | STA GLIDEH,X. | 000020F0: 20 20 20 20 20 20 20 20 53 54 41 20 56 53 50 45 | STA VSPE| 00002100: 45 44 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |ED,X. ST| 00002110: 41 20 56 49 4C 4F 2C 58 0D 20 20 20 20 20 20 20 |A VILO,X. | 00002120: 20 20 53 54 41 20 56 49 48 49 2C 58 0D 0D 20 20 | STA VIHI,X.. | 00002130: 20 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 | PLA. | 00002140: 20 20 20 20 4A 4D 50 20 4E 4F 54 45 0D 4E 4E 4F | JMP NOTE.NNO| 00002150: 54 45 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |TE. CMP | 00002160: 23 24 46 46 20 20 20 20 20 20 20 20 20 20 3B 45 |#$FF ;E| 00002170: 4E 44 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |ND. BNE | 00002180: 53 43 4F 4D 31 0D 20 20 20 20 20 20 20 20 20 49 |SCOM1. I| 00002190: 4E 43 20 54 52 50 4F 53 2C 58 0D 20 20 20 20 20 |NC TRPOS,X. | 000021A0: 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 | LDA #0. | 000021B0: 20 20 20 20 53 54 41 20 53 45 43 50 4F 53 2C 58 | STA SECPOS,X| 000021C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 57 |. LDA SW| 000021D0: 49 54 43 48 2C 58 20 3B 4E 4F 20 43 55 54 20 49 |ITCH,X ;NO CUT I| 000021E0: 46 20 53 57 49 54 43 48 0D 20 20 20 20 20 20 20 |F SWITCH. | 000021F0: 20 20 42 4E 45 20 4E 4F 57 52 41 50 20 20 20 3B | BNE NOWRAP ;| 00002200: 49 53 20 41 43 54 49 56 45 0D 20 20 20 20 20 20 |IS ACTIVE. | 00002210: 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 | LDA #$FF. | 00002220: 20 20 20 20 20 53 54 41 20 57 56 53 50 45 45 44 | STA WVSPEED| 00002230: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |1,X. LDA| 00002240: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 00002250: 54 41 20 57 41 56 45 2C 58 0D 4E 4F 57 52 41 50 |TA WAVE,X.NOWRAP| 00002260: 20 20 20 4A 4D 50 20 4E 45 57 33 0D 53 43 4F 4D | JMP NEW3.SCOM| 00002270: 31 20 20 20 20 43 4D 50 20 23 24 46 39 0D 20 20 |1 CMP #$F9. | 00002280: 20 20 20 20 20 20 20 42 43 53 20 53 43 4F 4D 31 | BCS SCOM1| 00002290: 41 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 |A. JMP S| 000022A0: 43 4F 4D 37 0D 53 43 4F 4D 31 41 20 20 20 43 4D |COM7.SCOM1A CM| 000022B0: 50 20 23 24 46 45 20 20 20 20 20 3B 2D 2D 2D 0D |P #$FE ;---.| 000022C0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 43 4F | BNE SCO| 000022D0: 4D 32 0D 4E 4F 54 45 33 20 20 20 20 49 4E 59 0D |M2.NOTE3 INY.| 000022E0: 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 | TYA. | 000022F0: 20 20 20 20 20 20 53 54 41 20 53 45 43 50 4F 53 | STA SECPOS| 00002300: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00002310: 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#1. STA | 00002320: 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 20 |CONT,X. | 00002330: 4A 4D 50 20 4E 4F 54 45 32 0D 53 43 4F 4D 32 20 |JMP NOTE2.SCOM2 | 00002340: 20 20 20 43 4D 50 20 23 24 46 44 20 20 20 20 20 | CMP #$FD | 00002350: 3B 44 55 52 2E 58 58 0D 20 20 20 20 20 20 20 20 |;DUR.XX. | 00002360: 20 42 4E 45 20 53 43 4F 4D 33 0D 20 20 20 20 20 | BNE SCOM3. | 00002370: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00002380: 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 20 20 | LDA ($F8),Y. | 00002390: 20 20 20 20 20 20 53 54 41 20 44 55 52 2C 58 0D | STA DUR,X.| 000023A0: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 55 52 | STA DUR| 000023B0: 41 54 2C 58 0D 44 41 5A 55 34 20 20 20 20 49 4E |AT,X.DAZU4 IN| 000023C0: 59 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 |Y. TYA. | 000023D0: 20 20 20 20 20 20 20 20 53 54 41 20 53 45 43 50 | STA SECP| 000023E0: 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D |OS,X. JM| 000023F0: 50 20 52 45 41 44 33 2B 33 0D 53 43 4F 4D 33 20 |P READ3+3.SCOM3 | 00002400: 20 20 20 43 4D 50 20 23 24 46 43 20 20 20 20 20 | CMP #$FC | 00002410: 3B 53 4E 44 2E 58 58 0D 20 20 20 20 20 20 20 20 |;SND.XX. | 00002420: 20 42 4E 45 20 53 43 4F 4D 34 0D 20 20 20 20 20 | BNE SCOM4. | 00002430: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00002440: 20 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 20 20 | LDA ($F8),Y. | 00002450: 20 20 20 20 20 20 53 54 41 20 53 4E 44 2C 58 0D | STA SND,X.| 00002460: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 4E 44 | STA SND| 00002470: 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |N,X. LDA| 00002480: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00002490: 20 57 41 56 45 58 50 4F 53 2C 58 0D 20 20 20 20 | WAVEXPOS,X. | 000024A0: 20 20 20 20 20 4A 4D 50 20 44 41 5A 55 34 0D 53 | JMP DAZU4.S| 000024B0: 43 4F 4D 34 20 20 20 20 43 4D 50 20 23 24 46 42 |COM4 CMP #$FB| 000024C0: 20 20 20 20 20 3B 47 41 54 45 0D 20 20 20 20 20 | ;GATE. | 000024D0: 20 20 20 20 42 4E 45 20 53 43 4F 4D 35 0D 20 20 | BNE SCOM5. | 000024E0: 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 | LDA #1. | 000024F0: 20 20 20 20 20 20 20 45 4F 52 20 41 4E 44 4F 52 | EOR ANDOR| 00002500: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00002510: 41 4E 44 4F 52 2C 58 0D 20 20 20 20 20 20 20 20 |ANDOR,X. | 00002520: 20 4A 4D 50 20 4E 4F 54 45 33 0D 0D 0D 0D 53 43 | JMP NOTE3....SC| 00002530: 4F 4D 35 20 20 20 20 43 4D 50 20 23 24 46 41 20 |OM5 CMP #$FA | 00002540: 20 20 20 20 3B 53 57 49 54 43 48 0D 20 20 20 20 | ;SWITCH. | 00002550: 20 20 20 20 20 42 4E 45 20 53 43 4F 4D 36 0D 20 | BNE SCOM6. | 00002560: 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 | LDA #1. | 00002570: 20 20 20 20 20 20 20 20 45 4F 52 20 53 57 49 54 | EOR SWIT| 00002580: 43 48 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |CH,X. ST| 00002590: 41 20 53 57 49 54 43 48 2C 58 0D 4E 4F 46 58 20 |A SWITCH,X.NOFX | 000025A0: 20 20 20 20 49 4E 43 20 53 45 43 50 4F 53 2C 58 | INC SECPOS,X| 000025B0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 52 45 |. JMP RE| 000025C0: 41 44 33 0D 0D 53 43 4F 4D 36 20 20 20 20 43 4D |AD3..SCOM6 CM| 000025D0: 50 20 23 24 46 39 20 20 20 20 20 3B 43 55 54 0D |P #$F9 ;CUT.| 000025E0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 43 4F | BNE SCO| 000025F0: 4D 37 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |M7. LDA | 00002600: 44 55 52 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |DUR,X. S| 00002610: 54 41 20 44 55 52 41 54 2C 58 0D 20 20 20 20 20 |TA DURAT,X. | 00002620: 20 20 20 20 4C 44 41 20 23 38 20 20 20 20 20 20 | LDA #8 | 00002630: 20 3B 52 45 53 45 54 53 20 56 4F 49 43 45 0D 20 | ;RESETS VOICE. | 00002640: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 | STA $D40| 00002650: 34 2C 58 20 20 3B 2B 20 56 4F 49 43 45 20 52 4F |4,X ;+ VOICE RO| 00002660: 55 54 49 4E 45 53 0D 20 20 20 20 20 20 20 20 20 |UTINES. | 00002670: 53 54 41 20 57 41 56 45 2C 58 20 20 3B 54 4F 20 |STA WAVE,X ;TO | 00002680: 53 41 56 45 20 52 41 53 54 45 52 54 49 4D 45 0D |SAVE RASTERTIME.| 00002690: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 000026A0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 000026B0: 44 34 30 35 2C 58 0D 20 20 20 20 20 20 20 20 20 |D405,X. | 000026C0: 53 54 41 20 24 44 34 30 36 2C 58 0D 20 20 20 20 |STA $D406,X. | 000026D0: 20 20 20 20 20 53 54 41 20 41 44 2C 58 0D 20 20 | STA AD,X. | 000026E0: 20 20 20 20 20 20 20 53 54 41 20 53 52 2C 58 0D | STA SR,X.| 000026F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 46 | LDA #$F| 00002700: 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 57 |F. STA W| 00002710: 56 53 50 45 45 44 31 2C 58 0D 20 20 20 20 20 20 |VSPEED1,X. | 00002720: 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 20 | LDA #1. | 00002730: 20 20 20 53 54 41 20 43 55 54 2C 58 0D 20 20 20 | STA CUT,X. | 00002740: 20 20 20 20 20 20 49 4E 43 20 53 45 43 50 4F 53 | INC SECPOS| 00002750: 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |,X. JMP | 00002760: 48 52 43 48 45 43 4B 0D 53 43 4F 4D 37 20 20 20 |HRCHECK.SCOM7 | 00002770: 20 41 4E 44 20 23 24 33 46 20 20 20 20 3B 53 55 | AND #$3F ;SU| 00002780: 50 45 52 43 4F 4D 4D 41 4E 44 53 0D 20 20 20 20 |PERCOMMANDS. | 00002790: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 000027A0: 20 20 4C 44 41 20 43 4F 4D 4D 54 41 42 31 2C 59 | LDA COMMTAB1,Y| 000027B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 45 46 |. STA EF| 000027C0: 46 48 49 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |FHI,X. L| 000027D0: 44 41 20 43 4F 4D 4D 54 41 42 32 2C 59 0D 20 20 |DA COMMTAB2,Y. | 000027E0: 20 20 20 20 20 20 20 53 54 41 20 45 46 46 4C 4F | STA EFFLO| 000027F0: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00002800: 43 4F 4D 4D 54 41 42 2C 59 0D 20 20 20 20 20 20 |COMMTAB,Y. | 00002810: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 00002820: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L| 00002830: 44 41 20 43 4F 4D 4D 54 41 42 33 2C 59 0D 20 20 |DA COMMTAB3,Y. | 00002840: 20 20 20 20 20 20 20 53 54 41 20 4A 55 4D 50 2B | STA JUMP+| 00002850: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 |1. LDA C| 00002860: 4F 4D 4D 54 41 42 33 2B 31 2C 59 0D 20 20 20 20 |OMMTAB3+1,Y. | 00002870: 20 20 20 20 20 53 54 41 20 4A 55 4D 50 2B 32 0D | STA JUMP+2.| 00002880: 0D 4A 55 4D 50 20 20 20 20 20 4A 4D 50 20 52 45 |.JUMP JMP RE| 00002890: 41 44 33 0D 0D 0D 4E 4F 54 45 20 20 20 20 20 43 |AD3...NOTE C| 000028A0: 4D 50 20 23 24 36 30 20 20 20 3B 43 4F 55 4E 54 |MP #$60 ;COUNT| 000028B0: 20 4E 4F 54 45 56 41 4C 55 45 0D 20 20 20 20 20 | NOTEVALUE. | 000028C0: 20 20 20 20 42 43 43 20 4E 4F 52 4D 41 4C 0D 20 | BCC NORMAL. | 000028D0: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. | 000028E0: 20 20 20 20 20 53 42 43 20 23 24 36 30 0D 4E 4F | SBC #$60.NO| 000028F0: 52 4D 41 4C 20 20 20 43 4C 43 0D 20 20 20 20 20 |RMAL CLC. | 00002900: 20 20 20 20 41 44 43 20 54 52 50 4F 53 45 2C 58 | ADC TRPOSE,X| 00002910: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4E 4F |. STA NO| 00002920: 54 45 56 2C 58 20 3B 4E 45 57 20 4E 4F 54 45 0D |TEV,X ;NEW NOTE.| 00002930: 20 20 20 20 20 20 20 20 20 53 54 41 20 4E 4F 54 | STA NOT| 00002940: 45 4F 4B 2C 58 0D 20 20 20 20 20 20 20 20 20 49 |EOK,X. I| 00002950: 4E 43 20 53 45 43 50 4F 53 2C 58 0D 4E 4F 54 45 |NC SECPOS,X.NOTE| 00002960: 32 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |2.. LDA | 00002970: 44 55 52 2C 58 20 20 3B 50 52 45 56 49 4F 55 53 |DUR,X ;PREVIOUS| 00002980: 20 4E 4F 54 45 0D 20 20 20 20 20 20 20 20 20 53 | NOTE. S| 00002990: 54 41 20 44 55 52 41 54 2C 58 0D 20 20 20 20 20 |TA DURAT,X. | 000029A0: 20 20 20 20 4C 44 41 20 53 57 49 54 43 48 2C 58 | LDA SWITCH,X| 000029B0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 57 |. BNE SW| 000029C0: 4F 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |ON. LDA | 000029D0: 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 20 |CONT,X. | 000029E0: 42 4E 45 20 53 57 4F 4E 0D 20 20 20 20 20 20 20 |BNE SWON. | 000029F0: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00002A00: 20 20 53 54 41 20 43 55 54 2C 58 0D 20 20 20 20 | STA CUT,X. | 00002A10: 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 | LDA #1. | 00002A20: 20 20 20 20 20 53 54 41 20 41 4E 44 4F 52 2C 58 | STA ANDOR,X| 00002A30: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 53 4E |. LDY SN| 00002A40: 44 2C 58 0D 20 20 20 20 20 20 20 20 20 20 20 20 |D,X. | 00002A50: 20 20 20 20 20 20 20 20 3B 54 48 49 53 20 46 52 | ;THIS FR| 00002A60: 41 4D 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |AME. LDA| 00002A70: 20 41 44 54 41 42 2C 59 3B 53 45 54 53 20 54 48 | ADTAB,Y;SETS TH| 00002A80: 45 20 4E 45 57 0D 20 20 20 20 20 20 20 20 20 53 |E NEW. S| 00002A90: 54 41 20 41 44 2C 58 20 20 20 3B 41 44 53 52 2D |TA AD,X ;ADSR-| 00002AA0: 53 45 54 54 49 4E 47 53 0D 20 20 20 20 20 20 20 |SETTINGS. | 00002AB0: 20 20 53 54 41 20 24 44 34 30 35 2C 58 3B 3D 20 | STA $D405,X;= | 00002AC0: 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 41 0D 20 |BEGINNING OF A. | 00002AD0: 20 20 20 20 20 20 20 20 4C 44 41 20 53 56 4F 4C | LDA SVOL| 00002AE0: 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |,X. BEQ | 00002AF0: 53 53 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |SS1. LDA| 00002B00: 20 53 52 54 41 42 2C 59 0D 20 20 20 20 20 20 20 | SRTAB,Y. | 00002B10: 20 20 41 4E 44 20 23 24 30 46 0D 20 20 20 20 20 | AND #$0F. | 00002B20: 20 20 20 20 4F 52 41 20 53 56 4F 4C 2C 58 0D 20 | ORA SVOL,X. | 00002B30: 20 20 20 20 20 20 20 20 42 4E 45 20 53 53 32 0D | BNE SS2.| 00002B40: 53 53 31 20 20 20 20 20 20 4C 44 41 20 53 52 54 |SS1 LDA SRT| 00002B50: 41 42 2C 59 3B 4E 45 57 20 4E 4F 54 45 20 3D 20 |AB,Y;NEW NOTE = | 00002B60: 4D 41 58 2E 0D 53 53 32 20 20 20 20 20 20 53 54 |MAX..SS2 ST| 00002B70: 41 20 53 52 2C 58 20 20 20 3B 52 41 53 54 45 52 |A SR,X ;RASTER| 00002B80: 54 49 4D 45 0D 20 20 20 20 20 20 20 20 20 53 54 |TIME. ST| 00002B90: 41 20 24 44 34 30 36 2C 58 0D 20 20 20 20 20 20 |A $D406,X. | 00002BA0: 20 20 20 4C 44 41 20 41 44 54 41 42 2C 59 3B 53 | LDA ADTAB,Y;S| 00002BB0: 45 54 53 20 54 48 45 20 4E 45 57 0D 20 20 20 20 |ETS THE NEW. | 00002BC0: 20 20 20 20 20 53 54 41 20 41 44 2C 58 20 20 20 | STA AD,X | 00002BD0: 3B 41 44 53 52 2D 53 45 54 54 49 4E 47 53 0D 20 |;ADSR-SETTINGS. | 00002BE0: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 | STA $D40| 00002BF0: 35 2C 58 3B 3D 20 42 45 47 49 4E 4E 49 4E 47 20 |5,X;= BEGINNING | 00002C00: 4F 46 20 41 0D 20 20 20 20 20 20 20 20 20 4A 4D |OF A. JM| 00002C10: 50 20 4E 4F 43 4F 4E 54 49 0D 53 53 20 20 20 20 |P NOCONTI.SS | 00002C20: 20 20 20 4C 44 41 20 43 4F 4E 54 2C 58 0D 20 20 | LDA CONT,X. | 00002C30: 20 20 20 20 20 20 20 42 45 51 20 4E 4F 43 4F 4E | BEQ NOCON| 00002C40: 54 49 0D 0D 53 57 4F 4E 20 20 20 20 20 4A 53 52 |TI..SWON JSR| 00002C50: 20 50 4C 41 59 33 0D 20 20 20 20 20 20 20 20 20 | PLAY3. | 00002C60: 4A 53 52 20 53 49 44 0D 20 20 20 20 20 20 20 20 |JSR SID. | 00002C70: 20 4A 4D 50 20 4E 4F 43 4F 4E 54 0D 4E 4F 43 4F | JMP NOCONT.NOCO| 00002C80: 4E 54 49 20 20 4C 44 41 20 57 41 56 45 58 50 4F |NTI LDA WAVEXPO| 00002C90: 53 2C 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |S,X. BNE| 00002CA0: 20 53 55 50 57 41 56 0D 20 20 20 20 20 20 20 20 | SUPWAV. | 00002CB0: 20 4C 44 41 20 57 41 56 50 54 41 42 2C 59 0D 53 | LDA WAVPTAB,Y.S| 00002CC0: 55 50 57 41 56 20 20 20 53 54 41 20 57 41 56 45 |UPWAV STA WAVE| 00002CD0: 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 20 54 |POS,X. T| 00002CE0: 59 41 0D 20 20 20 20 20 20 20 20 20 50 48 41 0D |YA. PHA.| 00002CF0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 57 41 56 | LDY WAV| 00002D00: 45 50 4F 53 2C 58 20 3B 53 45 54 53 20 57 41 56 |EPOS,X ;SETS WAV| 00002D10: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 57 |E. LDA W| 00002D20: 41 56 45 54 41 42 2C 59 20 3B 28 46 49 52 53 54 |AVETAB,Y ;(FIRST| 00002D30: 20 52 4F 57 29 0D 20 20 20 20 20 20 20 20 20 50 | ROW). P| 00002D40: 48 41 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |HA. AND | 00002D50: 23 24 46 37 0D 20 20 20 20 20 20 20 20 20 53 54 |#$F7. ST| 00002D60: 41 20 57 41 56 45 2C 58 0D 20 20 20 20 20 20 20 |A WAVE,X. | 00002D70: 20 20 53 54 41 20 24 44 34 30 34 2C 58 20 20 20 | STA $D404,X | 00002D80: 3B 43 48 45 43 4B 20 46 4F 52 0D 20 20 20 20 20 |;CHECK FOR. | 00002D90: 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 | PLA | 00002DA0: 20 20 3B 44 52 55 4D 2D 4D 4F 44 45 0D 20 20 20 | ;DRUM-MODE. | 00002DB0: 20 20 20 20 20 20 41 4E 44 20 23 24 30 38 0D 20 | AND #$08. | 00002DC0: 20 20 20 20 20 20 20 20 53 54 41 20 44 52 55 4D | STA DRUM| 00002DD0: 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |,X. BEQ | 00002DE0: 4E 4F 44 52 55 4D 32 0D 20 20 20 20 20 20 20 20 |NODRUM2. | 00002DF0: 20 4C 44 41 20 46 52 45 51 54 41 42 2C 59 0D 20 | LDA FREQTAB,Y. | 00002E00: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 | STA $D40| 00002E10: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |1,X. STA| 00002E20: 20 4E 4F 54 45 4F 4B 2C 58 0D 20 20 20 20 20 20 | NOTEOK,X. | 00002E30: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00002E40: 20 20 20 53 54 41 20 24 44 34 30 30 2C 58 0D 20 | STA $D400,X. | 00002E50: 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F 4E 4F | JMP NONO| 00002E60: 4E 0D 4E 4F 44 52 55 4D 32 20 20 4C 44 41 20 46 |N.NODRUM2 LDA F| 00002E70: 52 45 51 54 41 42 2C 59 0D 20 20 20 20 20 20 20 |REQTAB,Y. | 00002E80: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 00002E90: 44 43 20 4E 4F 54 45 56 2C 58 0D 20 20 20 20 20 |DC NOTEV,X. | 00002EA0: 20 20 20 20 53 54 41 20 4E 4F 54 45 4F 4B 2C 58 | STA NOTEOK,X| 00002EB0: 0D 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 |. TAY. | 00002EC0: 20 20 20 20 20 20 20 4C 44 41 20 46 52 51 4C 4F | LDA FRQLO| 00002ED0: 2C 59 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D |,Y. CLC.| 00002EE0: 20 20 20 20 20 20 20 20 20 41 44 43 20 46 49 4E | ADC FIN| 00002EF0: 45 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |E,X. STA| 00002F00: 20 24 44 34 30 30 2C 58 0D 20 20 20 20 20 20 20 | $D400,X. | 00002F10: 20 20 4C 44 41 20 46 52 51 48 49 2C 59 0D 20 20 | LDA FRQHI,Y. | 00002F20: 20 20 20 20 20 20 20 41 44 43 20 23 30 0D 20 20 | ADC #0. | 00002F30: 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 31 | STA $D401| 00002F40: 2C 58 0D 4E 4F 4E 4F 4E 20 20 20 20 50 4C 41 0D |,X.NONON PLA.| 00002F50: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 00002F60: 20 20 20 20 20 20 4C 44 41 20 57 41 56 45 58 50 | LDA WAVEXP| 00002F70: 4F 53 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 |OS,X. BE| 00002F80: 51 20 53 4C 4F 57 32 0D 20 20 20 20 20 20 20 20 |Q SLOW2. | 00002F90: 20 4C 44 41 20 58 57 56 53 50 45 45 44 2C 58 0D | LDA XWVSPEED,X.| 00002FA0: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 4C 4F | JMP SLO| 00002FB0: 57 31 0D 0D 53 4C 4F 57 32 20 20 20 20 4C 44 41 |W1..SLOW2 LDA| 00002FC0: 20 45 46 46 54 41 42 2C 59 0D 20 20 20 20 20 20 | EFFTAB,Y. | 00002FD0: 20 20 20 41 4E 44 20 23 24 30 46 0D 53 4C 4F 57 | AND #$0F.SLOW| 00002FE0: 31 20 20 20 20 53 54 41 20 57 56 53 50 45 45 44 |1 STA WVSPEED| 00002FF0: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00003000: 57 56 53 50 45 45 44 31 2C 58 0D 20 20 20 20 20 |WVSPEED1,X. | 00003010: 20 20 20 20 49 4E 43 20 57 41 56 45 50 4F 53 2C | INC WAVEPOS,| 00003020: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 |X. LDA P| 00003030: 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 20 20 |CONT,X. | 00003040: 42 4E 45 20 46 49 4C 4C 4C 0D 20 20 20 20 20 20 |BNE FILLL. | 00003050: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00003060: 20 20 20 53 54 41 20 4E 4F 50 55 2C 58 0D 3B 2D | STA NOPU,X.;-| 00003070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003090: 2D 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 |------. | 000030A0: 4C 44 41 20 50 55 4C 50 54 41 42 2C 59 20 20 3B |LDA PULPTAB,Y ;| 000030B0: 50 55 4C 53 45 2D 52 4F 55 54 49 4E 45 0D 20 20 |PULSE-ROUTINE. | 000030C0: 20 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 | TAY | 000030D0: 20 20 20 20 20 20 3B 49 4E 49 54 0D 20 20 20 20 | ;INIT. | 000030E0: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 | CLC. | 000030F0: 20 20 41 44 43 20 23 31 0D 20 20 20 20 20 20 20 | ADC #1. | 00003100: 20 20 53 54 41 20 50 55 50 4F 53 2C 58 0D 20 20 | STA PUPOS,X. | 00003110: 20 20 20 20 20 20 20 4C 44 41 20 50 55 4C 53 54 | LDA PULST| 00003120: 41 42 31 2C 59 0D 20 20 20 20 20 20 20 20 20 53 |AB1,Y. S| 00003130: 54 41 20 50 55 4C 53 48 49 2C 58 0D 20 20 20 20 |TA PULSHI,X. | 00003140: 20 20 20 20 20 53 54 41 20 24 44 34 30 33 2C 58 | STA $D403,X| 00003150: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 55 |. LDA PU| 00003160: 4C 53 54 41 42 32 2C 59 0D 20 20 20 20 20 20 20 |LSTAB2,Y. | 00003170: 20 20 53 54 41 20 50 55 4C 53 4C 4F 2C 58 0D 20 | STA PULSLO,X. | 00003180: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 | STA $D40| 00003190: 32 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |2,X. LDA| 000031A0: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 000031B0: 20 50 55 4C 53 46 52 4D 2C 58 0D 20 20 20 20 20 | PULSFRM,X. | 000031C0: 20 20 20 20 4C 44 59 20 53 4E 44 2C 58 0D 3B 2D | LDY SND,X.;-| 000031D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000031E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000031F0: 2D 2D 2D 2D 2D 2D 0D 46 49 4C 4C 4C 0D 20 20 20 |------.FILLL. | 00003200: 20 20 20 20 20 20 43 50 58 20 46 49 4C 43 4F 4E | CPX FILCON| 00003210: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E 4F |. BNE NO| 00003220: 43 4F 4E 54 0D 0D 20 20 20 20 20 20 20 20 20 4C |CONT.. L| 00003230: 44 41 20 46 43 4F 4E 54 0D 20 20 20 20 20 20 20 |DA FCONT. | 00003240: 20 20 42 4E 45 20 4E 4F 43 4F 4E 54 0D 0D 20 20 | BNE NOCONT.. | 00003250: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 00003260: 20 20 20 20 20 20 20 53 54 41 20 4E 4F 46 49 0D | STA NOFI.| 00003270: 20 20 20 20 20 20 20 20 20 53 54 41 20 46 49 4C | STA FIL| 00003280: 54 46 52 4D 0D 20 20 20 20 20 20 20 20 20 4C 44 |TFRM. LD| 00003290: 41 20 46 49 4C 50 54 41 42 2C 59 0D 20 20 20 20 |A FILPTAB,Y. | 000032A0: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 000032B0: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 000032C0: 44 43 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |DC #1. S| 000032D0: 54 41 20 46 49 4C 50 4F 53 0D 20 20 20 20 20 20 |TA FILPOS. | 000032E0: 20 20 20 4C 44 41 20 46 52 51 46 0D 20 20 20 20 | LDA FRQF. | 000032F0: 20 20 20 20 20 42 45 51 20 46 49 4C 4C 54 0D 20 | BEQ FILLT. | 00003300: 20 20 20 20 20 20 20 20 4C 44 59 20 46 4C 4F 0D | LDY FLO.| 00003310: 20 20 20 20 20 20 20 20 20 53 54 59 20 46 49 4C | STY FIL| 00003320: 54 4C 4F 0D 20 20 20 20 20 20 20 20 20 54 59 41 |TLO. TYA| 00003330: 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 37 |. AND #7| 00003340: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 49 |. STA FI| 00003350: 4C 46 52 45 51 4C 0D 20 20 20 20 20 20 20 20 20 |LFREQL. | 00003360: 4C 44 41 20 46 48 49 0D 20 20 20 20 20 20 20 20 |LDA FHI. | 00003370: 20 53 54 41 20 46 49 4C 54 48 49 0D 20 20 20 20 | STA FILTHI. | 00003380: 20 20 20 20 20 4A 4D 50 20 46 49 4C 4C 54 32 0D | JMP FILLT2.| 00003390: 0D 46 49 4C 4C 54 20 20 20 20 4C 44 41 20 46 49 |.FILLT LDA FI| 000033A0: 4C 54 54 41 42 31 2C 59 0D 20 20 20 20 20 20 20 |LTTAB1,Y. | 000033B0: 20 20 53 54 41 20 46 49 4C 54 48 49 0D 20 20 20 | STA FILTHI. | 000033C0: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 000033D0: 20 20 20 4C 44 41 20 46 49 4C 54 54 41 42 32 2C | LDA FILTTAB2,| 000033E0: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |Y. STA F| 000033F0: 49 4C 54 4C 4F 0D 20 20 20 20 20 20 20 20 20 54 |ILTLO. T| 00003400: 41 59 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |AY. AND | 00003410: 23 37 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#7. STA | 00003420: 46 49 4C 46 52 45 51 4C 0D 20 20 20 20 20 20 20 |FILFREQL. | 00003430: 20 20 50 4C 41 0D 46 49 4C 4C 54 32 20 20 20 4C | PLA.FILLT2 L| 00003440: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 52 4F |SR A. RO| 00003450: 52 20 46 49 4C 54 4C 4F 0D 20 20 20 20 20 20 20 |R FILTLO. | 00003460: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 00003470: 20 52 4F 52 20 46 49 4C 54 4C 4F 0D 20 20 20 20 | ROR FILTLO. | 00003480: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 00003490: 20 20 20 20 52 4F 52 20 46 49 4C 54 4C 4F 0D 20 | ROR FILTLO. | 000034A0: 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 4C 54 | LDA FILT| 000034B0: 4C 4F 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |LO. STA | 000034C0: 46 49 4C 46 52 45 51 48 0D 20 20 20 20 20 20 20 |FILFREQH. | 000034D0: 20 20 53 54 59 20 46 49 4C 54 4C 4F 0D 0D 0D 0D | STY FILTLO....| 000034E0: 0D 0D 4E 4F 43 4F 4E 54 20 20 20 4C 44 41 20 23 |..NOCONT LDA #| 000034F0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |0. STA C| 00003500: 4F 4E 54 2C 58 0D 0D 20 20 20 20 20 20 20 20 20 |ONT,X.. | 00003510: 4C 44 41 20 48 41 52 44 4F 4E 2C 58 0D 20 20 20 |LDA HARDON,X. | 00003520: 20 20 20 20 20 20 42 45 51 20 48 52 43 48 45 43 | BEQ HRCHEC| 00003530: 4B 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |K.. LDA | 00003540: 23 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#1. STA | 00003550: 41 4E 44 4F 52 2C 58 0D 0D 48 52 43 48 45 43 4B |ANDOR,X..HRCHECK| 00003560: 20 20 4C 44 59 20 53 45 43 50 4F 53 2C 58 20 20 | LDY SECPOS,X | 00003570: 3B 43 48 45 43 4B 49 4E 47 20 4E 45 58 54 0D 48 |;CHECKING NEXT.H| 00003580: 52 43 48 45 43 4B 32 20 4C 44 41 20 28 24 46 38 |RCHECK2 LDA ($F8| 00003590: 29 2C 59 20 20 20 3B 53 45 43 54 4F 52 44 41 54 |),Y ;SECTORDAT| 000035A0: 41 20 46 4F 52 0D 20 20 20 20 20 20 20 20 20 43 |A FOR. C| 000035B0: 4D 50 20 23 24 46 46 20 20 20 20 20 20 3B 48 41 |MP #$FF ;HA| 000035C0: 52 44 52 45 53 54 41 52 54 20 4F 4E 0D 20 20 20 |RDRESTART ON. | 000035D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000035E0: 20 20 20 20 3B 4F 52 20 4F 46 46 0D 20 20 20 20 | ;OR OFF. | 000035F0: 20 20 20 20 20 42 45 51 20 4F 4E 59 45 53 20 20 | BEQ ONYES | 00003600: 3B 55 53 45 52 20 43 41 4E 20 4D 41 4E 49 50 55 |;USER CAN MANIPU| 00003610: 4C 41 54 45 0D 4E 4F 45 4E 44 20 20 20 20 43 4D |LATE.NOEND CM| 00003620: 50 20 23 24 36 30 20 20 20 3B 54 48 49 53 20 28 |P #$60 ;THIS (| 00003630: 4F 4E 59 45 53 2F 4F 4E 4E 4F 29 0D 20 20 20 20 |ONYES/ONNO). | 00003640: 20 20 20 20 20 42 43 43 20 4F 4E 59 45 53 20 20 | BCC ONYES | 00003650: 3B 28 4E 45 57 20 53 45 43 54 4F 52 20 48 52 29 |;(NEW SECTOR HR)| 00003660: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00003670: 43 30 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 |C0. BCC | 00003680: 4F 4E 4E 4F 0D 20 20 20 20 20 20 20 20 20 43 4D |ONNO. CM| 00003690: 50 20 23 24 46 45 0D 20 20 20 20 20 20 20 20 20 |P #$FE. | 000036A0: 42 45 51 20 4F 4E 4E 4F 0D 20 20 20 20 20 20 20 |BEQ ONNO. | 000036B0: 20 20 43 4D 50 20 23 24 46 42 0D 20 20 20 20 20 | CMP #$FB. | 000036C0: 20 20 20 20 42 45 51 20 4F 4E 4E 4F 0D 20 20 20 | BEQ ONNO. | 000036D0: 20 20 20 20 20 20 43 4D 50 20 23 24 46 39 0D 20 | CMP #$F9. | 000036E0: 20 20 20 20 20 20 20 20 42 45 51 20 4F 4E 4E 4F | BEQ ONNO| 000036F0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00003700: 46 43 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |FC. BNE | 00003710: 53 57 49 31 0D 20 20 20 20 20 20 20 20 20 49 4E |SWI1. IN| 00003720: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 |Y. LDA (| 00003730: 24 46 38 29 2C 59 0D 20 20 20 20 20 20 20 20 20 |$F8),Y. | 00003740: 53 54 41 20 53 4E 44 4E 2C 58 0D 20 20 20 20 20 |STA SNDN,X. | 00003750: 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 | DEY. | 00003760: 20 4C 44 41 20 23 24 46 43 0D 53 57 49 31 0D 20 | LDA #$FC.SWI1. | 00003770: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 41 | CMP #$FA| 00003780: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 57 |. BNE SW| 00003790: 49 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |I. LDA #| 000037A0: 31 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 53 |1. EOR S| 000037B0: 57 49 54 43 48 2C 58 0D 20 20 20 20 20 20 20 20 |WITCH,X. | 000037C0: 20 53 54 41 20 53 57 49 54 43 48 32 2C 58 0D 20 | STA SWITCH2,X. | 000037D0: 20 20 20 20 20 20 20 20 4A 4D 50 20 50 4C 55 53 | JMP PLUS| 000037E0: 31 0D 0D 0D 53 57 49 20 20 20 20 20 20 43 4D 50 |1...SWI CMP| 000037F0: 20 23 24 46 43 0D 20 20 20 20 20 20 20 20 20 42 | #$FC. B| 00003800: 43 43 20 50 4C 55 53 31 0D 20 20 20 20 20 20 20 |CC PLUS1. | 00003810: 20 20 49 4E 59 0D 50 4C 55 53 31 20 20 20 20 49 | INY.PLUS1 I| 00003820: 4E 59 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |NY. BNE | 00003830: 48 52 43 48 45 43 4B 32 0D 0D 4F 4E 4E 4F 20 20 |HRCHECK2..ONNO | 00003840: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00003850: 20 20 20 42 45 51 20 48 52 53 45 54 0D 4F 4E 59 | BEQ HRSET.ONY| 00003860: 45 53 20 20 20 20 4C 44 41 20 23 31 0D 48 52 53 |ES LDA #1.HRS| 00003870: 45 54 20 20 20 20 53 54 41 20 48 41 52 44 4F 4E |ET STA HARDON| 00003880: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00003890: 53 57 49 54 43 48 32 2C 58 0D 20 20 20 20 20 20 |SWITCH2,X. | 000038A0: 20 20 20 42 45 51 20 4F 4E 44 0D 20 20 20 20 20 | BEQ OND. | 000038B0: 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 | LDA #0. | 000038C0: 20 20 20 20 53 54 41 20 48 41 52 44 4F 4E 2C 58 | STA HARDON,X| 000038D0: 0D 4F 4E 44 0D 20 20 20 20 20 20 20 20 20 52 54 |.OND. RT| 000038E0: 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |S.;-------------| 000038F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 48 41 52 44 |----------.;HARD| 00003910: 2D 52 45 53 54 41 52 54 2D 52 4F 55 54 49 4E 45 |-RESTART-ROUTINE| 00003920: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00003930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 56 4F 49 43 45 33 |---------.VOICE3| 00003950: 20 20 20 4C 44 41 20 53 50 45 45 44 0D 20 20 20 | LDA SPEED. | 00003960: 20 20 20 20 20 20 42 4E 45 20 4E 4F 53 50 45 45 | BNE NOSPEE| 00003970: 44 30 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |D0. LDA | 00003980: 44 55 52 41 54 2C 58 0D 20 20 20 20 20 20 20 20 |DURAT,X. | 00003990: 20 43 4D 50 20 23 24 30 34 0D 20 20 20 20 20 20 | CMP #$04. | 000039A0: 20 20 20 42 43 53 20 4E 49 43 48 54 53 0D 20 20 | BCS NICHTS. | 000039B0: 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 31 0D | CMP #$01.| 000039C0: 20 20 20 20 20 20 20 20 20 42 45 51 20 46 52 41 | BEQ FRA| 000039D0: 4D 45 31 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ME1. | 000039E0: 20 20 20 20 20 20 20 20 3B 46 52 41 4D 45 20 32 | ;FRAME 2| 000039F0: 2B 31 0D 46 52 41 4D 45 32 0D 0D 20 20 20 20 20 |+1.FRAME2.. | 00003A00: 20 20 20 20 4C 44 41 20 48 41 52 44 4F 4E 2C 58 | LDA HARDON,X| 00003A10: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4E 49 |. BEQ NI| 00003A20: 43 48 54 53 0D 20 20 20 20 20 20 20 20 20 4A 53 |CHTS. JS| 00003A30: 52 20 50 4C 41 59 33 0D 0D 20 20 20 20 20 20 20 |R PLAY3.. | 00003A40: 20 20 4C 44 41 20 53 52 2C 58 0D 20 20 20 20 20 | LDA SR,X. | 00003A50: 20 20 20 20 41 4E 44 20 23 24 46 30 0D 20 20 20 | AND #$F0. | 00003A60: 20 20 20 20 20 20 53 54 41 20 24 44 34 30 36 2C | STA $D406,| 00003A70: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 |X. LDA H| 00003A80: 41 52 44 56 41 4C 0D 20 20 20 20 20 20 20 20 20 |ARDVAL. | 00003A90: 42 50 4C 20 48 52 53 45 54 54 0D 20 20 20 20 20 |BPL HRSETT. | 00003AA0: 20 20 20 20 4C 44 41 20 41 44 2C 58 0D 48 52 53 | LDA AD,X.HRS| 00003AB0: 45 54 54 0D 20 20 20 20 20 20 20 20 20 53 54 41 |ETT. STA| 00003AC0: 20 24 44 34 30 35 2C 58 0D 20 20 20 20 20 20 20 | $D405,X. | 00003AD0: 20 20 4C 44 41 20 57 41 56 45 2C 58 0D 20 20 20 | LDA WAVE,X. | 00003AE0: 20 20 20 20 20 20 41 4E 44 20 23 24 46 45 0D 20 | AND #$FE. | 00003AF0: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 30 | STA $D40| 00003B00: 34 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |4,X. LDA| 00003B10: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 00003B20: 54 41 20 41 4E 44 4F 52 2C 58 0D 20 20 20 20 20 |TA ANDOR,X. | 00003B30: 20 20 20 20 52 54 53 0D 0D 4E 4F 53 50 45 45 44 | RTS..NOSPEED| 00003B40: 30 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |0. CMP #| 00003B50: 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 |1. BNE S| 00003B60: 50 32 0D 53 50 50 20 20 20 20 20 20 4C 44 41 20 |P2.SPP LDA | 00003B70: 53 50 45 45 44 31 0D 20 20 20 20 20 20 20 20 20 |SPEED1. | 00003B80: 42 45 51 20 53 50 31 0D 20 20 20 20 20 20 20 20 |BEQ SP1. | 00003B90: 20 4C 44 41 20 44 55 52 41 54 2C 58 0D 20 20 20 | LDA DURAT,X. | 00003BA0: 20 20 20 20 20 20 43 4D 50 20 23 31 0D 20 20 20 | CMP #1. | 00003BB0: 20 20 20 20 20 20 42 45 51 20 46 52 41 4D 45 32 | BEQ FRAME2| 00003BC0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 49 |. JMP NI| 00003BD0: 43 48 54 53 0D 53 50 31 0D 20 20 20 20 20 20 20 |CHTS.SP1. | 00003BE0: 20 20 4C 44 41 20 44 55 52 41 54 2C 58 0D 20 20 | LDA DURAT,X. | 00003BF0: 20 20 20 20 20 20 20 43 4D 50 20 23 33 0D 20 20 | CMP #3. | 00003C00: 20 20 20 20 20 20 20 42 43 53 20 4E 49 43 48 54 | BCS NICHT| 00003C10: 53 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |S. CMP #| 00003C20: 31 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 46 |1. BEQ F| 00003C30: 52 41 4D 45 31 0D 20 20 20 20 20 20 20 20 20 4A |RAME1. J| 00003C40: 4D 50 20 46 52 41 4D 45 32 0D 0D 53 50 32 20 20 |MP FRAME2..SP2 | 00003C50: 20 20 20 20 4C 44 41 20 44 55 52 41 54 2C 58 0D | LDA DURAT,X.| 00003C60: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 30 | CMP #$0| 00003C70: 31 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E |1. BNE N| 00003C80: 49 43 48 54 53 0D 20 20 20 20 20 20 20 20 20 4C |ICHTS. L| 00003C90: 44 41 20 53 50 45 45 44 31 0D 20 20 20 20 20 20 |DA SPEED1. | 00003CA0: 20 20 20 42 45 51 20 46 52 41 4D 45 31 0D 20 20 | BEQ FRAME1. | 00003CB0: 20 20 20 20 20 20 20 43 4D 50 20 23 33 0D 20 20 | CMP #3. | 00003CC0: 20 20 20 20 20 20 20 42 43 43 20 46 52 41 4D 45 | BCC FRAME| 00003CD0: 32 0D 4E 49 43 48 54 53 20 20 20 4A 53 52 20 50 |2.NICHTS JSR P| 00003CE0: 4C 41 59 33 0D 20 20 20 20 20 20 20 20 20 4A 4D |LAY3. JM| 00003CF0: 50 20 53 49 44 0D 0D 0D 0D 0D 46 52 41 4D 45 31 |P SID.....FRAME1| 00003D00: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 41 |. LDA HA| 00003D10: 52 44 4F 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 |RDON,X. | 00003D20: 42 45 51 20 4E 49 43 48 54 53 0D 20 20 20 20 20 |BEQ NICHTS. | 00003D30: 20 20 20 20 4C 44 59 20 53 4E 44 4E 2C 58 20 20 | LDY SNDN,X | 00003D40: 3B 54 48 49 53 20 46 52 41 4D 45 0D 20 20 20 20 |;THIS FRAME. | 00003D50: 20 20 20 20 20 4C 44 41 20 53 52 54 41 42 2C 59 | LDA SRTAB,Y| 00003D60: 3B 4E 45 57 20 4E 4F 54 45 20 3D 20 4D 41 58 2E |;NEW NOTE = MAX.| 00003D70: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 52 |. STA SR| 00003D80: 2C 58 20 20 20 3B 52 41 53 54 45 52 54 49 4D 45 |,X ;RASTERTIME| 00003D90: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00003DA0: 34 30 36 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |406,X. L| 00003DB0: 44 41 20 41 44 54 41 42 2C 59 3B 53 45 54 53 20 |DA ADTAB,Y;SETS | 00003DC0: 54 48 45 20 4E 45 57 0D 20 20 20 20 20 20 20 20 |THE NEW. | 00003DD0: 20 53 54 41 20 41 44 2C 58 20 20 20 3B 41 44 53 | STA AD,X ;ADS| 00003DE0: 52 2D 53 45 54 54 49 4E 47 53 0D 20 20 20 20 20 |R-SETTINGS. | 00003DF0: 20 20 20 20 53 54 41 20 24 44 34 30 35 2C 58 3B | STA $D405,X;| 00003E00: 3D 20 42 45 47 49 4E 4E 49 4E 47 20 4F 46 20 41 |= BEGINNING OF A| 00003E10: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |. LDA #$| 00003E20: 30 39 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |09. STA | 00003E30: 24 44 34 30 34 2C 58 0D 20 20 20 20 20 20 20 20 |$D404,X. | 00003E40: 20 53 54 41 20 57 41 56 45 2C 58 0D 20 20 20 20 | STA WAVE,X. | 00003E50: 20 20 20 20 20 49 4E 43 20 48 41 52 44 4F 4E 2C | INC HARDON,| 00003E60: 58 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D |X. RTS..| 00003E70: 0D 0D 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.....;----------| 00003E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003E90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 20 |-------------.; | 00003EA0: 20 20 20 20 20 20 20 41 44 53 52 2D 52 4F 55 54 | ADSR-ROUT| 00003EB0: 49 4E 45 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |INES.;----------| 00003EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 50 4C |-------------.PL| 00003EE0: 41 59 32 20 20 20 20 4C 44 58 20 23 24 30 30 0D |AY2 LDX #$00.| 00003EF0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 4C 41 | JSR PLA| 00003F00: 59 33 44 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |Y3D. JSR| 00003F10: 20 53 49 44 32 0D 20 20 20 20 20 20 20 20 20 4C | SID2. L| 00003F20: 44 58 20 23 37 0D 20 20 20 20 20 20 20 20 20 4A |DX #7. J| 00003F30: 53 52 20 50 4C 41 59 33 44 0D 20 20 20 20 20 20 |SR PLAY3D. | 00003F40: 20 20 20 4A 53 52 20 53 49 44 32 0D 20 20 20 20 | JSR SID2. | 00003F50: 20 20 20 20 20 4C 44 58 20 23 31 34 0D 20 20 20 | LDX #14. | 00003F60: 20 20 20 20 20 20 4A 53 52 20 50 4C 41 59 33 44 | JSR PLAY3D| 00003F70: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 49 |. JMP SI| 00003F80: 44 32 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |D2.;------------| 00003F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 50 4C 41 59 |-----------.PLAY| 00003FB0: 33 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |3.;-------------| 00003FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 57 41 56 45 |----------.;WAVE| 00003FE0: 2D 46 52 45 51 2D 54 41 42 4C 45 2D 48 41 4E 44 |-FREQ-TABLE-HAND| 00003FF0: 4C 49 4E 47 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |LING.;----------| 00004000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 |-------------. | 00004020: 20 20 20 20 20 20 20 4C 44 41 20 43 55 54 2C 58 | LDA CUT,X| 00004030: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 54 4F |. BEQ TO| 00004040: 4E 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 54 |N. RTS.T| 00004050: 4F 4E 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ON.;------------| 00004060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 46 49 4C |-----------.;FIL| 00004080: 54 45 52 52 4F 55 54 49 4E 45 0D 3B 2D 2D 2D 2D |TERROUTINE.;----| 00004090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000040A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000040B0: 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 43 50 58 |---. CPX| 000040C0: 20 46 49 4C 43 4F 4E 0D 20 20 20 20 20 20 20 20 | FILCON. | 000040D0: 20 42 4E 45 20 47 4C 49 44 45 0D 20 20 20 20 20 | BNE GLIDE. | 000040E0: 20 20 20 20 4C 44 41 20 4E 4F 46 49 0D 20 20 20 | LDA NOFI. | 000040F0: 20 20 20 20 20 20 42 4E 45 20 47 4C 49 44 45 0D | BNE GLIDE.| 00004100: 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 4C | LDA FIL| 00004110: 50 4F 53 0D 20 20 20 20 20 20 20 20 20 54 41 59 |POS. TAY| 00004120: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 |. LDA FI| 00004130: 4C 54 46 52 4D 0D 20 20 20 20 20 20 20 20 20 42 |LTFRM. B| 00004140: 4E 45 20 4E 4F 4E 45 57 46 0D 4E 4F 43 48 4D 41 |NE NONEWF.NOCHMA| 00004150: 4C 46 20 4C 44 41 20 46 49 4C 54 54 41 42 31 2C |LF LDA FILTTAB1,| 00004160: 59 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |Y. CMP #| 00004170: 24 39 30 20 20 20 20 20 20 20 20 3B 43 48 45 43 |$90 ;CHEC| 00004180: 4B 20 4C 4F 4F 50 0D 20 20 20 20 20 20 20 20 20 |K LOOP. | 00004190: 42 4E 45 20 46 50 31 0D 20 20 20 20 20 20 20 20 |BNE FP1. | 000041A0: 20 4C 44 41 20 46 49 4C 54 54 41 42 32 2C 59 0D | LDA FILTTAB2,Y.| 000041B0: 20 20 20 20 20 20 20 20 20 53 54 41 20 46 49 4C | STA FIL| 000041C0: 50 4F 53 0D 20 20 20 20 20 20 20 20 20 54 41 59 |POS. TAY| 000041D0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F |. JMP NO| 000041E0: 43 48 4D 41 4C 46 0D 46 50 31 20 20 20 20 20 20 |CHMALF.FP1 | 000041F0: 43 4D 50 20 23 24 39 31 20 20 20 20 20 20 20 20 |CMP #$91 | 00004200: 3B 43 48 45 43 4B 20 53 54 4F 50 0D 20 20 20 20 |;CHECK STOP. | 00004210: 20 20 20 20 20 42 4E 45 20 46 50 32 0D 20 20 20 | BNE FP2. | 00004220: 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 | LDA #1. | 00004230: 20 20 20 20 20 20 53 54 41 20 4E 4F 46 49 0D 20 | STA NOFI. | 00004240: 20 20 20 20 20 20 20 20 42 4E 45 20 47 4C 49 44 | BNE GLID| 00004250: 45 0D 0D 0D 46 50 32 20 20 20 20 20 20 53 54 41 |E...FP2 STA| 00004260: 20 46 49 4C 54 41 44 44 48 20 20 20 20 3B 43 4F | FILTADDH ;CO| 00004270: 55 4E 54 20 56 41 4C 55 45 53 0D 20 20 20 20 20 |UNT VALUES. | 00004280: 20 20 20 20 4C 44 41 20 46 49 4C 54 54 41 42 32 | LDA FILTTAB2| 00004290: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 000042A0: 46 49 4C 54 41 44 44 4C 0D 20 20 20 20 20 20 20 |FILTADDL. | 000042B0: 20 20 4C 44 41 20 46 49 4C 54 54 41 42 32 2B 31 | LDA FILTTAB2+1| 000042C0: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 000042D0: 46 49 4C 54 46 52 4D 0D 20 20 20 20 20 20 20 20 |FILTFRM. | 000042E0: 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 43 4C | TYA. CL| 000042F0: 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |C. ADC #| 00004300: 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |2. STA F| 00004310: 49 4C 50 4F 53 0D 4E 4F 4E 45 57 46 20 20 20 4C |ILPOS.NONEWF L| 00004320: 44 41 20 46 49 4C 54 4C 4F 0D 20 20 20 20 20 20 |DA FILTLO. | 00004330: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 | CLC. | 00004340: 41 44 43 20 46 49 4C 54 41 44 44 4C 0D 20 20 20 |ADC FILTADDL. | 00004350: 20 20 20 20 20 20 53 54 41 20 46 49 4C 54 4C 4F | STA FILTLO| 00004360: 0D 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 |. TAY. | 00004370: 20 20 20 20 20 20 20 41 4E 44 20 23 37 0D 20 20 | AND #7. | 00004380: 20 20 20 20 20 20 20 53 54 41 20 46 49 4C 46 52 | STA FILFR| 00004390: 45 51 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |EQL. LDA| 000043A0: 20 46 49 4C 54 48 49 0D 20 20 20 20 20 20 20 20 | FILTHI. | 000043B0: 20 41 44 43 20 46 49 4C 54 41 44 44 48 0D 20 20 | ADC FILTADDH. | 000043C0: 20 20 20 20 20 20 20 53 54 41 20 46 49 4C 54 48 | STA FILTH| 000043D0: 49 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 46 |I. DEC F| 000043E0: 49 4C 54 46 52 4D 0D 0D 20 20 20 20 20 20 20 20 |ILTFRM.. | 000043F0: 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 | LSR A. | 00004400: 52 4F 52 20 46 49 4C 54 4C 4F 0D 20 20 20 20 20 |ROR FILTLO. | 00004410: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00004420: 20 20 20 52 4F 52 20 46 49 4C 54 4C 4F 0D 20 20 | ROR FILTLO. | 00004430: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 00004440: 20 20 20 20 20 20 52 4F 52 20 46 49 4C 54 4C 4F | ROR FILTLO| 00004450: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 49 |. LDA FI| 00004460: 4C 54 4C 4F 0D 20 20 20 20 20 20 20 20 20 53 54 |LTLO. ST| 00004470: 41 20 46 49 4C 46 52 45 51 48 0D 20 20 20 20 20 |A FILFREQH. | 00004480: 20 20 20 20 53 54 59 20 46 49 4C 54 4C 4F 0D 0D | STY FILTLO..| 00004490: 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...;------------| 000044A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000044B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 56 49 42 |-----------.;VIB| 000044C0: 2F 53 4C 49 44 45 2F 45 54 43 2E 0D 3B 2D 2D 2D |/SLIDE/ETC..;---| 000044D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000044E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000044F0: 2D 2D 2D 2D 0D 47 4C 49 44 45 0D 20 20 20 20 20 |----.GLIDE. | 00004500: 20 20 20 20 4C 44 41 20 47 4C 4C 2C 58 0D 20 20 | LDA GLL,X. | 00004510: 20 20 20 20 20 20 20 42 4E 45 20 47 4C 59 20 20 | BNE GLY | 00004520: 20 20 20 20 3B 43 48 45 43 4B 20 49 46 20 47 4C | ;CHECK IF GL| 00004530: 49 44 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |IDE. LDA| 00004540: 20 47 4C 48 2C 58 20 20 20 20 3B 41 43 54 49 56 | GLH,X ;ACTIV| 00004550: 45 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 47 |E. BNE G| 00004560: 4C 59 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |LY. JMP | 00004570: 4E 4F 47 4C 49 0D 47 4C 59 0D 20 20 20 20 20 20 |NOGLI.GLY. | 00004580: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00004590: 20 20 20 53 54 41 20 56 53 50 45 45 44 2C 58 0D | STA VSPEED,X.| 000045A0: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 49 4C | STA VIL| 000045B0: 4F 2C 58 20 20 20 20 3B 41 44 44 20 56 41 4C 55 |O,X ;ADD VALU| 000045C0: 45 53 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |ES. STA | 000045D0: 56 49 48 49 2C 58 20 20 20 20 3B 44 49 53 41 42 |VIHI,X ;DISAB| 000045E0: 4C 45 20 56 49 42 52 2E 0D 20 20 20 20 20 20 20 |LE VIBR.. | 000045F0: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 4C | CLC. L| 00004600: 44 41 20 47 4C 49 44 45 4C 2C 58 0D 20 20 20 20 |DA GLIDEL,X. | 00004610: 20 20 20 20 20 41 44 43 20 47 4C 4C 2C 58 0D 20 | ADC GLL,X. | 00004620: 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 49 44 | STA GLID| 00004630: 45 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |EL,X. LD| 00004640: 41 20 47 4C 49 44 45 48 2C 58 0D 20 20 20 20 20 |A GLIDEH,X. | 00004650: 20 20 20 20 41 44 43 20 47 4C 48 2C 58 0D 20 20 | ADC GLH,X. | 00004660: 20 20 20 20 20 20 20 53 54 41 20 47 4C 49 44 45 | STA GLIDE| 00004670: 48 2C 58 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |H,X.. LD| 00004680: 41 20 47 4C 48 2C 58 0D 20 20 20 20 20 20 20 20 |A GLH,X. | 00004690: 20 42 4D 49 20 47 4C 55 50 31 0D 20 20 20 20 20 | BMI GLUP1. | 000046A0: 20 20 20 20 4C 44 59 20 4E 4F 54 45 4F 4B 2C 58 | LDY NOTEOK,X| 000046B0: 20 20 20 3B 52 45 41 43 48 45 44 0D 20 20 20 20 | ;REACHED. | 000046C0: 20 20 20 20 20 4C 44 41 20 46 52 51 4C 4F 2C 59 | LDA FRQLO,Y| 000046D0: 20 20 20 3B 44 45 53 54 49 4E 41 54 49 4F 4E 0D | ;DESTINATION.| 000046E0: 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 20 20 | CLC | 000046F0: 20 20 20 20 20 20 20 3B 46 52 45 51 55 45 4E 43 | ;FREQUENC| 00004700: 45 3F 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |E?. ADC | 00004710: 47 4C 49 44 45 4C 2C 58 20 20 3B 28 55 50 47 4C |GLIDEL,X ;(UPGL| 00004720: 49 44 45 29 0D 20 20 20 20 20 20 20 20 20 50 48 |IDE). PH| 00004730: 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 46 |A. LDA F| 00004740: 52 51 48 49 2C 59 0D 20 20 20 20 20 20 20 20 20 |RQHI,Y. | 00004750: 41 44 43 20 47 4C 49 44 45 48 2C 58 0D 20 20 20 |ADC GLIDEH,X. | 00004760: 20 20 20 20 20 20 43 4D 50 20 47 4C 44 45 48 2C | CMP GLDEH,| 00004770: 58 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 47 |X. BCC G| 00004780: 4C 55 50 32 0D 20 20 20 20 20 20 20 20 20 42 4E |LUP2. BN| 00004790: 45 20 47 4C 55 50 45 4E 31 0D 47 4C 55 50 34 20 |E GLUPEN1.GLUP4 | 000047A0: 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 | PLA. | 000047B0: 43 4D 50 20 47 4C 44 45 4C 2C 58 0D 20 20 20 20 |CMP GLDEL,X. | 000047C0: 20 20 20 20 20 42 43 43 20 4E 4F 47 4C 49 0D 0D | BCC NOGLI..| 000047D0: 0D 47 4C 55 50 45 4E 20 20 20 4C 44 41 20 23 30 |.GLUPEN LDA #0| 000047E0: 20 20 20 20 20 20 20 20 3B 53 54 4F 50 20 47 4C | ;STOP GL| 000047F0: 49 44 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 |IDE. STA| 00004800: 20 47 4C 49 44 45 4C 2C 58 0D 20 20 20 20 20 20 | GLIDEL,X. | 00004810: 20 20 20 53 54 41 20 47 4C 49 44 45 48 2C 58 0D | STA GLIDEH,X.| 00004820: 20 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 4C | STA GLL| 00004830: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00004840: 47 4C 48 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |GLH,X. L| 00004850: 44 41 20 47 4C 54 4F 2C 58 0D 20 20 20 20 20 20 |DA GLTO,X. | 00004860: 20 20 20 53 54 41 20 4E 4F 54 45 56 2C 58 0D 20 | STA NOTEV,X. | 00004870: 20 20 20 20 20 20 20 20 53 54 41 20 4E 4F 54 45 | STA NOTE| 00004880: 4F 4B 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D |OK,X. JM| 00004890: 50 20 4E 4F 47 4C 49 0D 0D 47 4C 55 50 31 0D 20 |P NOGLI..GLUP1. | 000048A0: 20 20 20 20 20 20 20 20 4C 44 59 20 4E 4F 54 45 | LDY NOTE| 000048B0: 4F 4B 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |OK,X. LD| 000048C0: 41 20 46 52 51 4C 4F 2C 59 20 20 20 3B 43 48 45 |A FRQLO,Y ;CHE| 000048D0: 43 4B 20 44 45 53 54 49 4E 2E 0D 20 20 20 20 20 |CK DESTIN.. | 000048E0: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC | 000048F0: 20 20 3B 46 4F 52 20 44 4F 57 4E 47 4C 49 44 45 | ;FOR DOWNGLIDE| 00004900: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 47 4C |. ADC GL| 00004910: 49 44 45 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 |IDEL,X. | 00004920: 50 48 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |PHA. LDA| 00004930: 20 46 52 51 48 49 2C 59 0D 20 20 20 20 20 20 20 | FRQHI,Y. | 00004940: 20 20 41 44 43 20 47 4C 49 44 45 48 2C 58 0D 20 | ADC GLIDEH,X. | 00004950: 20 20 20 20 20 20 20 20 43 4D 50 20 47 4C 44 45 | CMP GLDE| 00004960: 48 2C 58 0D 20 20 20 20 20 20 20 20 20 42 43 43 |H,X. BCC| 00004970: 20 47 4C 55 50 45 4E 31 0D 20 20 20 20 20 20 20 | GLUPEN1. | 00004980: 20 20 42 4E 45 20 47 4C 55 50 32 0D 20 20 20 20 | BNE GLUP2. | 00004990: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 000049A0: 20 20 43 4D 50 20 47 4C 44 45 4C 2C 58 0D 20 20 | CMP GLDEL,X. | 000049B0: 20 20 20 20 20 20 20 42 43 53 20 4E 4F 47 4C 49 | BCS NOGLI| 000049C0: 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 47 4C |. BCC GL| 000049D0: 55 50 45 4E 0D 47 4C 55 50 45 4E 31 20 20 50 4C |UPEN.GLUPEN1 PL| 000049E0: 41 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 47 |A. JMP G| 000049F0: 4C 55 50 45 4E 0D 0D 0D 0D 47 4C 55 50 32 20 20 |LUPEN....GLUP2 | 00004A00: 20 20 50 4C 41 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D | PLA.;---------| 00004A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B |--------------.;| 00004A30: 56 49 42 52 41 54 4F 0D 3B 2D 2D 2D 2D 2D 2D 2D |VIBRATO.;-------| 00004A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004A60: 0D 4E 4F 47 4C 49 20 20 20 20 4C 44 41 20 56 53 |.NOGLI LDA VS| 00004A70: 50 45 45 44 2C 58 0D 20 20 20 20 20 20 20 20 20 |PEED,X. | 00004A80: 42 45 51 20 4E 4F 56 49 42 0D 0D 20 20 20 20 20 |BEQ NOVIB.. | 00004A90: 20 20 20 20 41 4E 44 20 23 31 0D 20 20 20 20 20 | AND #1. | 00004AA0: 20 20 20 20 42 4E 45 20 4E 56 49 42 0D 20 20 20 | BNE NVIB. | 00004AB0: 20 20 20 20 20 20 49 4E 43 20 56 49 46 49 52 53 | INC VIFIRS| 00004AC0: 54 2C 58 0D 4E 56 49 42 20 20 20 20 20 4C 44 41 |T,X.NVIB LDA| 00004AD0: 20 56 44 49 52 2C 58 20 20 20 20 20 3B 43 48 45 | VDIR,X ;CHE| 00004AE0: 43 4B 20 44 49 52 45 43 54 2E 0D 20 20 20 20 20 |CK DIRECT.. | 00004AF0: 20 20 20 20 42 4E 45 20 56 49 44 4F 20 20 20 20 | BNE VIDO | 00004B00: 20 20 20 3B 56 49 42 2E 20 55 50 0D 20 20 20 20 | ;VIB. UP. | 00004B10: 20 20 20 20 20 4C 44 41 20 56 49 46 49 52 53 54 | LDA VIFIRST| 00004B20: 2C 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |,X. BNE | 00004B30: 56 49 31 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |VI1. INC| 00004B40: 20 56 49 46 49 52 53 54 2C 58 20 20 3B 48 41 4C | VIFIRST,X ;HAL| 00004B50: 46 56 41 4C 55 45 3F 0D 20 20 20 20 20 20 20 20 |FVALUE?. | 00004B60: 20 4C 44 41 20 56 41 44 44 4C 31 2C 58 0D 20 20 | LDA VADDL1,X. | 00004B70: 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 | CLC. | 00004B80: 20 20 20 20 41 44 43 20 56 49 4C 4F 2C 58 0D 20 | ADC VILO,X. | 00004B90: 20 20 20 20 20 20 20 20 53 54 41 20 56 49 4C 4F | STA VILO| 00004BA0: 2C 58 20 20 20 20 20 3B 41 44 44 20 48 41 4C 46 |,X ;ADD HALF| 00004BB0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 41 |. LDA VA| 00004BC0: 44 44 48 31 2C 58 0D 20 20 20 20 20 20 20 20 20 |DDH1,X. | 00004BD0: 41 44 43 20 56 49 48 49 2C 58 0D 20 20 20 20 20 |ADC VIHI,X. | 00004BE0: 20 20 20 20 53 54 41 20 56 49 48 49 2C 58 0D 20 | STA VIHI,X. | 00004BF0: 20 20 20 20 20 20 20 20 4A 4D 50 20 56 49 32 0D | JMP VI2.| 00004C00: 56 49 31 20 20 20 20 20 20 4C 44 41 20 56 41 44 |VI1 LDA VAD| 00004C10: 44 4C 2C 58 20 20 20 20 3B 41 44 44 20 46 55 4C |DL,X ;ADD FUL| 00004C20: 4C 0D 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |L. CLC. | 00004C30: 20 20 20 20 20 20 20 20 41 44 43 20 56 49 4C 4F | ADC VILO| 00004C40: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00004C50: 56 49 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 |VILO,X. | 00004C60: 4C 44 41 20 56 41 44 44 48 2C 58 0D 20 20 20 20 |LDA VADDH,X. | 00004C70: 20 20 20 20 20 41 44 43 20 56 49 48 49 2C 58 0D | ADC VIHI,X.| 00004C80: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 49 48 | STA VIH| 00004C90: 49 2C 58 0D 56 49 32 20 20 20 20 20 20 49 4E 43 |I,X.VI2 INC| 00004CA0: 20 56 53 50 45 45 44 31 2C 58 0D 20 20 20 20 20 | VSPEED1,X. | 00004CB0: 20 20 20 20 4C 44 41 20 56 53 50 45 45 44 31 2C | LDA VSPEED1,| 00004CC0: 58 20 20 3B 44 49 52 2E 54 55 52 4E 3F 0D 20 20 |X ;DIR.TURN?. | 00004CD0: 20 20 20 20 20 20 20 43 4D 50 20 56 53 50 45 45 | CMP VSPEE| 00004CE0: 44 2C 58 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |D,X. BNE| 00004CF0: 20 56 49 33 0D 56 49 34 20 20 20 20 20 20 4C 44 | VI3.VI4 LD| 00004D00: 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 45 4F |A #1. EO| 00004D10: 52 20 56 44 49 52 2C 58 0D 20 20 20 20 20 20 20 |R VDIR,X. | 00004D20: 20 20 53 54 41 20 56 44 49 52 2C 58 0D 56 49 33 | STA VDIR,X.VI3| 00004D30: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 56 49 42 0D | JMP NOVIB.| 00004D40: 56 49 44 4F 20 20 20 20 20 4C 44 41 20 56 49 4C |VIDO LDA VIL| 00004D50: 4F 2C 58 20 20 20 20 20 3B 56 49 42 2E 20 44 4F |O,X ;VIB. DO| 00004D60: 57 4E 0D 20 20 20 20 20 20 20 20 20 53 45 43 0D |WN. SEC.| 00004D70: 20 20 20 20 20 20 20 20 20 53 42 43 20 56 41 44 | SBC VAD| 00004D80: 44 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |DL,X. ST| 00004D90: 41 20 56 49 4C 4F 2C 58 20 20 20 20 20 3B 53 42 |A VILO,X ;SB| 00004DA0: 43 20 46 55 4C 4C 0D 20 20 20 20 20 20 20 20 20 |C FULL. | 00004DB0: 4C 44 41 20 56 49 48 49 2C 58 0D 20 20 20 20 20 |LDA VIHI,X. | 00004DC0: 20 20 20 20 53 42 43 20 56 41 44 44 48 2C 58 0D | SBC VADDH,X.| 00004DD0: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 49 48 | STA VIH| 00004DE0: 49 2C 58 0D 20 20 20 20 20 20 20 20 20 44 45 43 |I,X. DEC| 00004DF0: 20 56 53 50 45 45 44 31 2C 58 0D 20 20 20 20 20 | VSPEED1,X. | 00004E00: 20 20 20 20 42 45 51 20 56 49 34 0D 20 20 20 20 | BEQ VI4. | 00004E10: 20 20 20 20 20 4A 4D 50 20 4E 4F 56 49 42 0D 0D | JMP NOVIB..| 00004E20: 50 4C 41 59 33 44 20 20 20 4C 44 41 20 43 55 54 |PLAY3D LDA CUT| 00004E30: 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |,X. BEQ | 00004E40: 4E 4F 56 49 42 0D 20 20 20 20 20 20 20 20 20 52 |NOVIB. R| 00004E50: 54 53 0D 0D 0D 4E 4F 56 49 42 0D 3B 2D 2D 2D 2D |TS...NOVIB.;----| 00004E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004E80: 2D 2D 2D 0D 3B 57 41 56 45 2F 46 49 4C 54 2F 50 |---.;WAVE/FILT/P| 00004E90: 55 4C 53 45 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ULSE.;----------| 00004EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 |-------------. | 00004EC0: 20 20 20 20 20 20 20 4C 44 41 20 57 56 53 50 45 | LDA WVSPE| 00004ED0: 45 44 31 2C 58 20 3B 4E 45 57 20 52 4F 57 20 3F |ED1,X ;NEW ROW ?| 00004EE0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 |. CMP #$| 00004EF0: 46 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |FF. BEQ | 00004F00: 4E 4F 43 48 4E 49 43 48 0D 20 20 20 20 20 20 20 |NOCHNICH. | 00004F10: 20 20 44 45 43 20 57 56 53 50 45 45 44 31 2C 58 | DEC WVSPEED1,X| 00004F20: 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 4E 4F |. BPL NO| 00004F30: 43 48 4E 49 43 48 0D 20 20 20 20 20 20 20 20 20 |CHNICH. | 00004F40: 4C 44 41 20 57 56 53 50 45 45 44 2C 58 0D 20 20 |LDA WVSPEED,X. | 00004F50: 20 20 20 20 20 20 20 53 54 41 20 57 56 53 50 45 | STA WVSPE| 00004F60: 45 44 31 2C 58 0D 4E 45 57 52 45 41 44 20 20 4C |ED1,X.NEWREAD L| 00004F70: 44 59 20 57 41 56 45 50 4F 53 2C 58 0D 20 20 20 |DY WAVEPOS,X. | 00004F80: 20 20 20 20 20 20 49 4E 43 20 57 41 56 45 50 4F | INC WAVEPO| 00004F90: 53 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |S,X. LDA| 00004FA0: 20 57 41 56 45 54 41 42 2C 59 0D 20 20 20 20 20 | WAVETAB,Y. | 00004FB0: 20 20 20 20 43 4D 50 20 23 24 39 31 20 20 20 20 | CMP #$91 | 00004FC0: 20 20 3B 43 48 45 43 4B 20 53 54 4F 50 0D 20 20 | ;CHECK STOP. | 00004FD0: 20 20 20 20 20 20 20 42 45 51 20 53 43 48 4C 55 | BEQ SCHLU| 00004FE0: 53 53 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |SS. CMP | 00004FF0: 23 24 39 30 20 20 20 20 20 20 3B 43 48 45 43 4B |#$90 ;CHECK| 00005000: 20 4C 4F 4F 50 0D 20 20 20 20 20 20 20 20 20 42 | LOOP. B| 00005010: 4E 45 20 4E 45 58 54 53 54 45 50 0D 20 20 20 20 |NE NEXTSTEP. | 00005020: 20 20 20 20 20 4C 44 41 20 46 52 45 51 54 41 42 | LDA FREQTAB| 00005030: 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,Y. STA | 00005040: 57 41 56 45 50 4F 53 2C 58 0D 20 20 20 20 20 20 |WAVEPOS,X. | 00005050: 20 20 20 4A 4D 50 20 4E 45 57 52 45 41 44 0D 4E | JMP NEWREAD.N| 00005060: 45 58 54 53 54 45 50 20 50 48 41 0D 20 20 20 20 |EXTSTEP PHA. | 00005070: 20 20 20 20 20 41 4E 44 20 23 24 46 37 20 20 20 | AND #$F7 | 00005080: 20 20 3B 43 48 45 43 4B 20 44 52 55 4D 4D 4F 44 | ;CHECK DRUMMOD| 00005090: 45 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 57 |E. STA W| 000050A0: 41 56 45 2C 58 0D 20 20 20 20 20 20 20 20 20 50 |AVE,X. P| 000050B0: 4C 41 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |LA. AND | 000050C0: 23 24 30 38 0D 20 20 20 20 20 20 20 20 20 53 54 |#$08. ST| 000050D0: 41 20 44 52 55 4D 2C 58 0D 20 20 20 20 20 20 20 |A DRUM,X. | 000050E0: 20 20 42 45 51 20 4E 4F 44 52 55 4D 0D 20 20 20 | BEQ NODRUM. | 000050F0: 20 20 20 20 20 20 4C 44 41 20 46 52 45 51 54 41 | LDA FREQTA| 00005100: 42 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 |B,Y. STA| 00005110: 20 4E 4F 54 45 4F 4B 2C 58 0D 20 20 20 20 20 20 | NOTEOK,X. | 00005120: 20 20 20 4A 4D 50 20 4E 4F 43 48 4E 49 43 48 0D | JMP NOCHNICH.| 00005130: 4E 4F 44 52 55 4D 20 20 20 4C 44 41 20 46 52 45 |NODRUM LDA FRE| 00005140: 51 54 41 42 2C 59 0D 20 20 20 20 20 20 20 20 20 |QTAB,Y. | 00005150: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 00005160: 20 4E 4F 54 45 56 2C 58 0D 20 20 20 20 20 20 20 | NOTEV,X. | 00005170: 20 20 53 54 41 20 4E 4F 54 45 4F 4B 2C 58 0D 20 | STA NOTEOK,X. | 00005180: 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F 43 48 | JMP NOCH| 00005190: 4E 49 43 48 0D 0D 0D 53 43 48 4C 55 53 53 20 20 |NICH...SCHLUSS | 000051A0: 4C 44 41 20 23 24 46 46 20 20 20 20 20 20 20 3B |LDA #$FF ;| 000051B0: 53 54 4F 50 20 4D 41 52 4B 0D 20 20 20 20 20 20 |STOP MARK. | 000051C0: 20 20 20 53 54 41 20 57 56 53 50 45 45 44 31 2C | STA WVSPEED1,| 000051D0: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 57 |X. LDA W| 000051E0: 41 56 45 2C 58 0D 20 20 20 20 20 20 20 20 20 41 |AVE,X. A| 000051F0: 4E 44 20 23 24 34 30 0D 20 20 20 20 20 20 20 20 |ND #$40. | 00005200: 20 42 4E 45 20 4E 4F 43 48 4E 49 43 48 0D 20 20 | BNE NOCHNICH. | 00005210: 20 20 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 | LDA #1. | 00005220: 20 20 20 20 20 20 20 53 54 41 20 4E 4F 50 55 2C | STA NOPU,| 00005230: 58 0D 0D 0D 4E 4F 43 48 4E 49 43 48 0D 0D 3B 2D |X...NOCHNICH..;-| 00005240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005260: 2D 2D 2D 2D 2D 2D 0D 3B 50 55 4C 53 52 4F 55 54 |------.;PULSROUT| 00005270: 49 4E 45 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |INE.;-----------| 00005280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 20 20 20 |------------. | 000052A0: 20 20 20 20 20 20 4C 44 41 20 4E 4F 50 55 2C 58 | LDA NOPU,X| 000052B0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 46 49 |. BNE FI| 000052C0: 4C 4C 49 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |LLI. LDA| 000052D0: 20 50 55 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 | PUPOS,X. | 000052E0: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L| 000052F0: 44 41 20 50 55 4C 53 46 52 4D 2C 58 20 20 20 3B |DA PULSFRM,X ;| 00005300: 4E 45 57 20 52 4F 57 3F 0D 20 20 20 20 20 20 20 |NEW ROW?. | 00005310: 20 20 42 4E 45 20 4E 4F 4E 45 57 53 45 54 0D 4E | BNE NONEWSET.N| 00005320: 4F 43 48 4D 41 4C 20 20 4C 44 41 20 50 55 4C 53 |OCHMAL LDA PULS| 00005330: 54 41 42 31 2C 59 0D 20 20 20 20 20 20 20 20 20 |TAB1,Y. | 00005340: 43 4D 50 20 23 24 39 30 20 20 20 20 20 20 20 20 |CMP #$90 | 00005350: 3B 43 48 45 43 4B 20 4C 4F 4F 50 0D 20 20 20 20 |;CHECK LOOP. | 00005360: 20 20 20 20 20 42 4E 45 20 50 50 31 0D 20 20 20 | BNE PP1. | 00005370: 20 20 20 20 20 20 4C 44 41 20 50 55 4C 53 54 41 | LDA PULSTA| 00005380: 42 32 2C 59 0D 20 20 20 20 20 20 20 20 20 53 54 |B2,Y. ST| 00005390: 41 20 50 55 50 4F 53 2C 58 0D 20 20 20 20 20 20 |A PUPOS,X. | 000053A0: 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 | TAY. | 000053B0: 4A 4D 50 20 4E 4F 43 48 4D 41 4C 0D 50 50 31 20 |JMP NOCHMAL.PP1 | 000053C0: 20 20 20 20 20 43 4D 50 20 23 24 39 31 20 20 20 | CMP #$91 | 000053D0: 20 20 20 20 20 3B 43 48 45 43 4B 20 53 54 4F 50 | ;CHECK STOP| 000053E0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 50 50 |. BNE PP| 000053F0: 32 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |2. LDA #| 00005400: 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4E |1. STA N| 00005410: 4F 50 55 2C 58 0D 20 20 20 20 20 20 20 20 20 42 |OPU,X. B| 00005420: 4E 45 20 46 49 4C 4C 49 0D 0D 0D 50 50 32 20 20 |NE FILLI...PP2 | 00005430: 20 20 20 20 53 54 41 20 50 55 4C 53 41 44 44 48 | STA PULSADDH| 00005440: 2C 58 20 20 3B 43 4F 55 4E 54 20 56 41 4C 55 45 |,X ;COUNT VALUE| 00005450: 53 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 |S. LDA P| 00005460: 55 4C 53 54 41 42 32 2C 59 0D 20 20 20 20 20 20 |ULSTAB2,Y. | 00005470: 20 20 20 53 54 41 20 50 55 4C 53 41 44 44 4C 2C | STA PULSADDL,| 00005480: 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 |X. LDA P| 00005490: 55 4C 53 54 41 42 32 2B 31 2C 59 0D 20 20 20 20 |ULSTAB2+1,Y. | 000054A0: 20 20 20 20 20 53 54 41 20 50 55 4C 53 46 52 4D | STA PULSFRM| 000054B0: 2C 58 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D |,X. TYA.| 000054C0: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | CLC. | 000054D0: 20 20 20 20 20 20 41 44 43 20 23 32 0D 20 20 20 | ADC #2. | 000054E0: 20 20 20 20 20 20 53 54 41 20 50 55 50 4F 53 2C | STA PUPOS,| 000054F0: 58 0D 4E 4F 4E 45 57 53 45 54 20 4C 44 41 20 50 |X.NONEWSET LDA P| 00005500: 55 4C 53 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 |ULSLO,X. | 00005510: 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 20 | CLC | 00005520: 20 20 3B 53 45 54 20 56 41 4C 55 45 53 0D 20 20 | ;SET VALUES. | 00005530: 20 20 20 20 20 20 20 41 44 43 20 50 55 4C 53 41 | ADC PULSA| 00005540: 44 44 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |DDL,X. S| 00005550: 54 41 20 50 55 4C 53 4C 4F 2C 58 0D 20 20 20 20 |TA PULSLO,X. | 00005560: 20 20 20 20 20 53 54 41 20 24 44 34 30 32 2C 58 | STA $D402,X| 00005570: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 55 |. LDA PU| 00005580: 4C 53 48 49 2C 58 0D 20 20 20 20 20 20 20 20 20 |LSHI,X. | 00005590: 41 44 43 20 50 55 4C 53 41 44 44 48 2C 58 0D 20 |ADC PULSADDH,X. | 000055A0: 20 20 20 20 20 20 20 20 53 54 41 20 50 55 4C 53 | STA PULS| 000055B0: 48 49 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |HI,X. ST| 000055C0: 41 20 24 44 34 30 33 2C 58 0D 20 20 20 20 20 20 |A $D403,X. | 000055D0: 20 20 20 44 45 43 20 50 55 4C 53 46 52 4D 2C 58 | DEC PULSFRM,X| 000055E0: 0D 0D 0D 0D 46 49 4C 4C 49 0D 3B 2D 2D 2D 2D 2D |....FILLI.;-----| 000055F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005610: 2D 2D 0D 3B 57 52 49 54 49 4E 47 20 54 48 45 20 |--.;WRITING THE | 00005620: D3 C9 C4 2D 52 45 47 49 53 54 45 52 53 0D 3B 2D |...-REGISTERS.;-| 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 2D 0D 20 20 20 20 20 20 20 20 20 |------. | 00005660: 4C 44 59 20 4E 4F 54 45 4F 4B 2C 58 0D 20 20 20 |LDY NOTEOK,X. | 00005670: 20 20 20 20 20 20 4C 44 41 20 44 52 55 4D 2C 58 | LDA DRUM,X| 00005680: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4E 4F |. BEQ NO| 00005690: 52 4D 0D 20 20 20 20 20 20 20 20 20 54 59 41 0D |RM. TYA.| 000056A0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 | STA $D4| 000056B0: 30 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |01,X. LD| 000056C0: 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 |A #0. ST| 000056D0: 41 20 24 44 34 30 30 2C 58 0D 20 20 20 20 20 20 |A $D400,X. | 000056E0: 20 20 20 52 54 53 0D 4E 4F 52 4D 0D 20 20 20 20 | RTS.NORM. | 000056F0: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 | CLC. | 00005700: 20 20 4C 44 41 20 56 49 4C 4F 2C 58 0D 20 20 20 | LDA VILO,X. | 00005710: 20 20 20 20 20 20 41 44 43 20 47 4C 49 44 45 4C | ADC GLIDEL| 00005720: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 00005730: 48 45 4C 50 0D 20 20 20 20 20 20 20 20 20 4C 44 |HELP. LD| 00005740: 41 20 56 49 48 49 2C 58 0D 20 20 20 20 20 20 20 |A VIHI,X. | 00005750: 20 20 41 44 43 20 47 4C 49 44 45 48 2C 58 0D 20 | ADC GLIDEH,X. | 00005760: 20 20 20 20 20 20 20 20 53 54 41 20 48 45 4C 50 | STA HELP| 00005770: 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |+1. LDA | 00005780: 46 52 51 4C 4F 2C 59 0D 20 20 20 20 20 20 20 20 |FRQLO,Y. | 00005790: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 000057A0: 43 20 48 45 4C 50 0D 20 20 20 20 20 20 20 20 20 |C HELP. | 000057B0: 53 54 41 20 48 45 4C 50 0D 20 20 20 20 20 20 20 |STA HELP. | 000057C0: 20 20 4C 44 41 20 48 45 4C 50 2B 31 0D 20 20 20 | LDA HELP+1. | 000057D0: 20 20 20 20 20 20 41 44 43 20 46 52 51 48 49 2C | ADC FRQHI,| 000057E0: 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 48 |Y. STA H| 000057F0: 45 4C 50 2B 31 0D 20 20 20 20 20 20 20 20 20 4C |ELP+1. L| 00005800: 44 41 20 48 45 4C 50 0D 20 20 20 20 20 20 20 20 |DA HELP. | 00005810: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 00005820: 43 20 46 49 4E 45 2C 58 0D 20 20 20 20 20 20 20 |C FINE,X. | 00005830: 20 20 53 54 41 20 24 44 34 30 30 2C 58 0D 20 20 | STA $D400,X. | 00005840: 20 20 20 20 20 20 20 4C 44 41 20 48 45 4C 50 2B | LDA HELP+| 00005850: 31 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |1. ADC #| 00005860: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00005870: 44 34 30 31 2C 58 0D 46 49 50 20 20 20 20 20 20 |D401,X.FIP | 00005880: 52 54 53 0D 0D 53 49 44 0D 20 20 20 20 20 20 20 |RTS..SID. | 00005890: 20 20 4C 44 41 20 53 52 2C 58 0D 20 20 20 20 20 | LDA SR,X. | 000058A0: 20 20 20 20 53 54 41 20 24 44 34 30 36 2C 58 0D | STA $D406,X.| 000058B0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 41 44 2C | LDA AD,| 000058C0: 58 20 20 20 20 20 3B 52 45 47 49 53 54 45 52 53 |X ;REGISTERS| 000058D0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000058E0: 34 30 35 2C 58 0D 0D 0D 0D 53 49 44 32 0D 20 20 |405,X....SID2. | 000058F0: 20 20 20 20 20 20 20 4C 44 41 20 48 41 52 44 4F | LDA HARDO| 00005900: 4E 2C 58 0D 20 20 20 20 20 20 20 20 20 43 4D 50 |N,X. CMP| 00005910: 20 23 32 0D 20 20 20 20 20 20 20 20 20 42 45 51 | #2. BEQ| 00005920: 20 57 49 54 45 52 0D 20 20 20 20 20 20 20 20 20 | WITER. | 00005930: 4C 44 41 20 57 41 56 45 2C 58 0D 20 20 20 20 20 |LDA WAVE,X. | 00005940: 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 | TAY | 00005950: 3B 49 46 20 47 41 54 45 42 49 54 20 4F 46 46 20 |;IF GATEBIT OFF | 00005960: 42 59 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 |BY. AND | 00005970: 23 31 20 20 20 20 20 20 3B 54 41 42 4C 45 2C 20 |#1 ;TABLE, | 00005980: 44 49 53 41 42 4C 45 0D 20 20 20 20 20 20 20 20 |DISABLE. | 00005990: 20 42 45 51 20 4E 4F 47 41 54 20 20 20 3B 47 41 | BEQ NOGAT ;GA| 000059A0: 54 45 20 43 4F 4D 4D 41 4E 44 0D 20 20 20 20 20 |TE COMMAND. | 000059B0: 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 | TYA. | 000059C0: 20 41 4E 44 20 23 24 46 45 0D 20 20 20 20 20 20 | AND #$FE. | 000059D0: 20 20 20 4F 52 41 20 41 4E 44 4F 52 2C 58 0D 20 | ORA ANDOR,X. | 000059E0: 20 20 20 20 20 20 20 20 54 41 59 0D 4E 4F 47 41 | TAY.NOGA| 000059F0: 54 20 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 |T TYA. | 00005A00: 20 20 53 54 41 20 24 44 34 30 34 2C 58 20 20 3B | STA $D404,X ;| 00005A10: 57 52 49 54 45 20 52 45 4D 41 49 4E 49 4E 47 0D |WRITE REMAINING.| 00005A20: 57 49 54 45 52 0D 20 20 20 20 20 20 20 20 20 52 |WITER. R| 00005A30: 54 53 0D 0D 0D 0D 48 45 4C 50 20 20 20 20 20 2E |TS....HELP .| 00005A40: 42 59 54 45 20 24 30 30 2C 24 30 30 0D 3B 2D 2D |BYTE $00,$00.;--| 00005A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005A70: 2D 2D 2D 2D 2D 0D 3B D4 41 42 4C 45 53 0D 3B 2D |-----.;.ABLES.;-| 00005A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005AA0: 2D 2D 2D 2D 2D 2D 0D 46 52 51 4C 4F 20 20 20 20 |------.FRQLO | 00005AB0: 2E 42 59 54 45 20 24 30 43 2C 24 31 43 2C 24 32 |.BYTE $0C,$1C,$2| 00005AC0: 44 2C 24 33 45 2C 24 34 37 2C 24 36 36 0D 20 20 |D,$3E,$47,$66. | 00005AD0: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 37 42 | .BYTE $7B| 00005AE0: 2C 24 39 31 2C 24 41 39 2C 24 43 33 2C 24 44 44 |,$91,$A9,$C3,$DD| 00005AF0: 2C 24 46 41 0D 20 20 20 20 20 20 20 20 20 2E 42 |,$FA. .B| 00005B00: 59 54 45 20 24 31 38 2C 24 33 38 2C 24 35 41 2C |YTE $18,$38,$5A,| 00005B10: 24 37 44 2C 24 41 33 2C 24 43 43 0D 20 20 20 20 |$7D,$A3,$CC. | 00005B20: 20 20 20 20 20 2E 42 59 54 45 20 24 46 36 2C 24 | .BYTE $F6,$| 00005B30: 32 33 2C 24 35 33 2C 24 38 36 2C 24 42 42 2C 24 |23,$53,$86,$BB,$| 00005B40: 46 34 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |F4. .BYT| 00005B50: 45 20 24 33 30 2C 24 37 30 2C 24 42 34 2C 24 46 |E $30,$70,$B4,$F| 00005B60: 42 2C 24 34 37 2C 24 39 38 0D 20 20 20 20 20 20 |B,$47,$98. | 00005B70: 20 20 20 2E 42 59 54 45 20 24 45 44 2C 24 34 37 | .BYTE $ED,$47| 00005B80: 2C 24 41 37 2C 24 30 43 2C 24 37 37 2C 24 45 39 |,$A7,$0C,$77,$E9| 00005B90: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00005BA0: 24 36 31 2C 24 45 31 2C 24 36 38 2C 24 46 37 2C |$61,$E1,$68,$F7,| 00005BB0: 24 38 46 2C 24 33 30 0D 20 20 20 20 20 20 20 20 |$8F,$30. | 00005BC0: 20 2E 42 59 54 45 20 24 44 41 2C 24 38 46 2C 24 | .BYTE $DA,$8F,$| 00005BD0: 34 45 2C 24 31 38 2C 24 45 46 2C 24 44 32 0D 20 |4E,$18,$EF,$D2. | 00005BE0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 43 | .BYTE $C| 00005BF0: 33 2C 24 43 33 2C 24 44 31 2C 24 45 46 2C 24 31 |3,$C3,$D1,$EF,$1| 00005C00: 46 2C 24 36 30 0D 20 20 20 20 20 20 20 20 20 2E |F,$60. .| 00005C10: 42 59 54 45 20 24 42 35 2C 24 31 45 2C 24 39 43 |BYTE $B5,$1E,$9C| 00005C20: 2C 24 33 31 2C 24 44 46 2C 24 41 35 0D 20 20 20 |,$31,$DF,$A5. | 00005C30: 20 20 20 20 20 20 2E 42 59 54 45 20 24 38 37 2C | .BYTE $87,| 00005C40: 24 38 36 2C 24 41 32 2C 24 44 46 2C 24 33 45 2C |$86,$A2,$DF,$3E,| 00005C50: 24 43 31 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |$C1. .BY| 00005C60: 54 45 20 24 36 42 2C 24 33 43 2C 24 33 39 2C 24 |TE $6B,$3C,$39,$| 00005C70: 36 33 2C 24 42 45 2C 24 34 42 0D 20 20 20 20 20 |63,$BE,$4B. | 00005C80: 20 20 20 20 2E 42 59 54 45 20 24 30 46 2C 24 30 | .BYTE $0F,$0| 00005C90: 43 2C 24 34 35 2C 24 42 46 2C 24 37 44 2C 24 38 |C,$45,$BF,$7D,$8| 00005CA0: 33 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |3. .BYTE| 00005CB0: 20 24 44 36 2C 24 37 39 2C 24 37 33 2C 24 43 37 | $D6,$79,$73,$C7| 00005CC0: 2C 24 37 43 2C 24 39 37 0D 20 20 20 20 20 20 20 |,$7C,$97. | 00005CD0: 20 20 2E 42 59 54 45 20 24 31 45 2C 24 31 38 2C | .BYTE $1E,$18,| 00005CE0: 24 38 42 2C 24 37 45 2C 24 46 41 2C 24 30 36 0D |$8B,$7E,$FA,$06.| 00005CF0: 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 | .BYTE $| 00005D00: 41 43 2C 24 46 33 2C 24 45 36 2C 24 38 46 2C 24 |AC,$F3,$E6,$8F,$| 00005D10: 46 38 2C 24 46 43 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D |F8,$FC.;--------| 00005D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00005D40: 46 52 51 48 49 20 20 20 20 2E 42 59 54 45 20 24 |FRQHI .BYTE $| 00005D50: 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |01,$01,$01,$01,$| 00005D60: 30 31 2C 24 30 31 0D 20 20 20 20 20 20 20 20 20 |01,$01. | 00005D70: 2E 42 59 54 45 20 24 30 31 2C 24 30 31 2C 24 30 |.BYTE $01,$01,$0| 00005D80: 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 0D 20 20 |1,$01,$01,$01. | 00005D90: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 30 32 | .BYTE $02| 00005DA0: 2C 24 30 32 2C 24 30 32 2C 24 30 32 2C 24 30 32 |,$02,$02,$02,$02| 00005DB0: 2C 24 30 32 0D 20 20 20 20 20 20 20 20 20 2E 42 |,$02. .B| 00005DC0: 59 54 45 20 24 30 32 2C 24 30 33 2C 24 30 33 2C |YTE $02,$03,$03,| 00005DD0: 24 30 33 2C 24 30 33 2C 24 30 33 0D 20 20 20 20 |$03,$03,$03. | 00005DE0: 20 20 20 20 20 2E 42 59 54 45 20 24 30 34 2C 24 | .BYTE $04,$| 00005DF0: 30 34 2C 24 30 34 2C 24 30 34 2C 24 30 35 2C 24 |04,$04,$04,$05,$| 00005E00: 30 35 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |05. .BYT| 00005E10: 45 20 24 30 35 2C 24 30 36 2C 24 30 36 2C 24 30 |E $05,$06,$06,$0| 00005E20: 37 2C 24 30 37 2C 24 30 37 0D 20 20 20 20 20 20 |7,$07,$07. | 00005E30: 20 20 20 2E 42 59 54 45 20 24 30 38 2C 24 30 38 | .BYTE $08,$08| 00005E40: 2C 24 30 39 2C 24 30 39 2C 24 30 41 2C 24 30 42 |,$09,$09,$0A,$0B| 00005E50: 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 |. .BYTE | 00005E60: 24 30 42 2C 24 30 43 2C 24 30 44 2C 24 30 45 2C |$0B,$0C,$0D,$0E,| 00005E70: 24 30 45 2C 24 30 46 0D 20 20 20 20 20 20 20 20 |$0E,$0F. | 00005E80: 20 2E 42 59 54 45 20 24 31 30 2C 24 31 31 2C 24 | .BYTE $10,$11,$| 00005E90: 31 32 2C 24 31 33 2C 24 31 35 2C 24 31 36 0D 20 |12,$13,$15,$16. | 00005EA0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 31 | .BYTE $1| 00005EB0: 37 2C 24 31 39 2C 24 31 41 2C 24 31 43 2C 24 31 |7,$19,$1A,$1C,$1| 00005EC0: 44 2C 24 31 46 0D 20 20 20 20 20 20 20 20 20 2E |D,$1F. .| 00005ED0: 42 59 54 45 20 24 32 31 2C 24 32 33 2C 24 32 35 |BYTE $21,$23,$25| 00005EE0: 2C 24 32 37 2C 24 32 41 2C 24 32 43 0D 20 20 20 |,$27,$2A,$2C. | 00005EF0: 20 20 20 20 20 20 2E 42 59 54 45 20 24 32 46 2C | .BYTE $2F,| 00005F00: 24 33 32 2C 24 33 35 2C 24 33 38 2C 24 33 42 2C |$32,$35,$38,$3B,| 00005F10: 24 33 46 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |$3F. .BY| 00005F20: 54 45 20 24 34 33 2C 24 34 37 2C 24 34 42 2C 24 |TE $43,$47,$4B,$| 00005F30: 34 46 2C 24 35 34 2C 24 35 39 0D 20 20 20 20 20 |4F,$54,$59. | 00005F40: 20 20 20 20 2E 42 59 54 45 20 24 35 45 2C 24 36 | .BYTE $5E,$6| 00005F50: 34 2C 24 36 41 2C 24 37 30 2C 24 37 37 2C 24 37 |4,$6A,$70,$77,$7| 00005F60: 45 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |E. .BYTE| 00005F70: 20 24 38 36 2C 24 38 45 2C 24 39 36 2C 24 39 46 | $86,$8E,$96,$9F| 00005F80: 2C 24 41 38 2C 24 42 33 0D 20 20 20 20 20 20 20 |,$A8,$B3. | 00005F90: 20 20 2E 42 59 54 45 20 24 42 44 2C 24 43 38 2C | .BYTE $BD,$C8,| 00005FA0: 24 44 34 2C 24 45 31 2C 24 45 45 2C 24 46 44 0D |$D4,$E1,$EE,$FD.| 00005FB0: 0D 53 55 53 41 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |.SUSA.;---------| 00005FC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00005FD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 43 |--------------.C| 00005FE0: 4F 4E 54 50 20 20 20 20 4C 44 41 20 23 31 0D 20 |ONTP LDA #1. | 00005FF0: 20 20 20 20 20 20 20 20 45 4F 52 20 50 43 4F 4E | EOR PCON| 00006000: 54 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |T,X. STA| 00006010: 20 50 43 4F 4E 54 2C 58 0D 20 20 20 20 20 20 20 | PCONT,X. | 00006020: 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D 2D 2D | JMP NOFX.;----| 00006030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006050: 2D 2D 2D 0D 53 55 53 54 20 20 20 20 20 4C 44 41 |---.SUST LDA| 00006060: 20 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 | EFFLO,X. | 00006070: 20 20 53 54 41 20 53 52 2C 58 0D 20 20 20 20 20 | STA SR,X. | 00006080: 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D | JMP NOFX.;--| 00006090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000060A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000060B0: 2D 2D 2D 2D 2D 0D 41 44 52 20 20 20 20 20 20 4C |-----.ADR L| 000060C0: 44 41 20 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 |DA EFFLO,X. | 000060D0: 20 20 20 20 53 54 41 20 41 44 2C 58 0D 20 20 20 | STA AD,X. | 000060E0: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B | JMP NOFX.;| 000060F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006110: 2D 2D 2D 2D 2D 2D 2D 0D 56 4F 4C 20 20 20 20 20 |-------.VOL | 00006120: 20 4C 44 41 20 45 46 46 4C 4F 2C 58 0D 20 20 20 | LDA EFFLO,X. | 00006130: 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 | ASL A. | 00006140: 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 | ASL A. | 00006150: 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 | ASL A. | 00006160: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 00006170: 20 20 53 54 41 20 53 56 4F 4C 2C 58 0D 20 20 20 | STA SVOL,X. | 00006180: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 3B | JMP NOFX.;| 00006190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000061A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000061B0: 2D 2D 2D 2D 2D 2D 2D 0D 47 4C 44 20 20 20 20 20 |-------.GLD | 000061C0: 20 4C 44 59 20 53 45 43 50 4F 53 2C 58 0D 20 20 | LDY SECPOS,X. | 000061D0: 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 | INY. | 000061E0: 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 | LDA #0. | 000061F0: 20 20 20 20 53 54 41 20 47 4C 49 44 45 4C 2C 58 | STA GLIDEL,X| 00006200: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 47 4C |. STA GL| 00006210: 49 44 45 48 2C 58 0D 20 20 20 20 20 20 20 20 20 |IDEH,X. | 00006220: 4C 44 41 20 28 24 46 38 29 2C 59 0D 20 20 20 20 |LDA ($F8),Y. | 00006230: 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 | PHA. | 00006240: 20 20 43 4D 50 20 23 24 36 30 0D 20 20 20 20 20 | CMP #$60. | 00006250: 20 20 20 20 42 43 43 20 47 4C 31 0D 20 20 20 20 | BCC GL1. | 00006260: 20 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 | SEC. | 00006270: 20 20 53 42 43 20 23 24 36 30 0D 47 4C 31 20 20 | SBC #$60.GL1 | 00006280: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00006290: 20 41 44 43 20 54 52 50 4F 53 45 2C 58 0D 20 20 | ADC TRPOSE,X. | 000062A0: 20 20 20 20 20 20 20 53 54 41 20 47 4C 46 52 4F | STA GLFRO| 000062B0: 4D 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 59 |M,X. INY| 000062C0: 0D 47 4C 53 4C 20 20 20 20 20 4C 44 41 20 28 24 |.GLSL LDA ($| 000062D0: 46 38 29 2C 59 0D 20 20 20 20 20 20 20 20 20 43 |F8),Y. C| 000062E0: 4D 50 20 23 24 36 30 0D 20 20 20 20 20 20 20 20 |MP #$60. | 000062F0: 20 42 43 43 20 47 4C 32 0D 20 20 20 20 20 20 20 | BCC GL2. | 00006300: 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 20 53 | SEC. S| 00006310: 42 43 20 23 24 36 30 0D 47 4C 32 20 20 20 20 20 |BC #$60.GL2 | 00006320: 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 | CLC. AD| 00006330: 43 20 54 52 50 4F 53 45 2C 58 0D 20 20 20 20 20 |C TRPOSE,X. | 00006340: 20 20 20 20 53 54 41 20 47 4C 54 4F 2C 58 0D 20 | STA GLTO,X. | 00006350: 20 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 | PHA. | 00006360: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 00006370: 20 20 4C 44 41 20 46 52 51 4C 4F 2C 59 0D 20 20 | LDA FRQLO,Y. | 00006380: 20 20 20 20 20 20 20 53 54 41 20 47 4C 44 45 4C | STA GLDEL| 00006390: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 000063A0: 46 52 51 48 49 2C 59 0D 20 20 20 20 20 20 20 20 |FRQHI,Y. | 000063B0: 20 53 54 41 20 47 4C 44 45 48 2C 58 0D 20 20 20 | STA GLDEH,X. | 000063C0: 20 20 20 20 20 20 50 4C 41 0D 0D 20 20 20 20 20 | PLA.. | 000063D0: 20 20 20 20 43 4D 50 20 47 4C 46 52 4F 4D 2C 58 | CMP GLFROM,X| 000063E0: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 47 4C |. BEQ GL| 000063F0: 34 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 47 |4. BCS G| 00006400: 4C 55 50 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |LUP. LDA| 00006410: 20 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 | EFFLO,X. | 00006420: 20 20 45 4F 52 20 23 24 46 46 0D 20 20 20 20 20 | EOR #$FF. | 00006430: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00006440: 20 41 44 43 20 23 24 30 31 0D 20 20 20 20 20 20 | ADC #$01. | 00006450: 20 20 20 53 54 41 20 47 4C 4C 2C 58 0D 20 20 20 | STA GLL,X. | 00006460: 20 20 20 20 20 20 4C 44 41 20 45 46 46 48 49 2C | LDA EFFHI,| 00006470: 58 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 23 |X. EOR #| 00006480: 24 46 46 0D 20 20 20 20 20 20 20 20 20 41 44 43 |$FF. ADC| 00006490: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 000064A0: 20 47 4C 48 2C 58 0D 20 20 20 20 20 20 20 20 20 | GLH,X. | 000064B0: 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDA #0. | 000064C0: 42 45 51 20 47 4C 33 0D 47 4C 55 50 0D 20 20 20 |BEQ GL3.GLUP. | 000064D0: 20 20 20 20 20 20 4C 44 41 20 45 46 46 4C 4F 2C | LDA EFFLO,| 000064E0: 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 47 |X. STA G| 000064F0: 4C 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 |LL,X. LD| 00006500: 41 20 45 46 46 48 49 2C 58 0D 20 20 20 20 20 20 |A EFFHI,X. | 00006510: 20 20 20 53 54 41 20 47 4C 48 2C 58 0D 47 4C 33 | STA GLH,X.GL3| 00006520: 0D 20 20 20 20 20 20 20 20 20 50 4C 41 0D 20 20 |. PLA. | 00006530: 20 20 20 20 20 20 20 49 4E 43 20 53 45 43 50 4F | INC SECPO| 00006540: 53 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 43 |S,X. INC| 00006550: 20 53 45 43 50 4F 53 2C 58 0D 20 20 20 20 20 20 | SECPOS,X. | 00006560: 20 20 20 4A 4D 50 20 4E 4F 54 45 0D 47 4C 34 0D | JMP NOTE.GL4.| 00006570: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00006580: 20 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 4C | STA GLL| 00006590: 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |,X. BEQ | 000065A0: 47 4C 33 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |GL3.;-----------| 000065B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000065C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 53 4C 44 |------------.SLD| 000065D0: 20 20 20 20 20 20 4C 44 59 20 53 45 43 50 4F 53 | LDY SECPOS| 000065E0: 2C 58 0D 20 20 20 20 20 20 20 20 20 49 4E 59 0D |,X. INY.| 000065F0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00006600: 20 20 20 20 20 20 20 20 20 53 54 41 20 47 4C 49 | STA GLI| 00006610: 44 45 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |DEL,X. S| 00006620: 54 41 20 47 4C 49 44 45 48 2C 58 0D 20 20 20 20 |TA GLIDEH,X. | 00006630: 20 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 | LDA #1. | 00006640: 20 20 20 20 20 53 54 41 20 43 4F 4E 54 2C 58 0D | STA CONT,X.| 00006650: 20 20 20 20 20 20 20 20 20 4C 44 41 20 4E 4F 54 | LDA NOT| 00006660: 45 56 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 |EV,X. ST| 00006670: 41 20 47 4C 46 52 4F 4D 2C 58 0D 20 20 20 20 20 |A GLFROM,X. | 00006680: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 00006690: 20 53 42 43 20 54 52 50 4F 53 45 2C 58 0D 20 20 | SBC TRPOSE,X. | 000066A0: 20 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 | PHA. | 000066B0: 20 20 20 20 44 45 43 20 53 45 43 50 4F 53 2C 58 | DEC SECPOS,X| 000066C0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 |. LDA #0| 000066D0: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 47 4C |. BEQ GL| 000066E0: 53 4C 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |SL.;------------| 000066F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 56 49 42 52 |-----------.VIBR| 00006710: 20 20 20 20 20 4C 44 41 20 45 46 46 4C 4F 2C 58 | LDA EFFLO,X| 00006720: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 56 41 |. STA VA| 00006730: 44 44 4C 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |DDL,X. S| 00006740: 54 41 20 56 41 44 44 4C 31 2C 58 0D 20 20 20 20 |TA VADDL1,X. | 00006750: 20 20 20 20 20 4C 44 41 20 45 46 46 48 49 2C 58 | LDA EFFHI,X| 00006760: 0D 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 24 |. AND #$| 00006770: 30 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |0F. STA | 00006780: 56 41 44 44 48 2C 58 0D 20 20 20 20 20 20 20 20 |VADDH,X. | 00006790: 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 | LSR A. | 000067A0: 53 54 41 20 56 41 44 44 48 31 2C 58 0D 20 20 20 |STA VADDH1,X. | 000067B0: 20 20 20 20 20 20 52 4F 52 20 56 41 44 44 4C 31 | ROR VADDL1| 000067C0: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 000067D0: 45 46 46 48 49 2C 58 0D 20 20 20 20 20 20 20 20 |EFFHI,X. | 000067E0: 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 | LSR A. | 000067F0: 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C |LSR A. L| 00006800: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 |SR A. LS| 00006810: 52 20 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 |R A. STA| 00006820: 20 56 53 50 45 45 44 2C 58 0D 20 20 20 20 20 20 | VSPEED,X. | 00006830: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00006840: 20 20 53 54 41 20 56 53 50 45 45 44 31 2C 58 0D | STA VSPEED1,X.| 00006850: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00006860: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 49 4C | STA VIL| 00006870: 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |O,X. STA| 00006880: 20 56 49 48 49 2C 58 0D 20 20 20 20 20 20 20 20 | VIHI,X. | 00006890: 20 53 54 41 20 56 49 46 49 52 53 54 2C 58 0D 20 | STA VIFIRST,X. | 000068A0: 20 20 20 20 20 20 20 20 53 54 41 20 56 44 49 52 | STA VDIR| 000068B0: 2C 58 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |,X. JMP | 000068C0: 4E 4F 46 58 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NOFX.;----------| 000068D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000068E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 46 4C |-------------.FL| 000068F0: 54 20 20 20 20 20 20 4C 44 41 20 45 46 46 4C 4F |T LDA EFFLO| 00006900: 2C 58 0D 20 20 20 20 20 20 20 20 20 54 41 59 0D |,X. TAY.| 00006910: 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 24 46 | AND #$F| 00006920: 30 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 46 |0. BEQ F| 00006930: 4C 54 56 4F 0D 20 20 20 20 20 20 20 20 20 53 54 |LTVO. ST| 00006940: 41 20 46 49 4C 54 59 50 0D 20 20 20 20 20 20 20 |A FILTYP. | 00006950: 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 41 | TYA. A| 00006960: 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 53 |SL A. AS| 00006970: 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 53 4C |L A. ASL| 00006980: 20 41 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 | A. ASL | 00006990: 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 52 |A. STA R| 000069A0: 45 53 4F 4E 41 4E 43 45 0D 20 20 20 20 20 20 20 |ESONANCE. | 000069B0: 20 20 4C 44 41 20 46 49 4C 43 4F 4E 0D 20 20 20 | LDA FILCON. | 000069C0: 20 20 20 20 20 20 41 4E 44 20 23 24 37 46 0D 20 | AND #$7F. | 000069D0: 20 20 20 20 20 20 20 20 53 54 41 20 46 49 4C 43 | STA FILC| 000069E0: 4F 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |ON.. LDA| 000069F0: 20 46 49 4C 43 4F 4E 54 2C 58 0D 20 20 20 20 20 | FILCONT,X. | 00006A00: 20 20 20 20 4F 52 41 20 46 49 4C 43 4F 4E 46 0D | ORA FILCONF.| 00006A10: 20 20 20 20 20 20 20 20 20 53 54 41 20 46 49 4C | STA FIL| 00006A20: 43 4F 4E 46 0D 20 20 20 20 20 20 20 20 20 4A 4D |CONF. JM| 00006A30: 50 20 4E 4F 46 58 0D 46 4C 54 56 4F 20 20 20 20 |P NOFX.FLTVO | 00006A40: 4C 44 41 20 46 49 4C 43 4F 4E 46 0D 20 20 20 20 |LDA FILCONF. | 00006A50: 20 20 20 20 20 41 4E 44 20 46 49 4C 43 4F 4E 54 | AND FILCONT| 00006A60: 31 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |1,X. STA| 00006A70: 20 46 49 4C 43 4F 4E 46 0D 20 20 20 20 20 20 20 | FILCONF. | 00006A80: 20 20 42 4E 45 20 46 4C 54 56 4F 31 0D 20 20 20 | BNE FLTVO1. | 00006A90: 20 20 20 20 20 20 4C 44 41 20 46 49 4C 43 4F 4E | LDA FILCON| 00006AA0: 0D 20 20 20 20 20 20 20 20 20 4F 52 41 20 23 24 |. ORA #$| 00006AB0: 38 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |80. STA | 00006AC0: 46 49 4C 43 4F 4E 0D 46 4C 54 56 4F 31 20 20 20 |FILCON.FLTVO1 | 00006AD0: 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D 2D 2D 2D 2D |JMP NOFX.;------| 00006AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006B00: 2D 0D 43 4F 4E 54 46 20 20 20 20 4C 44 41 20 23 |-.CONTF LDA #| 00006B10: 31 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 46 |1. EOR F| 00006B20: 43 4F 4E 54 0D 20 20 20 20 20 20 20 20 20 53 54 |CONT. ST| 00006B30: 41 20 46 43 4F 4E 54 0D 20 20 20 20 20 20 20 20 |A FCONT. | 00006B40: 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D 2D 2D 2D | JMP NOFX.;-----| 00006B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006B70: 2D 2D 0D 46 52 51 20 20 20 20 20 20 4C 44 41 20 |--.FRQ LDA | 00006B80: 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 |EFFLO,X. | 00006B90: 20 4F 52 41 20 45 46 46 48 49 2C 58 0D 20 20 20 | ORA EFFHI,X. | 00006BA0: 20 20 20 20 20 20 42 45 51 20 46 52 51 32 0D 20 | BEQ FRQ2. | 00006BB0: 20 20 20 20 20 20 20 20 53 54 41 20 46 52 51 46 | STA FRQF| 00006BC0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 45 46 |. LDA EF| 00006BD0: 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 53 |FLO,X. S| 00006BE0: 54 41 20 46 4C 4F 0D 20 20 20 20 20 20 20 20 20 |TA FLO. | 00006BF0: 4C 44 41 20 45 46 46 48 49 2C 58 0D 20 20 20 20 |LDA EFFHI,X. | 00006C00: 20 20 20 20 20 41 4E 44 20 23 37 0D 20 20 20 20 | AND #7. | 00006C10: 20 20 20 20 20 53 54 41 20 46 48 49 0D 20 20 20 | STA FHI. | 00006C20: 20 20 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 46 | JMP NOFX.F| 00006C30: 52 51 32 20 20 20 20 20 4C 44 41 20 23 30 0D 20 |RQ2 LDA #0. | 00006C40: 20 20 20 20 20 20 20 20 53 54 41 20 46 52 51 46 | STA FRQF| 00006C50: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4E 4F |. JMP NO| 00006C60: 46 58 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |FX.;------------| 00006C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 41 52 50 20 |-----------.ARP | 00006C90: 20 20 20 20 20 4C 44 41 20 45 46 46 4C 4F 2C 58 | LDA EFFLO,X| 00006CA0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 57 41 |. STA WA| 00006CB0: 56 45 58 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 |VEXPOS,X. | 00006CC0: 20 20 4C 44 41 20 45 46 46 48 49 2C 58 0D 20 20 | LDA EFFHI,X. | 00006CD0: 20 20 20 20 20 20 20 41 4E 44 20 23 24 30 46 0D | AND #$0F.| 00006CE0: 20 20 20 20 20 20 20 20 20 53 54 41 20 58 57 56 | STA XWV| 00006CF0: 53 50 45 45 44 2C 58 0D 20 20 20 20 20 20 20 20 |SPEED,X. | 00006D00: 20 4A 4D 50 20 4E 4F 46 58 0D 3B 2D 2D 2D 2D 2D | JMP NOFX.;-----| 00006D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006D30: 2D 2D 0D 46 4E 45 20 20 20 20 20 20 4C 44 41 20 |--.FNE LDA | 00006D40: 45 46 46 4C 4F 2C 58 0D 20 20 20 20 20 20 20 20 |EFFLO,X. | 00006D50: 20 53 54 41 20 46 49 4E 45 2C 58 0D 20 20 20 20 | STA FINE,X. | 00006D60: 20 20 20 20 20 4A 4D 50 20 4E 4F 46 58 0D 53 45 | JMP NOFX.SE| 00006D70: 4E 44 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ND.;------------| 00006D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 2D 2D 2D |-----------.;---| 00006DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006DB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006DC0: 2D 2D 2D 2D 0D 3B 53 55 50 45 52 43 4F 4D 4D 41 |----.;SUPERCOMMA| 00006DD0: 4E 44 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NDS.;-----------| 00006DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 30 30 |------------.;00| 00006E00: 20 2D 20 4E 4F 54 48 49 4E 47 0D 3B 30 31 20 2D | - NOTHING.;01 -| 00006E10: 20 43 4F 4E 54 2E 20 50 55 4C 53 45 20 28 4E 4F | CONT. PULSE (NO| 00006E20: 20 50 55 4C 53 45 20 52 45 53 54 41 52 54 29 0D | PULSE RESTART).| 00006E30: 3B 30 32 20 2D 20 53 52 52 2E 58 58 0D 3B 30 33 |;02 - SRR.XX.;03| 00006E40: 20 2D 20 41 44 52 2E 58 58 0D 3B 30 34 20 2D 20 | - ADR.XX.;04 - | 00006E50: 56 4F 4C 2E 58 58 0D 3B 30 35 20 2D 20 47 4C 44 |VOL.XX.;05 - GLD| 00006E60: 2E 58 58 58 58 0D 3B 30 36 20 2D 20 53 4C 44 2E |.XXXX.;06 - SLD.| 00006E70: 58 58 58 58 0D 3B 30 37 20 2D 20 56 49 42 2E 58 |XXXX.;07 - VIB.X| 00006E80: 58 58 58 0D 3B 30 38 20 2D 20 46 4C 54 2E 58 59 |XXX.;08 - FLT.XY| 00006E90: 20 20 20 20 20 20 20 58 3D 54 59 50 45 2C 59 3D | X=TYPE,Y=| 00006EA0: 52 45 53 4F 4E 41 4E 43 45 0D 3B 30 39 20 2D 20 |RESONANCE.;09 - | 00006EB0: 43 4F 4E 54 2E 20 46 49 4C 54 20 20 28 4E 4F 20 |CONT. FILT (NO | 00006EC0: 46 49 4C 54 45 52 20 52 45 53 54 41 52 54 29 0D |FILTER RESTART).| 00006ED0: 3B 30 41 20 2D 20 46 52 51 2E 58 58 58 0D 3B 30 |;0A - FRQ.XXX.;0| 00006EE0: 42 20 2D 20 41 52 50 2E 59 58 58 20 20 20 59 3D |B - ARP.YXX Y=| 00006EF0: 4E 45 57 20 53 50 45 45 44 20 58 3D 4E 45 57 20 |NEW SPEED X=NEW | 00006F00: 50 4F 49 4E 54 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |POINT.;---------| 00006F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00006F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |--------------..| 00006F30: 43 4F 4D 4D 54 41 42 20 20 3D 20 24 33 44 34 30 |COMMTAB = $3D40| 00006F40: 0D 43 4F 4D 4D 54 41 42 31 20 3D 20 24 33 44 38 |.COMMTAB1 = $3D8| 00006F50: 30 0D 43 4F 4D 4D 54 41 42 32 20 3D 20 24 33 44 |0.COMMTAB2 = $3D| 00006F60: 43 30 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 |C0. *= $| 00006F70: 30 46 38 30 0D 43 4F 4D 4D 54 41 42 33 0D 20 20 |0F80.COMMTAB3. | 00006F80: 20 20 20 20 20 20 20 2E 57 4F 52 44 20 4E 4F 46 | .WORD NOF| 00006F90: 58 2C 43 4F 4E 54 50 2C 53 55 53 54 2C 41 44 52 |X,CONTP,SUST,ADR| 00006FA0: 2C 56 4F 4C 0D 20 20 20 20 20 20 20 20 20 2E 57 |,VOL. .W| 00006FB0: 4F 52 44 20 47 4C 44 2C 53 4C 44 2C 56 49 42 52 |ORD GLD,SLD,VIBR| 00006FC0: 2C 46 4C 54 2C 43 4F 4E 54 46 0D 20 20 20 20 20 |,FLT,CONTF. | 00006FD0: 20 20 20 20 2E 57 4F 52 44 20 46 52 51 2C 41 52 | .WORD FRQ,AR| 00006FE0: 50 2C 46 4E 45 2C 53 45 4E 44 0D 0D 0D 20 20 20 |P,FNE,SEND... | 00006FF0: 20 20 20 20 20 20 2A 3D 20 24 30 46 45 30 0D 20 | *= $0FE0. | 00007000: 20 20 20 20 20 20 20 20 2E 57 4F 52 44 20 54 52 | .WORD TR| 00007010: 50 4F 53 2C 57 53 50 45 45 44 2C 53 55 53 41 0D |POS,WSPEED,SUSA.| 00007020: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00007030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 54 52 41 4B 4B 20 |---------.TRAKK | 00007050: 20 20 20 3D 20 24 33 45 30 30 0D 0D 3B 2D 2D 2D | = $3E00..;---| 00007060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007080: 2D 2D 2D 2D 0D 53 45 43 4C 4F 20 20 20 20 3D 20 |----.SECLO = | 00007090: 24 33 46 30 30 0D 0D 53 45 43 48 49 20 20 20 20 |$3F00..SECHI | 000070A0: 3D 20 24 33 46 38 30 0D 0D 3B 2D 2D 2D 2D 2D 2D |= $3F80..;------| 000070B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000070C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000070D0: 2D 0D 3B 43 4F 4D 4D 41 4E 44 53 0D 20 20 20 20 |-.;COMMANDS. | 000070E0: 20 20 20 20 20 3B 24 46 46 20 58 58 20 20 20 20 | ;$FF XX | 000070F0: 4C 4F 4F 50 20 58 58 0D 20 20 20 20 20 20 20 20 |LOOP XX. | 00007100: 20 3B 24 46 45 20 20 20 20 20 20 20 53 54 4F 50 | ;$FE STOP| 00007110: 20 56 4F 49 43 45 0D 20 20 20 20 20 20 20 20 20 | VOICE. | 00007120: 3B 24 46 44 20 58 58 20 20 20 20 54 52 41 4E 53 |;$FD XX TRANS| 00007130: 50 4F 53 45 20 2B 58 58 0D 20 20 20 20 20 20 20 |POSE +XX. | 00007140: 20 20 3B 24 46 43 20 58 58 20 20 20 20 54 52 41 | ;$FC XX TRA| 00007150: 4E 53 50 4F 53 45 20 2D 58 58 0D 20 20 20 20 20 |NSPOSE -XX. | 00007160: 20 20 20 20 3B 24 46 42 20 58 58 20 20 20 20 46 | ;$FB XX F| 00007170: 41 44 45 49 4E 20 20 58 58 0D 20 20 20 20 20 20 |ADEIN XX. | 00007180: 20 20 20 3B 24 46 41 20 58 58 20 20 20 20 46 41 | ;$FA XX FA| 00007190: 44 45 4F 55 54 20 58 58 0D 20 20 20 20 20 20 20 |DEOUT XX. | 000071A0: 20 20 3B 24 45 58 20 20 20 20 20 20 20 56 4F 4C | ;$EX VOL| 000071B0: 55 4D 45 20 58 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D |UME X..;--------| 000071C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000071D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 000071E0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000071F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007200: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 43 4F 4D 4D 41 4E |--------.;COMMAN| 00007210: 44 53 20 20 24 46 44 2E 58 58 20 20 20 44 55 52 |DS $FD.XX DUR| 00007220: 20 58 58 0D 20 20 20 20 20 20 20 20 20 20 3B 24 | XX. ;$| 00007230: 46 43 2E 58 58 20 20 20 53 4E 44 20 58 58 0D 20 |FC.XX SND XX. | 00007240: 20 20 20 20 20 20 20 20 20 3B 24 46 45 20 20 20 | ;$FE | 00007250: 20 20 20 43 4F 4E 54 28 2D 2D 2D 29 0D 20 20 20 | CONT(---). | 00007260: 20 20 20 20 20 20 20 3B 24 46 42 20 20 20 20 20 | ;$FB | 00007270: 20 47 41 54 45 0D 20 20 20 20 20 20 20 20 20 20 | GATE. | 00007280: 3B 24 46 41 20 20 20 20 20 20 53 57 49 54 43 48 |;$FA SWITCH| 00007290: 0D 20 20 20 20 20 20 20 20 20 20 3B 24 46 39 20 |. ;$F9 | 000072A0: 20 20 20 20 20 43 55 54 0D 0D 0D 0D 3B 2D 2D 2D | CUT....;---| 000072B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000072C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000072D0: 2D 2D 2D 2D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |----..;---------| 000072E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000072F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B |--------------.;| 00007300: 49 4E 53 54 52 55 4D 45 4E 54 20 44 41 54 41 0D |INSTRUMENT DATA.| 00007310: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00007320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007330: 2D 2D 2D 2D 2D 2D 2D 2D 0D 41 44 54 41 42 20 20 |--------.ADTAB | 00007340: 20 20 3D 20 24 34 30 30 30 0D 53 52 54 41 42 20 | = $4000.SRTAB | 00007350: 20 20 20 3D 20 24 34 31 30 30 0D 57 41 56 50 54 | = $4100.WAVPT| 00007360: 41 42 20 20 3D 20 24 34 32 30 30 0D 50 55 4C 50 |AB = $4200.PULP| 00007370: 54 41 42 20 20 3D 20 24 34 33 30 30 0D 46 49 4C |TAB = $4300.FIL| 00007380: 50 54 41 42 20 20 3D 20 24 34 34 30 30 0D 45 46 |PTAB = $4400.EF| 00007390: 46 54 41 42 20 20 20 3D 20 24 34 35 30 30 0D 0D |FTAB = $4500..| 000073A0: 0D 57 41 56 45 54 41 42 20 20 3D 20 24 34 36 30 |.WAVETAB = $460| 000073B0: 30 0D 0D 46 52 45 51 54 41 42 20 20 3D 20 24 34 |0..FREQTAB = $4| 000073C0: 37 30 30 0D 0D 50 55 4C 53 54 41 42 31 20 3D 20 |700..PULSTAB1 = | 000073D0: 24 34 38 30 30 0D 0D 50 55 4C 53 54 41 42 32 20 |$4800..PULSTAB2 | 000073E0: 3D 20 24 34 39 30 30 0D 0D 46 49 4C 54 54 41 42 |= $4900..FILTTAB| 000073F0: 31 20 3D 20 24 34 41 30 30 0D 46 49 4C 54 54 41 |1 = $4A00.FILTTA| 00007400: 42 32 20 3D 20 24 34 42 30 30 0D 0D 3B 2D 2D 2D |B2 = $4B00..;---| 00007410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00007430: 2D 2D 2D 2D 0D 0D |----.. |
;64'ER MUSIC PLAYER V.1.0.;ALL CODING AN
D DESIGN BY THE SYNDROM.;---------------
------------------------.;--------------
-------------------------.;EDITOR VERSIO
N.;-------------------------------------
--. *= $1000.. JMP INIT.
JMP PLAY. JMP PLAY2.;--
-------------------------------------.HA
RDVAL .BYTE $0F ;(XY: X=8->KEEP AD.
; X=0-> AD=Y)..FILTYP
.BYTE $00.FILCON .BYTE $00.FILTLO
.BYTE $00.FILTHI .BYTE $00.VOLUME .
BYTE $00.RESONANCE .BYTE $00.SPEED .B
YTE $00.SPEED1 .BYTE $00.MULTI .BYT
E $00.IDENTIFY .BYTE $00.FADE .BYTE
$00.FADETIME .BYTE $00.NOFI .BYTE $0
0.FILFREQL .BYTE $00.FILFREQH .BYTE $00.
FCONT .BYTE $00.FILCONF .BYTE $00.FI
LTADDL .BYTE $00.FILTADDH .BYTE $00.FILT
FRM .BYTE $00.FILPOS .BYTE $00.FRQF
.BYTE $00. .TEXT "-PLAYER & M
USIC BY THE ". .TEXT "SYNDROM!-"
.FLO .BYTE $00.FHI .BYTE $00.W
SPEED .BYTE $00,0. .BYTE $00,0
.;--------------------------------------
-.DUR .BYTE $00.DURAT .BYTE $00.
SND .BYTE $00.AD .BYTE $00.SR
.BYTE $00.ON .BYTE $00.VDIR
.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.TRAC
KL .BYTE $00.TRACKH .BYTE $00.SECPOS
.BYTE $00.WAVE .BYTE $00.FILCONT
.BYTE $00.PUPOS .BYTE $00. .
BYTE $00,0,0,0,0,0,0 ; -"-. .BY
TE $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 ; -"-
..FILCONT1 .BYTE $FE.WAVEXPOS .BYTE $00.
XWVSPEED .BYTE $00. .BYTE $00.
.BYTE $00. .BYTE $00.
.BYTE $00. .BYTE $FD,0,0,0,
0,0,0 ; -"-. .BYTE $FB,0,0,0,0,
0,0 ; -"-.....MARK .BYTE $00.....;-
--------------------------------------.I
NIT ASL A. ASL A. AS
L A. TAY. LDX #$00.
TXA.INITCL STA DUR,X ;CLEAR DA
TA. INX. CPX #MARK-DUR.
BNE INITCL. LDX #0.INITC
L2 STA FILTYP,X. INX. C
PX #FRQF-FILTYP. BNE INITCL2.
LDX #$00 ;PREPARE POINTERS.TR
FILL LDA TRAKK,Y. STA TRACKL,X
. LDA TRAKK+1,Y. STA TRA
CKH,X. LDA #9 ;RESET VOIC
ES. STA $D404,X. STA ON,
X. LDA #0. STA AD,X.
STA SR,X. LDA #$02 ;ST
ARTVALUES. STA DURAT,X.
LDA #$FF. STA WVSPEED1,X.
LDA #$80 ;X0,X7,XE FOR FVOICE.
STA FILCON. LDA #1. ST
A HARDON,X. STA ANDOR,X.
INY. INY. TXA.
CLC. ADC #7 ;0-7-14-LOOP.
TAX. CPX #21. B
NE TRFILL. LDA TRAKK,Y.
PHA. LSR A. LSR A.
LSR A. LSR A. STA WSP
EED. PLA. AND #$0F.
STA WSPEED+1. LDA #3.
STA SPEED1. LDA TRAKK+1,Y.
AND #$0F. STA VOLUME.
LDA #1. STA FILCONT.
ASL A. STA FILCONT+7. AS
L A. STA FILCONT+14. LDA
#$FE. STA FILCONT1. LDA
#$FD. STA FILCONT1+7. L
DA #$FB. STA FILCONT1+14.
LDA #0. STA FILCONF. S
TA WSPEEDC+1. RTS.;-------------
--------------------------.PLAY LDA
$F8 ;SAVE USED. PHA
;ZEROPAGE TO STACK. LDA $F9.
PHA. DEC SPEED1 ;MAIN-SP
EED-CONTROL. BPL NEW1.WSPEEDC L
DA #0. EOR #1. STA WSPEE
DC+1. TAX. LDA WSPEED,X.
STA SPEED. STA SPEED1.N
EW1 LDX #0. JSR VOICE.
LDX #7. JSR VOICE. LD
X #14. JSR VOICE. LDA FA
DE ;VOLUME-FADE. BEQ NOFADE
;ACTIVE ?. DEC FADETIME.
LDA FADETIME. BNE NOFADE.FTIM
E LDA #0 ;DIRECT CODE.
STA FADETIME ;ACCESSED. LDA VOLU
ME. CLC. ADC FADE.
STA VOLUME. CMP #$FF ;LOW
ER STOP. BEQ FADESTOP. C
MP #$10. BNE NOFADE ;UPPER STO
P. LDA #$0F. STA VOLUME.
BNE NOFADE..FADESTOP LDA #0.
STA FADE. STA VOLUME.NOFAD
E LDA VOLUME ;PERMANENT. OR
A FILTYP ;CONTROLS. STA $D418
. LDA FILCONF. ORA RESON
ANCE. STA $D417. LDA FIL
FREQL. STA $D415. LDA FI
LFREQH. STA $D416. PLA
;REWRITE ZERO-. STA $F9
;PAGE. PLA. STA $
F8. RTS.;-----------------------
----------------.VOICE LDA ON,X
;VOICE ACTIVE?. BNE VOION.
RTS.VOION LDA SPEED1 ;NEW DURATIO
N-. CMP SPEED ;FRAME ?.
BEQ NEW ;.. JMP VOICE3;HR-
CHECK FOR LOW. ;SPEEDS
NECESSARY.NEW DEC DURAT,X ;NEW COM
MAND-. BEQ NEW3 ;FRAME ?.
JMP VOICE3.;-----------------------
----------------.;TRACK-CONTROL-ROUTINES
.;--------------------------------------
-.;COMMANDS. ;$FF XX LOOP XX.
;$FE STOP VOICE.
;$FD XX TRANSPOSE +XX. ;$FC X
X TRANSPOSE -XX. ;$FB XX F
ADEIN XX. ;$FA XX FADEOUT XX
. ;$EX VOLUME X.;---------
------------------------------.NEW3
LDA TRACKL,X ;SET POINTERS. STA
$F8. LDA TRACKH,X. STA $
F9.;------------------------------------
---.;CHECK TRACK-COMMANDS.;-------------
--------------------------.READ.
LDY TRPOS,X. LDA ($F8),Y.
BPL NOCOM ;SECTOR OR COMMAND?.
CMP #$FF ;END. BNE C
OM1. INY. LDA ($F8),Y.
STA TRPOS,X. TAY.
JMP READ+3.COM1 CMP #$FE ;S
TOP. BNE COM2. LDA #0.
STA ON,X. LDA #1.
STA CUT,X. RTS.COM2 CMP #$F
D ;TR+XX. BNE COM3.
INY. LDA ($F8),Y.DAZU ST
A TRPOSE,X. INY. TYA.
STA TRPOS,X. JMP READ+3.CO
M3 CMP #$FC ;TR-XX.
BNE COM4. INY. LDA ($F8)
,Y. EOR #$FF. CLC.
ADC #$01. JMP DAZU.COM4 C
MP #$FB ;FD+XX. BNE COM5
. INY. LDA ($F8),Y.
STA FADETIME. STA FTIME+1.
LDA #1. STA FADE.
JMP DAZU+3.COM5 CMP #$FA ;F
D-XX. BNE COM6. 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 CO
M7. AND #$0F. STA VOLUME
. INC TRPOS,X.COM7 JMP READ.
;---------------------------------------
.;SECTOR-CONTROL.;COMMANDS $FD.XX DUR
XX. ;$FC.XX SND XX.
;$FE CONT(---). ;$FB
GATE. ;$FA SWITCH.
;$F9 CUT.;----------------------
-----------------.NOCOM TAY
;SET POINTERS. LDA SECLO,Y.
STA $F8. LDA SECHI,Y.
STA $F9.READ3 LDY SECPOS,X.
LDA ($F8),Y ;COMMAND OR. CMP #
$C0 ;NOTE ?. BCS NNOTE ;.
PHA. LDA #0. ST
A GLL,X. STA GLH,X. STA
GLIDEL,X. STA GLIDEH,X.
STA VSPEED,X. STA VILO,X.
STA VIHI,X.. PLA. JMP
NOTE.NNOTE. CMP #$FF ;E
ND. BNE SCOM1. INC TRPOS
,X. LDA #0. STA SECPOS,X
. LDA SWITCH,X ;NO CUT IF SWITCH
. BNE NOWRAP ;IS ACTIVE.
LDA #$FF. STA WVSPEED1,X.
LDA #$00. STA WAVE,X.NOWRAP
JMP NEW3.SCOM1 CMP #$F9. B
CS SCOM1A. JMP SCOM7.SCOM1A CM
P #$FE ;---. BNE SCOM2.NOTE3
INY. TYA. STA SECPOS
,X. LDA #1. STA CONT,X.
JMP NOTE2.SCOM2 CMP #$FD
;DUR.XX. BNE SCOM3. INY.
LDA ($F8),Y. STA DUR,X.
STA DURAT,X.DAZU4 INY.
TYA. STA SECPOS,X. JM
P READ3+3.SCOM3 CMP #$FC ;SND.XX.
BNE SCOM4. INY.
LDA ($F8),Y. STA SND,X.
STA SNDN,X. LDA #0. STA
WAVEXPOS,X. JMP DAZU4.SCOM4
CMP #$FB ;GATE. BNE SCOM5.
LDA #1. EOR ANDOR,X.
STA ANDOR,X. JMP NOTE3....SC
OM5 CMP #$FA ;SWITCH. BNE
SCOM6. LDA #1. EOR SWIT
CH,X. STA SWITCH,X.NOFX INC
SECPOS,X. JMP READ3..SCOM6 CM
P #$F9 ;CUT. BNE SCOM7.
LDA DUR,X. STA DURAT,X.
LDA #8 ;RESETS VOICE.
STA $D404,X ;+ VOICE ROUTINES.
STA WAVE,X ;TO SAVE RASTERTIME.
LDA #$00. STA $D405,X.
STA $D406,X. STA AD,X. S
TA SR,X. LDA #$FF. STA W
VSPEED1,X. LDA #1. STA C
UT,X. INC SECPOS,X. JMP
HRCHECK.SCOM7 AND #$3F ;SUPERCOMMA
NDS. TAY. LDA COMMTAB1,Y
. STA EFFHI,X. LDA COMMT
AB2,Y. STA EFFLO,X. LDA
COMMTAB,Y. ASL A. TAY.
LDA COMMTAB3,Y. STA JUMP+
1. LDA COMMTAB3+1,Y. STA
JUMP+2..JUMP JMP READ3...NOTE C
MP #$60 ;COUNT NOTEVALUE. BCC
NORMAL. SEC. SBC #$60.NO
RMAL CLC. ADC TRPOSE,X.
STA NOTEV,X ;NEW NOTE. STA NOT
EOK,X. INC SECPOS,X.NOTE2..
LDA DUR,X ;PREVIOUS NOTE. S
TA DURAT,X. LDA SWITCH,X.
BNE SWON. LDA CONT,X.
BNE SWON. LDA #0. STA CU
T,X. LDA #1. STA ANDOR,X
. LDY SND,X.
;THIS FRAME. LDA ADTAB,Y;SETS TH
E NEW. STA AD,X ;ADSR-SETTINGS
. STA $D405,X;= BEGINNING OF A.
LDA SVOL,X. BEQ SS1.
LDA SRTAB,Y. AND #$0F.
ORA SVOL,X. BNE SS2.SS1
LDA SRTAB,Y;NEW NOTE = MAX..SS2 ST
A SR,X ;RASTERTIME. STA $D406,
X. LDA ADTAB,Y;SETS THE NEW.
STA AD,X ;ADSR-SETTINGS.
STA $D405,X;= BEGINNING OF A. JM
P NOCONTI.SS LDA CONT,X. B
EQ NOCONTI..SWON JSR PLAY3.
JSR SID. JMP NOCONT.NOCONTI LDA
WAVEXPOS,X. BNE SUPWAV.
LDA WAVPTAB,Y.SUPWAV STA WAVEPOS,X.
TYA. PHA. LDY WAV
EPOS,X ;SETS WAVE. LDA WAVETAB,Y
;(FIRST ROW). PHA. AND
#$F7. STA WAVE,X. STA $D
404,X ;CHECK FOR. PLA
;DRUM-MODE. AND #$08.
STA DRUM,X. BEQ NODRUM2.
LDA FREQTAB,Y. STA $D401,X.
STA NOTEOK,X. LDA #0.
STA $D400,X. JMP NONON.NODRUM
2 LDA FREQTAB,Y. CLC. A
DC NOTEV,X. STA NOTEOK,X.
TAY. LDA FRQLO,Y. CLC.
ADC FINE,X. STA $D400,X
. LDA FRQHI,Y. ADC #0.
STA $D401,X.NONON PLA.
TAY. LDA WAVEXPOS,X. BE
Q SLOW2. LDA XWVSPEED,X.
JMP SLOW1..SLOW2 LDA EFFTAB,Y.
AND #$0F.SLOW1 STA WVSPEED,X.
STA WVSPEED1,X. INC WAVEPOS,
X. LDA PCONT,X. BNE FILL
L. LDA #0. STA NOPU,X.;-
--------------------------------------.
LDA PULPTAB,Y ;PULSE-ROUTINE.
TAY ;INIT. CLC
. ADC #1. STA PUPOS,X.
LDA PULSTAB1,Y. STA PULSH
I,X. STA $D403,X. LDA PU
LSTAB2,Y. STA PULSLO,X.
STA $D402,X. LDA #0. STA
PULSFRM,X. LDY SND,X.;---------
------------------------------.FILLL.
CPX FILCON. BNE NOCONT..
LDA FCONT. BNE NOCONT..
LDA #0. STA NOFI.
STA FILTFRM. LDA FILPTAB,Y.
TAY. CLC. ADC #1.
STA FILPOS. LDA FRQF.
BEQ FILLT. LDY FLO.
STY FILTLO. TYA. AND #7
. STA FILFREQL. LDA FHI.
STA FILTHI. JMP FILLT2.
.FILLT LDA FILTTAB1,Y. STA FI
LTHI. PHA. LDA FILTTAB2,
Y. STA FILTLO. TAY.
AND #7. STA FILFREQL.
PLA.FILLT2 LSR A. ROR FILTLO
. LSR A. ROR FILTLO.
LSR A. ROR FILTLO.
LDA FILTLO. STA FILFREQH.
STY FILTLO......NOCONT LDA #0.
STA CONT,X.. LDA HARDON,X.
BEQ HRCHECK.. LDA #1.
STA ANDOR,X..HRCHECK LDY SECPOS,X
;CHECKING NEXT.HRCHECK2 LDA ($F8),Y ;S
ECTORDATA FOR. CMP #$FF ;HA
RDRESTART ON. ;OR
OFF. BEQ ONYES ;USER CAN MANIPU
LATE.NOEND CMP #$60 ;THIS (ONYES/ON
NO). BCC ONYES ;(NEW SECTOR HR)
. CMP #$C0. BCC ONNO.
CMP #$FE. BEQ ONNO.
CMP #$FB. BEQ ONNO. CM
P #$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 SWI
TCH2,X. JMP PLUS1...SWI CMP
#$FC. BCC PLUS1. INY.PL
US1 INY. BNE HRCHECK2..ONNO
LDA #0. BEQ HRSET.ONYES LD
A #1.HRSET STA HARDON,X. LDA
SWITCH2,X. BEQ OND. LDA
#0. STA HARDON,X.OND. RT
S.;-------------------------------------
--.;HARD-RESTART-ROUTINE.;--------------
-------------------------.VOICE3 LDA S
PEED. BNE NOSPEED0. LDA
DURAT,X. CMP #$04. BCS N
ICHTS. CMP #$01. BEQ FRA
ME1. ;FRAME 2+1.FRAME
2.. LDA HARDON,X. BEQ NI
CHTS. JSR PLAY3.. LDA SR
,X. AND #$F0. STA $D406,
X. LDA HARDVAL. BPL HRSE
TT. LDA AD,X.HRSETT. STA
$D405,X. LDA WAVE,X. AN
D #$FE. STA $D404,X. LDA
#$00. STA ANDOR,X. RTS.
.NOSPEED0. CMP #1. BNE S
P2.SPP LDA SPEED1. BEQ SP1.
LDA DURAT,X. CMP #1.
BEQ FRAME2. JMP NICHTS.SP1
. LDA DURAT,X. CMP #3.
BCS NICHTS. CMP #1.
BEQ FRAME1. JMP FRAME2..SP2
LDA DURAT,X. CMP #$01.
BNE NICHTS. LDA SPEED1.
BEQ FRAME1. CMP #3. B
CC FRAME2.NICHTS JSR PLAY3. JM
P SID.....FRAME1. LDA HARDON,X.
BEQ NICHTS. LDY SNDN,X
;THIS FRAME. LDA SRTAB,Y;NEW NOT
E = MAX.. STA SR,X ;RASTERTIME
. STA $D406,X. LDA ADTAB
,Y;SETS THE NEW. STA AD,X ;ADS
R-SETTINGS. STA $D405,X;= BEGINN
ING OF A. LDA #$09. STA
$D404,X. STA WAVE,X. INC
HARDON,X. RTS.......;----------
-----------------------------.; A
DSR-ROUTINES.;--------------------------
-------------.PLAY2 LDX #$00.
JSR PLAY3D. JSR SID2. L
DX #7. JSR PLAY3D. JSR S
ID2. LDX #14. JSR PLAY3D
. JMP SID2.;--------------------
-------------------.PLAY3.;-------------
--------------------------.;WAVE-FREQ-TA
BLE-HANDLING.;--------------------------
-------------. LDA CUT,X.
BEQ TON. RTS.TON.;------------
---------------------------.;FILTERROUTI
NE.;------------------------------------
---. CPX FILCON. BNE GLI
DE. LDA NOFI. BNE GLIDE.
LDA FILPOS. TAY.
LDA FILTFRM. BNE NONEWF.NOCHMA
LF LDA FILTTAB1,Y. CMP #$90
;CHECK LOOP. BNE FP1.
LDA FILTTAB2,Y. STA FILPOS.
TAY. JMP NOCHMALF.FP1
CMP #$91 ;CHECK STOP. BNE
FP2. LDA #1. STA NOFI.
BNE GLIDE...FP2 STA FILTADD
H ;COUNT VALUES. LDA FILTTAB2
,Y. STA FILTADDL. LDA FI
LTTAB2+1,Y. STA FILTFRM.
TYA. CLC. ADC #2.
STA FILPOS.NONEWF LDA FILTLO.
CLC. ADC FILTADDL. ST
A FILTLO. TAY. AND #7.
STA FILFREQL. LDA FILTHI.
ADC FILTADDH. STA FILTH
I. DEC FILTFRM.. LSR A.
ROR FILTLO. LSR A.
ROR FILTLO. LSR A. RO
R FILTLO. LDA FILTLO. ST
A FILFREQH. STY FILTLO.....;----
-----------------------------------.;VIB
/SLIDE/ETC..;---------------------------
------------.GLIDE. LDA GLL,X.
BNE GLY ;CHECK IF GLIDE.
LDA GLH,X ;ACTIVE. BNE G
LY. JMP NOGLI.GLY. LDA #
0. STA VSPEED,X. STA VIL
O,X ;ADD VALUES. STA VIHI,X
;DISABLE VIBR.. CLC. L
DA GLIDEL,X. ADC GLL,X.
STA GLIDEL,X. LDA GLIDEH,X.
ADC GLH,X. STA GLIDEH,X..
LDA GLH,X. BMI GLUP1.
LDY NOTEOK,X ;REACHED. LDA
FRQLO,Y ;DESTINATION. CLC
;FREQUENCE?. ADC GLIDEL,X
;(UPGLIDE). PHA. LDA F
RQHI,Y. ADC GLIDEH,X. CM
P GLDEH,X. BCC GLUP2. BN
E GLUPEN1.GLUP4 PLA. CMP GLDE
L,X. BCC NOGLI...GLUPEN LDA #0
;STOP GLIDE. STA GLIDEL,
X. STA GLIDEH,X. STA GLL
,X. STA GLH,X. LDA GLTO,
X. STA NOTEV,X. STA NOTE
OK,X. JMP NOGLI..GLUP1.
LDY NOTEOK,X. LDA FRQLO,Y ;CHE
CK DESTIN.. CLC ;FOR D
OWNGLIDE. ADC GLIDEL,X.
PHA. LDA FRQHI,Y. ADC GL
IDEH,X. CMP GLDEH,X. BCC
GLUPEN1. BNE GLUP2. PLA
. CMP GLDEL,X. BCS NOGLI
. BCC GLUPEN.GLUPEN1 PLA.
JMP GLUPEN....GLUP2 PLA.;---------
------------------------------.;VIBRATO.
;---------------------------------------
.NOGLI LDA VSPEED,X. BEQ NOVI
B.. AND #1. BNE NVIB.
INC VIFIRST,X.NVIB LDA VDIR,X
;CHECK DIRECT.. BNE VIDO
;VIB. UP. LDA VIFIRST,X.
BNE VI1. INC VIFIRST,X ;HAL
FVALUE?. LDA VADDL1,X. C
LC. ADC VILO,X. STA VILO
,X ;ADD HALF. LDA VADDH1,X.
ADC VIHI,X. STA VIHI,X.
JMP VI2.VI1 LDA VADDL,X
;ADD FULL. CLC. ADC VILO
,X. STA VILO,X. LDA VADD
H,X. ADC VIHI,X. STA VIH
I,X.VI2 INC VSPEED1,X. LDA
VSPEED1,X ;DIR.TURN?. CMP VSPEE
D,X. BNE VI3.VI4 LDA #1.
EOR VDIR,X. STA VDIR,X.VI3
JMP NOVIB.VIDO LDA VILO,X
;VIB. DOWN. SEC. SBC VAD
DL,X. STA VILO,X ;SBC FULL.
LDA VIHI,X. SBC VADDH,X.
STA VIHI,X. DEC VSPEED1
,X. BEQ VI4. JMP NOVIB..
PLAY3D LDA CUT,X. BEQ NOVIB.
RTS...NOVIB.;--------------------
-------------------.;WAVE/FILT/PULSE.;--
-------------------------------------.
LDA WVSPEED1,X ;NEW ROW ?.
CMP #$FF. BEQ NOCHNICH.
DEC WVSPEED1,X. BPL NOCHNICH.
LDA WVSPEED,X. STA WVSPE
ED1,X.NEWREAD LDY WAVEPOS,X. IN
C WAVEPOS,X. LDA WAVETAB,Y.
CMP #$91 ;CHECK STOP. B
EQ SCHLUSS. CMP #$90 ;CHECK
LOOP. BNE NEXTSTEP. LDA
FREQTAB,Y. STA WAVEPOS,X.
JMP NEWREAD.NEXTSTEP PHA. AND
#$F7 ;CHECK DRUMMODE. STA W
AVE,X. PLA. AND #$08.
STA DRUM,X. BEQ NODRUM.
LDA FREQTAB,Y. STA NOTEOK,
X. JMP NOCHNICH.NODRUM LDA FRE
QTAB,Y. CLC. ADC NOTEV,X
. STA NOTEOK,X. JMP NOCH
NICH...SCHLUSS LDA #$FF ;STOP MAR
K. STA WVSPEED1,X. LDA W
AVE,X. AND #$40. BNE NOC
HNICH. LDA #1. STA NOPU,
X...NOCHNICH..;-------------------------
--------------.;PULSROUTINE.;-----------
----------------------------. LD
A NOPU,X. BNE FILLI. LDA
PUPOS,X. TAY. LDA PULSF
RM,X ;NEW ROW?. BNE NONEWSET.N
OCHMAL LDA PULSTAB1,Y. CMP #$90
;CHECK LOOP. BNE PP1.
LDA PULSTAB2,Y. STA PUPOS,
X. TAY. JMP NOCHMAL.PP1
CMP #$91 ;CHECK STOP.
BNE PP2. LDA #1. STA N
OPU,X. BNE FILLI...PP2 STA
PULSADDH,X ;COUNT VALUES. LDA P
ULSTAB2,Y. STA PULSADDL,X.
LDA PULSTAB2+1,Y. STA PULSFRM
,X. TYA. CLC. AD
C #2. STA PUPOS,X.NONEWSET LDA P
ULSLO,X. CLC ;SET V
ALUES. ADC PULSADDL,X. S
TA PULSLO,X. STA $D402,X.
LDA PULSHI,X. ADC PULSADDH,X.
STA PULSHI,X. STA $D403,
X. DEC PULSFRM,X....FILLI.;-----
----------------------------------.;WRIT
ING THE SID-REGISTERS.;-----------------
----------------------. LDY NOTE
OK,X. LDA DRUM,X. BEQ NO
RM. TYA. STA $D401,X.
LDA #0. STA $D400,X.
RTS.NORM. CLC. LDA VI
LO,X. ADC GLIDEL,X. STA
HELP. LDA VIHI,X. ADC GL
IDEH,X. STA HELP+1. LDA
FRQLO,Y. CLC. ADC HELP.
STA HELP. LDA HELP+1.
ADC FRQHI,Y. STA HELP+1.
LDA HELP. CLC. AD
C FINE,X. STA $D400,X. L
DA HELP+1. ADC #0. STA $
D401,X.FIP RTS..SID. LDA SR
,X. STA $D406,X. LDA AD,
X ;REGISTERS. STA $D405,X...
.SID2. LDA HARDON,X. CMP
#2. BEQ WITER. LDA WAVE
,X. TAY ;IF GATEBIT OFF
BY. AND #1 ;TABLE, DISABLE.
BEQ NOGAT ;GATE COMMAND.
TYA. AND #$FE. ORA A
NDOR,X. TAY.NOGAT TYA.
STA $D404,X ;WRITE REMAINING.WITER.
RTS....HELP .BYTE $00,$00.;--
-------------------------------------.;T
ABLES.;---------------------------------
------.FRQLO .BYTE $0C,$1C,$2D,$3E,$4
7,$66. .BYTE $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,$9
8. .BYTE $ED,$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,$1E,$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,$73,$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,$02,$02,$02. .B
YTE $02,$03,$03,$03,$03,$03. .BY
TE $04,$04,$04,$04,$05,$05. .BYT
E $05,$06,$06,$07,$07,$07. .BYTE
$08,$08,$09,$09,$0A,$0B. .BYTE
$0B,$0C,$0D,$0E,$0E,$0F. .BYTE $
10,$11,$12,$13,$15,$16. .BYTE $1
7,$19,$1A,$1C,$1D,$1F. .BYTE $21
,$23,$25,$27,$2A,$2C. .BYTE $2F,
$32,$35,$38,$3B,$3F. .BYTE $43,$
47,$4B,$4F,$54,$59. .BYTE $5E,$6
4,$6A,$70,$77,$7E. .BYTE $86,$8E
,$96,$9F,$A8,$B3. .BYTE $BD,$C8,
$D4,$E1,$EE,$FD..SUSA.;-----------------
----------------------.CONTP LDA #1.
EOR PCONT,X. STA PCONT,X
. JMP NOFX.;--------------------
-------------------.SUST LDA EFFLO,X
. STA SR,X. JMP NOFX.;--
-------------------------------------.AD
R 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 SECPOS,X.
INY. LDA #0. STA
GLIDEL,X. STA GLIDEH,X.
LDA ($F8),Y. PHA. CMP #$
60. BCC GL1. SEC.
SBC #$60.GL1 CLC. ADC TRP
OSE,X. STA GLFROM,X. INY
.GLSL LDA ($F8),Y. CMP #$60.
BCC GL2. SEC. S
BC #$60.GL2 CLC. ADC TRPOSE
,X. STA GLTO,X. PHA.
TAY. LDA FRQLO,Y. S
TA GLDEL,X. LDA FRQHI,Y.
STA GLDEH,X. PLA.. CMP
GLFROM,X. BEQ GL4. BCS G
LUP. LDA EFFLO,X. EOR #$
FF. CLC. ADC #$01.
STA GLL,X. LDA EFFHI,X.
EOR #$FF. ADC #0. STA
GLH,X. LDA #0. BEQ 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. STA GLFROM,X.
SEC. SBC TRPOSE,X. P
HA. DEC SECPOS,X. LDA #0
. BEQ GLSL.;--------------------
-------------------.VIBR LDA EFFLO,X
. STA VADDL,X. STA VADDL
1,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. LS
R A. STA VSPEED,X. LSR A
. STA VSPEED1,X. LDA #0.
STA VILO,X. STA VIHI,X.
STA VIFIRST,X. STA VDIR
,X. JMP NOFX.;------------------
---------------------.FLT LDA EFFLO
,X. TAY. AND #$F0.
BEQ FLTVO. STA FILTYP.
TYA. ASL A. ASL A.
ASL A. ASL A. STA R
ESONANCE. LDA FILCON. AN
D #$7F. STA FILCON.. LDA
FILCONT,X. ORA FILCONF.
STA FILCONF. JMP NOFX.FLTVO
LDA FILCONF. AND FILCONT1,X.
STA FILCONF. BNE FLTVO1.
LDA FILCON. ORA #$80.
STA FILCON.FLTVO1 JMP NOFX.;------
---------------------------------.CONTF
LDA #1. EOR FCONT. ST
A FCONT. JMP NOFX.;-------------
--------------------------.FRQ LDA
EFFLO,X. ORA EFFHI,X. BE
Q FRQ2. STA FRQF. LDA EF
FLO,X. STA FLO. LDA EFFH
I,X. AND #7. STA FHI.
JMP NOFX.FRQ2 LDA #0.
STA FRQF. JMP NOFX.;------------
---------------------------.ARP LDA
EFFLO,X. STA WAVEXPOS,X.
LDA EFFHI,X. AND #$0F.
STA XWVSPEED,X. JMP NOFX.;-----
----------------------------------.FNE
LDA EFFLO,X. STA FINE,X.
JMP NOFX.SEND.;--------------------
-------------------.;-------------------
--------------------.;SUPERCOMMANDS.;---
------------------------------------.;00
- NOTHING.;01 - CONT. PULSE (NO PULSE R
ESTART).;02 - SRR.XX.;03 - ADR.XX.;04 -
VOL.XX.;05 - GLD.XXXX.;06 - SLD.XXXX.;07
- VIB.XXXX.;08 - FLT.XY X=TYPE,Y=
RESONANCE.;09 - CONT. FILT (NO FILTER R
ESTART).;0A - FRQ.XXX.;0B - ARP.YXX Y=
NEW SPEED X=NEW POINT.;-----------------
----------------------..COMMTAB = $3D40
.COMMTAB1 = $3D80.COMMTAB2 = $3DC0.
*= $0F80.COMMTAB3. .WORD NOF
X,CONTP,SUST,ADR,VOL. .WORD GLD,
SLD,VIBR,FLT,CONTF. .WORD FRQ,AR
P,FNE,SEND... *= $0FE0.
.WORD TRPOS,WSPEED,SUSA..;--------------
-------------------------.TRAKK = $3E
00..;-----------------------------------
----.SECLO = $3F00..SECHI = $3F80.
.;--------------------------------------
-.;COMMANDS. ;$FF XX LOOP XX.
;$FE STOP VOICE.
;$FD XX TRANSPOSE +XX. ;$FC X
X TRANSPOSE -XX. ;$FB XX F
ADEIN XX. ;$FA XX FADEOUT XX
. ;$EX VOLUME X..;--------
-------------------------------.;-------
--------------------------------.;COMMAN
DS $FD.XX DUR XX. ;$FC.XX
SND XX. ;$FE CONT(---).
;$FB GATE. ;$FA
SWITCH. ;$F9 CUT....;---
------------------------------------..;-
--------------------------------------.;
INSTRUMENT DATA.;-----------------------
----------------.ADTAB = $4000.SRTAB
= $4100.WAVPTAB = $4200.PULPTAB = $
4300.FILPTAB = $4400.EFFTAB = $4500..
.WAVETAB = $4600..FREQTAB = $4700..PUL
STAB1 = $4800..PULSTAB2 = $4900..FILTTAB
1 = $4A00.FILTTAB2 = $4B00..;-----------
----------------------------..
> CLICK IMAGE PREVIEW FOR FULL MODAL