home *** CD-ROM | disk | FTP | other *** search
/ messroms.de / 2007-01-13_www.messroms.de.zip / VZ200 / TOOLS / ZCCSRC.ZIP / test / flashled.asm next >
Assembly Source File  |  1995-11-04  |  441b  |  39 lines
  1. ;
  2. ;    Simple debugging routine extracted from shell.z8t
  3. ;    Flashes LED continuously at 1 Hz
  4. ;
  5.     .area    _CODE
  6.     .globl    flashled
  7. STATUS    = 3
  8. flashled:
  9.     LD    BC,#STATUS
  10.     LD    A,#0x91
  11.     OUT    (C),A
  12. FLASH:
  13.     CALL    DELAY
  14.  
  15.     LD    A,#0x0A
  16.     OUT    (C),A
  17.  
  18.     CALL    DELAY
  19.  
  20.     LD    A,#0x0B
  21.     OUT    (C),A
  22.     JR    FLASH
  23. ;-------------------------------;
  24. DELAY:
  25.     LD    DE,#2
  26. LOOP1:
  27.     PUSH    DE
  28.     LD    DE,#0x9000
  29. LOOP2:    DEC    DE
  30.     LD    A,D
  31.     OR    E
  32.     JR    NZ,LOOP2
  33.     POP    DE
  34.     DEC    DE
  35.     LD    A,D
  36.     OR    E
  37.     JR    NZ,LOOP1
  38.     RET
  39.