home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / test.s < prev   
Text File  |  1995-03-17  |  3KB  |  149 lines
  1. ;
  2. ;        Allgemeine Variablen
  3. ;
  4. Excebase  = 4
  5.  
  6. BitPlane1 = $60000
  7. BitPlane2 = $64000
  8. BitPlane3 = $68000
  9. BitPlane4 = $6c000
  10. BitPlane5 = $70000
  11. ; 
  12. ;        Offsets Exec
  13. ;
  14. OldOpenLibrary  = -30 -378
  15. CloseLibrary    = -30 -384
  16. Forbid          = -132
  17. ;
  18. start:
  19.     jsr initlibrarys
  20.      jsr setup
  21.      jsr waitmouse
  22.      jsr restorelibrarys
  23.      illegal
  24.     rts
  25. ; 
  26. setup:
  27. ;     move.l execbase,a6
  28.      jsr forbid(a6)                 ; Multitasking verbieten
  29.  
  30.      move.l d0,gfxbase
  31.      move.l d0,a6
  32.      add.l #$32,d0
  33.      move.l d0,copptr
  34.  
  35.     lea bitmap,a0
  36.     move.l #5,d0
  37.      move.l #640,d1
  38.      move.l #200,d2
  39.      jsr initbitmap(a6)
  40.      lea.l rastport,a1
  41.      jsr initrastport(a6)
  42.      move.l #bitmap,r_bitmap
  43.  
  44.     jsr clrbitmap
  45.     rts
  46. ;
  47. waitmouse:
  48.      andi.b #64,$bfe001             ; Bit 7 linke Mousetaste
  49.      bne waitmouse
  50.      rts
  51. ;
  52. initlibrarys:
  53.      move.l execbase,a6
  54.      lea.l gfxname,a1        ; Graphics - Library
  55.      jsr oldopenlibrary(a6) 
  56.      move.l d0,gfxbase
  57.  
  58.     move.l execbase,a6
  59.      lea.l intname,a1               ; Intuition - Library
  60.      jsr oldopenlibrary(a6)
  61.      move.l d0,a6
  62.      move.l d0,intuitionbase
  63.      rts
  64. ;
  65. restorelibrarys:
  66.      move.l execbase,a6
  67.  
  68.     move.l gfxbase,a1              ; Graphic Library 
  69.      jsr closelibrary(a6)           ; schließen
  70.  
  71.      move.l intuitionbase,a1        ; Intuition Library
  72.      jsr closelibrary(a6)           ; scließen
  73.     rts
  74. ;
  75. clrbitmaps:
  76.      move.l #bitplane1,d0    ; Adresse der BitPlane nach d0
  77.      move.l d0,plane1        ; in Plane1
  78.      move.l d0,a0            ; Adr. Register a0
  79.      move.w d0,lo1           ; und in die Copperliste
  80.      swap d0                 ; Hi-Nibble isolieren und wenn
  81.      move.w d0,hi1           ; nötig auch in die Copperliste
  82.      move.l #16000,d0        ; Sowie 8000 Byets für die
  83.      move.b #00,d1           ; Bitplane reservieren und
  84. cl1:     move.b d1,(a0)+         ; löschen.
  85.      dbf d0,cl1              ;
  86.  
  87.     move.l #BitPlane2,d0
  88.     move.l d0,Plane2
  89.     move.l d0,a0
  90.     move.w d0,lo2
  91.     swap d0
  92.     move.w d0,hi2
  93.     move.l #16000,d0
  94.     move.b #00,d1
  95. cl2:    move.b d1,(a0)+
  96.     dbf d0,cl2
  97.  
  98.     move.l #BitPlane3,d0
  99.     move.l d0,Plane3
  100.     move.l d0,a0
  101.     move.w d0,lo3
  102.     swap d0
  103.     move.w d0,hi3
  104.     move.l #16000,d0
  105.     move.b #00,d1
  106. cl3:    move.b d1,(a0)+
  107.     dbf d0,cl3
  108.  
  109.     move.l #BitPlane4,d0
  110.     move.l d0,Plane4
  111.     move.l d0,a0
  112.     move.w d0,lo4
  113.     swap d0
  114.     move.w d0,hi4
  115.     move.l #16000,d0
  116.     move.b #00,d1
  117. cl4:    move.b d1,(a0)+
  118.     dbf d0,cl4
  119.  
  120.     move.l #BitPlane5,d0
  121.     move.l d0,Plane5
  122.     move.w d0,lo5
  123.     swap d0
  124.     move.w d0,hi5
  125.     move.l #16000,d0
  126.      move.b #00,d1
  127. cl5:    move.b d1,(a0)+
  128.     dbf d0,cl5
  129.     rts
  130. ;
  131. Setcopper:
  132.     move.l copptr,a0        ; Adresse der Copperliste
  133.     move.l (a0),oldcop      ; alte Liste speichern
  134.     move.l #Copper,(a0)     ; neue Liste bereitstellen
  135.     rts
  136. ;
  137. ;        Library - Names & Adr.
  138. ;
  139. gfxname: dc.b "graphics.library",0
  140. align 4
  141. intname: dc.b "intuition.library",0
  142. align 4
  143. gfxbase: dc.l 1,0
  144. intuitionbase: dc.l 1,0
  145. ;
  146. ;        Copper - Liste
  147. ;
  148.  
  149.