home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / listing 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.6 KB  |  2 lines
  1. 29545 TING 3:
  2.  
  3. SEI
  4. LDX  #$00 ;eRSTELLEN
  5. :MAKTABTXA ;EINER
  6. CLC ;fUNKTIONSTABELLE
  7. ADC  #$01 ;FforR
  8. AND  #$07 ;DIE
  9. ORA  #$38 ;sPEICHERSTELLEN
  10. STA  TB11,X ;$D011 UND
  11. TXA ;$D018
  12. ADC  #$01
  13. ASL
  14. ASL
  15. ASL
  16. ASL
  17. ORA  #$08
  18. AND  #$7F
  19. STA  TB18,X
  20. INX
  21. CPX  #200 ;200 rASTERZEILEN ?
  22. BNE  MAKTAB
  23. LDA  #$70 ;LETZTE zEILE KEIN dma
  24. STA  TB11+199 ;UND rESTZEILEN SCHWARZ
  25. LDA  #$08
  26. STA  TB18+199
  27. LDA  #<NEUIRQ ;irq-vEKTOR
  28. LDX  #>NEUIRQ ;VERBIEGEN
  29. STA  $0314
  30. STX  $0315
  31. LDA  #$1B
  32. STA  $D011 ;$D011-INIT
  33. LDA  #$18
  34. STA  $D016 ;mc-EIN
  35. LDA  #$00
  36. STA  $D015 ;sPRITE-rEGISTER LsaveSCHEN
  37. STA  $D020
  38. STA  $D021
  39. STA  $DC0E ;tIMER-sTOP
  40. LDA  #$4C ;NEUEN tIMERWERT FforR DEN
  41. STA  $DC05 ;ERSTEN irq SETZEN
  42. LDA  #$C7-63
  43. STA  $DC04
  44.  
  45. :WAIT1LDA  $D011 ;AUF zEILE $030 WARTEN
  46. BPL  WAIT1
  47.  
  48. :WAIT2LDA  $D011
  49. BMI  WAIT2
  50.  
  51. LDA  #$30
  52. :WAIT3CMP  $D012
  53. BNE  WAIT3
  54.  
  55. LDX  #$11 ;sYNCHRONISATION DES
  56. LDA  #$18 ;tIMERS AUF IMMER DIESELBE
  57. STA  $D011 ;HORIZONTALE pOSITION DURCH
  58. STX  $DC0E ;dma-zYKLEN-aUSGLEICH
  59. LDA  #$3B
  60. STA  $D011
  61. LDA  $DC0D ;irq-fLAG LsaveSCHEN
  62. LDA  $DD00 AND  #$FC
  63. ORA  #$02
  64. STA  $DD00 ;bANK 1 EIN
  65. CLI
  66. RTS
  67.  
  68. :NEUIRQLDA  #$9F ;mAXIMALWERT DER VERGANGENEN
  69. SEC ;zYKLEN VERGLEICHEN
  70. SBC  $DC04
  71. CMP  #$0B
  72. BCC  OK
  73. JMP  SYNCERR;ZUVIELE zYKLEN
  74.  
  75. :OKLSR;HALBIEREN
  76. BCC  ONECYCLE
  77. STA  RESTCYCLE+1
  78.  
  79. :RESTCYCLEBPL  RESTCYCLE ;zEITAUSGLEICH DURCH
  80. NOP ;aNZAHL DER nopS
  81. NOP
  82. NOP
  83. NOP
  84. NOP
  85. NOP
  86. LDA  #$30 ;hIRES DISPLAY
  87. STA  $D011 ;UND 1. dma IN zEILE $030
  88.  
  89. NOP;6 zYKLEN WARTEN
  90. NOP
  91. NOP
  92.  
  93. LDX  #$00 ;eRZEUGUNG
  94. LDA  TB18,X ;VON
  95. STA  $D018 ;200 dma-zEILEN
  96. LDA  TB11,X
  97. STA  $D011
  98. INX
  99. CPX  #200
  100. BNE  HAMLOOP
  101.  
  102. :BACKJMP  $EA31 ;ALTE irq-rOUTINE
  103.  
  104. :SYNCERRLDA  #$4C ;tIMER AUF EXACT
  105. STA  $DC05;EINEN bILDSCHIRM-
  106. LDA  #$C7 ;DURCHLAUF EINSTELLEN
  107. STA  $DC04
  108. JMP  BACK
  109.