home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / blt.s < prev    next >
Text File  |  1995-03-17  |  938b  |  81 lines
  1.     move.l #bitplane1,a2
  2.  
  3. ok:    move.l a2,a1
  4. ok2:    move.l #$40000,a0
  5.     move.w #8,d0
  6.     move.w #32,d1
  7.     jsr blit
  8.     move.w $dff00c,d0
  9.     btst #1,d0
  10.     bne rechts
  11.     btst #0,d0
  12.     bne runter
  13.     btst #9,d0
  14.     bne links
  15.     btst #8,d0
  16.     bne hoch
  17. ok1:    jsr wait
  18.     jmp ok
  19.  
  20. rechts:    
  21.     jsr pause2
  22.     move.l #1,d6
  23.     jsr addieren
  24.     bra ok
  25.  
  26. hoch:
  27.     jsr pause
  28.     move.l #-40,d6
  29.     jsr addieren
  30.     bra ok
  31.  
  32. runter:
  33.     jsr pause
  34.     move.l #40,d6
  35.     jsr addieren
  36.     bra ok
  37.  
  38. links:
  39.     jsr pause2
  40.     move.l #-1,d6
  41.     jsr addieren
  42.     bra ok
  43.  
  44. addieren:
  45.     move.l a2,a1
  46.     move.l #$60000,a0
  47.     move.w #8,d0
  48.     move.w #32,d1
  49.     jsr blit
  50.     add.l d6,a2
  51.     rts
  52.  
  53. pause:    move.l #1000,d0
  54. p1:    dbf d0,p1
  55.     rts
  56.  
  57. pause2:    move.l #5000,d0
  58. p2:    dbf d0,p2
  59.     rts
  60.  
  61. blit:
  62.     jsr waitblt
  63.     move.l a1,bltdpth
  64.     move.l a0,bltapth
  65.     rol.w #6,d1
  66.     add.w d0,d1
  67.     mulu #2,d0
  68.     move.w #40,d3
  69.     sub.w d0,d3
  70.     move.w d3,bltamod
  71.     move.w d3,bltdmod
  72.     move.w #%0000100111110000,bltcon0
  73.     clr.w bltcon1
  74.     move.w d1,bltsize
  75.     rts
  76.  
  77. waitblt:    
  78.     btst #14,$dff002
  79.     bne waitblt
  80.     rts        
  81.