_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

LISTING3

FILE INFORMATION

FILENAME(S): LISTING3

FILE TYPE(S): PRG

FILE SIZE: 1.4K

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

APPEARS ON: 1 disk(s)

FILE HASH

58f500688c9a67c1f0124e57750717dc3cbb1108f573c18646031d3c07765902

FOUND ON DISKS (1 DISKS)

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

FILE CONTENT & ANALYSIS

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

00000000: 01 08 16 08 0A 00 3B AC  AC 20 50 55 4C 53 45 20  |......;.. PULSE |
00000010: 4D 43 50 20 AC AC 00 1C  08 0B 00 3A 00 56 08 0C  |MCP .......:.V..|
00000020: 00 50 55 4C 53 45 20 4C  44 58 20 23 32 20 3B 50  |.PULSE LDX #2 ;P|
00000030: 55 4C 53 45 20 46 55 45  52 20 41 4C 4C 45 20 44  |ULSE FUER ALLE D|
00000040: 52 45 49 20 53 54 49 4D  4D 45 4E 20 41 55 53 46  |REI STIMMEN AUSF|
00000050: 55 45 48 52 45 4E 00 A7  08 0D 00 50 55 4C 34 20  |UEHREN.....PUL4 |
00000060: 44 45 43 20 50 55 4C 53  5A 2C 58 3A 42 4E 45 20  |DEC PULSZ,X:BNE |
00000070: 50 55 4C 31 3B 41 4E 5A  41 48 4C 20 44 45 52 20  |PUL1;ANZAHL DER |
00000080: 55 45 42 52 49 47 45 4E  20 53 43 48 52 49 54 54  |UEBRIGEN SCHRITT|
00000090: 45 20 AB 31 2C 20 42 45  49 20 B3 B1 30 20 4E 41  |E .1, BEI ..0 NA|
000000A0: 43 48 20 50 55 4C 31 00  E6 08 0E 00 4C 44 41 20  |CH PUL1.....LDA |
000000B0: 23 31 3A 53 54 41 20 50  55 4C 53 5A 2C 58 20 3B  |#1:STA PULSZ,X ;|
000000C0: 42 45 49 4D 20 4E 41 45  43 48 53 54 45 4E 20 41  |BEIM NAECHSTEN A|
000000D0: 55 46 52 55 46 20 50 55  4C 53 5A 20 4E 45 55 20  |UFRUF PULSZ NEU |
000000E0: 53 45 54 5A 45 4E 00 2B  09 10 00 4C 44 41 20 50  |SETZEN.+...LDA P|
000000F0: 55 4C 53 45 43 42 2C 58  3A 42 50 4C 20 50 55 4C  |ULSECB,X:BPL PUL|
00000100: 4D 20 3B 42 45 49 20 4D  4F 44 45 20 B2 30 20 4D  |M ;BEI MODE .0 M|
00000110: 49 4E 44 45 53 54 45 4E  53 20 45 49 4E 45 20 53  |INDESTENS EINE S|
00000120: 43 48 57 49 4E 47 55 4E  47 2E 2E 00 60 09 12 00  |CHWINGUNG...`...|
00000130: 4C 44 41 20 50 55 4C 53  45 4D 4F 2C 58 3A 42 45  |LDA PULSEMO,X:BE|
00000140: 51 20 50 55 4C 32 20 3B  2E 2E 41 55 53 46 55 45  |Q PUL2 ;..AUSFUE|
00000150: 48 52 45 4E 20 55 4E 44  20 44 41 4E 4E 20 80 45  |HREN UND DANN .E|
00000160: 00 A5 09 14 00 50 55 4C  4D 20 4C 44 41 20 50 55  |.....PULM LDA PU|
00000170: 4C 53 45 43 42 2C 58 3A  45 B0 20 23 24 46 46 3A  |LSECB,X:E. #$FF:|
00000180: 53 54 41 20 50 55 4C 53  45 43 42 2C 58 20 3B 53  |STA PULSECB,X ;S|
00000190: 91 53 54 20 52 49 43 48  54 55 4E 47 20 57 45 43  |.ST RICHTUNG WEC|
000001A0: 48 53 45 4C 4E 00 E4 09  16 00 42 50 4C 20 50 55  |HSELN.....BPL PU|
000001B0: 4C 55 20 3B 49 53 54 20  52 49 43 48 54 55 4E 47  |LU ;IST RICHTUNG|
000001C0: 20 4E 41 43 48 20 4F 42  45 4E 3A 20 43 4F 55 4E  | NACH OBEN: COUN|
000001D0: 54 55 50 20 49 4E 20 5A  41 45 48 4C 45 52 20 4C  |TUP IN ZAEHLER L|
000001E0: 41 44 45 4E 00 20 0A 18  00 4C 44 41 20 50 55 4C  |ADEN. ...LDA PUL|
000001F0: 53 45 43 44 2C 58 3A 4A  4D 50 20 50 55 4C 43 20  |SECD,X:JMP PULC |
00000200: 3B 53 91 53 54 20 43 4F  55 4E 54 44 4F 57 4E 20  |;S.ST COUNTDOWN |
00000210: 49 4E 20 5A 41 45 48 4C  45 52 20 4C 41 44 45 4E  |IN ZAEHLER LADEN|
00000220: 00 3F 0A 1A 00 50 55 4C  55 20 4C 44 41 20 50 55  |.?...PULU LDA PU|
00000230: 4C 53 45 43 55 2C 58 20  3B 53 2E 5A 2E 32 32 00  |LSECU,X ;S.Z.22.|
00000240: 85 0A 1C 00 50 55 4C 43  20 53 54 41 20 50 55 4C  |....PULC STA PUL|
00000250: 53 45 5A 2C 58 3A 4A 4D  50 20 50 55 4C 32 20 3B  |SEZ,X:JMP PUL2 ;|
00000260: 45 4E 54 53 50 52 45 43  48 80 45 20 47 52 4F 45  |ENTSPRECH.E GROE|
00000270: 53 53 45 20 49 4E 20 5A  41 45 48 4C 45 52 20 55  |SSE IN ZAEHLER U|
00000280: 4E 44 20 80 45 00 C5 0A  1E 00 50 55 4C 31 20 4C  |ND .E.....PUL1 L|
00000290: 44 41 20 50 55 4C 53 45  43 42 2C 58 3A 42 50 4C  |DA PULSECB,X:BPL|
000002A0: 20 50 55 4C 33 20 3B 49  53 54 20 43 4F 55 4E 54  | PUL3 ;IST COUNT|
000002B0: 42 59 54 45 20 B9 49 54  49 56 3A 20 4E 41 43 48  |BYTE .ITIV: NACH|
000002C0: 20 50 55 4C 33 00 F6 0A  20 00 45 B0 20 23 24 46  | PUL3... .E. #$F|
000002D0: 46 3A 53 54 41 20 32 3A  4C 44 41 20 50 55 4C 53  |F:STA 2:LDA PULS|
000002E0: 45 4C 4F 2C 58 20 3B 43  4F 55 4E 54 42 59 54 45  |ELO,X ;COUNTBYTE|
000002F0: 20 56 91 20 2E 2E 00 24  0B 22 00 53 45 43 3A 53  | V. ...$.".SEC:S|
00000300: 42 43 20 32 3A 53 54 41  20 50 55 4C 53 45 4C 4F  |BC 2:STA PULSELO|
00000310: 2C 58 20 3B 2E 2E 50 55  4C 53 45 4C 4F 20 55 4E  |,X ;..PULSELO UN|
00000320: 44 20 2E 2E 00 5F 0B 24  00 4C 44 41 20 50 55 4C  |D ..._.$.LDA PUL|
00000330: 53 45 48 49 2C 58 3A 53  42 43 20 23 30 3A 53 54  |SEHI,X:SBC #0:ST|
00000340: 41 20 50 55 4C 53 45 48  49 2C 58 20 3B 2E 2E 50  |A PULSEHI,X ;..P|
00000350: 55 4C 53 45 48 49 20 41  42 5A 49 45 48 45 4E 00  |ULSEHI ABZIEHEN.|
00000360: 74 0B 26 00 4A 4D 50 20  50 55 4C 32 20 3B 55 4E  |t.&.JMP PUL2 ;UN|
00000370: 44 20 80 45 00 C3 0B 28  00 50 55 4C 33 20 4C 44  |D .E...(.PUL3 LD|
00000380: 41 20 50 55 4C 53 45 4C  4F 2C 58 3A 43 4C 43 3A  |A PULSELO,X:CLC:|
00000390: 41 44 43 20 50 55 4C 53  45 43 42 2C 58 3A 53 54  |ADC PULSECB,X:ST|
000003A0: 41 20 50 55 4C 53 45 4C  4F 2C 58 20 3B 43 4F 55  |A PULSELO,X ;COU|
000003B0: 4E 54 42 59 54 45 20 5A  55 20 50 55 4C 53 45 4C  |NTBYTE ZU PULSEL|
000003C0: 4F 2E 2E 00 02 0C 2A 00  4C 44 41 20 50 55 4C 53  |O.....*.LDA PULS|
000003D0: 45 48 49 2C 58 3A 41 44  43 20 23 30 3A 53 54 41  |EHI,X:ADC #0:STA|
000003E0: 20 50 55 4C 53 45 48 49  2C 58 20 3B 2E 2E 55 4E  | PULSEHI,X ;..UN|
000003F0: 44 20 50 55 4C 53 45 48  49 20 41 44 44 49 45 52  |D PULSEHI ADDIER|
00000400: 45 4E 00 35 0C 2C 00 50  55 4C 32 20 44 45 58 3A  |EN.5.,.PUL2 DEX:|
00000410: 42 50 4C 20 50 55 4C 34  3A 52 54 53 20 3B 4E 41  |BPL PUL4:RTS ;NA|
00000420: 45 43 48 53 54 45 20 53  54 49 4D 4D 45 20 4F 44  |ECHSTE STIMME OD|
00000430: 45 52 20 80 45 00 3B 0C  2D 00 3A 00 69 0C 2E 00  |ER .E.;.-.:.i...|
00000440: 50 55 4C 53 5A 20 2E 42  59 54 20 30 2C 30 2C 30  |PULSZ .BYT 0,0,0|
00000450: 20 20 20 3B 5A 41 45 48  4C 45 52 20 46 55 45 52  |   ;ZAEHLER FUER|
00000460: 20 52 49 43 48 54 55 4E  47 00 93 0C 30 00 50 55  | RICHTUNG...0.PU|
00000470: 4C 53 45 43 42 20 2E 42  59 54 20 30 2C 30 2C 30  |LSECB .BYT 0,0,0|
00000480: 20 3B 43 4F 55 4E 54 42  59 54 45 20 28 53 50 45  | ;COUNTBYTE (SPE|
00000490: 45 44 29 00 C3 0C 32 00  50 55 4C 53 45 4D 4F 20  |ED)...2.PULSEMO |
000004A0: 2E 42 59 54 20 30 2C 30  2C 30 20 3B 4D 4F 44 45  |.BYT 0,0,0 ;MODE|
000004B0: 20 28 30 B2 45 49 4E 4D  41 4C AD 31 B2 49 4D 4D  | (0.EINMAL.1.IMM|
000004C0: 45 52 29 00 F2 0C 34 00  50 55 4C 53 45 43 44 20  |ER)...4.PULSECD |
000004D0: 2E 42 59 54 20 30 2C 30  2C 30 20 3B 43 4F 55 4E  |.BYT 0,0,0 ;COUN|
000004E0: 54 44 4F 57 4E 20 28 4C  45 56 45 4C 20 44 4F 57  |TDOWN (LEVEL DOW|
000004F0: 4E 29 00 1F 0D 36 00 50  55 4C 53 45 43 55 20 2E  |N)...6.PULSECU .|
00000500: 42 59 54 20 30 2C 30 2C  30 20 3B 43 4F 55 4E 54  |BYT 0,0,0 ;COUNT|
00000510: 55 50 20 20 20 28 4C 45  56 45 4C 20 55 50 29 00  |UP   (LEVEL UP).|
00000520: 54 0D 38 00 50 55 4C 53  45 4C 4F 20 2E 42 59 54  |T.8.PULSELO .BYT|
00000530: 20 30 2C 30 2C 30 20 3B  4C 4F 57 20 55 4E 44 20  | 0,0,0 ;LOW UND |
00000540: 48 49 47 48 42 59 54 45  20 44 45 53 20 50 55 4C  |HIGHBYTE DES PUL|
00000550: 53 45 2E 2E 00 81 0D 3A  00 50 55 4C 53 45 48 49  |SE.....:.PULSEHI|
00000560: 20 2E 42 59 54 20 30 2C  30 2C 30 20 3B 57 49 52  | .BYT 0,0,0 ;WIR|
00000570: 44 20 49 4E 20 44 45 4E  20 53 49 44 20 47 45 97  |D IN DEN SID GE.|
00000580: 44 00 00 00                                       |D...            |

......;.. PULSE MCP .......:.V...PULSE L
DX #2 ;PULSE FUER ALLE DREI STIMMEN AUSF
UEHREN.....PUL4 DEC PULSZ,X:BNE PUL1;ANZ
AHL DER UEBRIGEN SCHRITTE .1, BEI ..0 NA
CH PUL1.....LDA #1:STA PULSZ,X ;BEIM NAE
CHSTEN AUFRUF PULSZ NEU SETZEN.+...LDA P
ULSECB,X:BPL PULM ;BEI MODE .0 MINDESTEN
S EINE SCHWINGUNG...`...LDA PULSEMO,X:BE
Q PUL2 ;..AUSFUEHREN UND DANN .E.....PUL
M LDA PULSECB,X:E. #$FF:STA PULSECB,X ;S
.ST RICHTUNG WECHSELN.....BPL PULU ;IST 
RICHTUNG NACH OBEN: COUNTUP IN ZAEHLER L
ADEN. ...LDA PULSECD,X:JMP PULC ;S.ST CO
UNTDOWN IN ZAEHLER LADEN.?...PULU LDA PU
LSECU,X ;S.Z.22.....PULC STA PULSEZ,X:JM
P PUL2 ;ENTSPRECH.E GROESSE IN ZAEHLER U
ND .E.E...PUL1 LDA PULSECB,X:BPL PUL3 ;I
ST COUNTBYTE .ITIV: NACH PUL3... .E. #$F
F:STA 2:LDA PULSELO,X ;COUNTBYTE V. ...$
.".SEC:SBC 2:STA PULSELO,X ;..PULSELO UN
D ..._.$.LDA PULSEHI,X:SBC #0:STA PULSEH
I,X ;..PULSEHI ABZIEHEN.T.&.JMP PUL2 ;UN
D .E.C.(.PUL3 LDA PULSELO,X:CLC:ADC PULS
ECB,X:STA PULSELO,X ;COUNTBYTE ZU PULSEL
O.....*.LDA PULSEHI,X:ADC #0:STA PULSEHI
,X ;..UND PULSEHI ADDIEREN.5.,.PUL2 DEX:
BPL PUL4:RTS ;NAECHSTE STIMME ODER .E.;.
-.:.I...PULSZ .BYT 0,0,0   ;ZAEHLER FUER
 RICHTUNG...0.PULSECB .BYT 0,0,0 ;COUNTB
YTE (SPEED).C.2.PULSEMO .BYT 0,0,0 ;MODE
 (0.EINMAL.1.IMMER)...4.PULSECD .BYT 0,0
,0 ;COUNTDOWN (LEVEL DOWN)...6.PULSECU .
BYT 0,0,0 ;COUNTUP   (LEVEL UP).T.8.PULS
ELO .BYT 0,0,0 ;LOW UND HIGHBYTE DES PUL
SE.....:.PULSEHI .BYT 0,0,0 ;WIRD IN DEN
 SID GE.D...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL