HIRES4.QUELL

FILE INFORMATION

FILENAME(S): HIRES4.QUELL

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 21:13:39

APPEARS ON: 1 disk(s)

FILE HASH

877c870dc65ebe5b729c0c8d58d06951b04c775a123be1595e0861f364837d5f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15720 SEITE A	HIRES4.QUELL	PRG	DuncanTwain	24	0	⚠ CORRUPT DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 07 08 0A 00 3B 00  2D 08 14 00 3B 2A 2A 2A  |......;.-...;***|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 53 08  |*************.S.|
00000030: 1E 00 3B 2A 20 20 20 20  20 20 20 20 20 20 20 20  |..;*            |
00000040: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000050: 20 20 2A 00 79 08 28 00  3B 2A 20 20 20 20 20 C7  |  *.y.(.;*     .|
00000060: 52 41 46 49 4B 20 49 4E  20 C1 53 53 45 4D 42 4C  |RAFIK IN .SSEMBL|
00000070: 45 52 20 20 20 20 20 20  2A 00 9F 08 32 00 3B 2A  |ER      *...2.;*|
00000080: 20 20 20 D0 52 4F 47 52  41 4D 4D 20 49 4E 20 20  |   .ROGRAMM IN  |
00000090: 39 20 CD 4F 44 55 4C 45  4E 20 20 20 20 20 2A 00  |9 .ODULEN     *.|
000000A0: C5 08 3C 00 3B 2A 20 C7  52 41 46 49 4B 2D C2 41  |..<.;* .RAFIK-.A|
000000B0: 53 49 43 2D C5 52 57 45  49 54 45 52 55 4E 47 20  |SIC-.RWEITERUNG |
000000C0: C3 36 34 20 2A 00 EB 08  46 00 3B 2A 20 20 20 20  |.64 *...F.;*    |
000000D0: 20 20 20 20 20 C8 C9 D2  C5 D3 2D 34 20 20 20 20  |     .....-4    |
000000E0: 20 20 20 20 20 20 20 20  20 20 2A 00 11 09 50 00  |          *...P.|
000000F0: 3B 2A 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;*              |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110: 2A 00 37 0E 7D EE 8D 9C  8E 8E EE 7E 7E 74 70 E2  |*.7.}......~~tp.|
00000120: 70 3F 17 37 32 BB 32 E2  30 12 B7 1E 3B BE 3F E2  |p?.72.2.0...;.?.|
00000130: EA EE EA ED E2 E2 E6 22  3E 06 C3 22 EE E6 E2 E2  |.......">.."....|
00000140: E2 E2 E2 E2 E2 E2 E2 E2  E2 E2 E2 E2 E2 E2 E2 E2  |................|
00000150: E2 E2 E2 E2 E2 E2 E2 E2  E2 E2 E2 E2 E6 22 20 A6  |............." .|
00000160: EE 00 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000180: 2A 2A 2A 00 89 09 78 00  3B 00 AB 09 82 00 3B 2A  |***...x.;.....;*|
00000190: 2A 2A 20 CD 4F 44 55 4C  20 30 3A 20 DA 55 57 45  |** .ODUL 0: .UWE|
000001A0: 49 53 55 4E 47 45 4E 20  2A 2A 2A 00 B1 09 8C 00  |ISUNGEN ***.....|
000001B0: 3B 00 BF 09 96 00 20 2E  42 41 24 43 30 30 30 00  |;..... .BA$C000.|
000001C0: C5 09 A0 00 3B 00 E4 09  AA 00 3B 2D 2D 2D 20 46  |....;.....;--- F|
000001D0: 45 53 54 45 20 DA 55 4F  52 44 4E 55 4E 47 45 4E  |ESTE .UORDNUNGEN|
000001E0: 20 2D 2D 2D 00 EA 09 B4  00 3B 00 0E 0A BE 00 20  | ---.....;..... |
000001F0: 2E 45 51 58 4B 4F 3D 24  31 34 3B 32 2D C2 59 54  |.EQXKO=$14;2-.YT|
00000200: 45 20 D8 2D CB 4F 4F 52  44 49 4E 41 54 45 00 38  |E .-.OORDINATE.8|
00000210: 0A C8 00 20 2E 45 51 46  52 45 54 4F 50 3D 24 33  |... .EQFRETOP=$3|
00000220: 34 3B D3 54 52 49 4E 47  53 54 41 52 54 41 44 52  |4;.TRINGSTARTADR|
00000230: 45 53 53 45 20 CD D3 C2  00 65 0A D2 00 20 2E 45  |ESSE ....e... .E|
00000240: 51 4D 45 4D 53 49 5A 3D  24 33 38 3B C8 4F 45 43  |QMEMSIZ=$38;.OEC|
00000250: 48 53 54 45 20 C2 41 53  49 43 41 44 52 45 53 53  |HSTE .ASICADRESS|
00000260: 45 20 CD D3 C2 00 87 0A  DC 00 20 2E 45 51 43 48  |E ........ .EQCH|
00000270: 52 47 45 54 3D 24 37 33  3B C3 C8 D2 C7 C5 D4 2D  |RGET=$73;......-|
00000280: D8 E0 77 77 EE 78 EE FE  CE F4 26 EF EF EE E2 27  |..ww.x....&....'|
00000290: E4 E1 E2 EE E0 EE 3E 2E  EE EF E6 BC 8E 21 5C FD  |......>......!\.|
000002A0: 42 DE 24 F5 55 44 94 E4  50 0C A0 AF 00 02 02 E4  |B.$.UD..P.......|
000002B0: 55 15 45 85 45 05 45 23  D2 43 74 13 BC 3C 8D 2C  |U.E.E.E#.Ct..<.,|
000002C0: 7C 5D 42 DD A4 54 94 74  55 20 00 40 BF A0 02 02  ||]B..T.tU .@....|
000002D0: E4 55 14 84 24 15 34 53  D2 43 03 23 83 83 BC DD  |.U..$.4S.C.#....|
000002E0: 3C 22 0C 24 94 C4 45 34  34 84 95 24 D5 35 44 15  |<".$..E44..$.5D.|
000002F0: 25 42 04 14 E2 0C 24 55  45 2F 49 45 42 53 53 59  |%B....$UE/IEBSSY|
00000300: 53 54 45 4D 00 32 0B 04  01 20 2E 45 51 49 47 4F  |STEM.2... .EQIGO|
00000310: 4E 45 3D 24 30 33 30 38  3B D6 45 4B 54 4F 52 20  |NE=$0308;.EKTOR |
00000320: 5A 55 4D 20 D2 4F 55 54  49 4E 45 4E 41 55 46 52  |ZUM .OUTINENAUFR|
00000330: 55 46 00 5C 0B 0E 01 20  2E 45 51 42 49 4C 44 3D  |UF.\... .EQBILD=|
00000340: 24 35 43 30 30 3B 42 49  4C 44 53 43 48 49 52 4D  |$5C00;BILDSCHIRM|
00000350: 53 54 41 52 54 41 44 52  45 53 53 45 00 85 0B 18  |STARTADRESSE....|
00000360: 01 20 2E 45 51 42 49 54  4D 41 50 3D 24 36 30 30  |. .EQBITMAP=$600|
00000370: 30 3B D3 54 41 52 54 41  44 52 45 53 53 45 20 C2  |0;.TARTADRESSE .|
00000380: 49 54 4D 41 50 00 B0 0B  22 01 20 2E 45 51 47 4F  |ITMAP...". .EQGO|
00000390: 4E 45 31 3D 24 41 37 45  34 3B C1 4C 54 45 52 20  |NE1=$A7E4;.LTER |
000003A0: C9 4E 48 41 4C 54 20 56  4F 4E 20 49 47 4F 4E 45  |.NHALT VON IGONE|
000003B0: 00 E2 0B 2C 01 20 2E 45  51 49 4E 54 45 4E 44 3D  |...,. .EQINTEND=|
000003C0: 24 41 37 45 37 3B C5 4E  44 45 20 44 45 52 20 C9  |$A7E7;.NDE DER .|
000003D0: 4E 54 45 52 50 52 45 54  45 52 53 43 48 4C 45 49  |NTERPRETERSCHLEI|
000003E0: 46 45 00 17 0C 36 01 20  2E 45 51 4C 49 4E 47 45  |FE...6. .EQLINGE|
000003F0: 54 3D 24 41 39 36 42 3B  48 4F 4C 54 20 32 2D C2  |T=$A96B;HOLT 2-.|
00000400: 59 54 45 2D C9 4E 54 45  47 45 52 20 4E 41 43 48  |YTE-.NTEGER NACH|
00000410: 20 24 31 34 2F 31 35 00  51 0C 40 01 20 2E 45 51  | $14/15.Q.@. .EQ|
00000420: 46 52 4D 4E 55 4D 3D 24  41 44 38 41 3B 48 4F 4C  |FRMNUM=$AD8A;HOL|
00000430: 54 20 42 45 4C 49 45 42  49 47 45 4E 20 4E 55 4D  |T BELIEBIGEN NUM|
00000440: 45 52 49 53 43 48 45 4E  20 C1 55 53 44 52 55 43  |ERISCHEN .USDRUC|
00000450: 4B 00 78 0C 4A 01 20 2E  45 51 43 48 4B 43 4F 4D  |K.x.J. .EQCHKCOM|
00000460: 3D 24 41 45 46 44 3B 41  55 46 20 CB 4F 4D 4D 41  |=$AEFD;AUF .OMMA|
00000470: 20 50 52 55 45 46 45 4E  00 A3 0C 54 01 20 2E 45  | PRUEFEN...T. .E|
00000480: 51 46 41 43 49 4E 58 3D  24 42 31 41 41 3B C6 C1  |QFACINX=$B1AA;..|
00000490: C3 20 2D 3E 20 C9 4E 54  45 47 45 52 20 49 4E 20  |. -> .NTEGER IN |
000004A0: C1 2F D9 00 D9 0C 5E 01  20 2E 45 51 47 45 54 41  |./....^. .EQGETA|
000004B0: 44 52 3D 24 42 37 46 37  3B C6 C1 C3 20 2D 3E 20  |DR=$B7F7;... -> |
000004C0: C9 4E 54 45 47 45 52 20  49 4E 20 D9 2F C1 20 55  |.NTEGER IN ./. U|
000004D0: 4E 44 20 24 31 34 2F 31  35 00 1B 0D 68 01 20 2E  |ND $14/15...h. .|
000004E0: 45 51 47 45 54 4E 55 4D  3D 24 42 37 45 42 3B 48  |EQGETNUM=$B7EB;H|
000004F0: 4F 4C 54 20 C1 44 52 45  53 53 45 20 4E 41 43 48  |OLT .DRESSE NACH|
00000500: 20 24 31 34 2F 31 35 20  55 4E 44 20 C2 59 54 45  | $14/15 UND .YTE|
00000510: 20 49 4E 53 20 D8 2D D2  45 47 2E 00 40 0D 72 01  | INS .-.EG..@.r.|
00000520: 20 2E 45 51 46 53 55 42  3D 24 42 38 35 30 3B C6  | .EQFSUB=$B850;.|
00000530: C1 C3 20 3D 20 28 C1 2F  D9 29 20 2D 20 C6 C1 C3  |.. = (./.) - ...|
00000540: 00 64 0D 7C 01 20 2E 45  51 46 4D 55 4C 54 3D 24  |.d.|. .EQFMULT=$|
00000550: 42 41 32 38 3B C6 C1 C3  20 3D 20 28 C1 2F D9 29  |BA28;... = (./.)|
00000560: 2A C6 C1 C3 00 89 0D 86  01 20 2E 45 51 46 44 49  |*........ .EQFDI|
00000570: 56 3D 24 42 42 30 46 3B  C6 C1 C3 20 3D 20 28 C1  |V=$BB0F;... = (.|
00000580: 2F D9 29 20 2F 20 C6 C1  C3 00 B4 0D 90 01 20 2E  |/.) / ........ .|
00000590: 45 51 4D 4F 56 46 4D 3D  24 42 42 41 32 3B 4C 41  |EQMOVFM=$BBA2;LA|
000005A0: 45 44 54 20 C6 C1 C3 20  41 55 53 20 D3 50 45 49  |EDT ... AUS .PEI|
000005B0: 43 48 45 52 00 DF 0D 9A  01 20 2E 45 51 4D 4F 56  |CHER..... .EQMOV|
000005C0: 4D 46 3D 24 42 42 44 34  3B 4C 41 45 44 54 20 D3  |MF=$BBD4;LAEDT .|
000005D0: 50 45 49 43 48 45 52 20  41 55 53 20 C6 C1 C3 00  |PEICHER AUS ....|
000005E0: 18 0E A4 01 20 2E 45 51  56 49 43 31 37 3D 24 44  |.... .EQVIC17=$D|
000005F0: 30 31 31 3B C2 49 54 20  35 20 53 43 48 41 4C 54  |011;.IT 5 SCHALT|
00000600: 45 54 20 C2 49 54 2D CD  41 50 2D CD 4F 44 55 53  |ET .IT-.AP-.ODUS|
00000610: 20 45 49 4E 2F 41 55 53  00 54 0E AE 01 20 2E 45  | EIN/AUS.T... .E|
00000620: 51 56 49 43 32 34 3D 24  44 30 31 38 3B D3 54 45  |QVIC24=$D018;.TE|
00000630: 55 45 52 54 20 C2 49 4C  44 53 43 48 49 52 4D 4F  |UERT .ILDSCHIRMO|
00000640: 52 54 20 55 4E 44 20 C2  49 54 2D CD 41 50 2D D3  |RT UND .IT-.AP-.|
00000650: 54 41 52 54 00 88 0E B8  01 20 2E 45 51 43 49 41  |TART..... .EQCIA|
00000660: 32 3D 24 44 44 30 30 3B  C3 C9 C1 32 20 D0 4F 52  |2=$DD00;...2 .OR|
00000670: 54 C1 3A D3 54 45 55 45  52 54 20 D6 C9 C3 2D C1  |T.:.TEUERT ...-.|
00000680: 42 53 43 48 4E 49 54 54  00 C3 0E C2 01 20 2E 45  |BSCHNITT..... .E|
00000690: 51 43 4F 4D 42 59 54 3D  24 45 32 30 30 3B D0 52  |QCOMBYT=$E200;.R|
000006A0: 55 45 46 54 20 41 55 46  20 CB 4F 4D 4D 41 20 55  |UEFT AUF .OMMA U|
000006B0: 4E 44 20 48 4F 4C 54 20  31 20 C2 59 54 45 20 49  |ND HOLT 1 .YTE I|
000006C0: 4E 20 D8 00 C9 0E CC 01  3B 00 E1 0E D6 01 3B 2D  |N ......;.....;-|
000006D0: 2D 2D 20 D6 41 52 49 41  42 4C 45 20 2D 2D 2D 2D  |-- .ARIABLE ----|
000006E0: 2D 00 E7 0E E0 01 3B 00  15 0F EA 01 20 2E 45 51  |-.....;..... .EQ|
000006F0: 4D 4F 44 45 3D 24 30 32  3B CD 4F 44 55 53 20 30  |MODE=$02;.ODUS 0|
00000700: 3D 4C 4F 45 53 43 48 45  4E 2C 20 31 3D 5A 45 49  |=LOESCHEN, 1=ZEI|
00000710: 43 48 4E 45 4E 00 32 0F  F4 01 20 2E 45 51 59 4B  |CHNEN.2... .EQYK|
00000720: 4F 3D 24 30 39 3B 59 2D  CB 4F 4F 52 44 49 4E 41  |O=$09;Y-.OORDINA|
00000730: 54 45 00 55 0F FE 01 20  2E 45 51 59 4B 31 3D 8E  |TE.U... .EQYK1=.|
00000740: 8F EE 9D DB 4F 4F 52 44  49 4E 41 54 45 4E 57 45  |....OORDINATENWE|
00000750: 52 54 20 59 31 00 72 0F  08 02 20 2E 45 51 44 59  |RT Y1.r... .EQDY|
00000760: 3D 24 31 31 3B C1 42 53  54 41 4E 44 20 59 31 2D  |=$11;.BSTAND Y1-|
00000770: 59 30 00 8F 0F 12 02 20  2E 45 51 49 59 3D 24 31  |Y0..... .EQIY=$1|
00000780: 39 3B C9 4E 4B 52 45 4D  45 4E 54 57 45 52 54 00  |9;.NKREMENTWERT.|
00000790: A5 0F 1C 02 20 2E 45 51  41 59 3D 24 31 41 3B 20  |.... .EQAY=$1A; |
000007A0: 20 20 2D 22 2D 00 BB 0F  26 02 20 2E 45 51 41 58  |  -"-...&. .EQAX|
000007B0: 3D 24 31 42 3B 20 20 20  2D 22 2D 00 D1 0F 30 02  |=$1B;   -"-...0.|
000007C0: 20 2E 45 51 49 58 3D 24  31 43 3B 20 20 20 2D 22  | .EQIX=$1C;   -"|
000007D0: 2D 00 FA 0F 3A 02 20 2E  45 51 59 50 4C 55 53 59  |-...:. .EQYPLUSY|
000007E0: 3D 24 35 37 3B CB 52 45  49 53 50 55 4E 4B 54 53  |=$57;.REISPUNKTS|
000007F0: 2E D8 48 EE 48 4A 34 E2  9E 2E EE 7E 6E EE FE EF  |..H.HJ4....~n...|
00000800: EE E2 26 E2 DA D8 42 40  7B ED EE EF E7 EF EF EF  |..&...B@{.......|
00000810: EB EE EA EF EA 6E DE FE  EF EE EE E6 E2 EE EA EE  |.....n..........|
00000820: EE E3 EB ED EE DE E7 EF  EF EF EB EE EA EE DE 6E  |...............n|
00000830: E2 FE EF EE EE E6 E2 DA  D2 DE E3 EB ED EE ED E7  |................|
00000840: EF EF EF EB EE EA EF E2  6F CE FE EF EE EE E6 E2  |........o.......|
00000850: EE EA EF EB EE DE DE E7  EE EA BE E2 EE EE EE A2  |................|
00000860: D2 EA DE EE E4 EE EE EE  EE 3E 6F EA FE EF EE EE  |.........>o.....|
00000870: E6 EE E4 EE EF EA E2 EE  EA EF E7 EE E7 EF EF EF  |................|
00000880: EB EE EA EF E6 6F 5E FE  EF EE EE E6 DE ED EB ED  |.....o^.........|
00000890: E3 EE E7 EE EA BE E2 EE  EE EB BE E6 EE E2 EA EE  |................|
000008A0: EE EF 7A 6E 2E FE EF EE  EE E6 EE E6 ED EB ED E3  |..zn............|
000008B0: EE E6 D6 EE EE D2 EE EE  E6 EE D2 EE EE EF DE 6E  |...............n|
000008C0: 3E FE EF EE EE E6 E2 EE  EA EE EE E3 EB ED EE DC  |>...............|
000008D0: E6 B6 EE EE D2 EE EE EE  DE D6 EE EE EE D2 EE D4  |................|
000008E0: EE EA E4 EE EE EE EF 10  6F 2E FE EF EE EE        |........o.....  |

......;.-...;***************************
*****.S...;*                            
  *.Y.(.;*     GRAFIK IN ASSEMBLER      
*...2.;*   PROGRAMM IN  9 MODULEN     *.
E.<.;* GRAFIK-BASIC-ERWEITERUNG C64 *...
F.;*         HIRES-4              *...P.
;*                              *.7.}...
...~~TP.P?.72.2.0...;.?........">.C"....
............................." ...;*****
***************************...X.;.....;*
** MODUL 0: ZUWEISUNGEN ***.....;..... .
BA$C000.E. .;.....;--- FESTE ZUORDNUNGEN
 ---.....;..... .EQXKO=$14;2-BYTE X-KOOR
DINATE.8.H. .EQFRETOP=$34;STRINGSTARTADR
ESSE MSB.E.R. .EQMEMSIZ=$38;HOECHSTE BAS
ICADRESSE MSB..... .EQCHRGET=$73;CHRGET-
X.WW.X..N.&....'......>......!\.B.$.UD..
P. .....U.E.E.E#RCT..<.,|]B..T.TU .@. ..
.U..$.4SRC.#....<".$.DE44..$U5D.%B....$U
E/IEBSSYSTEM.2... .EQIGONE=$0308;VEKTOR 
ZUM ROUTINENAUFRUF.\... .EQBILD=$5C00;BI
LDSCHIRMSTARTADRESSE..... .EQBITMAP=$600
0;STARTADRESSE BITMAP...". .EQGONE1=$A7E
4;ALTER INHALT VON IGONE...,. .EQINTEND=
$A7E7;ENDE DER INTERPRETERSCHLEIFE...6. 
.EQLINGET=$A96B;HOLT 2-BYTE-INTEGER NACH
 $14/15.Q.@. .EQFRMNUM=$AD8A;HOLT BELIEB
IGEN NUMERISCHEN AUSDRUCK.X.J. .EQCHKCOM
=$AEFD;AUF KOMMA PRUEFEN...T. .EQFACINX=
$B1AA;FAC -> INTEGER IN A/Y.Y.^. .EQGETA
DR=$B7F7;FAC -> INTEGER IN Y/A UND $14/1
5...H. .EQGETNUM=$B7EB;HOLT ADRESSE NACH
 $14/15 UND BYTE INS X-REG..@.R. .EQFSUB
=$B850;FAC = (A/Y) - FAC.D.|. .EQFMULT=$
BA28;FAC = (A/Y)*FAC..... .EQFDIV=$BB0F;
FAC = (A/Y) / FAC..... .EQMOVFM=$BBA2;LA
EDT FAC AUS SPEICHER..... .EQMOVMF=$BBD4
;LAEDT SPEICHER AUS FAC..... .EQVIC17=$D
011;BIT 5 SCHALTET BIT-MAP-MODUS EIN/AUS
.T... .EQVIC24=$D018;STEUERT BILDSCHIRMO
RT UND BIT-MAP-START..... .EQCIA2=$DD00;
CIA2 PORTA:STEUERT VIC-ABSCHNITT.C.B. .E
QCOMBYT=$E200;PRUEFT AUF KOMMA UND HOLT 
1 BYTE IN X.I.L.;...V.;--- VARIABLE ----
-.....;..... .EQMODE=$02;MODUS 0=LOESCHE
N, 1=ZEICHNEN.2... .EQYKO=$09;Y-KOORDINA
TE.U... .EQYK1=.....OORDINATENWERT Y1.R.
.. .EQDY=$11;ABSTAND Y1-Y0..... .EQIY=$1
9;INKREMENTWERT..... .EQAY=$1A;   -"-...
&. .EQAX=$1B;   -"-.Q.0. .EQIX=$1C;   -"
-...:. .EQYPLUSY=$57;KREISPUNKTS.XH.HJ4.
...~N.....&.ZXB@{............N..........
...............N.......ZR...............
ON......................R........>O.....
.....................O^.................
..........ZN..............V..R....R....N
>...................R....V...R.T........
O.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL