clock.txt

用于显示时钟

code segment
         assume  cs:code
org     0100h
start :  mov dx,04a6h
           mov ax,81h
           out dx,ax  
           
      ;  mov cx,4
      tt: mov dx,04a4h
           in al, dx
           shr al,1
           jnc t1
           mov ah,1
       t1:shr al,1
           jnc t2
           add ah,2
       t2:shr al,1
           jnc t3
           add ah,4
       t3:shr al,1
            jnc t4
           add ah,8
        t4:
           mov  bx,ah
        mov si,offset sec0+9-bx 


 tt: mov dx,04a4h
           in al, dx
           shr al,1
           jnc t1
           mov ah,1
       t1:shr al,1
           jnc t2
           add ah,2
       t2:shr al,1
           jnc t3
           add ah,4
       t3:shr al,1
            jnc t4
           add ah,8
        t4:
           mov  bx,ah
        mov di,offset sec1+5-bx 


 tt: mov dx,04a4h
           in al, dx
           shr al,1
           jnc t1
           mov ah,1
       t1:shr al,1
           jnc t2
           add ah,2
       t2:shr al,1
           jnc t3
           add ah,4
       t3:shr al,1
            jnc t4
           add ah,8
        t4:
           mov  bx,ah
        mov bp,offset minut0+9-bx 

 tt: mov dx,04a4h
           in al, dx
           shr al,1
           jnc t1
           mov ah,1
       t1:shr al,1
           jnc t2
           add ah,2
       t2:shr al,1
           jnc t3
           add ah,4
       t3:shr al,1
            jnc t4
           add ah,8
        t4:
           mov  bx,ah
        mov bx,offset minut1+6-bx     


         
   ;  loop tt            
   ; l3: mov si,offset sec0+9-bx 

   ;     mov di,offset sec1+5-bx+1] 
    ;    mov bp,offset minut0+9-[var+2] 
    ;    mov bx,offset minut1+6-[var+3]      

    l2:mov cx,5h
    l1:mov ax,0feh 
        mov dx,04a0h
        out dx,ax
        mov ax,[si]
        mov dx,04a2h
        out dx,ax
                           
        push  cx 
        call delay        
        pop cx

  
 

       mov ax ,0fdh
       mov dx,04a0h
       out dx,ax
       mov  ax,[di]
       mov dx,04a2h
       out dx,ax
       push   cx
       call   delay
       pop  cx

 
       mov ax,0fbh
       mov dx,04a0h
       out dx,ax
       mov ax,[bp]
       mov dx,04a2h
       out dx,ax
       push  cx
       call   delay
       pop cx
   


mov ax,0f7h
mov dx,04a0h
out dx,ax
mov ax,[bx]
mov dx,04a2h
out dx,ax
push cx
call delay
pop cx



loop l1

inc si
cmp si,offset sec0+10
jnz l2

inc di
mov si,offset sec0
cmp di,offset sec1+6
jnz l2

inc bp
mov di,offset sec1
mov si,offset sec0
cmp bp,offset minut0+10
jnz l2

inc bx
mov di,offset sec1
mov si,offset sec0
mov bp,offset minut0
cmp bx,offset minut1+7
jnz l2

again:     

       mov ax,0feh 
        mov dx,04a0h
        out dx,ax
        mov ax,3fh
        mov dx,04a2h
        out dx,ax


        mov ax,0fdh 
        mov dx,04a0h
        out dx,ax
        mov ax,3fh
         mov dx,04a2h
         out dx,ax


        mov ax,0f7h 
        mov dx,04a0h
        out dx,ax
        mov ax,3fh
        mov dx,04a2h
        out dx,ax


       mov ax,0fbh 
        mov dx,04a0h
        out dx,ax
        mov ax,0bfh
        mov dx,04a2h
       out dx,ax

       mov ax,0h
       mov dx,04a2h
       out dx,ax

       jmp  again

 
delay  proc
           mov cx,00c4h
 l4:nop
     loop l4
ret

sec0  db 67h,7fh,07h,7dh,6dh,66h,4fh,5bh,06h,3fh
sec1  db 6dh,66h,4fh,5bh,06h,3fh
minut1 db 7dh,6dh,66h,4fh,5bh,06h,3fh
minut0  db 0e7h,0ffh,87h,0fdh,0edh,0e6h,0cfh,0dbh,86h,0bfh
;var db 0h,0h,0h,0h
code ends
  end start