PACKET
FILE INFORMATION
FILENAME(S): PACKET
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-12-01 13:59:46
APPEARS ON: 1 disk(s)
FILE HASH
e706bf67aa0711fa1c8653fa679d411ee98afeca033323d2604ecdd4e12a979f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THE PHANTOM | PACKET | PRG | HOL2001, OUG | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 5A 00 30 69 48 FF 10 00 20 20 20 20 20 20 20 20 |Z.0iH... | 00000010: 20 20 20 2E 42 41 20 33 36 30 30 B0 30 00 20 2E | .BA 3600.0. .| 00000020: 4F D3 40 00 20 BB 50 00 20 3B 2A 2A 2A 2A 2A 2A |O.@. .P. ;******| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A AA 55 00 20 3B 2A 2A 20 20 20 20 20 20 20 20 |*.U. ;** | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 2A AA 60 00 | *.`.| 00000060: 20 3B 2A 2A 20 48 4F 43 48 20 41 55 46 4C 4F 45 | ;** HOCH AUFLOE| 00000070: 53 45 4E 44 45 53 20 20 2A AA 70 00 20 3B 2A 2A |SENDES *.p. ;**| 00000080: 20 20 47 52 41 46 49 4B 20 2D 20 50 41 4B 45 54 | GRAFIK - PAKET| 00000090: 20 20 20 20 2A AA 80 00 20 3B 2A 2A 20 20 20 20 | *... ;** | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 2A AA 90 00 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*... ;**********| 000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A AA 00 01 |*************...| 000000D0: 20 BB 10 01 20 BB 20 01 47 45 54 42 59 54 20 2E | ... . .GETBYT .| 000000E0: 44 45 20 24 42 37 39 C5 30 01 43 48 4B 43 4F 4D |DE $B79.0.CHKCOM| 000000F0: 20 2E 44 45 20 24 41 45 46 C4 40 01 43 48 4B 47 | .DE $AEF.@.CHKG| 00000100: 45 54 20 2E 44 45 20 24 42 37 46 B1 50 01 47 45 |ET .DE $B7F.P.GE| 00000110: 54 43 4F 52 20 2E 44 45 20 24 42 37 45 C2 60 01 |TCOR .DE $B7E.`.| 00000120: 51 45 52 52 20 20 20 2E 44 45 20 24 42 32 34 B8 |QERR .DE $B24.| 00000130: 70 01 56 20 2E 44 45 20 24 44 30 30 B0 80 01 20 |p.V .DE $D00... | 00000140: BB 90 01 20 20 20 20 20 20 20 20 20 20 20 BB 00 |... ..| 00000150: 02 4F 46 46 58 20 2E 44 45 20 24 36 B3 10 02 4D |.OFFX .DE $6...M| 00000160: 53 4B 20 2E 44 45 20 24 41 C2 20 02 44 49 46 30 |SK .DE $A. .DIF0| 00000170: 20 2E 44 45 20 24 36 B9 30 02 44 49 46 31 20 2E | .DE $6.0.DIF1 .| 00000180: 44 45 20 24 36 C1 40 02 44 49 46 32 20 2E 44 45 |DE $6.@.DIF2 .DE| 00000190: 20 24 36 C2 50 02 44 49 46 33 20 2E 44 45 20 24 | $6.P.DIF3 .DE $| 000001A0: 36 C3 60 02 44 49 46 34 20 2E 44 45 20 24 36 C4 |6.`.DIF4 .DE $6.| 000001B0: 70 02 44 49 46 35 20 2E 44 45 20 24 36 C5 80 02 |p.DIF5 .DE $6...| 000001C0: 5A 57 4E 20 2E 44 45 20 24 36 C6 90 02 5A 41 20 |ZWN .DE $6...ZA | 000001D0: 2E 44 45 20 24 37 B0 00 03 41 20 2E 44 45 20 24 |.DE $7...A .DE $| 000001E0: 41 C3 10 03 42 20 2E 44 45 20 24 41 43 2B B1 20 |A...B .DE $AC+. | 000001F0: 03 58 4B 20 2E 44 45 20 24 31 B4 30 03 46 4C 47 |.XK .DE $1.0.FLG| 00000200: 20 2E 44 45 20 24 39 B7 40 03 55 53 45 20 2E 44 | .DE $9.@.USE .D| 00000210: 45 20 24 46 C4 50 03 20 BB 60 03 20 BB 70 03 20 |E $F.P. .`. .p. | 00000220: BB 80 03 20 BB 90 03 47 52 41 50 48 20 2E 44 45 |... ...GRAPH .DE| 00000230: 20 24 32 30 30 B0 00 04 56 49 44 45 4F 20 2E 44 | $200...VIDEO .D| 00000240: 45 20 24 30 34 30 B0 10 04 47 53 54 41 52 54 20 |E $040...GSTART | 00000250: 2E 44 45 20 24 32 B1 20 04 47 45 4E 44 20 2E 44 |.DE $2. .GEND .D| 00000260: 45 20 24 33 C5 30 04 20 BB 40 04 20 BB 50 04 20 |E $3.0. .@. .P. | 00000270: BB 60 04 20 4A 4D 50 20 49 4E 49 D4 70 04 20 4A |.`. JMP INI.p. J| 00000280: 4D 50 20 47 4F 46 C6 80 04 20 4A 4D 50 20 47 43 |MP GOF... JMP GC| 00000290: 4C 45 41 D2 90 04 20 4A 4D 50 20 53 43 4F 4C 4F |LEA... JMP SCOLO| 000002A0: D2 00 05 20 4A 4D 50 20 50 43 4F 4C 4F D2 10 05 |... JMP PCOLO...| 000002B0: 20 4A 4D 50 20 50 4C 4F D4 20 05 20 4A 4D 50 20 | JMP PLO. . JMP | 000002C0: 55 4E 50 4C 4F D4 30 05 20 4A 4D 50 20 53 4C 49 |UNPLO.0. JMP SLI| 000002D0: 4E C5 40 05 20 4A 4D 50 20 43 4C 4C 49 4E C5 50 |N.@. JMP CLLIN.P| 000002E0: 05 20 4A 4D 50 20 47 4C 4F 41 C4 60 05 20 4A 4D |. JMP GLOA.`. JM| 000002F0: 50 20 47 53 41 56 C5 70 05 20 4A 4D 50 20 48 41 |P GSAV.p. JMP HA| 00000300: 52 44 C3 80 05 20 BB 90 05 20 BB 00 06 20 3B 2A |RD... ... ... ;*| 00000310: 2A 2A 20 47 52 41 46 49 4B 20 45 49 4E 53 43 48 |** GRAFIK EINSCH| 00000320: 41 4C 54 45 4E 20 2A 2A AA 10 06 20 BB 20 06 49 |ALTEN **... . .I| 00000330: 4E 49 54 20 4E 4F D0 30 06 20 4C 44 41 20 56 2B |NIT NO.0. LDA V+| 00000340: 31 B7 40 06 20 53 54 41 20 53 54 4F 52 45 B1 50 |1.@. STA STORE.P| 00000350: 06 20 4C 44 41 20 56 2B 32 B4 60 06 20 53 54 41 |. LDA V+2.`. STA| 00000360: 20 53 54 4F 52 45 B2 70 06 20 4C 44 41 20 23 25 | STORE.p. LDA #%| 00000370: 30 30 31 31 31 30 31 B1 80 06 20 53 54 41 20 56 |0011101... STA V| 00000380: 2B 31 B7 90 06 20 4C 44 41 20 23 25 30 30 30 31 |+1... LDA #%0001| 00000390: 31 30 30 B0 00 07 20 53 54 41 20 56 2B 32 B4 10 |100... STA V+2..| 000003A0: 07 20 4C 44 41 20 23 24 36 B0 20 07 20 53 54 41 |. LDA #$6. . STA| 000003B0: 20 49 4E 49 D4 30 07 20 52 54 D3 40 07 20 BB 50 | INI.0. RT.@. .P| 000003C0: 07 20 BB 60 07 20 3B 2A 2A 2A 20 47 52 41 46 49 |. .`. ;*** GRAFI| 000003D0: 4B 20 41 55 53 53 43 48 41 4C 54 45 4E 20 2A 2A |K AUSSCHALTEN **| 000003E0: AA 70 07 20 BB 80 07 47 4F 46 46 20 4C 44 41 20 |.p. ...GOFF LDA | 000003F0: 53 54 4F 52 45 B1 90 07 20 53 54 41 20 56 2B 31 |STORE... STA V+1| 00000400: B7 00 08 20 4C 44 41 20 53 54 4F 52 45 B2 10 08 |... LDA STORE...| 00000410: 20 53 54 41 20 56 2B 32 B4 20 08 20 4C 44 41 20 | STA V+2. . LDA | 00000420: 23 24 45 C1 30 08 20 53 54 41 20 49 4E 49 D4 40 |#$E.0. STA INI.@| 00000430: 08 20 4A 4D 50 20 24 45 35 34 B4 50 08 20 BB 60 |. JMP $E54.P. .`| 00000440: 08 20 BB 70 08 20 20 20 20 20 20 20 20 20 20 20 |. .p. | 00000450: 3B 2A 2A 2A 20 4C 4F 45 53 43 48 46 4C 41 47 20 |;*** LOESCHFLAG | 00000460: 50 55 4E 4B 54 20 53 45 54 5A 45 4E 3A 20 2A 2A |PUNKT SETZEN: **| 00000470: AA 80 08 20 20 20 20 20 20 20 20 20 20 20 BB 90 |... ..| 00000480: 08 55 4E 50 4C 4F 54 20 4C 44 58 20 23 B0 00 09 |.UNPLOT LDX #...| 00000490: 20 2E 42 59 20 24 32 C3 10 09 20 BB 20 09 20 BB | .BY $2... . . .| 000004A0: 30 09 20 3B 2A 2A 2A 20 53 45 54 5A 46 4C 41 47 |0. ;*** SETZFLAG| 000004B0: 20 55 4E 44 20 4B 4F 4F 52 44 49 4E 41 54 45 4E | UND KOORDINATEN| 000004C0: 20 46 55 45 52 20 50 55 4E 4B 54 52 4F 55 54 49 | FUER PUNKTROUTI| 000004D0: 4E 45 20 2A 2A AA 40 09 50 4C 4F 54 20 4C 44 58 |NE **.@.PLOT LDX| 000004E0: 20 23 24 38 B0 50 09 50 4C 31 20 53 54 58 20 2A | #$8.P.PL1 STX *| 000004F0: 46 4C C7 60 09 20 4A 53 52 20 43 48 4B 43 4F CD |FL.`. JSR CHKCO.| 00000500: 70 09 20 4A 53 52 20 54 45 53 43 4F D2 80 09 20 |p. JSR TESCO... | 00000510: 4A 53 52 20 48 50 4F 53 CE 90 09 20 4A 4D 50 20 |JSR HPOS... JMP | 00000520: 50 4C D4 00 10 20 20 BB 10 10 20 BB 20 10 20 3B |PL... ... . . ;| 00000530: 2A 2A 2A 20 4C 4F 45 53 43 48 46 4C 41 47 20 4C |*** LOESCHFLAG L| 00000540: 49 4E 49 45 20 2A 2A AA 30 10 20 BB 40 10 43 4C |INIE **.0. .@.CL| 00000550: 4C 49 4E 45 20 20 20 20 20 4C 44 58 20 23 24 30 |LINE LDX #$0| 00000560: B0 50 10 20 2E 42 59 20 24 32 C3 60 10 20 BB 70 |.P. .BY $2.`. .p| 00000570: 10 20 BB 80 10 20 3B 2A 2A 2A 20 4C 49 4E 49 45 |. ... ;*** LINIE| 00000580: 20 5A 45 49 43 48 4E 45 4E 20 2A 2A AA 90 10 20 | ZEICHNEN **... | 00000590: BB 00 11 53 4C 49 4E 45 20 4C 44 58 20 23 24 38 |...SLINE LDX #$8| 000005A0: B0 10 11 20 4A 53 52 20 50 4C B1 20 11 20 4A 53 |... JSR PL. . JS| 000005B0: 52 20 43 48 4B 43 4F CD 30 11 20 4A 53 52 20 54 |R CHKCO.0. JSR T| 000005C0: 45 53 43 4F D2 40 11 20 4A 4D 50 20 48 4C 49 4E |ESCO.@. JMP HLIN| 000005D0: C5 50 11 20 BB 60 11 20 BB 70 11 20 3B 2A 2A 2A |.P. .`. .p. ;***| 000005E0: 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 54 45 53 | KOORDINATEN TES| 000005F0: 54 45 4E 20 2A 2A AA 75 11 20 BB 80 11 54 45 53 |TEN **.u. ...TES| 00000600: 43 4F 52 20 4A 53 52 20 47 45 54 43 4F D2 90 11 |COR JSR GETCO...| 00000610: 20 54 58 C1 00 12 20 54 41 D9 10 12 20 4C 44 58 | TX... TA... LDX| 00000620: 20 2A 58 4B 2B B1 20 12 20 43 50 59 20 23 32 30 | *XK+. . CPY #20| 00000630: B0 30 12 20 42 43 53 20 49 4C 4C 46 C6 40 12 20 |.0. BCS ILLF.@. | 00000640: 4C 44 41 20 2A 58 CB 50 12 20 43 50 58 20 23 48 |LDA *X.P. CPX #H| 00000650: 2C 33 32 B0 60 12 20 42 43 43 20 54 B1 70 12 20 |,32.`. BCC T.p. | 00000660: 42 4E 45 20 49 4C 4C 46 C6 80 12 20 43 4D 50 20 |BNE ILLF... CMP | 00000670: 23 4C 2C 33 32 B0 90 12 20 42 43 53 20 49 4C 4C |#L,32... BCS ILL| 00000680: 46 C6 00 13 54 31 20 52 54 D3 10 13 49 4C 4C 46 |F...T1 RT...ILLF| 00000690: 46 20 4A 4D 50 20 51 45 52 D2 20 13 20 BB 30 13 |F JMP QER. . .0.| 000006A0: 20 BB 40 13 20 3B 2A 2A 2A 20 41 44 52 45 53 53 | .@. ;*** ADRESS| 000006B0: 45 20 45 52 52 45 43 48 4E 45 4E 20 2A 2A AA 50 |E ERRECHNEN **.P| 000006C0: 13 20 20 20 20 20 20 20 20 20 20 20 BB 60 13 48 |. .`.H| 000006D0: 50 4F 53 4E 20 53 54 59 20 59 CB 70 13 20 20 20 |POSN STY Y.p. | 000006E0: 20 20 20 20 20 20 20 20 53 54 41 20 58 4B CC 80 | STA XK..| 000006F0: 13 20 53 54 58 20 58 4B C8 90 13 20 53 54 41 20 |. STX XK... STA | 00000700: 2A 58 CB 00 14 20 53 54 58 20 2A 58 4B 2B B1 10 |*X... STX *XK+..| 00000710: 14 20 54 59 C1 20 14 20 4C 53 52 20 C1 30 14 20 |. TY. . LSR .0. | 00000720: 4C 53 52 20 C1 40 14 20 4C 53 52 20 C1 50 14 20 |LSR .@. LSR .P. | 00000730: 54 41 D8 60 14 20 4C 44 41 20 4D 55 4C 2F 48 2C |TA.`. LDA MUL/H,| 00000740: D8 70 14 20 53 54 41 20 2A C2 80 14 20 54 58 C1 |.p. STA *... TX.| 00000750: 90 14 20 41 4E 44 20 23 B3 00 15 20 54 41 D8 10 |.. AND #... TA..| 00000760: 15 20 4C 44 41 20 4D 55 4C 2F 4C 2C D8 20 15 20 |. LDA MUL/L,. . | 00000770: 53 54 41 20 2A C1 30 15 20 54 59 C1 40 15 20 41 |STA *.0. TY.@. A| 00000780: 4E 44 20 23 B7 50 15 20 43 4C C3 60 15 20 41 44 |ND #.P. CL.`. AD| 00000790: 43 20 2A C1 70 15 20 53 54 41 20 2A C1 80 15 20 |C *.p. STA *... | 000007A0: 4C 44 41 20 2A 58 CB 90 15 20 41 4E 44 20 23 24 |LDA *X... AND #$| 000007B0: 46 B8 00 16 20 53 54 41 20 2A 4F 46 46 D8 10 16 |F... STA *OFF...| 000007C0: 20 4C 44 41 20 23 48 2C 47 52 41 50 C8 20 16 20 | LDA #H,GRAP. . | 000007D0: 4F 52 41 20 2A C2 30 16 20 53 54 41 20 2A C2 40 |ORA *.0. STA *.@| 000007E0: 16 20 43 4C C3 50 16 20 4C 44 41 20 2A C1 60 16 |. CL.P. LDA *.`.| 000007F0: 20 41 44 43 20 2A 4F 46 46 D8 70 16 20 53 54 41 | ADC *OFF.p. STA| 00000800: 20 2A C1 80 16 20 4C 44 41 20 2A C2 90 16 20 41 | *... LDA *... A| 00000810: 44 43 20 2A 58 4B 2B B1 00 17 20 53 54 41 20 2A |DC *XK+... STA *| 00000820: C2 10 17 20 4C 44 41 20 2A 58 CB 20 17 20 41 4E |... LDA *X. . AN| 00000830: 44 20 23 B7 30 17 20 45 4F 52 20 23 B7 40 17 20 |D #.0. EOR #.@. | 00000840: 54 41 D8 50 17 20 4C 44 41 20 4D 53 4B 54 41 42 |TA.P. LDA MSKTAB| 00000850: 2C D8 60 17 20 53 54 41 20 2A 4D 53 CB 70 17 20 |,.`. STA *MS.p. | 00000860: 52 54 D3 80 17 20 BB 90 17 20 BB 00 18 20 3B 2A |RT... ... ... ;*| 00000870: 2A 2A 20 50 55 4E 4B 54 20 50 4C 4F 54 54 45 4E |** PUNKT PLOTTEN| 00000880: 20 2A 2A AA 10 18 50 4C 54 20 4C 44 59 20 23 B0 | **...PLT LDY #.| 00000890: 20 18 20 50 48 D0 30 18 20 4C 44 41 20 2A 4D 53 | . PH.0. LDA *MS| 000008A0: CB 40 18 20 42 49 54 20 2A 46 4C C7 50 18 20 42 |.@. BIT *FL.P. B| 000008B0: 4D 49 20 50 4C B2 60 18 20 45 4F 52 20 23 24 46 |MI PL.`. EOR #$F| 000008C0: C6 70 18 20 41 4E 44 20 28 41 29 2C D9 80 18 20 |.p. AND (A),... | 000008D0: 2E 42 59 20 24 32 C3 90 18 50 4C 32 20 20 20 20 |.BY $2...PL2 | 000008E0: 20 20 20 20 4F 52 41 20 28 41 29 2C D9 00 19 20 | ORA (A),... | 000008F0: 53 54 41 20 28 41 29 2C D9 10 19 20 4C 44 41 20 |STA (A),... LDA | 00000900: 2A C1 20 19 20 53 54 41 20 2A 55 53 C5 30 19 20 |*. . STA *US.0. | 00000910: 4C 44 41 20 2A C2 40 19 20 4C 53 52 20 C1 50 19 |LDA *.@. LSR .P.| 00000920: 20 52 4F 52 20 2A 55 53 C5 60 19 20 4C 53 52 20 | ROR *US.`. LSR | 00000930: C1 70 19 20 52 4F 52 20 2A 55 53 C5 80 19 20 4C |.p. ROR *US... L| 00000940: 53 52 20 C1 90 19 20 52 4F 52 20 2A 55 53 C5 00 |SR ... ROR *US..| 00000950: 20 20 41 4E 44 20 23 B3 10 20 20 4F 52 41 20 23 | AND #.. ORA #| 00000960: B4 20 20 20 53 54 41 20 2A 55 53 45 2B B1 30 20 |. STA *USE+.0 | 00000970: 20 4C 44 41 20 43 4F 4C 4F D2 40 20 20 53 54 41 | LDA COLO.@ STA| 00000980: 20 28 55 53 45 29 2C D9 50 20 20 50 4C D0 60 20 | (USE),.P PL.` | 00000990: 20 4C 44 59 20 2A 5A 57 CE 70 20 20 52 54 D3 80 | LDY *ZW.p RT..| 000009A0: 20 20 BB 90 20 20 BB 00 21 20 3B 2A 2A 2A 20 47 | .. ..! ;*** G| 000009B0: 52 41 46 49 4B 20 4C 4F 45 53 43 48 45 4E 20 2A |RAFIK LOESCHEN *| 000009C0: 2A AA 10 21 20 BB 20 21 47 43 4C 45 41 52 20 4C |*..! . !GCLEAR L| 000009D0: 44 41 20 23 48 2C 47 52 41 50 C8 30 21 20 53 54 |DA #H,GRAP.0! ST| 000009E0: 41 20 55 53 45 2B B1 40 21 20 4C 44 59 20 23 4C |A USE+.@! LDY #L| 000009F0: 2C 47 52 41 50 C8 50 21 20 53 54 59 20 55 53 C5 |,GRAP.P! STY US.| 00000A00: 60 21 20 4C 44 58 20 23 24 32 B0 70 21 20 54 59 |`! LDX #$2.p! TY| 00000A10: C1 80 21 47 43 31 20 53 54 41 20 28 55 53 45 29 |..!GC1 STA (USE)| 00000A20: 2C D9 90 21 20 49 4E D9 00 22 20 42 4E 45 20 47 |,..! IN.." BNE G| 00000A30: 43 B1 10 22 20 49 4E 43 20 2A 55 53 45 2B B1 20 |C.." INC *USE+. | 00000A40: 22 20 44 45 D8 30 22 20 42 4E 45 20 47 43 B1 40 |" DE.0" BNE GC.@| 00000A50: 22 20 4A 4D 50 20 53 43 4F 4C B1 50 22 20 BB 60 |" JMP SCOL.P" .`| 00000A60: 22 20 BB 70 22 20 3B 2A 2A 2A 20 50 55 4E 4B 54 |" .p" ;*** PUNKT| 00000A70: 46 41 52 42 45 20 44 45 46 49 4E 49 45 52 45 4E |FARBE DEFINIEREN| 00000A80: 20 2A 2A AA 80 22 20 BB 90 22 50 43 4F 4C 4F 52 | **.." .."PCOLOR| 00000A90: 20 4A 53 52 20 43 48 4B 47 45 D4 00 23 20 53 54 | JSR CHKGE..# ST| 00000AA0: 58 20 43 4F 4C 4F D2 10 23 20 52 54 D3 20 23 20 |X COLO..# RT. # | 00000AB0: BB 30 23 20 BB 40 23 20 3B 2A 2A 2A 20 46 41 52 |.0# .@# ;*** FAR| 00000AC0: 42 45 20 53 45 54 5A 45 4E 20 2A 2A AA 50 23 20 |BE SETZEN **.P# | 00000AD0: BB 60 23 53 43 4F 4C 4F 52 20 20 20 20 20 4A 53 |.`#SCOLOR JS| 00000AE0: 52 20 43 48 4B 47 45 D4 70 23 20 53 54 58 20 43 |R CHKGE.p# STX C| 00000AF0: 4F 4C 4F D2 80 23 53 43 4F 4C 31 20 4C 44 58 20 |OLO..#SCOL1 LDX | 00000B00: 23 B3 90 23 20 4C 44 41 20 23 48 2C 56 49 44 45 |#..# LDA #H,VIDE| 00000B10: CF 00 24 20 53 54 41 20 2A 55 53 45 2B B1 10 24 |..$ STA *USE+..$| 00000B20: 20 4C 44 59 20 23 4C 2C 56 49 44 45 CF 20 24 20 | LDY #L,VIDE. $ | 00000B30: 53 54 59 20 2A 55 53 C5 30 24 20 53 54 59 20 2A |STY *US.0$ STY *| 00000B40: 46 4C C7 40 24 20 4C 44 41 20 43 4F 4C 4F D2 50 |FL.@$ LDA COLO.P| 00000B50: 24 47 4D 39 20 53 54 41 20 28 55 53 45 29 2C D9 |$GM9 STA (USE),.| 00000B60: 60 24 20 49 4E D9 70 24 20 43 50 59 20 2A 46 4C |`$ IN.p$ CPY *FL| 00000B70: C7 80 24 20 42 4E 45 20 47 4D B9 90 24 20 49 4E |..$ BNE GM..$ IN| 00000B80: 43 20 2A 55 53 45 2B B1 00 25 20 44 45 D8 10 25 |C *USE+..% DE..%| 00000B90: 20 42 45 51 20 47 4D 39 AE 20 25 20 42 50 4C 20 | BEQ GM9. % BPL | 00000BA0: 47 4D B9 30 25 20 52 54 D3 40 25 47 4D 39 2E 20 |GM.0% RT.@%GM9. | 00000BB0: 4C 44 58 20 23 24 45 B8 50 25 20 53 54 58 20 2A |LDX #$E.P% STX *| 00000BC0: 46 4C C7 60 25 20 42 4E 45 20 47 4D B9 70 25 20 |FL.`% BNE GM.p% | 00000BD0: BB 80 25 20 BB 90 25 20 3B 2A 2A 2A 20 56 45 4B |..% ..% ;*** VEK| 00000BE0: 54 4F 52 52 4F 55 54 49 4E 45 4E 20 2A 2A AA 00 |TORROUTINEN **..| 00000BF0: 26 20 BB 10 26 55 4E 54 45 4E 20 4C 44 41 20 2A |& ..&UNTEN LDA *| 00000C00: C1 20 26 20 41 4E 44 20 23 B7 30 26 20 43 4D 50 |. & AND #.0& CMP| 00000C10: 20 23 B7 40 26 20 42 45 51 20 55 4E B1 50 26 20 | #.@& BEQ UN.P& | 00000C20: 53 45 C3 60 26 20 4C 44 41 20 23 B0 70 26 20 42 |SE.`& LDA #.p& B| 00000C30: 43 53 20 55 4E B2 80 26 55 4E 31 20 4C 44 41 20 |CS UN..&UN1 LDA | 00000C40: 23 24 33 B8 90 26 20 49 4E 43 20 2A C2 00 27 55 |#$3..& INC *..'U| 00000C50: 4E 32 20 41 44 43 20 2A C1 10 27 20 53 54 41 20 |N2 ADC *..' STA | 00000C60: 2A C1 20 27 20 4C 44 41 20 23 B0 30 27 20 41 44 |*. ' LDA #.0' AD| 00000C70: 43 20 2A C2 40 27 20 53 54 41 20 2A C2 50 27 20 |C *.@' STA *.P' | 00000C80: 52 54 D3 60 27 20 BB 70 27 55 2F 4F 20 42 4D 49 |RT.`' .p'U/O BMI| 00000C90: 20 55 4E 54 45 CE 80 27 20 BB 90 27 4F 42 45 4E | UNTE..' ..'OBEN| 00000CA0: 20 4C 44 41 20 2A C1 00 28 20 41 4E 44 20 23 B7 | LDA *..( AND #.| 00000CB0: 10 28 20 42 45 51 20 4F 42 B1 20 28 20 43 4C C3 |.( BEQ OB. ( CL.| 00000CC0: 30 28 20 4C 44 41 20 23 24 46 C6 40 28 20 42 43 |0( LDA #$F.@( BC| 00000CD0: 43 20 4F 42 B2 50 28 4F 42 31 20 4C 44 41 20 23 |C OB.P(OB1 LDA #| 00000CE0: 24 43 B7 60 28 20 44 45 43 20 2A C2 70 28 4F 42 |$C.`( DEC *.p(OB| 00000CF0: 32 20 41 44 43 20 2A C1 80 28 20 53 54 41 20 2A |2 ADC *..( STA *| 00000D00: C1 90 28 20 4C 44 41 20 2A C2 00 29 20 53 42 43 |..( LDA *..) SBC| 00000D10: 20 23 B0 10 29 20 53 54 41 20 2A C2 20 29 20 52 | #..) STA *. ) R| 00000D20: 54 D3 30 29 20 BB 40 29 20 BB 50 29 52 45 43 48 |T.0) .@) .P)RECH| 00000D30: 54 53 20 4C 53 52 20 2A 4D 53 CB 60 29 20 42 43 |TS LSR *MS.`) BC| 00000D40: 43 20 52 45 B2 70 29 20 52 4F 52 20 2A 4D 53 CB |C RE.p) ROR *MS.| 00000D50: 80 29 20 4C 44 41 20 2A C1 90 29 20 49 4E D9 00 |.) LDA *..) IN..| 00000D60: 30 20 43 4C C3 10 30 20 41 44 43 20 23 B8 20 30 |0 CL..0 ADC #. 0| 00000D70: 20 53 54 41 20 2A C1 30 30 20 42 43 43 20 52 45 | STA *.00 BCC RE| 00000D80: B2 40 30 20 49 4E 43 20 2A C2 50 30 52 45 32 20 |.@0 INC *.P0RE2 | 00000D90: 52 54 D3 60 30 20 BB 70 30 52 2F 4C 20 42 50 4C |RT.`0 .p0R/L BPL| 00000DA0: 20 52 45 43 48 54 D3 80 30 20 BB 90 30 4C 49 4E | RECHT..0 ..0LIN| 00000DB0: 4B 53 20 41 53 4C 20 2A 4D 53 CB 00 31 20 42 43 |KS ASL *MS..1 BC| 00000DC0: 43 20 4C 49 B1 10 31 20 52 4F 4C 20 2A 4D 53 CB |C LI..1 ROL *MS.| 00000DD0: 20 31 20 4C 44 41 20 2A C1 30 31 20 44 45 D9 40 | 1 LDA *.01 DE.@| 00000DE0: 31 20 53 45 C3 50 31 4C 49 33 20 53 42 43 20 23 |1 SE.P1LI3 SBC #| 00000DF0: B8 60 31 20 53 54 41 20 2A C1 70 31 20 42 43 53 |.`1 STA *.p1 BCS| 00000E00: 20 4C 49 B1 80 31 20 44 45 43 20 2A C2 90 31 4C | LI..1 DEC *..1L| 00000E10: 49 31 20 52 54 D3 00 32 20 BB 10 32 20 BB 20 32 |I1 RT..2 ..2 . 2| 00000E20: 20 3B 2A 2A 2A 20 4C 49 4E 49 45 20 5A 45 49 43 | ;*** LINIE ZEIC| 00000E30: 48 4E 45 4E 20 2A 2A AA 30 32 20 BB 40 32 48 4C |HNEN **.02 .@2HL| 00000E40: 49 4E 45 20 50 48 C1 50 32 20 4C 44 41 20 58 4B |INE PH.P2 LDA XK| 00000E50: C8 60 32 20 4C 53 52 20 C1 70 32 20 4C 44 41 20 |.`2 LSR .p2 LDA | 00000E60: 58 4B CC 80 32 20 52 4F 52 20 C1 90 32 20 4C 53 |XK..2 ROR ..2 LS| 00000E70: 52 20 C1 00 33 20 4C 53 52 20 C1 10 33 20 53 54 |R ..3 LSR ..3 ST| 00000E80: 41 20 2A 5A 57 CE 20 33 20 50 4C C1 30 33 20 50 |A *ZW. 3 PL.03 P| 00000E90: 48 C1 40 33 20 53 45 C3 50 33 20 53 42 43 20 58 |H.@3 SE.P3 SBC X| 00000EA0: 4B CC 60 33 20 50 48 C1 70 33 20 54 58 C1 80 33 |K.`3 PH.p3 TX..3| 00000EB0: 20 53 42 43 20 58 4B C8 90 33 20 53 54 41 20 2A | SBC XK..3 STA *| 00000EC0: 44 49 46 B3 00 34 20 42 43 53 20 4C B3 10 34 20 |DIF..4 BCS L..4 | 00000ED0: 50 4C C1 20 34 20 45 4F 52 20 23 24 46 C6 30 34 |PL. 4 EOR #$F.04| 00000EE0: 20 41 44 43 20 23 B1 40 34 20 50 48 C1 50 34 20 | ADC #.@4 PH.P4 | 00000EF0: 4C 44 41 20 23 B0 60 34 20 53 42 43 20 2A 44 49 |LDA #.`4 SBC *DI| 00000F00: 46 B3 70 34 4C 33 20 53 54 41 20 2A 44 49 46 B1 |F.p4L3 STA *DIF.| 00000F10: 80 34 20 53 54 41 20 2A 44 49 46 B5 90 34 20 50 |.4 STA *DIF..4 P| 00000F20: 4C C1 00 35 20 53 54 41 20 2A 44 49 46 B0 10 35 |L..5 STA *DIF..5| 00000F30: 20 53 54 41 20 2A 44 49 46 B4 20 35 20 50 4C C1 | STA *DIF. 5 PL.| 00000F40: 30 35 20 53 54 41 20 58 4B CC 40 35 20 53 54 58 |05 STA XK.@5 STX| 00000F50: 20 58 4B C8 50 35 20 54 59 C1 60 35 20 43 4C C3 | XK.P5 TY.`5 CL.| 00000F60: 70 35 20 53 42 43 20 59 CB 80 35 20 42 43 43 20 |p5 SBC Y..5 BCC | 00000F70: 4C B4 90 35 20 45 4F 52 20 23 24 46 C6 00 36 20 |L..5 EOR #$F..6 | 00000F80: 20 20 20 20 20 20 20 20 20 20 41 44 43 20 23 24 | ADC #$| 00000F90: 46 C5 10 36 4C 34 20 20 20 20 20 20 20 20 20 53 |F..6L4 S| 00000FA0: 54 41 20 2A 44 49 46 B2 20 36 20 53 54 59 20 59 |TA *DIF. 6 STY Y| 00000FB0: CB 30 36 20 52 4F 52 20 2A 44 49 46 B3 40 36 20 |.06 ROR *DIF.@6 | 00000FC0: 53 45 C3 50 36 20 53 42 43 20 2A 44 49 46 B0 60 |SE.P6 SBC *DIF.`| 00000FD0: 36 20 54 41 D8 70 36 20 20 20 20 20 20 20 20 20 |6 TA.p6 | 00000FE0: 20 20 20 4C 44 41 20 23 24 46 C6 80 36 20 53 42 | LDA #$F..6 SB| 00000FF0: 43 20 2A 44 49 46 B1 90 36 20 53 54 41 20 2A 5A |C *DIF..6 STA *Z| 00001000: C1 00 37 20 4C 44 59 20 2A 5A 57 CE 10 37 20 42 |..7 LDY *ZW..7 B| 00001010: 43 53 20 4C B5 20 37 4C 31 20 41 53 4C 20 C1 30 |CS L. 7L1 ASL .0| 00001020: 37 20 4A 53 52 20 52 2F CC 40 37 20 53 45 C3 50 |7 JSR R/.@7 SE.P| 00001030: 37 4C 35 20 4C 44 41 20 2A 44 49 46 B4 60 37 20 |7L5 LDA *DIF.`7 | 00001040: 41 44 43 20 2A 44 49 46 B2 70 37 20 53 54 41 20 |ADC *DIF.p7 STA | 00001050: 2A 44 49 46 B4 80 37 20 4C 44 41 20 2A 44 49 46 |*DIF..7 LDA *DIF| 00001060: B5 90 37 20 53 42 43 20 23 B0 00 38 4C 32 20 53 |..7 SBC #..8L2 S| 00001070: 54 41 20 2A 44 49 46 B5 10 38 20 53 54 59 20 2A |TA *DIF..8 STY *| 00001080: 5A 57 CE 20 38 20 4A 53 52 20 50 4C D4 30 38 20 |ZW. 8 JSR PL.08 | 00001090: 49 4E D8 40 38 20 42 4E 45 20 4C B6 50 38 20 49 |IN.@8 BNE L.P8 I| 000010A0: 4E 43 20 2A 5A C1 60 38 20 42 4E 45 20 4C B6 70 |NC *Z.`8 BNE L.p| 000010B0: 38 20 52 54 D3 80 38 4C 36 20 4C 44 41 20 2A 44 |8 RT..8L6 LDA *D| 000010C0: 49 46 B3 90 38 20 42 43 53 20 4C B1 00 39 20 4A |IF..8 BCS L..9 J| 000010D0: 53 52 20 55 2F CF 10 39 20 43 4C C3 20 39 20 4C |SR U/..9 CL. 9 L| 000010E0: 44 41 20 2A 44 49 46 B4 30 39 20 41 44 43 20 2A |DA *DIF.09 ADC *| 000010F0: 44 49 46 B0 40 39 20 53 54 41 20 2A 44 49 46 B4 |DIF.@9 STA *DIF.| 00001100: 50 39 20 4C 44 41 20 2A 44 49 46 B5 60 39 20 41 |P9 LDA *DIF.`9 A| 00001110: 44 43 20 2A 44 49 46 B1 70 39 20 42 56 43 20 4C |DC *DIF.p9 BVC L| 00001120: B2 80 39 20 BB 90 39 20 BB 00 40 20 3B 2A 2A 2A |..9 ..9 ..@ ;***| 00001130: 20 47 52 41 46 49 4B 20 4C 41 44 45 4E 20 2A 2A | GRAFIK LADEN **| 00001140: AA 05 40 20 BB 10 40 47 4C 4F 41 44 20 4A 53 52 |..@ ..@GLOAD JSR| 00001150: 20 43 48 4B 43 4F CD 20 40 20 4A 53 52 20 24 45 | CHKCO. @ JSR $E| 00001160: 31 44 B4 30 40 20 4C 44 59 20 23 48 2C 47 52 41 |1D.0@ LDY #H,GRA| 00001170: 50 C8 40 40 20 4C 44 58 20 23 4C 2C 47 52 41 50 |P.@@ LDX #L,GRAP| 00001180: C8 50 40 20 4C 44 41 20 23 B0 60 40 20 20 20 20 |.P@ LDA #.`@ | 00001190: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 46 46 44 | JMP $FFD| 000011A0: B5 70 40 20 BB 80 40 20 BB 90 40 20 3B 2A 2A 2A |.p@ ..@ ..@ ;***| 000011B0: 20 47 52 41 46 49 4B 20 53 50 45 49 43 48 45 52 | GRAFIK SPEICHER| 000011C0: 4E 20 2A 2A AA 00 41 20 BB 10 41 47 53 41 56 45 |N **..A ..AGSAVE| 000011D0: 20 4A 53 52 20 43 48 4B 43 4F CD 20 41 20 4A 53 | JSR CHKCO. A JS| 000011E0: 52 20 24 45 31 44 B4 30 41 20 4C 44 58 20 23 48 |R $E1D.0A LDX #H| 000011F0: 2C 47 52 41 50 48 2B 38 30 30 B0 40 41 20 4C 44 |,GRAPH+800.@A LD| 00001200: 59 20 23 4C 2C 47 52 41 50 48 2B 38 30 30 B0 50 |Y #L,GRAPH+800.P| 00001210: 41 20 4C 44 41 20 23 4C 2C 47 52 41 50 C8 60 41 |A LDA #L,GRAP.`A| 00001220: 20 53 54 41 20 2A 24 46 C4 70 41 20 4C 44 41 20 | STA *$F.pA LDA | 00001230: 23 48 2C 47 52 41 50 C8 80 41 20 53 54 41 20 2A |#H,GRAP..A STA *| 00001240: 24 46 C5 90 41 20 4C 44 41 20 23 24 46 C4 00 42 |$F..A LDA #$F..B| 00001250: 20 4A 4D 50 20 24 46 46 44 B8 10 42 20 BB 20 42 | JMP $FFD..B . B| 00001260: 20 BB 30 42 20 3B 2A 2A 2A 20 48 41 52 44 43 4F | .0B ;*** HARDCO| 00001270: 50 59 20 46 55 45 52 20 4D 50 53 20 38 30 31 20 |PY FUER MPS 801 | 00001280: 2A 2A AA 40 42 20 BB 50 42 48 41 52 44 43 20 4A |**.@B .PBHARDC J| 00001290: 53 52 20 43 48 4B 47 45 D4 60 42 20 53 54 58 20 |SR CHKGE.`B STX | 000012A0: 2A 24 36 B7 70 42 20 4A 53 52 20 24 46 33 30 C6 |*$6.pB JSR $F30.| 000012B0: 80 42 20 4A 53 52 20 24 46 33 31 C6 90 42 20 4C |.B JSR $F31..B L| 000012C0: 44 58 20 2A 24 36 B7 00 43 20 4A 53 52 20 24 46 |DX *$6..C JSR $F| 000012D0: 46 43 B9 10 43 20 4C 44 41 20 23 24 46 C6 20 43 |FC..C LDA #$F. C| 000012E0: 20 53 54 41 20 2A 24 36 B1 30 43 20 4C 44 41 20 | STA *$6.0C LDA | 000012F0: 23 B7 40 43 20 53 54 41 20 2A 55 53 C5 50 43 20 |#.@C STA *US.PC | 00001300: 4C 44 41 20 23 32 B8 60 43 20 53 54 41 20 2A 46 |LDA #2.`C STA *F| 00001310: 4C C7 70 43 20 4C 44 41 20 23 B0 80 43 20 53 54 |L.pC LDA #..C ST| 00001320: 41 20 5A 57 49 D3 90 43 48 41 31 20 4C 44 41 20 |A ZWI..CHA1 LDA | 00001330: 23 34 B0 00 44 20 53 54 41 20 46 4C 47 B2 10 44 |#4..D STA FLG..D| 00001340: 20 4C 44 58 20 23 B4 20 44 48 41 31 2E 20 4C 44 | LDX #. DHA1. LD| 00001350: 41 20 48 41 54 41 42 2C D8 30 44 20 4A 53 52 20 |A HATAB,.0D JSR | 00001360: 24 46 46 44 B2 40 44 20 44 45 D8 50 44 20 42 50 |$FFD.@D DE.PD BP| 00001370: 4C 20 48 41 31 AE 60 44 20 4C 44 41 20 23 B0 70 |L HA1.`D LDA #.p| 00001380: 44 20 53 54 41 20 2A 24 36 B3 80 44 20 53 54 41 |D STA *$6..D STA| 00001390: 20 2A 24 36 B4 90 44 48 41 32 20 4C 44 41 20 5A | *$6..DHA2 LDA Z| 000013A0: 57 49 D3 00 45 20 53 54 41 20 2A 24 36 B5 10 45 |WI..E STA *$6..E| 000013B0: 20 4C 44 41 20 23 B0 20 45 20 53 54 41 20 2A 55 | LDA #. E STA *U| 000013C0: 53 45 2B B1 30 45 48 41 33 20 4C 44 41 20 2A 24 |SE+.0EHA3 LDA *$| 000013D0: 36 B3 40 45 20 4C 44 58 20 2A 24 36 B4 50 45 20 |6.@E LDX *$6.PE | 000013E0: 4C 44 59 20 23 24 36 B5 60 45 20 4A 53 52 20 48 |LDY #$6.`E JSR H| 000013F0: 50 4F 53 CE 70 45 20 4C 44 59 20 23 B0 80 45 20 |POS.pE LDY #..E | 00001400: 4C 44 41 20 28 41 29 2C D9 90 45 20 4C 44 58 20 |LDA (A),..E LDX | 00001410: 2A 55 53 45 2B B1 00 46 20 53 54 41 20 42 55 46 |*USE+..F STA BUF| 00001420: 46 2C D8 10 46 20 49 4E 43 20 2A 24 36 B5 20 46 |F,..F INC *$6. F| 00001430: 20 49 4E D8 30 46 20 53 54 58 20 2A 55 53 45 2B | IN.0F STX *USE+| 00001440: B1 40 46 20 43 50 58 20 2A 55 53 C5 50 46 20 42 |.@F CPX *US.PF B| 00001450: 4E 45 20 48 41 B3 60 46 20 4C 44 41 20 23 B0 70 |NE HA.`F LDA #.p| 00001460: 46 20 4C 44 59 20 23 B7 80 46 48 41 34 20 4C 44 |F LDY #..FHA4 LD| 00001470: 58 20 2A 55 53 C5 90 46 48 41 35 20 41 53 4C 20 |X *US..FHA5 ASL | 00001480: 42 55 46 46 2C D8 00 47 20 52 4F 4C 20 C1 10 47 |BUFF,..G ROL ..G| 00001490: 20 44 45 D8 20 47 20 42 50 4C 20 48 41 B5 30 47 | DE. G BPL HA.0G| 000014A0: 20 41 4E 44 20 2A 24 36 B1 40 47 20 4F 52 41 20 | AND *$6.@G ORA | 000014B0: 23 24 38 B0 50 47 20 4A 53 52 20 24 46 46 44 B2 |#$8.PG JSR $FFD.| 000014C0: 60 47 20 44 45 D9 70 47 20 42 50 4C 20 48 41 B4 |`G DE.pG BPL HA.| 000014D0: 80 47 20 4C 44 41 20 2A 24 36 B3 90 47 20 43 4C |.G LDA *$6..G CL| 000014E0: C3 00 48 20 41 44 43 20 23 B8 10 48 20 53 54 41 |..H ADC #..H STA| 000014F0: 20 2A 24 36 B3 20 48 20 42 43 43 20 48 41 B6 30 | *$6. H BCC HA.0| 00001500: 48 20 49 4E 43 20 2A 24 36 B4 40 48 48 41 36 20 |H INC *$6.@HHA6 | 00001510: 44 45 43 20 46 4C 47 B2 50 48 20 42 4E 45 20 48 |DEC FLG.PH BNE H| 00001520: 41 B2 60 48 20 4C 44 41 20 23 24 30 C4 70 48 20 |A.`H LDA #$0.pH | 00001530: 4A 53 52 20 24 46 46 44 B2 80 48 20 4C 44 41 20 |JSR $FFD..H LDA | 00001540: 5A 57 49 D3 90 48 20 43 4C C3 00 49 20 41 44 43 |ZWI..H CL..I ADC| 00001550: 20 23 B7 10 49 20 53 54 41 20 5A 57 49 D3 20 49 | #..I STA ZWI. I| 00001560: 20 44 45 43 20 2A 46 4C C7 30 49 20 42 45 51 20 | DEC *FL.0I BEQ | 00001570: 48 41 38 AE 40 49 48 41 38 20 4A 4D 50 20 48 41 |HA8.@IHA8 JMP HA| 00001580: B1 50 49 48 41 38 2E 20 4C 44 41 20 23 24 B4 60 |.PIHA8. LDA #$.`| 00001590: 49 20 43 4D 50 20 2A 55 53 C5 70 49 20 42 45 51 |I CMP *US.pI BEQ| 000015A0: 20 48 41 B7 80 49 20 53 54 41 20 2A 55 53 C5 90 | HA..I STA *US..| 000015B0: 49 20 4C 44 41 20 23 B1 00 50 20 53 54 41 20 2A |I LDA #..P STA *| 000015C0: 46 4C C7 10 50 20 4C 44 41 20 23 24 C6 20 50 20 |FL..P LDA #$. P | 000015D0: 53 54 41 20 2A 24 36 B1 30 50 20 42 4E 45 20 48 |STA *$6.0P BNE H| 000015E0: 41 B8 40 50 48 41 37 20 4C 44 41 20 23 31 B5 50 |A.@PHA7 LDA #1.P| 000015F0: 50 20 4A 53 52 20 24 46 46 44 B2 60 50 20 4A 4D |P JSR $FFD.`P JM| 00001600: 50 20 24 46 46 43 C3 70 50 20 BB 80 50 20 BB 90 |P $FFC.pP ..P ..| 00001610: 50 20 3B 2A 2A 2A 20 49 4E 54 45 52 4E 45 20 53 |P ;*** INTERNE S| 00001620: 50 45 49 43 48 45 52 20 2A 2A AA 00 51 20 BB 10 |PEICHER **..Q ..| 00001630: 51 58 4B 4C 20 20 20 20 20 20 20 20 2E 44 53 20 |QXKL .DS | 00001640: B1 20 51 58 4B 48 20 20 20 20 20 20 20 20 2E 44 |. QXKH .D| 00001650: 53 20 B1 30 51 59 4B 20 20 20 20 20 20 20 20 20 |S .0QYK | 00001660: 2E 44 53 20 B1 40 51 43 4F 4C 4F 52 20 20 20 20 |.DS .@QCOLOR | 00001670: 20 20 2E 44 53 20 B1 50 51 53 54 4F 52 45 31 20 | .DS .PQSTORE1 | 00001680: 20 20 20 20 2E 44 53 20 B1 60 51 53 54 4F 52 45 | .DS .`QSTORE| 00001690: 32 20 20 20 20 20 2E 44 53 20 B1 70 51 5A 57 49 |2 .DS .pQZWI| 000016A0: 53 20 20 20 20 20 20 20 2E 44 53 20 B1 80 51 46 |S .DS ..QF| 000016B0: 4C 47 32 20 20 20 20 20 20 20 2E 44 53 20 B1 90 |LG2 .DS ..| 000016C0: 51 42 55 46 46 20 20 20 20 20 20 20 2E 44 53 20 |QBUFF .DS | 000016D0: B8 00 52 20 BB 10 52 20 BB 20 52 20 3B 2A 2A 2A |..R ..R . R ;***| 000016E0: 20 54 41 42 45 4C 4C 45 4E 20 2A 2A AA 30 52 20 | TABELLEN **.0R | 000016F0: BB 40 52 20 3B 20 44 52 55 43 4B 45 52 54 41 42 |.@R ; DRUCKERTAB| 00001700: 45 4C 4C C5 50 52 20 BB 60 52 20 3B 20 4D 49 54 |ELL.PR .`R ; MIT| 00001710: 54 45 4E 5A 45 4E 54 49 45 52 D4 70 52 48 41 54 |TENZENTIER.pRHAT| 00001720: 41 42 20 20 20 20 20 20 2E 42 59 20 38 30 20 30 |AB .BY 80 0| 00001730: 20 31 36 20 32 37 20 B8 80 52 20 BB 90 52 20 3B | 16 27 ..R ..R ;| 00001740: 20 4D 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E 53 | MULTIPLIKATIONS| 00001750: 54 41 42 45 4C 4C C5 00 53 20 BB 10 53 20 3B 28 |TABELL..S ..S ;(| 00001760: 4E 2A 33 32 30 20 46 55 45 52 20 4E 3D 30 20 42 |N*320 FUER N=0 B| 00001770: 49 53 20 4E 3D 32 34 A9 20 53 20 BB 30 53 20 3B |IS N=24. S .0S ;| 00001780: 20 20 20 20 20 20 20 20 48 49 47 48 20 42 59 54 | HIGH BYT| 00001790: 45 D3 40 53 4D 55 4C 2F 48 20 2E 42 59 20 30 20 |E.@SMUL/H .BY 0 | 000017A0: 31 20 32 20 33 20 35 20 36 20 37 20 38 20 31 30 |1 2 3 5 6 7 8 10| 000017B0: 20 31 31 20 31 32 20 31 33 20 31 35 20 31 B6 50 | 11 12 13 15 1.P| 000017C0: 53 20 2E 42 59 20 31 37 20 31 38 20 32 30 20 32 |S .BY 17 18 20 2| 000017D0: 31 20 32 32 20 32 33 20 32 35 20 32 36 20 32 37 |1 22 23 25 26 27| 000017E0: 20 32 38 20 33 30 20 33 B1 60 53 20 BB 70 53 20 | 28 30 3.`S .pS | 000017F0: 3B 20 20 20 20 20 20 20 20 20 4C 4F 57 20 42 59 |; LOW BY| 00001800: 54 45 D3 80 53 20 BB 90 53 4D 55 4C 2F 4C 20 2E |TE..S ..SMUL/L .| 00001810: 42 59 20 24 30 30 20 24 34 30 20 24 38 30 20 24 |BY $00 $40 $80 $| 00001820: 43 B0 00 54 20 BB 10 54 20 3B 20 20 20 20 20 20 |C..T ..T ; | 00001830: 20 4D 41 53 4B 45 4E 54 41 42 45 4C 4C C5 20 54 | MASKENTABELL. T| 00001840: 20 BB 30 54 4D 53 4B 54 41 42 20 2E 42 59 20 31 | .0TMSKTAB .BY 1| 00001850: 20 32 20 34 20 B8 40 54 20 2E 42 59 20 31 36 20 | 2 4 .@T .BY 16 | 00001860: 33 32 20 36 34 20 31 32 B8 50 54 20 2E 45 CE 00 |32 64 12.PT .E..| 00001870: 41 36 39 |A69 |
Z.0IH... .BA 3600.0. .OS@. .P.
;***********************.U. ;**
*.`. ;** HOCH AUFLOESENDES
*.P. ;** GRAFIK - PAKET *... ;**
*... ;******************
*****... ... . .GETBYT .DE $B79E0.CHKCOM
.DE $AEFD@.CHKGET .DE $B7F.P.GETCOR .DE
$B7EB`.QERR .DE $B24.P.V .DE $D00...
... ...OFFX .DE $6...MSK .DE $
AB .DIF0 .DE $6.0.DIF1 .DE $6A@.DIF2 .DE
$6BP.DIF3 .DE $6C`.DIF4 .DE $6DP.DIF5 .
DE $6E..ZWN .DE $6F..ZA .DE $7...A .DE $
AC..B .DE $AC+. .XK .DE $1.0.FLG .DE $9.
@.USE .DE $FDP. .`. .P. ... ...GRAPH .DE
$200...VIDEO .DE $040...GSTART .DE $2.
.GEND .DE $3E0. .@. .P. .`. JMP INITP. J
MP GOFF.. JMP GCLEAR.. JMP SCOLOR.. JMP
PCOLOR.. JMP PLOT . JMP UNPLOT0. JMP SLI
NE@. JMP CLLINEP. JMP GLOAD`. JMP GSAVEP
. JMP HARDC.. ... ... ;*** GRAFIK EINSCH
ALTEN **... . .INIT NOP0. LDA V+1.@. STA
STORE.P. LDA V+2.`. STA STORE.P. LDA #%
0011101... STA V+1... LDA #%0001100... S
TA V+2... LDA #$6. . STA INIT0. RTS@. .P
. .`. ;*** GRAFIK AUSSCHALTEN **.P. ...G
OFF LDA STORE... STA V+1... LDA STORE...
STA V+2. . LDA #$EA0. STA INIT@. JMP $E
54.P. .`. .P. ;*** LOESCHFLAG
PUNKT SETZEN: **... ...UNPLOT
LDX #... .BY $2C.. . . .0. ;*** SETZFLAG
UND KOORDINATEN FUER PUNKTROUTINE **.@.
PLOT LDX #$8.P.PL1 STX *FLG`. JSR CHKCOM
P. JSR TESCOR.. JSR HPOSN.. JMP PLT.. .
.. . . ;*** LOESCHFLAG LINIE **.0. .@.CL
LINE LDX #$0.P. .BY $2C`. .P. ... ;*
** LINIE ZEICHNEN **... ...SLINE LDX #$8
... JSR PL. . JSR CHKCOM0. JSR TESCOR@.
JMP HLINEP. .`. .P. ;*** KOORDINATEN TES
TEN **.U. ...TESCOR JSR GETCOR.. TXA.. T
AY.. LDX *XK+. . CPY #20.0. BCS ILLFF@.
LDA *XKP. CPX #H,32.`. BCC T.P. BNE ILLF
F.. CMP #L,32... BCS ILLFF..T1 RTS..ILLF
F JMP QERR . .0. .@. ;*** ADRESSE ERRECH
NEN **.P. .`.HPOSN STY YKP.
STA XKL.. STX XKH.. STA *XK.. ST
X *XK+... TYA . LSR A0. LSR A@. LSR AP.
TAX`. LDA MUL/H,XP. STA *B.. TXA.. AND #
... TAX.. LDA MUL/L,X . STA *A0. TYA@. A
ND #.P. CLC`. ADC *AP. STA *A.. LDA *XK.
. AND #$F... STA *OFFX.. LDA #H,GRAPH .
ORA *B0. STA *B@. CLCP. LDA *A`. ADC *OF
FXP. STA *A.. LDA *B.. ADC *XK+... STA *
B.. LDA *XK . AND #.0. EOR #.@. TAXP. LD
A MSKTAB,X`. STA *MSKP. RTS.. ... ... ;*
** PUNKT PLOTTEN **...PLT LDY #. . PHP0.
LDA *MSK@. BIT *FLGP. BMI PL.`. EOR #$F
FP. AND (A),Y.. .BY $2C..PL2 ORA
(A),Y.. STA (A),Y.. LDA *A . STA *USE0.
LDA *B@. LSR AP. ROR *USE`. LSR AP. ROR
*USE.. LSR A.. ROR *USE. AND #.. ORA #
. STA *USE+.0 LDA COLOR@ STA (USE),Y
P PLP` LDY *ZWNP RTS. .. ..! ;*** G
RAFIK LOESCHEN **..! . !GCLEAR LDA #H,GR
APH0! STA USE+.@! LDY #L,GRAPHP! STY USE
`! LDX #$2.P! TYA.!GC1 STA (USE),Y.! INY
." BNE GC.." INC *USE+. " DEX0" BNE GC.@
" JMP SCOL.P" .`" .P" ;*** PUNKTFARBE DE
FINIEREN **.." .."PCOLOR JSR CHKGET.# ST
X COLOR.# RTS # .0# .@# ;*** FARBE SETZE
N **.P# .`#SCOLOR JSR CHKGETP# STX C
OLOR.#SCOL1 LDX #..# LDA #H,VIDEO.$ STA
*USE+..$ LDY #L,VIDEO $ STY *USE0$ STY *
FLG@$ LDA COLORP$GM9 STA (USE),Y`$ INYP$
CPY *FLG.$ BNE GM..$ INC *USE+..% DEX.%
BEQ GM9. % BPL GM.0% RTS@%GM9. LDX #$E.
P% STX *FLG`% BNE GM.P% ..% ..% ;*** VEK
TORROUTINEN **..& ..&UNTEN LDA *A & AND
#.0& CMP #.@& BEQ UN.P& SEC`& LDA #.P& B
CS UN..&UN1 LDA #$3..& INC *B.'UN2 ADC *
A.' STA *A ' LDA #.0' ADC *B@' STA *BP'
RTS`' .P'U/O BMI UNTEN.' ..'OBEN LDA *A.
( AND #..( BEQ OB. ( CLC0( LDA #$FF@( BC
C OB.P(OB1 LDA #$C.`( DEC *BP(OB2 ADC *A
.( STA *A.( LDA *B.) SBC #..) STA *B ) R
TS0) .@) .P)RECHTS LSR *MSK`) BCC RE.P)
ROR *MSK.) LDA *A.) INY.0 CLC.0 ADC #. 0
STA *A00 BCC RE.@0 INC *BP0RE2 RTS`0 .P
0R/L BPL RECHTS.0 ..0LINKS ASL *MSK.1 BC
C LI..1 ROL *MSK 1 LDA *A01 DEY@1 SECP1L
I3 SBC #.`1 STA *AP1 BCS LI..1 DEC *B.1L
I1 RTS.2 ..2 . 2 ;*** LINIE ZEICHNEN **.
02 .@2HLINE PHAP2 LDA XKH`2 LSR AP2 LDA
XKL.2 ROR A.2 LSR A.3 LSR A.3 STA *ZWN 3
PLA03 PHA@3 SECP3 SBC XKL`3 PHAP3 TXA.3
SBC XKH.3 STA *DIF..4 BCS L..4 PLA 4 EO
R #$FF04 ADC #.@4 PHAP4 LDA #.`4 SBC *DI
F.P4L3 STA *DIF..4 STA *DIF..4 PLA.5 STA
*DIF..5 STA *DIF. 5 PLA05 STA XKL@5 STX
XKHP5 TYA`5 CLCP5 SBC YK.5 BCC L..5 EOR
#$FF.6 ADC #$FE.6L4 S
TA *DIF. 6 STY YK06 ROR *DIF.@6 SECP6 SB
C *DIF.`6 TAXP6 LDA #$FF.6 SB
C *DIF..6 STA *ZA.7 LDY *ZWN.7 BCS L. 7L
1 ASL A07 JSR R/L@7 SECP7L5 LDA *DIF.`7
ADC *DIF.P7 STA *DIF..7 LDA *DIF..7 SBC
#..8L2 STA *DIF..8 STY *ZWN 8 JSR PLT08
INX@8 BNE L.P8 INC *ZA`8 BNE L.P8 RTS.8L
6 LDA *DIF..8 BCS L..9 JSR U/O.9 CLC 9 L
DA *DIF.09 ADC *DIF.@9 STA *DIF.P9 LDA *
DIF.`9 ADC *DIF.P9 BVC L..9 ..9 ..@ ;***
GRAFIK LADEN **..@ ..@GLOAD JSR CHKCOM
@ JSR $E1D.0@ LDY #H,GRAPH@@ LDX #L,GRAP
HP@ LDA #.`@ JMP $FFD.P@ ..@
..@ ;*** GRAFIK SPEICHERN **..A ..AGSAVE
JSR CHKCOM A JSR $E1D.0A LDX #H,GRAPH+8
00.@A LDY #L,GRAPH+800.PA LDA #L,GRAPH`A
STA *$FDPA LDA #H,GRAPH.A STA *$FE.A LD
A #$FD.B JMP $FFD..B . B .0B ;*** HARDCO
PY FUER MPS 801 **.@B .PBHARDC JSR CHKGE
T`B STX *$6.PB JSR $F30F.B JSR $F31F.B L
DX *$6..C JSR $FFC..C LDA #$FF C STA *$6
.0C LDA #.@C STA *USEPC LDA #2.`C STA *F
LGPC LDA #..C STA ZWIS.CHA1 LDA #4..D ST
A FLG..D LDX #. DHA1. LDA HATAB,X0D JSR
$FFD.@D DEXPD BPL HA1.`D LDA #.PD STA *$
6..D STA *$6..DHA2 LDA ZWIS.E STA *$6..E
LDA #. E STA *USE+.0EHA3 LDA *$6.@E LDX
*$6.PE LDY #$6.`E JSR HPOSNPE LDY #..E
LDA (A),Y.E LDX *USE+..F STA BUFF,X.F IN
C *$6. F INX0F STX *USE+.@F CPX *USEPF B
NE HA.`F LDA #.PF LDY #..FHA4 LDX *USE.F
HA5 ASL BUFF,X.G ROL A.G DEX G BPL HA.0G
AND *$6.@G ORA #$8.PG JSR $FFD.`G DEYPG
BPL HA..G LDA *$6..G CLC.H ADC #..H STA
*$6. H BCC HA.0H INC *$6.@HHA6 DEC FLG.
PH BNE HA.`H LDA #$0DPH JSR $FFD..H LDA
ZWIS.H CLC.I ADC #..I STA ZWIS I DEC *FL
G0I BEQ HA8.@IHA8 JMP HA.PIHA8. LDA #$.`
I CMP *USEPI BEQ HA..I STA *USE.I LDA #.
.P STA *FLG.P LDA #$F P STA *$6.0P BNE H
A.@PHA7 LDA #1.PP JSR $FFD.`P JMP $FFCCP
P ..P ..P ;*** INTERNE SPEICHER **..Q ..
QXKL .DS . QXKH .DS .0QYK
.DS .@QCOLOR .DS .PQSTORE1
.DS .`QSTORE2 .DS .PQZWIS
.DS ..QFLG2 .DS ..QBUFF .DS
..R ..R . R ;*** TABELLEN **.0R .@R ; DR
UCKERTABELLEPR .`R ; MITTENZENTIERTPRHAT
AB .BY 80 0 16 27 ..R ..R ; MULTIPL
IKATIONSTABELLE.S ..S ;(N*320 FUER N=0 B
IS N=24. S .0S ; HIGH BYTES@SMUL/
H .BY 0 1 2 3 5 6 7 8 10 11 12 13 15 1.P
S .BY 17 18 20 21 22 23 25 26 27 28 30 3
.`S .PS ; LOW BYTES.S ..SMUL/L .
BY $00 $40 $80 $C..T ..T ; MASKENT
ABELLE T .0TMSKTAB .BY 1 2 4 .@T .BY 16
32 64 12.PT .EN.A69
> CLICK IMAGE PREVIEW FOR FULL MODAL