笑傲江湖曲 彙編操縱揚聲器發聲(原始碼)

2021-04-06 14:34:00 字數 1960 閱讀 5074

title music--a music of 'mary had a little lamb'

;assemble with :ma** music

;link with:link music+gensound

;extrn gensound:far

stack segment para stack 'stack'

db 64 dup('stack...')

stack ends

dseg segment para 'data'

mus_freq dw  440,392,330,294,262,294,330,294,262,220,196

dw  196,196,220,262,294,330,392,440,392,330,294,262,294

dw  440,392,330,294,262,294,330,294,262,220,196

dw  196,196,220,262,294,330,392,440,392,330,294,262,-1

mus_time dw  3750,1250,2500,2500,7500,2500,3750,1250,2500,2500,10000

dw  5000,2500,2500,3750,1250,2500,2500,3750,1250,1250,1250,2500,10000

dw  3750,1250,2500,2500,7500,2500,3750,1250,2500,2500,10000

dw  5000,2500,2500,3750,1250,2500,2500,3750,1250,2500,2500,10000

dseg ends

cseg segment para 'code'

assume cs:cseg,ss:stack,ds:dseg

music proc far

start:

push ds

sub ax,ax

push ax

mov ax,dseg

mov ds,ax

lea si,mus_freq

lea bp,ds:mus_time

freq:mov di,[si]

cmp di,-1

je  end_mus

mov bx,ds:[bp]

mov ax,8

mul bx

mov bx,ax

call far ptr gensound

add si,2

add bp,2

jmp freq

end_mus:

retmusic endp

cseg ends

codeseg segment para 'code'

assume cs:codeseg

gensound proc far

push ax

push bx

push cx

push dx

push di

mov al,0b6h

out 43h,al

mov dx,12h

mov ax,533h*896

div di

out 42h,al

mov al,ah

out 42h,al

in al,61h

mov ah,al

or al,3

out 61h,al

wait1:

mov cx,2801

delay:

loop delay

dec bx

jnz wait1

mov al,ah

out 61h,al

pop di

pop dx

pop cx

pop bx

pop ax

retgensound endp

codeseg ends

end start

笑傲江湖 (續)

前些日子,笑傲江湖不是很火麼,自己本身也很是欣賞金庸的文筆,閒來無事便根據新拍笑傲江湖電視劇寫了一篇笑傲江湖的續,無以聊賴,值當消遣!冰湖中,東方不敗未死,得以一顆冰心重生,無淚無情,不悲不喜,一襲白衣,一人一騎隻身血洗黑木崖。五嶽派聞訊前來圍攻,只是東方不敗的強大更勝從前,五嶽派卻只得大敗而歸,至...

笑傲江湖與三層交換 路由

笑傲江湖與三層交換 路由.經典的文章,對新手入門很有好處,寫的生動活潑易懂,是俺以前用來入門的文章,不時還翻出來看看。剛剛在自己的收藏文件裡面找到的,既然有了blog,乾脆整理出來吧。令狐沖十四歲那年進入華山,那年嶽靈珊八歲,嶽不群白天給兩人指點劍法,晚上令狐沖給小師妹講故事哄她入睡。後來,嶽不群陸...

笑傲江湖版三層交換技術

令狐沖十四歲那年進入華山,那年嶽琳珊八歲,嶽不群白天給兩人指點劍法,晚上令狐沖給小師妹講故事哄她入睡。後來,嶽不群陸續收了勞德諾,陸大有等徒弟,又忙於修煉紫霞神功,就沒有時間指點徒弟。於是他做了一個hub,從此華山派實現教育電子化,嶽不群在網上同時給每個徒弟授課,這種方法很快在五嶽劍派內部推廣。為了...

笑傲江湖與三層交換 路由

2004年09月17日 18 29 00 經典的文章,對新手入門很有好處,寫的生動活潑易懂,是俺以前用來入門的文章,不時還翻出來看看。剛剛在自己的收藏文件裡面找到的,既然有了blog,乾脆整理出來吧。令狐沖十四歲那年進入華山,那年嶽靈珊八歲,嶽不群白天給兩人指點劍法,晚上令狐沖給小師妹講故事哄她入睡...

笑傲江湖中的《洗手》中的霸權主義

笑傲江湖中,大多是令狐沖的快意恩仇。有起有落。不過總體來說是積極向上的。哪怕是 蒙冤 一章,令狐沖拼著性命不要,竟然被 師孃 小師妹誤會拿了別人的劍譜,讓令狐沖有苦難言,怒至癲狂。但是即便是這個時候,師孃還是疼愛她的,處處護著他 小師妹也不是沒有情意,拼著被爹爹責罵也跑過去給令狐沖報信 更何況還有恆...