windows下使用masm汇编器的斐波那契数列彩色输出实验
写作原因：操作系统课程实验8086汇编的ddl驱动。虽然只是入门，但是由于个人不是特别喜欢过于晦涩难懂的jmp之类的跳转，所以使用较多的较高级的指令和伪指令
源码缺陷：没有实现超过24项（16位存储单元限制），在彩色输出的时候没有考虑换行
有关指令的含义请自行百度、谷歌、或百谷歌度。
源码说明：
fib.asm中包含生成斐波那契数列的子程序接口fib
int.asm中包含将int和int数组转成string的子程序接口intToString和intListToString
output.asm中包含将字符串彩色输出的子程序接口colorfulPrint
main.asm主程序入口
head.inc头文件
文件中包含一些对接口小测试，可以忽略
fib.asm
include head.inc
public fib
stackseg segment'stack'
db 100
stackseg ends
dataseg segment'data'
numSpace: db 50 dup(0)
numStrSpace: db 250 dup('$')
str: db 20 dup('$')
dataseg ends
codeseg segment'code'
fib proc far C uses ax bx cx dx di, destOffset:word, num:word
mov di, destOffset
mov ax, 1
mov dx, 1
mov cx, num
.while cx > 0
stosw
mov bx, dx
add dx, ax
mov ax, bx
dec cx
.endw
ret
fib endp
start:
mov ax, dataseg
mov ds, ax
mov es, ax
mov ax, stackseg
mov ss, ax
mov ax, 12;我真是了了个去了，都push pop ax了invoke以后还会变
lea bx, numSpace
invoke fib, numSpace, ax
mov ax, 12
mov bx, numStrSpace
invoke intListToString, numSpace, ax, bx
invoke colorfulPrint, bx, dx
mov ah, 4ch
int 21h
codeseg ends
end start
int.asm
public intListToString, intToString dataseg segment'data' integer: dw 0001h,0001h,0002h,0003h,0005h,0008h,000dh str: db 30 dup(0),'$' dataseg ends stackseg segment'stack' db 200 dup(00h) stackseg ends codeseg segment'code' intToString proc far C uses ax bx cx, theInt:word, strOffset:word mov ax, [theInt] mov dx, 0 mov cx, 0 mov bx, 000Ah .repeat div bx add dx, '0' push dx mov dx, 0 inc cx;计算数位个数 .until ax == 0 ;存到目的地址 mov bx, strOffset mov dx, cx .repeat pop ax mov [bx], al inc bx .untilcxz ret intToString endp intListToString proc far C uses ax cx si di, intListOffset:word, intNum:word, strListOffset:word mov si, intListOffset mov di, strListOffset mov cx, intNum .repeat lodsw invoke intToString, ax, di add di, dx mov al, ' ' stosb .untilcxz mov al, '$' stosb sub di, strListOffset sub di, 2 mov dx, di ret intListToString endp start: mov ax, dataseg mov ds, ax mov es, ax mov ax, stackseg mov ss, ax mov sp, 200 lea bx, integer lea dx, str invoke intListToString, bx, 7, dx mov ah, 09h int 21h mov ah, 4ch int 21h codeseg ends end start
output.asm
include head.inc public colorfulPrint yellow equ 0eh blue equ 01h dataseg segment'data' str: db "hello!assembly!",'$' strLen equ ($-1-str)h dataseg ends stackseg segment'stack' db 50 stackseg ends codeseg segment'code' colorfulPrint proc far C uses ax bx cx dx, srcOffset:word, len:word mov cx, len mov si, srcOffset .repeat lodsb push ax .untilcxz mov dx, 0 mov cx, len mov bl, yellow .repeat pop ax mov ah, 09h int 10h inc dl ;转变颜色 .if bl == 0fh mov bl, 01h .else inc bl .endif .untilcxz ret colorfulPrint endp start: mov ax, dataseg mov ds, ax mov es, ax mov ax, stackseg mov ss, ax lea bx, str mov ax, 15 invoke colorfulPrint, bx, ax mov ah, 4ch int 21h codeseg ends end start
main.asm
include head.inc
stackseg segment'stack'
db 200
stackseg ends
dataseg segment 'data'
requestMessage: db "Please enter the terms in Fibonacci numbers:",'$'
;不同版本下字符串结束标识符是不一样的，masm的windows版本和linux版本都是'$'，nasm的windows版本是0，linux版本是10，dos版本是'$'，at&t汇编标准没有查过。 requestMessageLen equ ($-requestMessage-1)
num: db 2 dup('$'),'$'
numSpace: db 32 dup(0)
numStrSpace: db 80 dup('$')
dataseg ends
codeseg segment 'code'
;接受并解析输入的数字，并放到dx中
inputNum proc C uses ax bx cx
;显示欢迎信息
lea dx, requestMessage
mov ah, 09h
int 21h
;接受输入
mov dx, num
mov ah, 0ah
int 21h
;解析输入
mov cx, 0
lea bx, num+2
mov ah, 0
mov al, [bx]
inc bx
.if al>='0' && al<='9'
sub al, '0'
mov dl, [bx]
.if dl>='0' && dl<='9';十位数，写成[bx]!='$'是没有用的
mov dx, 10
mul dx
add cx, ax
mov al, [bx]
sub al, '0'
add cx, ax
.else;个位数
add cx, ax
.endif
.endif
.if cx > 24
mov dx, 24
.else
mov dx, cx
.endif
ret
inputNum endp
clrf proc far C uses ax dx
mov dl, 0dh
mov ah, 02h
int 21h
mov dl, 0ah
mov ah, 02h
int 21h
ret
clrf endp
start:
mov ax, dataseg
mov ds, ax
mov es, ax
mov ax, stackseg
mov ss, ax
invoke inputNum
invoke clrf
lea bx, numSpace
invoke fib, numSpace, dx
mov bx, numStrSpace
invoke intListToString, numSpace, dx, bx
invoke colorfulPrint, bx, dx
mov ah, 4ch
int 21h
codeseg ends
end start
head.inc
colorfulPrint proto far C srcOffset:word, len:word intToString proto far C theInt:word, strOffset:word intListToString proto far C intListOffset:word, intNum:word, strListOffset:word fib proto far C destOffset:word, num:word clrf proto far C
编译：masm main
...
连接: link main + fib + output + int
运行: main
初学者，对其中的一些指令的理解和对性能的追求并不是很到位，可相互借鉴