BASS/IRQ-SOURCE
FILE INFORMATION
FILENAME(S): BASS/IRQ-SOURCE
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 2 disk(s)
FILE HASH
564c1ad3ee68bb0d62a35d2ca47e4b41097d27414c7535eb31bb8a602405916e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 86 | BASS/IRQ-SOURCE | PRG | C64er | 20 | 2 | DOWNLOAD FILE |
| SONDER 2 86 1 | BASS/IRQ-SOURCE | PRG | DuncanTwain | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 64 00 9F 31 2C 38 2C 31 2C 22 40 3A |....d..1,8,1,"@:|
00000010: 42 41 53 53 2F 49 52 51 22 00 22 08 6E 00 9F 34 |BASS/IRQ".".n..4|
00000020: 2C 34 00 2E 08 78 00 9E 39 AC 34 30 39 36 00 3D |,4...x..9.4096.=|
00000030: 08 82 00 2E 4F 50 54 20 50 34 2C 4F 31 00 43 08 |....OPT P4,O1.C.|
00000040: 8C 00 3B 00 55 08 96 00 3B AC AC AC AC AC AC AC |..;.U...;.......|
00000050: AC AC AC AC AC 00 67 08 A0 00 3B AC 20 42 41 53 |......g...;. BAS|
00000060: 53 AD 49 52 51 20 AC 00 79 08 AA 00 3B AC AC AC |S.IRQ ..y...;...|
00000070: AC AC AC AC AC AC AC AC AC 00 7F 08 B4 00 3B 00 |..............;.|
00000080: 9E 08 BE 00 3B 20 28 43 29 31 39 38 35 20 52 4F |....; (C)1985 RO|
00000090: 42 45 52 54 20 54 52 45 49 43 48 4C 45 52 00 D5 |BERT TREICHLER..|
000000A0: 08 C8 00 3B 20 20 20 20 20 20 20 20 20 46 4C AB |...; FL.|
000000B0: 39 34 39 37 20 54 52 49 45 53 45 4E 42 45 52 47 |9497 TRIESENBERG|
000000C0: 2C 20 46 2E 54 55 4D 20 4C 49 45 43 48 54 45 4E |, F.TUM LIECHTEN|
000000D0: 53 54 45 49 4E 00 DB 08 D2 00 3B 00 E8 08 DC 00 |STEIN.....;.....|
000000E0: AC B2 20 24 43 30 30 30 00 EE 08 E6 00 3B 00 16 |.. $C000.....;..|
000000F0: 09 F0 00 3B 20 41 55 46 52 55 46 45 20 41 55 53 |...; AUFRUFE AUS|
00000100: 20 42 41 53 49 43 20 AB AB AB AB AB AB AB AB AB | BASIC .........|
00000110: AB AB AB AB AB AB 00 1C 09 F5 00 3B 00 2F 09 FA |...........;./..|
00000120: 00 3B 20 49 4E 49 54 20 20 20 20 9E 20 41 50 00 |.; INIT . AP.|
00000130: 44 09 FC 00 3B 20 45 58 49 54 20 20 20 20 9E 20 |D...; EXIT . |
00000140: 41 50 AA 33 00 6D 09 FE 00 3B 20 50 41 52 41 20 |AP.3.m...; PARA |
00000150: 20 20 20 9E 20 41 50 AA 36 2C 48 34 2C 46 57 2C | . AP.6,H4,FW,|
00000160: 46 57 AC 46 57 2C A4 4E AB 42 45 5A 2E 00 8F 09 |FW.FW,.N.BEZ....|
00000170: 00 01 3B 20 54 52 80 20 20 20 9E 20 41 50 AA 39 |..; TR. . AP.9|
00000180: 2C 48 41 25 28 48 29 2C 54 52 25 2C 54 41 25 00 |,HA%(H),TR%,TA%.|
00000190: C8 09 01 01 3B 20 48 82 20 20 20 9E 20 41 50 AA |....; H. . AP.|
000001A0: 31 32 2C 48 41 25 28 48 29 2C 48 41 25 28 48 4E |12,HA%(H),HA%(HN|
000001B0: 29 2C 48 47 25 28 48 29 2C 48 47 25 28 48 4E 29 |),HG%(H),HG%(HN)|
000001C0: 2C 54 52 25 2C 54 41 25 00 E9 09 02 01 3B 20 5A |,TR%,TA%.....; Z|
000001D0: 55 46 41 4C 4C 20 20 9E 20 41 50 AA 31 35 2C 48 |UFALL . AP.15,H|
000001E0: 41 25 28 48 29 2C 54 41 25 00 0B 0A 03 01 3B 20 |A%(H),TA%.....; |
000001F0: 54 45 4D 50 4F 20 20 20 9E 20 41 50 AA 31 38 2C |TEMPO . AP.18,|
00000200: 54 32 25 2E 54 33 25 2C 54 34 25 00 11 0A 04 01 |T2%.T3%,T4%.....|
00000210: 3B 00 2D 0A 09 01 4A 4D 50 20 49 4E 49 54 20 3B |;.-...JMP INIT ;|
00000220: 49 52 51 AB 52 4F 55 54 2E 20 45 49 4E 00 49 0A |IRQ.ROUT. EIN.I.|
00000230: 0E 01 4A 4D 50 20 45 58 49 54 20 3B 49 52 51 AB |..JMP EXIT ;IRQ.|
00000240: 52 4F 55 54 2E 20 41 55 53 00 72 0A 18 01 4A 4D |ROUT. AUS.r...JM|
00000250: 50 20 50 41 52 41 20 3B A4 4E AB 50 41 52 41 4D |P PARA ;.N.PARAM|
00000260: 45 54 45 52 20 41 55 53 20 42 41 53 49 43 20 48 |ETER AUS BASIC H|
00000270: 4F C3 00 96 0A 22 01 4A 4D 50 20 54 52 80 20 3B |O....".JMP TR. ;|
00000280: 4E 41 45 2E 41 4B 4B B0 44 45 49 47 2E A4 4E 20 |NAE.AKK.DEIG..N |
00000290: 53 55 43 48 45 4E 00 BF 0A 2C 01 4A 4D 50 20 48 |SUCHEN...,.JMP H|
000002A0: 82 20 3B 55 45 42 45 52 47 2E A4 4E 20 5A 55 20 |. ;UEBERG..N ZU |
000002B0: 4E 41 45 2E 48 41 52 4D 2E 53 55 43 48 45 4E 00 |NAE.HARM.SUCHEN.|
000002C0: E4 0A 36 01 4A 4D 50 20 5A 55 46 41 4C 4C 20 3B |..6.JMP ZUFALL ;|
000002D0: 5A 55 46 41 4C 4C 53 AB A4 4E 20 45 52 4D 49 54 |ZUFALLS..N ERMIT|
000002E0: 54 45 4C 4E 00 07 0B 38 01 4A 4D 50 20 54 45 4D |TELN...8.JMP TEM|
000002F0: 50 4F 20 3B 54 45 4D 50 4F 20 41 55 53 20 42 41 |PO ;TEMPO AUS BA|
00000300: 53 49 43 20 48 4F C3 00 0D 0B 3B 01 3B 00 32 0B |SIC HO....;.;.2.|
00000310: 40 01 3B 20 96 49 4E 49 54 49 91 45 4E 20 AB AB |@.; .INITI.EN ..|
00000320: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000330: AB AB 00 38 0B 4A 01 3B 00 5E 0B 54 01 48 34 20 |...8.J.;.^.T.H4 |
00000340: 2E 42 59 54 20 30 20 3B 4E 52 2E 20 31 AD 34 AB |.BYT 0 ;NR. 1.4.|
00000350: 53 43 48 4C 41 47 20 49 4D 20 54 41 4B 54 00 81 |SCHLAG IM TAKT..|
00000360: 0B 5E 01 46 53 20 2E 42 59 54 20 30 2C 30 3B B8 |.^.FS .BYT 0,0;.|
00000370: 51 55 45 4E 5A 20 48 41 55 50 54 53 43 48 4C 41 |QUENZ HAUPTSCHLA|
00000380: 47 00 A1 0B 68 01 46 56 20 2E 42 59 54 20 30 2C |G...h.FV .BYT 0,|
00000390: 30 3B B8 51 55 45 4E 5A 20 56 B0 53 43 48 4C 41 |0;.QUENZ V.SCHLA|
000003A0: 47 00 C1 0B 72 01 94 20 2E 42 59 54 20 30 2C 30 |G...r.. .BYT 0,0|
000003B0: 2C 30 2C 30 2C 30 3B 94 20 48 34 2C 46 53 2C 46 |,0,0,0;. H4,FS,F|
000003C0: 56 00 C7 0B 7C 01 3B 00 ED 0B 86 01 54 32 20 2E |V...|.;.....T2 .|
000003D0: 42 59 54 20 30 20 3B 5A 45 49 54 AB 49 4E 4B 8F |BYT 0 ;ZEIT.INK.|
000003E0: 45 4E 54 20 28 31 2E 56 4F 52 53 2E 29 00 14 0C |ENT (1.VORS.)...|
000003F0: 90 01 54 33 20 2E 42 59 54 20 30 20 3B 20 20 20 |..T3 .BYT 0 ; |
00000400: 20 20 20 44 4F 2E 20 20 20 20 20 20 28 32 2E 56 | DO. (2.V|
00000410: B0 53 2E 29 00 3C 0C 9A 01 54 34 20 2E 42 59 54 |.S.).<...T4 .BYT|
00000420: 20 30 20 3B 20 20 20 20 20 20 44 4F 2E 20 20 20 | 0 ; DO. |
00000430: 20 20 20 28 48 41 55 50 54 53 2E 29 00 42 0C A4 | (HAUPTS.).B..|
00000440: 01 3B 00 61 0C AE 01 54 49 4D 45 52 20 2E 42 59 |.;.a...TIMER .BY|
00000450: 54 20 30 20 3B 5A 45 49 54 AB 5A 41 45 48 4C 45 |T 0 ;ZEIT.ZAEHLE|
00000460: 52 00 67 0C B8 01 3B 00 8C 0C C2 01 50 43 20 20 |R.g...;.....PC |
00000470: 20 20 2E 42 59 54 20 30 20 3B 50 45 52 43 2E 20 | .BYT 0 ;PERC. |
00000480: 41 54 54 41 43 4B AD 44 45 43 41 59 00 92 0C CC |ATTACK.DECAY....|
00000490: 01 3B 00 C5 0C D6 01 48 41 20 2E 42 59 54 20 30 |.;.....HA .BYT 0|
000004A0: 2C 30 20 3B 41 4B 4B B0 44 45 49 47 2E A4 45 4E |,0 ;AKK.DEIG..EN|
000004B0: 45 20 41 4B 54 2E 48 41 52 4D 91 49 45 20 28 4C |E AKT.HARM.IE (L|
000004C0: 42 AD 48 42 29 00 F7 0C E0 01 48 41 4E 58 20 2E |B.HB).....HANX .|
000004D0: 42 59 54 20 30 2C 30 20 3B 41 4B 4B B0 44 45 49 |BYT 0,0 ;AKK.DEI|
000004E0: 47 2E A4 45 4E 45 20 4E 41 45 43 48 53 54 45 20 |G..ENE NAECHSTE |
000004F0: 48 41 52 4D 91 49 45 00 1B 0D EA 01 48 47 20 2E |HARM.IE.....HG .|
00000500: 42 59 54 20 30 20 3B 4E 52 2E 47 8A 44 A4 4E 20 |BYT 0 ;NR.G.D.N |
00000510: 41 4B 54 2E 48 41 52 4D 91 49 45 00 3B 0D F4 01 |AKT.HARM.IE.;...|
00000520: 54 52 20 2E 42 59 54 20 30 20 3B 54 52 80 20 AA |TR .BYT 0 ;TR. .|
00000530: AD AB 31 20 28 31 2C 32 35 35 29 00 54 0D FE 01 |..1 (1,255).T...|
00000540: 54 41 20 2E 42 59 54 20 30 20 3B 4E 52 2E 41 4B |TA .BYT 0 ;NR.AK|
00000550: 54 2E A4 4E 00 5A 0D 00 02 3B 00 7A 0D 01 02 3B |T..N.Z...;.z...;|
00000560: AF AB 4D 41 53 4B 45 4E 20 46 55 45 52 20 32 45 |..MASKEN FUER 2E|
00000570: 52 AB 50 4F 54 45 4E 5A 45 4E 00 A9 0D 02 02 4D |R.POTENZEN.....M|
00000580: 41 53 4B 20 2E 42 59 54 20 31 2C 32 2C 34 2C 38 |ASK .BYT 1,2,4,8|
00000590: 2C 31 36 2C 33 32 2C 36 34 2C 31 32 38 20 3B 4C |,16,32,64,128 ;L|
000005A0: 42 28 42 49 54 30 AB 37 29 00 C7 0D 04 02 2E 42 |B(BIT0.7)......B|
000005B0: 59 54 20 31 2C 32 2C 34 2C 38 20 3B 48 42 28 42 |YT 1,2,4,8 ;HB(B|
000005C0: 49 54 38 AB 31 31 29 00 CD 0D 08 02 3B 00 E3 0D |IT8.11).....;...|
000005D0: 12 02 52 42 20 B2 20 32 35 31 20 20 3B 8A 20 42 |..RB . 251 ;. B|
000005E0: 41 53 53 00 FE 0D 1C 02 52 50 20 B2 20 32 35 32 |ASS.....RP . 252|
000005F0: 20 20 3B 8A 20 50 45 52 43 55 53 53 49 91 00 04 | ;. PERCUSSI...|
00000600: 0E 26 02 3B 00 22 0E 30 02 53 49 44 20 B2 20 35 |.&.;.".0.SID . 5|
00000610: 34 32 37 32 20 20 3B 53 49 44 AB 52 45 47 2E 41 |4272 ;SID.REG.A|
00000620: 44 52 00 45 0E 3A 02 52 AF 4F 4D 20 B2 20 24 44 |DR.E.:.R.OM . $D|
00000630: 30 31 32 20 3B 50 53 45 55 44 4F AB 52 AF 4F 4D |012 ;PSEUDO.R.OM|
00000640: AB 57 45 52 54 00 66 0E 44 02 49 52 51 45 58 20 |.WERT.f.D.IRQEX |
00000650: B2 20 24 45 41 33 31 20 3B 49 52 51 AB 52 4F 55 |. $EA31 ;IRQ.ROU|
00000660: 54 2E 45 58 49 54 00 86 0E 4E 02 43 48 4B 43 4F |T.EXIT...N.CHKCO|
00000670: 4D 20 B2 20 24 41 45 46 44 20 3B 43 48 45 43 4B |M . $AEFD ;CHECK|
00000680: 20 4B 4F 4D 4D 41 00 A6 0E 58 02 43 48 52 4F 55 | KOMMA...X.CHROU|
00000690: 54 20 B2 20 24 46 46 44 32 20 3B 43 48 41 52 AB |T . $FFD2 ;CHAR.|
000006A0: 4F 55 54 50 55 54 00 D1 0E 62 02 A1 42 59 54 20 |OUTPUT...b..BYT |
000006B0: B2 20 24 42 37 39 45 20 3B 48 4F 4C 54 20 31 AB |. $B79E ;HOLT 1.|
000006C0: 42 59 54 45 AB 57 45 52 54 20 AB B1 52 45 47 2E |BYTE.WERT ..REG.|
000006D0: 58 00 F3 0E 64 02 A1 56 41 52 20 B2 20 24 42 30 |X...d..VAR . $B0|
000006E0: 38 42 20 3B 56 41 52 49 41 42 4C 45 20 53 55 43 |8B ;VARIABLE SUC|
000006F0: 48 45 4E 00 1A 0F 66 02 54 59 50 45 52 52 20 B2 |HEN...f.TYPERR .|
00000700: 20 24 41 44 39 39 20 3B 54 59 50 45 AB 4D 49 53 | $AD99 ;TYPE.MIS|
00000710: 4D 41 54 43 48 AB 45 52 52 B0 00 4B 0F 6C 02 A1 |MATCH.ERR..K.l..|
00000720: 50 41 52 20 B2 20 24 42 31 42 32 20 3B 48 4F 4C |PAR . $B1B2 ;HOL|
00000730: 54 20 31 36 AB 42 49 54 AB 50 41 52 41 4D 45 54 |T 16.BIT.PARAMET|
00000740: 45 52 20 AB B1 24 36 34 AD 36 35 00 76 0F 76 02 |ER ..$64.65.v.v.|
00000750: 46 52 4D 45 56 4C 20 B2 20 24 41 44 39 45 20 3B |FRMEVL . $AD9E ;|
00000760: 42 45 4C 2E 41 55 53 44 52 55 43 4B 20 41 55 53 |BEL.AUSDRUCK AUS|
00000770: 57 45 52 54 45 4E 00 9A 0F 80 02 B8 53 54 52 20 |WERTEN......STR |
00000780: B2 20 24 42 36 41 33 20 3B 53 54 52 49 4E 47 AB |. $B6A3 ;STRING.|
00000790: 56 45 52 57 41 4C 54 55 4E 47 00 A0 0F 8A 02 3B |VERWALTUNG.....;|
000007A0: 00 C8 0F 94 02 3B 20 50 52 4F 47 52 41 4D 4D 20 |.....; PROGRAMM |
000007B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000007C0: AB AB AB AB AB AB AB AB 00 CE 0F EE 02 3B 00 EC |.............;..|
000007D0: 0F F8 02 3B 20 49 52 51 AB 52 4F 55 54 49 4E 45 |...; IRQ.ROUTINE|
000007E0: 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 F2 0F 02 | EINSCHALTEN....|
000007F0: 03 3B 00 05 10 0C 03 49 4E 49 54 20 4C 44 41 20 |.;.....INIT LDA |
00000800: 23 B3 49 52 51 00 13 10 16 03 4C 44 58 20 23 B1 |#.IRQ.....LDX #.|
00000810: 49 52 51 00 21 10 20 03 56 45 4B A4 52 20 53 45 |IRQ.!. .VEK.R SE|
00000820: 49 00 2F 10 25 03 53 54 41 20 24 30 33 31 34 00 |I./.%.STA $0314.|
00000830: 3D 10 2A 03 53 54 58 20 24 30 33 31 35 00 48 10 |=.*.STX $0315.H.|
00000840: 34 03 4C 44 41 20 23 30 00 53 10 3E 03 53 54 41 |4.LDA #0.S.>.STA|
00000850: 20 52 42 00 5E 10 48 03 53 54 41 20 52 50 00 69 | RB.^.H.STA RP.i|
00000860: 10 52 03 53 54 41 20 46 53 00 71 10 5C 03 43 4C |.R.STA FS.q.\.CL|
00000870: 49 00 79 10 66 03 52 54 53 00 7F 10 70 03 3B 00 |I.y.f.RTS...p.;.|
00000880: 92 10 7A 03 3B 49 52 51 AB 52 4F 55 54 2E 20 41 |..z.;IRQ.ROUT. A|
00000890: 55 53 00 98 10 7F 03 3B 00 AD 10 84 03 45 58 49 |US.....;.....EXI|
000008A0: 54 20 4C 44 41 20 23 B3 49 52 51 45 58 00 BD 10 |T LDA #.IRQEX...|
000008B0: 8E 03 4C 44 58 20 23 B1 49 52 51 45 58 00 CB 10 |..LDX #.IRQEX...|
000008C0: 98 03 4A 4D 50 20 56 45 4B A4 52 00 D1 10 A2 03 |..JMP VEK.R.....|
000008D0: 3B 00 E2 10 A3 03 3B 49 52 51 AB 45 49 4E 53 50 |;.....;IRQ.EINSP|
000008E0: 8A 47 00 E8 10 A4 03 3B 00 F7 10 AC 03 49 52 51 |.G.....;.....IRQ|
000008F0: 20 4C 44 41 20 52 42 00 01 11 B6 03 B0 41 20 52 | LDA RB......A R|
00000900: 50 00 0D 11 C0 03 42 45 51 20 54 49 4D 00 1B 11 |P.....BEQ TIM...|
00000910: CA 03 49 4E 43 20 54 49 4D 45 52 00 29 11 D4 03 |..INC TIMER.)...|
00000920: 4C 44 41 20 54 49 4D 45 52 00 47 11 DE 03 43 4D |LDA TIMER.G...CM|
00000930: 50 20 54 32 3B 43 48 45 43 4B 20 B5 45 52 C5 4C |P T2;CHECK .ER.L|
00000940: AB 5A 45 49 54 45 4E 00 56 11 E8 03 42 45 51 20 |.ZEITEN.V...BEQ |
00000950: 50 4C 41 59 54 32 00 61 11 F2 03 43 4D 50 20 54 |PLAYT2.a...CMP T|
00000960: 33 00 70 11 FC 03 42 45 51 20 50 4C 41 59 54 33 |3.p...BEQ PLAYT3|
00000970: 00 7B 11 06 04 43 4D 50 20 54 34 00 8A 11 10 04 |.{...CMP T4.....|
00000980: 42 45 51 20 50 4C 41 59 54 34 00 9C 11 1A 04 54 |BEQ PLAYT4.....T|
00000990: 49 4D 20 53 54 41 20 54 49 4D 45 52 00 AC 11 24 |IM STA TIMER...$|
000009A0: 04 8E 20 4A 4D 50 20 49 52 51 45 58 00 B2 11 2E |.. JMP IRQEX....|
000009B0: 04 3B 00 CF 11 38 04 50 4C 41 59 54 32 20 4C 44 |.;...8.PLAYT2 LD|
000009C0: 41 20 23 30 3B 31 2E 56 B0 53 43 48 4C 41 47 00 |A #0;1.V.SCHLAG.|
000009D0: DA 11 42 04 53 54 41 20 50 43 00 00 12 4C 04 4C |..B.STA PC...L.L|
000009E0: 44 41 20 48 34 20 3B 4B 45 49 4E 20 31 2E 56 B0 |DA H4 ;KEIN 1.V.|
000009F0: 53 43 48 4C 41 47 2C 20 57 45 4E 4E 20 2E 2E 2E |SCHLAG, WENN ...|
00000A00: 00 16 12 56 04 42 4D 49 20 8E 20 3B 2E 2E 2E 48 |...V.BMI . ;...H|
00000A10: 34 B2 4E 45 47 2E 00 2E 12 5B 04 42 45 51 20 8E |4.NEG....[.BEQ .|
00000A20: 20 3B 2E 2E 2E 4F 44 45 52 20 48 34 B2 30 00 37 | ;...ODER H4.0.7|
00000A30: 12 60 04 AF 20 23 31 00 5A 12 6A 04 42 4E 45 20 |.`.. #1.Z.j.BNE |
00000A40: 8E 20 3B 2E 2E 2E 4F 44 45 52 20 53 43 48 4C 41 |. ;...ODER SCHLA|
00000A50: 47 B2 55 4E 47 45 52 41 44 45 00 67 12 74 04 4C |G.UNGERADE.g.t.L|
00000A60: 44 41 20 52 AF 4F 4D 00 74 12 7E 04 41 44 43 20 |DA R.OM.t.~.ADC |
00000A70: 23 32 32 30 00 91 12 88 04 42 43 53 20 8E 20 3B |#220.....BCS . ;|
00000A80: 2E 2E 2E 4F 44 45 52 20 52 AF 4F 4D AB 45 58 49 |...ODER R.OM.EXI|
00000A90: 54 00 9C 12 92 04 4C 44 41 20 23 35 00 B4 12 9C |T.....LDA #5....|
00000AA0: 04 53 54 41 20 50 43 20 3B 48 49 AB 48 41 54 20 |.STA PC ;HI.HAT |
00000AB0: 4B 55 52 5A 00 C1 12 A6 04 4A 53 52 20 50 45 52 |KURZ.....JSR PER|
00000AC0: 43 00 CB 12 B0 04 4A 4D 50 20 8E 00 D1 12 BA 04 |C.....JMP ......|
00000AD0: 3B 00 EE 12 C4 04 50 4C 41 59 54 33 20 4C 44 41 |;.....PLAYT3 LDA|
00000AE0: 20 48 34 3B 32 2E 56 B0 53 43 48 4C 41 47 00 10 | H4;2.V.SCHLAG..|
00000AF0: 13 CE 04 42 4D 49 20 8E 20 3B 4B 45 49 4E 20 32 |...BMI . ;KEIN 2|
00000B00: 2E 56 B0 53 2E 57 45 4E 4E 20 48 34 B2 4E 45 47 |.V.S.WENN H4.NEG|
00000B10: 00 28 13 D3 04 42 45 51 20 8E 20 3B 2E 2E 2E 4F |.(...BEQ . ;...O|
00000B20: 44 45 52 20 48 34 B2 30 00 31 13 D8 04 AF 20 23 |DER H4.0.1.... #|
00000B30: 31 00 3E 13 E2 04 42 45 51 20 50 33 31 30 00 5E |1.>...BEQ P310.^|
00000B40: 13 EC 04 4C 44 41 20 23 35 20 3B 48 49 AB 48 41 |...LDA #5 ;HI.HA|
00000B50: 54 20 4B 55 52 5A 2C 57 45 4E 4E 2E 2E 2E 00 7D |T KURZ,WENN....}|
00000B60: 13 F6 04 53 54 41 20 50 43 20 3B 2E 2E 2E 53 43 |...STA PC ;...SC|
00000B70: 48 4C 41 47 B2 55 4E 47 45 52 41 44 45 00 AA 13 |HLAG.UNGERADE...|
00000B80: 00 05 50 33 31 30 20 4A 53 52 20 50 45 52 43 20 |..P310 JSR PERC |
00000B90: 3B 2E 2E 2E 4F 44 45 52 20 31 2E 56 B0 53 2E 41 |;...ODER 1.V.S.A|
00000BA0: 55 53 47 45 46 55 45 48 52 54 00 B5 13 0A 05 4C |USGEFUEHRT.....L|
00000BB0: 44 41 20 48 34 00 C0 13 14 05 43 4D 50 20 23 32 |DA H4.....CMP #2|
00000BC0: 00 E4 13 1E 05 42 43 53 20 8E 20 3B 42 41 53 53 |.....BCS . ;BASS|
00000BD0: AB 56 B0 53 43 48 4C 41 47 20 4E 55 52 20 42 45 |.V.SCHLAG NUR BE|
00000BE0: 49 20 23 31 00 F1 13 28 05 4C 44 41 20 52 AF 4F |I #1...(.LDA R.O|
00000BF0: 4D 00 FE 13 32 05 41 44 43 20 23 32 30 30 00 13 |M...2.ADC #200..|
00000C00: 14 3C 05 42 43 53 20 8E 20 3B 52 AF 4F 4D AB 45 |.<.BCS . ;R.OM.E|
00000C10: 58 49 54 00 2F 14 46 05 4C 44 41 20 46 56 AA 31 |XIT./.F.LDA FV.1|
00000C20: 20 3B 42 41 53 53 AB 56 B0 53 43 48 4C 41 47 00 | ;BASS.V.SCHLAG.|
00000C30: 3A 14 50 05 4C 44 59 20 46 56 00 5A 14 55 05 42 |:.P.LDY FV.Z.U.B|
00000C40: 45 51 20 8E 20 3B A4 4E 20 4E 4F 43 48 20 4E 49 |EQ . ;.N NOCH NI|
00000C50: 43 48 54 20 42 45 52 45 49 54 00 67 14 5A 05 4A |CHT BEREIT.g.Z.J|
00000C60: 53 52 20 42 41 53 53 00 71 14 64 05 4A 4D 50 20 |SR BASS.q.d.JMP |
00000C70: 8E 00 77 14 6E 05 3B 00 99 14 78 05 50 4C 41 59 |..w.n.;...x.PLAY|
00000C80: 54 34 20 4C 44 58 20 23 35 3B 31 AD 34 AB 48 41 |T4 LDX #5;1.4.HA|
00000C90: 55 50 54 53 43 48 4C 41 47 00 A4 14 82 05 4C 44 |UPTSCHLAG.....LD|
00000CA0: 41 20 48 34 00 AD 14 8C 05 AF 20 23 31 00 BA 14 |A H4...... #1...|
00000CB0: 96 05 42 45 51 20 50 34 31 30 00 C5 14 A0 05 4C |..BEQ P410.....L|
00000CC0: 44 58 20 23 38 00 D5 14 AA 05 50 34 31 30 20 53 |DX #8.....P410 S|
00000CD0: 54 58 20 50 43 00 E2 14 B4 05 4A 53 52 20 50 45 |TX PC.....JSR PE|
00000CE0: 52 43 00 01 15 BE 05 4C 44 41 20 46 53 AA 31 20 |RC.....LDA FS.1 |
00000CF0: 3B 42 41 53 53 AB 48 41 55 50 54 53 43 48 4C 41 |;BASS.HAUPTSCHLA|
00000D00: 47 00 0C 15 C8 05 4C 44 59 20 46 53 00 19 15 D2 |G.....LDY FS....|
00000D10: 05 4A 53 52 20 42 41 53 53 00 24 15 DC 05 4C 44 |.JSR BASS.$...LD|
00000D20: 41 20 23 30 00 3E 15 E6 05 53 54 41 20 54 49 4D |A #0.>...STA TIM|
00000D30: 45 52 3B 52 45 53 45 54 20 54 49 4D 45 52 00 5C |ER;RESET TIMER.\|
00000D40: 15 EB 05 53 54 41 20 50 43 20 20 20 3B 52 45 53 |...STA PC ;RES|
00000D50: 45 54 20 50 45 52 43 2E 42 59 54 45 00 67 15 F0 |ET PERC.BYTE.g..|
00000D60: 05 4C 44 58 20 48 34 00 74 15 FA 05 42 45 51 20 |.LDX H4.t...BEQ |
00000D70: 50 36 30 30 00 99 15 04 06 53 54 41 20 46 53 3B |P600.....STA FS;|
00000D80: B8 49 47 45 42 45 4E 20 B8 51 AB 4C 4F 43 2E 20 |.IGEBEN .Q.LOC. |
00000D90: 57 45 4E 4E 20 48 34 B1 30 00 A4 15 0E 06 53 54 |WENN H4.0.....ST|
00000DA0: 41 20 46 56 00 B3 15 18 06 4C 44 41 20 53 54 52 |A FV.....LDA STR|
00000DB0: 49 4E 47 00 C0 15 22 06 42 45 51 20 50 36 30 30 |ING...".BEQ P600|
00000DC0: 00 DE 15 2C 06 4C 44 58 20 23 30 20 3B 53 54 52 |...,.LDX #0 ;STR|
00000DD0: 49 4E 47 20 41 55 53 44 52 55 43 4B 45 4E 00 F4 |ING AUSDRUCKEN..|
00000DE0: 15 36 06 50 35 30 30 20 4C 44 41 20 53 54 52 49 |.6.P500 LDA STRI|
00000DF0: 4E 47 2C 58 00 01 16 40 06 42 45 51 20 50 35 35 |NG,X...@.BEQ P55|
00000E00: 30 00 10 16 4A 06 4A 53 52 20 43 48 52 4F 55 54 |0...J.JSR CHROUT|
00000E10: 00 18 16 54 06 49 4E 58 00 25 16 5E 06 42 4E 45 |...T.INX.%.^.BNE|
00000E20: 20 50 35 30 30 00 36 16 68 06 50 35 35 30 20 4C | P500.6.h.P550 L|
00000E30: 44 41 20 23 33 32 00 45 16 72 06 4A 53 52 20 43 |DA #32.E.r.JSR C|
00000E40: 48 52 4F 55 54 00 54 16 7C 06 50 36 30 30 20 4A |HROUT.T.|.P600 J|
00000E50: 4D 50 20 8E 00 5A 16 86 06 3B 00 7F 16 90 06 50 |MP ..Z...;.....P|
00000E60: 45 52 43 20 4C 44 41 20 52 50 3B 45 56 54 4C 2E |ERC LDA RP;EVTL.|
00000E70: 50 45 52 43 55 53 53 49 91 20 AB B1 53 49 44 00 |PERCUSSI. ..SID.|
00000E80: 9C 16 9A 06 42 45 51 20 50 45 52 43 45 58 3B AB |....BEQ PERCEX;.|
00000E90: B1 4B 45 49 4E 45 20 50 45 52 43 2E 00 A7 16 A4 |.KEINE PERC.....|
00000EA0: 06 4C 44 41 20 50 43 00 C4 16 AE 06 42 45 51 20 |.LDA PC.....BEQ |
00000EB0: 50 45 52 43 45 58 3B AB B1 4B 45 49 4E 45 20 50 |PERCEX;..KEINE P|
00000EC0: 45 52 43 2E 00 D1 16 B8 06 4C 44 41 20 23 31 32 |ERC......LDA #12|
00000ED0: 38 00 F1 16 C2 06 53 54 41 20 53 49 44 AA 31 38 |8.....STA SID.18|
00000EE0: 3B 56 43 4F 23 33 20 4E 4F 49 53 45 AA 47 41 54 |;VCO#3 NOISE.GAT|
00000EF0: 45 00 FC 16 CC 06 4C 44 41 20 50 43 00 1E 17 D6 |E.....LDA PC....|
00000F00: 06 53 54 41 20 53 49 44 AA 31 39 3B 56 43 4F 23 |.STA SID.19;VCO#|
00000F10: 33 20 41 54 54 41 43 4B AD 44 45 43 41 59 00 2B |3 ATTACK.DECAY.+|
00000F20: 17 E0 06 4C 44 41 20 23 31 32 39 00 3A 17 EA 06 |...LDA #129.:...|
00000F30: 53 54 41 20 53 49 44 AA 31 38 00 49 17 F4 06 50 |STA SID.18.I...P|
00000F40: 45 52 43 45 58 20 52 54 53 00 4F 17 FE 06 3B 00 |ERCEX RTS.O...;.|
00000F50: 74 17 08 07 42 41 53 53 20 42 4E 45 20 42 41 53 |t...BASS BNE BAS|
00000F60: 53 31 30 20 3B 45 56 54 4C 2E 42 41 53 53 20 AB |S10 ;EVTL.BASS .|
00000F70: B1 53 49 44 00 8F 17 12 07 4C 44 41 20 23 34 32 |.SID.....LDA #42|
00000F80: 20 3B 54 49 4D 49 4E 47 AB 46 45 48 4C 45 52 00 | ;TIMING.FEHLER.|
00000F90: 9E 17 1C 07 4A 53 52 20 43 48 52 4F 55 54 00 AB |....JSR CHROUT..|
00000FA0: 17 26 07 4C 44 41 20 23 24 46 46 00 C8 17 30 07 |.&.LDA #$FF...0.|
00000FB0: 42 41 53 53 31 30 20 42 4D 49 20 42 41 53 53 45 |BASS10 BMI BASSE|
00000FC0: 58 20 3B 50 41 55 53 45 00 D3 17 3A 07 4C 44 58 |X ;PAUSE...:.LDX|
00000FD0: 20 52 42 00 EE 17 44 07 42 45 51 20 42 41 53 53 | RB...D.BEQ BASS|
00000FE0: 45 58 3B AB B1 4B 45 49 4E 20 42 41 53 53 00 FA |EX;..KEIN BASS..|
00000FF0: 17 62 07 4C 44 58 20 23 33 32 00 1E 18 67 07 53 |.b.LDX #32...g.S|
00001000: 54 58 20 53 49 44 AA 34 20 3B 56 43 4F 23 31 20 |TX SID.4 ;VCO#1 |
00001010: 53 41 45 47 45 5A 41 48 4E AA 47 41 54 45 00 2A |SAEGEZAHN.GATE.*|
00001020: 18 6C 07 4C 44 58 20 23 36 34 00 52 18 71 07 53 |.l.LDX #64.R.q.S|
00001030: 54 58 20 53 49 44 AA 31 31 3B 56 43 4F 23 32 20 |TX SID.11;VCO#2 |
00001040: 52 45 43 48 54 45 43 4B AA 53 59 4E 43 AA 47 41 |RECHTECK.SYNC.GA|
00001050: 54 45 00 6C 18 76 07 53 54 41 20 53 49 44 20 3B |TE.l.v.STA SID ;|
00001060: 56 43 4F 23 31 20 B8 51 55 45 4E 5A 00 7A 18 7B |VCO#1 .QUENZ.z.{|
00001070: 07 53 54 59 20 53 49 44 AA 31 00 96 18 80 07 53 |.STY SID.1.....S|
00001080: 54 41 20 53 49 44 AA 37 20 3B 56 43 4F 23 32 20 |TA SID.7 ;VCO#2 |
00001090: B8 51 55 45 4E 5A 00 A4 18 85 07 53 54 59 20 53 |.QUENZ.....STY S|
000010A0: 49 44 AA 38 00 B0 18 8A 07 4C 44 41 20 23 33 33 |ID.8.....LDA #33|
000010B0: 00 BE 18 8F 07 53 54 41 20 53 49 44 AA 34 00 CA |.....STA SID.4..|
000010C0: 18 94 07 4C 44 41 20 23 36 37 00 D9 18 99 07 53 |...LDA #67.....S|
000010D0: 54 41 20 53 49 44 AA 31 31 00 E8 18 9E 07 42 41 |TA SID.11.....BA|
000010E0: 53 53 45 58 20 52 54 53 00 EE 18 A8 07 3B 00 0E |SSEX RTS.....;..|
000010F0: 19 A9 07 3B A4 4E AB 50 41 52 41 4D 45 54 45 52 |...;.N.PARAMETER|
00001100: 20 41 55 53 20 42 41 53 49 43 20 48 4F C3 00 14 | AUS BASIC HO...|
00001110: 19 AA 07 3B 00 28 19 B2 07 50 41 52 41 20 4A 53 |...;.(...PARA JS|
00001120: 52 20 43 48 4B 43 4F 4D 00 39 19 BC 07 4A 53 52 |R CHKCOM.9...JSR|
00001130: 20 A1 42 59 54 20 3B 48 34 00 43 19 C6 07 53 54 | .BYT ;H4.C...ST|
00001140: 58 20 94 00 5F 19 D0 07 4A 53 52 20 A1 50 41 52 |X .._...JSR .PAR|
00001150: 20 3B 48 41 55 50 54 AB B8 51 AB 57 45 52 54 00 | ;HAUPT..Q.WERT.|
00001160: 6B 19 DA 07 4C 44 41 20 24 36 34 00 79 19 E4 07 |k...LDA $64.y...|
00001170: 42 4E 45 20 50 41 52 31 30 00 99 19 EE 07 4C 44 |BNE PAR10.....LD|
00001180: 41 20 23 24 46 46 20 3B 41 55 53 20 4E 55 4C 4C |A #$FF ;AUS NULL|
00001190: 20 57 49 52 44 20 24 46 46 00 B2 19 F8 07 50 41 | WIRD $FF.....PA|
000011A0: 52 31 30 20 53 54 41 20 94 AA 31 20 3B 20 20 20 |R10 STA ..1 ; |
000011B0: 48 42 00 BE 19 02 08 4C 44 41 20 24 36 35 00 D1 |HB.....LDA $65..|
000011C0: 19 0C 08 53 54 41 20 94 AA 32 20 3B 20 20 20 4C |...STA ..2 ; L|
000011D0: 42 00 F0 19 16 08 4A 53 52 20 A1 50 41 52 20 3B |B.....JSR .PAR ;|
000011E0: 56 B0 53 43 48 4C 41 47 AB B8 51 AB 57 45 52 54 |V.SCHLAG..Q.WERT|
000011F0: 00 FC 19 20 08 4C 44 41 20 24 36 34 00 0F 1A 2A |... .LDA $64...*|
00001200: 08 53 54 41 20 94 AA 33 20 3B 20 20 20 48 42 00 |.STA ..3 ; HB.|
00001210: 1B 1A 34 08 4C 44 41 20 24 36 35 00 2E 1A 3E 08 |..4.LDA $65...>.|
00001220: 53 54 41 20 94 AA 34 20 3B 20 20 20 4C 42 00 50 |STA ..4 ; LB.P|
00001230: 1A 48 08 50 41 52 32 30 20 4C 44 41 20 46 53 20 |.H.PAR20 LDA FS |
00001240: 3B 43 48 45 43 4B 20 B8 51 AB 4C 4F 43 2E B8 49 |;CHECK .Q.LOC..I|
00001250: 00 62 1A 52 08 42 45 51 20 50 41 52 34 30 20 3B |.b.R.BEQ PAR40 ;|
00001260: 4A 41 00 6D 1A 5C 08 4C 44 41 20 48 34 00 8D 1A |JA.m.\.LDA H4...|
00001270: 66 08 42 4E 45 20 50 41 52 32 30 20 3B 57 41 52 |f.BNE PAR20 ;WAR|
00001280: 54 45 4E 20 57 45 4E 4E 20 48 34 B1 30 00 9E 1A |TEN WENN H4.0...|
00001290: 70 08 50 41 52 34 30 20 4C 44 58 20 23 34 00 C3 |p.PAR40 LDX #4..|
000012A0: 1A 7A 08 50 41 52 36 30 20 4C 44 41 20 94 2C 58 |.z.PAR60 LDA .,X|
000012B0: 20 3B 50 41 52 41 4D 2E 55 45 42 45 52 54 52 41 | ;PARAM.UEBERTRA|
000012C0: 47 45 4E 00 D0 1A 84 08 53 54 41 20 48 34 2C 58 |GEN.....STA H4,X|
000012D0: 00 D8 1A 8E 08 44 45 58 00 E6 1A 98 08 42 50 4C |.....DEX.....BPL|
000012E0: 20 50 41 52 36 30 00 EC 1A A2 08 3B 00 07 1B AC | PAR60.....;....|
000012F0: 08 4A 53 52 20 43 48 4B 43 4F 4D 20 3B 53 54 52 |.JSR CHKCOM ;STR|
00001300: 49 4E 47 20 48 4F C3 00 16 1B B6 08 4A 53 52 20 |ING HO......JSR |
00001310: 46 52 4D 45 56 4C 00 23 1B C0 08 4A 53 52 20 B8 |FRMEVL.#...JSR .|
00001320: 53 54 52 00 2B 1B CA 08 54 41 58 00 36 1B D4 08 |STR.+...TAX.6...|
00001330: 4C 44 59 20 23 30 00 3E 1B DE 08 49 4E 58 00 60 |LDY #0.>...INX.`|
00001340: 1B E8 08 50 41 52 38 30 20 44 45 58 20 3B 53 54 |...PAR80 DEX ;ST|
00001350: 52 49 4E 47 20 55 45 42 45 52 54 52 41 47 45 4E |RING UEBERTRAGEN|
00001360: 00 7C 1B F2 08 42 45 51 20 50 41 52 39 30 20 3B |.|...BEQ PAR90 ;|
00001370: 53 54 52 49 4E 47 20 5A 55 20 80 45 00 8C 1B FC |STRING ZU .E....|
00001380: 08 4C 44 41 20 28 24 32 32 29 2C 59 00 9D 1B 06 |.LDA ($22),Y....|
00001390: 09 53 54 41 20 53 54 52 49 4E 47 2C 59 00 A5 1B |.STA STRING,Y...|
000013A0: 10 09 49 4E 59 00 B3 1B 1A 09 42 4E 45 20 50 41 |..INY.....BNE PA|
000013B0: 52 38 30 00 D9 1B 24 09 50 41 52 39 30 20 4C 44 |R80...$.PAR90 LD|
000013C0: 41 20 23 30 20 3B 4D 49 54 20 4E 55 4C 4C 20 B6 |A #0 ;MIT NULL .|
000013D0: 43 48 4C 49 45 53 53 45 4E 00 EA 1B 2E 09 53 54 |CHLIESSEN.....ST|
000013E0: 41 20 53 54 52 49 4E 47 2C 59 00 F2 1B 38 09 52 |A STRING,Y...8.R|
000013F0: 54 53 00 F8 1B 42 09 3B 00 18 1C 4C 09 3B 4E 41 |TS...B.;...L.;NA|
00001400: 45 43 48 53 54 45 4E 20 A4 4E 20 49 4D 20 54 52 |ECHSTEN .N IM TR|
00001410: 80 20 53 55 43 48 45 4E 00 1E 1C 56 09 3B 00 44 |. SUCHEN...V.;.D|
00001420: 1C 60 09 54 52 80 20 4A 53 52 20 A1 B5 20 3B 48 |.`.TR. JSR .. ;H|
00001430: 4F 4C 45 20 42 49 54 AB 4D 55 53 54 45 52 20 48 |OLE BIT.MUSTER H|
00001440: 41 25 28 29 00 4A 1C 6A 09 3B 00 5B 1C 74 09 53 |A%().J.j.;.[.t.S|
00001450: 54 41 20 48 41 20 3B 4C 2E 42 2E 00 6E 1C 7E 09 |TA HA ;L.B..n.~.|
00001460: 53 54 58 20 48 41 AA 31 20 3B 48 2E 42 2E 00 87 |STX HA.1 ;H.B...|
00001470: 1C 88 09 4A 53 52 20 A1 B5 20 3B 48 4F 4C 45 20 |...JSR .. ;HOLE |
00001480: 54 52 80 20 54 52 25 00 92 1C 92 09 53 54 41 20 |TR. TR%.....STA |
00001490: 54 52 00 AE 1C 9C 09 4A 53 52 20 A1 B5 20 3B 48 |TR.....JSR .. ;H|
000014A0: 4F 4C 45 20 A4 4E AB 4E 52 2E 20 54 41 25 00 C0 |OLE .N.NR. TA%..|
000014B0: 1C A6 09 54 52 45 30 31 30 20 53 54 41 20 54 41 |...TRE010 STA TA|
000014C0: 00 DD 1C B0 09 54 52 45 30 32 30 20 4C 44 41 20 |.....TRE020 LDA |
000014D0: 54 52 20 3B 54 41 AA 54 52 AB B1 54 41 00 01 1D |TR ;TA.TR..TA...|
000014E0: BA 09 4A 53 52 20 43 48 4B 41 4B 4B 20 3B 43 48 |..JSR CHKAKK ;CH|
000014F0: 45 43 4B 20 4F 42 20 41 4B 4B B0 44 45 49 47 45 |ECK OB AKK.DEIGE|
00001500: 4E 00 1D 1D C4 09 42 45 51 20 54 52 45 30 32 30 |N.....BEQ TRE020|
00001510: 20 3B 4E 45 49 4E 20 AB B1 4C 4F 4F 50 00 34 1D | ;NEIN ..LOOP.4.|
00001520: CE 09 4A 53 52 20 50 55 54 54 41 20 3B 54 41 25 |..JSR PUTTA ;TA%|
00001530: 20 B6 50 2E 00 3C 1D D8 09 52 54 53 00 42 1D E2 | .P..<...RTS.B..|
00001540: 09 3B 00 6A 1D EC 09 3B 55 45 42 45 52 47 41 4E |.;.j...;UEBERGAN|
00001550: 47 53 A4 4E 20 5A 55 20 4E 41 45 2E 48 41 52 4D |GS.N ZU NAE.HARM|
00001560: 91 49 45 20 53 55 43 48 45 4E 00 70 1D F6 09 3B |.IE SUCHEN.p...;|
00001570: 00 8B 1D 00 0A 48 82 20 4A 53 52 20 A1 B5 20 3B |.....H. JSR .. ;|
00001580: 48 4F 4C 45 20 48 41 25 28 48 29 00 96 1D 0A 0A |HOLE HA%(H).....|
00001590: 53 54 41 20 48 41 00 A3 1D 14 0A 53 54 58 20 48 |STA HA.....STX H|
000015A0: 41 AA 31 00 BC 1D 1E 0A 4A 53 52 20 A1 B5 20 3B |A.1.....JSR .. ;|
000015B0: 48 4F 4C 45 20 48 41 25 28 48 4E 29 00 C9 1D 28 |HOLE HA%(HN)...(|
000015C0: 0A 53 54 41 20 48 41 4E 58 00 D8 1D 32 0A 53 54 |.STA HANX...2.ST|
000015D0: 58 20 48 41 4E 58 AA 31 00 F0 1D 3C 0A 4A 53 52 |X HANX.1...<.JSR|
000015E0: 20 A1 B5 20 3B 48 4F 4C 45 20 48 47 25 28 48 29 | .. ;HOLE HG%(H)|
000015F0: 00 FB 1D 46 0A 53 54 41 20 48 47 00 14 1E 50 0A |...F.STA HG...P.|
00001600: 4A 53 52 20 A1 B5 20 3B 48 4F 4C 45 20 48 47 25 |JSR .. ;HOLE HG%|
00001610: 28 48 4E 29 00 2A 1E 5A 0A 53 54 41 20 54 41 20 |(HN).*.Z.STA TA |
00001620: 3B AB B1 57 49 52 44 20 54 41 00 3F 1E 64 0A 4A |;..WIRD TA.?.d.J|
00001630: 53 52 20 A1 B5 20 3B 48 4F 4C 45 20 54 52 25 00 |SR .. ;HOLE TR%.|
00001640: 4A 1E 6E 0A 53 54 41 20 54 52 00 5F 1E 78 0A 4A |J.n.STA TR._.x.J|
00001650: 53 52 20 A1 B5 20 3B 48 4F 4C 45 20 54 41 25 00 |SR .. ;HOLE TA%.|
00001660: 71 1E 82 0A 53 54 41 20 94 20 3B 54 41 25 20 94 |q...STA . ;TA% .|
00001670: 4E 00 A0 1E 8C 0A 3B 31 2E 56 41 52 2E 20 20 53 |N.....;1.VAR. S|
00001680: 55 43 48 45 20 4E 41 43 48 42 41 52 AB A4 4E 20 |UCHE NACHBAR..N |
00001690: 56 2E 4E 41 45 2E 47 8A 44 A4 4E 2C 20 2E 2E 2E |V.NAE.G.D.N, ...|
000016A0: 00 C9 1E 96 0A 3B 2E 2E 44 45 52 20 41 4B 4B B0 |.....;..DER AKK.|
000016B0: 44 45 49 47 45 4E 20 5A 55 20 41 4B 54 2E 48 41 |DEIGEN ZU AKT.HA|
000016C0: 52 4D 91 49 45 20 49 53 54 00 EA 1E A0 0A 4C 44 |RM.IE IST.....LD|
000016D0: 41 20 23 32 35 35 20 3B 54 41 AB 31 AB B1 54 41 |A #255 ;TA.1..TA|
000016E0: 20 28 AB 31 AD 32 20 A4 4E 29 00 0E 1F AA 0A 4A | (.1.2 .N).....J|
000016F0: 53 52 20 43 48 4B 41 4B 4B 20 3B 43 48 45 43 4B |SR CHKAKK ;CHECK|
00001700: 20 4F 42 20 41 4B 4B B0 44 45 49 47 45 4E 00 36 | OB AKK.DEIGEN.6|
00001710: 1F B4 0A 42 4E 45 20 48 4E 45 58 49 54 20 3B AB |...BNE HNEXIT ;.|
00001720: B1 4A 41 2C 20 4E 45 55 45 52 20 A4 4E 20 47 45 |.JA, NEUER .N GE|
00001730: 46 55 4E 44 45 4E 00 55 1F BE 0A 4C 44 41 20 23 |FUNDEN.U...LDA #|
00001740: 32 20 3B 54 41 AA 32 AB B1 54 41 20 28 AA 31 AD |2 ;TA.2..TA (.1.|
00001750: 32 20 A4 4E 29 00 79 1F C8 0A 4A 53 52 20 43 48 |2 .N).y...JSR CH|
00001760: 4B 41 4B 4B 20 3B 43 48 45 43 4B 20 4F 42 20 41 |KAKK ;CHECK OB A|
00001770: 4B 4B B0 44 45 49 47 45 4E 00 A1 1F D2 0A 42 4E |KK.DEIGEN.....BN|
00001780: 45 20 48 4E 45 58 49 54 20 3B AB B1 4A 41 2C 20 |E HNEXIT ;..JA, |
00001790: 4E 45 55 45 52 20 A4 4E 20 47 45 46 55 4E 44 45 |NEUER .N GEFUNDE|
000017A0: 4E 00 C0 1F DC 0A 4C 44 41 20 23 32 35 33 20 3B |N.....LDA #253 ;|
000017B0: 54 41 AB 33 AB B1 54 41 20 28 AB 31 20 A4 4E 29 |TA.3..TA (.1 .N)|
000017C0: 00 E4 1F E6 0A 4A 53 52 20 43 48 4B 41 4B 4B 20 |.....JSR CHKAKK |
000017D0: 3B 43 48 45 43 4B 20 4F 42 20 41 4B 4B B0 44 45 |;CHECK OB AKK.DE|
000017E0: 49 47 45 4E 00 0C 20 F0 0A 42 4E 45 20 48 4E 45 |IGEN.. ..BNE HNE|
000017F0: 58 49 54 20 3B AB B1 4A 41 2C 20 4E 45 55 45 52 |XIT ;..JA, NEUER|
00001800: 20 A4 4E 20 47 45 46 55 4E 44 45 4E 00 2B 20 FA | .N GEFUNDEN.+ .|
00001810: 0A 4C 44 41 20 23 34 20 20 20 3B 54 41 AA 34 AB |.LDA #4 ;TA.4.|
00001820: B1 54 41 20 28 AA 31 20 A4 4E 29 00 4F 20 04 0B |.TA (.1 .N).O ..|
00001830: 4A 53 52 20 43 48 4B 41 4B 4B 20 3B 43 48 45 43 |JSR CHKAKK ;CHEC|
00001840: 4B 20 4F 42 20 41 4B 4B B0 44 45 49 47 45 4E 00 |K OB AKK.DEIGEN.|
00001850: 77 20 0E 0B 42 4E 45 20 48 4E 45 58 49 54 20 3B |w ..BNE HNEXIT ;|
00001860: AB B1 4A 41 2C 20 4E 45 55 45 52 20 A4 4E 20 47 |..JA, NEUER .N G|
00001870: 45 46 55 4E 44 45 4E 00 AE 20 18 0B 3B 32 2E 56 |EFUNDEN.. ..;2.V|
00001880: 41 52 2E 20 20 53 55 43 48 45 20 A4 4E 2C 20 44 |AR. SUCHE .N, D|
00001890: 45 52 20 46 55 45 52 20 42 45 49 44 45 20 48 41 |ER FUER BEIDE HA|
000018A0: 52 4D 2E 20 41 4B 4B B0 44 45 49 47 45 4E 00 B9 |RM. AKK.DEIGEN..|
000018B0: 20 22 0B 4C 44 41 20 48 41 00 C4 20 2C 0B AF 20 | ".LDA HA.. ,.. |
000018C0: 48 41 4E 58 00 CF 20 36 0B 53 54 41 20 48 41 00 |HANX.. 6.STA HA.|
000018D0: DC 20 40 0B 4C 44 41 20 48 41 AA 31 00 E9 20 4A |. @.LDA HA.1.. J|
000018E0: 0B AF 20 48 41 4E 58 AA 31 00 F6 20 54 0B 53 54 |.. HANX.1.. T.ST|
000018F0: 41 20 48 41 AA 31 00 17 21 5E 0B B0 41 20 48 41 |A HA.1..!^..A HA|
00001900: 20 3B 43 48 45 43 4B 20 4F 42 20 47 45 4D 45 49 | ;CHECK OB GEMEI|
00001910: 4E 53 2E A4 45 4E 45 00 2C 21 68 0B 42 4E 45 20 |NS..ENE.,!h.BNE |
00001920: 48 4E 45 30 32 30 20 3B AB B1 4A 41 00 4B 21 72 |HNE020 ;..JA.K!r|
00001930: 0B 4C 44 41 20 48 47 20 3B 4E 45 49 4E 2C 20 47 |.LDA HG ;NEIN, G|
00001940: 8A 44 A4 4E 20 4E 45 48 4D 45 4E 00 56 21 7C 0B |.D.N NEHMEN.V!|.|
00001950: 53 54 41 20 54 41 00 74 21 86 0B 48 4E 45 58 49 |STA TA.t!..HNEXI|
00001960: 54 20 4A 53 52 20 50 55 54 54 41 20 3B 54 41 25 |T JSR PUTTA ;TA%|
00001970: 20 B6 50 2E 00 7C 21 90 0B 52 54 53 00 82 21 9A | .P..|!..RTS..!.|
00001980: 0B 3B 00 AC 21 A4 0B 48 4E 45 30 32 30 20 4C 44 |.;..!..HNE020 LD|
00001990: 41 20 94 20 3B 54 41 25 20 48 4F C3 20 55 4E 44 |A . ;TA% HO. UND|
000019A0: 20 4C 41 55 54 20 54 52 80 2E 2E 2E 00 D7 21 AE | LAUT TR......!.|
000019B0: 0B 4A 4D 50 20 54 52 45 30 31 30 20 3B 2E 2E 2E |.JMP TRE010 ;...|
000019C0: 47 45 4D 45 49 4E 53 2E 41 4B 4B B0 44 AB A4 4E |GEMEINS.AKK.D..N|
000019D0: 20 53 55 43 48 45 4E 00 DD 21 B8 0B 3B 00 F7 21 | SUCHEN..!..;..!|
000019E0: C2 0B 3B 48 4F 4C 45 20 B5 45 47 45 52 20 41 55 |..;HOLE .EGER AU|
000019F0: 53 20 42 41 53 49 43 00 FD 21 CC 0B 3B 00 16 22 |S BASIC..!..;.."|
00001A00: D6 0B A1 B5 20 4A 53 52 20 43 48 4B 43 4F 4D 20 |.... JSR CHKCOM |
00001A10: 3B 4B 4F 4D 4D 41 00 2F 22 E0 0B 4A 53 52 20 A1 |;KOMMA./"..JSR .|
00001A20: 56 41 52 20 3B 56 41 52 2E 53 55 43 48 45 4E 00 |VAR ;VAR.SUCHEN.|
00001A30: 49 22 EA 0B 53 54 41 20 24 34 39 20 3B 56 41 52 |I"..STA $49 ;VAR|
00001A40: 2E 41 44 52 2E 20 B6 50 2E 00 55 22 F4 0B 53 54 |.ADR. .P..U"..ST|
00001A50: 59 20 24 34 41 00 71 22 FE 0B 4C 44 41 20 24 30 |Y $4A.q"..LDA $0|
00001A60: 45 20 3B 43 48 45 43 4B 20 4F 42 20 B5 45 47 45 |E ;CHECK OB .EGE|
00001A70: 52 00 8C 22 08 0C 42 45 51 20 A1 45 52 52 20 3B |R.."..BEQ .ERR ;|
00001A80: AB B1 4E 45 49 4E 2C 20 45 52 52 B0 00 97 22 0D |..NEIN, ERR...".|
00001A90: 0C 4C 44 59 20 23 30 00 B5 22 12 0C 4C 44 41 20 |.LDY #0.."..LDA |
00001AA0: 28 24 34 39 29 2C 59 20 3B 56 41 52 2E 57 45 52 |($49),Y ;VAR.WER|
00001AB0: 54 20 48 4F C3 00 CB 22 1C 0C 54 41 58 20 3B 48 |T HO..."..TAX ;H|
00001AC0: 2E 42 2E 20 AB B1 52 45 47 2E 58 00 D3 22 26 0C |.B. ..REG.X.."&.|
00001AD0: 49 4E 59 00 F1 22 30 0C 4C 44 41 20 28 24 34 39 |INY.."0.LDA ($49|
00001AE0: 29 2C 59 20 3B 4C 2E 42 2E 20 AB B1 52 45 47 2E |),Y ;L.B. ..REG.|
00001AF0: 41 00 F9 22 3A 0C 52 54 53 00 FF 22 44 0C 3B 00 |A..":.RTS.."D.;.|
00001B00: 19 23 4E 0C A1 45 52 52 20 4A 4D 50 20 54 59 50 |.#N..ERR JMP TYP|
00001B10: 45 52 52 20 3B 45 52 52 B0 00 1F 23 58 0C 3B 00 |ERR ;ERR...#X.;.|
00001B20: 41 23 62 0C 3B 54 41 25 20 41 4C 53 20 42 41 53 |A#b.;TA% ALS BAS|
00001B30: 49 43 AB B5 45 47 45 52 AB 56 41 52 2E 20 B6 50 |IC..EGER.VAR. .P|
00001B40: 2E 00 47 23 6C 0C 3B 00 58 23 76 0C 50 55 54 54 |..G#l.;.X#v.PUTT|
00001B50: 41 20 4C 44 41 20 23 30 00 60 23 80 0C 54 41 59 |A LDA #0.`#..TAY|
00001B60: 00 76 23 8A 0C 53 54 41 20 28 24 34 39 29 2C 59 |.v#..STA ($49),Y|
00001B70: 20 3B 48 2E 42 2E 00 81 23 94 0C 4C 44 41 20 54 | ;H.B...#..LDA T|
00001B80: 41 00 89 23 9E 0C 49 4E 59 00 9F 23 A8 0C 53 54 |A..#..INY..#..ST|
00001B90: 41 20 28 24 34 39 29 2C 59 20 3B 4C 2E 42 2E 00 |A ($49),Y ;L.B..|
00001BA0: A7 23 B2 0C 52 54 53 00 AD 23 BC 0C 3B 00 DA 23 |.#..RTS..#..;..#|
00001BB0: C6 0C 3B 43 48 45 43 4B 20 4F 42 20 A4 4E 20 4E |..;CHECK OB .N N|
00001BC0: 52 2E 28 54 41 29 AA 52 45 47 2E 41 20 20 B2 20 |R.(TA).REG.A . |
00001BD0: 41 4B 4B B0 44 45 49 47 45 4E 00 FC 23 D0 0C 3B |AKK.DEIGEN..#..;|
00001BE0: 49 4E 20 20 52 45 47 2E 41 B2 49 4E 4B 52 2E AD |IN REG.A.INKR..|
00001BF0: 44 45 4B 52 2E 20 41 55 46 20 54 41 00 02 24 DA |DEKR. AUF TA..$.|
00001C00: 0C 3B 00 11 24 E4 0C 43 48 4B 41 4B 4B 20 43 4C |.;..$..CHKAKK CL|
00001C10: 43 00 2F 24 EE 0C 41 44 43 20 54 41 20 3B 54 41 |C./$..ADC TA ;TA|
00001C20: AA 49 4E 4B 52 AD 44 45 4B 52 20 AB B1 54 41 00 |.INKR.DEKR ..TA.|
00001C30: 5D 24 F8 0C 42 50 4C 20 43 41 4B 30 31 30 20 3B |]$..BPL CAK010 ;|
00001C40: 43 48 45 43 4B 20 4F 42 20 54 41 20 49 4D 20 42 |CHECK OB TA IM B|
00001C50: 45 52 45 49 43 48 20 30 2E 2E 2E 31 31 00 65 24 |EREICH 0...11.e$|
00001C60: 02 0D 43 4C 43 00 83 24 0C 0D 41 44 43 20 23 31 |..CLC..$..ADC #1|
00001C70: 32 20 3B 2E 2E 2E 53 91 53 54 20 4B B0 52 45 4B |2 ;...S.ST K.REK|
00001C80: 54 55 52 00 96 24 16 0D 43 41 4B 30 31 30 20 43 |TUR..$..CAK010 C|
00001C90: 4D 50 20 23 31 32 00 A5 24 20 0D 42 43 43 20 43 |MP #12..$ .BCC C|
00001CA0: 41 4B 42 49 54 00 AD 24 2A 0D 53 45 43 00 B9 24 |AKBIT..$*.SEC..$|
00001CB0: 34 0D 53 42 43 20 23 31 32 00 BF 24 3E 0D 3B 00 |4.SBC #12..$>.;.|
00001CC0: E3 24 48 0D 43 41 4B 42 49 54 20 53 54 41 20 54 |.$H.CAKBIT STA T|
00001CD0: 41 20 3B 42 49 54 20 46 2E 41 4B 54 2E A4 4E 20 |A ;BIT F.AKT..N |
00001CE0: 48 4F C3 00 EB 24 52 0D 54 41 58 00 07 25 5C 0D |HO...$R.TAX..%\.|
00001CF0: 4C 44 41 20 4D 41 53 4B 2C 58 20 3B AF AB 4D 41 |LDA MASK,X ;..MA|
00001D00: 53 4B 45 20 48 4F C3 00 12 25 66 0D 4C 44 59 20 |SKE HO...%f.LDY |
00001D10: 23 30 00 35 25 70 0D 43 50 58 20 23 38 20 3B 43 |#0.5%p.CPX #8 ;C|
00001D20: 48 45 43 4B 20 4F 42 20 4C 2E 42 2E 20 4F 44 45 |HECK OB L.B. ODE|
00001D30: 52 20 48 2E 42 00 4C 25 7A 0D 42 43 43 20 43 41 |R H.B.L%z.BCC CA|
00001D40: 4B 30 33 30 20 3B AB B1 4C 2E 42 2E 00 5D 25 84 |K030 ;..L.B..]%.|
00001D50: 0D 4C 44 59 20 23 31 20 3B 48 2E 42 2E 00 8D 25 |.LDY #1 ;H.B...%|
00001D60: 8E 0D 43 41 4B 30 33 30 20 AF 20 48 41 2C 59 20 |..CAK030 . HA,Y |
00001D70: 3B 42 49 54 20 41 55 53 20 41 4B 54 2E 48 41 52 |;BIT AUS AKT.HAR|
00001D80: 4D 2E 45 58 54 52 41 48 49 45 52 45 4E 00 95 25 |M.EXTRAHIEREN..%|
00001D90: 98 0D 52 54 53 00 9B 25 A2 0D 3B 00 B6 25 AC 0D |..RTS..%..;..%..|
00001DA0: 3B 20 5A 55 46 41 4C 4C 53 AB A4 4E 20 45 52 4D |; ZUFALLS..N ERM|
00001DB0: 49 54 54 45 4C 4E 00 BC 25 B6 0D 3B 00 DB 25 C0 |ITTELN..%..;..%.|
00001DC0: 0D 5A 55 46 41 4C 4C 20 4A 53 52 20 A1 B5 20 3B |.ZUFALL JSR .. ;|
00001DD0: 48 4F 4C 45 20 48 41 25 28 48 29 00 EC 25 CA 0D |HOLE HA%(H)..%..|
00001DE0: 53 54 41 20 48 41 20 3B 4C 2E 42 2E 00 FF 25 D4 |STA HA ;L.B...%.|
00001DF0: 0D 53 54 58 20 48 41 AA 31 20 3B 48 2E 42 2E 00 |.STX HA.1 ;H.B..|
00001E00: 14 26 DE 0D 4A 53 52 20 A1 B5 20 3B 48 4F 4C 45 |.&..JSR .. ;HOLE|
00001E10: 20 54 41 25 00 35 26 E8 0D 4A 53 52 20 43 41 4B | TA%.5&..JSR CAK|
00001E20: 42 49 54 20 3B 42 49 54 20 46 2E 41 4B 54 2E A4 |BIT ;BIT F.AKT..|
00001E30: 4E 20 48 4F C3 00 52 26 F2 0D 45 B0 20 23 24 46 |N HO..R&..E. #$F|
00001E40: 46 20 3B 2E 2E 2E 55 4E 44 20 4C 4F 45 53 43 48 |F ;...UND LOESCH|
00001E50: 45 4E 00 76 26 FC 0D AF 20 48 41 2C 59 20 3B 2E |EN.v&... HA,Y ;.|
00001E60: 2E 2E 44 41 4D 49 54 20 4E 49 43 48 54 20 4E 4F |..DAMIT NICHT NO|
00001E70: 43 48 4D 41 4C 53 00 9A 26 06 0E 53 54 41 20 48 |CHMALS..&..STA H|
00001E80: 41 2C 59 20 3B 2E 2E 2E 47 4C 45 49 43 48 45 52 |A,Y ;...GLEICHER|
00001E90: 20 A4 4E 20 4B 4F 4D 4D 54 2E 00 BF 26 10 0E 4C | .N KOMMT...&..L|
00001EA0: 44 41 20 52 AF 4F 4D 20 3B 5A 55 46 41 4C 4C 53 |DA R.OM ;ZUFALLS|
00001EB0: AB 5A 41 48 4C 20 AA 20 54 41 20 AB B1 54 41 00 |.ZAHL . TA ..TA.|
00001EC0: C8 26 1A 0E AF 20 23 37 00 D7 26 24 0E 42 4E 45 |.&... #7..&$.BNE|
00001ED0: 20 5A 55 46 30 33 30 00 E9 26 2E 0E 5A 55 46 30 | ZUF030..&..ZUF0|
00001EE0: 32 30 20 4C 44 41 20 23 31 00 13 27 38 0E 5A 55 |20 LDA #1..'8.ZU|
00001EF0: 46 30 33 30 20 4A 53 52 20 43 48 4B 41 4B 4B 20 |F030 JSR CHKAKK |
00001F00: 3B 43 48 45 43 4B 20 4F 42 20 41 4B 4B 2E 45 49 |;CHECK OB AKK.EI|
00001F10: 47 45 4E 00 39 27 42 0E 42 45 51 20 5A 55 46 30 |GEN.9'B.BEQ ZUF0|
00001F20: 32 30 20 3B AB B1 4E 45 49 4E 2C 20 57 45 49 54 |20 ;..NEIN, WEIT|
00001F30: 45 52 20 53 55 43 48 45 4E 00 62 27 4C 0E 4A 4D |ER SUCHEN.b'L.JM|
00001F40: 50 20 50 55 54 54 41 20 3B 4A 41 2C 20 54 41 25 |P PUTTA ;JA, TA%|
00001F50: 20 41 4C 53 20 42 41 53 49 43 AB 56 41 52 2E B6 | ALS BASIC.VAR..|
00001F60: 50 2E 00 68 27 6A 0E 3B 00 82 27 74 0E 3B 20 54 |P..h'j.;..'t.; T|
00001F70: 45 4D 50 4F 20 41 55 53 20 42 41 53 49 43 20 48 |EMPO AUS BASIC H|
00001F80: 4F C3 00 88 27 75 0E 3B 00 B0 27 7E 0E 54 45 4D |O...'u.;..'~.TEM|
00001F90: 50 4F 20 4A 53 52 20 A1 B5 20 3B 48 4F 4C 45 20 |PO JSR .. ;HOLE |
00001FA0: 54 32 25 20 28 31 2E 56 B0 53 43 48 4C 41 47 29 |T2% (1.V.SCHLAG)|
00001FB0: 00 BB 27 88 0E 53 54 41 20 54 32 00 DD 27 92 0E |..'..STA T2..'..|
00001FC0: 4A 53 52 20 A1 B5 20 3B 48 4F 4C 45 20 54 33 25 |JSR .. ;HOLE T3%|
00001FD0: 20 28 32 2E 56 B0 53 43 48 4C 41 47 29 00 E8 27 | (2.V.SCHLAG)..'|
00001FE0: 9C 0E 53 54 41 20 54 33 00 0F 28 A6 0E 4A 53 52 |..STA T3..(..JSR|
00001FF0: 20 A1 B5 20 3B 48 4F 4C 45 20 54 34 25 20 28 31 | .. ;HOLE T4% (1|
00002000: AD 34 AB 48 41 55 50 54 53 43 48 4C 41 47 29 00 |.4.HAUPTSCHLAG).|
00002010: 1A 28 B0 0E 53 54 41 20 54 34 00 22 28 BA 0E 52 |.(..STA T4."(..R|
00002020: 54 53 00 28 28 88 13 3B 00 37 28 92 13 53 54 52 |TS.((..;.7(..STR|
00002030: 49 4E 47 20 B2 20 AC 00 3E 28 9C 13 2E 80 00 44 |ING . ..>(.....D|
00002040: 28 A6 13 80 00 00 00 |(...... |
....D..1,8,1,"@:BASS/IRQ".".N..4,4...X..
9.4096.=....OPT P4,O1.C...;.U...;.......
......G. .;. BASS.IRQ ..Y...;...........
.....;.....; (C)1985 ROBERT TREICHLER.U
.H.; FL.9497 TRIESENBERG, F.TUM
LIECHTENSTEIN...R.;....... $C000.....;..
...; AUFRUFE AUS BASIC .................
...;./...; INIT . AP.D...; EXIT .
AP.3.M...; PARA . AP.6,H4,FW,FW.FW,.N
.BEZ......; TR. . AP.9,HA%(H),TR%,TA%.
H...; H. . AP.12,HA%(H),HA%(HN),HG%(H)
,HG%(HN),TR%,TA%.....; ZUFALL . AP.15,H
A%(H),TA%.....; TEMPO . AP.18,T2%.T3%,
T4%.....;.-...JMP INIT ;IRQ.ROUT. EIN.I.
..JMP EXIT ;IRQ.ROUT. AUS.R...JMP PARA ;
.N.PARAMETER AUS BASIC HOC...".JMP TR. ;
NAE.AKK.DEIG..N SUCHEN...,.JMP H. ;UEBER
G..N ZU NAE.HARM.SUCHEN...6.JMP ZUFALL ;
ZUFALLS..N ERMITTELN...8.JMP TEMPO ;TEMP
O AUS BASIC HOC...;.;.2.@.; .INITI.EN ..
...................8.J.;.^.T.H4 .BYT 0 ;
NR. 1.4.SCHLAG IM TAKT...^.FS .BYT 0,0;.
QUENZ HAUPTSCHLAG...H.FV .BYT 0,0;.QUENZ
V.SCHLAG.A.R.. .BYT 0,0,0,0,0;. H4,FS,F
V.G.|.;.....T2 .BYT 0 ;ZEIT.INK.ENT (1.V
ORS.).....T3 .BYT 0 ; DO. (2.V
.S.).<...T4 .BYT 0 ; DO. (HAUP
TS.).B...;.A...TIMER .BYT 0 ;ZEIT.ZAEHLE
R.G...;...B.PC .BYT 0 ;PERC. ATTACK.D
ECAY...L.;.E.V.HA .BYT 0,0 ;AKK.DEIG..EN
E AKT.HARM.IE (LB.HB).....HANX .BYT 0,0
;AKK.DEIG..ENE NAECHSTE HARM.IE.....HG .
BYT 0 ;NR.G.D.N AKT.HARM.IE.;...TR .BYT
0 ;TR. ...1 (1,255).T...TA .BYT 0 ;NR.AK
T..N.Z...;.Z...;..MASKEN FUER 2ER.POTENZ
EN.....MASK .BYT 1,2,4,8,16,32,64,128 ;L
B(BIT0.7).G....BYT 1,2,4,8 ;HB(BIT8.11).
M...;.....RB . 251 ;. BASS.....RP . 252
;. PERCUSSI....&.;.".0.SID . 54272 ;S
ID.REG.ADR.E.:.R.OM . $D012 ;PSEUDO.R.OM
.WERT.F.D.IRQEX . $EA31 ;IRQ.ROUT.EXIT..
.N.CHKCOM . $AEFD ;CHECK KOMMA...X.CHROU
T . $FFD2 ;CHAR.OUTPUT.Q.B..BYT . $B79E
;HOLT 1.BYTE.WERT ..REG.X...D..VAR . $B0
8B ;VARIABLE SUCHEN...F.TYPERR . $AD99 ;
TYPE.MISMATCH.ERR..K.L..PAR . $B1B2 ;HOL
T 16.BIT.PARAMETER ..$64.65.V.V.FRMEVL .
$AD9E ;BEL.AUSDRUCK AUSWERTEN......STR
. $B6A3 ;STRING.VERWALTUNG. ...;.H...; P
ROGRAMM .........................N...;..
...; IRQ.ROUTINE EINSCHALTEN.....;.....I
NIT LDA #.IRQ.....LDX #.IRQ.!. .VEK.R SE
I./.%.STA $0314.=.*.STX $0315.H.4.LDA #0
.S.>.STA RB.^.H.STA RP.I.R.STA FS.Q.\.CL
I.Y.F.RTS..P.;...Z.;IRQ.ROUT. AUS....;
.....EXIT LDA #.IRQEX.....LDX #.IRQEX.K.
..JMP VEK.R.Q...;.....;IRQ.EINSP.G.....;
.....IRQ LDA RB......A RP.....BEQ TIM...
J.INC TIMER.).T.LDA TIMER.G...CMP T2;CHE
CK .EREL.ZEITEN.V...BEQ PLAYT2.A...CMP T
3.P...BEQ PLAYT3.{...CMP T4.....BEQ PLAY
T4.....TIM STA TIMER...$.. JMP IRQEX....
.;.O.8.PLAYT2 LDA #0;1.V.SCHLAG.Z.B.STA
PC...L.LDA H4 ;KEIN 1.V.SCHLAG, WENN ...
...V.BMI . ;...H4.NEG....[.BEQ . ;...ODE
R H4.0.7.`.. #1.Z.J.BNE . ;...ODER SCHLA
G.UNGERADE.G.T.LDA R.OM.T.~.ADC #220....
.BCS . ;...ODER R.OM.EXIT.....LDA #5....
.STA PC ;HI.HAT KURZ.A...JSR PERC.K...JM
P ..Q...;...D.PLAYT3 LDA H4;2.V.SCHLAG..
.N.BMI . ;KEIN 2.V.S.WENN H4.NEG.(.S.BEQ
. ;...ODER H4.0.1.X.. #1.>...BEQ P310.^
...LDA #5 ;HI.HAT KURZ,WENN....}...STA P
C ;...SCHLAG.UNGERADE.....P310 JSR PERC
;...ODER 1.V.S.AUSGEFUEHRT.....LDA H4...
..CMP #2.....BCS . ;BASS.V.SCHLAG NUR BE
I #1...(.LDA R.OM...2.ADC #200...<.BCS .
;R.OM.EXIT./.F.LDA FV.1 ;BASS.V.SCHLAG.
:.P.LDY FV.Z.U.BEQ . ;.N NOCH NICHT BERE
IT.G.Z.JSR BASS.Q.D.JMP ..W.N.;...X.PLAY
T4 LDX #5;1.4.HAUPTSCHLAG.....LDA H4....
.. #1.....BEQ P410.E. .LDX #8.U...P410 S
TX PC.....JSR PERC.....LDA FS.1 ;BASS.HA
UPTSCHLAG...H.LDY FS...R.JSR BASS.$...LD
A #0.>...STA TIMER;RESET TIMER.\...STA P
C ;RESET PERC.BYTE.G...LDX H4.T...BEQ
P600.....STA FS;.IGEBEN .Q.LOC. WENN H4.
0.....STA FV.....LDA STRING...".BEQ P600
...,.LDX #0 ;STRING AUSDRUCKEN...6.P500
LDA STRING,X...@.BEQ P550...J.JSR CHROUT
...T.INX.%.^.BNE P500.6.H.P550 LDA #32.E
.R.JSR CHROUT.T.|.P600 JMP ..Z...;....P
ERC LDA RP;EVTL.PERCUSSI. ..SID.....BEQ
PERCEX;..KEINE PERC......LDA PC.D...BEQ
PERCEX;..KEINE PERC..Q...LDA #128...B.ST
A SID.18;VCO#3 NOISE.GATE...L.LDA PC...V
.STA SID.19;VCO#3 ATTACK.DECAY.+...LDA #
129.:...STA SID.18.I...PERCEX RTS.O...;.
T...BASS BNE BASS10 ;EVTL.BASS ..SID....
.LDA #42 ;TIMING.FEHLER.....JSR CHROUT..
.&.LDA #$FF.H.0.BASS10 BMI BASSEX ;PAUSE
.S.:.LDX RB...D.BEQ BASSEX;..KEIN BASS..
.B.LDX #32...G.STX SID.4 ;VCO#1 SAEGEZAH
N.GATE.*.L.LDX #64.R.Q.STX SID.11;VCO#2
RECHTECK.SYNC.GATE.L.V.STA SID ;VCO#1 .Q
UENZ.Z.{.STY SID.1.....STA SID.7 ;VCO#2
.QUENZ.....STY SID.8.....LDA #33.....STA
SID.4.J...LDA #67.Y...STA SID.11.....BA
SSEX RTS.....;.....;.N.PARAMETER AUS BAS
IC HOC.....;.(...PARA JSR CHKCOM.9...JSR
.BYT ;H4.C.F.STX .._.P.JSR .PAR ;HAUPT.
.Q.WERT.K.Z.LDA $64.Y...BNE PAR10.....LD
A #$FF ;AUS NULL WIRD $FF.....PAR10 STA
..1 ; HB.....LDA $65.Q...STA ..2 ; L
B.....JSR .PAR ;V.SCHLAG..Q.WERT... .LDA
$64...*.STA ..3 ; HB...4.LDA $65...>.
STA ..4 ; LB.P.H.PAR20 LDA FS ;CHECK .
Q.LOC..I.B.R.BEQ PAR40 ;JA.M.\.LDA H4...
F.BNE PAR20 ;WARTEN WENN H4.0...P.PAR40
LDX #4.C.Z.PAR60 LDA .,X ;PARAM.UEBERTRA
GEN.P...STA H4,X.X...DEX.....BPL PAR60..
...;.....JSR CHKCOM ;STRING HOC.....JSR
FRMEVL.#...JSR .STR.+.J.TAX.6.T.LDY #0.>
...INX.`...PAR80 DEX ;STRING UEBERTRAGEN
.|...BEQ PAR90 ;STRING ZU .E.....LDA ($2
2),Y.....STA STRING,Y.....INY.....BNE PA
R80.Y.$.PAR90 LDA #0 ;MIT NULL .CHLIESSE
N.....STA STRING,Y...8.RTS...B.;...L.;NA
ECHSTEN .N IM TR. SUCHEN...V.;.D.`.TR. J
SR .. ;HOLE BIT.MUSTER HA%().J.J.;.[.T.S
TA HA ;L.B..N.~.STX HA.1 ;H.B......JSR .
. ;HOLE TR. TR%.....STA TR.....JSR .. ;H
OLE .N.NR. TA%.....TRE010 STA TA.....TRE
020 LDA TR ;TA.TR..TA.....JSR CHKAKK ;CH
ECK OB AKK.DEIGEN...D.BEQ TRE020 ;NEIN .
.LOOP.4.N.JSR PUTTA ;TA% .P..<.X.RTS.B..
.;.J...;UEBERGANGS.N ZU NAE.HARM.IE SUCH
EN.P...;.....H. JSR .. ;HOLE HA%(H).....
STA HA.....STX HA.1.....JSR .. ;HOLE HA%
(HN).I.(.STA HANX.X.2.STX HANX.1...<.JSR
.. ;HOLE HG%(H)...F.STA HG...P.JSR .. ;
HOLE HG%(HN).*.Z.STA TA ;..WIRD TA.?.D.J
SR .. ;HOLE TR%.J.N.STA TR._.X.JSR .. ;H
OLE TA%.Q...STA . ;TA% .N. ...;1.VAR. S
UCHE NACHBAR..N V.NAE.G.D.N, ....I...;..
DER AKK.DEIGEN ZU AKT.HARM.IE IST... .LD
A #255 ;TA.1..TA (.1.2 .N).....JSR CHKAK
K ;CHECK OB AKK.DEIGEN.6...BNE HNEXIT ;.
.JA, NEUER .N GEFUNDEN.U...LDA #2 ;TA.2.
.TA (.1.2 .N).Y.H.JSR CHKAKK ;CHECK OB A
KK.DEIGEN...R.BNE HNEXIT ;..JA, NEUER .N
GEFUNDEN.....LDA #253 ;TA.3..TA (.1 .N)
.....JSR CHKAKK ;CHECK OB AKK.DEIGEN.. .
.BNE HNEXIT ;..JA, NEUER .N GEFUNDEN.+ .
.LDA #4 ;TA.4..TA (.1 .N).O ..JSR CHKA
KK ;CHECK OB AKK.DEIGEN.W ..BNE HNEXIT ;
..JA, NEUER .N GEFUNDEN.. ..;2.VAR. SUC
HE .N, DER FUER BEIDE HARM. AKK.DEIGEN..
".LDA HA.D ,.. HANX.O 6.STA HA.. @.LDA
HA.1.. J.. HANX.1.. T.STA HA.1..!^..A HA
;CHECK OB GEMEINS..ENE.,!H.BNE HNE020 ;
..JA.K!R.LDA HG ;NEIN, G.D.N NEHMEN.V!|.
STA TA.T!..HNEXIT JSR PUTTA ;TA% .P..|!.
.RTS..!..;..!..HNE020 LDA . ;TA% HOC UND
LAUT TR.....W!..JMP TRE010 ;...GEMEINS.
AKK.D..N SUCHEN..!..;..!B.;HOLE .EGER AU
S BASIC..!L.;.."V... JSR CHKCOM ;KOMMA./
"..JSR .VAR ;VAR.SUCHEN.I"..STA $49 ;VAR
.ADR. .P..U"..STY $4A.Q"..LDA $0E ;CHECK
OB .EGER.."..BEQ .ERR ;..NEIN, ERR...".
.LDY #0.."..LDA ($49),Y ;VAR.WERT HOC.K"
..TAX ;H.B. ..REG.X.S"&.INY.."0.LDA ($49
),Y ;L.B. ..REG.A..":.RTS.."D.;..#N..ERR
JMP TYPERR ;ERR...#X.;.A#B.;TA% ALS BAS
IC..EGER.VAR. .P..G#L.;.X#V.PUTTA LDA #0
.`#..TAY.V#..STA ($49),Y ;H.B...#..LDA T
A..#..INY..#..STA ($49),Y ;L.B...#..RTS.
.#..;.Z#F.;CHECK OB .N NR.(TA).REG.A .
AKK.DEIGEN..#P.;IN REG.A.INKR..DEKR. AU
F TA..$Z.;..$..CHKAKK CLC./$..ADC TA ;TA
.INKR.DEKR ..TA.]$..BPL CAK010 ;CHECK OB
TA IM BEREICH 0...11.E$..CLC..$..ADC #1
2 ;...S.ST K.REKTUR..$..CAK010 CMP #12..
$ .BCC CAKBIT..$*.SEC..$4.SBC #12..$>.;.
.$H.CAKBIT STA TA ;BIT F.AKT..N HOC..$R.
TAX..%\.LDA MASK,X ;..MASKE HOC..%F.LDY
#0.5%P.CPX #8 ;CHECK OB L.B. ODER H.B.L%
Z.BCC CAK030 ;..L.B..]%..LDY #1 ;H.B...%
..CAK030 . HA,Y ;BIT AUS AKT.HARM.EXTRAH
IEREN..%..RTS..%..;..%..; ZUFALLS..N ERM
ITTELN..%..;..%..ZUFALL JSR .. ;HOLE HA%
(H)..%J.STA HA ;L.B...%T.STX HA.1 ;H.B..
.&..JSR .. ;HOLE TA%.5&..JSR CAKBIT ;BIT
F.AKT..N HOC.R&..E. #$FF ;...UND LOESCH
EN.V&... HA,Y ;...DAMIT NICHT NOCHMALS..
&..STA HA,Y ;...GLEICHER .N KOMMT...&..L
DA R.OM ;ZUFALLS.ZAHL . TA ..TA.H&... #7
.W&$.BNE ZUF030..&..ZUF020 LDA #1..'8.ZU
F030 JSR CHKAKK ;CHECK OB AKK.EIGEN.9'B.
BEQ ZUF020 ;..NEIN, WEITER SUCHEN.B'L.JM
P PUTTA ;JA, TA% ALS BASIC.VAR..P..H'J.;
..'T.; TEMPO AUS BASIC HOC..'U.;..'~.TEM
PO JSR .. ;HOLE T2% (1.V.SCHLAG)..'..STA
T2..'..JSR .. ;HOLE T3% (2.V.SCHLAG)..'
..STA T3..(..JSR .. ;HOLE T4% (1.4.HAUPT
SCHLAG)..(..STA T4."(..RTS.((..;.7(..STR
ING . ..>(.....D(......
> CLICK IMAGE PREVIEW FOR FULL MODAL