河北工業大學組合語言程式設計實驗五
5-3
assume cs:code,ds:data,ss:stack1
data segment
col dw 50
row dw 100
leng1 dw 200
leng2 dw 100
color db 1100b
data ends
stack1 segment stack
dw 20
dup(0)
stack1 ends
code segment
start:
mov ax,data
mov ds,ax
mov ah,
0 mov al,
12h int 10h
mov dx,row
mov cx,col
call proc_x ;
mov dx,row
mov cx,col
call proc_y
mov dx,row
mov cx,col
add cx,leng1
call proc_y
mov dx,row
mov cx,col
add dx,leng2
call proc_x
mov ah,
1 int 21h
mov ah,
0 mov al,
3 int 21h
mov ax,
4c00h
int 21h
proc_x proc
mov bp,leng1
lop1:
mov bh,
0 inc cx
mov al,color
mov ah,
0ch int 10h
dec bp
jne lop1
retproc_x endp
proc_y proc
mov bp,leng2
lop2:
mov bh,
0 inc dx
mov al,color
mov ah,
0ch int 10h
dec bp
jne lop2
retproc_y endp
code ends
end start
assume cs:code,ds:data
data segment
lp1 dw 25
;設定繪製橫線的次數
lp2 dw 0
lp3 dw 0
lp4 dw 0
stcx dw 25
;設定第乙個點打下的座標x
stbx dw 50
;設定第一條線結束的座標x
stdx dw 25
;設定第乙個點打下的座標y
colo db 0001b ;設定繪製的橫線的顏色
data ends
code segment
start:
mov ax,data
mov ds,ax
mov ax,
0 mov ah,
01h ;輸入需要繪製的方格的數目
int 21h
sub ax,
130h
mov lp2,ax
mov al,
13h mov ah,
0 int 10h ;設定背景
mov cx,lp2
re2:
;最外層迴圈，控制繪製方格的數目
mov lp2,cx
mov dx,stdx
mov cx,lp1
re1:
;內層迴圈，由點成線由線成面
mov lp1,cx
mov cx,stcx
mov bx,stbx
int 10h
pheng:
;打點繪製一條橫線
mov al,colo
mov ah,
0ch inc cx
cmp cx,bx
int 10h
jne pheng
mov cx,lp1
add dx,
1 loop re1
mov ax,stbx ;改變變數的值來移動方格
add ax,
25 mov stbx,ax
mov ax,stcx
add ax,
25 mov stcx,ax
mov al,colo
add al,
1 mov colo,al
mov ax,
25 mov lp1,ax
mov cx,lp2
loop re2
mov ah,
4ch int 21h
code ends
end start
河北工業大學組合語言程式設計實驗二
河北工業大學組合語言程式設計實驗二 2 4assume cs code,ds data data segment star db 定義輸出時需要用到的 換行 n db 13,10,i dw 0 j dw 0 定義用於控制行列輸出的變數i,j data ends code segment start ...
廣東工業大學程式設計競賽決賽 C
小時候，我只能一階一階得爬樓梯，後來，我除了能一次爬一階，還可以一次爬兩階，到現在，我最多一次可以爬三階。那麼現在問題來了，我想爬上 n層樓，相鄰樓層之間有一段樓梯，雖然我一次可以爬 1個台階 2個台階和 3個台階，但是我在i與 i 1層之間的樓梯上時，我不能跨越到 i 1與 i 2層之間的樓梯。現...
組合語言程式設計實驗報告五
南京資訊工程大學實驗報告 實驗名稱 實驗 5 編寫 除錯具有多個段的程式 實驗日期 11.26 得分 學院 計軟院 專業 電腦科學與技術 年級 2017級 班次 5班 姓名 陳奕明 學號 20171308194 一 實驗目的 1.理解和掌握將資料 棧放入不同段的程式的編寫和除錯 2.理解具有多個段的...