> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 20 20 20 20 20 20 20 20 20 |..'.... |
00000010: 20 47 52 41 46 49 4B 4C 41 44 45 50 52 4F 47 52 | GRAFIKLADEPROGR|
00000020: 41 4D 4D 20 5A 55 52 00 49 08 02 00 8F 20 20 20 |AMM ZUR.I.... |
00000030: 20 20 20 20 20 20 20 5A 4F 4C 4C 52 41 53 54 45 | ZOLLRASTE|
00000040: 52 48 41 52 44 43 4F 50 59 00 4F 08 03 00 8F 00 |RHARDCOPY.O.....|
00000050: 70 08 04 00 8F 20 20 20 20 20 20 20 20 20 20 56 |p.... V|
00000060: 4F 4E 20 4E 4F 52 42 45 52 54 20 52 41 4D 45 4B |ON NORBERT RAMEK|
00000070: 00 92 08 05 00 8F 20 20 20 20 20 20 20 20 20 20 |...... |
00000080: 49 47 4E 41 5A 20 52 49 45 44 45 52 4B 41 49 20 |IGNAZ RIEDERKAI |
00000090: 31 37 00 B1 08 06 00 8F 20 20 20 20 20 20 20 20 |17...... |
000000A0: 20 20 41 2D 35 30 32 30 20 53 41 4C 5A 42 55 52 | A-5020 SALZBUR|
000000B0: 47 00 B7 08 07 00 8F 00 C3 08 64 00 9E 38 AC 34 |G.........d..8.4|
000000C0: 30 39 36 00 D0 08 6E 00 AC B2 20 32 36 34 30 30 |096...n... 26400|
000000D0: 00 DC 08 78 00 2E 4F 50 54 20 4F 4F 00 EF 08 D2 |...x..OPT OO....|
000000E0: 00 43 48 4B 43 4F 4D 20 B2 20 24 41 45 46 44 00 |.CHKCOM . $AEFD.|
000000F0: 00 09 DC 00 A1 50 41 52 20 B2 20 24 45 31 44 34 |.....PAR . $E1D4|
00000100: 00 11 09 E6 00 43 48 4B A1 20 B2 20 24 42 37 46 |.....CHK. . $B7F|
00000110: 31 00 1F 09 F0 00 93 20 B2 20 24 46 46 44 35 00 |1...... . $FFD5.|
00000120: 2F 09 18 01 56 49 43 20 B2 20 24 44 30 30 30 00 |/...VIC . $D000.|
00000130: 40 09 22 01 43 49 41 32 20 B2 20 24 44 44 30 30 |@.".CIA2 . $DD00|
00000140: 00 46 09 90 01 3B 00 58 09 91 01 3B 53 50 8A 47 |.F...;.X...;SP.G|
00000150: 41 44 52 45 53 53 45 4E 00 6C 09 92 01 3B AC AC |ADRESSEN.l...;..|
00000160: AC AC AC AC AC AC AC AC AC AC AC AC 00 72 09 93 |.............r..|
00000170: 01 3B 00 87 09 9A 01 4A 4D 50 20 43 4C 45 41 52 |.;.....JMP CLEAR|
00000180: 3B B2 32 36 34 30 30 00 99 09 A4 01 4A 4D 50 20 |;.26400.....JMP |
00000190: 47 93 3B B2 32 36 34 30 33 00 AE 09 AE 01 4A 4D |G.;.26403.....JM|
000001A0: 50 20 54 52 41 4E 53 3B B2 32 36 34 30 36 00 B4 |P TRANS;.26406..|
000001B0: 09 F4 01 3B 00 C9 09 F5 01 3B 47 52 41 46 49 4B |...;.....;GRAFIK|
000001C0: 20 4C 4F 45 53 43 48 45 4E 00 DE 09 F6 01 3B AC | LOESCHEN.....;.|
000001D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 E4 |................|
000001E0: 09 F7 01 3B 00 02 0A FE 01 43 4C 45 41 52 20 4A |...;.....CLEAR J|
000001F0: 53 52 20 43 48 4B A1 3B 50 55 4E 4B 54 46 41 52 |SR CHK.;PUNKTFAR|
00000200: 42 45 00 0A 0A 08 02 54 58 41 00 12 0A 12 02 41 |BE.....TXA.....A|
00000210: 53 4C 00 1A 0A 1C 02 41 53 4C 00 22 0A 26 02 41 |SL.....ASL.".&.A|
00000220: 53 4C 00 2A 0A 30 02 41 53 4C 00 3D 0A 3A 02 53 |SL.*.0.ASL.=.:.S|
00000230: 54 41 20 24 46 44 3B 4D 45 52 4B 45 4E 00 57 0A |TA $FD;MERKEN.W.|
00000240: 44 02 4A 53 52 20 43 48 4B A1 3B 48 B5 45 52 47 |D.JSR CHK.;H.ERG|
00000250: 8A 44 46 41 52 42 45 00 5F 0A 4E 02 54 58 41 00 |.DFARBE._.N.TXA.|
00000260: 70 0A 58 02 AF 20 23 25 30 30 30 30 31 31 31 31 |p.X.. #%00001111|
00000270: 00 7B 0A 62 02 B0 41 20 24 46 44 00 9F 0A 6C 02 |.{.b..A $FD...l.|
00000280: 4C 44 59 20 23 30 3B 41 42 20 24 36 30 30 30 20 |LDY #0;AB $6000 |
00000290: 46 41 52 42 43 4F 44 45 20 53 45 54 5A 45 4E 00 |FARBCODE SETZEN.|
000002A0: AB 0A 76 02 53 54 59 20 24 46 44 00 B8 0A 80 02 |..v.STY $FD.....|
000002B0: 4C 44 58 20 23 24 36 30 00 C4 0A 8A 02 53 54 58 |LDX #$60.....STX|
000002C0: 20 24 46 45 00 E8 0A 94 02 4C 44 58 20 23 34 3B | $FE.....LDX #4;|
000002D0: 41 4E 5A 41 48 4C 20 50 41 47 45 53 20 28 42 49 |ANZAHL PAGES (BI|
000002E0: 53 20 24 36 33 46 46 29 00 FC 0A 9E 02 43 4C 31 |S $63FF).....CL1|
000002F0: 20 53 54 41 20 28 24 46 44 29 2C 59 00 04 0B A8 | STA ($FD),Y....|
00000300: 02 49 4E 59 00 10 0B B2 02 42 4E 45 20 43 4C 31 |.INY.....BNE CL1|
00000310: 00 28 0B BC 02 49 4E 43 20 24 46 45 3B 48 49 20 |.(...INC $FE;HI |
00000320: 45 52 48 4F 45 48 45 4E 00 30 0B C6 02 44 45 58 |ERHOEHEN.0...DEX|
00000330: 00 3C 0B D0 02 42 4E 45 20 43 4C 31 00 59 0B DA |.<...BNE CL1.Y..|
00000340: 02 4C 44 59 20 23 30 3B 41 42 20 24 34 30 30 30 |.LDY #0;AB $4000|
00000350: 20 4C 4F 45 53 43 48 45 4E 00 65 0B E4 02 53 54 | LOESCHEN.e...ST|
00000360: 59 20 24 46 44 00 72 0B EE 02 4C 44 41 20 23 24 |Y $FD.r...LDA #$|
00000370: 34 30 00 7E 0B F8 02 53 54 41 20 24 46 45 00 A3 |40.~...STA $FE..|
00000380: 0B 02 03 4C 44 58 20 23 33 32 3B 41 4E 5A 41 48 |...LDX #32;ANZAH|
00000390: 4C 20 50 41 47 45 53 20 28 42 49 53 20 24 35 46 |L PAGES (BIS $5F|
000003A0: 46 46 29 00 AF 0B 0C 03 54 59 41 3B 59 B2 30 00 |FF).....TYA;Y.0.|
000003B0: CC 0B 16 03 43 4C 32 20 53 54 41 20 28 24 46 44 |....CL2 STA ($FD|
000003C0: 29 2C 59 3B 4C 4F 45 53 43 48 45 4E 00 D4 0B 20 |),Y;LOESCHEN... |
000003D0: 03 49 4E 59 00 E0 0B 2A 03 42 4E 45 20 43 4C 32 |.INY...*.BNE CL2|
000003E0: 00 F8 0B 34 03 49 4E 43 20 24 46 45 3B 48 49 20 |...4.INC $FE;HI |
000003F0: 45 52 48 4F 45 48 45 4E 00 00 0C 3E 03 44 45 58 |ERHOEHEN...>.DEX|
00000400: 00 0C 0C 48 03 42 4E 45 20 43 4C 32 00 14 0C 52 |...H.BNE CL2...R|
00000410: 03 52 54 53 00 1A 0C E8 03 3B 00 2C 0C E9 03 3B |.RTS.....;.,...;|
00000420: 47 52 41 46 49 4B 20 4C 41 44 45 4E 00 3E 0C EA |GRAFIK LADEN.>..|
00000430: 03 3B AC AC AC AC AC AC AC AC AC AC AC AC 00 44 |.;.............D|
00000440: 0C EB 03 3B 00 65 0C F2 03 47 93 20 4C 44 41 20 |...;.e...G. LDA |
00000450: 23 25 30 30 31 31 31 30 31 31 3B 47 52 41 46 49 |#%00111011;GRAFI|
00000460: 4B 20 45 49 4E 00 74 0C FC 03 53 54 41 20 56 49 |K EIN.t...STA VI|
00000470: 43 AA 31 37 00 9A 0C 06 04 4C 44 41 20 23 25 31 |C.17.....LDA #%1|
00000480: 30 30 30 30 30 30 30 3B 56 49 44 45 B0 41 4D 20 |0000000;VIDE.AM |
00000490: 4E 41 43 48 20 24 36 30 30 30 00 BB 0C 10 04 53 |NACH $6000.....S|
000004A0: 54 41 20 56 49 43 AA 32 34 3B 42 49 54 4D 41 50 |TA VIC.24;BITMAP|
000004B0: 20 4E 41 43 48 20 24 34 30 30 30 00 CE 0C 1A 04 | NACH $4000.....|
000004C0: 4C 44 41 20 23 25 30 30 30 30 30 30 31 30 00 DB |LDA #%00000010..|
000004D0: 0C 24 04 53 54 41 20 43 49 41 32 00 EA 0C 2E 04 |.$.STA CIA2.....|
000004E0: 4A 53 52 20 43 48 4B 43 4F 4D 00 F7 0C 38 04 4A |JSR CHKCOM...8.J|
000004F0: 53 52 20 A1 50 41 52 00 13 0D 42 04 4C 44 59 20 |SR .PAR...B.LDY |
00000500: 23 24 34 30 3B 4C 41 44 45 41 44 52 45 53 53 45 |#$40;LADEADRESSE|
00000510: 20 48 49 00 21 0D 4C 04 4C 44 58 20 23 30 3B 4C | HI.!.L.LDX #0;L|
00000520: 4F 00 34 0D 56 04 54 58 41 3B 93 AB 46 4C 41 47 |O.4.V.TXA;..FLAG|
00000530: 20 B2 20 30 00 3E 0D 60 04 4A 53 52 20 93 00 5C | . 0.>.`.JSR ..\|
00000540: 0D 6A 04 4C 44 41 20 23 25 30 30 30 31 31 30 31 |.j.LDA #%0001101|
00000550: 31 3B 47 52 41 46 49 4B 20 41 55 53 00 6B 0D 74 |1;GRAFIK AUS.k.t|
00000560: 04 53 54 41 20 56 49 43 AA 31 37 00 7E 0D 7E 04 |.STA VIC.17.~.~.|
00000570: 4C 44 41 20 23 25 30 30 30 31 30 31 30 31 00 8D |LDA #%00010101..|
00000580: 0D 88 04 53 54 41 20 56 49 43 AA 32 34 00 A0 0D |...STA VIC.24...|
00000590: 92 04 4C 44 41 20 23 25 30 30 30 30 30 30 31 31 |..LDA #%00000011|
000005A0: 00 AD 0D 9C 04 53 54 41 20 43 49 41 32 00 B5 0D |.....STA CIA2...|
000005B0: A6 04 52 54 53 00 BB 0D DC 05 3B 00 D2 0D DD 05 |..RTS.....;.....|
000005C0: 3B 47 52 41 46 49 4B 20 56 45 53 43 48 49 45 42 |;GRAFIK VESCHIEB|
000005D0: 45 4E 00 E9 0D DE 05 3B AC AC AC AC AC AC AC AC |EN.....;........|
000005E0: AC AC AC AC AC AC AC AC AC 00 EF 0D DF 05 3B 00 |..............;.|
000005F0: 13 0E E6 05 54 52 41 4E 53 20 4C 44 59 20 23 30 |....TRANS LDY #0|
00000600: 3B B0 49 47 2E 20 41 44 52 45 53 53 45 20 24 34 |;.IG. ADRESSE $4|
00000610: 30 30 30 00 1F 0E F0 05 53 54 59 20 24 46 44 00 |000.....STY $FD.|
00000620: 2B 0E FA 05 53 54 59 20 24 46 42 00 38 0E 04 06 |+...STY $FB.8...|
00000630: 4C 44 41 20 23 24 34 30 00 44 0E 0E 06 53 54 41 |LDA #$40.D...STA|
00000640: 20 24 46 45 00 63 0E 18 06 4C 44 41 20 23 24 32 | $FE.c...LDA #$2|
00000650: 30 3B 5A 49 45 4C 41 44 52 45 53 53 45 20 24 32 |0;ZIELADRESSE $2|
00000660: 30 30 30 00 6F 0E 22 06 53 54 41 20 24 46 43 00 |000.o.".STA $FC.|
00000670: 88 0E 2C 06 4C 44 58 20 23 33 32 3B 41 4E 5A 41 |..,.LDX #32;ANZA|
00000680: 48 4C 20 50 41 47 45 53 00 94 0E 36 06 54 59 41 |HL PAGES...6.TYA|
00000690: 3B 59 B2 30 00 A8 0E 40 06 54 52 31 20 4C 44 41 |;Y.0...@.TR1 LDA|
000006A0: 20 28 24 46 44 29 2C 59 00 B8 0E 4A 06 53 54 41 | ($FD),Y...J.STA|
000006B0: 20 28 24 46 42 29 2C 59 00 C0 0E 54 06 49 4E 59 | ($FB),Y...T.INY|
000006C0: 00 CC 0E 5E 06 42 4E 45 20 54 52 31 00 E4 0E 68 |...^.BNE TR1...h|
000006D0: 06 49 4E 43 20 24 46 45 3B 48 49 20 45 52 48 4F |.INC $FE;HI ERHO|
000006E0: 45 48 45 4E 00 F0 0E 72 06 49 4E 43 20 24 46 43 |EHEN...r.INC $FC|
000006F0: 00 F8 0E 7C 06 44 45 58 00 04 0F 86 06 42 4E 45 |...|.DEX.....BNE|
00000700: 20 54 52 31 00 0C 0F 90 06 52 54 53 00 00 00 | TR1.....RTS... |
..'.... GRAFIKLADEPROGRAMM ZUR.
I.... ZOLLRASTERHARDCOPY.O.....
P.... VON NORBERT RAMEK......
IGNAZ RIEDERKAI 17......
A-5020 SALZBURG.......C.D..8.4096.P.N.
.. 26400...X..OPT OO...R.CHKCOM . $AEFD.
.....PAR . $E1D4.....CHK. . $B7F1......
. $FFD5./...VIC . $D000.@.".CIA2 . $DD00
.F...;.X...;SP.GADRESSEN.L...;..........
.....R...;.....JMP CLEAR;.26400.....JMP
G.;.26403.....JMP TRANS;.26406.....;.I..
.;GRAFIK LOESCHEN.....;.................
...;.....CLEAR JSR CHK.;PUNKTFARBE.....T
XA.....ASL.....ASL.".&.ASL.*.0.ASL.=.:.S
TA $FD;MERKEN.W.D.JSR CHK.;H.ERG.DFARBE.
_.N.TXA.P.X.. #%00001111.{.B..A $FD...L.
LDY #0;AB $6000 FARBCODE SETZEN...V.STY
$FD.....LDX #$60.D...STX $FE.....LDX #4;
ANZAHL PAGES (BIS $63FF).....CL1 STA ($F
D),Y.....INY.....BNE CL1.(...INC $FE;HI
ERHOEHEN.0.F.DEX.<.P.BNE CL1.Y.Z.LDY #0;
AB $4000 LOESCHEN.E...STY $FD.R...LDA #$
40.~...STA $FE.....LDX #32;ANZAHL PAGES
(BIS $5FFF).....TYA;Y.0.L...CL2 STA ($FD
),Y;LOESCHEN.T. .INY...*.BNE CL2...4.INC
$FE;HI ERHOEHEN...>.DEX...H.BNE CL2...R
.RTS.....;.,...;GRAFIK LADEN.>...;......
.......D...;.E...G. LDA #%00111011;GRAFI
K EIN.T...STA VIC.17.....LDA #%10000000;
VIDE.AM NACH $6000.....STA VIC.24;BITMAP
NACH $4000.N...LDA #%00000010...$.STA C
IA2.....JSR CHKCOM...8.JSR .PAR...B.LDY
#$40;LADEADRESSE HI.!.L.LDX #0;LO.4.V.TX
A;..FLAG . 0.>.`.JSR ..\.J.LDA #%0001101
1;GRAFIK AUS.K.T.STA VIC.17.~.~.LDA #%00
010101.....STA VIC.24. ...LDA #%00000011
.....STA CIA2.....RTS.....;.R...;GRAFIK
VESCHIEBEN.....;......................;.
....TRANS LDY #0;.IG. ADRESSE $4000.....
STY $FD.+...STY $FB.8...LDA #$40.D...STA
$FE.C...LDA #$20;ZIELADRESSE $2000.O.".
STA $FC...,.LDX #32;ANZAHL PAGES...6.TYA
;Y.0...@.TR1 LDA ($FD),Y...J.STA ($FB),Y
...T.INY.L.^.BNE TR1...H.INC $FE;HI ERHO
EHEN...R.INC $FC...|.DEX.....BNE TR1....
.RTS...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL