BEISPIEL 3.SRC
FILE INFORMATION
FILENAME(S): BEISPIEL 3.SRC
FILE TYPE(S): PRG
FILE SIZE: 984b
FIRST SEEN: 2025-11-30 21:23:11
APPEARS ON: 1 disk(s)
FILE HASH
26981850552792ea3aade90370f1c13c6833005eae714abf4cfc26d9f04ba30d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 3 1 | BEISPIEL 3.SRC | PRG | DuncanTwain | 10 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 58 4C 20 3D 20 24 46 41 00 1B |....d.XL = $FA..|
00000010: 08 6E 00 58 48 20 3D 20 24 46 42 00 2A 08 78 00 |.n.XH = $FB.*.x.|
00000020: 53 55 4D 4C 20 3D 20 24 46 43 00 39 08 82 00 53 |SUML = $FC.9...S|
00000030: 55 4D 48 20 3D 20 24 46 44 00 46 08 8C 00 2A 3D |UMH = $FD.F...*=|
00000040: 20 24 43 34 36 30 00 52 08 96 00 53 54 41 20 2A | $C460.R...STA *|
00000050: 58 4C 00 74 08 A0 00 53 54 58 20 2A 58 48 20 3B |XL.t...STX *XH ;|
00000060: 20 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 4D 45 | X-KOORDINATE ME|
00000070: 52 4B 45 4E 00 8B 08 AA 00 54 59 41 20 3B 20 59 |RKEN.....TYA ; Y|
00000080: 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 98 08 B4 00 |-KOORDINATE.....|
00000090: 41 4E 44 20 23 24 46 38 00 A5 08 BE 00 53 54 41 |AND #$F8.....STA|
000000A0: 20 2A 24 46 45 00 B3 08 C8 00 53 54 41 20 2A 53 | *$FE.....STA *S|
000000B0: 55 4D 4C 00 BE 08 D2 00 4C 44 41 20 23 30 00 CC |UML.....LDA #0..|
000000C0: 08 DC 00 53 54 41 20 2A 53 55 4D 48 00 DA 08 E6 |...STA *SUMH....|
000000D0: 00 41 53 4C 20 2A 53 55 4D 4C 00 E8 08 F0 00 52 |.ASL *SUML.....R|
000000E0: 4F 4C 20 2A 53 55 4D 48 00 F6 08 FA 00 41 53 4C |OL *SUMH.....ASL|
000000F0: 20 2A 53 55 4D 4C 00 04 09 04 01 52 4F 4C 20 2A | *SUML.....ROL *|
00000100: 53 55 4D 48 00 21 09 0E 01 43 4C 43 20 3B 20 55 |SUMH.!...CLC ; U|
00000110: 45 42 45 52 54 52 41 47 20 4C 4F 45 53 43 48 45 |EBERTRAG LOESCHE|
00000120: 4E 00 2F 09 18 01 4C 44 41 20 2A 53 55 4D 4C 00 |N./...LDA *SUML.|
00000130: 3C 09 22 01 41 44 43 20 2A 24 46 45 00 4A 09 2C |<.".ADC *$FE.J.,|
00000140: 01 53 54 41 20 2A 53 55 4D 4C 00 58 09 36 01 4C |.STA *SUML.X.6.L|
00000150: 44 41 20 2A 53 55 4D 48 00 63 09 40 01 41 44 43 |DA *SUMH.c.@.ADC|
00000160: 20 23 30 00 71 09 4A 01 53 54 41 20 2A 53 55 4D | #0.q.J.STA *SUM|
00000170: 48 00 7F 09 54 01 41 53 4C 20 2A 53 55 4D 4C 00 |H...T.ASL *SUML.|
00000180: 8D 09 5E 01 52 4F 4C 20 2A 53 55 4D 48 00 9B 09 |..^.ROL *SUMH...|
00000190: 68 01 41 53 4C 20 2A 53 55 4D 4C 00 A9 09 72 01 |h.ASL *SUML...r.|
000001A0: 52 4F 4C 20 2A 53 55 4D 48 00 B7 09 7C 01 41 53 |ROL *SUMH...|.AS|
000001B0: 4C 20 2A 53 55 4D 4C 00 C5 09 86 01 52 4F 4C 20 |L *SUML.....ROL |
000001C0: 2A 53 55 4D 48 00 DC 09 90 01 54 59 41 20 3B 20 |*SUMH.....TYA ; |
000001D0: 59 2D 4B 4F 4F 52 44 49 4E 41 54 45 00 E7 09 9A |Y-KOORDINATE....|
000001E0: 01 41 4E 44 20 23 37 00 EF 09 A4 01 43 4C 43 00 |.AND #7.....CLC.|
000001F0: FD 09 AE 01 41 44 43 20 2A 53 55 4D 4C 00 0B 0A |....ADC *SUML...|
00000200: B8 01 53 54 41 20 2A 53 55 4D 4C 00 19 0A C2 01 |..STA *SUML.....|
00000210: 4C 44 41 20 2A 53 55 4D 48 00 24 0A CC 01 41 44 |LDA *SUMH.$...AD|
00000220: 43 20 23 30 00 32 0A D6 01 53 54 41 20 2A 53 55 |C #0.2...STA *SU|
00000230: 4D 48 00 3A 0A E0 01 43 4C 43 00 46 0A EA 01 4C |MH.:...CLC.F...L|
00000240: 44 41 20 2A 58 4C 00 53 0A F4 01 41 4E 44 20 23 |DA *XL.S...AND #|
00000250: 24 46 38 00 61 0A FE 01 41 44 43 20 2A 53 55 4D |$F8.a...ADC *SUM|
00000260: 4C 00 6F 0A 08 02 53 54 41 20 2A 53 55 4D 4C 00 |L.o...STA *SUML.|
00000270: 7B 0A 12 02 4C 44 41 20 2A 58 48 00 89 0A 1C 02 |{...LDA *XH.....|
00000280: 41 44 43 20 2A 53 55 4D 48 00 97 0A 26 02 53 54 |ADC *SUMH...&.ST|
00000290: 41 20 2A 53 55 4D 48 00 9F 0A 30 02 43 4C 43 00 |A *SUMH...0.CLC.|
000002A0: AF 0A 3A 02 4C 44 41 20 23 3C 24 45 30 30 30 00 |..:.LDA #<$E000.|
000002B0: BD 0A 44 02 41 44 43 20 2A 53 55 4D 4C 00 CB 0A |..D.ADC *SUML...|
000002C0: 4E 02 53 54 41 20 2A 53 55 4D 4C 00 DB 0A 58 02 |N.STA *SUML...X.|
000002D0: 4C 44 41 20 23 3E 24 45 30 30 30 00 E9 0A 62 02 |LDA #>$E000...b.|
000002E0: 41 44 43 20 2A 53 55 4D 48 00 F7 0A 6C 02 53 54 |ADC *SUMH...l.ST|
000002F0: 41 20 2A 53 55 4D 48 00 03 0B 76 02 4C 44 41 20 |A *SUMH...v.LDA |
00000300: 2A 58 4C 00 0E 0B 80 02 41 4E 44 20 23 37 00 19 |*XL.....AND #7..|
00000310: 0B 8A 02 45 4F 52 20 23 37 00 21 0B 94 02 54 41 |...EOR #7.!...TA|
00000320: 58 00 2C 0B 9E 02 4C 44 41 20 23 31 00 3A 0B A8 |X.,...LDA #1.:..|
00000330: 02 53 48 49 46 54 20 44 45 58 00 45 0B B2 02 42 |.SHIFT DEX.E...B|
00000340: 4D 49 20 4F 4B 00 4F 0B BC 02 41 53 4C 20 41 00 |MI OK.O...ASL A.|
00000350: 5D 0B C6 02 42 4E 45 20 53 48 49 46 54 00 6B 0B |]...BNE SHIFT.k.|
00000360: D0 02 4F 4B 20 4C 44 59 20 23 30 00 78 0B DA 02 |..OK LDY #0.x...|
00000370: 4C 44 58 20 23 24 33 34 00 80 0B E4 02 53 45 49 |LDX #$34.....SEI|
00000380: 00 8B 0B EE 02 53 54 58 20 2A 31 00 9C 0B F8 02 |.....STX *1.....|
00000390: 4F 52 41 20 28 53 55 4D 4C 29 2C 59 00 AD 0B 02 |ORA (SUML),Y....|
000003A0: 03 53 54 41 20 28 53 55 4D 4C 29 2C 59 00 BA 0B |.STA (SUML),Y...|
000003B0: 0C 03 4C 44 58 20 23 24 33 37 00 C5 0B 16 03 53 |..LDX #$37.....S|
000003C0: 54 58 20 2A 31 00 CD 0B 20 03 43 4C 49 00 D5 0B |TX *1... .CLI...|
000003D0: 2A 03 52 54 53 00 00 00 |*.RTS... |
....D.XL = $FA...N.XH = $FB.*.X.SUML = $
FC.9...SUMH = $FD.F...*= $C460.R...STA *
XL.T. .STX *XH ; X-KOORDINATE MERKEN....
.TYA ; Y-KOORDINATE.....AND #$F8.....STA
*$FE...H.STA *SUML...R.LDA #0.L...STA *
SUMH.Z...ASL *SUML.....ROL *SUMH.....ASL
*SUML.....ROL *SUMH.!...CLC ; UEBERTRAG
LOESCHEN./...LDA *SUML.<.".ADC *$FE.J.,
.STA *SUML.X.6.LDA *SUMH.C.@.ADC #0.Q.J.
STA *SUMH..T.ASL *SUML...^.ROL *SUMH...
H.ASL *SUML...R.ROL *SUMH...|.ASL *SUML.
E...ROL *SUMH.....TYA ; Y-KOORDINATE....
.AND #7.....CLC.....ADC *SUML.....STA *S
UML...B.LDA *SUMH.$.L.ADC #0.2.V.STA *SU
MH.:...CLC.F...LDA *XL.S...AND #$F8.A...
ADC *SUML.O...STA *SUML.{...LDA *XH.....
ADC *SUMH...&.STA *SUMH...0.CLC...:.LDA
#<$E000...D.ADC *SUML.K.N.STA *SUML...X.
LDA #>$E000...B.ADC *SUMH...L.STA *SUMH.
..V.LDA *XL.....AND #7.....EOR #7.!...TA
X.,...LDA #1.:...SHIFT DEX.E...BMI OK.O.
..ASL A.].F.BNE SHIFT.K.P.OK LDY #0.X.Z.
LDX #$34.....SEI.....STX *1.....ORA (SUM
L),Y.....STA (SUML),Y.....LDX #$37.E...S
TX *1.M. .CLI.U.*.RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL