URL https://opencores.org/ocsvn/vtach/vtach/trunk

Subversion Repositories vtach

[/] [vtach/] [trunk/] [asm/] [test1.asm] - Blame information for rev 2

Details | Compare with Previous | View Log


        ;;  Test program to debug the BCD math
        ORG 0
        SFT 8,0                 ; read switches to AC
        STO 70
top:
        OUT 70
        SFT 9,0                 ; read pushbutton (-1 or 1)
        TAC exe                 ; button down?
        SFT 0,9                 ; read other pushbutton
        TAC exe2
        JMP top
exe:                            ; add 1 to count
        LOD 70
        ADD one
        STO 70
wait:   SFT 9,0                 ; wait for button up
        TAC wait
        JMP top
 
exe2:   LOD 70                  ; decrease count
        SUB one
        STO 70
wait2:  SFT 0,9                 ; wait for button up
        TAC wait2
        JMP top
 
one:    DATA 1                  ; Needed a 1
        END
 

Line No.	Rev	Author	Line
1	2	wd5gnr	`;; Test program to debug the BCD math`
2			`ORG 0`
3			`SFT 8,0 ; read switches to AC`
4			`STO 70`
5			`top:`
6			`OUT 70`
7			`SFT 9,0 ; read pushbutton (-1 or 1)`
8			`TAC exe ; button down?`
9			`SFT 0,9 ; read other pushbutton`
10			`TAC exe2`
11			`JMP top`
12			`exe: ; add 1 to count`
13			`LOD 70`
14			`ADD one`
15			`STO 70`
16			`wait: SFT 9,0 ; wait for button up`
17			`TAC wait`
18			`JMP top`
19
20			`exe2: LOD 70 ; decrease count`
21			`SUB one`
22			`STO 70`
23			`wait2: SFT 0,9 ; wait for button up`
24			`TAC wait2`
25			`JMP top`
26
27			`one: DATA 1 ; Needed a 1`
28			`END`
29

Browse

Tools

Subversion Repositories vtach

[/] [vtach/] [trunk/] [asm/] [test1.asm] - Blame information for rev 2