BEISPIEL 31.SRC
FILE INFORMATION
FILENAME(S): BEISPIEL 31.SRC
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:23:11
APPEARS ON: 1 disk(s)
FILE HASH
c63625d338ac6dff7895ef58e61128c4db171b2a996e24b30f64b07c6d47c695
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 3 1 | BEISPIEL 31.SRC | PRG | DuncanTwain | 10 | 6 | 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 4E 08 91 00 50 48 50 00 5A | $C460.N...PHP.Z| 00000050: 08 96 00 53 54 41 20 2A 58 4C 00 7C 08 A0 00 53 |...STA *XL.|...S| 00000060: 54 58 20 2A 58 48 20 3B 20 58 2D 4B 4F 4F 52 44 |TX *XH ; X-KOORD| 00000070: 49 4E 41 54 45 20 4D 45 52 4B 45 4E 00 93 08 AA |INATE MERKEN....| 00000080: 00 54 59 41 20 3B 20 59 2D 4B 4F 4F 52 44 49 4E |.TYA ; Y-KOORDIN| 00000090: 41 54 45 00 A0 08 B4 00 41 4E 44 20 23 24 46 38 |ATE.....AND #$F8| 000000A0: 00 AD 08 BE 00 53 54 41 20 2A 24 46 45 00 BB 08 |.....STA *$FE...| 000000B0: C8 00 53 54 41 20 2A 53 55 4D 4C 00 C6 08 D2 00 |..STA *SUML.....| 000000C0: 4C 44 41 20 23 30 00 D4 08 DC 00 53 54 41 20 2A |LDA #0.....STA *| 000000D0: 53 55 4D 48 00 E2 08 E6 00 41 53 4C 20 2A 53 55 |SUMH.....ASL *SU| 000000E0: 4D 4C 00 F0 08 F0 00 52 4F 4C 20 2A 53 55 4D 48 |ML.....ROL *SUMH| 000000F0: 00 FE 08 FA 00 41 53 4C 20 2A 53 55 4D 4C 00 0C |.....ASL *SUML..| 00000100: 09 04 01 52 4F 4C 20 2A 53 55 4D 48 00 29 09 0E |...ROL *SUMH.)..| 00000110: 01 43 4C 43 20 3B 20 55 45 42 45 52 54 52 41 47 |.CLC ; UEBERTRAG| 00000120: 20 4C 4F 45 53 43 48 45 4E 00 37 09 18 01 4C 44 | LOESCHEN.7...LD| 00000130: 41 20 2A 53 55 4D 4C 00 44 09 22 01 41 44 43 20 |A *SUML.D.".ADC | 00000140: 2A 24 46 45 00 52 09 2C 01 53 54 41 20 2A 53 55 |*$FE.R.,.STA *SU| 00000150: 4D 4C 00 60 09 36 01 4C 44 41 20 2A 53 55 4D 48 |ML.`.6.LDA *SUMH| 00000160: 00 6B 09 40 01 41 44 43 20 23 30 00 79 09 4A 01 |.k.@.ADC #0.y.J.| 00000170: 53 54 41 20 2A 53 55 4D 48 00 87 09 54 01 41 53 |STA *SUMH...T.AS| 00000180: 4C 20 2A 53 55 4D 4C 00 95 09 5E 01 52 4F 4C 20 |L *SUML...^.ROL | 00000190: 2A 53 55 4D 48 00 A3 09 68 01 41 53 4C 20 2A 53 |*SUMH...h.ASL *S| 000001A0: 55 4D 4C 00 B1 09 72 01 52 4F 4C 20 2A 53 55 4D |UML...r.ROL *SUM| 000001B0: 48 00 BF 09 7C 01 41 53 4C 20 2A 53 55 4D 4C 00 |H...|.ASL *SUML.| 000001C0: CD 09 86 01 52 4F 4C 20 2A 53 55 4D 48 00 E4 09 |....ROL *SUMH...| 000001D0: 90 01 54 59 41 20 3B 20 59 2D 4B 4F 4F 52 44 49 |..TYA ; Y-KOORDI| 000001E0: 4E 41 54 45 00 EF 09 9A 01 41 4E 44 20 23 37 00 |NATE.....AND #7.| 000001F0: F7 09 A4 01 43 4C 43 00 05 0A AE 01 41 44 43 20 |....CLC.....ADC | 00000200: 2A 53 55 4D 4C 00 13 0A B8 01 53 54 41 20 2A 53 |*SUML.....STA *S| 00000210: 55 4D 4C 00 21 0A C2 01 4C 44 41 20 2A 53 55 4D |UML.!...LDA *SUM| 00000220: 48 00 2C 0A CC 01 41 44 43 20 23 30 00 3A 0A D6 |H.,...ADC #0.:..| 00000230: 01 53 54 41 20 2A 53 55 4D 48 00 42 0A E0 01 43 |.STA *SUMH.B...C| 00000240: 4C 43 00 4E 0A EA 01 4C 44 41 20 2A 58 4C 00 5B |LC.N...LDA *XL.[| 00000250: 0A F4 01 41 4E 44 20 23 24 46 38 00 69 0A FE 01 |...AND #$F8.i...| 00000260: 41 44 43 20 2A 53 55 4D 4C 00 77 0A 08 02 53 54 |ADC *SUML.w...ST| 00000270: 41 20 2A 53 55 4D 4C 00 83 0A 12 02 4C 44 41 20 |A *SUML.....LDA | 00000280: 2A 58 48 00 91 0A 1C 02 41 44 43 20 2A 53 55 4D |*XH.....ADC *SUM| 00000290: 48 00 9F 0A 26 02 53 54 41 20 2A 53 55 4D 48 00 |H...&.STA *SUMH.| 000002A0: A7 0A 30 02 43 4C 43 00 B7 0A 3A 02 4C 44 41 20 |..0.CLC...:.LDA | 000002B0: 23 3C 24 45 30 30 30 00 C5 0A 44 02 41 44 43 20 |#<$E000...D.ADC | 000002C0: 2A 53 55 4D 4C 00 D3 0A 4E 02 53 54 41 20 2A 53 |*SUML...N.STA *S| 000002D0: 55 4D 4C 00 E3 0A 58 02 4C 44 41 20 23 3E 24 45 |UML...X.LDA #>$E| 000002E0: 30 30 30 00 F1 0A 62 02 41 44 43 20 2A 53 55 4D |000...b.ADC *SUM| 000002F0: 48 00 FF 0A 6C 02 53 54 41 20 2A 53 55 4D 48 00 |H...l.STA *SUMH.| 00000300: 0B 0B 76 02 4C 44 41 20 2A 58 4C 00 16 0B 80 02 |..v.LDA *XL.....| 00000310: 41 4E 44 20 23 37 00 21 0B 8A 02 45 4F 52 20 23 |AND #7.!...EOR #| 00000320: 37 00 29 0B 94 02 54 41 58 00 34 0B 9E 02 4C 44 |7.)...TAX.4...LD| 00000330: 41 20 23 31 00 42 0B A8 02 53 48 49 46 54 20 44 |A #1.B...SHIFT D| 00000340: 45 58 00 4D 0B B2 02 42 4D 49 20 4F 4B 00 57 0B |EX.M...BMI OK.W.| 00000350: BC 02 41 53 4C 20 41 00 65 0B C6 02 42 4E 45 20 |..ASL A.e...BNE | 00000360: 53 48 49 46 54 00 73 0B D0 02 4F 4B 20 4C 44 59 |SHIFT.s...OK LDY| 00000370: 20 23 30 00 80 0B DA 02 4C 44 58 20 23 24 33 34 | #0.....LDX #$34| 00000380: 00 88 0B DF 02 50 4C 50 00 90 0B E4 02 53 45 49 |.....PLP.....SEI| 00000390: 00 9B 0B EE 02 53 54 58 20 2A 31 00 A9 0B F8 02 |.....STX *1.....| 000003A0: 42 43 43 20 4C 4F 53 43 48 00 BA 0B 02 03 4F 52 |BCC LOSCH.....OR| 000003B0: 41 20 28 53 55 4D 4C 29 2C 59 00 C6 0B 0C 03 42 |A (SUML),Y.....B| 000003C0: 43 53 20 4F 4B 32 00 D9 0B 16 03 4C 4F 53 43 48 |CS OK2.....LOSCH| 000003D0: 20 45 4F 52 20 23 24 46 46 00 EA 0B 20 03 41 4E | EOR #$FF... .AN| 000003E0: 44 20 28 53 55 4D 4C 29 2C 59 00 FF 0B 2A 03 4F |D (SUML),Y...*.O| 000003F0: 4B 32 20 53 54 41 20 28 53 55 4D 4C 29 2C 59 00 |K2 STA (SUML),Y.| 00000400: 0C 0C 34 03 4C 44 58 20 23 24 33 37 00 17 0C 3E |..4.LDX #$37...>| 00000410: 03 53 54 58 20 2A 31 00 1F 0C 48 03 43 4C 49 00 |.STX *1...H.CLI.| 00000420: 27 0C 52 03 52 54 53 00 2F 0C 5C 03 2E 45 4E 00 |'.R.RTS./.\..EN.| 00000430: 00 00 |.. |
....D.XL = $FA...N.XH = $FB.*.X.SUML = $ FC.9...SUMH = $FD.F...*= $C460.N...PHP.Z ...STA *XL.|. .STX *XH ; X-KOORDINATE ME RKEN.....TYA ; Y-KOORDINATE. ...AND #$F8 .....STA *$FE...H.STA *SUML.F.R.LDA #0.T ...STA *SUMH.....ASL *SUML.....ROL *SUMH .....ASL *SUML.....ROL *SUMH.)...CLC ; U EBERTRAG LOESCHEN.7...LDA *SUML.D.".ADC *$FE.R.,.STA *SUML.`.6.LDA *SUMH.K.@.ADC #0.Y.J.STA *SUMH...T.ASL *SUML...^.ROL *SUMH...H.ASL *SUML...R.ROL *SUMH...|.AS L *SUML.M...ROL *SUMH.....TYA ; Y-KOORDI NATE.....AND #7.....CLC.....ADC *SUML... ..STA *SUML.!.B.LDA *SUMH.,.L.ADC #0.:.V .STA *SUMH.B...CLC.N...LDA *XL.[...AND # $F8.I...ADC *SUML.W...STA *SUML.....LDA *XH.....ADC *SUMH...&.STA *SUMH...0.CLC. ..:.LDA #<$E000.E.D.ADC *SUML.S.N.STA *S UML...X.LDA #>$E000...B.ADC *SUMH...L.ST A *SUMH...V.LDA *XL.....AND #7.!...EOR # 7.)...TAX.4...LDA #1.B...SHIFT DEX.M...B MI OK.W...ASL A.E.F.BNE SHIFT.S.P.OK LDY #0...Z.LDX #$34.....PLP.....SEI.....STX *1.....BCC LOSCH.....ORA (SUML),Y.F...B CS OK2.Y...LOSCH EOR #$FF... .AND (SUML) ,Y...*.OK2 STA (SUML),Y...4.LDX #$37...> .STX *1...H.CLI.'.R.RTS./.\..EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL