> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 0A 00 B0 47 20 24 35 30 30 30 00 23 |.......G $5000.#|
00000010: 08 14 00 4B 58 20 20 20 20 20 45 51 55 20 24 38 |...KX EQU $8|
00000020: 46 45 41 00 38 08 15 00 4B 59 20 20 20 20 20 45 |FEA.8...KY E|
00000030: 51 55 20 24 38 46 45 46 00 4D 08 16 00 50 55 4E |QU $8FEF.M...PUN|
00000040: 4B 54 31 20 45 51 55 20 24 39 30 30 30 00 62 08 |KT1 EQU $9000.b.|
00000050: 17 00 50 55 4E 4B 54 32 20 45 51 55 20 24 39 30 |..PUNKT2 EQU $90|
00000060: 33 43 00 77 08 18 00 50 4C 4F 54 20 20 20 45 51 |3C.w...PLOT EQ|
00000070: 55 20 24 39 30 41 35 00 8C 08 19 00 43 4C 45 41 |U $90A5.....CLEA|
00000080: 52 20 20 45 51 55 20 24 38 45 31 44 00 A1 08 1A |R EQU $8E1D....|
00000090: 00 41 59 49 4E 46 41 20 45 51 55 20 24 42 42 41 |.AYINFA EQU $BBA|
000000A0: 32 00 B6 08 1B 00 49 4E 56 41 52 20 20 45 51 55 |2.....INVAR EQU|
000000B0: 20 24 42 42 44 34 00 CA 08 1C 00 41 59 4D 46 41 | $BBD4.....AYMFA|
000000C0: 20 45 51 55 20 24 42 38 36 37 00 DF 08 1D 00 41 | EQU $B867.....A|
000000D0: 52 49 4E 46 41 20 45 51 55 20 24 42 43 30 43 00 |RINFA EQU $BC0C.|
000000E0: F4 08 1E 00 46 41 49 4E 41 52 20 45 51 55 20 24 |....FAINAR EQU $|
000000F0: 42 42 46 43 00 09 09 1F 00 41 59 44 55 46 41 20 |BBFC.....AYDUFA |
00000100: 45 51 55 20 24 42 42 30 46 00 4B 09 64 00 4C 44 |EQU $BB0F.K.d.LD|
00000110: 41 20 23 B3 50 55 4E 4B 54 31 3B 5A 55 52 20 42 |A #.PUNKT1;ZUR B|
00000120: 45 52 45 43 48 4E 55 4E 47 20 44 45 52 20 20 20 |ERECHNUNG DER |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 53 54 45 49 47 55 4E 47 00 5C 09 6E 00 | STEIGUNG.\.n.|
00000150: 4C 44 59 20 23 B1 50 55 4E 4B 54 31 00 6B 09 78 |LDY #.PUNKT1.k.x|
00000160: 00 4A 53 52 20 41 59 49 4E 46 41 00 7C 09 82 00 |.JSR AYINFA.|...|
00000170: 4C 44 41 20 23 B3 50 55 4E 4B 54 32 00 8D 09 8C |LDA #.PUNKT2....|
00000180: 00 4C 44 59 20 23 B1 50 55 4E 4B 54 32 00 A4 09 |.LDY #.PUNKT2...|
00000190: 96 00 4A 53 52 20 41 59 4D 46 41 20 20 20 3B 58 |..JSR AYMFA ;X|
000001A0: 32 AB 58 31 00 C8 09 A0 00 42 45 51 20 42 31 20 |2.X1.....BEQ B1 |
000001B0: 20 20 20 20 20 3B 57 45 4E 4E 20 30 20 44 41 4E | ;WENN 0 DAN|
000001C0: 4E 20 46 45 48 4C 45 52 00 D7 09 AA 00 4A 53 52 |N FEHLER.....JSR|
000001D0: 20 46 41 49 4E 41 52 00 EA 09 B4 00 4C 44 41 20 | FAINAR.....LDA |
000001E0: 23 B3 50 55 4E 4B 54 31 AA 35 00 FD 09 BE 00 4C |#.PUNKT1.5.....L|
000001F0: 44 59 20 23 B1 50 55 4E 4B 54 31 AA 35 00 0C 0A |DY #.PUNKT1.5...|
00000200: C8 00 4A 53 52 20 41 59 49 4E 46 41 00 1F 0A D2 |..JSR AYINFA....|
00000210: 00 4C 44 41 20 23 B3 50 55 4E 4B 54 32 AA 35 00 |.LDA #.PUNKT2.5.|
00000220: 32 0A DC 00 4C 44 59 20 23 B1 50 55 4E 4B 54 32 |2...LDY #.PUNKT2|
00000230: AA 35 00 49 0A E6 00 4A 53 52 20 41 59 4D 46 41 |.5.I...JSR AYMFA|
00000240: 20 20 20 3B 59 32 AB 59 31 00 56 0A F0 00 4C 44 | ;Y2.Y1.V...LD|
00000250: 41 20 23 24 30 30 00 63 0A FA 00 4C 44 59 20 23 |A #$00.c...LDY #|
00000260: 24 38 30 00 71 0A 04 01 4A 53 52 20 49 4E 56 41 |$80.q...JSR INVA|
00000270: 52 00 80 0A 0E 01 4A 53 52 20 41 52 49 4E 46 41 |R.....JSR ARINFA|
00000280: 00 9F 0A 18 01 4A 53 52 20 41 59 44 55 46 41 20 |.....JSR AYDUFA |
00000290: 20 3B 59 32 AB 59 31 20 AD 20 58 32 AB 58 31 00 | ;Y2.Y1 . X2.X1.|
000002A0: AD 0A 22 01 4A 53 52 20 49 4E 56 41 52 00 00 00 |..".JSR INVAR...|
.......G $5000.#...KX EQU $8FEA.8...
KY EQU $8FEF.M...PUNKT1 EQU $9000.B.
..PUNKT2 EQU $903C.W...PLOT EQU $90A5.
....CLEAR EQU $8E1D.....AYINFA EQU $BBA
2.....INVAR EQU $BBD4.J...AYMFA EQU $B8
67.....ARINFA EQU $BC0C.....FAINAR EQU $
BBFC.....AYDUFA EQU $BB0F.K.D.LDA #.PUNK
T1;ZUR BERECHNUNG DER
STEIGUNG.\.N.LDY #.PUNKT1.K.X.JSR AYI
NFA.|...LDA #.PUNKT2.....LDY #.PUNKT2...
..JSR AYMFA ;X2.X1.H. .BEQ B1 ;WE
NN 0 DANN FEHLER.W...JSR FAINAR.....LDA
#.PUNKT1.5.....LDY #.PUNKT1.5...H.JSR AY
INFA...R.LDA #.PUNKT2.5.2...LDY #.PUNKT2
.5.I...JSR AYMFA ;Y2.Y1.V...LDA #$00.C
...LDY #$80.Q...JSR INVAR.....JSR ARINFA
.....JSR AYDUFA ;Y2.Y1 . X2.X1...".JSR
INVAR...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL