7 SYS9*4096
8 .OPT OO
9 *= $7000
10 PTR1 = $F7
11 PTR2 = $F9
12 PTR3 = $FB
13 STO0 = $FD
14 STO1 = $FE
15 STO2 = $FF
16 XK = $55
17 YK = $02
18 F = $03
19 MSK = $04
20 CHKCOM = $AEFD
21 GETCOR = $B7EB
100 ;"*******************************
110 ;"*                             *
120 ;"* BYTE-PAINT ENTWICKELT AM    *
130 ;"*                             *
140 ;"* 25.5.86 VON JESKO SCHWARZER *
150 ;"*                             *
160 ;"* FUER HIRES-MASTER.          *
170 ;"*                             *
180 ;"* TEL.: 02234/62542           *
190 ;"*                             *
200 ;"*******************************
1000 PA[181] JSR GXYK;HOLT ANFANGSKO[176]DINATEN
1010 LDY #$00
1020 LDX #$40;ANFANGSADRESSE(HB) DES ZEICHENSPEICHERS
1030 LDA #$80;HB DER 2. PAGE ($8000)
1040 STY PTR1
1050 STY PTR2
1060 STX PTR1[170]1
1070 STA PTR2[170]1
1080 LDX #$20;GRAFIKSEITE NACH $8000 KOPIEREN
1090 PL0 LDA (PTR1),Y
1100 STA (PTR2),Y
1110 INY
1120 BNE PL0
1130 INC PTR1[170]1
1140 INC PTR2[170]1
1150 DEX
1160 BNE PL0
1170 ;
1180 STY S[164]0;STAPELZEIGER FUER GEMERKTE PUNKTE AUF 0
1190 JSR PADR2;ADRESSE 1. PUNKT
1200 [175] (PTR1),Y;"PUNKT GESETZT ?
1210 BEQ PL1;NEIN, DANN WEITER
1220 RTS;JA, DANN ENDE
1230 ;
1240 PL1 STY STO1;MERRKFLAG LINKS UND
1250 STY STO2;RECHTS ZURUECKSETZEN
1260 ;
1270 PL2 LDA YK;OBERER RAND ERREICHT
1280 BEQ PL3;JA
1290 JSR DYK;NEIN, DANN SCHRITT NACH OBEN
1300 LDA (PTR1),Y;"PUNKT GESETZT ?
1310 [175] MSK
1320 BEQ PL2;NEIN, DANN ANFANG SCHLE[139]E
1330 JSR IYK;AUF [185]ITI[145] UNTER GES. PUNKT
1340 ;
1350 PL3 JSR PADR2;ADRESSE DES PUNKTES UND MASKE BERECHNEN
1360 LDA (PTR1),Y;"GANZES BYTE LEER ?
1370 BEQ PL4;JA,>> PL4
1380 JMP PL24;ZU 'BITWEISE FUELLEN' SPRINGEN
1390 ;
1400 PL4 LDA #$FF;GANZES BYTE(8 PUNKTE)
1410 STA (PTR1),Y;IN $8000 GRAFIK SETZEN
1420 LDA YK;POSITION IN DER MUSTER-MASKE
1430 AND #$0F;BERECHNEN(16*16 BITS)
1440 STA PTR2;(2 REIHEN MIT JE 16 BYTES)
1450 LDA XK
1460 AND #$08
1470 ASL
1480 ADC PTR2
1490 TAX
1500 CLC
1510 LDA PTR1
1520 STA PTR2
1530 LDA PTR1+1
1540 OF1 ADC #$C0;OFFSET ZU $8000 GRAFIK ADDIEREN
1550 STA PTR2+1;HB FUER AKTUELLE GRAFIK
1560 LDA FMSK,X;MASKENBYTE LADEN
1570 STA (PTR2),Y;UND IN AKTUELLE GRAFIK SCHREIBEN
1580 ; LINKE SEITE BEARBEITEN ********
1590 LDA XK+1;KOORDINATE IN LINKER
1600 BNE PL5;"ACHTER SPALTE ?
1610 LDA XK
1620 CMP #$08
1630 BCC PL9;LINKER R[175] ERREICHT
1640 ;
1650 PL5 SEC;NEIN,LINKES BYTE ERRECHNEN
1660 LDA PTR1;V[145] ADRESSE DER PLOT[171][185]ITI[145]
1670 SBC #$08;8 ABZIEHEN(GLEICHE ZEILE,
1680 STA PTR2;ABER LINKE SPALTE) UND
1690 LDA PTR1[170]1;NACH PTR2
1700 SBC #$00
1710 STA PTR2[170]1
1720 LDA (PTR2),Y;LINKS TESTEN
1730 BNE PL7;KEIN LEERES BYTE
1740 LDA S[164]1;"LEERES BYTE, MERKEN ERLAUBT ?
1750 BNE PL9;MERKEN VERBOTEN
1760 INC STO1;MERKEN ERLAUBT,ABER ZUKUENFTIG VERBIETEN
1770 ;
1780 JMP PL7A
1790 ;
1800 ;MERKEN 1. BIT,LINKE SEITE
1810 PL7 LSR
1820 BCS PL8;PUNKT GESETZT
1830 LDA STO1;"MERKEN ERLAUBT ?
1840 BNE PL9;MERKEN VERBOTEN
1850 INC S[164]1;MERKEN ERLAUBT,ABER ZUK. VERBIETEN
1860 ;
1870 PL7A LDX S[164]0;X[178]X[171](X[175]7)[171]1
1880 LDA XK
1890 [175] #$07
1900 STA PTR2
1910 CLC
1920 LDA XK
1930 SBC PTR2
1940 STA XXL,X;LOW[171], HIGH[171]BYTE UND Y[171]
1950 LDA XK[170]1;KO[176]DINATE AUF MERKSTAPEL
1960 SBC #$00;ABLEGEN
1970 STA XXH,X
1980 LDA YK
1990 STA YYK,X
2000 CPX #$FF;"SCHON 255 PUNKTE GEMERKT ?
2010 BEQ PL9;JA, DANN ZEIGER AUF FREIEN PLATZ NICHT ERHOEHEN
2020 INC STO0;ZEIGER NAECHSTE POSITION
2030 ;
2040 .BYT $2C;RECHTE SEITE
2050 ;
2060 PL8 STY STO1;MERKEN WIEDER ERLAUBEN
2070 ;
2080 ;RECHTE SEITE BEARBEITEN ********
2090 PL9 LDA XK+1;"RECHTER RAND ERREICHT ?
2100 BEQ PL10;NEIN [177][177] PL10
2110 LDA XK
2120 CMP #[179]312
2130 BCS PL14;JA,NAECHSTE ZEILE BEARBEITEN
2140 ;
2150 PL10 CLC;RECHTES BYTE
2160 LDA PTR1;BYTE RECHTS NEBEN DER
2170 ADC #$08;PLOT[171][185]ITI[145] ERRECHNEN
2180 STA PTR2;(PLOT[171]ADRESSE [170] 8)
2190 LDA PTR1[170]1
2200 ADC #$00
2210 STA PTR2[170]1
2220 LDA (PTR2),Y;"BYTE LEER ?
2230 BNE PL12;KEIN LEERES BYTE,MERKEN WIEDER ERLAUBEN
2240 LDA STO2;"LEERES BYTE, MERKEN ERLAUBT ?
2250 BNE PL14;NEIN, NAECHSTE ZEILE BEARB.
2260 INC S[164]2;MERKEN ZUK. VERBIETEN
2270 ;
2280 JMP PL12A
2290 ;
2300 PL12 ASL;"BYTE NICHT LEER, BIT 8 GESETZT ?
2310 BCS PL13;JA,MERKFLAG ZURUECK(MERKEN ERLAUBEN)
2320 LDA STO2;"MERKEN VERBOTEN ?
2330 BNE PL14;JA
2340 INC S[164]2;MERKEN ZUK. VERBIETEN
2350 ;
2360 PL12A LDX S[164]0;X[178](X[176]7)[170]1
2370 CLC;AUF MERKSTAPEL
2380 LDA XK
2390 [176]A #$07
2400 ADC #$01
2410 STA XXL,X
2420 LDA XK[170]1
2430 ADC #$00
2440 STA XXH,X
2450 LDA YK;AUCH DIE Y[171]KO[176]DINATE
2460 STA YYK,X
2470 CPX #$FF;"SCHON 255 PUNKTE ?
2480 BEQ PL14;JA, NAECHSTE ZEILE
2490 INC STO0;NEIN, NAECHSTER FREIER PLATZ
2500 .BYT $2C;NAECHSTE ZEILE
2510 ;
2520 PL13 STY STO2;MERKEN IM NAECHSTEN DURCHLAUF ERLAUBT
2530 ;
2540 PL14 JSR IYK;Y=Y+1 UND ADRESSE NACH PTR1
2550 LDA YK;SCHON UNTERER
2560 CMP #$C8;"RAND ?
2570 BCS PL16;JA, UNTERER R[175] ERREICHT
2580 LDA (PTR1),Y;"NEIN, BYTE LEER ?
2590 BNE PL18;NEIN, 0-BITS MERKEN
2600 JMP PL4;ZUM SCHLEIFENBEGINN
2610 ;
2620 PL16 DEC STO0;ZEIGT JETZT AUF LETZT GEMERKTEN PUNKT
2630 LDX STO0
2640 CPX #$FF;KEIN PUNKT MEHR, DANN ENDE
2650 BNE PL17
2660 RTS
2670 ;
2680 PL17 LDA XXL,X;KOORDINATEN HOLEN
2690 STA XK
2700 LDA XXH,X
2710 STA XK+1
2720 LDA YYK,X
2730 STA YK
2740 JSR PADR2;ADRESSE UND MASKE ZU DEN KOORDINATEN
2750 AND (PTR1),Y;"PUNKT GESETZT ?
2760 BNE PL16;JA, DANN NAECHSTEN PUNKT HO[195]
2770 ;
2780 JMP PL1;ZUM SCLE[139]ENBEGINN
2790 ;
2791 ;BERECHNET AUS EINEM BYTE,WELCHES
2792 ;SICH IM AKKU BEFINDET, DIE KO[176]DINATEN
2793 ;JEDES BITS UND SPEICHERT DIE KO[176]D.
2794 ;ALLER 0[171]BITS AB
2800 PL18 CMP #$FF;GANZES BYTE VOLL
2810 BEQ PL16;KEINE 0[171]BITS, [128]E
2820 ;
2830 TAX;NICHT LEERES BYTE BEARBEITEN
2840 LDA XK;KO[176]DINATEN AUF DAS 8. BIT DES BYTES
2850 [175] #$F8
2860 STA XK
2870 STY F;MERKFLAG [178] 0(YREG.[178]0!)[MERKEN IM BYTE ERLAUBEN]
2880 PL19 TXA
2890 [175] MSK1,Y;BIT[171][185]ITI[145]EN V[145] LINKS NACH RECHTS
2900 BNE PL23;GESETZTES BIT
2910 LDA F;MERKEN ERLAUBT [153]
2920 BNE PL21;NEIN
2930 INC F;JA, ABER ZUK. NICHT MEHR
2940 TXA;BYTE RETTEN
2950 PHA
2960 LDX S[164]0;STAPELZEIGER
2970 LDA XK;KO[176]DINATEN ABLEGEN
2980 STA XXL,X
2990 LDA XK[170]1
3000 STA XXH,X
3010 LDA YK
3020 STA YYK,X
3030 CPX #$FF;"SCHON 255 PUNKTE ?
3040 BEQ PL20;JA, DANN UEBERGEHEN
3050 INC STO0;MERKZEIGER ERHOEHEN
3060 PL20 PLA;BYTE ZURUECKHOLEN
3070 TAX;UND INS X-REG.
3080 PL21 INC XK;X-KOORDINATE ERHOEHEN
3090 INY;POSITION IM BYTE ERHOEHEN
3100 CPY #$08;"SCHON AM ENDE ?
3110 BCC PL19;NEIN , SCHLE[139]E
3120 ;
3130 LDA XK;X[171]KO[176]DINATE ERNIEDRIGEN
3140 BNE PL22;(UM WIEDER IM RICHTIIGEN
3150 DEC XK[170]1;BYTE ZU SEIN)
3160 PL22 DEC XK
3170 LDY #$00;Y[171]REG WIEDER AUF NULL
3180 JMP PL16;GEMERKTE PUNKTE BEARBEITEN
3190 ;
3200 PL23 LDA #$00;MERKEN DER 0[171]BITS WIEDER ERL.
3210 STA F
3220 BEQ PL21;UNBEDINGT
3230 ;
3240 ; BIT FUEL[195]D [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
3241 ;WIRD ANGESP[138]GEN, WENN ES NICHT
3242 ;MOEGLICH IST, 'BYTEWEISE' 8 PUNKTE
3243 ;AUF EINMAL ZU SETZEN
3244 ;
3250 PL24 STY S[164]1;MERKFLAGS FUER LINKE
3260 STY S[164]2;UND RECHTE SEITE ZURUECK
3270 ;
3280 PL25 JSR PADR2;ADRESSE UND MASKE(IM AKKU !)
3290 [176]A (PTR1),Y;IN $8000 GRAFIK SETZEN
3300 STA (PTR1),Y
3310 CLC;IN AKTUELLER GRAFIK MUSTER PLOTTEN
3320 LDA PTR1;[185]ITI[145] IN MUSTER[171]MASKE
3330 STA PTR2;BERECHNEN
3340 LDA PTR1[170]1
3350 OF2 ADC #$C0;OFFSET V[145] $8000 GRAFIK ZUR AKT.
3360 STA PTR2[170]1
3370 LDA YK
3380 [175] #$0F
3390 STA PTR3
3400 LDA XK
3410 [175] #$08
3420 ASL
3430 [176]A PTR3
3440 TAX
3450 LDA FMSK,X;BYTE AUS DER MUSTER[171]MASKE
3460 [175] MSK;NICHT BENOETIGTE BITS AUSMASKIEREN
3470 [176]A (PTR2),Y;IN ZEICHENGRAFIK SCHREIBEN
3480 STA (PTR2),Y
3490 ;
3500 LDA XK;"XK = 0 ?
3510 ORA XK+1
3520 BEQ PL29;JA, DANN TESTEN LINKS UEBERSPRINGEN
3530 ;TESTEN LINKS ----
3540 LDA MSK;PLOT-MASKE
3550 ASL;NACH LINKS VERSCHIEBEN
3560 BCC PL28;NOCH IM BYTE
3570 ;
3580 LDA PTR1;AUSSERHALB
3590 SBC #$08;BYTEPOSITION NEBEN DEM 'PLOTBYTE'
3600 STA PTR2
3610 LDA PTR1+1
3620 SBC #$00
3630 STA PTR2+1
3640 LDA (PTR2),Y;LADEN
3650 LSR;"1.BIT GESETZT ?
3660 BCS PL27;JA, DANN MERKEN ERLAUBEN
3670 PL26 LDA S[164]1;"NEIN, MERKEN LINKS ERL. ?
3680 BNE PL29;NEIN, UEBERSPRINGEN
3690 INC STO1;JA, ABER JETZT NICHT MEHR
3700 ;
3710 LDX STO0;STAPELZEIGER
3720 SEC;POSITION LINKS SPEICHERN
3730 LDA XK
3740 SBC #$01
3750 STA XXL,X
3760 LDA XK+1
3770 SBC #$00
3780 STA XXH,X
3790 LDA YK
3800 STA YYK,X
3810 CPX #$FF;"SCHON 255 ?
3820 BEQ PL29;JA, ERHOEHEN UEBERSPRINGEN
3830 INC S[164]0;ERHOEHEN
3840 JMP PL29;UND ZUR RECHTEN SEITE
3850 ;
3860 PL28 [175] (PTR1),Y;"BIT GESETZT ?
3870 BEQ PL26;NEIN, DANN ABFRAGE MERKEN ERL. USW
3880 ;
3890 PL27 STY STO1;MERKEN LINKS ERLAUBEN
3900 ;
3910 ;RECHTE SEITE
3920 PL29 LDA XK+1;"X=319 ?
3930 BEQ PL30;NEIN, OK
3940 LDA XK
3950 CMP #[179]319
3960 BCS PL34;JA, DANN RECHTE SEITE BEARB. UEBERSPR.
3970 ;
3980 PL30 LDA MSK;PLOT[171]MASKE
3990 LSR;PIXEL DANEBEN
4000 BCC PL32;NOCH INNERHALB DES BYTES
4010 ;
4020 LDA PTR1;AUSSERHALB, 8 ADDIEREN(C[178]1)
4030 ADC #$07
4040 STA PTR2
4050 LDA PTR1[170]1
4060 ADC #$00
4070 STA PTR2[170]1
4080 LDA (PTR2),Y;BYTE LADEN
4090 ASL;"BIT 8 (PUNKT) GESETZT ?
4100 BCS PL33;JA, MERKEN RECHTS ERLAUBEN
4110 PL31 LDA STO2;"NEIN, LEER. MERKEN ERLAUBT ?
4120 BNE PL34;NEIN, DANN MERKEN UEBERSPRINGEN
4130 INC S[164]2;MERKEN VERBIETEN
4140 ;
4150 LDX S[164]0;STAPELZEIGER
4160 CLC
4170 LDA XK;[185]ITI[145] RECHTS NEBEN
4180 ADC #$01;DEM ZU[136]ZT GEPLOTTETEN
4190 STA XXL,X;PUNKT LADEN UND AUF
4200 LDA XK[170]1;DEM STAPEL ABLEGEN
4210 ADC #$00
4220 STA XXH,X
4230 LDA YK
4240 STA YYK,X
4250 CPX #$FF;"255 ?
4260 BEQ PL34;JA, NICHT ERHOEHEN
4270 INC STO0;NEIN, NAECHSTE FREIE POSITION
4280 JMP PL34;NAECHSTE ZEILE
4290 ;
4300 PL32 AND (PTR1),Y;BIT GESETZT PRINT
4310 BEQ PL31;NEIN, >>PL31
4320 ;
4330 PL33 STY STO2;JA, DANN MERKEN ERL.
4340 ;
4350 PL34 JSR IYK;DOWN ****************
4360 LDA YK
4370 CMP #$C8;"UNTERER RAND ERREICHT ?
4380 BCS PL36;JA,GEMERKTE PUNKTE BEARBEITEN
4390 LDA (PTR1),Y;NEIN,BYTE LADEN
4400 BNE PL35;NICHT LEER,DANN BITWEISE BEARBEITEN
4410 JMP PL1;S[145]ST SCHLE[139]ENBEGINN
4420 ;
4430 PL35 [175] MSK;ENTSPR. BIT GESETZT
4440 BNE PL36;JA,GEMERKTE PUNKTE HO[195]
4450 JMP PL25;NEIN, DANN WEITER BITWEISE FUEL[195]
4460 ;
4470 PL36 JMP PL16;GEMERKTE PUNKTE BEARBEITEN
4780 ;
4790 ;
4800 ;
5000 PADR2 CLC;ADRESSE UND MASKE BERECHNEN
5010 LDX YK;Y[171]KO[176]DINATE INS X[171]REG.
5020 LDA XK;XLOW IN AKKU
5030 [175] #$F8;AUF BEGINN DES BYTES
5040 ADC AADL,X;ZEI[195] BEGINN LOW ADDIEREN
5050 STA PTR1;[178] ADRESSE LOW
5060 LDA XK[170]1;XHIGH LADEN
5070 ADC AADH,X;ZEI[195]ADRESSE HIGH ADDIEREN
5080 STA PTR1[170]1;[178]ADRESSE HIGH
5090 LDA XK;MASKE ERRECHNEN
5100 [175] #$07;XLOW [175] 7 ERGIBT
5110 TAX;7[171]POTENZ ZUR BASIS 2
5120 LDA MSK1,X;AUS TABELLE LADEN
5130 STA MSK;UND NACH MSK
5140 RTS
5150 ;
5160 ;
5170 ;
5200 DYK DEC YK
5210 LDA PTR1
5220 [175] #$07
5230 BEQ DYKL1
5240 DEC PTR1
5250 RTS
5260 DYKL1 SEC
5270 LDA PTR1
5280 SBC #[179]313
5290 STA PTR1
5300 LDA PTR1[170]1
5310 SBC #[177]313
5320 STA PTR1[170]1
5330 RTS
5340 ;
5350 ;
5400 IYK INC YK
5410 LDA PTR1
5420 [175] #$07
5421 CMP #$07
5430 BEQ IYKL1
5440 INC PTR1
5450 RTS
5460 IYKL1 CLC
5470 LDA PTR1
5480 ADC #[179]313
5490 STA PTR1
5500 LDA PTR1[170]1
5510 ADC #[177]313
5520 STA PTR1[170]1
5530 RTS
5540 ;
5550 ;
6000 GXYK JSR CHKCOM
6010 JSR [161]C[176]
6020 LDA $14
6030 LDY $15
6040 STA XK
6050 STY XK[170]1
6060 STX YK
6070 RTS
8000 MSK1 .BYT $80,$40,$20,$10
8010 .BYT $08,$04,$02,$01
8020 ;
8030 FMSK .BYT %11111111;LINKE SEITE
8040 [174]    .BYT %10000000
8050 [174]    .BYT %10000000
8060 [174]    .BYT %10000000
8070 [174]    .BYT %10000000
8080 [174]    .BYT %10000000
8090 [174]    .BYT %10000000
8100 [174]    .BYT %10000000
8110 [174]    .BYT %11111111
8120 [174]    .BYT %10000000
8130 [174]    .BYT %10000000
8140 [174]    .BYT %10000000
8150 [174]    .BYT %10000000
8160 [174]    .BYT %10000000
8170 [174]    .BYT %10000000
8180 [174]    .BYT %10000000
8190 ;
8200 [174]    .BYT %11111111;RECHTE SEITE
8210 [174]    .BYT %10000000
8220 [174]    .BYT %10000000
8230 [174]    .BYT %10000000
8240 [174]    .BYT %10000000
8250 [174]    .BYT %10000000
8260 [174]    .BYT %10000000
8270 [174]    .BYT %10000000
8280 [174]    .BYT %11111111
8290 [174]    .BYT %10000000
8300 [174]    .BYT %10000000
8310 [174]    .BYT %10000000
8320 [174]    .BYT %10000000
8330 [174]    .BYT %10000000
8340 [174]    .BYT %10000000
8350 [174]    .BYT %10000000
8360 ;
8900 XXL [178] $7B00
8910 XXH [178] $7C00
8920 YYK [178] $7D00
8930 ;
8940 AADL [178] $7E00
8950 AADH [178] $7F00
8960 ;
10000 ;[177][177][177] PADR2 [179][179][179]
10010 ;UNTER DIESEM LABEL WIRD DIE ADRESSE
10015 ;IN DER $8000 GRAFIK,
10020 ;DIE ZU XK[173]XK[170]1,YK GEHOERT,ERRECHNET
10030 ;UND IN PTR1[173]PTR1[170]1 ABGELEGT.
10040 ;DIE BITMASKE FUER DEN ENTSPRECH[128]EN
10050 ;PUNKT WIRD NACH MSK GESCHRIEBEN
10060 ;UND BEFINDET SICH NACH ABCHLUSS
10070 ;IM AKKU. DAS CARRY IST ZU DIESEM
10080 ;ZEITPUNKT NICHT GESETZT.
10090 ;
10100 ;[177][177][177] DYK [179][179][179]
10110 ;DIE Y[171]KO[176]DINATE WIRD UM EINS VER[171]
10120 ;MINDERT. DIE ZUGEHOERIGE ADRESSE
10130 ;STEHT IN PTR1
10140 ;
10150 ;[177][177][177] IYK [179][179][179]
10160 ;WIE DYK. JEDOCH WIRD DIE Y[171]KO[176]D.
10170 ;ERHOEHT
10180 ;
11000 ;"BELEGUNG DER ZEROPAGE Z.B.:
11010 ;
11100 ;PTR1 = $F7
11110 ;PTR2 = $F9
11120 ;PTR3 = $FB
11130 ;
11140 ;STO0 = $FD
11150 ;STO1 = $FE
11160 ;STO2 = $FF
11170 ;
11180 ;IN BADH STEHT DAS HIGH-BYTE DES
11190 ;ZEICHENSPEICHERS.Z.B. $40 FUER
11200 ;DIE GRAFIK AB $4000
11210 ;"ACHTUNG: DIE GRAFIK AB $8000
11220 ;DARF NICHT BENUTZT WERDEN, DA
11230 ;SIE VOM PROGRAMM AUS BENOETIGT
11300 ;WIRD.
11310 ;
11320 ;XXL,XXH UND YYK [191]D DIE MERKSTAPEL
11330 ;SIE HABEN EINE LAENGE V[145] JEWEILS
11340 ;256 BYTES (INSGESAMMT 768).
11350 ;SIE DURFEN IM [184]IEN RAM LIEGEN.
11360 ;DA BEI HIRES[171]MASTER BEIM AUFUEHREN
11370 ;DIE RAMS MIT SEI:LDA #$30:STA $01
11380 ;EINGESCHALTET WERDEN, LIEGEN SIE
11390 ;D[176]T UNTER DEN CIAS IM BEREICH AB $D000
11400 ;
11410 ;DIE ROUTINE MIT DEM LABEL 'GXYK'
11420 ;HOLT DIE KO[176]DINATEN UND LEGT
11430 ;SIE IN XK[173]XK[170]1,YK AB.
59999 .[128]:[128]