LISTING5
FILE INFORMATION
FILENAME(S): LISTING5
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 01:13:04
APPEARS ON: 1 disk(s)
FILE HASH
1f14ed129e2817dd820a4f1fe41702935b0a7e7f4b2fb0df938de8901f5dda06
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10307 SEITE A | LISTING5 | PRG | C64er | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 33 08 0A 00 9E 39 AC 34 30 39 36 3A 2E 4F |..3....9.4096:.O| 00000010: 50 54 20 4F 4F 20 20 20 20 20 20 20 20 20 20 3B |PT OO ;| 00000020: 20 41 53 53 45 4D 42 4C 45 52 20 41 55 46 52 55 | ASSEMBLER AUFRU| 00000030: 46 45 4E 00 39 08 0B 00 3A 00 6F 08 0C 00 53 20 |FEN.9...:.o...S | 00000040: B2 20 35 34 32 37 32 20 20 20 20 20 20 20 20 20 |. 54272 | 00000050: 20 20 20 20 20 20 20 20 20 3B 20 42 41 53 49 53 | ; BASIS| 00000060: 41 44 52 45 53 53 45 20 44 45 53 20 53 49 44 00 |ADRESSE DES SID.| 00000070: 75 08 0F 00 3A 00 BF 08 14 00 4A 53 52 20 24 42 |u...:.....JSR $B| 00000080: 37 46 31 3A 53 54 58 20 53 54 49 4D 4D 45 20 20 |7F1:STX STIMME | 00000090: 20 20 20 20 20 3B 20 4E 55 4D 4D 45 52 20 44 45 | ; NUMMER DE| 000000A0: 52 20 53 54 49 4D 4D 45 20 49 4E 20 27 53 54 49 |R STIMME IN 'STI| 000000B0: 4D 4D 45 27 20 53 43 48 52 45 49 42 45 4E 2E 00 |MME' SCHREIBEN..| 000000C0: C5 08 15 00 3A 00 01 09 16 00 4A 53 52 20 24 42 |....:.....JSR $B| 000000D0: 37 46 31 3A 53 54 58 20 A4 4E 4C 4F 20 20 20 20 |7F1:STX .NLO | 000000E0: 20 20 20 20 3B 20 4C 4F 57 AB 42 59 54 45 20 44 | ; LOW.BYTE D| 000000F0: 45 52 20 A4 4E 48 4F 45 48 45 20 55 4E 44 2E 2E |ER .NHOEHE UND..| 00000100: 2E 00 3E 09 18 00 4A 53 52 20 24 42 37 46 31 3A |..>...JSR $B7F1:| 00000110: 53 54 58 20 A4 4E 48 49 20 20 20 20 20 20 20 20 |STX .NHI | 00000120: 3B 20 2E 2E 2E 48 49 47 48 AB 42 59 54 45 20 48 |; ...HIGH.BYTE H| 00000130: 4F C3 20 55 4E 44 20 4D 45 52 4B 45 4E 2E 00 44 |O. UND MERKEN..D| 00000140: 09 1A 00 3A 00 80 09 1C 00 4A 53 52 20 24 42 37 |...:.....JSR $B7| 00000150: 46 31 3A 53 54 58 20 50 55 4C 53 45 4C 4F 20 20 |F1:STX PULSELO | 00000160: 20 20 20 20 3B 20 4C 4F 57 AB 2C 20 55 4E 44 20 | ; LOW., UND | 00000170: 48 49 47 48 AB 42 59 54 45 20 44 45 53 2E 2E 2E |HIGH.BYTE DES...| 00000180: 00 C7 09 1E 00 4A 53 52 20 24 42 37 46 31 3A 53 |.....JSR $B7F1:S| 00000190: 54 58 20 50 55 4C 53 45 48 49 20 20 20 20 20 20 |TX PULSEHI | 000001A0: 3B 20 2E 2E 2E 54 41 53 54 56 45 52 48 41 45 4C |; ...TASTVERHAEL| 000001B0: 54 4E 49 53 53 45 53 20 48 4F C3 20 55 4E 44 20 |TNISSES HO. UND | 000001C0: 4D 45 52 4B 45 4E 2E 00 CD 09 20 00 3A 00 1E 0A |MERKEN.... .:...| 000001D0: 22 00 4C 44 59 20 53 54 49 4D 4D 45 3A 4C 44 58 |".LDY STIMME:LDX| 000001E0: 20 52 45 47 49 53 54 45 52 2C 59 20 20 3B 20 4A | REGISTER,Y ; J| 000001F0: 45 20 4E 41 43 48 20 53 54 49 4D 4D 45 4E AB 4E |E NACH STIMMEN.N| 00000200: 52 2E 20 30 2C 20 37 20 4F 44 45 52 20 31 34 20 |R. 0, 7 ODER 14 | 00000210: 49 4E 53 20 58 AB 52 45 47 49 53 54 45 52 00 5E |INS X.REGISTER.^| 00000220: 0A 24 00 4C 44 41 20 A4 4E 4C 4F 3A 53 54 41 20 |.$.LDA .NLO:STA | 00000230: 53 AA 30 2C 58 20 20 20 20 20 20 20 20 3B 20 4C |S.0,X ; L| 00000240: 4F 57 AB 42 59 54 45 20 44 45 52 20 A4 4E 48 4F |OW.BYTE DER .NHO| 00000250: 45 48 45 20 49 4E 20 44 45 4E 20 53 49 44 00 9F |EHE IN DEN SID..| 00000260: 0A 25 00 4C 44 41 20 A4 4E 48 49 3A 53 54 41 20 |.%.LDA .NHI:STA | 00000270: 53 AA 31 2C 58 20 20 20 20 20 20 20 20 3B 20 48 |S.1,X ; H| 00000280: 49 47 48 AB 42 59 54 45 20 44 45 52 20 A4 4E 48 |IGH.BYTE DER .NH| 00000290: 4F 45 48 45 20 49 4E 20 44 45 4E 20 53 49 44 00 |OEHE IN DEN SID.| 000002A0: CD 0A 26 00 4C 44 41 20 50 55 4C 53 45 4C 4F 3A |..&.LDA PULSELO:| 000002B0: 53 54 41 20 53 AA 32 2C 58 20 20 20 20 20 20 3B |STA S.2,X ;| 000002C0: 20 50 55 4C 53 45 AB 4C 4F 57 2E 2E 2E 00 0B 0B | PULSE.LOW......| 000002D0: 27 00 4C 44 41 20 50 55 4C 53 45 48 49 3A 53 54 |'.LDA PULSEHI:ST| 000002E0: 41 20 53 AA 33 2C 58 20 20 20 20 20 20 3B 20 2E |A S.3,X ; .| 000002F0: 2E 2E 55 4E 44 20 48 49 47 48 AB 42 59 54 45 20 |..UND HIGH.BYTE | 00000300: 45 42 45 4E 46 41 4C 4C 53 20 21 00 11 0B 28 00 |EBENFALLS !...(.| 00000310: 3A 00 4C 0B 2A 00 52 54 53 20 20 20 20 20 20 20 |:.L.*.RTS | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330: 20 3B 20 2E 2E 2E 55 4E 44 20 5A 55 52 55 45 43 | ; ...UND ZURUEC| 00000340: 4B 20 5A 55 4D 20 42 41 53 49 43 2E 00 52 0B 2B |K ZUM BASIC..R.+| 00000350: 00 3A 00 58 0B 2C 00 3A 00 A4 0B 31 00 52 45 47 |.:.X.,.:...1.REG| 00000360: 49 53 54 45 52 20 2E 42 59 54 20 30 2C 37 2C 31 |ISTER .BYT 0,7,1| 00000370: 34 20 20 20 20 20 20 20 3B 20 57 45 52 54 45 2C |4 ; WERTE,| 00000380: 20 44 49 45 20 5A 55 20 44 45 4E 20 52 45 47 49 | DIE ZU DEN REGI| 00000390: 53 54 45 52 4E 20 41 44 44 49 45 52 54 20 57 45 |STERN ADDIERT WE| 000003A0: 52 44 45 4E 00 AA 0B 32 00 3A 00 EF 0B 33 00 53 |RDEN...2.:...3.S| 000003B0: 54 49 4D 4D 45 20 2E 42 59 54 20 30 20 20 20 20 |TIMME .BYT 0 | 000003C0: 20 20 20 20 20 20 20 20 20 20 3B 20 5A 57 49 53 | ; ZWIS| 000003D0: 43 48 45 4E 53 50 45 49 43 48 45 52 20 46 55 45 |CHENSPEICHER FUE| 000003E0: 52 20 44 49 45 20 53 54 49 4D 4D 45 2E 2E 2E 00 |R DIE STIMME....| 000003F0: 2C 0C 34 00 A4 4E 4C 4F 20 2E 42 59 54 20 30 20 |,.4..NLO .BYT 0 | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 | ; | 00000410: 2E 2E 2E 46 55 45 52 20 44 49 45 20 A4 4E 48 4F |...FUER DIE .NHO| 00000420: 45 48 45 20 28 4C 4F 57 29 2E 2E 2E 00 5B 0C 35 |EHE (LOW)....[.5| 00000430: 00 A4 4E 48 49 20 2E 42 59 54 20 30 20 20 20 20 |..NHI .BYT 0 | 00000440: 20 20 20 20 20 20 20 20 20 20 20 3B 20 2E 2E 2E | ; ...| 00000450: 55 4E 44 20 48 49 47 48 2E 2E 2E 00 A3 0C 36 00 |UND HIGH......6.| 00000460: 50 55 4C 53 45 4C 4F 20 2E 42 59 54 20 30 20 20 |PULSELO .BYT 0 | 00000470: 20 20 20 20 20 20 20 20 20 20 20 3B 20 2E 2E 2E | ; ...| 00000480: 55 4E 44 20 46 55 45 52 20 44 41 53 20 54 41 53 |UND FUER DAS TAS| 00000490: 54 56 45 52 48 41 45 4C 54 4E 49 53 20 4C 4F 57 |TVERHAELTNIS LOW| 000004A0: 2E 2E 2E 00 D6 0C 37 00 50 55 4C 53 45 48 49 20 |......7.PULSEHI | 000004B0: 2E 42 59 54 20 30 20 20 20 20 20 20 20 20 20 20 |.BYT 0 | 000004C0: 20 20 20 3B 20 2E 2E 2E 55 4E 44 20 48 49 47 48 | ; ...UND HIGH| 000004D0: AB 42 59 54 45 2E 00 DC 0C 38 00 3A 00 00 00 |.BYTE....8.:... |
..3....9.4096:.OPT OO ; ASSEMBL
ER AUFRUFEN.9...:.O...S . 54272
; BASISADRESSE DES SID.U...:...
..JSR $B7F1:STX STIMME ; NUMMER DE
R STIMME IN 'STIMME' SCHREIBEN..E...:...
..JSR $B7F1:STX .NLO ; LOW.BYTE D
ER .NHOEHE UND....>...JSR $B7F1:STX .NHI
; ...HIGH.BYTE HOC UND MERKEN..D
...:.....JSR $B7F1:STX PULSELO ; LO
W., UND HIGH.BYTE DES....G...JSR $B7F1:S
TX PULSEHI ; ...TASTVERHAELTNISSES
HOC UND MERKEN..M. .:...".LDY STIMME:LDX
REGISTER,Y ; JE NACH STIMMEN.NR. 0, 7
ODER 14 INS X.REGISTER.^.$.LDA .NLO:STA
S.0,X ; LOW.BYTE DER .NHOEHE IN D
EN SID...%.LDA .NHI:STA S.1,X ; H
IGH.BYTE DER .NHOEHE IN DEN SID.M.&.LDA
PULSELO:STA S.2,X ; PULSE.LOW......
'.LDA PULSEHI:STA S.3,X ; ...UND HI
GH.BYTE EBENFALLS !...(.:.L.*.RTS
; ...UND ZURUECK ZUM BA
SIC..R.+.:.X.,.:...1.REGISTER .BYT 0,7,1
4 ; WERTE, DIE ZU DEN REGISTERN AD
DIERT WERDEN...2.:...3.STIMME .BYT 0
; ZWISCHENSPEICHER FUER DIE ST
IMME....,.4..NLO .BYT 0 ;
...FUER DIE .NHOEHE (LOW)....[.5..NHI .B
YT 0 ; ...UND HIGH......6.
PULSELO .BYT 0 ; ...UND FUER
DAS TASTVERHAELTNIS LOW....V.7.PULSEHI
.BYT 0 ; ...UND HIGH.BYTE...
.8.:...
> CLICK IMAGE PREVIEW FOR FULL MODAL