Subversion Repositories 8051

;
; bank 0  - counters
; bank 1  - expected values
;
; @7f error code
;

        ajmp start;
        
        .org 03h        ;external interrupt 0
        ajmp ei0        ;

        .org 0bh        ;t/c 0 interrupt
        ajmp tc0        ;

        .org 13h        ;external interrupt 1
        ajmp ei1        ;

        .org 1bh        ;t/c 1 interrupt
        ajmp tc1        ;

        .org 23h        ;serial interface interrupt
        setb b.4        ;
        clr scon.0              ;
        clr scon.1              ;
        reti;

ei0:
        setb b.0;
        mov c, 0                ;
        jc stop0                ;
        clr 2           ;
        reti;

tc0:
        setb b.1;
        mov c, 1                ;
        jc stop1        ;
        clr 3           ;
        reti;

ei1:
        setb b.2;
        mov c, 2                ;
        jc stop2        ;
        clr 0           ;
        reti;

tc1:
        setb b.3;
        mov c, 3                ;
        jc stop3        ;
        clr 1           ;
        reti;


stop0:
        nop;
        mov c, 0        ;
        jc stop0        ;
        reti            ;
stop1:
        nop;
        mov c, 1        ;
        jc stop1        ;
        reti            ;
stop2:
        nop;
        mov c, 2        ;
        jc stop2        ;
        reti            ;
stop3:
        nop;
        mov c, 3        ;
        jc stop3        ;
        reti            ;

wait:
        nop             ;
        nop             ;
        dec a           ;
        jnz wait        ;
        ret;

error:
        mov psw, #00h           ;
        mov p1, 7fh             ;
loop0:
        nop             ;
        ajmp loop0              ;

test:
        subb a, b               ;
        jnz error               ;
        ret             ;
        
test_tcon:
        subb a, tcon            ;
        jnz error               ;
        ret             ;

start:
        clr a
        mov r0, a               ;
        mov r1, a               ;
        mov r2, a               ;
        mov r3, a               ;
        mov r4, a               ;
        mov 7fh, a              ; error 0
        mov 20h, a              ; 
        mov sp, #02fh           ;
;
; testing interrupt enable interrupt enable register
;
; ea (ie.7)
;
        mov ie, #00fh           ;
        mov sbuf, #00h          ;
        mov tmod, #033h ; t/c 0 and 1 in mode 3
        mov th0, #0fdh          ;load timer 0
        mov tl0, #0fch          ;
        mov tcon, #050h         ;
        clr p3.4                ;
        clr p3.3                ;
        mov 7fh, #001h          ; error 1
        mov a, #010h            ;
        acall wait              ;
        clr tcon.6              ;
        clr tcon.4              ;
        clr a           ;
        acall test              ;
        mov a, #0aah            ;
        mov 7fh, #002h          ; error 2
        acall test_tcon         ;
        mov tcon, #00h          ;
        mov a, #00ah            ;
        acall test_tcon         ;
        setb p3.4               ;
        setb p3.3               ;
        mov a, #00h             ;
        acall test_tcon         ;
        clr scon.0              ;
        clr scon.1              ;

;
; ie
;
        mov tcon, #005h         ; external interrupts are edge sensitive
        mov ie, #099h           ;
        mov th0, #0fdh          ;load timer 0
        mov tl0, #0fch          ;
        mov tcon, #055h         ;
        mov sbuf, #098h         ;
        clr p3.4                ;
        clr p3.3                ;
        setb p3.4               ;
        setb p3.3               ;
        mov 7fh, #003h          ; error 3
        mov a, #010h            ;
        acall wait              ;
        clr tcon.6              ;
        clr tcon.4              ;
        mov a, #019h            ;
        acall test              ;
        mov 7fh, #004h          ; error 4
        mov a, #02dh            ;
        acall test_tcon         ;

        mov b,#000h             ;
        mov ie, #09fh           ;
        mov 7fh, #005h          ; error 5
        mov a, #010h            ;
        acall wait              ;
        clr tcon.6              ;
        clr tcon.4              ;
        mov a, #006h            ;
        acall test              ;
        mov 7fh, #006h          ; error 6
        mov a, #005h            ;
        acall test_tcon         ;
;
; software interrupts
;
        mov b,#000h             ;
        mov tcon, #0afh         ;
        setb scon.0             ;
        mov 7fh, #007h          ; error 7
        mov a, #005h            ;
        acall wait              ;
        mov a, #01fh            ;
        acall test              ;
        mov 7fh, #008h          ; error 8
        mov a, #005h            ;
        acall test_tcon         ;

        mov p0, #001h           ;
;
; interrupt prioriti test
;
        mov b,#000h             ;
        mov ie, #08fh           ;
        mov ip, #003h           ;
        mov 20, #00ch           ;
        mov tcon, #0afh         ;
        mov 7fh, #009h          ; error 9
        mov a, #005h            ;
        acall wait              ;
        mov a, #00fh            ;
        acall test              ;
        mov 7fh, #00ah          ; error a
        mov a, #005h            ;
        acall test_tcon         ;

        mov b,#000h             ;
        mov ip, #00ch           ;
        mov 20, #003h           ;
        mov tcon, #0afh         ;
        mov 7fh, #00bh          ; error b
        mov a, #005h            ;
        acall wait              ;
        mov a, #00fh            ;
        acall test              ;
        mov 7fh, #00ch          ; error c
        mov a, #005h            ;
        acall test_tcon         ;

        mov p0, #002h           ;