VEKTORGRAFIK/SRC
FILE INFORMATION
FILENAME(S): VEKTORGRAFIK/SRC
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-11-30 01:13:04
APPEARS ON: 1 disk(s)
FILE HASH
637ae901134828f08bcabbb8623b56cb50cb7afd7d375a14e41f3227a949a708
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10307 SEITE A | VEKTORGRAFIK/SRC | PRG | C64er | 6 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 CC 3A 4F 50 54 20 4F 4F 3A AC |....d..:OPT OO:.|
00000010: B2 20 24 43 30 30 30 00 1D 08 6E 00 3B 00 23 08 |. $C000...n.;.#.|
00000020: 78 00 3B 00 37 08 82 00 3B 20 20 33 44 AB EB AB |x.;.7...; 3D...|
00000030: 52 4F 55 54 49 4E 45 00 3D 08 8C 00 3B 00 43 08 |ROUTINE.=...;.C.|
00000040: 96 00 3B 00 63 08 A0 00 56 45 4B 54 52 41 4D 20 |..;.c...VEKTRAM |
00000050: 20 20 20 B2 20 24 41 34 20 20 20 3B 36 20 42 59 | . $A4 ;6 BY|
00000060: 54 45 53 00 81 08 AA 00 B8 45 5A 45 52 4F 20 20 |TES......EZERO |
00000070: 20 B2 20 24 46 42 20 20 20 3B 34 20 42 59 54 45 | . $FB ;4 BYTE|
00000080: 53 00 98 08 B4 00 46 41 52 42 52 41 4D 20 20 20 |S.....FARBRAM |
00000090: 20 B2 20 24 38 43 30 30 00 AF 08 BE 00 50 49 43 | . $8C00.....PIC|
000000A0: 54 55 52 45 20 20 20 20 B2 20 24 41 30 30 30 00 |TURE . $A000.|
000000B0: B5 08 C8 00 3B 00 BB 08 D2 00 3B 00 CE 08 DC 00 |....;.....;.....|
000000C0: 3B 20 20 53 50 8A 47 54 41 42 45 4C 4C 45 00 D4 |; SP.GTABELLE..|
000000D0: 08 E6 00 3B 00 E6 08 F0 00 4A 4D 50 20 47 52 41 |...;.....JMP GRA|
000000E0: 50 48 49 43 53 91 00 F8 08 FA 00 4A 4D 50 20 47 |PHICS......JMP G|
000000F0: 52 41 50 48 49 43 53 E0 00 02 09 04 01 4A 4D 50 |RAPHICS......JMP|
00000100: 20 EB 00 08 09 0E 01 3B 00 18 09 18 01 4E 4F 50 | ......;.....NOP|
00000110: 3A 4E 4F 50 3A 4E 4F 50 00 28 09 22 01 4E 4F 50 |:NOP:NOP.(.".NOP|
00000120: 3A 4E 4F 50 3A 4E 4F 50 00 38 09 2C 01 4E 4F 50 |:NOP:NOP.8.,.NOP|
00000130: 3A 4E 4F 50 3A 4E 4F 50 00 48 09 36 01 4E 4F 50 |:NOP:NOP.H.6.NOP|
00000140: 3A 4E 4F 50 3A 4E 4F 50 00 4E 09 40 01 3B 00 54 |:NOP:NOP.N.@.;.T|
00000150: 09 4A 01 3B 00 67 09 54 01 3B 20 20 53 55 42 52 |.J.;.g.T.; SUBR|
00000160: 4F 55 54 49 4E 45 4E 00 6D 09 5E 01 3B 00 7A 09 |OUTINEN.m.^.;.z.|
00000170: 68 01 52 4F 4D E0 20 53 45 49 00 87 09 72 01 4C |h.ROM. SEI...r.L|
00000180: 44 41 20 23 24 33 36 00 93 09 7C 01 53 54 41 20 |DA #$36...|.STA |
00000190: 24 30 31 00 9B 09 86 01 52 54 53 00 A1 09 90 01 |$01.....RTS.....|
000001A0: 3B 00 B3 09 9A 01 52 4F 4D 91 20 4C 44 41 20 23 |;.....ROM. LDA #|
000001B0: 24 33 37 00 BF 09 A4 01 53 54 41 20 24 30 31 00 |$37.....STA $01.|
000001C0: C7 09 AE 01 43 4C 49 00 CF 09 B8 01 52 54 53 00 |....CLI.....RTS.|
000001D0: D5 09 C2 01 3B 00 E5 09 CC 01 FA 4D 45 4D 20 4C |....;......MEM L|
000001E0: 44 59 20 23 30 00 FF 09 D6 01 4C 30 30 30 20 53 |DY #0.....L000 S|
000001F0: 54 41 20 28 B8 45 5A 45 52 4F AA 30 29 2C 59 00 |TA (.EZERO.0),Y.|
00000200: 07 0A E0 01 49 4E 59 00 14 0A EA 01 42 4E 45 20 |....INY.....BNE |
00000210: 4C 30 30 30 00 25 0A F4 01 49 4E 43 20 B8 45 5A |L000.%...INC .EZ|
00000220: 45 52 4F AA 31 00 2D 0A FE 01 44 45 58 00 3A 0A |ERO.1.-...DEX.:.|
00000230: 08 02 42 4E 45 20 4C 30 30 30 00 42 0A 12 02 52 |..BNE L000.B...R|
00000240: 54 53 00 48 0A 1C 02 3B 00 4E 0A 26 02 3B 00 62 |TS.H...;.N.&.;.b|
00000250: 0A 30 02 3B 20 20 4D 41 49 4E 52 4F 55 54 49 4E |.0.; MAINROUTIN|
00000260: 45 4E 00 68 0A 3A 02 3B 00 80 0A 44 02 47 52 41 |EN.h.:.;...D.GRA|
00000270: 50 48 49 43 53 91 20 4A 53 52 20 24 45 32 30 30 |PHICS. JSR $E200|
00000280: 00 A5 0A 4E 02 54 58 41 20 20 20 20 20 20 20 20 |...N.TXA |
00000290: 20 20 20 20 20 20 20 20 20 3B 48 B5 45 52 47 52 | ;H.ERGR|
000002A0: 46 41 52 42 45 00 B6 0A 58 02 AF 20 23 25 30 30 |FARBE...X.. #%00|
000002B0: 30 30 31 31 31 31 00 C7 0A 62 02 53 54 41 20 B8 |001111...b.STA .|
000002C0: 45 5A 45 52 4F AA 30 00 D5 0A 6C 02 4A 53 52 20 |EZERO.0...l.JSR |
000002D0: 24 45 32 30 30 00 FB 0A 76 02 54 58 41 20 20 20 |$E200...v.TXA |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A | ;Z|
000002F0: 45 49 43 48 45 4E 46 41 52 42 45 00 07 0B 80 02 |EICHENFARBE.....|
00000300: 41 53 4C 3A 41 53 4C 00 13 0B 8A 02 41 53 4C 3A |ASL:ASL.....ASL:|
00000310: 41 53 4C 00 23 0B 94 02 45 B0 20 B8 45 5A 45 52 |ASL.#...E. .EZER|
00000320: 4F AA 30 00 35 0B 9E 02 4C 44 58 20 23 B3 46 41 |O.0.5...LDX #.FA|
00000330: 52 42 52 41 4D 00 47 0B A8 02 4C 44 59 20 23 B1 |RBRAM.G...LDY #.|
00000340: 46 41 52 42 52 41 4D 00 58 0B B2 02 53 54 58 20 |FARBRAM.X...STX |
00000350: B8 45 5A 45 52 4F AA 30 00 69 0B BC 02 53 54 59 |.EZERO.0.i...STY|
00000360: 20 B8 45 5A 45 52 4F AA 31 00 8A 0B C6 02 4C 44 | .EZERO.1.....LD|
00000370: 58 20 23 34 20 20 20 20 20 20 20 20 20 20 20 20 |X #4 |
00000380: 20 20 3B 46 41 52 42 52 41 4D 00 AF 0B D0 02 4A | ;FARBRAM.....J|
00000390: 53 52 20 FA 4D 45 4D 20 20 20 20 20 20 20 20 20 |SR .MEM |
000003A0: 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 00 |;INITIALISIEREN.|
000003B0: C1 0B DA 02 4C 44 58 20 23 B3 50 49 43 54 55 52 |....LDX #.PICTUR|
000003C0: 45 00 D3 0B E4 02 4C 44 59 20 23 B1 50 49 43 54 |E.....LDY #.PICT|
000003D0: 55 52 45 00 E4 0B EE 02 53 54 58 20 B8 45 5A 45 |URE.....STX .EZE|
000003E0: 52 4F AA 30 00 F5 0B F8 02 53 54 59 20 B8 45 5A |RO.0.....STY .EZ|
000003F0: 45 52 4F AA 31 00 01 0C 02 03 4C 44 58 20 23 33 |ERO.1.....LDX #3|
00000400: 32 00 1D 0C 0C 03 4C 44 41 20 23 30 20 20 20 20 |2.....LDA #0 |
00000410: 20 20 20 20 20 20 20 20 20 20 3B E6 EE 00 42 0C | ;...B.|
00000420: 16 03 4A 53 52 20 FA 4D 45 4D 20 20 20 20 20 20 |..JSR .MEM |
00000430: 20 20 20 3B 49 4E 49 54 49 41 4C 49 53 49 45 52 | ;INITIALISIER|
00000440: 45 4E 00 48 0C 20 03 3B 00 68 0C 2A 03 4C 44 41 |EN.H. .;.h.*.LDA|
00000450: 20 35 36 35 37 36 20 20 20 20 20 20 20 20 20 20 | 56576 |
00000460: 20 3B 47 52 41 46 49 4B 00 8B 0C 34 03 AF 20 23 | ;GRAFIK...4.. #|
00000470: 32 35 32 20 20 20 20 20 20 20 20 20 20 20 20 3B |252 ;|
00000480: 45 49 4E 53 43 48 41 4C 54 45 4E 00 95 0C 3E 03 |EINSCHALTEN...>.|
00000490: B0 41 20 23 31 00 A3 0C 48 03 53 54 41 20 35 36 |.A #1...H.STA 56|
000004A0: 35 37 36 00 B1 0C 52 03 4C 44 41 20 35 33 32 37 |576...R.LDA 5327|
000004B0: 32 00 BB 0C 5C 03 AF 20 23 31 35 00 CC 0C 66 03 |2...\.. #15...f.|
000004C0: B0 41 20 23 28 31 36 AC 33 AA 38 29 00 DA 0C 70 |.A #(16.3.8)...p|
000004D0: 03 53 54 41 20 35 33 32 37 32 00 E8 0C 7A 03 4C |.STA 53272...z.L|
000004E0: 44 41 20 35 33 32 36 35 00 F3 0C 84 03 B0 41 20 |DA 53265......A |
000004F0: 23 33 32 00 01 0D 8E 03 53 54 41 20 35 33 32 36 |#32.....STA 5326|
00000500: 35 00 09 0D 98 03 52 54 53 00 0F 0D A2 03 3B 00 |5.....RTS.....;.|
00000510: 27 0D AC 03 47 52 41 50 48 49 43 53 E0 20 4C 44 |'...GRAPHICS. LD|
00000520: 41 20 35 33 32 36 35 00 32 0D B6 03 AF 20 23 32 |A 53265.2.... #2|
00000530: 32 33 00 40 0D C0 03 53 54 41 20 35 33 32 36 35 |23.@...STA 53265|
00000540: 00 4C 0D CA 03 4C 44 41 20 23 32 33 00 5A 0D D4 |.L...LDA #23.Z..|
00000550: 03 53 54 41 20 35 33 32 37 32 00 67 0D DE 03 4C |.STA 53272.g...L|
00000560: 44 41 20 23 31 35 31 00 75 0D E8 03 53 54 41 20 |DA #151.u...STA |
00000570: 35 36 35 37 36 00 7D 0D F2 03 52 54 53 00 83 0D |56576.}...RTS...|
00000580: FC 03 3B 00 89 0D 06 04 3B 00 9D 0D 10 04 3B 20 |..;.....;.....; |
00000590: 20 33 44 AB EB AB 52 4F 55 54 49 4E 45 00 A3 0D | 3D...ROUTINE...|
000005A0: 1A 04 3B 00 C3 0D 24 04 3B 20 20 20 24 41 34 AB |..;...$.; $A4.|
000005B0: 24 41 39 20 AB B1 20 32 20 33 44 AB 56 45 4B A4 |$A9 .. 2 3D.VEK.|
000005C0: 52 45 4E 00 E6 0D 2E 04 3B 20 20 20 24 41 41 AB |REN.....; $AA.|
000005D0: 24 42 35 20 AB B1 20 56 45 52 53 43 48 2E 20 47 |$B5 .. VERSCH. G|
000005E0: 45 4E 55 54 5A 54 00 0A 0E 38 04 3B 20 20 20 20 |ENUTZT...8.; |
000005F0: 20 55 2E 41 2E 20 42 52 45 53 45 4E 48 41 4D AB | U.A. BRESENHAM.|
00000600: 41 4C CB 52 49 54 48 4D 55 53 00 2E 0E 42 04 3B |AL.RITHMUS...B.;|
00000610: 20 20 20 24 41 41 AB 24 41 42 20 AB B1 20 56 45 | $AA.$AB .. VE|
00000620: 4B A4 52 20 49 4E 20 50 49 43 54 55 52 45 00 50 |K.R IN PICTURE.P|
00000630: 0E 4C 04 3B 20 20 20 20 20 20 20 24 41 43 20 AB |.L.; $AC .|
00000640: B1 20 42 49 54 20 44 2E 20 50 55 4E 4B 54 45 53 |. BIT D. PUNKTES|
00000650: 00 73 0E 56 04 3B 20 20 20 24 41 44 AB 24 42 30 |.s.V.; $AD.$B0|
00000660: 20 AB B1 20 50 55 4E 4B 54 52 49 43 48 54 55 4E | .. PUNKTRICHTUN|
00000670: 47 45 4E 00 95 0E 60 04 3B 20 20 20 20 20 20 20 |GEN...`.; |
00000680: 24 42 31 20 AB B1 20 56 45 52 47 4C 45 49 43 48 |$B1 .. VERGLEICH|
00000690: 53 5A 41 48 4C 00 AE 0E 6A 04 3B 20 20 20 20 20 |SZAHL...j.; |
000006A0: 20 20 24 42 32 20 AB B1 20 53 55 4D 4D AF 00 CE | $B2 .. SUMM...|
000006B0: 0E 74 04 3B 20 20 20 20 20 20 20 24 42 33 20 AB |.t.; $B3 .|
000006C0: B1 20 4C 41 55 46 80 45 20 53 55 4D 4D 45 00 F1 |. LAUF.E SUMME..|
000006D0: 0E 7E 04 3B 20 20 20 20 20 20 20 24 42 34 20 AB |.~.; $B4 .|
000006E0: B1 20 41 42 57 41 45 52 54 53 5A 41 45 48 4C 45 |. ABWAERTSZAEHLE|
000006F0: 52 00 14 0F 88 04 3B 20 20 20 20 20 20 20 24 42 |R.....; $B|
00000700: 35 20 AB B1 20 5A 57 45 49 54 45 20 52 49 43 48 |5 .. ZWEITE RICH|
00000710: 54 55 4E 47 00 1A 0F 92 04 3B 00 2D 0F 9C 04 45 |TUNG.....;.-...E|
00000720: 52 52 B0 20 4A 4D 50 20 24 42 32 34 38 00 33 0F |RR. JMP $B248.3.|
00000730: A6 04 3B 00 43 0F B0 04 EB 20 4A 53 52 20 24 45 |..;.C.... JSR $E|
00000740: 32 30 30 00 4E 0F BA 04 43 50 58 20 23 32 00 5B |200.N...CPX #2.[|
00000750: 0F C4 04 42 43 53 20 45 52 52 B0 00 63 0F CE 04 |...BCS ERR..c...|
00000760: 54 58 41 00 6B 0F D8 04 4C 53 52 00 91 0F E2 04 |TXA.k...LSR.....|
00000770: 50 48 50 20 20 20 20 20 20 20 20 20 20 20 20 3B |PHP ;|
00000780: 5A 45 49 43 48 4E 45 4E AD 4C 4F 45 53 43 48 45 |ZEICHNEN.LOESCHE|
00000790: 4E 00 B1 0F EC 04 4C 30 30 31 20 53 54 41 20 24 |N.....L001 STA $|
000007A0: 41 41 20 20 20 3B 53 43 48 4C 45 8B 45 20 5A 55 |AA ;SCHLE.E ZU|
000007B0: 4D 00 D2 0F F6 04 4A 53 52 20 24 41 45 46 44 20 |M.....JSR $AEFD |
000007C0: 20 20 20 20 20 3B 45 49 4E 4C 45 53 45 4E 20 44 | ;EINLESEN D|
000007D0: 45 52 00 F6 0F 00 05 4A 53 52 20 24 41 44 38 41 |ER.....JSR $AD8A|
000007E0: 20 20 20 20 20 20 3B 36 20 4B 4F 45 46 46 49 5A | ;6 KOEFFIZ|
000007F0: 49 45 4E 54 45 4E 00 04 10 0A 05 4A 53 52 20 24 |IENTEN.....JSR $|
00000800: 42 38 34 39 00 12 10 14 05 4A 53 52 20 24 42 31 |B849.....JSR $B1|
00000810: 41 41 00 1E 10 1E 05 4C 44 58 20 24 41 41 00 30 |AA.....LDX $AA.0|
00000820: 10 28 05 53 54 59 20 56 45 4B 54 52 41 4D 2C 58 |.(.STY VEKTRAM,X|
00000830: 00 38 10 32 05 54 41 58 00 40 10 3C 05 54 59 41 |.8.2.TAX.@.<.TYA|
00000840: 00 4B 10 46 05 43 50 58 20 23 30 00 58 10 50 05 |.K.F.CPX #0.X.P.|
00000850: 42 45 51 20 4C 30 30 32 00 60 10 5A 05 49 4E 58 |BEQ L002.`.Z.INX|
00000860: 00 6D 10 64 05 42 4E 45 20 45 52 52 B0 00 78 10 |.m.d.BNE ERR..x.|
00000870: 6E 05 53 42 43 20 23 31 00 84 10 78 05 45 B0 20 |n.SBC #1...x.E. |
00000880: 23 24 46 46 00 95 10 82 05 4C 30 30 32 20 43 4D |#$FF.....L002 CM|
00000890: 50 20 23 36 31 00 A2 10 8C 05 42 43 53 20 45 52 |P #61.....BCS ER|
000008A0: 52 B0 00 AE 10 96 05 4C 44 41 20 24 41 41 00 B9 |R......LDA $AA..|
000008B0: 10 A0 05 41 44 43 20 23 31 00 C4 10 AA 05 43 4D |...ADC #1.....CM|
000008C0: 50 20 23 36 00 D1 10 B4 05 42 43 43 20 4C 30 30 |P #6.....BCC L00|
000008D0: 31 00 E3 10 BE 05 4C 44 41 20 23 B1 50 49 43 54 |1.....LDA #.PICT|
000008E0: 55 52 45 00 EB 10 C8 05 50 4C 50 00 F1 10 D2 05 |URE.....PLP.....|
000008F0: 3B 00 12 11 DC 05 EB 32 20 50 48 50 20 20 20 20 |;......2 PHP |
00000900: 20 20 20 20 20 3B 45 49 4E 53 50 8A 47 20 46 55 | ;EINSP.G FU|
00000910: 45 52 00 34 11 E6 05 50 48 41 20 20 20 20 20 20 |ER.4...PHA |
00000920: 20 20 20 20 20 20 20 20 20 3B 33 44 AB EB 2C 20 | ;3D.., |
00000930: 57 45 4E 4E 00 57 11 F0 05 4A 53 52 20 52 4F 4D |WENN.W...JSR ROM|
00000940: E0 20 20 20 20 20 20 20 20 3B 4B 4F 45 46 46 49 |. ;KOEFFI|
00000950: 5A 49 45 4E 54 45 4E 00 7C 11 FA 05 4C 44 58 20 |ZIENTEN.|...LDX |
00000960: 23 30 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 |#0 ;S|
00000970: 43 48 91 20 49 4E 20 5A 45 52 4F AB 00 9C 11 04 |CH. IN ZERO.....|
00000980: 06 4C 30 30 33 20 4C 44 41 20 56 45 4B 54 52 41 |.L003 LDA VEKTRA|
00000990: 4D 2C 58 3B EE 20 53 54 45 48 45 4E 00 A9 11 0E |M,X;. STEHEN....|
000009A0: 06 43 4D 50 20 23 24 38 30 00 B0 11 18 06 52 B0 |.CMP #$80.....R.|
000009B0: 00 D0 11 22 06 42 50 4C 20 4C 30 30 34 20 20 20 |...".BPL L004 |
000009C0: 20 20 20 20 20 20 20 3B 33 44 20 AB B1 20 32 44 | ;3D .. 2D|
000009D0: 00 F7 11 2C 06 41 44 43 20 23 30 20 20 20 20 20 |...,.ADC #0 |
000009E0: 20 20 20 20 20 20 20 3B 42 45 52 45 43 48 4E 45 | ;BERECHNE|
000009F0: 20 44 58 20 55 4E 44 00 1E 12 36 06 4C 30 30 34 | DX UND...6.L004|
00000A00: 20 54 41 59 20 20 20 20 20 20 20 20 20 20 3B 44 | TAY ;D|
00000A10: 59 20 46 55 45 52 20 41 4E 46 41 4E 47 53 00 3F |Y FUER ANFANGS.?|
00000A20: 12 40 06 45 B0 20 23 24 46 46 20 20 20 20 20 20 |.@.E. #$FF |
00000A30: 20 20 20 20 3B 55 4E 44 20 80 50 55 4E 4B 54 00 | ;UND .PUNKT.|
00000A40: 62 12 4A 06 43 4C 43 20 20 20 20 20 20 20 20 20 |b.J.CLC |
00000A50: 20 20 20 20 20 20 3B 41 55 53 20 44 45 4E 20 56 | ;AUS DEN V|
00000A60: B0 AB 00 86 12 54 06 41 44 43 20 23 31 36 31 20 |.....T.ADC #161 |
00000A70: 20 20 20 20 20 20 20 20 20 3B 48 AF 45 4E 45 4E | ;H.ENEN|
00000A80: 20 36 20 56 B0 AB 00 AB 12 5E 06 43 4C 43 20 20 | 6 V.....^.CLC |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A 45 | ;ZE|
00000AA0: 49 43 48 45 4E 42 45 48 41 46 AB 00 D0 12 68 06 |ICHENBEHAF....h.|
00000AB0: 41 44 43 20 56 45 4B 54 52 41 4D AA 31 2C 58 20 |ADC VEKTRAM.1,X |
00000AC0: 20 20 3B 54 45 54 45 4E 20 4B 4F 45 46 46 49 AB | ;TETEN KOEFFI.|
00000AD0: 00 F3 12 72 06 53 54 41 20 24 41 41 2C 58 20 20 |...r.STA $AA,X |
00000AE0: 20 20 20 20 20 20 20 3B 5A 49 45 4E 54 45 4E 20 | ;ZIENTEN |
00000AF0: 44 45 52 00 19 13 7C 06 54 59 41 20 20 20 20 20 |DER...|.TYA |
00000B00: 20 20 20 20 20 20 20 20 20 20 3B 42 45 49 44 45 | ;BEIDE|
00000B10: 4E 20 56 45 4B A4 52 45 4E 00 21 13 86 06 43 4C |N VEK.REN.!...CL|
00000B20: 43 00 46 13 90 06 41 44 43 20 23 31 30 30 20 20 |C.F...ADC #100 |
00000B30: 20 20 20 20 20 20 20 20 3B 45 52 47 45 42 4E 49 | ;ERGEBNI|
00000B40: 53 20 4E 41 43 48 00 69 13 9A 06 53 45 43 20 20 |S NACH.i...SEC |
00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 24 41 | ;$A|
00000B60: 41 AD 24 41 42 20 55 4E 44 00 88 13 A4 06 53 42 |A.$AB UND.....SB|
00000B70: 43 20 56 45 4B 54 52 41 4D AA 32 2C 58 20 20 20 |C VEKTRAM.2,X |
00000B80: 3B 24 41 44 AD 24 41 45 00 96 13 AE 06 53 54 41 |;$AD.$AE.....STA|
00000B90: 20 24 41 42 2C 58 00 A2 13 B8 06 49 4E 58 3A 49 | $AB,X.....INX:I|
00000BA0: 4E 58 00 AA 13 C2 06 49 4E 58 00 B5 13 CC 06 43 |NX.....INX.....C|
00000BB0: 50 58 20 23 36 00 C2 13 D6 06 42 43 43 20 4C 30 |PX #6.....BCC L0|
00000BC0: 30 33 00 C8 13 E0 06 3B 00 EF 13 EA 06 4C 44 58 |03.....;.....LDX|
00000BD0: 20 23 31 20 20 20 20 20 20 20 20 20 20 20 20 3B | #1 ;|
00000BE0: 42 45 52 45 43 48 4E 45 20 44 58 2C 20 44 59 00 |BERECHNE DX, DY.|
00000BF0: 14 14 F4 06 4C 30 30 35 20 53 45 43 20 20 20 20 |....L005 SEC |
00000C00: 20 20 20 20 20 20 3B 55 4E 44 20 44 45 52 45 4E | ;UND DEREN|
00000C10: 20 56 B0 AB 00 33 14 FE 06 4C 44 41 20 24 41 44 | V...3...LDA $AD|
00000C20: 2C 58 20 20 20 20 20 20 20 20 20 3B 5A 45 49 43 |,X ;ZEIC|
00000C30: 48 45 4E 00 57 14 08 07 53 42 43 20 24 41 41 2C |HEN.W...SBC $AA,|
00000C40: 58 20 20 20 20 20 20 20 20 20 3B 5A 57 49 53 43 |X ;ZWISC|
00000C50: 48 45 4E 20 41 4E AB 00 7C 14 12 07 54 41 59 20 |HEN AN..|...TAY |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 | ;F|
00000C70: 41 4E 47 53 AB 20 55 4E 44 20 80 AB 00 A3 14 1C |ANGS. UND ......|
00000C80: 07 54 58 41 20 20 20 20 20 20 20 20 20 20 20 20 |.TXA |
00000C90: 20 20 20 3B 50 55 4E 4B 54 20 44 45 52 20 4C 49 | ;PUNKT DER LI|
00000CA0: 4E 49 45 00 AA 14 26 07 52 B0 00 CC 14 30 07 45 |NIE...&.R....0.E|
00000CB0: B0 20 23 24 38 31 20 20 20 20 20 20 20 20 20 20 |. #$81 |
00000CC0: 3B B6 28 44 58 29 2C B6 28 44 59 29 00 EE 14 3A |;.(DX),.(DY)...:|
00000CD0: 07 53 54 41 20 24 42 33 2C 58 20 20 20 20 20 20 |.STA $B3,X |
00000CE0: 20 20 20 3B AB B1 20 24 42 31 AD 24 42 32 00 13 | ;.. $B1.$B2..|
00000CF0: 15 44 07 41 53 4C 20 20 20 20 20 20 20 20 20 20 |.D.ASL |
00000D00: 20 20 20 20 20 3B 56 B0 28 44 58 29 2C 56 B0 28 | ;V.(DX),V.(|
00000D10: 44 59 29 00 35 15 4E 07 54 59 41 20 20 20 20 20 |DY).5.N.TYA |
00000D20: 20 20 20 20 20 20 20 20 20 20 3B AB B1 20 24 42 | ;.. $B|
00000D30: 33 AD 24 42 34 00 42 15 58 07 42 43 43 20 4C 30 |3.$B4.B.X.BCC L0|
00000D40: 30 36 00 4E 15 62 07 45 B0 20 23 24 46 46 00 59 |06.N.b.E. #$FF.Y|
00000D50: 15 6C 07 41 44 43 20 23 30 00 6C 15 76 07 4C 30 |.l.ADC #0.l.v.L0|
00000D60: 30 36 20 53 54 41 20 24 42 31 2C 58 00 74 15 80 |06 STA $B1,X.t..|
00000D70: 07 44 45 58 00 81 15 8A 07 42 50 4C 20 4C 30 30 |.DEX.....BPL L00|
00000D80: 35 00 87 15 94 07 3B 00 AC 15 9E 07 4C 44 41 20 |5.....;.....LDA |
00000D90: 24 41 41 20 20 20 20 20 20 20 20 20 20 20 3B 42 |$AA ;B|
00000DA0: 45 52 45 43 48 4E 45 20 42 49 54 AB 00 CF 15 A8 |ERECHNE BIT.....|
00000DB0: 07 AF 20 23 25 30 30 30 30 30 31 31 31 20 20 20 |.. #%00000111 |
00000DC0: 20 3B 4D 41 53 4B 45 20 46 55 45 52 20 31 2E 00 | ;MASKE FUER 1..|
00000DD0: F2 15 B2 07 54 41 58 20 20 20 20 20 20 20 20 20 |....TAX |
00000DE0: 20 20 20 20 20 20 3B 5A 55 20 53 45 54 5A 80 45 | ;ZU SETZ.E|
00000DF0: 4E AD 00 16 16 BC 07 4C 44 41 20 42 49 54 53 2C |N......LDA BITS,|
00000E00: 58 20 20 20 20 20 20 20 20 3B 5A 55 20 4C 4F 45 |X ;ZU LOE|
00000E10: 53 43 48 80 45 4E 00 39 16 C6 07 53 54 41 20 24 |SCH.EN.9...STA $|
00000E20: 41 43 20 20 20 20 20 20 20 20 20 20 20 3B 47 52 |AC ;GR|
00000E30: 41 46 49 4B 50 55 4E 4B 54 00 3F 16 D0 07 3B 00 |AFIKPUNKT.?...;.|
00000E40: 66 16 DA 07 4C 44 41 20 24 41 42 20 20 20 20 20 |f...LDA $AB |
00000E50: 20 20 20 20 20 20 3B 42 45 52 45 43 48 4E 45 20 | ;BERECHNE |
00000E60: 5A 45 49 47 45 52 00 88 16 E4 07 AF 20 23 25 31 |ZEIGER...... #%1|
00000E70: 31 31 31 31 30 30 30 20 20 20 20 3B 41 55 46 20 |1111000 ;AUF |
00000E80: 42 59 54 45 20 44 45 52 00 A6 16 EE 07 4C 53 52 |BYTE DER.....LSR|
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;|
00000EA0: E6 EE 2C 20 49 4E 00 CB 16 F8 07 4C 53 52 20 20 |.., IN.....LSR |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 45 | ;DE|
00000EC0: 4D 20 44 45 52 20 45 52 53 54 45 00 ED 16 02 08 |M DER ERSTE.....|
00000ED0: 54 41 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |TAX |
00000EE0: 20 20 3B 5A 55 20 53 45 54 5A 80 45 AD 00 10 17 | ;ZU SETZ.E....|
00000EF0: 0C 08 4C 44 41 20 24 41 41 20 20 20 20 20 20 20 |..LDA $AA |
00000F00: 20 20 20 20 3B 5A 55 20 4C 4F 45 53 43 48 80 45 | ;ZU LOESCH.E|
00000F10: 00 31 17 16 08 AF 20 23 25 31 31 31 31 31 30 30 |.1.... #%1111100|
00000F20: 30 20 20 20 20 3B 47 52 41 46 49 4B 50 55 4E 4B |0 ;GRAFIKPUNK|
00000F30: 54 00 4E 17 20 08 53 54 41 20 24 41 41 20 20 20 |T.N. .STA $AA |
00000F40: 20 20 20 20 20 20 20 20 3B 53 54 45 48 54 00 5A | ;STEHT.Z|
00000F50: 17 2A 08 4C 44 41 20 24 41 42 00 79 17 34 08 AF |.*.LDA $AB.y.4..|
00000F60: 20 23 25 30 30 30 30 30 31 31 31 20 20 20 20 3B | #%00000111 ;|
00000F70: 5A 45 49 47 45 52 20 49 4E 00 97 17 3E 08 B0 41 |ZEIGER IN...>..A|
00000F80: 20 24 41 41 20 20 20 20 20 20 20 20 20 20 20 3B | $AA ;|
00000F90: 24 41 41 AD 24 41 42 00 AA 17 48 08 41 44 43 20 |$AA.$AB...H.ADC |
00000FA0: 4D 55 4C 54 41 42 AA 30 2C 58 00 B6 17 52 08 53 |MULTAB.0,X...R.S|
00000FB0: 54 41 20 24 41 41 00 D9 17 5C 08 50 4C 41 20 20 |TA $AA...\.PLA |
00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 48 49 | ;HI|
00000FD0: AB 42 20 47 52 41 46 2E EE 00 EC 17 66 08 41 44 |.B GRAF.....f.AD|
00000FE0: 43 20 4D 55 4C 54 41 42 AA 31 2C 58 00 F8 17 70 |C MULTAB.1,X...p|
00000FF0: 08 53 54 41 20 24 41 42 00 FE 17 7A 08 3B 00 23 |.STA $AB...z.;.#|
00001000: 18 84 08 4C 44 58 20 23 30 20 20 20 20 20 20 20 |...LDX #0 |
00001010: 20 20 20 20 20 3B 48 4F 4C 45 20 44 49 45 20 56 | ;HOLE DIE V|
00001020: 45 52 AB 00 47 18 8E 08 4C 44 59 20 23 30 20 20 |ER..G...LDY #0 |
00001030: 20 20 20 20 20 20 20 20 20 20 3B 47 4C 45 49 43 | ;GLEIC|
00001040: 48 53 5A 41 48 4C 2C 00 6C 18 98 08 4C 44 41 20 |HSZAHL,.l...LDA |
00001050: 24 42 31 20 20 20 20 20 20 20 20 20 20 20 3B 44 |$B1 ;D|
00001060: 45 4E 20 41 42 57 41 45 52 54 53 AB 00 90 18 A2 |EN ABWAERTS.....|
00001070: 08 43 4D 50 20 24 42 32 20 20 20 20 20 20 20 20 |.CMP $B2 |
00001080: 20 20 20 3B 5A 41 45 48 4C 45 52 2C 20 44 45 4E | ;ZAEHLER, DEN|
00001090: 00 B3 18 AC 08 42 43 43 20 4C 30 30 37 20 20 20 |.....BCC L007 |
000010A0: 20 20 20 20 20 20 20 3B 53 55 4D 4D AF 45 4E 20 | ;SUMM.EN |
000010B0: 55 4E 44 00 D8 18 B6 08 50 48 41 20 20 20 20 20 |UND.....PHA |
000010C0: 20 20 20 20 20 20 20 20 20 20 3B 44 41 53 20 56 | ;DAS V|
000010D0: B0 5A 45 49 43 48 45 4E 00 FF 18 C0 08 4C 44 41 |.ZEICHEN.....LDA|
000010E0: 20 24 42 32 20 20 20 20 20 20 20 20 20 20 20 3B | $B2 ;|
000010F0: 46 55 45 52 20 44 49 45 20 5A 57 45 49 54 45 00 |FUER DIE ZWEITE.|
00001100: 26 19 CA 08 50 48 41 20 20 20 20 20 20 20 20 20 |&...PHA |
00001110: 20 20 20 20 20 20 3B 52 49 43 48 54 55 4E 47 20 | ;RICHTUNG |
00001120: 49 4E 20 41 42 AB 00 4C 19 D4 08 4C 44 41 20 24 |IN AB..L...LDA $|
00001130: 42 34 20 20 20 20 20 20 20 20 20 20 20 3B 48 41 |B4 ;HA|
00001140: 45 4E 47 49 47 4B 45 49 54 20 56 91 00 73 19 DE |ENGIGKEIT V..s..|
00001150: 08 4C 44 58 20 24 42 33 20 20 20 20 20 20 20 20 |.LDX $B3 |
00001160: 20 20 20 3B 4D 41 58 28 44 58 2C 44 59 29 20 46 | ;MAX(DX,DY) F|
00001170: 55 45 52 00 99 19 E8 08 3B 20 20 20 20 20 20 20 |UER.....; |
00001180: 20 20 20 20 20 20 20 20 20 20 3B 42 52 45 53 48 | ;BRESH|
00001190: 2E AB 41 4C CB 52 49 54 2E 00 9F 19 F2 08 3B 00 |..AL.RIT......;.|
000011A0: C0 19 FC 08 42 43 53 20 4C 30 30 38 20 20 20 20 |....BCS L008 |
000011B0: 20 20 20 20 20 20 3B 55 4E 42 45 44 49 4E 47 54 | ;UNBEDINGT|
000011C0: 00 D1 19 06 09 4C 30 30 37 20 4C 44 41 20 24 42 |.....L007 LDA $B|
000011D0: 32 00 D9 19 10 09 50 48 41 00 E5 19 1A 09 4C 44 |2.....PHA.....LD|
000011E0: 41 20 24 42 31 00 ED 19 24 09 50 48 41 00 F9 19 |A $B1...$.PHA...|
000011F0: 2E 09 4C 44 41 20 24 42 33 00 05 1A 38 09 4C 44 |..LDA $B3...8.LD|
00001200: 59 20 24 42 34 00 0B 1A 42 09 3B 00 31 1A 4C 09 |Y $B4...B.;.1.L.|
00001210: 4C 30 30 38 20 53 54 58 20 24 41 44 20 20 20 20 |L008 STX $AD |
00001220: 20 20 3B 53 45 54 5A 45 20 44 2E 20 4B 91 53 54 | ;SETZE D. K.ST|
00001230: 2E 00 55 1A 56 09 53 54 59 20 24 41 45 20 20 20 |..U.V.STY $AE |
00001240: 20 20 20 20 20 20 20 20 3B 31 2E 20 52 49 43 48 | ;1. RICH|
00001250: 54 55 4E 47 2C 00 7B 1A 60 09 53 54 41 20 24 42 |TUNG,.{.`.STA $B|
00001260: 35 20 20 20 20 20 20 20 20 20 20 20 3B 56 B0 5A |5 ;V.Z|
00001270: 2E 20 32 2E 52 49 43 48 54 2E 2C 00 83 1A 6A 09 |. 2.RICHT.,...j.|
00001280: 50 4C 41 00 A7 1A 74 09 53 54 41 20 24 42 32 20 |PLA...t.STA $B2 |
00001290: 20 20 20 20 20 20 20 20 20 20 3B 44 45 4E 20 53 | ;DEN S|
000012A0: 55 4D 4D AF 45 4E 2C 00 B3 1A 7E 09 49 4E 43 20 |UMM.EN,...~.INC |
000012B0: 24 42 32 00 BB 1A 88 09 50 4C 41 00 E2 1A 92 09 |$B2.....PLA.....|
000012C0: 53 54 41 20 24 42 31 20 20 20 20 20 20 20 20 20 |STA $B1 |
000012D0: 20 20 3B 44 49 45 20 56 45 52 47 4C 2E 5A 41 48 | ;DIE VERGL.ZAH|
000012E0: 4C 2C 00 EE 1A 9C 09 49 4E 43 20 24 42 31 00 15 |L,.....INC $B1..|
000012F0: 1B A6 09 53 54 41 20 24 42 34 20 20 20 20 20 20 |...STA $B4 |
00001300: 20 20 20 20 20 3B 44 45 4E 20 41 42 57 2E 5A 41 | ;DEN ABW.ZA|
00001310: 45 48 4C 2E 2C 00 20 1B B0 09 4C 44 41 20 23 30 |EHL.,. ...LDA #0|
00001320: 00 47 1B BA 09 53 54 41 20 24 42 33 20 20 20 20 |.G...STA $B3 |
00001330: 20 20 20 20 20 20 20 3B 44 49 45 20 4C 41 55 46 | ;DIE LAUF|
00001340: 2E 20 53 55 4D 4D 45 00 6E 1B C4 09 53 54 41 20 |. SUMME.n...STA |
00001350: 24 41 46 20 20 20 20 20 20 20 20 20 20 20 3B 55 |$AF ;U|
00001360: 4E 44 20 44 49 45 20 56 41 52 49 41 42 2E 00 91 |ND DIE VARIAB...|
00001370: 1B CE 09 53 54 41 20 24 42 30 20 20 20 20 20 20 |...STA $B0 |
00001380: 20 20 20 20 20 3B 32 2E 20 52 49 43 48 54 55 4E | ;2. RICHTUN|
00001390: 47 00 9E 1B D8 09 4A 4D 50 20 4C 30 32 30 00 A4 |G.....JMP L020..|
000013A0: 1B E2 09 3B 00 C9 1B EC 09 4C 30 30 39 20 4C 44 |...;.....L009 LD|
000013B0: 41 20 23 30 20 20 20 20 20 20 20 3B 42 52 45 53 |A #0 ;BRES|
000013C0: 45 4E 48 41 4D AB 41 4C AB 00 E9 1B F6 09 53 54 |ENHAM.AL......ST|
000013D0: 41 20 24 41 46 20 20 20 20 20 20 20 20 20 20 20 |A $AF |
000013E0: 3B CB 52 49 54 48 4D 55 53 00 F5 1B 00 0A 53 54 |;.RITHMUS.....ST|
000013F0: 41 20 24 42 30 00 FD 1B 0A 0A 43 4C 43 00 09 1C |A $B0.....CLC...|
00001400: 14 0A 4C 44 41 20 24 42 33 00 15 1C 1E 0A 41 44 |..LDA $B3.....AD|
00001410: 43 20 24 42 32 00 22 1C 28 0A 42 43 53 20 4C 30 |C $B2.".(.BCS L0|
00001420: 31 30 00 2E 1C 32 0A 53 54 41 20 24 42 33 00 3A |10...2.STA $B3.:|
00001430: 1C 3C 0A 43 4D 50 20 24 42 31 00 47 1C 46 0A 42 |.<.CMP $B1.G.F.B|
00001440: 43 43 20 4C 30 31 32 00 58 1C 50 0A 4C 30 31 30 |CC L012.X.P.L010|
00001450: 20 53 42 43 20 24 42 31 00 64 1C 5A 0A 53 54 41 | SBC $B1.d.Z.STA|
00001460: 20 24 42 33 00 70 1C 64 0A 4C 44 41 20 24 42 35 | $B3.p.d.LDA $B5|
00001470: 00 7C 1C 6E 0A 4C 44 58 20 24 41 44 00 89 1C 78 |.|.n.LDX $AD...x|
00001480: 0A 42 4E 45 20 4C 30 31 31 00 95 1C 82 0A 53 54 |.BNE L011.....ST|
00001490: 41 20 24 41 46 00 B6 1C 8C 0A 42 45 51 20 4C 30 |A $AF.....BEQ L0|
000014A0: 31 32 20 20 20 20 20 20 20 20 20 20 3B 55 4E 42 |12 ;UNB|
000014B0: 45 44 49 4E 47 54 00 C7 1C 96 0A 4C 30 31 31 20 |EDINGT.....L011 |
000014C0: 53 54 41 20 24 42 30 00 CD 1C A0 0A 3B 00 DD 1C |STA $B0.....;...|
000014D0: AA 0A 4C 30 31 32 20 4C 44 58 20 23 32 00 F0 1C |..L012 LDX #2...|
000014E0: B4 0A 4C 30 31 33 20 4C 44 41 20 24 41 44 2C 58 |..L013 LDA $AD,X|
000014F0: 00 FD 1C BE 0A 42 45 51 20 4C 30 31 35 00 0A 1D |.....BEQ L015...|
00001500: C8 0A 42 4D 49 20 4C 30 31 34 00 2A 1D D2 0A 4C |..BMI L014.*...L|
00001510: 53 52 20 24 41 43 20 20 20 20 20 20 20 20 20 20 |SR $AC |
00001520: 20 3B 56 45 52 41 80 45 52 45 00 51 1D DC 0A 42 | ;VERA.ERE.Q...B|
00001530: 43 43 20 4C 30 31 35 20 20 20 20 20 20 20 20 20 |CC L015 |
00001540: 20 3B 5A 45 49 47 45 52 20 55 4E 44 20 42 49 54 | ;ZEIGER UND BIT|
00001550: AB 00 72 1D E6 0A 52 B0 20 24 41 43 20 20 20 20 |..r...R. $AC |
00001560: 20 20 20 20 20 20 20 3B 4D 41 53 4B 45 20 46 55 | ;MASKE FU|
00001570: 45 52 00 8F 1D F0 0A 4C 44 41 20 24 41 41 20 20 |ER.....LDA $AA |
00001580: 20 20 20 20 20 20 20 20 20 3B 58 B2 58 AA 31 00 | ;X.X.1.|
00001590: 9A 1D FA 0A 41 44 43 20 23 38 00 A6 1D 04 0B 53 |....ADC #8.....S|
000015A0: 54 41 20 24 41 41 00 B3 1D 0E 0B 42 43 43 20 4C |TA $AA.....BCC L|
000015B0: 30 31 35 00 BF 1D 18 0B 49 4E 43 20 24 41 42 00 |015.....INC $AB.|
000015C0: E0 1D 22 0B 42 43 53 20 4C 30 31 35 20 20 20 20 |..".BCS L015 |
000015D0: 20 20 20 20 20 20 3B 55 4E 42 45 44 49 4E 47 54 | ;UNBEDINGT|
000015E0: 00 E6 1D 2C 0B 3B 00 06 1E 36 0B 4C 30 31 34 20 |...,.;...6.L014 |
000015F0: 41 53 4C 20 24 41 43 20 20 20 20 20 20 3B 56 45 |ASL $AC ;VE|
00001600: 52 41 80 45 52 45 00 2D 1E 40 0B 42 43 43 20 4C |RA.ERE.-.@.BCC L|
00001610: 30 31 35 20 20 20 20 20 20 20 20 20 20 3B 5A 45 |015 ;ZE|
00001620: 49 47 45 52 20 55 4E 44 20 42 49 54 AB 00 4F 1E |IGER UND BIT..O.|
00001630: 4A 0B 52 4F 4C 20 24 41 43 20 20 20 20 20 20 20 |J.ROL $AC |
00001640: 20 20 20 20 3B 4D 41 53 4B 45 20 46 55 45 52 00 | ;MASKE FUER.|
00001650: 6C 1E 54 0B 53 45 43 20 20 20 20 20 20 20 20 20 |l.T.SEC |
00001660: 20 20 20 20 20 20 3B 58 B2 58 AB 31 00 78 1E 5E | ;X.X.1.x.^|
00001670: 0B 4C 44 41 20 24 41 41 00 83 1E 68 0B 53 42 43 |.LDA $AA...h.SBC|
00001680: 20 23 38 00 8F 1E 72 0B 53 54 41 20 24 41 41 00 | #8...r.STA $AA.|
00001690: 9C 1E 7C 0B 42 43 53 20 4C 30 31 35 00 A8 1E 86 |..|.BCS L015....|
000016A0: 0B 44 45 43 20 24 41 42 00 AE 1E 90 0B 3B 00 C1 |.DEC $AB.....;..|
000016B0: 1E 9A 0B 4C 30 31 35 20 4C 44 41 20 24 41 45 2C |...L015 LDA $AE,|
000016C0: 58 00 CE 1E A4 0B 42 45 51 20 4C 30 31 39 00 DB |X.....BEQ L019..|
000016D0: 1E AE 0B 42 4D 49 20 4C 30 31 37 00 FB 1E B8 0B |...BMI L017.....|
000016E0: 49 4E 43 20 24 41 41 20 20 20 20 20 20 20 20 20 |INC $AA |
000016F0: 20 20 3B 56 45 52 41 80 45 52 45 00 22 1F C2 0B | ;VERA.ERE."...|
00001700: 42 4E 45 20 4C 30 31 36 20 20 20 20 20 20 20 20 |BNE L016 |
00001710: 20 20 3B 5A 45 49 47 45 52 20 55 4E 44 20 42 49 | ;ZEIGER UND BI|
00001720: 54 AB 00 44 1F CC 0B 49 4E 43 20 24 41 42 20 20 |T..D...INC $AB |
00001730: 20 20 20 20 20 20 20 20 20 3B 4D 41 53 4B 45 20 | ;MASKE |
00001740: 46 55 45 52 00 61 1F D6 0B 4C 30 31 36 20 4C 44 |FUER.a...L016 LD|
00001750: 41 20 24 41 41 20 20 20 20 20 20 3B 59 B2 59 AA |A $AA ;Y.Y.|
00001760: 31 00 72 1F E0 0B AF 20 23 25 30 30 30 30 30 31 |1.r.... #%000001|
00001770: 31 31 00 7F 1F EA 0B 42 4E 45 20 4C 30 31 39 00 |11.....BNE L019.|
00001780: 87 1F F4 0B 43 4C 43 00 93 1F FE 0B 4C 44 41 20 |....CLC.....LDA |
00001790: 24 41 41 00 A1 1F 08 0C 41 44 43 20 23 B3 33 31 |$AA.....ADC #.31|
000017A0: 32 00 AD 1F 12 0C 53 54 41 20 24 41 41 00 B9 1F |2.....STA $AA...|
000017B0: 1C 0C 4C 44 41 20 24 41 42 00 C7 1F 26 0C 41 44 |..LDA $AB...&.AD|
000017C0: 43 20 23 B1 33 31 32 00 D3 1F 30 0C 53 54 41 20 |C #.312...0.STA |
000017D0: 24 41 42 00 F4 1F 3A 0C 42 43 43 20 4C 30 31 39 |$AB...:.BCC L019|
000017E0: 20 20 20 20 20 20 20 20 20 20 3B 55 4E 42 45 44 | ;UNBED|
000017F0: 49 4E 47 54 00 FA 1F 44 0C 3B 00 1A 20 4E 0C 4C |INGT...D.;.. N.L|
00001800: 30 31 37 20 4C 44 41 20 24 41 41 20 20 20 20 20 |017 LDA $AA |
00001810: 20 3B 56 45 52 41 80 45 52 45 00 41 20 58 0C 42 | ;VERA.ERE.A X.B|
00001820: 4E 45 20 4C 30 31 38 20 20 20 20 20 20 20 20 20 |NE L018 |
00001830: 20 3B 5A 45 49 47 45 52 20 55 4E 44 20 42 49 54 | ;ZEIGER UND BIT|
00001840: AB 00 63 20 62 0C 44 45 43 20 24 41 42 20 20 20 |..c b.DEC $AB |
00001850: 20 20 20 20 20 20 20 20 3B 4D 41 53 4B 45 20 46 | ;MASKE F|
00001860: 55 45 52 00 80 20 6C 0C 4C 30 31 38 20 44 45 43 |UER.. l.L018 DEC|
00001870: 20 24 41 41 20 20 20 20 20 20 3B 59 B2 59 AB 31 | $AA ;Y.Y.1|
00001880: 00 8C 20 76 0C 4C 44 41 20 24 41 41 00 9D 20 80 |.. v.LDA $AA.. .|
00001890: 0C AF 20 23 25 30 30 30 30 30 31 31 31 00 AF 20 |.. #%00000111.. |
000018A0: 8A 0C 45 B0 20 23 25 30 30 30 30 30 31 31 31 00 |..E. #%00000111.|
000018B0: BC 20 94 0C 42 4E 45 20 4C 30 31 39 00 C4 20 9E |. ..BNE L019.. .|
000018C0: 0C 53 45 43 00 D0 20 A8 0C 4C 44 41 20 24 41 41 |.SEC.. ..LDA $AA|
000018D0: 00 DE 20 B2 0C 53 42 43 20 23 B3 33 31 32 00 EA |.. ..SBC #.312..|
000018E0: 20 BC 0C 53 54 41 20 24 41 41 00 F6 20 C6 0C 4C | ..STA $AA.. ..L|
000018F0: 44 41 20 24 41 42 00 04 21 D0 0C 53 42 43 20 23 |DA $AB..!..SBC #|
00001900: B1 33 31 32 00 10 21 DA 0C 53 54 41 20 24 41 42 |.312..!..STA $AB|
00001910: 00 16 21 E4 0C 3B 00 3B 21 EE 0C 4C 30 31 39 20 |..!..;.;!..L019 |
00001920: 44 45 58 20 20 20 20 20 20 20 20 20 20 3B 32 20 |DEX ;2 |
00001930: 4D 41 4C 20 53 43 48 4C 45 8B 45 00 5E 21 F8 0C |MAL SCHLE.E.^!..|
00001940: 44 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |DEX |
00001950: 20 20 3B 44 55 52 43 48 4C 41 55 46 45 4E 00 82 | ;DURCHLAUFEN..|
00001960: 21 02 0D 42 50 4C 20 4C 30 31 33 20 20 20 20 20 |!..BPL L013 |
00001970: 20 20 20 20 20 3B 46 55 45 52 20 58 20 55 4E 44 | ;FUER X UND|
00001980: 20 59 00 88 21 0C 0D 3B 00 95 21 16 0D 4C 30 32 | Y..!..;..!..L02|
00001990: 30 20 50 4C 50 00 A1 21 20 0D 4C 44 41 20 24 41 |0 PLP..! .LDA $A|
000019A0: 43 00 AC 21 2A 0D 4C 44 59 20 23 30 00 B9 21 34 |C..!*.LDY #0..!4|
000019B0: 0D 42 43 53 20 4C 30 32 31 00 C5 21 3E 0D 45 B0 |.BCS L021..!>.E.|
000019C0: 20 23 24 46 46 00 E9 21 48 0D AF 20 28 24 41 41 | #$FF..!H.. ($AA|
000019D0: 29 2C 59 20 20 20 20 20 20 20 3B 50 55 4E 4B 54 |),Y ;PUNKT|
000019E0: 20 4C 4F 45 53 43 48 45 4E 00 05 22 52 0D 42 59 | LOESCHEN.."R.BY|
000019F0: 54 20 24 32 43 20 20 20 20 20 20 20 20 20 20 20 |T $2C |
00001A00: 3B 4F 44 45 52 00 22 22 5C 0D 4C 30 32 31 20 B0 |;ODER.""\.L021 .|
00001A10: 41 20 28 24 41 41 29 2C 59 20 20 3B 53 45 54 5A |A ($AA),Y ;SETZ|
00001A20: 45 4E 00 32 22 66 0D 53 54 41 20 28 24 41 41 29 |EN.2"f.STA ($AA)|
00001A30: 2C 59 00 3E 22 70 0D 4C 44 41 20 24 42 34 00 4B |,Y.>"p.LDA $B4.K|
00001A40: 22 7A 0D 42 45 51 20 4C 30 32 32 00 57 22 84 0D |"z.BEQ L022.W"..|
00001A50: 44 45 43 20 24 42 34 00 5F 22 8E 0D 50 48 50 00 |DEC $B4._"..PHP.|
00001A60: 6C 22 98 0D 4A 4D 50 20 4C 30 30 39 00 72 22 A2 |l"..JMP L009.r".|
00001A70: 0D 3B 00 84 22 AC 0D 4C 30 32 32 20 4A 4D 50 20 |.;.."..L022 JMP |
00001A80: 52 4F 4D 91 00 8A 22 B6 0D 3B 00 A7 22 C0 0D 42 |ROM..."..;.."..B|
00001A90: 49 54 53 20 42 59 54 20 24 38 30 2C 24 34 30 2C |ITS BYT $80,$40,|
00001AA0: 24 32 30 2C 24 31 30 00 BF 22 CA 0D 42 59 54 20 |$20,$10.."..BYT |
00001AB0: 24 30 38 2C 24 30 34 2C 24 30 32 2C 24 30 31 00 |$08,$04,$02,$01.|
00001AC0: C5 22 D4 0D 3B 00 E2 22 DE 0D 4D 55 4C 54 41 42 |."..;.."..MULTAB|
00001AD0: 20 42 59 54 20 30 2C 30 2C B3 33 32 30 2C B1 33 | BYT 0,0,.320,.3|
00001AE0: 32 30 00 02 23 E8 0D 42 59 54 20 B3 30 36 34 30 |20..#..BYT .0640|
00001AF0: 2C B1 30 36 34 30 2C B3 30 39 36 30 2C B1 30 39 |,.0640,.0960,.09|
00001B00: 36 30 00 22 23 F2 0D 42 59 54 20 B3 31 32 38 30 |60."#..BYT .1280|
00001B10: 2C B1 31 32 38 30 2C B3 31 36 30 30 2C B1 31 36 |,.1280,.1600,.16|
00001B20: 30 30 00 42 23 FC 0D 42 59 54 20 B3 31 39 32 30 |00.B#..BYT .1920|
00001B30: 2C B1 31 39 32 30 2C B3 32 32 34 30 2C B1 32 32 |,.1920,.2240,.22|
00001B40: 34 30 00 62 23 06 0E 42 59 54 20 B3 32 35 36 30 |40.b#..BYT .2560|
00001B50: 2C B1 32 35 36 30 2C B3 32 38 38 30 2C B1 32 38 |,.2560,.2880,.28|
00001B60: 38 30 00 82 23 10 0E 42 59 54 20 B3 33 32 30 30 |80..#..BYT .3200|
00001B70: 2C B1 33 32 30 30 2C B3 33 35 32 30 2C B1 33 35 |,.3200,.3520,.35|
00001B80: 32 30 00 A2 23 1A 0E 42 59 54 20 B3 33 38 34 30 |20..#..BYT .3840|
00001B90: 2C B1 33 38 34 30 2C B3 34 31 36 30 2C B1 34 31 |,.3840,.4160,.41|
00001BA0: 36 30 00 C2 23 24 0E 42 59 54 20 B3 34 34 38 30 |60..#$.BYT .4480|
00001BB0: 2C B1 34 34 38 30 2C B3 34 38 30 30 2C B1 34 38 |,.4480,.4800,.48|
00001BC0: 30 30 00 E2 23 2E 0E 42 59 54 20 B3 35 31 32 30 |00..#..BYT .5120|
00001BD0: 2C B1 35 31 32 30 2C B3 35 34 34 30 2C B1 35 34 |,.5120,.5440,.54|
00001BE0: 34 30 00 02 24 38 0E 42 59 54 20 B3 35 37 36 30 |40..$8.BYT .5760|
00001BF0: 2C B1 35 37 36 30 2C B3 36 30 38 30 2C B1 36 30 |,.5760,.6080,.60|
00001C00: 38 30 00 22 24 42 0E 42 59 54 20 B3 36 34 30 30 |80."$B.BYT .6400|
00001C10: 2C B1 36 34 30 30 2C B3 36 37 32 30 2C B1 36 37 |,.6400,.6720,.67|
00001C20: 32 30 00 42 24 4C 0E 42 59 54 20 B3 37 30 34 30 |20.B$L.BYT .7040|
00001C30: 2C B1 37 30 34 30 2C B3 37 33 36 30 2C B1 37 33 |,.7040,.7360,.73|
00001C40: 36 30 00 56 24 56 0E 42 59 54 20 B3 37 36 38 30 |60.V$V.BYT .7680|
00001C50: 2C B1 37 36 38 30 00 5C 24 60 0E 3B 00 00 00 |,.7680.\$`.;... |
....D.L:OPT OO:.. $C000...N.;.#.X.;.7...
; 3D...ROUTINE.=...;.C...;.C. .VEKTRAM
. $A4 ;6 BYTES......EZERO . $FB
;4 BYTES.....FARBRAM . $8C00.....PIC
TURE . $A000...H.;...R.;.N...; SP.GT
ABELLE.T...;.....JMP GRAPHICS......JMP G
RAPHICS......JMP ......;.....NOP:NOP:NOP
.(.".NOP:NOP:NOP.8.,.NOP:NOP:NOP.H.6.NOP
:NOP:NOP.N.@.;.T.J.;.G.T.; SUBROUTINEN.
M.^.;.Z.H.ROM. SEI...R.LDA #$36...|.STA
$01.....RTS.....;.....ROM. LDA #$37.....
STA $01.G...CLI.O...RTS.U.B.;...L..MEM L
DY #0...V.L000 STA (.EZERO.0),Y.....INY.
....BNE L000.%...INC .EZERO.1.-...DEX.:.
..BNE L000.B...RTS.H...;.N.&.;.B.0.; MA
INROUTINEN.H.:.;...D.GRAPHICS. JSR $E200
...N.TXA ;H.ERGRFARBE...
X.. #%00001111.G.B.STA .EZERO.0.U.L.JSR
$E200...V.TXA ;ZEICHENFA
RBE.....ASL:ASL.....ASL:ASL.#...E. .EZER
O.0.5...LDX #.FARBRAM.G...LDY #.FARBRAM.
X...STX .EZERO.0.I...STY .EZERO.1...F.LD
X #4 ;FARBRAM...P.JSR .MEM
;INITIALISIEREN.A.Z.LDX #.PICTUR
E.S...LDY #.PICTURE.....STX .EZERO.0....
.STY .EZERO.1.....LDX #32.....LDA #0
;...B...JSR .MEM ;INIT
IALISIEREN.H. .;.H.*.LDA 56576
;GRAFIK...4.. #252 ;EINSCHAL
TEN...>..A #1...H.STA 56576...R.LDA 5327
2...\.. #15.L.F..A #(16.3.8).Z.P.STA 532
72...Z.LDA 53265......A #32.....STA 5326
5.....RTS.....;.'...GRAPHICS. LDA 53265.
2.... #223.@...STA 53265.L.J.LDA #23.Z.T
.STA 53272.G...LDA #151.U...STA 56576.}.
..RTS.....;.....;.....; 3D...ROUTINE...
..;.C.$.; $A4.$A9 .. 2 3D.VEK.REN.....
; $AA.$B5 .. VERSCH. GENUTZT...8.;
U.A. BRESENHAM.ALKRITHMUS...B.; $AA.$
AB .. VEK.R IN PICTURE.P.L.; $AC .
. BIT D. PUNKTES.S.V.; $AD.$B0 .. PUNK
TRICHTUNGEN...`.; $B1 .. VERGLEICH
SZAHL...J.; $B2 .. SUMM..N.T.;
$B3 .. LAUF.E SUMME...~.; $B4 .
. ABWAERTSZAEHLER.....; $B5 .. ZWE
ITE RICHTUNG.....;.-...ERR. JMP $B248.3.
..;.C.... JSR $E200.N...CPX #2.[.D.BCS E
RR..C.N.TXA.K.X.LSR.....PHP ;
ZEICHNEN.LOESCHEN.....L001 STA $AA ;SC
HLE.E ZUM.R...JSR $AEFD ;EINLESEN D
ER.....JSR $AD8A ;6 KOEFFIZIENTEN..
...JSR $B849.....JSR $B1AA.....LDX $AA.0
.(.STY VEKTRAM,X.8.2.TAX.@.<.TYA.K.F.CPX
#0.X.P.BEQ L002.`.Z.INX.M.D.BNE ERR..X.
N.SBC #1...X.E. #$FF.....L002 CMP #61...
..BCS ERR......LDA $AA... .ADC #1.D...CM
P #6.Q...BCC L001.....LDA #.PICTURE...H.
PLP...R.;......2 PHP ;EINSP.G FU
ER.4...PHA ;3D.., WENN.W..
.JSR ROM. ;KOEFFIZIENTEN.|...LDX
#0 ;SCH. IN ZERO......L003 LD
A VEKTRAM,X;. STEHEN.....CMP #$80.....R.
.P.".BPL L004 ;3D .. 2D...,.ADC
#0 ;BERECHNE DX UND...6.L004
TAY ;DY FUER ANFANGS.?.@.E. #$
FF ;UND .PUNKT.B.J.CLC
;AUS DEN V.....T.ADC #161
;H.ENEN 6 V.....^.CLC ;ZE
ICHENBEHAF..P.H.ADC VEKTRAM.1,X ;TETEN
KOEFFI....R.STA $AA,X ;ZIENTEN
DER...|.TYA ;BEIDEN VEK.RE
N.!...CLC.F...ADC #100 ;ERGEBNI
S NACH.I...SEC ;$AA.$AB UN
D.....SBC VEKTRAM.2,X ;$AD.$AE.....STA
$AB,X.....INX:INX...B.INX...L.CPX #6.B.
V.BCC L003.H...;.....LDX #1 ;
BERECHNE DX, DY.....L005 SEC ;U
ND DEREN V...3...LDA $AD,X ;ZEIC
HEN.W...SBC $AA,X ;ZWISCHEN AN..
|...TAY ;FANGS. UND ......
.TXA ;PUNKT DER LINIE...&.
R..L.0.E. #$81 ;.(DX),.(DY)...:
.STA $B3,X ;.. $B1.$B2...D.ASL
;V.(DX),V.(DY).5.N.TYA
;.. $B3.$B4.B.X.BCC L006.N.B.E
. #$FF.Y.L.ADC #0.L.V.L006 STA $B1,X.T..
.DEX.....BPL L005.....;.....LDA $AA
;BERECHNE BIT..O.... #%00000111
;MASKE FUER 1......TAX ;Z
U SETZ.EN......LDA BITS,X ;ZU LOE
SCH.EN.9.F.STA $AC ;GRAFIKPUNK
T.?.P.;.F.Z.LDA $AB ;BERECHNE
ZEIGER...... #%11111000 ;AUF BYTE DER
.....LSR ;.., IN.K...LSR
;DEM DER ERSTE.....TAX
;ZU SETZ.E......LDA $AA
;ZU LOESCH.E.1.... #%11111000 ;GR
AFIKPUNKT.N. .STA $AA ;STEHT.Z
.*.LDA $AB.Y.4.. #%00000111 ;ZEIGER I
N...>..A $AA ;$AA.$AB...H.ADC
MULTAB.0,X...R.STA $AA.Y.\.PLA
;HI.B GRAF.....F.ADC MULTAB.1,X...P
.STA $AB...Z.;.#...LDX #0 ;HO
LE DIE VER..G...LDY #0 ;GLEIC
HSZAHL,.L...LDA $B1 ;DEN ABWAE
RTS......CMP $B2 ;ZAEHLER, DEN
.....BCC L007 ;SUMM.EN UND.X...
PHA ;DAS V.ZEICHEN.....LDA
$B2 ;FUER DIE ZWEITE.&.J.PHA
;RICHTUNG IN AB..L.T.LDA $
B4 ;HAENGIGKEIT V..S...LDX $B3
;MAX(DX,DY) FUER.....;
;BRESH..ALKRIT......;.....BCS
L008 ;UNBEDINGT.Q...L007 LDA $B
2.Y...PHA.....LDA $B1...$.PHA.....LDA $B
3...8.LDY $B4...B.;.1.L.L008 STX $AD
;SETZE D. K.ST..U.V.STY $AE
;1. RICHTUNG,.{.`.STA $B5 ;V.Z
. 2.RICHT.,...J.PLA...T.STA $B2
;DEN SUMM.EN,...~.INC $B2.....PLA.....
STA $B1 ;DIE VERGL.ZAHL,.....I
NC $B1.....STA $B4 ;DEN ABW.ZA
EHL.,. ...LDA #0.G...STA $B3 ;
DIE LAUF. SUMME.N.D.STA $AF ;U
ND DIE VARIAB....N.STA $B0 ;2.
RICHTUNG...X.JMP L020.....;.I...L009 LD
A #0 ;BRESENHAM.AL......STA $AF
;KRITHMUS.....STA $B0.....CLC...
..LDA $B3.....ADC $B2.".(.BCS L010...2.S
TA $B3.:.<.CMP $B1.G.F.BCC L012.X.P.L010
SBC $B1.D.Z.STA $B3.P.D.LDA $B5.|.N.LDX
$AD...X.BNE L011.....STA $AF.....BEQ L0
12 ;UNBEDINGT.G...L011 STA $B0.
M. .;.....L012 LDX #2.....L013 LDA $AD,X
.....BEQ L015...H.BMI L014.*.R.LSR $AC
;VERA.ERE.Q...BCC L015
;ZEIGER UND BIT..R...R. $AC ;
MASKE FUER.....LDA $AA ;X.X.1.
....ADC #8.....STA $AA.....BCC L015.....
INC $AB...".BCS L015 ;UNBEDINGT
...,.;...6.L014 ASL $AC ;VERA.ERE.-
.@.BCC L015 ;ZEIGER UND BIT..O.
J.ROL $AC ;MASKE FUER.L.T.SEC
;X.X.1.X.^.LDA $AA...H.SBC
#8...R.STA $AA...|.BCS L015.....DEC $AB
.....;.A...L015 LDA $AE,X.N...BEQ L019..
...BMI L017.....INC $AA ;VERA.
ERE.".B.BNE L016 ;ZEIGER UND BI
T..D.L.INC $AB ;MASKE FUER.A.V
.L016 LDA $AA ;Y.Y.1.R.... #%000001
11....BNE L019.....CLC.....LDA $AA.....
ADC #.312.....STA $AA.....LDA $AB.G.&.AD
C #.312.S.0.STA $AB...:.BCC L019
;UNBEDINGT...D.;.. N.L017 LDA $AA
;VERA.ERE.A X.BNE L018 ;ZEIGER
UND BIT..C B.DEC $AB ;MASKE F
UER.. L.L018 DEC $AA ;Y.Y.1.. V.LDA
$AA.. ... #%00000111.. ..E. #%00000111.
. ..BNE L019.D ..SEC.P ..LDA $AA.. ..SBC
#.312.. ..STA $AA.. F.LDA $AB..!P.SBC #
.312..!Z.STA $AB..!..;.;!..L019 DEX
;2 MAL SCHLE.E.^!..DEX
;DURCHLAUFEN..!..BPL L013 ;FU
ER X UND Y..!..;..!..L020 PLP..! .LDA $A
C..!*.LDY #0..!4.BCS L021.E!>.E. #$FF..!
H.. ($AA),Y ;PUNKT LOESCHEN.."R.BY
T $2C ;ODER.""\.L021 .A ($AA),
Y ;SETZEN.2"F.STA ($AA),Y.>"P.LDA $B4.K
"Z.BEQ L022.W"..DEC $B4._"..PHP.L"..JMP
L009.R"..;.."..L022 JMP ROM..."..;.."..B
ITS BYT $80,$40,$20,$10.."J.BYT $08,$04,
$02,$01.E"T.;.."..MULTAB BYT 0,0,.320,.3
20..#..BYT .0640,.0640,.0960,.0960."#..B
YT .1280,.1280,.1600,.1600.B#..BYT .1920
,.1920,.2240,.2240.B#..BYT .2560,.2560,.
2880,.2880..#..BYT .3200,.3200,.3520,.35
20..#..BYT .3840,.3840,.4160,.4160.B#$.B
YT .4480,.4480,.4800,.4800..#..BYT .5120
,.5120,.5440,.5440..$8.BYT .5760,.5760,.
6080,.6080."$B.BYT .6400,.6400,.6720,.67
20.B$L.BYT .7040,.7040,.7360,.7360.V$V.B
YT .7680,.7680.\$`.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL