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,乾脆整理出來吧。令狐沖十四歲那年進入華山,那年嶽靈珊八歲,嶽不群白天給兩人指點劍法,晚上令狐沖給小師妹講故事哄她入睡...
笑傲江湖中的《洗手》中的霸權主義
笑傲江湖中,大多是令狐沖的快意恩仇。有起有落。不過總體來說是積極向上的。哪怕是 蒙冤 一章,令狐沖拼著性命不要,竟然被 師孃 小師妹誤會拿了別人的劍譜,讓令狐沖有苦難言,怒至癲狂。但是即便是這個時候,師孃還是疼愛她的,處處護著他 小師妹也不是沒有情意,拼著被爹爹責罵也跑過去給令狐沖報信 更何況還有恆...