LISTING 1
FILE INFORMATION
FILENAME(S): LISTING 1
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 1 disk(s)
FILE HASH
fa6a0de491a0fce9a2ab92127086803f7390fd31f5a730a8d39d8267c7f30c53
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 4 86 | LISTING 1 | PRG | C64er | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 2E A3 31 2C 34 2C 37 3B 49 4E |..%.....1,4,7;IN| 00000010: 20 48 59 50 52 41 2D 41 53 53 3A 20 2E 4C 49 20 | HYPRA-ASS: .LI | 00000020: 31 2C 34 2C 37 00 49 08 14 00 2E 90 24 43 30 30 |1,4,7.I.....$C00| 00000030: 30 3B 49 4E 20 48 59 50 52 41 2D 41 53 53 3A 20 |0;IN HYPRA-ASS: | 00000040: 2E 42 41 20 24 43 30 30 30 00 80 08 1E 00 3B 2A |.BA $C000.....;*| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 00 B1 08 28 00 3B 20 31 36 2D 42 49 54 53 43 48 |...(.; 16-BITSCH| 00000090: 4C 45 49 46 45 20 41 4E 57 45 4E 44 55 4E 47 20 |LEIFE ANWENDUNG | 000000A0: 3A 20 42 49 54 4D 41 50 2D 4C 4F 45 53 43 48 45 |: BITMAP-LOESCHE| 000000B0: 4E 00 E8 08 32 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |N...2.;*********| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 08 3C 00 3B 00 20 |********...<.;. | 000000F0: 09 46 00 2E 8F 53 54 41 52 54 3D 24 32 30 30 30 |.F...START=$2000| 00000100: 3B 49 4E 20 48 59 50 52 41 2D 41 53 53 3A 20 2E |;IN HYPRA-ASS: .| 00000110: 45 51 20 53 54 41 52 54 20 3D 20 24 32 30 30 30 |EQ START = $2000| 00000120: 00 51 09 50 00 2E 8F 45 4E 44 45 3D 24 33 46 33 |.Q.P...ENDE=$3F3| 00000130: 46 3B 20 20 20 2D 22 2D 20 20 20 20 20 20 20 20 |F; -"- | 00000140: 2E 45 51 20 45 4E 44 45 20 20 3D 20 24 33 46 33 |.EQ ENDE = $3F3| 00000150: 46 00 7E 09 5A 00 2E 8F 57 45 52 54 3D 24 30 30 |F.~.Z...WERT=$00| 00000160: 3B 20 20 20 2D 22 2D 20 20 20 20 20 20 20 20 20 |; -"- | 00000170: 2E 45 51 20 57 45 52 54 20 3D 20 24 30 30 00 84 |.EQ WERT = $00..| 00000180: 09 64 00 3B 00 B0 09 6E 00 3B 2D 2D 2D 2D 2D 2D |.d.;...n.;------| 00000190: 2D 2D 2D 2D 20 49 4E 49 54 49 41 4C 49 53 49 45 |---- INITIALISIE| 000001A0: 52 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |RUNG -----------| 000001B0: 00 B6 09 78 00 3B 00 D7 09 82 00 20 81 23 3C 28 |...x.;..... .#<(| 000001C0: 53 54 41 52 54 29 3B 4C 53 42 20 53 54 41 52 54 |START);LSB START| 000001D0: 41 44 52 45 53 53 45 00 F8 09 8C 00 20 84 23 3E |ADRESSE..... .#>| 000001E0: 28 53 54 41 52 54 29 3B 4D 53 42 20 53 54 41 52 |(START);MSB STAR| 000001F0: 54 41 44 52 45 53 53 45 00 1D 0A 96 00 20 82 24 |TADRESSE..... .$| 00000200: 46 41 3B 49 4E 20 56 45 4B 54 4F 52 20 24 46 41 |FA;IN VEKTOR $FA| 00000210: 2F 46 42 20 53 43 48 52 45 49 42 45 4E 00 27 0A |/FB SCHREIBEN.'.| 00000220: A0 00 20 89 24 46 42 00 2D 0A AA 00 3B 00 4D 0A |.. .$FB.-...;.M.| 00000230: B4 00 20 81 23 3C 28 45 4E 44 45 29 3B 4C 53 42 |.. .#<(ENDE);LSB| 00000240: 20 45 4E 44 41 44 52 45 53 53 45 2B 31 00 6B 0A | ENDADRESSE+1.k.| 00000250: BE 00 20 84 23 3E 28 45 4E 44 45 29 3B 4D 53 42 |.. .#>(ENDE);MSB| 00000260: 20 45 4E 44 41 44 52 45 53 53 45 00 90 0A C8 00 | ENDADRESSE.....| 00000270: 20 82 24 46 43 3B 49 4E 20 56 45 4B 54 4F 52 20 | .$FC;IN VEKTOR | 00000280: 24 46 43 2F 46 44 20 53 43 48 52 45 49 42 45 4E |$FC/FD SCHREIBEN| 00000290: 00 9A 0A D2 00 20 89 24 46 44 00 A0 0A DC 00 3B |..... .$FD.....;| 000002A0: 00 C3 0A E6 00 20 81 23 57 45 52 54 3B 45 49 4E |..... .#WERT;EIN| 000002B0: 5A 55 53 43 48 52 45 49 42 45 4E 44 45 4E 20 57 |ZUSCHREIBENDEN W| 000002C0: 45 52 54 00 E0 0A F0 00 20 82 24 46 45 3B 4E 41 |ERT..... .$FE;NA| 000002D0: 43 48 20 24 46 45 20 53 43 48 52 45 49 42 45 4E |CH $FE SCHREIBEN| 000002E0: 00 E6 0A FA 00 3B 00 08 0B 04 01 20 84 23 24 30 |.....;..... .#$0| 000002F0: 30 3B 49 4E 44 45 58 20 41 55 46 20 4E 55 4C 4C |0;INDEX AUF NULL| 00000300: 20 53 54 45 4C 4C 45 4E 00 0E 0B 0E 01 3B 00 3B | STELLEN.....;.;| 00000310: 0B 18 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 4A |...;---------- J| 00000320: 4F 42 20 41 55 53 46 55 45 48 52 45 4E 20 2D 2D |OB AUSFUEHREN --| 00000330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 41 0B 22 01 |-----------.A.".| 00000340: 3B 00 5B 0B 2C 01 4C 41 42 45 4C 20 81 24 46 45 |;.[.,.LABEL .$FE| 00000350: 3B 57 45 52 54 20 4C 41 44 45 4E 00 77 0B 36 01 |;WERT LADEN.w.6.| 00000360: 20 82 28 24 46 41 29 2C 59 3B 55 4E 44 20 45 49 | .($FA),Y;UND EI| 00000370: 4E 54 52 41 47 45 4E 00 7D 0B 40 01 3B 00 AA 0B |NTRAGEN.}.@.;...| 00000380: 4A 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 53 54 45 |J.;--------- STE| 00000390: 55 45 52 54 45 49 4C 20 2D 2D 2D 2D 2D 2D 2D 2D |UERTEIL --------| 000003A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B0 0B 54 01 3B |----------...T.;| 000003B0: 00 DD 0B 5E 01 20 8A 24 46 41 3B 4C 53 42 20 53 |...^. .$FA;LSB S| 000003C0: 54 41 52 54 20 4E 55 4E 20 41 4C 53 20 5A 41 45 |TART NUN ALS ZAE| 000003D0: 48 4C 45 52 20 45 52 48 4F 45 48 45 4E 00 05 0C |HLER ERHOEHEN...| 000003E0: 68 01 20 B7 4D 41 52 4B 45 3B 46 41 4C 4C 53 20 |h. .MARKE;FALLS | 000003F0: 4B 45 49 4E 20 55 45 42 45 52 4C 41 55 46 20 57 |KEIN UEBERLAUF W| 00000400: 45 49 54 45 52 00 2C 0C 72 01 20 8A 24 46 42 3B |EITER.,.r. .$FB;| 00000410: 53 4F 4E 53 54 20 4D 53 42 20 45 42 45 4E 46 41 |SONST MSB EBENFA| 00000420: 4C 4C 53 20 45 52 48 4F 45 48 45 4E 00 4D 0C 7C |LLS ERHOEHEN.M.|| 00000430: 01 4D 41 52 4B 45 20 81 24 46 41 3B 56 45 52 47 |.MARKE .$FA;VERG| 00000440: 4C 45 49 43 48 20 44 45 53 20 4C 53 42 00 7F 0C |LEICH DES LSB...| 00000450: 86 01 20 85 24 46 43 3B 4D 49 54 20 4C 53 42 20 |.. .$FC;MIT LSB | 00000460: 44 45 52 20 45 4E 44 41 44 52 45 53 53 45 20 28 |DER ENDADRESSE (| 00000470: 46 4C 41 47 47 45 4E 20 53 45 54 5A 45 4E 29 00 |FLAGGEN SETZEN).| 00000480: 9E 0C 90 01 20 81 24 46 42 3B 56 4F 4D 20 4D 53 |.... .$FB;VOM MS| 00000490: 42 20 44 45 53 20 5A 41 45 48 4C 45 52 53 00 D0 |B DES ZAEHLERS..| 000004A0: 0C 9A 01 20 92 24 46 44 3B 57 49 52 44 20 44 41 |... .$FD;WIRD DA| 000004B0: 53 20 4D 53 42 20 44 45 52 20 45 4E 44 41 44 52 |S MSB DER ENDADR| 000004C0: 45 53 53 45 20 53 55 42 54 52 41 48 49 45 52 54 |ESSE SUBTRAHIERT| 000004D0: 00 06 0D A4 01 20 B5 4C 41 42 45 4C 3B 5A 55 52 |..... .LABEL;ZUR| 000004E0: 55 45 43 4B 20 5A 55 4D 20 4A 4F 42 20 57 45 4E |UECK ZUM JOB WEN| 000004F0: 4E 20 5A 41 45 48 4C 45 52 20 3C 20 45 4E 44 41 |N ZAEHLER < ENDA| 00000500: 44 52 45 53 53 45 00 0C 0D AE 01 3B 00 38 0D B8 |DRESSE.....;.8..| 00000510: 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 20 41 55 53 47 41 |.;-------- AUSGA| 00000520: 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |NG -------------| 00000530: 2D 2D 2D 2D 2D 2D 2D 2D 00 3E 0D C2 01 3B 00 58 |--------.>...;.X| 00000540: 0D CC 01 20 B0 3B 53 4F 4E 53 54 20 50 52 4F 47 |... .;SONST PROG| 00000550: 52 41 4D 4D 45 4E 44 45 00 5E 0D D6 01 3B 00 84 |RAMMENDE.^...;..| 00000560: 0D E0 01 2E A4 55 2C 31 2C 34 2C 37 3B 49 4E 20 |.....U,1,4,7;IN | 00000570: 48 59 50 52 41 2D 41 53 53 3A 20 2E 53 59 20 31 |HYPRA-ASS: .SY 1| 00000580: 2C 34 2C 37 00 00 00 |,4,7... |
..%.....1,4,7;IN HYPRA-ASS: .LI 1,4,7.I.
....$C000;IN HYPRA-ASS: .BA $C000.....;*
****************************************
********...(.; 16-BITSCHLEIFE ANWENDUNG
: BITMAP-LOESCHEN...2.;*****************
********************************...<.;.
.F...START=$2000;IN HYPRA-ASS: .EQ START
= $2000.Q.P...ENDE=$3F3F; -"-
.EQ ENDE = $3F3F.~.Z...WERT=$00; -"-
.EQ WERT = $00...D.;...N.;------
---- INITIALISIERUNG -----------...X.;.W
... .#<(START);LSB STARTADRESSE..... .#>
(START);MSB STARTADRESSE..... .$FA;IN VE
KTOR $FA/FB SCHREIBEN.'. . .$FB.-...;.M.
.. .#<(ENDE);LSB ENDADRESSE+1.K... .#>(E
NDE);MSB ENDADRESSE...H. .$FC;IN VEKTOR
$FC/FD SCHREIBEN...R. .$FD. ...;.C... .#
WERT;EINZUSCHREIBENDEN WERT..... .$FE;NA
CH $FE SCHREIBEN.....;..... .#$00;INDEX
AUF NULL STELLEN.....;.;...;---------- J
OB AUSFUEHREN -------------.A.".;.[.,.LA
BEL .$FE;WERT LADEN.W.6. .($FA),Y;UND EI
NTRAGEN.}.@.;...J.;--------- STEUERTEIL
------------------...T.;...^. .$FA;LSB S
TART NUN ALS ZAEHLER ERHOEHEN...H. .MARK
E;FALLS KEIN UEBERLAUF WEITER.,.R. .$FB;
SONST MSB EBENFALLS ERHOEHEN.M.|.MARKE .
$FA;VERGLEICH DES LSB.... .$FC;MIT LSB
DER ENDADRESSE (FLAGGEN SETZEN)..... .$F
B;VOM MSB DES ZAEHLERS.P... .$FD;WIRD DA
S MSB DER ENDADRESSE SUBTRAHIERT..... .L
ABEL;ZURUECK ZUM JOB WENN ZAEHLER < ENDA
DRESSE.....;.8...;-------- AUSGANG -----
----------------.>.B.;.X.L. .;SONST PROG
RAMMENDE.^.V.;.......U,1,4,7;IN HYPRA-AS
S: .SY 1,4,7...
> CLICK IMAGE PREVIEW FOR FULL MODAL