home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / misc / RemCom.lha / example.asm next >
Encoding:
Assembly Source File  |  1995-04-13  |  467 b   |  19 lines
  1. ;       This is an example to test RemCom
  2. ;       ©1992 By Dalibor S. Kezele
  3.  
  4.  
  5. ; here is the begin of routine
  6.  
  7. start:
  8.         moveq   #0,d0           ; set init
  9. loop:
  10.         addq.b  #1,d0
  11.         move.w  d0,$dff180      ; -> background
  12.         move.w  d0,$dff182      ; -> colour 1
  13. leftmb:
  14.         btst    #6,$bfe001      ; check left button
  15.         bne.s   loop            ; repeat if not pressed
  16. end:
  17.         moveq   #0,d0
  18.         rts                     ; return
  19.