> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 41 B2 35 2E 37 33 32 00 29 08 |....d.A.5.732.).|
00000010: 6E 00 8F 20 2A 20 42 41 4E 4B 31 20 49 4E 20 43 |n.. * BANK1 IN C|
00000020: 31 32 38 20 4D 4F 44 45 2A 00 57 08 78 00 97 20 |128 MODE*.W.x.. |
00000030: 38 32 38 2C C2 28 37 31 29 20 3A 20 8F 2A 50 4F |828,.(71) : .*PO|
00000040: 4B 45 32 38 31 36 2C 50 45 45 4B 28 37 33 29 49 |KE2816,PEEK(73)I|
00000050: 4E 20 43 31 32 38 2A 00 85 08 82 00 97 20 36 32 |N C128*...... 62|
00000060: 39 2C C2 28 37 32 29 3A 8F 2A 20 50 4F 4B 45 32 |9,.(72):.* POKE2|
00000070: 38 31 37 2C 50 45 45 4B 28 37 34 29 20 49 4E 20 |817,PEEK(74) IN |
00000080: 43 31 32 38 2A 00 B5 08 8C 00 4C 4F B2 C2 28 38 |C128*.....LO..(8|
00000090: 32 38 29 AA C2 28 38 32 39 29 AC 32 35 36 3A 8F |28)..(829).256:.|
000000A0: 20 2A 20 32 38 31 36 2C 32 38 31 37 49 4E 20 43 | * 2816,2817IN C|
000000B0: 31 32 38 20 2A 00 D8 08 96 00 8F 20 2A 50 45 45 |128 *...... *PEE|
000000C0: 4B 20 46 4C 4F 41 54 49 4E 47 20 50 4F 49 4E 54 |K FLOATING POINT|
000000D0: 20 42 59 54 45 53 20 2A 00 F5 08 A0 00 81 20 42 | BYTES *...... B|
000000E0: B2 30 20 A4 20 34 3A 50 28 42 29 B2 C2 28 4C 4F |.0 . 4:P(B)..(LO|
000000F0: AA 42 29 3A 82 00 10 09 AA 00 8F 20 2A 43 41 4C |.B):....... *CAL|
00000100: 43 55 4C 41 54 45 20 45 58 50 4F 4E 45 4E 54 2A |CULATE EXPONENT*|
00000110: 00 24 09 B4 00 45 58 B2 32 AE 28 50 28 30 29 AB |.$...EX.2.(P(0).|
00000120: 31 32 39 29 00 3D 09 BE 00 8F 20 2A 20 43 41 4C |129).=.... * CAL|
00000130: 43 55 4C 41 54 45 20 53 49 47 4E 20 2A 00 5D 09 |CULATE SIGN *.].|
00000140: C8 00 53 49 47 4E B2 28 AB 31 29 AE 28 28 50 28 |..SIGN.(.1).((P(|
00000150: 31 29 AF 20 31 32 38 29 AD 31 32 38 29 00 77 09 |1). 128).128).w.|
00000160: D2 00 8F 20 2A 20 52 45 4D 4F 56 45 20 53 49 47 |... * REMOVE SIG|
00000170: 4E 20 42 59 54 45 2A 00 93 09 DC 00 50 28 31 29 |N BYTE*.....P(1)|
00000180: B2 50 28 31 29 AF 20 31 32 37 3A 8F 20 37 20 42 |.P(1). 127:. 7 B|
00000190: 49 54 53 00 B8 09 E6 00 8F 20 2A 20 43 41 4C 43 |ITS...... * CALC|
000001A0: 55 4C 41 54 45 20 46 52 41 43 54 49 4F 4E 20 41 |ULATE FRACTION A|
000001B0: 4C 20 50 41 52 54 20 2A 00 CB 09 F0 00 46 52 41 |L PART *.....FRA|
000001C0: 43 54 B2 50 28 34 29 AD 32 35 36 00 E6 09 FA 00 |CT.P(4).256.....|
000001D0: 46 52 41 43 54 B2 28 46 52 41 43 54 AA 50 28 33 |FRACT.(FRACT.P(3|
000001E0: 29 29 AD 32 35 36 00 01 0A 04 01 46 52 41 43 54 |)).256.....FRACT|
000001F0: B2 28 46 52 41 43 54 AA 50 28 32 29 29 AD 32 35 |.(FRACT.P(2)).25|
00000200: 36 00 1C 0A 0E 01 46 52 41 43 54 B2 28 46 52 41 |6.....FRACT.(FRA|
00000210: 43 54 AA 50 28 31 29 29 AD 31 32 38 00 3C 0A 18 |CT.P(1)).128.<..|
00000220: 01 8F 20 2A 20 41 44 44 20 4F 4E 45 20 46 4F 52 |.. * ADD ONE FOR|
00000230: 20 4D 41 4E 54 49 53 20 53 41 20 2A 00 4D 0A 22 | MANTIS SA *.M."|
00000240: 01 4D 41 4E 54 B2 31 AA 46 52 41 43 54 00 66 0A |.MANT.1.FRACT.f.|
00000250: 2C 01 8F 2A 43 41 4C 43 55 4C 41 54 45 20 56 41 |,..*CALCULATE VA|
00000260: 52 49 41 42 4C 45 00 7B 0A 36 01 56 41 52 B2 53 |RIABLE.{.6.VAR.S|
00000270: 49 47 4E AC 45 58 AC 4D 41 4E 54 00 84 0A 40 01 |IGN.EX.MANT...@.|
00000280: 99 56 41 52 00 00 00 |.VAR... |
....D.A.5.732.).N.. * BANK1 IN C128 MODE
*.W.X.. 828,B(71) : .*POKE2816,PEEK(73)I
N C128*...... 629,B(72):.* POKE2817,PEEK
(74) IN C128*.....LO.B(828).B(829).256:.
* 2816,2817IN C128 *.X.... *PEEK FLOATI
NG POINT BYTES *... .. B.0 . 4:P(B).B(LO
.B):....... *CALCULATE EXPONENT*.$...EX.
2.(P(0).129).=.... * CALCULATE SIGN *.].
H.SIGN.(.1).((P(1). 128).128).W.R.. * RE
MOVE SIGN BYTE*.....P(1).P(1). 127:. 7 B
ITS...... * CALCULATE FRACTION AL PART *
.K...FRACT.P(4).256.....FRACT.(FRACT.P(3
)).256.....FRACT.(FRACT.P(2)).256.....FR
ACT.(FRACT.P(1)).128.<.... * ADD ONE FOR
MANTIS SA *.M.".MANT.1.FRACT.F.,..*CALC
ULATE VARIABLE.{.6.VAR.SIGN.EX.MANT...@.
.VAR...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL