home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / german / key.s < prev    next >
Text File  |  1995-03-17  |  364b  |  31 lines
  1. holdkey:move.b $bfec01,d0
  2.     move.b #$ff,d1    
  3.     sub.b d0,d1
  4.     ror.b #1,d1
  5.     rts
  6.  
  7. start1:
  8.     jsr holdkey
  9.     cmp.b #$4c,d1
  10.     beq hoch
  11.     cmp.b #$4d,d1
  12.     beq runter
  13.     cmp.b #$4f,d1
  14.     beq links
  15.     cmp.b #$4e,d1
  16.     beq rechts
  17.     jmp start1
  18.  
  19. hoch:
  20.     move.w #$f00,co0
  21.     bra start1
  22. runter:
  23.     move.w #$0f0,co0
  24.     bra start1
  25. links:
  26.     move.w #$00f,co0
  27.     bra start1
  28. rechts:
  29.     move.w #$fff,co0
  30.     bra start1
  31.