LISTING 16
FILE INFORMATION
FILENAME(S): LISTING 16
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 01:13:14
APPEARS ON: 1 disk(s)
FILE HASH
7abdb2fbb21a432d90f8c88888af056056c236e3eda1cda7d2dd6da824932352
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE A | LISTING 16 | PRG | C64er | 3 | 2 | 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 53 43 52 45 45 4E |WENDUNG : SCREEN| 00000090: 2D 53 50 45 49 43 48 45 52 00 30 5D 32 00 3B 2A |-SPEICHER.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 63 5D 46 00 2E 8F 53 54 41 |.6]<.;.c]F...STA| 000000E0: 52 54 3D 24 30 34 30 30 3B 49 4E 20 48 59 50 52 |RT=$0400;IN HYPR| 000000F0: 41 2D 41 53 53 20 53 54 41 54 54 20 2E 44 45 46 |A-ASS STATT .DEF| 00000100: 49 4E 45 00 8F 5D 50 00 2E 8F 45 4E 44 45 3D 24 |INE..]P...ENDE=$| 00000110: 30 37 45 38 3B 4A 45 57 45 49 4C 53 3A 20 2E 45 |07E8;JEWEILS: .E| 00000120: 51 20 20 5A 55 4D 20 42 45 49 53 50 49 45 4C 00 |Q ZUM BEISPIEL.| 00000130: B1 5D 5A 00 2E 8F 57 45 52 54 3D 24 46 30 3B 20 |.]Z...WERT=$F0; | 00000140: 2E 45 51 20 53 54 41 52 54 20 3D 20 24 30 34 30 |.EQ START = $040| 00000150: 30 00 B7 5D 64 00 3B 00 E3 5D 6E 00 3B 2D 2D 2D |0..]d.;..]n.;---| 00000160: 2D 2D 2D 2D 2D 2D 2D 20 49 4E 49 54 49 41 4C 49 |------- INITIALI| 00000170: 53 49 45 52 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D |SIERUNG --------| 00000180: 2D 2D 2D 00 E9 5D 78 00 3B 00 0A 5E 82 00 20 81 |---..]x.;..^.. .| 00000190: 23 3C 28 53 54 41 52 54 29 3B 4C 53 42 20 53 54 |#<(START);LSB ST| 000001A0: 41 52 54 41 44 52 45 53 53 45 00 2B 5E 8C 00 20 |ARTADRESSE.+^.. | 000001B0: 84 23 3E 28 53 54 41 52 54 29 3B 4D 53 42 20 53 |.#>(START);MSB S| 000001C0: 54 41 52 54 41 44 52 45 53 53 45 00 50 5E 96 00 |TARTADRESSE.P^..| 000001D0: 20 82 24 46 41 3B 49 4E 20 56 45 4B 54 4F 52 20 | .$FA;IN VEKTOR | 000001E0: 24 46 41 2F 46 42 20 53 43 48 52 45 49 42 45 4E |$FA/FB SCHREIBEN| 000001F0: 00 5A 5E A0 00 20 89 24 46 42 00 60 5E AA 00 3B |.Z^.. .$FB.`^..;| 00000200: 00 80 5E B4 00 20 81 23 3C 28 45 4E 44 45 29 3B |..^.. .#<(ENDE);| 00000210: 4C 53 42 20 45 4E 44 41 44 52 45 53 53 45 2B 31 |LSB ENDADRESSE+1| 00000220: 00 9E 5E BE 00 20 84 23 3E 28 45 4E 44 45 29 3B |..^.. .#>(ENDE);| 00000230: 4D 53 42 20 45 4E 44 41 44 52 45 53 53 45 00 C3 |MSB ENDADRESSE..| 00000240: 5E C8 00 20 82 24 46 43 3B 49 4E 20 56 45 4B 54 |^.. .$FC;IN VEKT| 00000250: 4F 52 20 24 46 43 2F 46 44 20 53 43 48 52 45 49 |OR $FC/FD SCHREI| 00000260: 42 45 4E 00 CD 5E D2 00 20 89 24 46 44 00 D3 5E |BEN..^.. .$FD..^| 00000270: DC 00 3B 00 F6 5E E6 00 20 81 23 57 45 52 54 3B |..;..^.. .#WERT;| 00000280: 45 49 4E 5A 55 53 43 48 52 45 49 42 45 4E 44 45 |EINZUSCHREIBENDE| 00000290: 4E 20 57 45 52 54 00 13 5F F0 00 20 82 24 46 45 |N WERT.._.. .$FE| 000002A0: 3B 4E 41 43 48 20 24 46 45 20 53 43 48 52 45 49 |;NACH $FE SCHREI| 000002B0: 42 45 4E 00 19 5F FA 00 3B 00 3B 5F 04 01 20 84 |BEN.._..;.;_.. .| 000002C0: 23 24 30 30 3B 49 4E 44 45 58 20 41 55 46 20 4E |#$00;INDEX AUF N| 000002D0: 55 4C 4C 20 53 54 45 4C 4C 45 4E 00 41 5F 0E 01 |ULL STELLEN.A_..| 000002E0: 3B 00 6E 5F 18 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |;.n_..;---------| 000002F0: 2D 20 4A 4F 42 20 41 55 53 46 55 45 48 52 45 4E |- JOB AUSFUEHREN| 00000300: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 74 | -------------.t| 00000310: 5F 22 01 3B 00 8E 5F 2C 01 4C 41 42 45 4C 20 81 |_".;.._,.LABEL .| 00000320: 24 46 45 3B 57 45 52 54 20 4C 41 44 45 4E 00 AA |$FE;WERT LADEN..| 00000330: 5F 36 01 20 82 28 24 46 41 29 2C 59 3B 55 4E 44 |_6. .($FA),Y;UND| 00000340: 20 45 49 4E 54 52 41 47 45 4E 00 B0 5F 40 01 3B | EINTRAGEN.._@.;| 00000350: 00 DD 5F 4A 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 |.._J.;--------- | 00000360: 53 54 45 55 45 52 54 45 49 4C 20 2D 2D 2D 2D 2D |STEUERTEIL -----| 00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E3 5F |-------------.._| 00000380: 54 01 3B 00 10 60 5E 01 20 8A 24 46 41 3B 4C 53 |T.;..`^. .$FA;LS| 00000390: 42 20 53 54 41 52 54 20 4E 55 4E 20 41 4C 53 20 |B START NUN ALS | 000003A0: 5A 41 45 48 4C 45 52 20 45 52 48 4F 45 48 45 4E |ZAEHLER ERHOEHEN| 000003B0: 00 38 60 68 01 20 B7 4D 41 52 4B 45 3B 46 41 4C |.8`h. .MARKE;FAL| 000003C0: 4C 53 20 4B 45 49 4E 20 55 45 42 45 52 4C 41 55 |LS KEIN UEBERLAU| 000003D0: 46 20 57 45 49 54 45 52 00 5F 60 72 01 20 8A 24 |F WEITER._`r. .$| 000003E0: 46 42 3B 53 4F 4E 53 54 20 4D 53 42 20 45 42 45 |FB;SONST MSB EBE| 000003F0: 4E 46 41 4C 4C 53 20 45 52 48 4F 45 48 45 4E 00 |NFALLS ERHOEHEN.| 00000400: 80 60 7C 01 4D 41 52 4B 45 20 81 24 46 41 3B 56 |.`|.MARKE .$FA;V| 00000410: 45 52 47 4C 45 49 43 48 20 44 45 53 20 4C 53 42 |ERGLEICH DES LSB| 00000420: 00 B2 60 86 01 20 85 24 46 43 3B 4D 49 54 20 4C |..`.. .$FC;MIT L| 00000430: 53 42 20 44 45 52 20 45 4E 44 41 44 52 45 53 53 |SB DER ENDADRESS| 00000440: 45 20 28 46 4C 41 47 47 45 4E 20 53 45 54 5A 45 |E (FLAGGEN SETZE| 00000450: 4E 29 00 D1 60 90 01 20 81 24 46 42 3B 56 4F 4D |N)..`.. .$FB;VOM| 00000460: 20 4D 53 42 20 44 45 53 20 5A 41 45 48 4C 45 52 | MSB DES ZAEHLER| 00000470: 53 00 03 61 9A 01 20 92 24 46 44 3B 57 49 52 44 |S..a.. .$FD;WIRD| 00000480: 20 44 41 53 20 4D 53 42 20 44 45 52 20 45 4E 44 | DAS MSB DER END| 00000490: 41 44 52 45 53 53 45 20 53 55 42 54 52 41 48 49 |ADRESSE SUBTRAHI| 000004A0: 45 52 54 00 39 61 A4 01 20 B5 4C 41 42 45 4C 3B |ERT.9a.. .LABEL;| 000004B0: 5A 55 52 55 45 43 4B 20 5A 55 4D 20 4A 4F 42 20 |ZURUECK ZUM JOB | 000004C0: 57 45 4E 4E 20 5A 41 45 48 4C 45 52 20 3C 20 45 |WENN ZAEHLER < E| 000004D0: 4E 44 41 44 52 45 53 53 45 00 3F 61 AE 01 3B 00 |NDADRESSE.?a..;.| 000004E0: 6B 61 B8 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 20 41 55 |ka..;-------- AU| 000004F0: 53 47 41 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |SGANG ----------| 00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 71 61 C2 01 |-----------.qa..| 00000510: 3B 00 8B 61 CC 01 20 B0 3B 53 4F 4E 53 54 20 50 |;..a.. .;SONST P| 00000520: 52 4F 47 52 41 4D 4D 45 4E 44 45 00 91 61 D6 01 |ROGRAMMENDE..a..| 00000530: 3B 00 9F 61 E0 01 2E A4 55 2C 31 2C 34 2C 37 00 |;..a....U,1,4,7.| 00000540: 00 00 |.. |
A\M\....1,4,7..\....$C000;IN HYPRA-ASS: .BA $C000.H\..;************************* ************************..\(.; 16-BITSCH LEIFE ANWENDUNG : SCREEN-SPEICHER.0]2.;* **************************************** ********.6]<.;.C]F...START=$0400;IN HYPR A-ASS STATT .DEFINE..]P...ENDE=$07E8;JEW EILS: .EQ ZUM BEISPIEL..]Z...WERT=$F0; .EQ START = $0400..]D.;..]N.;---------- INITIALISIERUNG -----------..]X.;..^.. . #<(START);LSB STARTADRESSE.+^.. .#>(STAR T);MSB STARTADRESSE.P^.. .$FA;IN VEKTOR $FA/FB SCHREIBEN.Z^ . .$FB.`^..;..^.. .# <(ENDE);LSB ENDADRESSE+1..^.. .#>(ENDE); MSB ENDADRESSE.C^H. .$FC;IN VEKTOR $FC/F D SCHREIBEN.M^R. .$FD.S^..;..^.. .#WERT; EINZUSCHREIBENDEN WERT.._.. .$FE;NACH $F E SCHREIBEN.._..;.;_.. .#$00;INDEX AUF N ULL STELLEN.A_..;.N_..;---------- JOB AU SFUEHREN -------------.T_".;.._,.LABEL . $FE;WERT LADEN.._6. .($FA),Y;UND EINTRAG EN.._@.;.._J.;--------- STEUERTEIL ----- -------------.._T.;..`^. .$FA;LSB START NUN ALS ZAEHLER ERHOEHEN.8`H. .MARKE;FAL LS KEIN UEBERLAUF WEITER._`R. .$FB;SONST MSB EBENFALLS ERHOEHEN..`|.MARKE .$FA;V ERGLEICH DES LSB..`.. .$FC;MIT LSB DER E NDADRESSE (FLAGGEN SETZEN).Q`.. .$FB;VOM MSB DES ZAEHLERS..A.. .$FD;WIRD DAS MSB DER ENDADRESSE SUBTRAHIERT.9A.. .LABEL; ZURUECK ZUM JOB WENN ZAEHLER < ENDADRESS E.?A..;.KA..;-------- AUSGANG ---------- -----------.QAB.;..AL. .;SONST PROGRAMME NDE..AV.;..A....U,1,4,7...
> CLICK IMAGE PREVIEW FOR FULL MODAL