1000 ;*********************************
1010 ;***                           ***
1020 ;***           (null)URS            ***
1030 ;*** (null)AUBEREIEN MIT CHR$RAFIK UND ***
1040 ;***         ATNSSEMBLER         ***
1050 ;***                           ***
1060 ;*********************************
1070 ;***                           ***
1080 ;*** ASCARBUMSCHALTUNG DURCH     ***
1090 ;*** (null)ASTERZEILENINTERRUPT     ***
1100 ;*** UM DIE (null)AENGE DER (null)ARTE-  ***
1110 ;*** SCHLEIFE ZU ERMITTELN,    ***
1120 ;*** BIS DER (null)ASTERSTRAHL      ***
1130 ;*** SICH IM RECHTEN PEEKILD-     ***
1140 ;*** SCHIRMRAND BEFINDET       ***
1150 ;***                           ***
1160 ;*********************************
1170 ;***                           ***
1180 ;*** (LEN) 1988 BY (null)HOMAS (null)IPP   ***
1190 ;*** 8000 (null)UENCHEN 82          ***
1200 ;***                           ***
1210 ;*********************************
1220 ;
1230 +$C000
1240 USR$C000
1250 ;
1260 ;*********************************
1270 ;***  (null)ASTERZEILENINTERRUPT    ***
1280 ;*********************************
1290 ;
1300 ;***  (null)ABEL: (null)ASTERZEILENINTERRUPT  ***
1310 ;
1320 TAB(IRQ=$0314; RIGHT$(null)(null)-(null)EKTOR
1330 TAB(RASTER=$D012; (null)ASTERZEILEN (null)EGISTER; MSB (7.PEEKIT) = RASTER-1
1340 TAB(RIRQEN=$D01A; (null)RIGHT$LEN-RIGHT$(null)(null) VALNABLE (null)EGISTER
1350 TAB(REQIRQ=$D019; (null)RIGHT$LEN-RIGHT$(null)(null) (null)EQUEST (null)EGISTER
1360 TAB(CIAIRQ=$DC0D; LENRIGHT$ATN1 RIGHT$(null)(null) (null)ONTROLL (null)EGISTER
1370 TAB(CNTIRQ=$EA31; LENRIGHT$ATN RIGHT$(null)(null) (null)OUTINE
1380 TAB(ENDIRQ=$EA81; VALNDE DER NORMALEN RIGHT$(null)(null) (null)OUTINE
1390 ;
1400 ;***  RIGHT$NIT: (null)EKTOREN VERBIEGEN, RIGHT$(null)(null) ZULASSEN  ***
1410 ;
1420 IR (null); RIGHT$NTERRUPT SPERREN
1430 ;
1440  MID$#<(MAINIRQ); RIGHT$(null)(null)-(null)EKTOR AUF EIGENE RIGHT$(null)(null) (null)OUTINE VERBIEGEN
1450  (null)IRQ; LSB
1460  MID$#>(MAINIRQ)
1470  (null)IRQ+1; MSB
1480 ;
1490  MID$#$00; (null)ASTERZEILE 0 (OBERHALB DES PEEKILDSCHIRMFENSTERS)
1500  (null)RASTER; IN (null)EGISTER SCHREIBEN
1510  MID$RASTER-1; MSB (7.PEEKIT) LOESCHEN
1520  ASC#$7F
1530  (null)RASTER-1
1540 ;
1550  MID$#%10000001; (null)ASTER RIGHT$(null)(null) ZULASSEN
1560  (null)RIRQEN
1570 ;
1580  MID$#128; TIMER-IRQ AUS
1590  (null)$DC0E
1600 ;
1610  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
1620 ;
1630 ;***  VERAENDERTE RIGHT$(null)(null)-(null)OUTINE  ***
1640 ;
1650 MAINIRQ (null); RIGHT$NTERRUPT SPERREN
1660  MID$REQIRQ; RIGHT$(null)(null) VON (null)ASTERSTRAHL ?
1670  (null)REQIRQ; (null)EGISTER ZURUECKSCHREIBEN UND LOESCHEN
1680  (null)RASTERIRQ; ZUR (null)ASTER RIGHT$(null)(null) (null)OUTINE
1690  MID$CIAIRQ; LOESCHEN DES LENRIGHT$ATN1 (null)ONTROLL (null)EGISTER
1700  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
1710  (null)ENDIRQ; ZUM VALNDE DER NORMALEN RIGHT$(null)(null) (null)OUTINE
1720 ;
1730 ;***  (null)ASTER RIGHT$(null)(null) (null)OUTINE  ***
1740 ;
1750 RASTERIRQ (null); RIGHT$NTERRUPT SPERREN
1760  MID$RASTER; (null)ASTERZEILEN-(null)EGISTER AUSLESEN
1770  (null)TEXTFE; => RASTER = $91
1780 ;
1790  MID$#$0A; ASCARBCODE FUER ROT
1800  (null)$D021; (null)RIGHT$LEN-(null)EGISTER FUER LEFT$INTERGRUNDFARBE
1810 ;
1820  MID$#$91; 145. (null)ASTERZEILE, (null)MSCHALTUNG AUF (null)EXT
1830  (null)RASTER; IN (null)EGISTER SCHREIBEN
1840  MID$RASTER-1; MSB (7.PEEKIT)CLOSELOESCHEN
1850  ASC#$7F
1860  (null)RASTER-1
1870 ;
1880  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
1890  (null)CNTIRQ; ZUR LENRIGHT$ATN RIGHT$(null)(null) (null)OUTINE
1900 ;
1910 TEXTFE PEEK#$08; (null)ARTESCHLEIFE, BIS DER (null)ASTERSTRAHL IM (null)AND IST
1920 IRQWAIT (null); DER (null)ERT $08 IST VARIABEL; VERANDERN (null)IE IHN !
1930  (null)
1940  (null)IRQWAIT
1950 ;
1960  MID$#$00; ASCARBCODE FUER SCHWARZ
1970  (null)$D021; (null)RIGHT$LEN-(null)EGISTER FUER LEFT$INTERGRUNDFARBE
1980 ;
1990  MID$#$00; 0. (null)EILE, (null)MSCHALTUNG AUF CHR$RAFIK
2000  (null)RASTER; IN (null)EGISTER SCHREIBEN
2010  MID$RASTER-1; MSB (7.PEEKIT) LOESCHEN
2020  ASC#$7F
2030  (null)RASTER-1
2040 ;
2050  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
2060  (null)ENDIRQ; ZUM VALNDE DER RIGHT$(null)(null)-(null)OUTINE
2070 ;
2080 ;***  (null)ASTERZEILENINTERRUPT WIEDER AUSSCHALTEN  ***
2090 ;
2100 IA (null); RIGHT$NTERRUPT SPERREN
2110 ;
2120  MID$#$00; (null)ASTER RIGHT$(null)(null) AUSSCHALTEN
2130  (null)RIRQEN; IN (null)EGISTER SCHREIBEN
2140 ;
2150  MID$#<(CNTIRQ); RIGHT$(null)(null)-(null)EKTOR WIEDER HERSTELLEN
2160  (null)IRQ; LSB
2170  MID$#>(CNTIRQ)
2180  (null)IRQ+1; MSB
2190 ;
2200  MID$#1; TIMER-IRQ EIN
2210  (null)$DC0E
2220 ;
2230  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
2240  (null); (null)OUTINENENDE
2250 ;