Subversion Repositories t48

        ;; *******************************************************************
        ;; $Id: test.asm,v 1.1 2005-06-08 19:05:39 arniml Exp $
        ;;
        ;; Test wrap-around of Program Counter on bits 10 - 0.
        ;; *******************************************************************

        INCLUDE "cpu.inc"
        INCLUDE "pass_fail.inc"

        ORG     0

        ;; Start of test

        ;; decide whether this is the first time that the test
        ;; executes from address 0
        in      a, P1
        jnz     first_time

        ;; came here for the second time
        ;; -> that's great!
        jmp     pass

first_time:
        clr     a
        outl    P1, a           ; tag P1 -> lock this path
        ;; jump to external Program Memory
        jmp     end_of_first_2k

pass:   PASS

fail:   FAIL


        ;; end of first 2k program memory
        ORG     07FEH
end_of_first_2k:
        nop
        nop
        ;; no wrap-around to address 0


        ORG     0800H

        jmp     fail