.486
;*******************************
ubdel macro name                 ;upbuffer delete
    local ubdel1,ubdel2,ubdel3
    cmp  upeffect ,1
    jne  ubdel3
    push ax
    push cx
    push si
    mov si ,offset up_buffer 
    mov al ,bh
    add al ,30h
    mov cx ,1000
ubdel1:    
    cmp al ,[si]
    jne ubdel2
    mov ah,0
    mov [si],ah

ubdel2:    
    inc si
    dec cx
    cmp cx,0
    jne ubdel1  
    push si
    pop cx
    pop ax
    nop
    nop
    nop
ubdel3:
    jmp name
    endm
    ;ubdel endp
;*******************************
dbdel macro name
    local dbdel1,dbdel2,dbdel3
    cmp downeffect,1
    jne dbdel3
    push ax 
    push cx
    push di
    mov di ,offset down_buffer 
    mov al ,bh
    add al ,30h
    mov cx ,1000
dbdel1:    
    cmp al ,[di]
    jne dbdel2
    mov ah,0
    mov [di],ah

dbdel2:    
    inc di
    dec cx
    cmp cx,0
    jne dbdel1  
    push di
    pop cx
    pop ax
    nop
    nop
    nop
dbdel3:
    jmp name
    endm
;**************************************
huaxian1 macro yanse,hang,lie,jueli  ; used rigister is dx cx ax
      local lop1                     ; no feedback data 
      pusha
      mov dx,hang
      mov cx,lie
 lop1:mov ah,0ch
      mov al,yanse

      int 10h
      inc dx
      cmp dx,jueli
      jnz  lop1
      popa
      endm

huaxian2 macro yanse,hang,lie,jueli  ;no feedback data
      local lop2
      pusha
      mov dx,hang
      mov cx,lie
 lop2:mov ah,0ch
      mov al,yanse
      int 10h
      inc cx
      cmp cx,jueli
      jnz  lop2
      popa
      endm

xiezi macro hang,lie,rensu,yanse
      pusha
      push  bx     
      mov ah,02h
      mov bh,0
      mov dh,hang
      mov dl,lie
      int 10h

      mov ah,09h
      mov al,1
      mov bl,yanse
      mov cx,rensu
      int 10h
      pop bx
      popa
      endm

xiezi1 macro  hang,lie,zi,yanse     ;no feedback data  
      pusha
      mov ah,02h
      mov bh,0
      mov dh,hang
      mov dl,lie
      int 10h

      mov ah,09h
      mov al,zi
      mov bl,yanse
      mov cx,1
      int 10h
      popa
      endm
;&************************************
  
   disp macro name               ;顯示宏定義
       push dx
      
       push ax
       mov ah ,09h
       mov dx ,seg name
       mov ds ,dx
       mov dx ,offset name
       int 21h
       pop ax
       
       pop dx
       endm
  
  arraycopy macro name           ;字符串復制的宏定義 
       push cx
       push si
       push di
       mov si ,offset name
       mov di ,offset copydata
       mov cx ,1000
       cld
       rep movsb  
       pop di
       pop si
       pop cx
       endm
         
  arrayclear macro name           ;字符串清除的宏定義 
       push di
       push ax
       mov al ,00h
       mov di ,offset name
       mov cx ,1000
       cld
       rep stosb 
       pop ax
       pop di 
       endm
  


  data segment
  distance    db ?
  floor       db ?                                    ;(1-9) replce it with bh
  nextfloor   db ?                                    ;
  nextstop    db ?                                    ;1/0其運動方向上下一層要/不要停              distance    db ?
  direction   db ?                                    ;0為向上,1為向下,2為靜止,用Bl代替
  speed       db ?                                    ;0靜止,1-3檔位
  ubstate     db ?                                    ;up_buffer state=1(not empty)0r0(empty)
  dbstate     db ?                                    ;down_buffer state=1(not empty)0r0(empty)
  bufferstate db ?                                    ;empty(0) or noempty(1)
  inputvalue  db ?                                    ;1-9  
  upeffect    db ?
  downeffect  db ?  
  renshu      db ?                                    ;電梯內人數                                   
  up_buffer   db 1000 dup (?),'$'                     ;樓層內向上鍵緩存
  down_buffer db 1000 dup (?),'$'                     ;樓層內向下鍵緩存
  
  
  copydata db 1000 dup (?) 
  empty    db 1000 dup (0),'$'                          ;參比數組，用來比較BUFFER是否為空 
  ;msg1 db 'Please input the number:',0ah,0dh,'$'       
  msg2 db 'Do you want to quit?(Y/N)',0ah,0dh,'$'     ;退出時語句
  ;msg3 db 'Those who want the lift up is on these floors:',0ah,0dh,'$'
  ;msg4 db 'Those who want the lift down is on these floors:',0ah,0dh,'$'
  ;msg5 db 'The next floor is:',0ah,0dh,'$'
  ;msg6 db 'The elivater is still.',0ah,0dh,'$'
  ;msg7 db 'Please input floor:',0ah,0dh,'$'
  ;msg8 db 'Please input speed:',0ah,0dh,'$'
  ;msg9 db 'Please input juli:',0ah,0dh,'$'
FREQ   DW 523,440,523,440,392,440,392,0,523,440,523,440,131,440,392
       DW 523,392,440,131,440,131         ;在這里增加了退出
       DW 523,392,440,131,440,147,523,392,440,131,440,392,165
       DW 165,147,165,175,165,147,131,131                             
       DW 523,440,392,440,131,440,131,523,392,392,440,131,440,147
       DW 523,392,392,440,131,440,392,165
TIME   DW 6 dup(25),50,6 DUP(25),50
       DW 50,4 DUP(25),50
       DW 50,4 DUP(25),50,50,6 DUP(25)
       DW 8 DUP(25)
       DW 6 DUP(25),50,6 DUP(25),50
       DW 8 DUP(25)
  MUS_FREQ   DW  196,262,294,330,349,330,262,-1,294,262,220,262,196,262,294,330,330,349
             DW  392,262,349,330,392,294,330,330,294,294,330,392,492
             DW  492,440,440,392,392,440,492,440,392,330,349,349,392,440,392,349,330,294
             DW  247,247,220,196,220,262,523,440,349,392,440
             DW  492,492,492,492,440,392,330,523,440,349,392,5 DUP (440),349,330,392
             DW  -1

   MUS_TIME  DW  100,70,50,75,25,50,50,100,50,50,200,100,50,50,50,25,25
             DW  50,50,75,25,50,25,25,25,25,200,100,50,50
             DW  75,50,100,50,25,25,50,25,25,300,75,25,50,50,50,25,25,50
             DW  50,25,25,25,25,300,100,100,75,25,100
             DW  50,25,25,50,25,25,300,100,100,75,25,100,50,25,25,50,25,25,200  
  data ends

 
  code segment 

main proc far                                      ;電梯啟動程序
       assume cs:code,ds:data,es:data

       mov ax ,data
       mov ds ,ax
       mov ax ,data
       mov es ,ax

start:
       ; disp msg7
;**************************************************;初始化       
       mov ah    ,0
       int 16h
       sub al    ,30h
       mov bh    ,al                      ;manually input the floor
       
       ;disp msg8
       
       mov ah    ,0
       int 16h
       mov speed ,al                      ;manually input the speed

       ;disp msg9
       
       mov ah    ,0                       ;manually input the distance
       int 16h
       mov distance ,al  
       
       
       

;*********************************************
       pusha
       mov ah,0     ;ding yi tuxing fang shi
       mov al,04h   ;320x200 
       int 10h
       mov ah,0bh   ;beijing
       mov bh,0
       mov bl,0
       int 10h
      
       mov ah,0bh   ;xieziban yanse
       mov bh,1
       mov bl,0
       int 10h
       
       
       huaxian1 5,20,240,50     ;hua xianshijiemian
       huaxian1 5,20,310,50
       huaxian2 5,20,240,310
       huaxian2 5,50,240,311

       xiezi1 3,31,'s',2
       xiezi1 3,32,'u',2
       xiezi1 3,33,'d',2
       xiezi1 3,34,'u',2
       xiezi1 3,35,':',2
       xiezi1 5,31,'j',2
       xiezi1 5,32,'u',2
       xiezi1 5,33,'l',2
       xiezi1 5,34,'i',2
       xiezi1 5,35,':',2
;**************************************** image of lift
      huaxian1 3,175,117,185
      huaxian1 3,175,118,185
      huaxian2 3,155,113,120
      huaxian1 3,155,120,160
      huaxian2 3,160,113,121
      huaxian2 3,165,113,121
      huaxian1 3,160,113,165
      huaxian2 3,135,113,120
      huaxian2 3,140,113,121
      huaxian2 3,145,113,121
      huaxian1 3,135,120,145
      huaxian1 3,115,113,120
      huaxian2 3,120,113,121
      huaxian1 3,115,120,125
      huaxian2 3,95,113,121
      huaxian2 3,100,113,121
      huaxian2 3,105,113,121
      huaxian1 3,95,113,100
      huaxian1 3,100,120,105
      huaxian2 3,75,113,121
      huaxian2 3,80,113,121
      huaxian2 3,85,113,121
      huaxian1 3,75,113,85
      huaxian1 3,80,120,85
      huaxian2 3,55,113,121
      huaxian1 3,55,120,65
      huaxian2 3,35,113,121
      huaxian2 3,40,113,121
      huaxian2 3,45,113,121
      huaxian1 3,35,113,45
      huaxian1 3,35,120,45
      huaxian2 3,15,113,120
      huaxian2 3,20,113,121
      huaxian2 3,25,113,121
      huaxian1 3,15,120,25
      huaxian1 3,15,113,20

      huaxian1 2,9,100,191
      huaxian1 2,9,230,191
      huaxian1 2,9,135,191
      huaxian1 2,9,160,191

      huaxian2 2,9,100,230
      huaxian2 2,10,100,135
      huaxian2 2,10,160,230
      huaxian2 2,30,100,135
      huaxian2 2,30,160,230
      huaxian2 2,50,100,135
      huaxian2 2,70,100,135
      huaxian2 2,90,100,135
      huaxian2 2,110,100,135
      huaxian2 2,130,100,135
      huaxian2 2,150,100,135
      huaxian2 2,170,100,135
      huaxian2 2,190,100,135
      huaxian2 2,50,160,230
      huaxian2 2,70,160,230
      huaxian2 2,90,160,230
      huaxian2 2,110,160,230
      huaxian2 2,130,160,230
      huaxian2 2,150,160,230
      huaxian2 2,170,160,230
      huaxian2 2,190,100,230
      huaxian2 2,191,100,230
      huaxian2 2,9,100,230
      huaxian2 1,190,136,160
      huaxian2 1,170,136,160
;**************************************  hua men
      huaxian1 3,50,20,150
      huaxian1 3,50,70,150
      huaxian2 3,50,20,70
      huaxian2 3,150,20,71
      
      huaxian1 3,50,20,150
      huaxian1 3,50,70,150
      huaxian2 3,50,20,70
      huaxian2 3,150,20,71

      mov ax,0021
      mov bx,0069
lp300:push ax
      huaxian1 3,51,bx,150
      dec bx           
      pop ax
      push ax
      huaxian1 3,51,ax,150
      pop ax
      inc ax
      cmp ax,46
      jnz lp300
;************************************* virtue keyboard
      huaxian1 5,130,240,195
      huaxian1 5,130,310,195
      huaxian2 5,130,240,310
      huaxian2 5,195,240,311
      
      xiezi1 17,32,'9',1
      xiezi1 17,34,'8',1
      xiezi1 17,36,'7',1
      xiezi1 19,32,'6',1
      xiezi1 19,34,'5',1
      xiezi1 19,36,'4',1
      xiezi1 21,32,'3',1
      xiezi1 21,34,'2',1
      xiezi1 21,36,'1',1
      xiezi1 23,32,'<',1
      xiezi1 23,36,'>',1
      popa
;***************************************  ;decide the direction
       mov renshu ,0
       mov si,offset up_buffer
       mov di,offset down_buffer
       arrayclear up_buffer
       arrayclear down_buffer
       arrayclear copydata
       arrayclear empty
       mov bl    ,2                       ;set direction 2,means the lift is on the floor
       call disp1  
scant:       
       call epttest
       cmp bufferstate,0
       jne one
zero:  
       call scanstore                     ;返回掃描到的ASK2碼
      
       call disp2
       jmp scant        

one:
        
        mov ah  ,inputvalue               ;Find the firstinput value.given during the ss/up.down_convert 
        cmp ah  ,bh
        jge l1                          
        
        mov bl  ,1                        ;down
        

l0:     call CC        
        call CC
        call nfsjudge                     ;Juidge whether it will stop on the next floor.        
        dec bh
        mov al  ,nextstop
        cmp al,1                   
        
        je  l00
        jmp l0

l00:    call cc
        call CC
       
        ubdel l000
l000:   dbdel l0000
l0000:  
        call music   
        call disp3            
        call delay
        call CC
        call CC
        call CC                           ;REPLACE WAITINPUT
        call CC
        call directionjudge               ;Juidge the would-be direction
        jmp DCMP
;******************************************
l1:     cmp ah  ,bh                       ;up
        je l2         
        
        mov bl  ,0
l10:    call CC
        call CC
        call nfsjudge
        inc bh
        mov al  ,nextstop
        cmp al,1
        je  l11
        jmp l10
l11:    
        call CC 
        call CC
        
       
        ubdel l111
l111:   dbdel l1111
l1111:  ;call delay
        call music
        call disp3  
        call delay
        call CC
        call CC
        call CC                           ;REPLACE WAITINPUT
        call CC
        call directionjudge               ;Juidge the would-be direction
        jmp DCMP
        

l2:     mov bl   ,2                       ;If the firstinput=given floor. Door is open.
        
        ubdel l22
l22:
        dbdel l222
l222:
        ;call delay
        call music
        call disp3
        call delay
        mov bl ,2
        
 
DCMP:   
        cmp bl ,1
        je l0 
        cmp bl ,0
        je l10       
        jmp scant
          
        main endp

;************************************************       
CC      proc near                                  ;a big problem
        push cx
        mov cx,0ffffh                                 ;THIS VALUE MUST CHANGE LATER
cc0:  
        call scanstore   
        call disp2                                  ;how to call disp,what's the input value
        call delay1
        dec cx
        cmp cx,1