LISTING 17
FILE INFORMATION
FILENAME(S): LISTING 17
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
b1b5e3aa60abe29f0270d30507b7f80b432bdacfca66c997cb19458d35dcf9b5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | LISTING 17 | PRG | C64er | 3 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 6D 5C 0A 00 2E A3 31 2C 34 2C 37 00 91 5C |a\m\....1,4,7..\| 00000010: 14 00 2E 90 24 43 30 30 30 3B 49 4E 20 48 59 50 |....$C000;IN HYP| 00000020: 52 41 2D 41 53 53 3A 20 2E 42 41 20 24 43 30 30 |RA-ASS: .BA $C00| 00000030: 30 00 C8 5C 1E 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..\..;*********| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 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 00 F9 5C 28 00 3B 20 31 |********..\(.; 1| 00000070: 36 2D 42 49 54 53 43 48 4C 45 49 46 45 20 41 4E |6-BITSCHLEIFE AN| 00000080: 57 45 4E 44 55 4E 47 20 3A 20 42 49 54 4D 41 50 |WENDUNG : BITMAP| 00000090: 2D 4C 4F 45 53 43 48 45 4E 00 30 5D 32 00 3B 2A |-LOESCHEN.0]2.;*| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 00 36 5D 3C 00 3B 00 68 5D 46 00 2E 8F 53 54 41 |.6]<.;.h]F...STA| 000000E0: 52 54 3D 24 32 30 30 30 3B 49 4E 20 48 59 50 52 |RT=$2000;IN HYPR| 000000F0: 41 2D 41 53 53 3A 20 2E 45 51 20 53 54 41 52 54 |A-ASS: .EQ START| 00000100: 20 3D 20 24 32 30 30 30 00 99 5D 50 00 2E 8F 45 | = $2000..]P...E| 00000110: 4E 44 45 3D 24 33 46 33 46 3B 20 20 20 2D 22 2D |NDE=$3F3F; -"-| 00000120: 20 20 20 20 20 20 20 20 2E 45 51 20 45 4E 44 45 | .EQ ENDE| 00000130: 20 20 3D 20 24 33 46 33 46 00 C6 5D 5A 00 2E 8F | = $3F3F..]Z...| 00000140: 57 45 52 54 3D 24 30 30 3B 20 20 20 2D 22 2D 20 |WERT=$00; -"- | 00000150: 20 20 20 20 20 20 20 20 2E 45 51 20 57 45 52 54 | .EQ WERT| 00000160: 20 3D 20 24 30 30 00 CC 5D 64 00 3B 00 F8 5D 6E | = $00..]d.;..]n| 00000170: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 49 4E 49 |.;---------- INI| 00000180: 54 49 41 4C 49 53 49 45 52 55 4E 47 20 2D 2D 2D |TIALISIERUNG ---| 00000190: 2D 2D 2D 2D 2D 2D 2D 2D 00 FE 5D 78 00 3B 00 1F |--------..]x.;..| 000001A0: 5E 82 00 20 81 23 3C 28 53 54 41 52 54 29 3B 4C |^.. .#<(START);L| 000001B0: 53 42 20 53 54 41 52 54 41 44 52 45 53 53 45 00 |SB STARTADRESSE.| 000001C0: 40 5E 8C 00 20 84 23 3E 28 53 54 41 52 54 29 3B |@^.. .#>(START);| 000001D0: 4D 53 42 20 53 54 41 52 54 41 44 52 45 53 53 45 |MSB STARTADRESSE| 000001E0: 00 65 5E 96 00 20 82 24 46 41 3B 49 4E 20 56 45 |.e^.. .$FA;IN VE| 000001F0: 4B 54 4F 52 20 24 46 41 2F 46 42 20 53 43 48 52 |KTOR $FA/FB SCHR| 00000200: 45 49 42 45 4E 00 6F 5E A0 00 20 89 24 46 42 00 |EIBEN.o^.. .$FB.| 00000210: 75 5E AA 00 3B 00 95 5E B4 00 20 81 23 3C 28 45 |u^..;..^.. .#<(E| 00000220: 4E 44 45 29 3B 4C 53 42 20 45 4E 44 41 44 52 45 |NDE);LSB ENDADRE| 00000230: 53 53 45 2B 31 00 B3 5E BE 00 20 84 23 3E 28 45 |SSE+1..^.. .#>(E| 00000240: 4E 44 45 29 3B 4D 53 42 20 45 4E 44 41 44 52 45 |NDE);MSB ENDADRE| 00000250: 53 53 45 00 D8 5E C8 00 20 82 24 46 43 3B 49 4E |SSE..^.. .$FC;IN| 00000260: 20 56 45 4B 54 4F 52 20 24 46 43 2F 46 44 20 53 | VEKTOR $FC/FD S| 00000270: 43 48 52 45 49 42 45 4E 00 E2 5E D2 00 20 89 24 |CHREIBEN..^.. .$| 00000280: 46 44 00 E8 5E DC 00 3B 00 0B 5F E6 00 20 81 23 |FD..^..;.._.. .#| 00000290: 57 45 52 54 3B 45 49 4E 5A 55 53 43 48 52 45 49 |WERT;EINZUSCHREI| 000002A0: 42 45 4E 44 45 4E 20 57 45 52 54 00 28 5F F0 00 |BENDEN WERT.(_..| 000002B0: 20 82 24 46 45 3B 4E 41 43 48 20 24 46 45 20 53 | .$FE;NACH $FE S| 000002C0: 43 48 52 45 49 42 45 4E 00 2E 5F FA 00 3B 00 50 |CHREIBEN.._..;.P| 000002D0: 5F 04 01 20 84 23 24 30 30 3B 49 4E 44 45 58 20 |_.. .#$00;INDEX | 000002E0: 41 55 46 20 4E 55 4C 4C 20 53 54 45 4C 4C 45 4E |AUF NULL STELLEN| 000002F0: 00 56 5F 0E 01 3B 00 83 5F 18 01 3B 2D 2D 2D 2D |.V_..;.._..;----| 00000300: 2D 2D 2D 2D 2D 2D 20 4A 4F 42 20 41 55 53 46 55 |------ JOB AUSFU| 00000310: 45 48 52 45 4E 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |EHREN ----------| 00000320: 2D 2D 2D 00 89 5F 22 01 3B 00 A3 5F 2C 01 4C 41 |---.._".;.._,.LA| 00000330: 42 45 4C 20 81 24 46 45 3B 57 45 52 54 20 4C 41 |BEL .$FE;WERT LA| 00000340: 44 45 4E 00 BF 5F 36 01 20 82 28 24 46 41 29 2C |DEN.._6. .($FA),| 00000350: 59 3B 55 4E 44 20 45 49 4E 54 52 41 47 45 4E 00 |Y;UND EINTRAGEN.| 00000360: C5 5F 40 01 3B 00 F2 5F 4A 01 3B 2D 2D 2D 2D 2D |._@.;.._J.;-----| 00000370: 2D 2D 2D 2D 20 53 54 45 55 45 52 54 45 49 4C 20 |---- STEUERTEIL | 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000390: 2D 2D 00 F8 5F 54 01 3B 00 25 60 5E 01 20 8A 24 |--.._T.;.%`^. .$| 000003A0: 46 41 3B 4C 53 42 20 53 54 41 52 54 20 4E 55 4E |FA;LSB START NUN| 000003B0: 20 41 4C 53 20 5A 41 45 48 4C 45 52 20 45 52 48 | ALS ZAEHLER ERH| 000003C0: 4F 45 48 45 4E 00 4D 60 68 01 20 B7 4D 41 52 4B |OEHEN.M`h. .MARK| 000003D0: 45 3B 46 41 4C 4C 53 20 4B 45 49 4E 20 55 45 42 |E;FALLS KEIN UEB| 000003E0: 45 52 4C 41 55 46 20 57 45 49 54 45 52 00 74 60 |ERLAUF WEITER.t`| 000003F0: 72 01 20 8A 24 46 42 3B 53 4F 4E 53 54 20 4D 53 |r. .$FB;SONST MS| 00000400: 42 20 45 42 45 4E 46 41 4C 4C 53 20 45 52 48 4F |B EBENFALLS ERHO| 00000410: 45 48 45 4E 00 95 60 7C 01 4D 41 52 4B 45 20 81 |EHEN..`|.MARKE .| 00000420: 24 46 41 3B 56 45 52 47 4C 45 49 43 48 20 44 45 |$FA;VERGLEICH DE| 00000430: 53 20 4C 53 42 00 C7 60 86 01 20 85 24 46 43 3B |S LSB..`.. .$FC;| 00000440: 4D 49 54 20 4C 53 42 20 44 45 52 20 45 4E 44 41 |MIT LSB DER ENDA| 00000450: 44 52 45 53 53 45 20 28 46 4C 41 47 47 45 4E 20 |DRESSE (FLAGGEN | 00000460: 53 45 54 5A 45 4E 29 00 E6 60 90 01 20 81 24 46 |SETZEN)..`.. .$F| 00000470: 42 3B 56 4F 4D 20 4D 53 42 20 44 45 53 20 5A 41 |B;VOM MSB DES ZA| 00000480: 45 48 4C 45 52 53 00 18 61 9A 01 20 92 24 46 44 |EHLERS..a.. .$FD| 00000490: 3B 57 49 52 44 20 44 41 53 20 4D 53 42 20 44 45 |;WIRD DAS MSB DE| 000004A0: 52 20 45 4E 44 41 44 52 45 53 53 45 20 53 55 42 |R ENDADRESSE SUB| 000004B0: 54 52 41 48 49 45 52 54 00 4E 61 A4 01 20 B5 4C |TRAHIERT.Na.. .L| 000004C0: 41 42 45 4C 3B 5A 55 52 55 45 43 4B 20 5A 55 4D |ABEL;ZURUECK ZUM| 000004D0: 20 4A 4F 42 20 57 45 4E 4E 20 5A 41 45 48 4C 45 | JOB WENN ZAEHLE| 000004E0: 52 20 3C 20 45 4E 44 41 44 52 45 53 53 45 00 54 |R < ENDADRESSE.T| 000004F0: 61 AE 01 3B 00 80 61 B8 01 3B 2D 2D 2D 2D 2D 2D |a..;..a..;------| 00000500: 2D 2D 20 41 55 53 47 41 4E 47 20 2D 2D 2D 2D 2D |-- AUSGANG -----| 00000510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000520: 00 86 61 C2 01 3B 00 A0 61 CC 01 20 B0 3B 53 4F |..a..;..a.. .;SO| 00000530: 4E 53 54 20 50 52 4F 47 52 41 4D 4D 45 4E 44 45 |NST PROGRAMMENDE| 00000540: 00 A6 61 D6 01 3B 00 B4 61 E0 01 2E A4 55 2C 31 |..a..;..a....U,1| 00000550: 2C 34 2C 37 00 00 00 |,4,7... |
A\M\....1,4,7..\....$C000;IN HYPRA-ASS: .BA $C000.H\..;************************* ************************..\(.; 16-BITSCH LEIFE ANWENDUNG : BITMAP-LOESCHEN.0]2.;* **************************************** ********.6]<.;.H]F...START=$2000;IN HYPR A-ASS: .EQ START = $2000..]P...ENDE=$3F3 F; -"- .EQ ENDE = $3F3F.F]Z... WERT=$00; -"- .EQ WERT = $00.L ]D.;..]N.;---------- INITIALISIERUNG --- --------..]X.;..^.. .#<(START);LSB START ADRESSE.@^.. .#>(START);MSB STARTADRESSE .E^.. .$FA;IN VEKTOR $FA/FB SCHREIBEN.O^ . .$FB.U^..;..^.. .#<(ENDE);LSB ENDADRE SSE+1..^.. .#>(ENDE);MSB ENDADRESSE.X^H. .$FC;IN VEKTOR $FC/FD SCHREIBEN..^R. .$ FD..^..;.._.. .#WERT;EINZUSCHREIBENDEN W ERT.(_.. .$FE;NACH $FE SCHREIBEN.._..;.P _.. .#$00;INDEX AUF NULL STELLEN.V_..;.. _..;---------- JOB AUSFUEHREN ---------- ---.._".;.._,.LABEL .$FE;WERT LADEN.._6. .($FA),Y;UND EINTRAGEN.E_@.;.._J.;----- ---- STEUERTEIL ------------------.._T.; .%`^. .$FA;LSB START NUN ALS ZAEHLER ERH OEHEN.M`H. .MARKE;FALLS KEIN UEBERLAUF W EITER.T`R. .$FB;SONST MSB EBENFALLS ERHO EHEN..`|.MARKE .$FA;VERGLEICH DES LSB.G` .. .$FC;MIT LSB DER ENDADRESSE (FLAGGEN SETZEN)..`.. .$FB;VOM MSB DES ZAEHLERS.. A.. .$FD;WIRD DAS MSB DER ENDADRESSE SUB TRAHIERT.NA.. .LABEL;ZURUECK ZUM JOB WEN N ZAEHLER < ENDADRESSE.TA..;..A..;------ -- AUSGANG ---------------------..AB.;. AL. .;SONST PROGRAMMENDE..AV.;..A....U,1 ,4,7...
> CLICK IMAGE PREVIEW FOR FULL MODAL