PLAY ROUTINE.SRC
FILE INFORMATION
FILENAME(S): PLAY ROUTINE.SRC
FILE TYPE(S): SEQ
FILE SIZE: 4.7K
FIRST SEEN: 2025-12-02 02:01:12
APPEARS ON: 1 disk(s)
FILE HASH
98a42db75185f506270d42aba8216b6b9e834d744640aed5a5a2b5870b374a61
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEXTY | PLAY ROUTINE.SRC | SEQ | marcus | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 24 30 38 |. *= $08| 00000010: 31 30 0D 3B DA 44 52 4F 4A 4F 56 59 20 50 52 4F |10.;.DROJOVY PRO| 00000020: 47 52 41 4D 20 50 52 4F 20 50 52 45 48 41 56 41 |GRAM PRO PREHAVA| 00000030: 4E 49 20 53 41 4D 50 4C 55 0D 3B 50 4F 44 20 CE |NI SAMPLU.;POD .| 00000040: CD C9 2E 20 D2 59 43 48 4C 4F 53 54 20 50 52 45 |... .YCHLOST PRE| 00000050: 48 52 41 56 41 4E 49 20 53 45 20 55 44 41 56 41 |HRAVANI SE UDAVA| 00000060: 0D 3B 4A 41 4B 4F 20 53 50 4F 44 4E 49 20 42 59 |.;JAKO SPODNI BY| 00000070: 54 45 20 43 41 53 4F 56 41 43 45 20 56 20 C3 C9 |TE CASOVACE V ..| 00000080: C1 2E 0D 3B D6 20 54 41 42 55 4C 43 45 20 D3 D4 |...;. TABULCE ..| 00000090: C1 D2 D4 20 41 20 D3 D4 CF D0 20 4A 53 4F 55 20 |... A .... JSOU | 000000A0: 55 4C 4F 5A 45 4E 59 0D 3B 48 4F 52 4E 49 20 C2 |ULOZENY.;HORNI .| 000000B0: 59 54 45 20 41 44 52 45 53 20 50 52 4F 20 5A 41 |YTE ADRES PRO ZA| 000000C0: 43 41 54 4B 59 20 41 20 4B 4F 4E 43 45 0D 3B 42 |CATKY A KONCE.;B| 000000D0: 4C 4F 4B 55 2C 20 4B 54 45 52 45 20 53 45 20 42 |LOKU, KTERE SE B| 000000E0: 55 44 4F 55 20 50 52 45 48 52 41 56 41 54 2E 0D |UDOU PREHRAVAT..| 000000F0: 3B 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;...;-----------| 00000100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 C2 4C 4F 43 |----------- .LOC| 00000110: 4B 2D 50 4C 41 59 20 2D 2D 2D 2D 2D 0D 50 4C 42 |K-PLAY -----.PLB| 00000120: 4C 20 20 20 20 20 53 45 49 0D 20 20 20 20 20 20 |L SEI. | 00000130: 20 20 20 4A 53 52 20 48 55 44 42 41 20 20 3B 4E | JSR HUDBA ;N| 00000140: 41 53 54 41 56 49 20 48 4C 41 53 49 54 4F 53 54 |ASTAVI HLASITOST| 00000150: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 4E |. JSR IN| 00000160: 49 54 20 20 20 3B 49 4E 49 54 20 4E 4D 49 2C 49 |IT ;INIT NMI,I| 00000170: 52 51 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |RQ. LDA | 00000180: 50 4F 43 45 54 0D 20 20 20 20 20 20 20 20 20 53 |POCET. S| 00000190: 54 41 20 24 46 46 20 20 3B 50 4F 53 4C 45 44 4E |TA $FF ;POSLEDN| 000001A0: 49 20 42 4C 4F 4B 0D 20 20 20 20 20 20 20 20 20 |I BLOK. | 000001B0: 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDA #$00. | 000001C0: 20 20 53 54 41 20 24 46 45 20 20 3B 4E 41 53 54 | STA $FE ;NAST| 000001D0: 41 56 49 20 31 2E 42 4C 4F 4B 0D 0D 42 4C 4F 43 |AVI 1.BLOK..BLOC| 000001E0: 4B 20 20 20 20 4C 44 59 20 24 46 45 20 20 20 3B |K LDY $FE ;| 000001F0: 43 49 53 4C 4F 20 42 4C 4F 4B 55 0D 20 20 20 20 |CISLO BLOKU. | 00000200: 20 20 20 20 20 4C 44 41 20 53 54 41 52 54 2C 59 | LDA START,Y| 00000210: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00000220: 42 20 20 20 3B 5A 41 43 41 54 45 4B 0D 20 20 20 |B ;ZACATEK. | 00000230: 20 20 20 20 20 20 4C 44 41 20 53 54 4F 50 2C 59 | LDA STOP,Y| 00000240: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00000250: 43 20 20 20 3B 4B 4F 4E 45 43 0D 0D 3B 2D 2D 2D |C ;KONEC..;---| 00000260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000280: 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 53 45 |----. SE| 00000290: 49 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 50 |I. JSR P| 000002A0: 52 4F 42 4C 20 3B 5A 41 50 4E 45 20 48 52 41 4E |ROBL ;ZAPNE HRAN| 000002B0: 49 0D 0D 4B 52 4C 45 20 20 20 20 20 4C 44 41 20 |I..KRLE LDA | 000002C0: 49 4E 46 4F 0D 20 20 20 20 20 20 20 20 20 43 4D |INFO. CM| 000002D0: 50 20 23 31 20 20 20 3B 54 45 53 54 55 4A 45 20 |P #1 ;TESTUJE | 000002E0: 44 4F 48 52 41 4E 49 20 42 4C 4F 4B 55 0D 20 20 |DOHRANI BLOKU. | 000002F0: 20 20 20 20 20 20 20 42 4E 45 20 4B 52 4C 45 0D | BNE KRLE.| 00000300: 20 20 20 20 20 20 20 20 20 49 4E 43 20 24 46 45 | INC $FE| 00000310: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 |. LDA $F| 00000320: 45 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 24 |E. CMP $| 00000330: 46 46 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |FF. BNE | 00000340: 42 4C 4F 43 4B 0D 0D 20 20 20 20 20 20 20 20 20 |BLOCK.. | 00000350: 4A 4D 50 20 45 4E 44 20 20 3B 4B 4F 4E 45 43 2C |JMP END ;KONEC,| 00000360: 20 4E 41 56 52 41 54 0D 0D 0D 3B 2D 2D 2D 2D 2D | NAVRAT...;-----| 00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 52 |-------------- R| 00000380: 4F 55 54 2D 20 50 4C 41 59 20 2D 2D 2D 2D 2D 2D |OUT- PLAY ------| 00000390: 2D 2D 0D 0D 50 52 4F 42 4C 20 20 20 20 4C 44 41 |--..PROBL LDA| 000003A0: 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 | #$00. S| 000003B0: 54 41 20 24 46 41 0D 20 20 20 20 20 20 20 20 20 |TA $FA. | 000003C0: 53 54 41 20 49 4E 46 4F 20 20 3B 50 4F 4D 4F 43 |STA INFO ;POMOC| 000003D0: 4E 41 20 50 52 4F 4D 45 4E 4E 41 0D 0D 20 20 20 |NA PROMENNA.. | 000003E0: 20 20 20 20 20 20 4C 44 41 20 23 3C 50 4C 41 59 | LDA #<PLAY| 000003F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00000400: 46 46 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |FFA. LDA| 00000410: 20 23 3E 50 4C 41 59 0D 20 20 20 20 20 20 20 20 | #>PLAY. | 00000420: 20 53 54 41 20 24 46 46 46 42 0D 20 20 20 20 20 | STA $FFFB. | 00000430: 20 20 20 20 43 4C 49 0D 20 20 20 20 20 20 20 20 | CLI. | 00000440: 20 52 54 53 0D 20 20 20 20 3B 2D 2D 2D 2D 2D 2D | RTS. ;------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |--------------..| 00000460: 50 4C 41 59 20 20 20 20 20 53 54 41 20 50 4F 4D |PLAY STA POM| 00000470: 41 20 20 3B 31 2E 48 52 41 43 49 20 52 55 54 49 |A ;1.HRACI RUTI| 00000480: 4E 41 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |NA. STY | 00000490: 50 4F 4D 59 20 20 3B 48 4F 52 4E 49 43 48 20 34 |POMY ;HORNICH 4| 000004A0: 20 42 49 54 55 0D 0D 20 20 20 20 20 20 20 20 20 | BITU.. | 000004B0: 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDY #0. | 000004C0: 4C 44 41 20 28 24 46 41 29 2C 59 0D 20 20 20 20 |LDA ($FA),Y. | 000004D0: 20 20 20 20 20 41 4E 44 20 23 24 46 30 20 3B 48 | AND #$F0 ;H| 000004E0: 4F 52 4E 49 20 34 20 42 49 54 59 0D 20 20 20 20 |ORNI 4 BITY. | 000004F0: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 00000500: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00000510: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00000520: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 00000530: 20 53 54 41 20 24 44 34 31 38 20 20 20 20 3B 2B | STA $D418 ;+| 00000540: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 0D 0D 20 20 20 |+++++++++++.. | 00000550: 20 20 20 20 20 20 4C 44 41 20 23 3C 50 4C 41 59 | LDA #<PLAY| 00000560: 31 20 3B 50 52 45 53 4D 45 52 4F 56 41 4E 49 20 |1 ;PRESMEROVANI | 00000570: CE CD C9 0D 20 20 20 20 20 20 20 20 20 53 54 41 |.... STA| 00000580: 20 24 46 46 46 41 20 20 20 3B 4E 41 20 32 2E 0D | $FFFA ;NA 2..| 00000590: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E 50 | LDA #>P| 000005A0: 4C 41 59 31 20 3B 48 52 41 43 49 20 52 55 54 49 |LAY1 ;HRACI RUTI| 000005B0: 4E 55 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |NU. STA | 000005C0: 24 46 46 46 42 20 20 20 3B 50 52 4F 20 44 41 4C |$FFFB ;PRO DAL| 000005D0: 53 49 20 43 59 4B 4C 55 53 0D 0D 20 20 20 20 20 |SI CYKLUS.. | 000005E0: 20 20 20 20 53 54 59 20 56 4E 49 59 0D 20 20 20 | STY VNIY. | 000005F0: 20 20 20 20 20 20 4C 44 59 20 50 4F 4D 59 0D 20 | LDY POMY. | 00000600: 20 20 20 20 20 20 20 20 4C 44 41 20 24 44 44 30 | LDA $DD0| 00000610: 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 |D. LDA P| 00000620: 4F 4D 41 0D 20 20 20 20 20 20 20 20 20 52 54 49 |OMA. RTI| 00000630: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 50 4C 41 59 31 20 |---------.PLAY1 | 00000660: 20 20 20 53 54 41 20 50 4F 4D 41 20 20 20 20 3B | STA POMA ;| 00000670: 32 2E 48 52 41 43 49 20 52 55 54 49 4E 41 20 CE |2.HRACI RUTINA .| 00000680: CD C9 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |... STY | 00000690: 50 4F 4D 59 20 20 20 20 3B 53 50 4F 44 4E 49 43 |POMY ;SPODNIC| 000006A0: 48 20 34 2E 42 49 54 55 0D 0D 20 20 20 20 20 20 |H 4.BITU.. | 000006B0: 20 20 20 4C 44 59 20 23 30 0D 20 20 20 20 20 20 | LDY #0. | 000006C0: 20 20 20 4C 44 41 20 28 24 46 41 29 2C 59 0D 20 | LDA ($FA),Y. | 000006D0: 20 20 20 20 20 20 20 20 41 4E 44 20 23 24 30 46 | AND #$0F| 000006E0: 20 20 20 20 3B 53 50 4F 44 4E 49 20 34 2E 42 49 | ;SPODNI 4.BI| 000006F0: 54 59 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |TY. STA | 00000700: 24 44 34 31 38 20 20 20 20 3B 2B 2B 2B 2B 2B 2B |$D418 ;++++++| 00000710: 2B 2B 2B 2B 0D 0D 20 20 20 20 20 20 20 20 20 4C |++++.. L| 00000720: 44 41 20 23 3C 50 4C 41 59 0D 20 20 20 20 20 20 |DA #<PLAY. | 00000730: 20 20 20 53 54 41 20 24 46 46 46 41 0D 20 20 20 | STA $FFFA. | 00000740: 20 20 20 20 20 20 4C 44 41 20 23 3E 50 4C 41 59 | LDA #>PLAY| 00000750: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00000760: 46 46 42 0D 0D 20 20 20 20 20 20 20 20 20 49 4E |FFB.. IN| 00000770: 43 20 24 46 41 0D 20 20 20 20 20 20 20 20 20 42 |C $FA. B| 00000780: 4E 45 20 4B 49 4B 4B 0D 20 20 20 20 20 20 20 20 |NE KIKK. | 00000790: 20 49 4E 43 20 24 46 42 0D 0D 4B 49 4B 4B 20 20 | INC $FB..KIKK | 000007A0: 20 20 20 4C 44 41 20 24 46 42 0D 20 20 20 20 20 | LDA $FB. | 000007B0: 20 20 20 20 43 4D 50 20 24 46 43 0D 20 20 20 20 | CMP $FC. | 000007C0: 20 20 20 20 20 42 4E 45 20 44 41 4C 45 0D 0D 20 | BNE DALE.. | 000007D0: 20 20 20 20 20 20 20 20 4C 44 41 20 24 46 41 0D | LDA $FA.| 000007E0: 20 20 20 20 20 20 20 20 20 43 4D 50 20 24 46 44 | CMP $FD| 000007F0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 41 |. BNE DA| 00000800: 4C 45 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |LE.. LDA| 00000810: 20 23 3C 4E 49 43 4B 20 3B 50 52 45 53 4D 45 52 | #<NICK ;PRESMER| 00000820: 4F 56 41 4E 49 20 CE CD C9 0D 20 20 20 20 20 20 |OVANI .... | 00000830: 20 20 20 53 54 41 20 24 46 46 46 41 20 20 3B 4E | STA $FFFA ;N| 00000840: 41 20 4B 4F 4E 45 43 4E 4F 55 20 52 55 54 49 4E |A KONECNOU RUTIN| 00000850: 55 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |U. LDA #| 00000860: 3E 4E 49 43 4B 0D 20 20 20 20 20 20 20 20 20 53 |>NICK. S| 00000870: 54 41 20 24 46 46 46 42 0D 0D 44 41 4C 45 20 20 |TA $FFFB..DALE | 00000880: 20 20 20 53 54 59 20 56 4E 49 59 0D 20 20 20 20 | STY VNIY. | 00000890: 20 20 20 20 20 4C 44 59 20 50 4F 4D 59 0D 20 20 | LDY POMY. | 000008A0: 20 20 20 20 20 20 20 4C 44 41 20 24 44 44 30 44 | LDA $DD0D| 000008B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 4F |. LDA PO| 000008C0: 4D 41 0D 20 20 20 20 20 20 20 20 20 52 54 49 0D |MA. RTI.| 000008D0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000008E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008F0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 4E 49 43 4B 20 20 20 |--------.NICK | 00000900: 20 20 53 54 41 20 50 4F 4D 41 0D 20 20 20 20 20 | STA POMA. | 00000910: 20 20 20 20 4C 44 41 20 23 31 0D 20 20 20 20 20 | LDA #1. | 00000920: 20 20 20 20 53 54 41 20 49 4E 46 4F 20 3B 4E 41 | STA INFO ;NA| 00000930: 53 54 41 56 45 4E 49 20 49 4E 46 4F 20 50 52 4F |STAVENI INFO PRO| 00000940: 4D 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |MEN. LDA| 00000950: 20 24 44 44 30 44 3B 4E 45 2C 20 5A 45 20 53 45 | $DD0D;NE, ZE SE| 00000960: 20 44 4F 48 52 41 4C 20 42 4C 4F 4B 0D 20 20 20 | DOHRAL BLOK. | 00000970: 20 20 20 20 20 20 4C 44 41 20 50 4F 4D 41 0D 20 | LDA POMA. | 00000980: 20 20 20 20 20 20 20 20 52 54 49 0D 3B 2D 2D 2D | RTI.;---| 00000990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009B0: 2D 2D 2D 2D 0D 0D 45 4E 44 20 20 20 20 20 20 53 |----..END S| 000009C0: 45 49 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |EI ;| 000009D0: 56 59 50 20 49 52 51 2C 4E 4D 49 0D 20 20 20 20 |VYP IRQ,NMI. | 000009E0: 20 20 20 20 20 4C 44 41 20 23 24 33 37 0D 20 20 | LDA #$37. | 000009F0: 20 20 20 20 20 20 20 53 54 41 20 24 30 31 0D 20 | STA $01. | 00000A00: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 | LDA #0. | 00000A10: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000A20: 35 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |5. LDA #| 00000A30: 24 38 36 0D 20 20 20 20 20 20 20 20 20 53 54 41 |$86. STA| 00000A40: 20 24 44 44 30 34 0D 20 20 20 20 20 20 20 20 20 | $DD04. | 00000A50: 4C 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 |LDA #1. | 00000A60: 53 54 41 20 24 44 44 30 35 0D 20 20 20 20 20 20 |STA $DD05. | 00000A70: 20 20 20 4C 44 41 20 23 38 0D 20 20 20 20 20 20 | LDA #8. | 00000A80: 20 20 20 53 54 41 20 24 44 44 30 45 0D 20 20 20 | STA $DD0E. | 00000A90: 20 20 20 20 20 20 53 54 41 20 24 44 44 30 46 0D | STA $DD0F.| 00000AA0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00000AB0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 44 | STA $DD| 00000AC0: 30 44 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |0D. LDA | 00000AD0: 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#0. STA | 00000AE0: 24 44 43 30 44 0D 20 20 20 20 20 20 20 20 20 4C |$DC0D. L| 00000AF0: 44 41 20 23 31 0D 20 20 20 20 20 20 20 20 20 53 |DA #1. S| 00000B00: 54 41 20 24 44 43 30 45 0D 20 20 20 20 20 20 20 |TA $DC0E. | 00000B10: 20 20 4C 44 41 20 23 24 46 30 0D 20 20 20 20 20 | LDA #$F0. | 00000B20: 20 20 20 20 53 54 41 20 24 44 30 31 41 0D 20 20 | STA $D01A. | 00000B30: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 00000B40: 20 20 20 20 20 20 20 53 54 41 20 24 44 30 32 30 | STA $D020| 00000B50: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000B60: 30 32 31 0D 20 20 20 20 20 20 20 3B 20 4C 44 41 |021. ; LDA| 00000B70: 20 23 32 37 0D 20 20 20 20 20 20 20 3B 20 53 54 | #27. ; ST| 00000B80: 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 20 |A $D011. | 00000B90: 20 43 4C 49 0D 20 20 20 20 20 20 20 20 20 52 54 | CLI. RT| 00000BA0: 53 20 20 20 20 20 20 20 20 20 3B 4E 41 56 52 41 |S ;NAVRA| 00000BB0: 54 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T..;------------| 00000BC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 CE CD C9 20 C9 |---------- ... .| 00000BD0: CE C9 D4 20 2D 2D 2D 2D 2D 2D 2D 0D 49 4E 49 54 |... -------.INIT| 00000BE0: 20 20 20 20 20 4C 44 41 20 23 24 33 35 20 3B 4B | LDA #$35 ;K| 00000BF0: 4F 4E 46 49 47 55 52 41 43 45 0D 20 20 20 20 20 |ONFIGURACE. | 00000C00: 20 20 20 20 53 54 41 20 24 30 31 20 20 3B 50 41 | STA $01 ;PA| 00000C10: 4D 45 54 49 0D 0D 52 59 43 48 4C 4F 53 54 20 4C |METI..RYCHLOST L| 00000C20: 44 41 20 23 24 42 30 20 20 3B 4E 4D 49 20 46 52 |DA #$B0 ;NMI FR| 00000C30: 45 4B 56 45 4E 43 45 20 50 52 49 48 52 41 0D 20 |EKVENCE PRIHRA. | 00000C40: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 44 30 | STA $DD0| 00000C50: 34 20 3B 56 41 4E 49 2C 20 CC CF D7 2D 42 59 54 |4 ;VANI, ...-BYT| 00000C60: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |E. LDA #| 00000C70: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00000C80: 44 44 30 35 20 3B C8 C9 C7 C8 2D 42 59 54 45 0D |DD05 ;....-BYTE.| 00000C90: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D | LDA #0.| 00000CA0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 44 | STA $DD| 00000CB0: 30 36 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |06. STA | 00000CC0: 24 44 44 30 37 0D 20 20 20 20 20 20 20 20 20 4C |$DD07. L| 00000CD0: 44 41 20 23 24 31 31 0D 20 20 20 20 20 20 20 20 |DA #$11. | 00000CE0: 20 53 54 41 20 24 44 44 30 45 0D 20 20 20 20 20 | STA $DD0E. | 00000CF0: 20 20 20 20 4C 44 41 20 23 24 35 31 0D 20 20 20 | LDA #$51. | 00000D00: 20 20 20 20 20 20 53 54 41 20 24 44 44 30 46 0D | STA $DD0F.| 00000D10: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 38 | LDA #$8| 00000D20: 32 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |2. STA $| 00000D30: 44 44 30 44 0D 0D 20 20 20 20 20 20 20 20 20 4C |DD0D.. L| 00000D40: 44 41 20 23 3C 56 45 4B 54 20 3B 4E 41 53 54 41 |DA #<VEKT ;NASTA| 00000D50: 56 45 4E 49 20 56 45 4B 54 4F 52 55 0D 20 20 20 |VENI VEKTORU. | 00000D60: 20 20 20 20 20 20 53 54 41 20 24 46 46 46 45 20 | STA $FFFE | 00000D70: 20 3B 50 52 4F 20 49 52 51 0D 20 20 20 20 20 20 | ;PRO IRQ. | 00000D80: 20 20 20 4C 44 41 20 23 3E 56 45 4B 54 0D 20 20 | LDA #>VEKT. | 00000D90: 20 20 20 20 20 20 20 53 54 41 20 24 46 46 46 46 | STA $FFFF| 00000DA0: 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.. LDA #| 00000DB0: 38 30 20 20 20 20 20 20 20 20 20 3B 49 52 51 0D |80 ;IRQ.| 00000DC0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00000DD0: 31 32 0D 20 20 20 20 20 20 20 3B 20 4C 44 41 20 |12. ; LDA | 00000DE0: 23 24 31 42 0D 20 20 20 20 20 20 20 3B 20 53 54 |#$1B. ; ST| 00000DF0: 41 20 24 44 30 31 31 0D 20 20 20 20 20 20 20 20 |A $D011. | 00000E00: 20 4C 44 41 20 23 24 30 31 0D 20 20 20 20 20 20 | LDA #$01. | 00000E10: 20 20 20 53 54 41 20 24 44 30 31 41 0D 20 20 20 | STA $D01A. | 00000E20: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00000E30: 20 20 20 20 20 20 53 54 41 20 24 44 43 30 44 0D | STA $DC0D.| 00000E40: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 43 | STA $DC| 00000E50: 30 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |0E. LDA | 00000E60: 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#0. STA | 00000E70: 24 44 30 32 30 20 20 3B 42 41 52 56 41 20 4F 42 |$D020 ;BARVA OB| 00000E80: 52 41 5A 4F 56 4B 59 0D 20 20 20 20 20 20 20 20 |RAZOVKY. | 00000E90: 20 53 54 41 20 24 44 30 32 31 0D 20 20 20 20 20 | STA $D021. | 00000EA0: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00000EB0: 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | RTS.;----------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B DA |-------------.;.| 00000EE0: 45 53 49 4C 45 4E 49 20 53 41 4D 50 4C 55 2E 20 |ESILENI SAMPLU. | 00000EF0: CE 41 53 54 41 56 49 20 53 45 20 4D 41 58 2E 46 |.ASTAVI SE MAX.F| 00000F00: 52 45 4B 56 45 4E 0D 3B 43 45 20 4F 42 44 45 4C |REKVEN.;CE OBDEL| 00000F10: 4E 49 4B 4F 56 45 48 4F 20 50 52 55 42 45 48 55 |NIKOVEHO PRUBEHU| 00000F20: 2C 20 4B 54 45 52 59 20 4E 45 4E 49 20 53 4C 0D |, KTERY NENI SL.| 00000F30: 3B 59 53 45 54 2C 20 41 4C 45 20 56 59 52 41 5A |;YSET, ALE VYRAZ| 00000F40: 4E 45 20 50 4F 53 49 4C 49 20 48 4C 41 53 49 54 |NE POSILI HLASIT| 00000F50: 4F 53 54 0D 3B 53 41 4D 50 4C 55 2E 0D 0D 48 55 |OST.;SAMPLU...HU| 00000F60: 44 42 41 20 20 20 20 4C 44 58 20 23 24 31 38 0D |DBA LDX #$18.| 00000F70: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 00000F80: 30 0D 49 43 30 42 39 20 20 20 20 53 54 41 20 24 |0.IC0B9 STA $| 00000F90: 44 34 30 30 2C 58 3B 56 59 4E 55 4C 55 4A 45 20 |D400,X;VYNULUJE | 00000FA0: 52 45 47 49 53 54 52 59 0D 20 20 20 20 20 20 20 |REGISTRY. | 00000FB0: 20 20 44 45 58 20 20 20 20 20 20 20 20 3B D3 C9 | DEX ;..| 00000FC0: C4 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 49 |.. BNE I| 00000FD0: 43 30 42 39 0D 20 20 20 20 20 20 20 20 20 4C 44 |C0B9. LD| 00000FE0: 41 20 23 24 46 46 0D 20 20 20 20 20 20 20 20 20 |A #$FF. | 00000FF0: 53 54 41 20 24 44 34 30 32 20 3B 53 54 52 49 44 |STA $D402 ;STRID| 00001000: 41 20 4F 42 44 45 4C 4E 49 4B 4F 56 45 48 4F 0D |A OBDELNIKOVEHO.| 00001010: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 34 | STA $D4| 00001020: 30 33 20 3B 50 52 55 42 45 48 55 20 31 20 4B 41 |03 ;PRUBEHU 1 KA| 00001030: 4E 41 4C 55 0D 20 20 20 20 20 20 20 20 20 4C 44 |NALU. LD| 00001040: 41 20 23 24 46 30 0D 20 20 20 20 20 20 20 20 20 |A #$F0. | 00001050: 53 54 41 20 24 44 34 30 36 20 3B D3 55 53 54 41 |STA $D406 ;.USTA| 00001060: 49 4E 20 4D 41 58 0D 20 20 20 20 20 20 20 20 20 |IN MAX. | 00001070: 4C 44 41 20 23 24 34 31 0D 20 20 20 20 20 20 20 |LDA #$41. | 00001080: 20 20 53 54 41 20 24 44 34 30 34 20 3B 5A 41 50 | STA $D404 ;ZAP| 00001090: 4E 4F 55 54 20 4F 42 44 45 4C 4E 49 4B 4F 56 59 |NOUT OBDELNIKOVY| 000010A0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 20 20 20 |. RTS | 000010B0: 20 20 20 20 3B 50 52 55 42 45 48 20 56 20 31 20 | ;PRUBEH V 1 | 000010C0: 4B 41 4E 41 4C 55 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D |KANALU.;--------| 000010D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000010E0: 2D 20 C9 20 D2 20 D1 20 2D 2D 2D 2D 2D 2D 2D 0D |- . . . -------.| 000010F0: 56 45 4B 54 20 20 20 20 20 50 48 41 0D 20 20 20 |VEKT PHA. | 00001100: 20 20 20 20 20 20 49 4E 43 20 24 44 30 31 39 0D | INC $D019.| 00001110: 20 20 20 20 20 20 20 3B 20 4C 44 41 20 23 32 37 | ; LDA #27| 00001120: 0D 20 20 20 20 20 20 20 3B 20 53 54 41 20 24 44 |. ; STA $D| 00001130: 30 31 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |011. LDA| 00001140: 20 24 44 43 30 44 0D 20 20 20 20 20 20 20 20 20 | $DC0D. | 00001150: 50 4C 41 0D 20 20 20 20 20 20 20 20 20 52 54 49 |PLA. RTI| 00001160: 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------| 00001170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B D0 4F 4D 4F |----------.;.OMO| 00001190: 43 4E 45 20 50 52 4F 4D 45 4E 4E 45 0D 50 4F 4D |CNE PROMENNE.POM| 000011A0: 41 20 20 20 20 20 42 52 4B 0D 50 4F 4D 59 20 20 |A BRK.POMY | 000011B0: 20 20 20 42 52 4B 0D 56 4E 49 59 20 20 20 20 20 | BRK.VNIY | 000011C0: 42 52 4B 0D 49 4E 46 4F 20 20 20 20 20 42 52 4B |BRK.INFO BRK| 000011D0: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 000011E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 50 4F 43 45 54 20 |---------.POCET | 00001200: 20 20 20 2E 42 59 54 45 20 36 20 3B 50 4F 43 45 | .BYTE 6 ;POCE| 00001210: 54 20 42 4C 4F 4B 55 0D 53 54 41 52 54 20 20 20 |T BLOKU.START | 00001220: 20 2E 42 59 54 45 20 24 31 42 2C 24 31 32 2C 24 | .BYTE $1B,$12,$| 00001230: 37 45 2C 24 37 44 2C 24 31 42 2C 24 31 32 0D 20 |7E,$7D,$1B,$12. | 00001240: 20 20 20 20 20 20 20 20 3B 50 4F 43 41 54 45 43 | ;POCATEC| 00001250: 4E 49 20 41 44 52 45 53 41 20 42 4C 4F 4B 55 0D |NI ADRESA BLOKU.| 00001260: 20 20 20 20 20 20 20 20 20 3B 24 31 42 30 30 2C | ;$1B00,| 00001270: 24 31 32 30 30 20 41 54 44 2E 0D 0D 53 54 4F 50 |$1200 ATD...STOP| 00001280: 20 20 20 20 20 2E 42 59 54 45 20 24 33 32 2C 24 | .BYTE $32,$| 00001290: 37 42 2C 24 46 44 2C 24 46 45 2C 24 33 32 2C 24 |7B,$FD,$FE,$32,$| 000012A0: 37 42 0D 20 20 20 20 20 20 20 20 20 3B 4B 4F 4E |7B. ;KON| 000012B0: 43 4F 56 41 20 41 44 52 45 53 41 20 42 4C 4F 4B |COVA ADRESA BLOK| 000012C0: 55 0D 20 20 20 20 20 20 20 20 20 3B 24 33 32 30 |U. ;$320| 000012D0: 30 2C 24 37 42 30 30 20 41 54 44 2E 0D 0D |0,$7B00 ATD... |
. *= $0810.;ZDROJOVY PROGRAM PRO
PREHAVANI SAMPLU.;POD NMI. RYCHLOST PRE
HRAVANI SE UDAVA.;JAKO SPODNI BYTE CASOV
ACE V CIA..;V TABULCE START A STOP JSOU
ULOZENY.;HORNI BYTE ADRES PRO ZACATKY A
KONCE.;BLOKU, KTERE SE BUDOU PREHRAVAT..
;...;---------------------- BLOCK-PLAY -
----.PLBL SEI. JSR HUDBA ;N
ASTAVI HLASITOST. JSR INIT ;IN
IT NMI,IRQ. LDA POCET. S
TA $FF ;POSLEDNI BLOK. LDA #$00
. STA $FE ;NASTAVI 1.BLOK..BLOC
K LDY $FE ;CISLO BLOKU. LDA
START,Y. STA $FB ;ZACATEK.
LDA STOP,Y. STA $FC ;KON
EC..;-----------------------------------
----. SEI. JSR PROBL ;ZA
PNE HRANI..KRLE LDA INFO. CM
P #1 ;TESTUJE DOHRANI BLOKU. B
NE KRLE. INC $FE. LDA $F
E. CMP $FF. BNE BLOCK..
JMP END ;KONEC, NAVRAT...;-----
-------------- ROUT- PLAY --------..PROB
L LDA #$00. STA $FA.
STA INFO ;POMOCNA PROMENNA.. LD
A #<PLAY. STA $FFFA. LDA
#>PLAY. STA $FFFB. CLI.
RTS. ;--------------------..
PLAY STA POMA ;1.HRACI RUTINA.
STY POMY ;HORNICH 4 BITU..
LDY #0. LDA ($FA),Y. AND
#$F0 ;HORNI 4 BITY. LSR A.
LSR A. LSR A. LSR A.
STA $D418 ;++++++++++++..
LDA #<PLAY1 ;PRESMEROVANI NMI.
STA $FFFA ;NA 2.. LDA #>P
LAY1 ;HRACI RUTINU. STA $FFFB
;PRO DALSI CYKLUS.. STY VNIY.
LDY POMY. LDA $DD0D.
LDA POMA. RTI.;--------------
-------------------------.PLAY1 STA P
OMA ;2.HRACI RUTINA NMI. STY
POMY ;SPODNICH 4.BITU.. LDY #
0. LDA ($FA),Y. AND #$0F
;SPODNI 4.BITY. STA $D418
;++++++++++.. LDA #<PLAY.
STA $FFFA. LDA #>PLAY.
STA $FFFB.. INC $FA. B
NE KIKK. INC $FB..KIKK LDA $
FB. CMP $FC. BNE DALE..
LDA $FA. CMP $FD.
BNE DALE.. LDA #<NICK ;PRESMER
OVANI NMI. STA $FFFA ;NA KONECN
OU RUTINU. LDA #>NICK. S
TA $FFFB..DALE STY VNIY. LDY
POMY. LDA $DD0D. LDA PO
MA. RTI.;-----------------------
----------------.NICK STA POMA.
LDA #1. STA INFO ;NASTAVENI
INFO PROMEN. LDA $DD0D;NE, ZE SE
DOHRAL BLOK. LDA POMA.
RTI.;-----------------------------------
----..END SEI ;VYP IRQ,
NMI. LDA #$37. STA $01.
LDA #0. STA $D015.
LDA #$86. STA $DD04.
LDA #1. STA $DD05. LDA #
8. STA $DD0E. STA $DD0F.
LDA #0. STA $DD0D.
LDA #0. STA $DC0D. L
DA #1. STA $DC0E. LDA #$
F0. STA $D01A. LDA #0.
STA $D020. STA $D021.
; LDA #27. ; STA $D011.
CLI. RTS ;NAVRAT..;----
------------------ NMI INIT -------.INIT
LDA #$35 ;KONFIGURACE. STA
$01 ;PAMETI..RYCHLOST LDA #$B0 ;NMI FR
EKVENCE PRIHRA. STA $DD04 ;VANI,
LOW-BYTE. LDA #0. STA $
DD05 ;HIGH-BYTE. LDA #0.
STA $DD06. STA $DD07. L
DA #$11. STA $DD0E. LDA
#$51. STA $DD0F. LDA #$8
2. STA $DD0D.. LDA #<VEK
T ;NASTAVENI VEKTORU. STA $FFFE
;PRO IRQ. LDA #>VEKT. S
TA $FFFF.. LDA #80 ;IRQ.
STA $D012. ; LDA #$1B.
; STA $D011. LDA #$01.
STA $D01A. LDA #0. ST
A $DC0D. STA $DC0E. LDA
#0. STA $D020 ;BARVA OBRAZOVKY.
STA $D021. NOP.
RTS.;----------------------------------
-----.;ZESILENI SAMPLU. NASTAVI SE MAX.F
REKVEN.;CE OBDELNIKOVEHO PRUBEHU, KTERY
NENI SL.;YSET, ALE VYRAZNE POSILI HLASIT
OST.;SAMPLU...HUDBA LDX #$18.
LDA #$00.IC0B9 STA $D400,X;VYNULUJE
REGISTRY. DEX ;SID.
BNE IC0B9. LDA #$FF.
STA $D402 ;STRIDA OBDELNIKOVEHO.
STA $D403 ;PRUBEHU 1 KANALU. LD
A #$F0. STA $D406 ;SUSTAIN MAX.
LDA #$41. STA $D404 ;ZAP
NOUT OBDELNIKOVY. RTS ;PRU
BEH V 1 KANALU.;------------------------
- I R Q -------.VEKT PHA. IN
C $D019. ; LDA #27. ; STA $D
011. LDA $DC0D. PLA.
RTI..;-----------------------------
----------.;POMOCNE PROMENNE.POMA BR
K.POMY BRK.VNIY BRK.INFO BRK
.;--------------------------------------
-.POCET .BYTE 6 ;POCET BLOKU.START
.BYTE $1B,$12,$7E,$7D,$1B,$12.
;POCATECNI ADRESA BLOKU. ;$1B00,
$1200 ATD...STOP .BYTE $32,$7B,$FD,$
FE,$32,$7B. ;KONCOVA ADRESA BLOK
U. ;$3200,$7B00 ATD...
> CLICK IMAGE PREVIEW FOR FULL MODAL