-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathA000045M.ASM
107 lines (83 loc) · 2.08 KB
/
A000045M.ASM
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
;--------------------------------------------------------------------
;
; a000045m.asm
;
; Fibonacci numbers: F(n) = F(n-1) + F(n-2), F(0) = 0 and F(1) = 1
;
; OEIS A000045
;
;--------------------------------------------------------------------
.model small
.stack 100h
EXTRN dispspace:PROC
EXTRN disp0x:PROC
EXTRN dispCR:PROC
EXTRN disph16:PROC
EXTRN dispd16:PROC
.data
max dw 19h
arr dw 19h DUP (00h)
.code
a000045 PROC
push bp
mov bp, sp
push si
mov dx,@data
mov ds,dx
mov arr[0], 0000h ; F(0) = 0
mov arr[2], 0001h ; F(1) = 1
mov si, 0004h
mov cx, 0002h ; cx = n
mov bx, arr[0] ; bx = F[n-2]
mov dx, arr[2] ; dx = F[n-1]
getanother:
mov ax, bx
add ax, dx
mov arr[si], ax
inc si
inc si
inc cx
cmp cx, max
je displaynow
mov bx, dx
mov dx, ax
jmp getanother
displaynow:
mov cx, 0000h
mov si, 0000h
disploop:
mov ax, arr[si]
call dispA
inc cx
cmp cx, max
je alldone
inc si
inc si
jmp disploop
alldone:
mov ax, 4C00h
int 21h
a000045 endp
;-------------------------------------------------------------------------
dispA PROC ; display routine for OEIS
; a......(n) in ax, n in cx
push ax
push bx
push cx
push dx
mov dx, ax
mov ax, cx
call dispd16
call dispspace
call dispspace
call dispspace
mov ax, dx
call dispd16
call dispCR
pop dx
pop cx
pop bx
pop ax
ret
dispA endp
end