00000000: 01 1C 38 1C 00 00 8F 20 20 20 20 49 44 45 45 20 |..8.... IDEE |
00000010: 26 20 41 55 53 46 55 45 48 52 55 4E 47 20 56 4F |& AUSFUEHRUNG VO|
00000020: 4E 20 20 20 44 49 45 54 4D 41 52 20 48 45 4C 49 |N DIETMAR HELI|
00000030: 4F 53 20 20 20 2E 2E 2E 00 82 1C 01 00 83 20 22 |OS ......... "|
00000040: 41 39 22 2C 22 33 45 22 20 20 20 20 20 20 20 20 |A9","3E" |
00000050: 20 20 20 20 20 20 20 3A 20 8F 20 20 31 33 30 30 | : . 1300|
00000060: 20 4C 44 41 20 23 24 33 45 20 20 20 3B 20 42 41 | LDA #$3E ; BA|
00000070: 4E 4B 20 30 20 26 20 49 2F 4F 2D 42 45 52 45 49 |NK 0 & I/O-BEREI|
00000080: 43 48 00 C3 1C 02 00 83 20 22 38 44 22 2C 22 30 |CH...... "8D","0|
00000090: 30 22 2C 22 46 46 22 20 20 20 20 20 20 20 20 20 |0","FF" |
000000A0: 20 3A 20 8F 20 20 31 33 30 32 20 53 54 41 20 24 | : . 1302 STA $|
000000B0: 46 46 30 30 20 20 3B 20 45 49 4E 53 43 48 41 4C |FF00 ; EINSCHAL|
000000C0: 54 45 4E 00 10 1D 03 00 83 20 22 34 43 22 2C 22 |TEN...... "4C","|
000000D0: 31 46 22 2C 22 43 30 22 20 20 20 20 20 20 20 20 |1F","C0" |
000000E0: 20 20 3A 20 8F 20 20 31 33 30 35 20 4A 4D 50 20 | : . 1305 JMP |
000000F0: 24 43 30 31 46 20 20 3B 20 5A 55 52 55 45 43 4B |$C01F ; ZURUECK|
00000100: 20 49 4E 20 53 4F 55 4E 44 52 4F 55 54 49 4E 45 | IN SOUNDROUTINE|
00000110: 00 4D 1D 04 00 83 20 22 41 39 22 2C 22 30 30 22 |.M.... "A9","00"|
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
00000130: 20 8F 20 20 31 33 30 38 20 4C 44 41 20 23 24 30 | . 1308 LDA #$0|
00000140: 30 20 20 20 3B 20 42 41 4E 4B 20 31 35 00 8E 1D |0 ; BANK 15...|
00000150: 05 00 83 20 22 38 44 22 2C 22 30 30 22 2C 22 46 |... "8D","00","F|
00000160: 46 22 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 |F" : . |
00000170: 20 31 33 30 41 20 53 54 41 20 24 46 46 30 30 20 | 130A STA $FF00 |
00000180: 20 3B 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 D7 | ; EINSCHALTEN..|
00000190: 1D 06 00 83 20 22 34 43 22 2C 22 36 35 22 2C 22 |.... "4C","65","|
000001A0: 46 41 22 20 20 20 20 20 20 20 20 20 20 3A 20 8F |FA" : .|
000001B0: 20 20 31 33 30 44 20 4A 4D 50 20 24 46 41 36 35 | 130D JMP $FA65|
000001C0: 20 20 3B 20 4E 4F 52 4D 41 4C 45 20 49 52 51 2D | ; NORMALE IRQ-|
000001D0: 52 4F 55 54 49 4E 45 00 21 1E 07 00 83 20 22 41 |ROUTINE.!.... "A|
000001E0: 39 22 2C 22 33 45 22 20 20 20 20 20 20 20 20 20 |9","3E" |
000001F0: 20 20 20 20 20 20 3A 20 8F 20 20 31 33 31 30 20 | : . 1310 |
00000200: 4C 44 41 20 23 24 33 45 20 20 20 3B 20 42 41 4E |LDA #$3E ; BAN|
00000210: 4B 20 30 20 26 20 49 2F 4F 2D 42 45 52 45 49 43 |K 0 & I/O-BEREIC|
00000220: 48 00 62 1E 08 00 83 20 22 38 44 22 2C 22 30 30 |H.b.... "8D","00|
00000230: 22 2C 22 46 46 22 20 20 20 20 20 20 20 20 20 20 |","FF" |
00000240: 3A 20 8F 20 20 31 33 31 32 20 53 54 41 20 24 46 |: . 1312 STA $F|
00000250: 46 30 30 20 20 3B 20 45 49 4E 53 43 48 41 4C 54 |F00 ; EINSCHALT|
00000260: 45 4E 00 AC 1E 09 00 83 20 22 32 30 22 2C 22 30 |EN...... "20","0|
00000270: 30 22 2C 22 43 30 22 20 20 20 20 20 20 20 20 20 |0","C0" |
00000280: 20 3A 20 8F 20 20 31 33 31 35 20 4A 53 52 20 24 | : . 1315 JSR $|
00000290: 43 30 30 30 20 20 3B 20 53 4F 55 4E 44 52 4F 55 |C000 ; SOUNDROU|
000002A0: 54 49 4E 45 20 53 54 41 52 54 45 4E 00 F2 1E 0A |TINE STARTEN....|
000002B0: 00 83 22 36 30 22 20 20 20 20 20 20 20 20 20 20 |.."60" |
000002C0: 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 20 31 | : . 1|
000002D0: 33 31 38 20 52 54 53 20 20 20 20 20 20 20 20 3B |318 RTS ;|
000002E0: 20 5A 55 52 55 45 43 4B 20 49 4E 53 20 42 41 53 | ZURUECK INS BAS|
000002F0: 49 43 00 21 1F 0B 00 81 20 49 B2 30 20 A4 20 32 |IC.!.... I.0 . 2|
00000300: 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |4 |
00000310: 3A 20 8F 20 20 32 35 20 44 41 54 41 57 45 52 54 |: . 25 DATAWERT|
00000320: 45 00 49 1F 0C 00 87 20 41 24 20 20 20 20 20 20 |E.I.... A$ |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
00000340: 20 8F 20 20 4C 45 53 45 4E 00 86 1F 0D 00 97 20 | . LESEN...... |
00000350: D1 28 22 31 33 30 30 22 29 AA 49 2C D1 28 41 24 |.("1300").I,.(A$|
00000360: 29 20 20 3A 20 8F 20 20 55 4E 44 20 41 42 20 24 |) : . UND AB $|
00000370: 31 33 30 30 20 49 4E 20 42 41 4E 4B 20 30 20 41 |1300 IN BANK 0 A|
00000380: 42 4C 45 47 45 4E 00 B6 1F 0E 00 82 20 20 20 20 |BLEGEN...... |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 3A 20 8F 20 20 53 43 48 4C 45 49 46 | : . SCHLEIF|
000003B0: 45 4E 45 4E 44 45 00 F8 1F 0F 00 97 20 D1 28 22 |ENENDE...... .("|
000003C0: 43 30 31 34 22 29 2C D1 28 22 31 33 22 29 20 20 |C014"),.("13") |
000003D0: 3A 20 8F 20 20 56 45 4B 54 4F 52 20 46 55 45 52 |: . VEKTOR FUER|
000003E0: 20 49 2F 4F 2D 42 45 52 45 49 43 48 20 45 49 4E | I/O-BEREICH EIN|
000003F0: 53 43 48 41 4C 54 45 4E 00 32 20 10 00 97 20 D1 |SCHALTEN.2 ... .|
00000400: 28 22 43 30 31 39 22 29 2C D1 28 22 30 30 22 29 |("C019"),.("00")|
00000410: 20 20 3A 20 8F 20 20 41 55 46 20 52 4F 55 54 49 | : . AUF ROUTI|
00000420: 4E 45 20 41 42 20 24 31 33 30 30 20 4C 45 4E 4B |NE AB $1300 LENK|
00000430: 45 4E 00 70 20 11 00 97 20 D1 28 22 43 30 33 32 |EN.p ... .("C032|
00000440: 22 29 2C D1 28 22 30 38 22 29 20 20 3A 20 8F 20 |"),.("08") : . |
00000450: 20 56 45 4B 54 4F 52 20 46 55 45 52 20 4E 4F 52 | VEKTOR FUER NOR|
00000460: 4D 41 4C 45 20 49 52 51 2D 52 4F 55 54 49 4E 45 |MALE IRQ-ROUTINE|
00000470: 00 AA 20 12 00 97 20 D1 28 22 43 30 33 33 22 29 |.. ... .("C033")|
00000480: 2C D1 28 22 31 33 22 29 20 20 3A 20 8F 20 20 41 |,.("13") : . A|
00000490: 55 46 20 52 4F 55 54 49 4E 45 20 41 42 20 24 31 |UF ROUTINE AB $1|
000004A0: 33 30 38 20 4C 45 4E 4B 45 4E 00 E3 20 13 00 9E |308 LENKEN.. ...|
000004B0: D1 28 22 31 33 31 30 22 29 20 20 20 20 20 20 20 |.("1310") |
000004C0: 20 20 20 20 20 20 20 3A 20 8F 20 20 53 4F 55 4E | : . SOUN|
000004D0: 44 20 53 54 41 52 54 45 4E 20 42 45 49 20 24 31 |D STARTEN BEI $1|
000004E0: 33 31 30 00 00 00 |310... |
..8.... IDEE & AUSFUEHRUNG VON DIET
MAR HELIOS ......... "A9","3E"
: . 1300 LDA #$3E ; BANK 0 & I
/O-BEREICH.C.... "8D","00","FF"
: . 1302 STA $FF00 ; EINSCHALTEN.....
. "4C","1F","C0" : . 1305 JMP
$C01F ; ZURUECK IN SOUNDROUTINE.M.... "
A9","00" : . 1308 LDA #$0
0 ; BANK 15...... "8D","00","FF"
: . 130A STA $FF00 ; EINSCHALTEN.W
.... "4C","65","FA" : . 130D J
MP $FA65 ; NORMALE IRQ-ROUTINE.!.... "A
9","3E" : . 1310 LDA #$3E
; BANK 0 & I/O-BEREICH.B.... "8D","00
","FF" : . 1312 STA $FF00 ; E
INSCHALTEN...... "20","00","C0"
: . 1315 JSR $C000 ; SOUNDROUTINE STA
RTEN......"60" : . 1
318 RTS ; ZURUECK INS BASIC.!....
I.0 . 24 : . 25 DATAWERT
E.I.... A$ : . LESE
N...... Q("1300").I,Q(A$) : . UND AB $
1300 IN BANK 0 ABLEGEN......
: . SCHLEIFENENDE...... Q("
C014"),Q("13") : . VEKTOR FUER I/O-BER
EICH EINSCHALTEN.2 ... Q("C019"),Q("00")
: . AUF ROUTINE AB $1300 LENKEN.P ...
Q("C032"),Q("08") : . VEKTOR FUER NOR
MALE IRQ-ROUTINE.. ... Q("C033"),Q("13")
: . AUF ROUTINE AB $1308 LENKEN.. ...
Q("1310") : . SOUND STARTE
N BEI $1310...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL