home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / wait.src (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  4KB  |  127 lines
  1. 1000 ;*********************************
  2. 1010 ;***                           ***
  3. 1020 ;***           (null)URS            ***
  4. 1030 ;*** (null)AUBEREIEN MIT CHR$RAFIK UND ***
  5. 1040 ;***         ATNSSEMBLER         ***
  6. 1050 ;***                           ***
  7. 1060 ;*********************************
  8. 1070 ;***                           ***
  9. 1080 ;*** ASCARBUMSCHALTUNG DURCH     ***
  10. 1090 ;*** (null)ASTERZEILENINTERRUPT     ***
  11. 1100 ;*** UM DIE (null)AENGE DER (null)ARTE-  ***
  12. 1110 ;*** SCHLEIFE ZU ERMITTELN,    ***
  13. 1120 ;*** BIS DER (null)ASTERSTRAHL      ***
  14. 1130 ;*** SICH IM RECHTEN PEEKILD-     ***
  15. 1140 ;*** SCHIRMRAND BEFINDET       ***
  16. 1150 ;***                           ***
  17. 1160 ;*********************************
  18. 1170 ;***                           ***
  19. 1180 ;*** (LEN) 1988 BY (null)HOMAS (null)IPP   ***
  20. 1190 ;*** 8000 (null)UENCHEN 82          ***
  21. 1200 ;***                           ***
  22. 1210 ;*********************************
  23. 1220 ;
  24. 1230 +$C000
  25. 1240 USR$C000
  26. 1250 ;
  27. 1260 ;*********************************
  28. 1270 ;***  (null)ASTERZEILENINTERRUPT    ***
  29. 1280 ;*********************************
  30. 1290 ;
  31. 1300 ;***  (null)ABEL: (null)ASTERZEILENINTERRUPT  ***
  32. 1310 ;
  33. 1320 TAB(IRQ=$0314; RIGHT$(null)(null)-(null)EKTOR
  34. 1330 TAB(RASTER=$D012; (null)ASTERZEILEN (null)EGISTER; MSB (7.PEEKIT) = RASTER-1
  35. 1340 TAB(RIRQEN=$D01A; (null)RIGHT$LEN-RIGHT$(null)(null) VALNABLE (null)EGISTER
  36. 1350 TAB(REQIRQ=$D019; (null)RIGHT$LEN-RIGHT$(null)(null) (null)EQUEST (null)EGISTER
  37. 1360 TAB(CIAIRQ=$DC0D; LENRIGHT$ATN1 RIGHT$(null)(null) (null)ONTROLL (null)EGISTER
  38. 1370 TAB(CNTIRQ=$EA31; LENRIGHT$ATN RIGHT$(null)(null) (null)OUTINE
  39. 1380 TAB(ENDIRQ=$EA81; VALNDE DER NORMALEN RIGHT$(null)(null) (null)OUTINE
  40. 1390 ;
  41. 1400 ;***  RIGHT$NIT: (null)EKTOREN VERBIEGEN, RIGHT$(null)(null) ZULASSEN  ***
  42. 1410 ;
  43. 1420 IR (null); RIGHT$NTERRUPT SPERREN
  44. 1430 ;
  45. 1440  MID$#<(MAINIRQ); RIGHT$(null)(null)-(null)EKTOR AUF EIGENE RIGHT$(null)(null) (null)OUTINE VERBIEGEN
  46. 1450  (null)IRQ; LSB
  47. 1460  MID$#>(MAINIRQ)
  48. 1470  (null)IRQ+1; MSB
  49. 1480 ;
  50. 1490  MID$#$00; (null)ASTERZEILE 0 (OBERHALB DES PEEKILDSCHIRMFENSTERS)
  51. 1500  (null)RASTER; IN (null)EGISTER SCHREIBEN
  52. 1510  MID$RASTER-1; MSB (7.PEEKIT) LOESCHEN
  53. 1520  ASC#$7F
  54. 1530  (null)RASTER-1
  55. 1540 ;
  56. 1550  MID$#%10000001; (null)ASTER RIGHT$(null)(null) ZULASSEN
  57. 1560  (null)RIRQEN
  58. 1570 ;
  59. 1580  MID$#128; TIMER-IRQ AUS
  60. 1590  (null)$DC0E
  61. 1600 ;
  62. 1610  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
  63. 1620 ;
  64. 1630 ;***  VERAENDERTE RIGHT$(null)(null)-(null)OUTINE  ***
  65. 1640 ;
  66. 1650 MAINIRQ (null); RIGHT$NTERRUPT SPERREN
  67. 1660  MID$REQIRQ; RIGHT$(null)(null) VON (null)ASTERSTRAHL ?
  68. 1670  (null)REQIRQ; (null)EGISTER ZURUECKSCHREIBEN UND LOESCHEN
  69. 1680  (null)RASTERIRQ; ZUR (null)ASTER RIGHT$(null)(null) (null)OUTINE
  70. 1690  MID$CIAIRQ; LOESCHEN DES LENRIGHT$ATN1 (null)ONTROLL (null)EGISTER
  71. 1700  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
  72. 1710  (null)ENDIRQ; ZUM VALNDE DER NORMALEN RIGHT$(null)(null) (null)OUTINE
  73. 1720 ;
  74. 1730 ;***  (null)ASTER RIGHT$(null)(null) (null)OUTINE  ***
  75. 1740 ;
  76. 1750 RASTERIRQ (null); RIGHT$NTERRUPT SPERREN
  77. 1760  MID$RASTER; (null)ASTERZEILEN-(null)EGISTER AUSLESEN
  78. 1770  (null)TEXTFE; => RASTER = $91
  79. 1780 ;
  80. 1790  MID$#$0A; ASCARBCODE FUER ROT
  81. 1800  (null)$D021; (null)RIGHT$LEN-(null)EGISTER FUER LEFT$INTERGRUNDFARBE
  82. 1810 ;
  83. 1820  MID$#$91; 145. (null)ASTERZEILE, (null)MSCHALTUNG AUF (null)EXT
  84. 1830  (null)RASTER; IN (null)EGISTER SCHREIBEN
  85. 1840  MID$RASTER-1; MSB (7.PEEKIT)CLOSELOESCHEN
  86. 1850  ASC#$7F
  87. 1860  (null)RASTER-1
  88. 1870 ;
  89. 1880  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
  90. 1890  (null)CNTIRQ; ZUR LENRIGHT$ATN RIGHT$(null)(null) (null)OUTINE
  91. 1900 ;
  92. 1910 TEXTFE PEEK#$08; (null)ARTESCHLEIFE, BIS DER (null)ASTERSTRAHL IM (null)AND IST
  93. 1920 IRQWAIT (null); DER (null)ERT $08 IST VARIABEL; VERANDERN (null)IE IHN !
  94. 1930  (null)
  95. 1940  (null)IRQWAIT
  96. 1950 ;
  97. 1960  MID$#$00; ASCARBCODE FUER SCHWARZ
  98. 1970  (null)$D021; (null)RIGHT$LEN-(null)EGISTER FUER LEFT$INTERGRUNDFARBE
  99. 1980 ;
  100. 1990  MID$#$00; 0. (null)EILE, (null)MSCHALTUNG AUF CHR$RAFIK
  101. 2000  (null)RASTER; IN (null)EGISTER SCHREIBEN
  102. 2010  MID$RASTER-1; MSB (7.PEEKIT) LOESCHEN
  103. 2020  ASC#$7F
  104. 2030  (null)RASTER-1
  105. 2040 ;
  106. 2050  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
  107. 2060  (null)ENDIRQ; ZUM VALNDE DER RIGHT$(null)(null)-(null)OUTINE
  108. 2070 ;
  109. 2080 ;***  (null)ASTERZEILENINTERRUPT WIEDER AUSSCHALTEN  ***
  110. 2090 ;
  111. 2100 IA (null); RIGHT$NTERRUPT SPERREN
  112. 2110 ;
  113. 2120  MID$#$00; (null)ASTER RIGHT$(null)(null) AUSSCHALTEN
  114. 2130  (null)RIRQEN; IN (null)EGISTER SCHREIBEN
  115. 2140 ;
  116. 2150  MID$#<(CNTIRQ); RIGHT$(null)(null)-(null)EKTOR WIEDER HERSTELLEN
  117. 2160  (null)IRQ; LSB
  118. 2170  MID$#>(CNTIRQ)
  119. 2180  (null)IRQ+1; MSB
  120. 2190 ;
  121. 2200  MID$#1; TIMER-IRQ EIN
  122. 2210  (null)$DC0E
  123. 2220 ;
  124. 2230  (null); RIGHT$NTERRUPT WIEDER ZULASSEN
  125. 2240  (null); (null)OUTINENENDE
  126. 2250 ;
  127.