LISTING 2
FILE INFORMATION
FILENAME(S): LISTING 2
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 1 disk(s)
FILE HASH
b400eedf49c2f730fab472ba528be3ebea6e560149e8015736a7a1aa7a180bc2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 4 86 | LISTING 2 | PRG | C64er | 20 | 3 | 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 53 43 52 45 45 4E 2D 53 50 45 49 43 48 45 |: SCREEN-SPEICHE|
000000B0: 52 00 E8 08 32 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |R...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 1B |********...<.;..|
000000F0: 09 46 00 2E 8F 53 54 41 52 54 3D 24 30 34 30 30 |.F...START=$0400|
00000100: 3B 49 4E 20 48 59 50 52 41 2D 41 53 53 20 53 54 |;IN HYPRA-ASS ST|
00000110: 41 54 54 20 2E 44 45 46 49 4E 45 00 47 09 50 00 |ATT .DEFINE.G.P.|
00000120: 2E 8F 45 4E 44 45 3D 24 30 37 45 38 3B 4A 45 57 |..ENDE=$07E8;JEW|
00000130: 45 49 4C 53 3A 20 2E 45 51 20 20 5A 55 4D 20 42 |EILS: .EQ ZUM B|
00000140: 45 49 53 50 49 45 4C 00 69 09 5A 00 2E 8F 57 45 |EISPIEL.i.Z...WE|
00000150: 52 54 3D 24 46 30 3B 20 2E 45 51 20 53 54 41 52 |RT=$F0; .EQ STAR|
00000160: 54 20 3D 20 24 30 34 30 30 00 6F 09 64 00 3B 00 |T = $0400.o.d.;.|
00000170: 9B 09 6E 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 |..n.;---------- |
00000180: 49 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 |INITIALISIERUNG |
00000190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A1 09 78 00 |-----------...x.|
000001A0: 3B 00 C2 09 82 00 20 81 23 3C 28 53 54 41 52 54 |;..... .#<(START|
000001B0: 29 3B 4C 53 42 20 53 54 41 52 54 41 44 52 45 53 |);LSB STARTADRES|
000001C0: 53 45 00 E3 09 8C 00 20 84 23 3E 28 53 54 41 52 |SE..... .#>(STAR|
000001D0: 54 29 3B 4D 53 42 20 53 54 41 52 54 41 44 52 45 |T);MSB STARTADRE|
000001E0: 53 53 45 00 08 0A 96 00 20 82 24 46 41 3B 49 4E |SSE..... .$FA;IN|
000001F0: 20 56 45 4B 54 4F 52 20 24 46 41 2F 46 42 20 53 | VEKTOR $FA/FB S|
00000200: 43 48 52 45 49 42 45 4E 00 12 0A A0 00 20 89 24 |CHREIBEN..... .$|
00000210: 46 42 00 18 0A AA 00 3B 00 38 0A B4 00 20 81 23 |FB.....;.8... .#|
00000220: 3C 28 45 4E 44 45 29 3B 4C 53 42 20 45 4E 44 41 |<(ENDE);LSB ENDA|
00000230: 44 52 45 53 53 45 2B 31 00 56 0A BE 00 20 84 23 |DRESSE+1.V... .#|
00000240: 3E 28 45 4E 44 45 29 3B 4D 53 42 20 45 4E 44 41 |>(ENDE);MSB ENDA|
00000250: 44 52 45 53 53 45 00 7B 0A C8 00 20 82 24 46 43 |DRESSE.{... .$FC|
00000260: 3B 49 4E 20 56 45 4B 54 4F 52 20 24 46 43 2F 46 |;IN VEKTOR $FC/F|
00000270: 44 20 53 43 48 52 45 49 42 45 4E 00 85 0A D2 00 |D SCHREIBEN.....|
00000280: 20 89 24 46 44 00 8B 0A DC 00 3B 00 AE 0A E6 00 | .$FD.....;.....|
00000290: 20 81 23 57 45 52 54 3B 45 49 4E 5A 55 53 43 48 | .#WERT;EINZUSCH|
000002A0: 52 45 49 42 45 4E 44 45 4E 20 57 45 52 54 00 CB |REIBENDEN WERT..|
000002B0: 0A F0 00 20 82 24 46 45 3B 4E 41 43 48 20 24 46 |... .$FE;NACH $F|
000002C0: 45 20 53 43 48 52 45 49 42 45 4E 00 D1 0A FA 00 |E SCHREIBEN.....|
000002D0: 3B 00 F3 0A 04 01 20 84 23 24 30 30 3B 49 4E 44 |;..... .#$00;IND|
000002E0: 45 58 20 41 55 46 20 4E 55 4C 4C 20 53 54 45 4C |EX AUF NULL STEL|
000002F0: 4C 45 4E 00 F9 0A 0E 01 3B 00 26 0B 18 01 3B 2D |LEN.....;.&...;-|
00000300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 4A 4F 42 20 41 55 |--------- JOB AU|
00000310: 53 46 55 45 48 52 45 4E 20 2D 2D 2D 2D 2D 2D 2D |SFUEHREN -------|
00000320: 2D 2D 2D 2D 2D 2D 00 2C 0B 22 01 3B 00 46 0B 2C |------.,.".;.F.,|
00000330: 01 4C 41 42 45 4C 20 81 24 46 45 3B 57 45 52 54 |.LABEL .$FE;WERT|
00000340: 20 4C 41 44 45 4E 00 62 0B 36 01 20 82 28 24 46 | LADEN.b.6. .($F|
00000350: 41 29 2C 59 3B 55 4E 44 20 45 49 4E 54 52 41 47 |A),Y;UND EINTRAG|
00000360: 45 4E 00 68 0B 40 01 3B 00 95 0B 4A 01 3B 2D 2D |EN.h.@.;...J.;--|
00000370: 2D 2D 2D 2D 2D 2D 2D 20 53 54 45 55 45 52 54 45 |------- STEUERTE|
00000380: 49 4C 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |IL -------------|
00000390: 2D 2D 2D 2D 2D 00 9B 0B 54 01 3B 00 C8 0B 5E 01 |-----...T.;...^.|
000003A0: 20 8A 24 46 41 3B 4C 53 42 20 53 54 41 52 54 20 | .$FA;LSB START |
000003B0: 4E 55 4E 20 41 4C 53 20 5A 41 45 48 4C 45 52 20 |NUN ALS ZAEHLER |
000003C0: 45 52 48 4F 45 48 45 4E 00 F0 0B 68 01 20 B7 4D |ERHOEHEN...h. .M|
000003D0: 41 52 4B 45 3B 46 41 4C 4C 53 20 4B 45 49 4E 20 |ARKE;FALLS KEIN |
000003E0: 55 45 42 45 52 4C 41 55 46 20 57 45 49 54 45 52 |UEBERLAUF WEITER|
000003F0: 00 17 0C 72 01 20 8A 24 46 42 3B 53 4F 4E 53 54 |...r. .$FB;SONST|
00000400: 20 4D 53 42 20 45 42 45 4E 46 41 4C 4C 53 20 45 | MSB EBENFALLS E|
00000410: 52 48 4F 45 48 45 4E 00 38 0C 7C 01 4D 41 52 4B |RHOEHEN.8.|.MARK|
00000420: 45 20 81 24 46 41 3B 56 45 52 47 4C 45 49 43 48 |E .$FA;VERGLEICH|
00000430: 20 44 45 53 20 4C 53 42 00 6A 0C 86 01 20 85 24 | DES LSB.j... .$|
00000440: 46 43 3B 4D 49 54 20 4C 53 42 20 44 45 52 20 45 |FC;MIT LSB DER E|
00000450: 4E 44 41 44 52 45 53 53 45 20 28 46 4C 41 47 47 |NDADRESSE (FLAGG|
00000460: 45 4E 20 53 45 54 5A 45 4E 29 00 89 0C 90 01 20 |EN SETZEN)..... |
00000470: 81 24 46 42 3B 56 4F 4D 20 4D 53 42 20 44 45 53 |.$FB;VOM MSB DES|
00000480: 20 5A 41 45 48 4C 45 52 53 00 BB 0C 9A 01 20 92 | ZAEHLERS..... .|
00000490: 24 46 44 3B 57 49 52 44 20 44 41 53 20 4D 53 42 |$FD;WIRD DAS MSB|
000004A0: 20 44 45 52 20 45 4E 44 41 44 52 45 53 53 45 20 | DER ENDADRESSE |
000004B0: 53 55 42 54 52 41 48 49 45 52 54 00 F1 0C A4 01 |SUBTRAHIERT.....|
000004C0: 20 B5 4C 41 42 45 4C 3B 5A 55 52 55 45 43 4B 20 | .LABEL;ZURUECK |
000004D0: 5A 55 4D 20 4A 4F 42 20 57 45 4E 4E 20 5A 41 45 |ZUM JOB WENN ZAE|
000004E0: 48 4C 45 52 20 3C 20 45 4E 44 41 44 52 45 53 53 |HLER < ENDADRESS|
000004F0: 45 00 F7 0C AE 01 3B 00 23 0D B8 01 3B 2D 2D 2D |E.....;.#...;---|
00000500: 2D 2D 2D 2D 2D 20 41 55 53 47 41 4E 47 20 2D 2D |----- AUSGANG --|
00000510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000520: 2D 2D 2D 00 29 0D C2 01 3B 00 43 0D CC 01 20 B0 |---.)...;.C... .|
00000530: 3B 53 4F 4E 53 54 20 50 52 4F 47 52 41 4D 4D 45 |;SONST PROGRAMME|
00000540: 4E 44 45 00 49 0D D6 01 3B 00 6F 0D E0 01 2E A4 |NDE.I...;.o.....|
00000550: 55 2C 31 2C 34 2C 37 3B 49 4E 20 48 59 50 52 41 |U,1,4,7;IN HYPRA|
00000560: 2D 41 53 53 3A 20 2E 53 59 20 31 2C 34 2C 37 00 |-ASS: .SY 1,4,7.|
00000570: 00 00 |.. |
..%.....1,4,7;IN HYPRA-ASS: .LI 1,4,7.I.
....$C000;IN HYPRA-ASS: .BA $C000.....;*
****************************************
********...(.; 16-BITSCHLEIFE ANWENDUNG
: SCREEN-SPEICHER...2.;*****************
********************************...<.;..
.F...START=$0400;IN HYPRA-ASS STATT .DEF
INE.G.P...ENDE=$07E8;JEWEILS: .EQ ZUM B
EISPIEL.I.Z...WERT=$F0; .EQ START = $040
0.O.D.;...N.;---------- INITIALISIERUNG
-----------...X.;.B... .#<(START);LSB ST
ARTADRESSE..... .#>(START);MSB STARTADRE
SSE..... .$FA;IN VEKTOR $FA/FB SCHREIBEN
... . .$FB.....;.8... .#<(ENDE);LSB ENDA
DRESSE+1.V... .#>(ENDE);MSB ENDADRESSE.{
.H. .$FC;IN VEKTOR $FC/FD SCHREIBEN...R.
.$FD.....;..... .#WERT;EINZUSCHREIBENDE
N WERT.K... .$FE;NACH $FE SCHREIBEN.Q...
;..... .#$00;INDEX AUF NULL STELLEN.....
;.&...;---------- JOB AUSFUEHREN -------
------.,.".;.F.,.LABEL .$FE;WERT LADEN.B
.6. .($FA),Y;UND EINTRAGEN.H.@.;...J.;--
------- STEUERTEIL ------------------...
T.;.H.^. .$FA;LSB START NUN ALS ZAEHLER
ERHOEHEN...H. .MARKE;FALLS KEIN UEBERLAU
F WEITER...R. .$FB;SONST MSB EBENFALLS E
RHOEHEN.8.|.MARKE .$FA;VERGLEICH DES LSB
.J... .$FC;MIT LSB DER ENDADRESSE (FLAGG
EN SETZEN)..... .$FB;VOM MSB DES ZAEHLER
S..... .$FD;WIRD DAS MSB DER ENDADRESSE
SUBTRAHIERT..... .LABEL;ZURUECK ZUM JOB
WENN ZAEHLER < ENDADRESSE.....;.#...;---
----- AUSGANG ---------------------.).B.
;.C.L. .;SONST PROGRAMMENDE.I.V.;.O.....
U,1,4,7;IN HYPRA-ASS: .SY 1,4,7...
> CLICK IMAGE PREVIEW FOR FULL MODAL