home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / wait.src (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  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.