LISTING2

FILE INFORMATION

FILENAME(S): LISTING2

FILE TYPE(S): PRG

FILE SIZE: 1000b

FIRST SEEN: 2025-11-30 01:13:04

APPEARS ON: 1 disk(s)

FILE HASH

d1e923aa1d0b47eb8af8b8572fae3ed91315294e2d8d41343f0fdf76ae4a741d

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10307 SEITE A	LISTING2	PRG	C64er	30	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 18 08 0A 00 3B 20  AC AC 20 56 49 42 52 41  |......; .. VIBRA|
00000010: A4 20 4D 43 50 20 AC AC  00 1E 08 0B 00 3A 00 53  |. MCP .......:.S|
00000020: 08 0C 00 56 49 42 4D 43  50 20 4C 44 58 20 23 32  |...VIBMCP LDX #2|
00000030: 20 3B 46 55 45 52 20 41  4C 4C 45 20 44 52 45 49  | ;FUER ALLE DREI|
00000040: 20 53 54 49 4D 4D 45 4E  20 41 55 53 46 55 45 48  | STIMMEN AUSFUEH|
00000050: 52 45 4E 00 81 08 0E 00  56 49 42 35 20 4C 44 41  |REN.....VIB5 LDA|
00000060: 20 44 45 4C 41 59 2C 58  20 3B 44 45 4C 41 59 AB  | DELAY,X ;DELAY.|
00000070: 5A 45 49 54 20 4C 41 44  45 4E 20 55 4E 44 20 2E  |ZEIT LADEN UND .|
00000080: 2E 00 B4 08 10 00 42 45  51 20 56 49 42 31 3A 44  |......BEQ VIB1:D|
00000090: 45 43 20 44 45 4C 41 59  2C 58 20 3B 2E 2E 20 42  |EC DELAY,X ;.. B|
000000A0: 45 49 20 B1 20 30 20 56  45 52 4D 49 4E 44 45 52  |EI . 0 VERMINDER|
000000B0: 4E 20 2E 2E 00 CC 08 12  00 4A 4D 50 20 56 49 42  |N .......JMP VIB|
000000C0: 32 20 3B 2E 2E 20 55 4E  44 20 80 45 00 15 09 14  |2 ;.. UND .E....|
000000D0: 00 56 49 42 31 20 44 45  43 20 56 49 5A 41 45 2C  |.VIB1 DEC VIZAE,|
000000E0: 58 3A 42 4E 45 20 56 49  42 33 20 3B 20 53 91 53  |X:BNE VIB3 ; S.S|
000000F0: 54 20 5A 41 45 48 4C 45  52 20 AB 31 20 55 4E 44  |T ZAEHLER .1 UND|
00000100: 20 42 45 49 20 B3 B1 20  30 20 A4 4E 20 56 45 52  | BEI .. 0 .N VER|
00000110: 41 80 45 52 4E 00 53 09  16 00 4C 44 41 20 4C 45  |A.ERN.S...LDA LE|
00000120: 56 45 4C 2C 58 3A 45 B0  20 23 24 46 46 3A 53 54  |VEL,X:E. #$FF:ST|
00000130: 41 20 4C 45 56 45 4C 2C  58 20 3B 53 91 53 54 20  |A LEVEL,X ;S.ST |
00000140: 52 49 43 48 54 55 4E 47  20 57 45 43 48 53 45 4C  |RICHTUNG WECHSEL|
00000150: 4E 2E 2E 00 97 09 18 00  4C 44 41 20 53 50 45 45  |N.......LDA SPEE|
00000160: 44 2C 58 3A 53 54 41 20  56 49 5A 41 45 2C 58 20  |D,X:STA VIZAE,X |
00000170: 3B 2E 2E 55 4E 44 20 5A  41 45 48 4C 45 52 20 57  |;..UND ZAEHLER W|
00000180: 49 45 44 45 52 20 41 55  46 20 41 4E 46 41 4E 47  |IEDER AUF ANFANG|
00000190: 20 53 45 54 5A 45 4E 00  D8 09 1A 00 56 49 42 33  | SETZEN.....VIB3|
000001A0: 20 4C 44 41 20 4C 45 56  45 4C 2C 58 3A 42 50 4C  | LDA LEVEL,X:BPL|
000001B0: 20 56 49 42 34 20 3B 52  49 43 48 54 55 4E 20 4E  | VIB4 ;RICHTUN N|
000001C0: 41 43 48 20 4F 42 45 4E  AB B1 20 4A 41 3A 20 4E  |ACH OBEN.. JA: N|
000001D0: 41 43 48 20 56 49 42 34  00 FB 09 1C 00 45 B0 20  |ACH VIB4.....E. |
000001E0: 23 24 46 46 3A 53 54 41  20 32 20 3B 53 91 53 54  |#$FF:STA 2 ;S.ST|
000001F0: 20 4C 45 56 45 4C 20 56  91 2E 2E 00 2F 0A 1E 00  | LEVEL V..../...|
00000200: 4C 44 41 20 54 4C 4F 2C  58 3A 53 45 43 3A 53 42  |LDA TLO,X:SEC:SB|
00000210: 43 20 32 3A 53 54 41 20  54 4C 4F 2C 58 20 3B 2E  |C 2:STA TLO,X ;.|
00000220: 2E 54 4C 4F 20 55 4E 44  20 54 48 49 20 2E 2E 00  |.TLO UND THI ...|
00000230: 5C 0A 20 00 4C 44 41 20  54 48 49 2C 58 3A 53 42  |\. .LDA THI,X:SB|
00000240: 43 20 23 30 3A 53 54 41  20 54 48 49 2C 58 20 3B  |C #0:STA THI,X ;|
00000250: 2E 2E 41 42 5A 49 45 48  45 4E 2E 2E 00 77 0A 22  |..ABZIEHEN...w."|
00000260: 00 4A 4D 50 20 56 49 42  32 20 3B 2E 2E 55 4E 44  |.JMP VIB2 ;..UND|
00000270: 20 5A 55 4D 20 80 45 00  BC 0A 24 00 56 49 42 34  | ZUM .E...$.VIB4|
00000280: 20 4C 44 41 20 54 4C 4F  2C 58 3A 43 4C 43 3A 41  | LDA TLO,X:CLC:A|
00000290: 44 43 20 4C 45 56 45 4C  2C 58 3A 53 54 41 20 54  |DC LEVEL,X:STA T|
000002A0: 4C 4F 2C 58 20 3B 4C 45  56 45 4C 20 5A 55 20 54  |LO,X ;LEVEL ZU T|
000002B0: 4C 4F 20 55 4E 44 20 54  48 49 2E 2E 00 E7 0A 26  |LO UND THI.....&|
000002C0: 00 4C 44 41 20 54 48 49  2C 58 3A 41 44 43 20 23  |.LDA THI,X:ADC #|
000002D0: 30 3A 53 54 41 20 54 48  49 2C 58 20 3B 2E 2E 41  |0:STA THI,X ;..A|
000002E0: 44 44 49 45 52 45 4E 00  1F 0B 28 00 56 49 42 32  |DDIEREN...(.VIB2|
000002F0: 20 44 45 58 3A 42 50 4C  20 56 49 42 35 3A 52 54  | DEX:BPL VIB5:RT|
00000300: 53 20 3B 20 4E 41 45 43  48 53 54 45 20 53 54 49  |S ; NAECHSTE STI|
00000310: 4D 4D 45 20 2E 2E 2E 20  4F 44 45 52 20 80 45 00  |MME ... ODER .E.|
00000320: 25 0B 2A 00 3A 00 46 0B  32 00 44 45 4C 41 59 20  |%.*.:.F.2.DELAY |
00000330: 2E 42 59 54 20 30 2C 30  2C 30 20 3B 44 45 4C 41  |.BYT 0,0,0 ;DELA|
00000340: 59 AB 5A 45 49 54 00 6B  0B 34 00 56 49 5A 41 45  |Y.ZEIT.k.4.VIZAE|
00000350: 20 2E 42 59 54 20 30 2C  30 2C 30 20 3B B5 45 52  | .BYT 0,0,0 ;.ER|
00000360: 4E 45 52 20 5A 41 45 48  4C 45 52 00 87 0B 36 00  |NER ZAEHLER...6.|
00000370: 4C 45 56 45 4C 20 2E 42  59 54 20 30 2C 30 2C 30  |LEVEL .BYT 0,0,0|
00000380: 20 3B 4C 45 56 45 4C 00  A3 0B 38 00 53 50 45 45  | ;LEVEL...8.SPEE|
00000390: 44 20 2E 42 59 54 20 30  2C 30 2C 30 20 3B 53 50  |D .BYT 0,0,0 ;SP|
000003A0: 45 45 44 00 C4 0B 3A 00  54 4C 4F 20 20 20 2E 42  |EED...:.TLO   .B|
000003B0: 59 54 20 30 2C 30 2C 30  20 3B A4 4E 48 4F 45 48  |YT 0,0,0 ;.NHOEH|
000003C0: 45 20 4C 4F 00 E5 0B 3C  00 54 48 49 20 20 20 2E  |E LO...<.THI   .|
000003D0: 42 59 54 20 30 2C 30 2C  30 20 3B A4 4E 48 4F 45  |BYT 0,0,0 ;.NHOE|
000003E0: 48 45 20 48 49 00 00 00                           |HE HI...        |

......; .. VIBRA. MCP .......:.S...VIBMC
P LDX #2 ;FUER ALLE DREI STIMMEN AUSFUEH
REN.....VIB5 LDA DELAY,X ;DELAY.ZEIT LAD
EN UND .......BEQ VIB1:DEC DELAY,X ;.. B
EI . 0 VERMINDERN ...L...JMP VIB2 ;.. UN
D .E.....VIB1 DEC VIZAE,X:BNE VIB3 ; S.S
T ZAEHLER .1 UND BEI .. 0 .N VERA.ERN.S.
..LDA LEVEL,X:E. #$FF:STA LEVEL,X ;S.ST 
RICHTUNG WECHSELN.......LDA SPEED,X:STA 
VIZAE,X ;..UND ZAEHLER WIEDER AUF ANFANG
 SETZEN.X...VIB3 LDA LEVEL,X:BPL VIB4 ;R
ICHTUN NACH OBEN.. JA: NACH VIB4.....E. 
#$FF:STA 2 ;S.ST LEVEL V..../...LDA TLO,
X:SEC:SBC 2:STA TLO,X ;..TLO UND THI ...
\. .LDA THI,X:SBC #0:STA THI,X ;..ABZIEH
EN...W.".JMP VIB2 ;..UND ZUM .E...$.VIB4
 LDA TLO,X:CLC:ADC LEVEL,X:STA TLO,X ;LE
VEL ZU TLO UND THI.....&.LDA THI,X:ADC #
0:STA THI,X ;..ADDIEREN...(.VIB2 DEX:BPL
 VIB5:RTS ; NAECHSTE STIMME ... ODER .E.
%.*.:.F.2.DELAY .BYT 0,0,0 ;DELAY.ZEIT.K
.4.VIZAE .BYT 0,0,0 ;.ERNER ZAEHLER...6.
LEVEL .BYT 0,0,0 ;LEVEL...8.SPEED .BYT 0
,0,0 ;SPEED.D.:.TLO   .BYT 0,0,0 ;.NHOEH
E LO...<.THI   .BYT 0,0,0 ;.NHOEHE HI...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL