home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STMAGAZIN / STMAGAZIN.MSA / HEXER_DE.MOS / DEMO_3 / VERTR_L1.S < prev   
Text File  |  1986-02-06  |  2KB  |  101 lines
  1. ;#######################################
  2. ;#          Die Hexer, Teil 5          #
  3. ;#######################################
  4. ;#               Listing 1             #
  5. ;#       The Exceptions (Gunter)       # 
  6. ;#        35 Farben pro Zeile          #
  7. ;# (c) M&T, ST-Magazin, November 1988  #
  8. ;#######################################
  9. ;
  10. ;
  11. ; Listing 1: Erste Testversion für
  12. ; mehr als 16 Farben pro Zeile 
  13. ; für K-SEKA ab 1.5  Programm
  14. ; von Gunter (6719)
  15. ; auch falls wir uns wiederholen:
  16. ; Das Programm läuft nur in Farbe
  17.  
  18.  
  19. x:
  20. clr.l  -(sp)
  21. move.w #$20,-(sp)
  22. trap   #1
  23. addq.l #6,sp
  24. move.l d0,s_sp
  25.  
  26. move.l #clr,-(sp)    ;Bildschirm loeschen
  27. move.w #9,-(sp)
  28. trap   #1
  29. addq.l #2,sp
  30.  
  31. move.w #$2700,sr    ; keine interrupts bitte !
  32. move.b #02,$ffff820a.w    ; 50 Hz vertical sync .
  33. move.w #$8240,a0    ; $ff8240 = Hintergrundfarbe
  34. move.w (a0),old_back
  35. moveq  #-1,d0        ; Schleifenzaehler
  36.  
  37. loop:            ; das ist die 512 Takzyklenschleife
  38. move.w #$777,(a0)
  39. move.w #$766,(a0)
  40. move.w #$755,(a0)
  41. move.w #$744,(a0)
  42. move.w #$733,(a0)
  43. move.w #$722,(a0)
  44. move.w #$700,(a0)
  45. move.w #$710,(a0)
  46. move.w #$720,(a0)
  47. move.w #$730,(a0)
  48. move.w #$740,(a0)
  49. move.w #$750,(a0)
  50. move.w #$760,(a0)
  51. move.w #$770,(a0)
  52. move.w #$761,(a0)
  53. move.w #$752,(a0)
  54. move.w #$743,(a0)
  55. move.w #$734,(a0)
  56. move.w #$725,(a0)
  57. move.w #$716,(a0)
  58. move.w #$727,(a0)
  59. move.w #$737,(a0)
  60. move.w #$747,(a0)
  61. move.w #$757,(a0)
  62. move.w #$767,(a0)
  63.  
  64. move.w #$577,(a0)
  65. move.w #$566,(a0)
  66. move.w #$555,(a0)
  67. move.w #$544,(a0)
  68. move.w #$533,(a0)
  69. move.w #$522,(a0)
  70. move.w #$500,(a0)
  71. move.w #$510,(a0)
  72. move.w #$520,(a0)
  73. move.w #$530,(a0)
  74. move.w #$540,(a0)
  75. move.w #$550,(a0)
  76. move.w #$560,(a0)
  77. move.w #$570,(a0)
  78. move.w #$561,(a0)
  79. move.w #$552,(a0)
  80.  
  81. nop
  82. nop            ;zum Ausgleich für die 512 Taktzyklen
  83. dbf    d0,loop        ; und von vorne
  84.  
  85. move.w #$2300,sr    ; interrupts erlauben !
  86. move.w old_back,(a0)
  87. move.l s_sp,-(sp)
  88. move.w #$20,-(sp)
  89. trap   #1
  90. addq.l #6,sp
  91.  
  92. ;illegal
  93. clr.w  -(sp)
  94. trap   #1
  95.  
  96.  
  97. s_sp: dc.l 0
  98. old_back: dc.w 0
  99. clr:  dc.b 27,"E",0
  100. even
  101.