PLOT
FILE INFORMATION
FILENAME(S): PLOT
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
63d6efe46de9ef75dfe1dfcb03ceb6533ba9466b0081599bffc4e20c94910b4f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | PLOT | PRG | Treasure Chest - Klaus Der Suhler | 24 | 5 | DOWNLOAD FILE |
| 90571 | PLOT | PRG | BrainSkull, Georg Fuchs 1988 | 24 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 1E 2D 00 00 3B 50 4C 4F 54 00 24 2D 01 00 |.-.-..;PLOT.$-..|
00000010: 3B 00 32 2D 02 00 20 2E 42 41 24 36 30 38 38 00 |;.2-.. .BA$6088.|
00000020: 38 2D 03 00 3B 00 60 2D 04 00 20 2E 45 51 4B 4F |8-..;.`-.. .EQKO|
00000030: 4D 4D 41 20 3D 20 24 41 45 46 44 20 20 20 20 3B |MMA = $AEFD ;|
00000040: 4B 4F 4D 4D 41 50 52 55 45 46 55 4E 47 00 8D 2D |KOMMAPRUEFUNG..-|
00000050: 05 00 20 2E 45 51 46 52 4D 45 56 4C 20 3D 20 24 |.. .EQFRMEVL = $|
00000060: 41 44 39 45 20 20 20 3B 41 55 53 44 52 55 43 4B |AD9E ;AUSDRUCK|
00000070: 20 41 55 53 57 45 52 54 45 4E 00 B9 2D 06 00 20 | AUSWERTEN..-.. |
00000080: 2E 45 51 49 4E 54 45 47 45 52 20 3D 20 24 42 31 |.EQINTEGER = $B1|
00000090: 42 46 20 20 3B 5A 41 48 4C 20 4E 41 43 48 20 49 |BF ;ZAHL NACH I|
000000A0: 4E 54 45 47 45 52 00 DE 2D 07 00 20 2E 45 51 42 |NTEGER..-.. .EQB|
000000B0: 59 54 45 20 3D 20 24 42 37 39 45 20 20 20 20 20 |YTE = $B79E |
000000C0: 3B 42 59 54 45 20 48 4F 4C 45 4E 00 08 2E 08 00 |;BYTE HOLEN.....|
000000D0: 20 2E 45 51 58 4C 20 3D 20 24 46 41 20 20 20 20 | .EQXL = $FA |
000000E0: 20 20 20 20 3B 58 2D 4B 4F 4F 52 44 49 4E 41 54 | ;X-KOORDINAT|
000000F0: 45 20 4C 4F 57 00 33 2E 09 00 20 2E 45 51 58 48 |E LOW.3... .EQXH|
00000100: 20 3D 20 24 46 42 20 20 20 20 20 20 20 20 3B 58 | = $FB ;X|
00000110: 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 48 49 47 48 |-KOORDINATE HIGH|
00000120: 00 59 2E 0A 00 20 2E 45 51 59 20 3D 20 24 46 43 |.Y... .EQY = $FC|
00000130: 20 20 20 20 20 20 20 20 20 3B 59 2D 4B 4F 4F 52 | ;Y-KOOR|
00000140: 44 49 4E 41 54 45 00 83 2E 0B 00 20 2E 45 51 4D |DINATE..... .EQM|
00000150: 4F 44 55 53 20 3D 20 24 46 39 20 20 20 20 20 3B |ODUS = $F9 ;|
00000160: 42 49 54 20 35 2C 37 20 52 45 4C 45 56 41 4E 54 |BIT 5,7 RELEVANT|
00000170: 00 89 2E 0C 00 3B 00 B0 2E 0D 00 3B 50 55 4E 4B |.....;.....;PUNK|
00000180: 54 20 53 45 54 5A 45 4E 2F 4C 4F 45 53 43 48 45 |T SETZEN/LOESCHE|
00000190: 4E 2F 49 4E 56 45 52 54 49 45 52 45 4E 00 D7 2E |N/INVERTIEREN...|
000001A0: 0E 00 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..;=============|
000001B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001C0: 3D 3D 3D 3D 00 DD 2E 0F 00 3B 00 FA 2E 10 00 50 |====.....;.....P|
000001D0: 4C 4F 54 31 20 20 4C 44 58 20 59 20 20 20 20 3B |LOT1 LDX Y ;|
000001E0: 59 20 48 4F 4C 45 4E 00 15 2F 11 00 20 43 50 58 |Y HOLEN../.. CPX|
000001F0: 23 32 30 30 20 20 20 20 20 20 20 20 3B 3E 3D 32 |#200 ;>=2|
00000200: 30 30 00 3B 2F 12 00 20 42 43 53 4F 55 54 20 20 |00.;/.. BCSOUT |
00000210: 20 20 20 20 20 20 20 3B 4A 41 2C 20 44 41 4E 4E | ;JA, DANN|
00000220: 20 5A 55 52 55 45 43 4B 00 5C 2F 13 00 20 4C 44 | ZURUECK.\/.. LD|
00000230: 59 58 4C 20 20 20 20 20 20 20 20 20 20 3B 58 2D |YXL ;X-|
00000240: 4C 4F 57 20 48 4F 4C 45 4E 00 7E 2F 14 00 20 4C |LOW HOLEN.~/.. L|
00000250: 44 41 58 48 20 20 20 20 20 20 20 20 20 20 3B 58 |DAXH ;X|
00000260: 2D 48 49 47 48 20 48 4F 4C 45 4E 00 A7 2F 15 00 |-HIGH HOLEN../..|
00000270: 20 42 45 51 50 31 20 20 20 20 20 20 20 20 20 20 | BEQP1 |
00000280: 3B 30 2C 20 44 41 4E 4E 20 58 4C 20 42 45 4C 49 |;0, DANN XL BELI|
00000290: 45 42 49 47 00 C0 2F 16 00 20 43 4D 50 23 30 32 |EBIG../.. CMP#02|
000002A0: 20 20 20 20 20 20 20 20 20 3B 3E 3D 32 00 E6 2F | ;>=2../|
000002B0: 17 00 20 42 43 53 4F 55 54 20 20 20 20 20 20 20 |.. BCSOUT |
000002C0: 20 20 3B 4A 41 2C 20 44 41 4E 4E 20 5A 55 52 55 | ;JA, DANN ZURU|
000002D0: 45 43 4B 00 0D 30 18 00 20 43 50 59 23 36 34 20 |ECK..0.. CPY#64 |
000002E0: 20 20 20 20 20 20 20 20 3B 58 48 20 3D 31 20 55 | ;XH =1 U|
000002F0: 4E 44 20 58 4C 20 3E 3D 36 34 00 33 30 19 00 20 |ND XL >=64.30.. |
00000300: 42 43 53 4F 55 54 20 20 20 20 20 20 20 20 20 3B |BCSOUT ;|
00000310: 4A 41 2C 20 44 41 4E 4E 20 5A 55 52 55 45 43 4B |JA, DANN ZURUECK|
00000320: 00 3F 30 1A 00 50 31 20 20 54 59 41 00 61 30 1B |.?0..P1 TYA.a0.|
00000330: 00 20 41 4E 44 23 24 46 38 20 20 20 20 20 20 20 |. AND#$F8 |
00000340: 20 3B 28 49 4E 54 28 58 2F 38 29 29 2A 38 00 6A | ;(INT(X/8))*8.j|
00000350: 30 1C 00 20 43 4C 43 00 8F 30 1D 00 20 41 44 43 |0.. CLC..0.. ADC|
00000360: 54 41 42 4C 2C 58 20 20 20 20 20 20 3B 2B 41 4E |TABL,X ;+AN|
00000370: 46 41 4E 47 53 41 44 52 45 53 53 45 00 B0 30 1E |FANGSADRESSE..0.|
00000380: 00 20 53 54 41 24 39 45 20 20 20 20 20 20 20 20 |. STA$9E |
00000390: 20 3B 44 45 52 20 44 55 52 43 48 20 59 00 D2 30 | ;DER DURCH Y..0|
000003A0: 1F 00 20 4C 44 41 58 48 20 20 20 20 20 20 20 20 |.. LDAXH |
000003B0: 20 20 3B 46 45 53 54 47 45 4C 45 47 54 45 4E 00 | ;FESTGELEGTEN.|
000003C0: F3 30 20 00 20 41 44 43 54 41 42 48 2C 58 20 20 |.0 . ADCTABH,X |
000003D0: 20 20 20 20 3B 47 52 41 46 49 4B 5A 45 49 4C 45 | ;GRAFIKZEILE|
000003E0: 00 14 31 21 00 20 53 54 41 24 39 46 20 20 20 20 |..1!. STA$9F |
000003F0: 20 20 20 20 20 3B 3D 47 52 41 46 49 4B 42 59 54 | ;=GRAFIKBYT|
00000400: 45 00 3A 31 25 00 20 4C 44 41 42 49 54 53 2C 59 |E.:1%. LDABITS,Y|
00000410: 20 20 20 20 20 20 3B 32 5E 28 49 4E 54 28 58 2F | ;2^(INT(X/|
00000420: 38 29 29 3D 42 49 54 00 5D 31 26 00 20 4C 44 59 |8))=BIT.]1&. LDY|
00000430: 23 30 30 20 20 20 20 20 20 20 20 20 3B 49 4D 20 |#00 ;IM |
00000440: 47 52 41 46 49 4B 42 59 54 45 00 85 31 27 00 20 |GRAFIKBYTE..1'. |
00000450: 42 49 54 4D 4F 44 55 53 20 20 20 20 20 20 20 3B |BITMODUS ;|
00000460: 4D 4F 44 55 53 2D 42 59 54 45 20 50 52 55 45 46 |MODUS-BYTE PRUEF|
00000470: 45 4E 00 AA 31 28 00 20 42 56 53 53 45 54 5A 20 |EN..1(. BVSSETZ |
00000480: 20 20 20 20 20 20 20 3B 42 49 54 20 35 3D 31 2C | ;BIT 5=1,|
00000490: 20 53 45 54 5A 45 4E 00 D3 31 29 00 20 42 4D 49 | SETZEN..1). BMI|
000004A0: 49 4E 56 20 20 20 20 20 20 20 20 20 3B 42 49 54 |INV ;BIT|
000004B0: 20 37 3D 31 2C 49 4E 56 45 52 54 49 45 52 45 4E | 7=1,INVERTIEREN|
000004C0: 00 D9 31 2A 00 3B 00 ED 31 2B 00 3B 50 55 4E 4B |..1*.;..1+.;PUNK|
000004D0: 54 20 4C 4F 45 53 43 48 45 4E 00 01 32 2C 00 3B |T LOESCHEN..2,.;|
000004E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 07 |==============..|
000004F0: 32 2D 00 3B 00 1C 32 2E 00 4C 4F 45 53 43 48 20 |2-.;..2..LOESCH |
00000500: 20 45 4F 52 20 23 24 46 46 00 40 32 2F 00 20 41 | EOR #$FF.@2/. A|
00000510: 4E 44 28 24 39 45 29 2C 59 20 20 20 20 20 3B 42 |ND($9E),Y ;B|
00000520: 49 54 20 41 55 53 42 4C 45 4E 44 45 4E 00 50 32 |IT AUSBLENDEN.P2|
00000530: 30 00 20 53 54 41 28 24 39 45 29 2C 59 00 5D 32 |0. STA($9E),Y.]2|
00000540: 31 00 4F 55 54 20 20 52 54 53 00 63 32 32 00 3B |1.OUT RTS.c22.;|
00000550: 00 75 32 33 00 3B 50 55 4E 4B 54 20 53 45 54 5A |.u23.;PUNKT SETZ|
00000560: 45 4E 00 87 32 34 00 3B 3D 3D 3D 3D 3D 3D 3D 3D |EN..24.;========|
00000570: 3D 3D 3D 3D 00 8D 32 35 00 3B 00 A3 32 36 00 53 |====..25.;..26.S|
00000580: 45 54 5A 20 20 4F 52 41 20 28 24 39 45 29 2C 59 |ETZ ORA ($9E),Y|
00000590: 00 C7 32 37 00 20 53 54 41 28 24 39 45 29 2C 59 |..27. STA($9E),Y|
000005A0: 20 20 20 20 20 3B 42 49 54 20 45 49 4E 42 4C 45 | ;BIT EINBLE|
000005B0: 4E 44 45 4E 00 D0 32 38 00 20 52 54 53 00 D6 32 |NDEN..28. RTS..2|
000005C0: 39 00 3B 00 ED 32 3A 00 3B 50 55 4E 4B 54 20 49 |9.;..2:.;PUNKT I|
000005D0: 4E 56 45 52 54 49 45 52 45 4E 00 04 33 3B 00 3B |NVERTIEREN..3;.;|
000005E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000005F0: 3D 00 19 33 3C 00 49 4E 56 20 20 45 4F 52 20 28 |=..3<.INV EOR (|
00000600: 24 39 45 29 2C 59 00 3B 33 3D 00 20 53 54 41 28 |$9E),Y.;3=. STA(|
00000610: 24 39 45 29 2C 59 20 20 20 20 20 3B 42 49 54 20 |$9E),Y ;BIT |
00000620: 55 4D 44 52 45 48 45 4E 00 44 33 3E 00 20 52 54 |UMDREHEN.D3>. RT|
00000630: 53 00 4A 33 3F 00 3B 00 70 33 40 00 54 41 42 4C |S.J3?.;.p3@.TABL|
00000640: 20 20 2E 42 59 20 24 30 30 2C 24 30 31 2C 24 30 | .BY $00,$01,$0|
00000650: 32 2C 24 30 33 2C 24 30 34 2C 24 30 35 00 94 33 |2,$03,$04,$05..3|
00000660: 41 00 20 2E 42 59 24 30 36 2C 24 30 37 2C 24 34 |A. .BY$06,$07,$4|
00000670: 30 2C 24 34 31 2C 24 34 32 2C 24 34 33 2C 24 34 |0,$41,$42,$43,$4|
00000680: 34 00 B8 33 42 00 20 2E 42 59 24 34 35 2C 24 34 |4..3B. .BY$45,$4|
00000690: 36 2C 24 34 37 2C 24 38 30 2C 24 38 31 2C 24 38 |6,$47,$80,$81,$8|
000006A0: 32 2C 24 38 33 00 DC 33 43 00 20 2E 42 59 24 38 |2,$83..3C. .BY$8|
000006B0: 34 2C 24 38 35 2C 24 38 36 2C 24 38 37 2C 24 43 |4,$85,$86,$87,$C|
000006C0: 30 2C 24 43 31 2C 24 43 32 00 F8 33 44 00 20 2E |0,$C1,$C2..3D. .|
000006D0: 42 59 24 43 33 2C 24 43 34 2C 24 43 35 2C 24 43 |BY$C3,$C4,$C5,$C|
000006E0: 36 2C 24 43 37 00 18 34 48 00 20 2E 42 59 24 30 |6,$C7..4H. .BY$0|
000006F0: 30 2C 24 30 31 2C 24 30 32 2C 24 30 33 2C 24 30 |0,$01,$02,$03,$0|
00000700: 34 2C 24 30 35 00 3C 34 49 00 20 2E 42 59 24 30 |4,$05.<4I. .BY$0|
00000710: 36 2C 24 30 37 2C 24 34 30 2C 24 34 31 2C 24 34 |6,$07,$40,$41,$4|
00000720: 32 2C 24 34 33 2C 24 34 34 00 60 34 4A 00 20 2E |2,$43,$44.`4J. .|
00000730: 42 59 24 34 35 2C 24 34 36 2C 24 34 37 2C 24 38 |BY$45,$46,$47,$8|
00000740: 30 2C 24 38 31 2C 24 38 32 2C 24 38 33 00 84 34 |0,$81,$82,$83..4|
00000750: 4B 00 20 2E 42 59 24 38 34 2C 24 38 35 2C 24 38 |K. .BY$84,$85,$8|
00000760: 36 2C 24 38 37 2C 24 43 30 2C 24 43 31 2C 24 43 |6,$87,$C0,$C1,$C|
00000770: 32 00 A0 34 4C 00 20 2E 42 59 24 43 33 2C 24 43 |2..4L. .BY$C3,$C|
00000780: 34 2C 24 43 35 2C 24 43 36 2C 24 43 37 00 C0 34 |4,$C5,$C6,$C7..4|
00000790: 4D 00 20 2E 42 59 24 30 30 2C 24 30 31 2C 24 30 |M. .BY$00,$01,$0|
000007A0: 32 2C 24 30 33 2C 24 30 34 2C 24 30 35 00 E4 34 |2,$03,$04,$05..4|
000007B0: 4E 00 20 2E 42 59 24 30 36 2C 24 30 37 2C 24 34 |N. .BY$06,$07,$4|
000007C0: 30 2C 24 34 31 2C 24 34 32 2C 24 34 33 2C 24 34 |0,$41,$42,$43,$4|
000007D0: 34 00 08 35 4F 00 20 2E 42 59 24 34 35 2C 24 34 |4..5O. .BY$45,$4|
000007E0: 36 2C 24 34 37 2C 24 38 30 2C 24 38 31 2C 24 38 |6,$47,$80,$81,$8|
000007F0: 32 2C 24 38 33 00 2C 35 50 00 20 2E 42 59 24 38 |2,$83.,5P. .BY$8|
00000800: 34 2C 24 38 35 2C 24 38 36 2C 24 38 37 2C 24 43 |4,$85,$86,$87,$C|
00000810: 30 2C 24 43 31 2C 24 43 32 00 48 35 51 00 20 2E |0,$C1,$C2.H5Q. .|
00000820: 42 59 24 43 33 2C 24 43 34 2C 24 43 35 2C 24 43 |BY$C3,$C4,$C5,$C|
00000830: 36 2C 24 43 37 00 68 35 52 00 20 2E 42 59 24 30 |6,$C7.h5R. .BY$0|
00000840: 30 2C 24 30 31 2C 24 30 32 2C 24 30 33 2C 24 30 |0,$01,$02,$03,$0|
00000850: 34 2C 24 30 35 00 8C 35 53 00 20 2E 42 59 24 30 |4,$05..5S. .BY$0|
00000860: 36 2C 24 30 37 2C 24 34 30 2C 24 34 31 2C 24 34 |6,$07,$40,$41,$4|
00000870: 32 2C 24 34 33 2C 24 34 34 00 B0 35 54 00 20 2E |2,$43,$44..5T. .|
00000880: 42 59 24 34 35 2C 24 34 36 2C 24 34 37 2C 24 38 |BY$45,$46,$47,$8|
00000890: 30 2C 24 38 31 2C 24 38 32 2C 24 38 33 00 D4 35 |0,$81,$82,$83..5|
000008A0: 55 00 20 2E 42 59 24 38 34 2C 24 38 35 2C 24 38 |U. .BY$84,$85,$8|
000008B0: 36 2C 24 38 37 2C 24 43 30 2C 24 43 31 2C 24 43 |6,$87,$C0,$C1,$C|
000008C0: 32 00 F0 35 56 00 20 2E 42 59 24 43 33 2C 24 43 |2..5V. .BY$C3,$C|
000008D0: 34 2C 24 43 35 2C 24 43 36 2C 24 43 37 00 10 36 |4,$C5,$C6,$C7..6|
000008E0: 57 00 20 2E 42 59 24 30 30 2C 24 30 31 2C 24 30 |W. .BY$00,$01,$0|
000008F0: 32 2C 24 30 33 2C 24 30 34 2C 24 30 35 00 34 36 |2,$03,$04,$05.46|
00000900: 58 00 20 2E 42 59 24 30 36 2C 24 30 37 2C 24 34 |X. .BY$06,$07,$4|
00000910: 30 2C 24 34 31 2C 24 34 32 2C 24 34 33 2C 24 34 |0,$41,$42,$43,$4|
00000920: 34 00 58 36 59 00 20 2E 42 59 24 34 35 2C 24 34 |4.X6Y. .BY$45,$4|
00000930: 36 2C 24 34 37 2C 24 38 30 2C 24 38 31 2C 24 38 |6,$47,$80,$81,$8|
00000940: 32 2C 24 38 33 00 7C 36 5A 00 20 2E 42 59 24 38 |2,$83.|6Z. .BY$8|
00000950: 34 2C 24 38 35 2C 24 38 36 2C 24 38 37 2C 24 43 |4,$85,$86,$87,$C|
00000960: 30 2C 24 43 31 2C 24 43 32 00 98 36 5B 00 20 2E |0,$C1,$C2..6[. .|
00000970: 42 59 24 43 33 2C 24 43 34 2C 24 43 35 2C 24 43 |BY$C3,$C4,$C5,$C|
00000980: 36 2C 24 43 37 00 B8 36 5C 00 20 2E 42 59 24 30 |6,$C7..6\. .BY$0|
00000990: 30 2C 24 30 31 2C 24 30 32 2C 24 30 33 2C 24 30 |0,$01,$02,$03,$0|
000009A0: 34 2C 24 30 35 00 DC 36 5D 00 20 2E 42 59 24 30 |4,$05..6]. .BY$0|
000009B0: 36 2C 24 30 37 2C 24 34 30 2C 24 34 31 2C 24 34 |6,$07,$40,$41,$4|
000009C0: 32 2C 24 34 33 2C 24 34 34 00 00 37 5E 00 20 2E |2,$43,$44..7^. .|
000009D0: 42 59 24 34 35 2C 24 34 36 2C 24 34 37 2C 24 38 |BY$45,$46,$47,$8|
000009E0: 30 2C 24 38 31 2C 24 38 32 2C 24 38 33 00 24 37 |0,$81,$82,$83.$7|
000009F0: 5F 00 20 2E 42 59 24 38 34 2C 24 38 35 2C 24 38 |_. .BY$84,$85,$8|
00000A00: 36 2C 24 38 37 2C 24 43 30 2C 24 43 31 2C 24 43 |6,$87,$C0,$C1,$C|
00000A10: 32 00 40 37 60 00 20 2E 42 59 24 43 33 2C 24 43 |2.@7`. .BY$C3,$C|
00000A20: 34 2C 24 43 35 2C 24 43 36 2C 24 43 37 00 60 37 |4,$C5,$C6,$C7.`7|
00000A30: 61 00 20 2E 42 59 24 30 30 2C 24 30 31 2C 24 30 |a. .BY$00,$01,$0|
00000A40: 32 2C 24 30 33 2C 24 30 34 2C 24 30 35 00 70 37 |2,$03,$04,$05.p7|
00000A50: 62 00 20 2E 42 59 24 30 36 2C 24 30 37 00 76 37 |b. .BY$06,$07.v7|
00000A60: 63 00 3B 00 9C 37 64 00 54 41 42 48 20 20 2E 42 |c.;..7d.TABH .B|
00000A70: 59 20 24 45 30 2C 24 45 30 2C 24 45 30 2C 24 45 |Y $E0,$E0,$E0,$E|
00000A80: 30 2C 24 45 30 2C 24 45 30 00 C0 37 65 00 20 2E |0,$E0,$E0..7e. .|
00000A90: 42 59 24 45 30 2C 24 45 30 2C 24 45 31 2C 24 45 |BY$E0,$E0,$E1,$E|
00000AA0: 31 2C 24 45 31 2C 24 45 31 2C 24 45 31 00 E4 37 |1,$E1,$E1,$E1..7|
00000AB0: 66 00 20 2E 42 59 24 45 31 2C 24 45 31 2C 24 45 |f. .BY$E1,$E1,$E|
00000AC0: 31 2C 24 45 32 2C 24 45 32 2C 24 45 32 2C 24 45 |1,$E2,$E2,$E2,$E|
00000AD0: 32 00 08 38 67 00 20 2E 42 59 24 45 32 2C 24 45 |2..8g. .BY$E2,$E|
00000AE0: 32 2C 24 45 32 2C 24 45 32 2C 24 45 33 2C 24 45 |2,$E2,$E2,$E3,$E|
00000AF0: 33 2C 24 45 33 00 24 38 68 00 20 2E 42 59 24 45 |3,$E3.$8h. .BY$E|
00000B00: 33 2C 24 45 33 2C 24 45 33 2C 24 45 33 2C 24 45 |3,$E3,$E3,$E3,$E|
00000B10: 33 00 44 38 69 00 20 2E 42 59 24 45 35 2C 24 45 |3.D8i. .BY$E5,$E|
00000B20: 35 2C 24 45 35 2C 24 45 35 2C 24 45 35 2C 24 45 |5,$E5,$E5,$E5,$E|
00000B30: 35 00 68 38 6A 00 20 2E 42 59 24 45 35 2C 24 45 |5.h8j. .BY$E5,$E|
00000B40: 35 2C 24 45 36 2C 24 45 36 2C 24 45 36 2C 24 45 |5,$E6,$E6,$E6,$E|
00000B50: 36 2C 24 45 36 00 8C 38 6B 00 20 2E 42 59 24 45 |6,$E6..8k. .BY$E|
00000B60: 36 2C 24 45 36 2C 24 45 36 2C 24 45 37 2C 24 45 |6,$E6,$E6,$E7,$E|
00000B70: 37 2C 24 45 37 2C 24 45 37 00 B0 38 6C 00 20 2E |7,$E7,$E7..8l. .|
00000B80: 42 59 24 45 37 2C 24 45 37 2C 24 45 37 2C 24 45 |BY$E7,$E7,$E7,$E|
00000B90: 37 2C 24 45 38 2C 24 45 38 2C 24 45 38 00 CC 38 |7,$E8,$E8,$E8..8|
00000BA0: 6D 00 20 2E 42 59 24 45 38 2C 24 45 38 2C 24 45 |m. .BY$E8,$E8,$E|
00000BB0: 38 2C 24 45 38 2C 24 45 38 00 EC 38 6E 00 20 2E |8,$E8,$E8..8n. .|
00000BC0: 42 59 24 45 41 2C 24 45 41 2C 24 45 41 2C 24 45 |BY$EA,$EA,$EA,$E|
00000BD0: 41 2C 24 45 41 2C 24 45 41 00 10 39 6F 00 20 2E |A,$EA,$EA..9o. .|
00000BE0: 42 59 24 45 41 2C 24 45 41 2C 24 45 42 2C 24 45 |BY$EA,$EA,$EB,$E|
00000BF0: 42 2C 24 45 42 2C 24 45 42 2C 24 45 42 00 34 39 |B,$EB,$EB,$EB.49|
00000C00: 70 00 20 2E 42 59 24 45 42 2C 24 45 42 2C 24 45 |p. .BY$EB,$EB,$E|
00000C10: 42 2C 24 45 43 2C 24 45 43 2C 24 45 43 2C 24 45 |B,$EC,$EC,$EC,$E|
00000C20: 43 00 58 39 71 00 20 2E 42 59 24 45 43 2C 24 45 |C.X9q. .BY$EC,$E|
00000C30: 43 2C 24 45 43 2C 24 45 43 2C 24 45 44 2C 24 45 |C,$EC,$EC,$ED,$E|
00000C40: 44 2C 24 45 44 00 74 39 72 00 20 2E 42 59 24 45 |D,$ED.t9r. .BY$E|
00000C50: 44 2C 24 45 44 2C 24 45 44 2C 24 45 44 2C 24 45 |D,$ED,$ED,$ED,$E|
00000C60: 44 00 94 39 73 00 20 2E 42 59 24 45 46 2C 24 45 |D..9s. .BY$EF,$E|
00000C70: 46 2C 24 45 46 2C 24 45 46 2C 24 45 46 2C 24 45 |F,$EF,$EF,$EF,$E|
00000C80: 46 00 B8 39 74 00 20 2E 42 59 24 45 46 2C 24 45 |F..9t. .BY$EF,$E|
00000C90: 46 2C 24 46 30 2C 24 46 30 2C 24 46 30 2C 24 46 |F,$F0,$F0,$F0,$F|
00000CA0: 30 2C 24 46 30 00 DC 39 75 00 20 2E 42 59 24 46 |0,$F0..9u. .BY$F|
00000CB0: 30 2C 24 46 30 2C 24 46 30 2C 24 46 31 2C 24 46 |0,$F0,$F0,$F1,$F|
00000CC0: 31 2C 24 46 31 2C 24 46 31 00 00 3A 76 00 20 2E |1,$F1,$F1..:v. .|
00000CD0: 42 59 24 46 31 2C 24 46 31 2C 24 46 31 2C 24 46 |BY$F1,$F1,$F1,$F|
00000CE0: 31 2C 24 46 32 2C 24 46 32 2C 24 46 32 00 1C 3A |1,$F2,$F2,$F2..:|
00000CF0: 77 00 20 2E 42 59 24 46 32 2C 24 46 32 2C 24 46 |w. .BY$F2,$F2,$F|
00000D00: 32 2C 24 46 32 2C 24 46 32 00 3C 3A 78 00 20 2E |2,$F2,$F2.<:x. .|
00000D10: 42 59 24 46 34 2C 24 46 34 2C 24 46 34 2C 24 46 |BY$F4,$F4,$F4,$F|
00000D20: 34 2C 24 46 34 2C 24 46 34 00 60 3A 79 00 20 2E |4,$F4,$F4.`:y. .|
00000D30: 42 59 24 46 34 2C 24 46 34 2C 24 46 35 2C 24 46 |BY$F4,$F4,$F5,$F|
00000D40: 35 2C 24 46 35 2C 24 46 35 2C 24 46 35 00 84 3A |5,$F5,$F5,$F5..:|
00000D50: 7A 00 20 2E 42 59 24 46 35 2C 24 46 35 2C 24 46 |z. .BY$F5,$F5,$F|
00000D60: 35 2C 24 46 36 2C 24 46 36 2C 24 46 36 2C 24 46 |5,$F6,$F6,$F6,$F|
00000D70: 36 00 A8 3A 7B 00 20 2E 42 59 24 46 36 2C 24 46 |6..:{. .BY$F6,$F|
00000D80: 36 2C 24 46 36 2C 24 46 36 2C 24 46 37 2C 24 46 |6,$F6,$F6,$F7,$F|
00000D90: 37 2C 24 46 37 00 C4 3A 7C 00 20 2E 42 59 24 46 |7,$F7..:|. .BY$F|
00000DA0: 37 2C 24 46 37 2C 24 46 37 2C 24 46 37 2C 24 46 |7,$F7,$F7,$F7,$F|
00000DB0: 37 00 E4 3A 7D 00 20 2E 42 59 24 46 39 2C 24 46 |7..:}. .BY$F9,$F|
00000DC0: 39 2C 24 46 39 2C 24 46 39 2C 24 46 39 2C 24 46 |9,$F9,$F9,$F9,$F|
00000DD0: 39 00 08 3B 7E 00 20 2E 42 59 24 46 39 2C 24 46 |9..;~. .BY$F9,$F|
00000DE0: 39 2C 24 46 41 2C 24 46 41 2C 24 46 41 2C 24 46 |9,$FA,$FA,$FA,$F|
00000DF0: 41 2C 24 46 41 00 2C 3B 7F 00 20 2E 42 59 24 46 |A,$FA.,;.. .BY$F|
00000E00: 41 2C 24 46 41 2C 24 46 41 2C 24 46 42 2C 24 46 |A,$FA,$FA,$FB,$F|
00000E10: 42 2C 24 46 42 2C 24 46 42 00 50 3B 80 00 20 2E |B,$FB,$FB.P;.. .|
00000E20: 42 59 24 46 42 2C 24 46 42 2C 24 46 42 2C 24 46 |BY$FB,$FB,$FB,$F|
00000E30: 42 2C 24 46 43 2C 24 46 43 2C 24 46 43 00 6C 3B |B,$FC,$FC,$FC.l;|
00000E40: 81 00 20 2E 42 59 24 46 43 2C 24 46 43 2C 24 46 |.. .BY$FC,$FC,$F|
00000E50: 43 2C 24 46 43 2C 24 46 43 00 8C 3B 82 00 20 2E |C,$FC,$FC..;.. .|
00000E60: 42 59 24 46 45 2C 24 46 45 2C 24 46 45 2C 24 46 |BY$FE,$FE,$FE,$F|
00000E70: 45 2C 24 46 45 2C 24 46 45 00 9C 3B 83 00 20 2E |E,$FE,$FE..;.. .|
00000E80: 42 59 24 46 45 2C 24 46 45 00 A2 3B 8C 00 3B 00 |BY$FE,$FE..;..;.|
00000E90: C5 3B 8D 00 42 49 54 53 20 20 2E 42 59 20 31 32 |.;..BITS .BY 12|
00000EA0: 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 |8,64,32,16,8,4,2|
00000EB0: 2C 31 00 E2 3B 8E 00 20 2E 42 59 31 32 38 2C 36 |,1..;.. .BY128,6|
00000EC0: 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 |4,32,16,8,4,2,1.|
00000ED0: FF 3B 8F 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 |.;.. .BY128,64,3|
00000EE0: 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 1C 3C 90 |2,16,8,4,2,1..<.|
00000EF0: 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 |. .BY128,64,32,1|
00000F00: 36 2C 38 2C 34 2C 32 2C 31 00 39 3C 91 00 20 2E |6,8,4,2,1.9<.. .|
00000F10: 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 |BY128,64,32,16,8|
00000F20: 2C 34 2C 32 2C 31 00 56 3C 92 00 20 2E 42 59 31 |,4,2,1.V<.. .BY1|
00000F30: 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C |28,64,32,16,8,4,|
00000F40: 32 2C 31 00 73 3C 93 00 20 2E 42 59 31 32 38 2C |2,1.s<.. .BY128,|
00000F50: 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 |64,32,16,8,4,2,1|
00000F60: 00 90 3C 94 00 20 2E 42 59 31 32 38 2C 36 34 2C |..<.. .BY128,64,|
00000F70: 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 AD 3C |32,16,8,4,2,1..<|
00000F80: 95 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C |.. .BY128,64,32,|
00000F90: 31 36 2C 38 2C 34 2C 32 2C 31 00 CA 3C 96 00 20 |16,8,4,2,1..<.. |
00000FA0: 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C |.BY128,64,32,16,|
00000FB0: 38 2C 34 2C 32 2C 31 00 E7 3C 97 00 20 2E 42 59 |8,4,2,1..<.. .BY|
00000FC0: 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 |128,64,32,16,8,4|
00000FD0: 2C 32 2C 31 00 04 3D 98 00 20 2E 42 59 31 32 38 |,2,1..=.. .BY128|
00000FE0: 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C |,64,32,16,8,4,2,|
00000FF0: 31 00 21 3D 99 00 20 2E 42 59 31 32 38 2C 36 34 |1.!=.. .BY128,64|
00001000: 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 3E |,32,16,8,4,2,1.>|
00001010: 3D 9A 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 |=.. .BY128,64,32|
00001020: 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 5B 3D 9B 00 |,16,8,4,2,1.[=..|
00001030: 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 | .BY128,64,32,16|
00001040: 2C 38 2C 34 2C 32 2C 31 00 78 3D 9C 00 20 2E 42 |,8,4,2,1.x=.. .B|
00001050: 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C |Y128,64,32,16,8,|
00001060: 34 2C 32 2C 31 00 95 3D 9D 00 20 2E 42 59 31 32 |4,2,1..=.. .BY12|
00001070: 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 |8,64,32,16,8,4,2|
00001080: 2C 31 00 B2 3D 9E 00 20 2E 42 59 31 32 38 2C 36 |,1..=.. .BY128,6|
00001090: 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 |4,32,16,8,4,2,1.|
000010A0: CF 3D 9F 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 |.=.. .BY128,64,3|
000010B0: 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 EC 3D A0 |2,16,8,4,2,1..=.|
000010C0: 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 |. .BY128,64,32,1|
000010D0: 36 2C 38 2C 34 2C 32 2C 31 00 09 3E A1 00 20 2E |6,8,4,2,1..>.. .|
000010E0: 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 |BY128,64,32,16,8|
000010F0: 2C 34 2C 32 2C 31 00 26 3E A2 00 20 2E 42 59 31 |,4,2,1.&>.. .BY1|
00001100: 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C |28,64,32,16,8,4,|
00001110: 32 2C 31 00 43 3E A3 00 20 2E 42 59 31 32 38 2C |2,1.C>.. .BY128,|
00001120: 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 |64,32,16,8,4,2,1|
00001130: 00 60 3E A4 00 20 2E 42 59 31 32 38 2C 36 34 2C |.`>.. .BY128,64,|
00001140: 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 7D 3E |32,16,8,4,2,1.}>|
00001150: A5 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C |.. .BY128,64,32,|
00001160: 31 36 2C 38 2C 34 2C 32 2C 31 00 9A 3E A6 00 20 |16,8,4,2,1..>.. |
00001170: 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C |.BY128,64,32,16,|
00001180: 38 2C 34 2C 32 2C 31 00 B7 3E A7 00 20 2E 42 59 |8,4,2,1..>.. .BY|
00001190: 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 |128,64,32,16,8,4|
000011A0: 2C 32 2C 31 00 D4 3E A8 00 20 2E 42 59 31 32 38 |,2,1..>.. .BY128|
000011B0: 2C 36 34 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C |,64,32,16,8,4,2,|
000011C0: 31 00 F1 3E A9 00 20 2E 42 59 31 32 38 2C 36 34 |1..>.. .BY128,64|
000011D0: 2C 33 32 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 0E |,32,16,8,4,2,1..|
000011E0: 3F AA 00 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 |?.. .BY128,64,32|
000011F0: 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 2B 3F AB 00 |,16,8,4,2,1.+?..|
00001200: 20 2E 42 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 | .BY128,64,32,16|
00001210: 2C 38 2C 34 2C 32 2C 31 00 48 3F AC 00 20 2E 42 |,8,4,2,1.H?.. .B|
00001220: 59 31 32 38 2C 36 34 2C 33 32 2C 31 36 2C 38 2C |Y128,64,32,16,8,|
00001230: 34 2C 32 2C 31 00 4E 3F F2 00 3B 00 65 3F F3 00 |4,2,1.N?..;.e?..|
00001240: 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 48 4F 4C |;KOORDINATEN HOL|
00001250: 45 4E 00 7C 3F F4 00 3B 3D 3D 3D 3D 3D 3D 3D 3D |EN.|?..;========|
00001260: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 82 3F F5 00 3B 00 |=========..?..;.|
00001270: A9 3F F6 00 4B 4F 4F 52 20 20 4A 53 52 20 46 52 |.?..KOOR JSR FR|
00001280: 4D 45 56 4C 20 20 20 3B 41 55 53 44 52 55 43 4B |MEVL ;AUSDRUCK|
00001290: 20 48 4F 4C 45 4E 00 D0 3F F7 00 20 4A 53 52 49 | HOLEN..?.. JSRI|
000012A0: 4E 54 45 47 45 52 20 20 20 20 20 20 20 20 3B 58 |NTEGER ;X|
000012B0: 20 4E 41 43 48 20 49 4E 54 45 47 45 52 00 DC 3F | NACH INTEGER..?|
000012C0: F8 00 20 4C 44 41 24 36 35 00 FA 3F F9 00 20 53 |.. LDA$65..?.. S|
000012D0: 54 41 58 4C 20 20 20 20 20 20 20 20 20 20 20 20 |TAXL |
000012E0: 20 3B 58 2D 4C 4F 57 00 06 40 FA 00 20 4C 44 41 | ;X-LOW..@.. LDA|
000012F0: 24 36 34 00 25 40 FB 00 20 53 54 41 58 48 20 20 |$64.%@.. STAXH |
00001300: 20 20 20 20 20 20 20 20 20 20 20 3B 58 2D 48 49 | ;X-HI|
00001310: 47 48 00 33 40 FC 00 20 4A 53 52 4B 4F 4D 4D 41 |GH.3@.. JSRKOMMA|
00001320: 00 56 40 FD 00 20 4A 53 52 42 59 54 45 20 20 20 |.V@.. JSRBYTE |
00001330: 20 20 20 20 20 20 20 20 3B 42 59 54 45 20 48 4F | ;BYTE HO|
00001340: 4C 45 4E 00 7B 40 FE 00 20 53 54 58 59 20 20 20 |LEN.{@.. STXY |
00001350: 20 20 20 20 20 20 20 20 20 20 20 3B 59 2D 4B 4F | ;Y-KO|
00001360: 4F 52 44 49 4E 41 54 45 00 89 40 FF 00 20 4A 53 |ORDINATE..@.. JS|
00001370: 52 4B 4F 4D 4D 41 00 AC 40 00 01 20 4A 53 52 42 |RKOMMA..@.. JSRB|
00001380: 59 54 45 20 20 20 20 20 20 20 20 20 20 20 3B 42 |YTE ;B|
00001390: 59 54 45 20 48 4F 4C 45 4E 00 CA 40 01 01 20 53 |YTE HOLEN..@.. S|
000013A0: 54 58 4D 4F 44 55 53 20 20 20 20 20 20 20 20 20 |TXMODUS |
000013B0: 20 3B 4D 4F 44 55 53 00 D3 40 02 01 20 52 54 53 | ;MODUS..@.. RTS|
000013C0: 00 D9 40 03 01 3B 00 ED 40 04 01 50 4C 4F 54 20 |..@..;..@..PLOT |
000013D0: 20 4A 53 52 20 4B 4F 4D 4D 41 00 11 41 05 01 20 | JSR KOMMA..A.. |
000013E0: 4A 53 52 4B 4F 4F 52 20 20 20 20 20 20 20 20 20 |JSRKOOR |
000013F0: 20 20 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 00 2F | ;KOORDINATEN./|
00001400: 41 06 01 20 53 45 49 20 20 20 20 20 20 20 20 20 |A.. SEI |
00001410: 20 20 20 20 20 20 3B 48 4F 4C 45 4E 00 4F 41 07 | ;HOLEN.OA.|
00001420: 01 20 4C 44 41 23 35 32 20 20 20 20 20 20 20 20 |. LDA#52 |
00001430: 20 20 20 20 3B 41 55 46 20 52 41 4D 00 70 41 08 | ;AUF RAM.pA.|
00001440: 01 20 53 54 41 24 30 31 20 20 20 20 20 20 20 20 |. STA$01 |
00001450: 20 20 20 20 3B 53 43 48 41 4C 54 45 4E 00 90 41 | ;SCHALTEN..A|
00001460: 09 01 20 4A 53 52 50 4C 4F 54 31 20 20 20 20 20 |.. JSRPLOT1 |
00001470: 20 20 20 20 20 3B 50 55 4E 4B 54 45 4E 00 B0 41 | ;PUNKTEN..A|
00001480: 0A 01 20 4C 44 41 23 35 35 20 20 20 20 20 20 20 |.. LDA#55 |
00001490: 20 20 20 20 20 3B 41 55 46 20 52 4F 4D 00 D1 41 | ;AUF ROM..A|
000014A0: 0B 01 20 53 54 41 24 30 31 20 20 20 20 20 20 20 |.. STA$01 |
000014B0: 20 20 20 20 20 3B 53 43 48 41 4C 54 45 4E 00 DA | ;SCHALTEN..|
000014C0: 41 0C 01 20 43 4C 49 00 E3 41 0D 01 20 52 54 53 |A.. CLI..A.. RTS|
000014D0: 00 E9 41 0E 01 3B 00 00 00 |..A..;... |
.-.-..;PLOT.$-..;.2-.. .BA$6088.8-..;.`-
.. .EQKOMMA = $AEFD ;KOMMAPRUEFUNG..-
.. .EQFRMEVL = $AD9E ;AUSDRUCK AUSWERT
EN..-.. .EQINTEGER = $B1BF ;ZAHL NACH I
NTEGER..-.. .EQBYTE = $B79E ;BYTE HO
LEN..... .EQXL = $FA ;X-KOORDINAT
E LOW.3... .EQXH = $FB ;X-KOORDIN
ATE HIGH.Y... .EQY = $FC ;Y-KOOR
DINATE..... .EQMODUS = $F9 ;BIT 5,7
RELEVANT.....;.....;PUNKT SETZEN/LOESCHE
N/INVERTIEREN.W...;=====================
============.....;.....PLOT1 LDX Y ;
Y HOLEN../.. CPX#200 ;>=200.;/..
BCSOUT ;JA, DANN ZURUECK.\/.. LD
YXL ;X-LOW HOLEN.~/.. LDAXH
;X-HIGH HOLEN../.. BEQP1
;0, DANN XL BELIEBIG../.. CMP#02
;>=2../.. BCSOUT ;JA, DANN ZURU
ECK..0.. CPY#64 ;XH =1 UND XL >=
64.30.. BCSOUT ;JA, DANN ZURUECK
.?0..P1 TYA.A0.. AND#$F8 ;(INT(X
/8))*8.J0.. CLC..0.. ADCTABL,X ;+AN
FANGSADRESSE..0.. STA$9E ;DER DU
RCH Y.R0.. LDAXH ;FESTGELEGTEN.
.0 . ADCTABH,X ;GRAFIKZEILE..1!. ST
A$9F ;=GRAFIKBYTE.:1%. LDABITS,Y
;2^(INT(X/8))=BIT.]1&. LDY#00
;IM GRAFIKBYTE..1'. BITMODUS ;
MODUS-BYTE PRUEFEN..1(. BVSSETZ ;
BIT 5=1, SETZEN.S1). BMIINV ;BIT
7=1,INVERTIEREN.Y1*.;..1+.;PUNKT LOESCH
EN..2,.;==============..2-.;..2..LOESCH
EOR #$FF.@2/. AND($9E),Y ;BIT AUSBL
ENDEN.P20. STA($9E),Y.]21.OUT RTS.C22.;
.U23.;PUNKT SETZEN..24.;============..25
.;..26.SETZ ORA ($9E),Y.G27. STA($9E),Y
;BIT EINBLENDEN.P28. RTS.V29.;..2:.
;PUNKT INVERTIEREN..3;.;================
=..3<.INV EOR ($9E),Y.;3=. STA($9E),Y
;BIT UMDREHEN.D3>. RTS.J3?.;.P3@.TABL
.BY $00,$01,$02,$03,$04,$05..3A. .BY$0
6,$07,$40,$41,$42,$43,$44..3B. .BY$45,$4
6,$47,$80,$81,$82,$83..3C. .BY$84,$85,$8
6,$87,$C0,$C1,$C2..3D. .BY$C3,$C4,$C5,$C
6,$C7..4H. .BY$00,$01,$02,$03,$04,$05.<4
I. .BY$06,$07,$40,$41,$42,$43,$44.`4J. .
BY$45,$46,$47,$80,$81,$82,$83..4K. .BY$8
4,$85,$86,$87,$C0,$C1,$C2. 4L. .BY$C3,$C
4,$C5,$C6,$C7..4M. .BY$00,$01,$02,$03,$0
4,$05..4N. .BY$06,$07,$40,$41,$42,$43,$4
4..5O. .BY$45,$46,$47,$80,$81,$82,$83.,5
P. .BY$84,$85,$86,$87,$C0,$C1,$C2.H5Q. .
BY$C3,$C4,$C5,$C6,$C7.H5R. .BY$00,$01,$0
2,$03,$04,$05..5S. .BY$06,$07,$40,$41,$4
2,$43,$44..5T. .BY$45,$46,$47,$80,$81,$8
2,$83.T5U. .BY$84,$85,$86,$87,$C0,$C1,$C
2..5V. .BY$C3,$C4,$C5,$C6,$C7..6W. .BY$0
0,$01,$02,$03,$04,$05.46X. .BY$06,$07,$4
0,$41,$42,$43,$44.X6Y. .BY$45,$46,$47,$8
0,$81,$82,$83.|6Z. .BY$84,$85,$86,$87,$C
0,$C1,$C2..6[. .BY$C3,$C4,$C5,$C6,$C7..6
\. .BY$00,$01,$02,$03,$04,$05..6]. .BY$0
6,$07,$40,$41,$42,$43,$44..7^. .BY$45,$4
6,$47,$80,$81,$82,$83.$7_. .BY$84,$85,$8
6,$87,$C0,$C1,$C2.@7`. .BY$C3,$C4,$C5,$C
6,$C7.`7A. .BY$00,$01,$02,$03,$04,$05.P7
B. .BY$06,$07.V7C.;..7D.TABH .BY $E0,$E
0,$E0,$E0,$E0,$E0..7E. .BY$E0,$E0,$E1,$E
1,$E1,$E1,$E1..7F. .BY$E1,$E1,$E1,$E2,$E
2,$E2,$E2..8G. .BY$E2,$E2,$E2,$E2,$E3,$E
3,$E3.$8H. .BY$E3,$E3,$E3,$E3,$E3.D8I. .
BY$E5,$E5,$E5,$E5,$E5,$E5.H8J. .BY$E5,$E
5,$E6,$E6,$E6,$E6,$E6..8K. .BY$E6,$E6,$E
6,$E7,$E7,$E7,$E7..8L. .BY$E7,$E7,$E7,$E
7,$E8,$E8,$E8.L8M. .BY$E8,$E8,$E8,$E8,$E
8..8N. .BY$EA,$EA,$EA,$EA,$EA,$EA..9O. .
BY$EA,$EA,$EB,$EB,$EB,$EB,$EB.49P. .BY$E
B,$EB,$EB,$EC,$EC,$EC,$EC.X9Q. .BY$EC,$E
C,$EC,$EC,$ED,$ED,$ED.T9R. .BY$ED,$ED,$E
D,$ED,$ED..9S. .BY$EF,$EF,$EF,$EF,$EF,$E
F..9T. .BY$EF,$EF,$F0,$F0,$F0,$F0,$F0..9
U. .BY$F0,$F0,$F0,$F1,$F1,$F1,$F1..:V. .
BY$F1,$F1,$F1,$F1,$F2,$F2,$F2..:W. .BY$F
2,$F2,$F2,$F2,$F2.<:X. .BY$F4,$F4,$F4,$F
4,$F4,$F4.`:Y. .BY$F4,$F4,$F5,$F5,$F5,$F
5,$F5..:Z. .BY$F5,$F5,$F5,$F6,$F6,$F6,$F
6..:{. .BY$F6,$F6,$F6,$F6,$F7,$F7,$F7.D:
|. .BY$F7,$F7,$F7,$F7,$F7..:}. .BY$F9,$F
9,$F9,$F9,$F9,$F9..;~. .BY$F9,$F9,$FA,$F
A,$FA,$FA,$FA.,;. .BY$FA,$FA,$FA,$FB,$F
B,$FB,$FB.P;.. .BY$FB,$FB,$FB,$FB,$FC,$F
C,$FC.L;.. .BY$FC,$FC,$FC,$FC,$FC..;.. .
BY$FE,$FE,$FE,$FE,$FE,$FE..;.. .BY$FE,$F
E..;..;.E;..BITS .BY 128,64,32,16,8,4,2
,1..;.. .BY128,64,32,16,8,4,2,1..;.. .BY
128,64,32,16,8,4,2,1..<.. .BY128,64,32,1
6,8,4,2,1.9<.. .BY128,64,32,16,8,4,2,1.V
<.. .BY128,64,32,16,8,4,2,1.S<.. .BY128,
64,32,16,8,4,2,1..<.. .BY128,64,32,16,8,
4,2,1..<.. .BY128,64,32,16,8,4,2,1.J<..
.BY128,64,32,16,8,4,2,1..<.. .BY128,64,3
2,16,8,4,2,1..=.. .BY128,64,32,16,8,4,2,
1.!=.. .BY128,64,32,16,8,4,2,1.>=.. .BY1
28,64,32,16,8,4,2,1.[=.. .BY128,64,32,16
,8,4,2,1.X=.. .BY128,64,32,16,8,4,2,1..=
.. .BY128,64,32,16,8,4,2,1..=.. .BY128,6
4,32,16,8,4,2,1.O=.. .BY128,64,32,16,8,4
,2,1..= . .BY128,64,32,16,8,4,2,1..>.. .
BY128,64,32,16,8,4,2,1.&>.. .BY128,64,32
,16,8,4,2,1.C>.. .BY128,64,32,16,8,4,2,1
.`>.. .BY128,64,32,16,8,4,2,1.}>.. .BY12
8,64,32,16,8,4,2,1..>.. .BY128,64,32,16,
8,4,2,1..>.. .BY128,64,32,16,8,4,2,1.T>.
. .BY128,64,32,16,8,4,2,1..>.. .BY128,64
,32,16,8,4,2,1..?.. .BY128,64,32,16,8,4,
2,1.+?.. .BY128,64,32,16,8,4,2,1.H?.. .B
Y128,64,32,16,8,4,2,1.N?..;.E?..;KOORDIN
ATEN HOLEN.|?..;=================..?..;.
.?..KOOR JSR FRMEVL ;AUSDRUCK HOLEN.P
?.. JSRINTEGER ;X NACH INTEGER..?
.. LDA$65..?.. STAXL ;X-LOW.
.@.. LDA$64.%@.. STAXH ;X-HI
GH.3@.. JSRKOMMA.V@.. JSRBYTE
;BYTE HOLEN.{@.. STXY ;Y-KO
ORDINATE..@.. JSRKOMMA..@.. JSRBYTE
;BYTE HOLEN.J@.. STXMODUS
;MODUS.S@.. RTS.Y@..;..@..PLOT JSR KOM
MA..A.. JSRKOOR ;KOORDINATEN./
A.. SEI ;HOLEN.OA.. LDA#52
;AUF RAM.PA.. STA$01
;SCHALTEN..A.. JSRPLOT1 ;PU
NKTEN..A.. LDA#55 ;AUF ROM.QA
.. STA$01 ;SCHALTEN.ZA.. CLI.
.A.. RTS..A..;...
> CLICK IMAGE PREVIEW FOR FULL MODAL