?? re5.asm
字號:
jg cc0
pop cx
ret
CC endp
;**************************************************
floorscan proc near ;字符串掃描子程序
push cx
push di ;已經知道運動方向上的下一層,判斷外部按鍵緩沖區內在這層是否要停下
push ax
mov di ,offset copydata
mov al ,nextfloor
add al ,30h
mov cx ,1000
cld
repnz scasb
jz found ;找到了
mov ah ,0
mov nextstop ,ah
jmp scanexit ;運行方向上下一層不停
found:
mov ah ,1
mov nextstop ,ah ;運行方向上下一層要停
scanexit:
pop ax
pop di
pop cx
ret
floorscan endp
;****************************************************************************
arraycmp proc near ;the feedback data is ah!!!
push si ;the feedback data is ah!!!
push di
push cx
mov si ,offset empty
mov di ,offset copydata
mov cx ,1000
cld
repz cmpsb
jnz noequal ;The buffer is empty!
mov ah ,0
jmp arraycmpexit ;The buffer is empty!
noequal:
mov ah ,1 ;The buffer is not empty!
arraycmpexit:
pop cx
pop di
pop si
ret
arraycmp endp
;********************************************************
quit proc near
disp msg2
mov ah ,0
int 16h
cmp ah ,15h
jnz quitl0
mov ah ,4ch
int 21h
quitl0:ret
quit endp
;***********************************************************
rlcf proc near
pusha
mov dl ,0ah
mov ah ,2h
int 21h
mov dl ,0dh
mov ah ,2h
int 21h
popa
ret
rlcf endp
;*************************************************************
epttest proc near ;emptytest程序
pusha ;used rigister:ax
emptytest: ;input data: buffer ah(from arraycmp)
arraycopy up_buffer ;feedback data:bufferstate ubstate upstat ax(dbstate ubstate)
call arraycmp
mov ubstate,ah
arraycopy down_buffer
call arraycmp
mov dbstate,ah
mov al ,ubstate
cmp ax ,0
jne noept
ept: mov bufferstate ,0 ;寄存器還沒有確定
jmp epttestexit
noept: mov bufferstate ,1
epttestexit:
popa
ret
epttest endp
;**************************************************************************
scanstore proc near ;scan keyboard ,analysis and rigister it to ;right buffer.
;feedback data is buffer,inputvalue
;read data from kyboard input
;the si and di is changing by time!!!!!!
;How to protect them is very important.
;used rigister:ax,si(changing),di(changing)
;bx(from up_convert,down_convert)
push ax
waitinput:
in al,60h
mov ah,al
cmp ah ,10h ;是否結束
jnz upcmp
call quit
upcmp: cmp ah ,3bh ;F1-F7
jl dncmp
cmp ah ,42h
jg dncmp
sub ah ,3bh
mov al ,ah
call up_convert
jmp ssexit
dncmp: cmp ah ,03h ;2-8(on the left part of the keyboard)
jl pre1
;jl ssexit
cmp ah ,0ah
jg pre1
;jg ssexit
sub ah ,02h
mov al ,ah
call down_convert
jmp ssexit
pre1:
cmp al ,4fh
jne pre2
mov al ,31h
jmp keycmp
pre2:
cmp al ,50h
jne pre3
mov al ,32h
jmp keycmp
pre3:
cmp al ,51h
jne pre4
mov al ,33h
jmp keycmp
pre4:
cmp al ,4bh
jne pre5
mov al ,34h
jmp keycmp
pre5:
cmp al ,4ch
jne pre6
mov al ,35h
jmp keycmp
pre6:
cmp al ,4dh
jne pre7
mov al ,36h
jmp keycmp
pre7:
cmp al ,47h
jne pre8
mov al ,37h
jmp keycmp
pre8:
cmp al ,48h
jne pre9
mov al ,38h
jmp keycmp
pre9:
cmp al ,49h
jne ssexit
mov al ,39h
jmp keycmp
keycmp:mov ah ,bh
add ah ,30h
cmp al ,31h ;the inner key 1-8(on the right)
;replaced by the next row
jl ssexit
cmp al ,39h
;replaced by the next row
jg ssexit
cmp al ,ah ;bh=floor
jle uneffectkey
call disp4 ;disp4
;call disp5
upkey: sub al ,31h
call up_convert
jmp ssexit
uneffectkey:
cmp al ,ah ;bh=floor
jne downkey
call disp4
;call disp5
jmp ssexit
downkey:
call disp4
;call disp5
sub al ,31h
call down_convert
ssexit:
pop ax
ret
scanstore endp
;**********************************************
up_convert proc near
add al ,1
mov inputvalue,al
add al ,30h
mov [si],al
inc si
ret
up_convert endp
;**********************************************
down_convert proc near
add al ,1h
mov inputvalue,al
add al ,30h
mov [di],al
inc di
ret
down_convert endp
;**************************************************
nfsjudge proc near ;已知電梯運行狀態(當前所在樓層和運行方向)和外 ;部按鍵狀態
;判斷運行方向上的下一層
;nfsjudge=next floor stop judge
mov upeffect ,0 ;input data is floor,bh
mov downeffect ,0
arrayclear copydata ;feedback data is nextfloor,nextstop,upeffect,downeffect
;清除arraycopy
up:
;此時是否正在向上運動
cmp bl ,0 ;bh rigister the direction value
jne down
mov al ,bh
add al ,1 ;floor+1
mov nextfloor,al
arraycopy up_buffer ;復制外部上鍵的緩存 up_buffer到copydata
call floorscan
cmp nextstop ,1
jne up00
mov upeffect ,1
jmp nfsjudgeexit ;由up_buffer決定
up00:
arraycopy down_buffer
call floorscan
cmp nextstop ,0 ;up_buffer,down_buffer中都沒有nextfloor，則給nextstop賦0的值
je nfsjudgeexit
;************************determine whether have a larger number in down_buffer;
push di ;up_buffer中沒有 down_buffer中有，此時nextstop=1
;需要判斷down_buffer中有沒有值大于nextfloor
push cx
mov di ,offset copydata
mov al ,nextfloor
add al ,30h
mov cx ,1000
uploop:
mov ah ,[di]
cmp ah ,al ;ah=element ,al=nextfloor
jg up1 ;down_buffer中存在元素大于nextfloor,存在元素等于nextfloor
inc di
dec cx
loop uploop
jmp up2
up1:mov nextstop,0
jmp up3
up2:mov nextstop,1
mov downeffect,1
up3:pop cx
pop di
jmp nfsjudgeexit
down: ;此時是否正在向下運動
mov al ,bh
sub al ,1 ;bh=floor, floor-1
mov nextfloor,al
arraycopy down_buffer ;復制外部下鍵緩存down_buffer到copydata
call floorscan
cmp nextstop ,1
jne down00
mov downeffect,1
jmp nfsjudgeexit
down00:
arraycopy up_buffer
call floorscan
cmp nextstop ,0 ;down_buffer,up_buffer中都沒有nextfloor，則給nextstop賦0的值
je nfsjudgeexit
push di ;down_buffer中沒有 up_buffer中有，此時nextstop=1
;需要判斷up_buffer中有沒有值小于nextfloor
push cx
mov di ,offset copydata
mov al ,nextfloor
add al ,30h
mov cx ,1000
downloop:
mov ah ,[di]
cmp ah ,0
jz down0
cmp ah ,al ;ah=element ,al=nextfloor
jl down1
down0:
inc di
dec cx
loop downloop
jmp down2
down1:
mov nextstop,0
jmp down3
down2:
mov nextstop,1
mov upeffect,1
down3:
pop cx
pop di
jmp nfsjudgeexit
nfsjudgeexit:
ret
nfsjudge endp
;*********************************************************
directionjudge proc near ;This judgement is made after the Wait (rp ;by CC)procedure!
push ax
call epttest ;To decide the direction
mov al ,bufferstate ;input data is direction,floor(on which the ;lift open),buffer
cmp al ,0 ;feedback data is direction
je dj1 ;only focus on direction=0 or 1
;when d=2,the direction is decided by the first ;input during Wait procedure!
cmp upeffect ,1
jne dj2 ;d=0
call d0
jmp djexit
dj2: call d1 ;d=1
jmp djexit
dj1: mov bl,2 ;buffer is empty! So the lift is still on ;the floor!
djexit:
pop ax
ret
directionjudge endp
;**************************
d0 proc near
push ax
push di
push si
push cx
;push ds
;mov ax,data
;mov ds,ax
arraycopy up_buffer
mov di ,offset copydata
mov cx ,1000
d00cmp:
mov ah ,[di]
sub ah ,30h
cmp ah ,bh
jg d00
inc di
loop d00cmp
nop
nop
nop
arraycopy down_buffer
mov di ,offset copydata
mov cx ,1000
d01cmp:
mov ah ,[di]
sub ah ,30h
cmp ah ,bh
jg d00
inc di
loop d01cmp
nop
nop
nop
mov bl ,1
jmp d0exit
d00:mov bl ,0
d0exit:
;pop ds
pop cx
pop si
pop di
pop ax
ret
d0 endp
;**************************
d1 proc near
push ax
push di
push si
push cx
;???????????????????????????
;push ds
;mov ax,data
;mov ds,ax
arraycopy down_buffer
mov di ,offset copydata
mov cx ,1000
d10cmp:
mov ah ,[di]
cmp ah ,0
jz d10cmpp
sub ah ,30h
cmp ah ,bh
jl d10
d10cmpp:
inc di
loop d10cmp
nop
nop
nop
arraycopy up_buffer
mov di ,offset copydata
mov cx ,1000
d11cmp:
mov ah ,[di]
cmp ah ,0
jz d11cmpp
sub ah ,30h
cmp ah ,bh
jl d00
d11cmpp:
inc di
loop d11cmp
nop
nop
nop
mov bl,0
jmp d1exit
d10:mov bl,1
d1exit:
;pop ds
pop cx
pop si
pop di
pop ax
ret
d1 endp
;**********************************************
CCD2 proc near
mov cx ,0ffffh ;shoud be given again!
ccd20:
call epttest
cmp bufferstate,0
jne ccd22
ccd21:
call scanstore
call disp2
call delay1
call scanstore
call disp2
call delay1
dec cx
cmp cx,1
jnz ccd20
mov bl ,2
jmp ccd2exit
ccd22:
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -