TI-H: LED Blinker

To: "'ti-hardware@lists.ticalc.org'" <ti-hardware@lists.ticalc.org>
Subject: TI-H: LED Blinker
From: Mike Leister <leister@baghwan.nsc.com>
Date: Wed, 3 Jun 1998 15:38:24 -0700
Delivered-To: ti-hardware-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: ti-hardware@lists.ticalc.org

I am still having problems getting my LED blinker to run.  It assembles fine but does nothing when I run it.  I have an oscilloscope, so I know that it is not just blinking too fast to see.  Any comments?  I need this routine to control the RF chip in the wireless link.

Mike

.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST

.org 9327h

        call    _clrlcdfull

        ld hl,0203h
        ld (CURROW), hl
        ld hl, Str1
        call    _puts

        ld hl,0204h
        ld (CURROW), hl
        ld hl, Str2
        call    _puts

        ld hl,0205h
        ld (CURROW), hl
        ld hl, Str3
        call    _puts

        LD      A,0000b
        OUT     (BPORT),A    ; is used for setting D0 high, D1 high

        LD      A,0011b
        OUT     (BPORT),A    ; is used for setting D0 low, D1 low

        LD      A,0000b
        OUT     (BPORT),A    ; is used for setting D0 high, D1 high

	ret

Str1: .db "MIKE'S          ",0
Str2: .db "REMOTE",0
Str3: .db "CONTROL",0
  
.end

Warning: Could not process part with given Content-Type: application/ms-tnef