;       File: TENMSINT.A51     Date: 02/12/92
;
;    /* (c) Copyright BLUE EARTH RESEARCH, MANKATO, MN 1992. */
;    /*                All rights reserved.                  */
;

$ TITLE(Ten Millisecond Interrupt)
$ DATE (02-12-92)
$ PW(93)
$ PL(60)

;   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
;   º                                                      º
;   º    Use TIMER0 To Generate an Interrupt Every 10 mS   º
;   º                                                      º
;   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

;    ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
;    ³            Written By: Thomas Bachmann            ³
;    ³      Blue Earth Research, Mankato, MN  56001      ³
;    ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;

; NOTES:

;       The Timer0 Interrupt is initialized by the following
;       BASIC Statement:

;       CALL 7F00H


$ EJECT
                CSEG AT 7F00H
Initialize:
        PUSH    ACC
        PUSH    PSW
        PUSH    DPH
        PUSH    DPL

        MOV     DPTR,#400BH     ; Stuff "LJMP XXXXH" into
        MOV     A,#2            ;  mirrored Timer 0 overflow
        MOVX    @DPTR,A         ;  vector at address 400BH.

        INC     DPTR
        MOV     A,#HIGH Timer0Int  ; Location of Timer 0
        MOVX    @DPTR,A         ;  interrupt routine.

        INC     DPTR
        MOV     A,#LOW Timer0Int
        MOVX    @DPTR,A


        POP     DPL
        POP     DPH

; ------------- SET UP TIMER0 FOR 10 mS INTERRUPT -------------

TIMER0_TOO:
        MOV     A,TL0           ; Reload Timer 0 for 10 mS
        ADD     A,#LOW -9998    ; (Less 2uS to compensate
        MOV     TL0,A           ; for ADD & MOV latency.)
        MOV     TH0,#HIGH -9998

; Timer 0 is a 16 bit timer used to generate a 10mS interrupt.
; The input to both Timers is the internal system clock
; The frequency is OSC/12 = 1 MHz. (1uS)

;       TMOD:
;                Timer 1                     Timer 0
;     ÃÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÅÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄ´
;     ³ GAT  ³ C/T  ³  M1  ³  M0  ³ GAT  ³ C/T  ³  M1  ³  M0  ³
;     ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÙ
;        0      0      0      1      0      0      0      1

        MOV     TMOD,#11H       ; TIMER/CNTR MODE CTRL REGISTER

;       TCON:
;     ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄ¿
;     ³ TF1  ³ TR1  ³ TF0  ³ TR0  ³ IE1  ³ IT1  ³ IE0  ³ IT0  ³
;     ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÙ
;        0      0      0      1      0      0      0      0

        SETB    TR0             ; Start Timer

;       IE:
;     ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄ¿
;     ³  EA  ³  EC  ³ ET2  ³  ES  ³ ET1  ³ EX1  ³ ET0  ³ EX0  ³
;     ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÙ
;        1      0      0      0      0      0      1      0

        SETB    ET0             ; Timer 0 interrupt enable
        SETB    EA              ; Global interrupt enable

        POP     PSW
        POP     ACC

        RET                     ; BACK TO BASIC

;   ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
;   ³            TIMER0 INTERRUPT SERVICING ROUTINE           ³
;   ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;

Timer0Int:
        PUSH    ACC             ; 10mS interrupt
        PUSH    PSW
        PUSH    DPH
        PUSH    DPL

        MOV     A,TL0           ; Reload Timer 0 for 10 mS
        ADD     A,#LOW -9998    ; (Less 2uS to compensate
        MOV     TL0,A           ; for ADD & MOV latency.)
        MOV     TH0,#HIGH -9998

;*      This is where the function that takes place each     *;
;*      10 mS is programmed.                                 *;

AllDone:
        POP     DPL             ; Tail end of 10mS interrupt
        POP     DPH
        POP     PSW
        POP     ACC
        RETI
                                ; END OF PROGRAM
        END

; Following is the HEX file derived from the assembled source
; file.  This can be used for directly loading the program via
; MONITOR-51 and almost any terminal program.

:107F0000C0E0C0D0C083C08290400B7402F0A37464
:107F10007FF0A37431F0D082D083E58A24F2F58A11
:107F2000758CD8758911D28CD2A9D2AFD0D0D0E0BF
:107F300022C0E0C0D0C083C082E58A24F2F58A75F1
:0B7F40008CD8D082D083D0D0D0E032AB
:00000001FF