COT QUELL HYPRA
FILE INFORMATION
FILENAME(S): COT QUELL HYPRA
FILE TYPE(S): PRG
FILE SIZE: 845b
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 2 disk(s)
FILE HASH
7c3794129d74ab24c32b111786b893a1f22416fa49650fa5b19106ecfdf7ac6c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | COT QUELL HYPRA | PRG | Treasure Chest - ToGuMi | 25 | 9 | DOWNLOAD FILE |
| SONDERHEFT ASS | COT QUELL HYPRA | PRG | C64er | 25 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E4 1F 0A 00 20 2E 4C 49 31 2C 34 00 F2 1F |...... .LI1,4...| 00000010: 14 00 20 2E 42 41 24 36 30 30 30 00 18 20 1E 00 |.. .BA$6000.. ..| 00000020: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 00 3E 20 28 00 3B 2A 20 20 20 20 20 20 20 20 |*.> (.;* | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 2A 00 64 20 32 00 3B 2A 20 20 | *.d 2.;* | 00000070: 20 20 42 45 49 53 50 49 45 4C 50 52 4F 47 52 41 | BEISPIELPROGRA| 00000080: 4D 4D 20 5A 55 20 44 45 4E 20 20 20 2A 00 8A 20 |MM ZU DEN *.. | 00000090: 3C 00 3B 2A 20 20 20 20 20 20 20 52 20 4F 20 4D |<.;* R O M| 000000A0: 20 2D 20 52 4F 55 54 49 4E 45 4E 20 20 20 20 20 | - ROUTINEN | 000000B0: 20 20 2A 00 B0 20 46 00 3B 2A 20 20 20 20 20 20 | *.. F.;* | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 20 20 2A 00 D6 20 50 00 3B 2A | *.. P.;*| 000000E0: 20 20 20 20 20 20 43 4F 54 41 4E 47 45 4E 53 2D | COTANGENS-| 000000F0: 46 55 4E 4B 54 49 4F 4E 20 20 20 20 20 20 2A 00 |FUNKTION *.| 00000100: FC 20 5A 00 3B 2A 20 48 45 49 4D 4F 20 50 4F 4E |. Z.;* HEIMO PON| 00000110: 4E 41 54 48 20 20 48 41 4D 42 55 52 47 20 20 31 |NATH HAMBURG 1| 00000120: 39 38 35 20 2A 00 22 21 64 00 3B 2A 20 20 20 20 |985 *."!d.;* | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 20 20 20 20 20 20 20 20 2A 00 48 21 6E 00 | *.H!n.| 00000150: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 00 4E 21 78 00 3B 00 69 21 82 00 3B 45 49 4E |*.N!x.;.i!..;EIN| 00000180: 53 50 52 55 4E 47 20 4D 49 54 54 45 4C 53 20 55 |SPRUNG MITTELS U| 00000190: 53 52 00 8B 21 8C 00 3B 5A 55 56 4F 52 20 55 53 |SR..!..;ZUVOR US| 000001A0: 52 2D 56 45 4B 54 4F 52 20 45 49 4E 53 54 45 4C |R-VEKTOR EINSTEL| 000001B0: 4C 45 4E 21 00 91 21 96 00 3B 00 A3 21 A0 00 20 |LEN!..!..;..!.. | 000001C0: 2E 45 51 43 4F 53 3D 24 45 32 36 34 00 B7 21 A5 |.EQCOS=$E264..!.| 000001D0: 00 20 2E 45 51 4D 4F 56 46 4D 3D 24 42 42 41 32 |. .EQMOVFM=$BBA2| 000001E0: 00 CB 21 AA 00 20 2E 45 51 4D 4F 56 4D 46 3D 24 |..!.. .EQMOVMF=$| 000001F0: 42 42 44 34 00 DD 21 B4 00 20 2E 45 51 53 49 4E |BBD4..!.. .EQSIN| 00000200: 3D 24 45 32 36 42 00 F0 21 BE 00 20 2E 45 51 46 |=$E26B..!.. .EQF| 00000210: 44 49 56 3D 24 42 42 30 46 00 03 22 C8 00 20 2E |DIV=$BB0F..".. .| 00000220: 45 51 57 45 52 54 3D 24 37 30 30 30 00 17 22 CD |EQWERT=$7000..".| 00000230: 00 20 2E 45 51 57 45 52 54 31 3D 24 37 30 31 30 |. .EQWERT1=$7010| 00000240: 00 1D 22 D2 00 3B 00 34 22 D4 00 53 54 41 52 54 |.."..;.4"..START| 00000250: 20 4C 44 58 23 3C 28 57 45 52 54 31 29 00 46 22 | LDX#<(WERT1).F"| 00000260: D6 00 20 4C 44 59 23 3E 28 57 45 52 54 31 29 00 |.. LDY#>(WERT1).| 00000270: 54 22 D8 00 20 4A 53 52 4D 4F 56 4D 46 00 60 22 |T".. JSRMOVMF.`"| 00000280: DC 00 20 4A 53 52 43 4F 53 00 71 22 E6 00 20 4C |.. JSRCOS.q".. L| 00000290: 44 58 23 3C 28 57 45 52 54 29 00 82 22 F0 00 20 |DX#<(WERT)..".. | 000002A0: 4C 44 59 23 3E 28 57 45 52 54 29 00 90 22 FA 00 |LDY#>(WERT).."..| 000002B0: 20 4A 53 52 4D 4F 56 4D 46 00 A2 22 FC 00 20 4C | JSRMOVMF..".. L| 000002C0: 44 41 23 3C 28 57 45 52 54 31 29 00 B4 22 FE 00 |DA#<(WERT1).."..| 000002D0: 20 4C 44 59 23 3E 28 57 45 52 54 31 29 00 C2 22 | LDY#>(WERT1).."| 000002E0: 00 01 20 4A 53 52 4D 4F 56 46 4D 00 CE 22 04 01 |.. JSRMOVFM.."..| 000002F0: 20 4A 53 52 53 49 4E 00 DF 22 0E 01 20 4C 44 41 | JSRSIN..".. LDA| 00000300: 23 3C 28 57 45 52 54 29 00 F0 22 18 01 20 4C 44 |#<(WERT)..".. LD| 00000310: 59 23 3E 28 57 45 52 54 29 00 FD 22 22 01 20 4A |Y#>(WERT).."". J| 00000320: 53 52 46 44 49 56 00 06 23 2C 01 20 52 54 53 00 |SRFDIV..#,. RTS.| 00000330: 0C 23 36 01 3B 00 18 23 40 01 20 2E 53 59 31 2C |.#6.;..#@. .SY1,| 00000340: 34 00 21 23 4A 01 20 2E 53 54 00 00 00 |4.!#J. .ST... |
X..... .LI1,4..... .BA$6000.. ..;*******
*************************.> (.;*
*.D 2.;* BEISPI
ELPROGRAMM ZU DEN *.. <.;* R O M
- ROUTINEN *.. F.;*
*.V P.;* COTANGENS-
FUNKTION *.. Z.;* HEIMO PONNATH HA
MBURG 1985 *."!D.;*
*.H!N.;***********************
*********.N!X.;.I!..;EINSPRUNG MITTELS U
SR..!..;ZUVOR USR-VEKTOR EINSTELLEN!..!.
.;..! . .EQCOS=$E264..!.. .EQMOVFM=$BBA2
.K!.. .EQMOVMF=$BBD4..!.. .EQSIN=$E26B..
!.. .EQFDIV=$BB0F.."H. .EQWERT=$7000.."M
. .EQWERT1=$7010.."R.;.4"T.START LDX#<(W
ERT1).F"V. LDY#>(WERT1).T"X. JSRMOVMF.`"
.. JSRCOS.Q".. LDX#<(WERT)..".. LDY#>(WE
RT)..".. JSRMOVMF..".. LDA#<(WERT1).."..
LDY#>(WERT1).B".. JSRMOVFM.N".. JSRSIN.
.".. LDA#<(WERT)..".. LDY#>(WERT).."". J
SRFDIV..#,. RTS..#6.;..#@. .SY1,4.!#J. .
ST...
> CLICK IMAGE PREVIEW FOR FULL MODAL