源程式如下:
name ex11-6-1
public stdcin,stdcout,dec8bin,hex8out;公用說明,這些過程可以被外部模組呼叫
code1 segment
assume cs:code1
;鍵盤輸入乙個字元ascii到al的過程
stdcin proc far
mov ah,1
int 21h
retstdcin endp
;輸出al中ascii字元到顯示器的過程
stdcout proc far
push dx保護dx到堆疊
mov dl,al
mov ah,2
int 21h
pop dx恢復dx
retstdcout endp
;鍵盤輸入乙個位元組十進位制數,以二進位制數存放到bl中
dec8bin proc far
push cx保護cx到堆疊
push ax保護ax到堆疊
mov bl,0
dec8bin1:
call stdcin ;鍵盤輸入一位十進位制數字符
sub al,30h ;字元ascii轉二進位制
jl dec8bin2 ;非數字字元轉結束返回
cmp al,9
jg dec8bin2 ;非數字字元轉結束返回
push ax保護當前ax
mov al,bl
mov cl,10
mul cl將前期輸入的數字乘10
mov bl,al
pop ax恢復ax
add bl,al將新輸入的數字加入到前期數中
jmp dec8bin1 ;讀入下一位
dec8bin2:
pop ax恢復進入時ax
pop cx恢復cx
retdec8bin endp
;將bl中位元組二進位制數轉換為十六進製制數在顯示器中輸出
hex8out proc far
push ax保護ax
push cx保護cx
mov cx,2二位十六進製制
hex8out1:
push cx保護迴圈次數cx
mov cl,4
rol bl,cl ;迴圈右移4位,使原高4位移到低4位
mov al,bl
and al,0fh
daa將該4位轉換為ascii碼到al中
add al,0f0h
adc al,40h
call stdcout ;輸出該位
pop cx恢復迴圈次數
loop hex8out1
pop cx恢復cx
pop ax恢復ax
rethex8out endp
code1 ends
end源程式如下:
name ex11-6-2
extrn stdcin:far,stdcout:far,dec8bin:far,hex8out:far
;外部說明,這些是被本模組呼叫的外部過程
code2 segment
assume cs:code2
main proc far主程式入口
push ds
mov ax,0
push ax
main2: call dec8bin ;從鍵盤讀入乙個位元組十進位制數到bl中
cmp bl,0
je endl讀入數為零轉結束,否則繼續
call crlf呼叫近過程輸出回車、換行
call hex8out將bl中的數以十六進製制ascii碼輸出
call crlf
jmp main2繼續進行下乙個讀入數的同樣處理
endl:
retmain endp
crlf proc輸出回車、換行的近過程
push dx保護dx
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
pop dx;恢復dx
retcrlf endp
code2 ends
end main
116例帶狀皰疹臨床分析
焦健劉金耀 clinical analysis of 116 cases of herpes zoster 1998年我科收治住院患者共370例,其中帶狀皰疹患者116例 3 1.7 現總結如下。1臨床資料 116例中男69例,女47例 年齡18 83歲 住院天數3 27天 發病年齡 40歲以上86...
模組八案例
模組八案例2 附中的研究性學習評價方案 案例分析 1.鄒老師提出應使學生也參與到研究性學習的評價中,你怎麼看待這個想法?答 我贊同鄒老師提出應使學生也參與到研究性學習的評價中的提議,理由如下 開展研究性學習的宗旨就是給學生建立一種新型的研究學習的模式,發揮學生自主 的能力,研究性學習的目標就是要以學...
模組二案例分析
1.請指出王老師列出的目標分別對應布盧姆目標層次的哪一層?王老師按照新課程標準的要求,將教學目標分成 知識與技能目標 過程與方法目標 情感態度與價值觀目標 三大部分。首先確定知識與技能目標,也就是基本知識和基本技能。這裡的基本知識包括故事背景,作者杜甫的生平,古風 這種文體的基本特徵,杜甫的藝術風格...