OpenCores
URL https://opencores.org/ocsvn/zet86/zet86/trunk

Subversion Repositories zet86

[/] [zet86/] [trunk/] [tests/] [05_jump2.s] - Blame information for rev 49

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 39 zeus
.code16
2
start:
3
movw $0xf000, %bx
4
movw %bx, %ds
5
movw $0x1290, %ax
6
 
7
movw $0x5, %cx
8
again:
9
push %cx
10
loop again              # (6)
11
 
12
call *%ax               # (2)
13
ret                     # (9)
14
 
15
.org 0x1290
16
ag2:
17
movw $0xffff, %cx
18
loope ag2               # (7) branch not taken
19
movw $64, %dx
20
push %dx
21
popf
22
loope cont              # (7) branch taken
23
hlt
24
cont:
25
lcall $0xe342, $0xebe0  # (4)
26
jcxz cont               # (13) branch not taken
27
movw $0, %cx
28
jcxz exit               # (13) branch taken
29
hlt
30
exit:
31
ret $10                 # (10)
32
 
33
.org 0x2000
34
call *(0x3000)          # (3)
35
movw $0, %dx
36
push %dx
37
popf
38
hang:
39
movw $1, %cx
40
loopnz hang             # (8) branch not taken
41
loopne cont1            # (8) branch taken
42
hlt
43
cont1:
44
lret                    # (11)
45
.org 0x3000
46
.word 0xfde0
47
.word 0x4000
48
.word 0xf000
49
 
50
.org 0x3200
51
movw $0x2ff0, %bx
52
movw $0x10, %si
53
push %dx
54
lcall *2(%bx,%si)       # (5)
55
ret
56
 
57
.org 0x4000
58
lret $2                 # (12)
59
 
60
.org 65520
61
movw $0x1000, %sp
62
movw %sp, %ss
63
call start              # (1)
64
movw %cx, %ds
65
movw %bx, (0)
66
hlt
67
.org 65535
68
.byte 0xff

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.