; EX57.ASM    C.P. Diduch 2001
;
; Timing example. Toggle the state of LED-0 at 
; ouput port 0x0003 ever p-seconds. 
;
;    Author(s):
; Signature(s):                              Date:
;-----------------------------------------------------------------
.EQU    TSF     100             ; Timing scale factor.
;                               ;
.ORG    0x8000                  ; Assemble at 0x8000.
        	                ; Execution Time:
D0:     XORL    R0, R0, 1       ;    8T
        STOREP  0x0003, R0      ;   10T
        ADDL    R1, NULL, TSF   ;    8T
D1:     SUBL    R1, R1, 1       ;    8T
        JMPNZ   D1              ;    7T
        JMP     D0              ;    7T