home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27c.d64
/
wait.src
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
127 lines
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 ;