home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / robot-pd / 19306.ZIP / 19306B.DSK / #splitt.ras < prev    next >
Text File  |  1998-02-03  |  2KB  |  76 lines
  1. org &4000
  2. nolist
  3.  
  4. XOR A       ; A l|schen => A=0
  5. CALL &BC0E  ; Mode 0
  6.  
  7. LD HL,&C9FB
  8. LD (&38),HL
  9. EI          ; Interrupt abfangen
  10.  
  11. LD BC,&BC02 ; die folgenden OUTs dienen zum Verschieben
  12. OUT (C),C   ; und Strecken des Screens, zum vollen Genuss des Splitrasters!
  13. LD BC,&BD32 ; f}r Bad CRTC &BD31 !
  14. OUT (C),C
  15. LD BC,&BC01
  16. OUT (C),C
  17. LD BC,&BD2F
  18. OUT (C),C
  19.  
  20. frame LD B,&F5
  21. IN A,(C)
  22. RRA
  23. JR NC,frame ; Frame Fly Back
  24.  
  25. HALT
  26. HALT
  27. HALT        ; warten, bis Rasterstrahl im Bild
  28.  
  29. DEFS 30     ; auf Anfang der Zeile warten
  30. LD HL,tab   ; Adresse des Anfangs der Farbtabelle
  31. LD B,10     ; 10 Zeilen sollen gerastert werden
  32.  
  33. splitloop DEFS 3 ; Zeilensynchronisation: warten
  34. LD C,B           ; Schleifenz{hler zwischenspeichern
  35. LD B,&7F         ; Portadresse Gate Array
  36. XOR A            ; A l|schen => A=0
  37. OUT (C),A        ; Ink 0
  38. LD A,(HL)        ; aktuellen Farbwert aus Tabelle lesen
  39. OUT (C),A        ; 1. Farbe ausgeben
  40. INC HL           ; Tabellenzeiger erh|hen
  41. LD A,(HL)
  42. OUT (C),A        ; 2. Farbe ausgeben
  43. INC HL
  44. LD A,(HL)
  45. OUT (C),A        ; 3. Farbe
  46. INC HL
  47. LD A,(HL)
  48. OUT (C),A        ; 4. Farbe
  49. INC HL
  50. LD A,(HL)
  51. OUT (C),A        ; 5. Farbe
  52. INC HL
  53. LD A,(HL)
  54. OUT (C),A        ; 6. Farbe
  55. INC HL
  56. LD B,C           ; Schleifenz{hler zur}ckholen
  57. DJNZ splitloop   ; n{chste der 10 Zeilen
  58. LD B,&7F
  59. LD C,84
  60. OUT (C),C        ; Farbe schwarz (84) ausgeben
  61. JP frame         ; und n{chster Screenaufbau
  62.  
  63. ; Farbtabelle mit 10 x 6 Werten
  64. tab defb 68,69,92,86,68,64
  65.     defb 85,69,76,82,85,84
  66.     defb 85,71,76,82,85,64
  67.     defb 87,71,78,74,87,64
  68.     defb 83,75,74,75,83,75
  69.     defb 83,75,74,75,83,75
  70.     defb 87,71,78,74,87,64
  71.     defb 85,71,76,82,85,64
  72.     defb 85,69,76,82,85,84
  73.     defb 68,69,92,86,68,64
  74.   ; Interrupt abfangen
  75.  
  76. LD BC,&BC0