;    感觉双休就想睡觉，这鬼天气，一直下雨。设置时间未完成，只是加了一个所谓的主界面
;   display system time. press f1 to change the color displayed, press esc to return main list. f3 exit
;    clear_screen 清空屏幕
assume cs:codesg
stacksg segment
    dw 128 dup(0)
stacksg ends

codesg segment    
    line db 12
    csip dw 0,0
    exitflag db 0    ; f3-2, esc-1. 只有在主界面才能退出，所以每次从时钟返回都会重置此值
    color    db 2
    list dw display, setclock
    setclock db ‘2) set clock‘, 0
    display db ‘1) clock‘, 0
    start:
        mov ax, stacksg
        mov ss, ax
        mov sp, 128
        mov ax, cs
        mov ds, ax
        
        mov ax, 0
        mov es, ax
        push es:[9*4]
        pop csip[0]
        push es:[9*4 + 2]
        pop csip[2]
        
        cli
        mov word ptr es:[9*4], offset int9
        mov es:[9*4 + 2], cs
        sti
        ;    主菜单
main_screen:
        call clear_screen
        mov cx, 2
        mov al, 1
    dis_main:
        mov bx, cx
        dec bl
        add bx,bx
        mov si,list[bx]
        call printf
        dec al
        loop dis_main
        ; 获取输入
getinput:
    cmp exitflag, 2
    je exit
    ; 1,2为有效输入，其它忽略(暂时只实现1)
    mov ah, 0
    int 16h
    cmp ah, 02h     ;  通码 1-9:02-0a
    je main_print_clock
    cmp ah, 03h
    je main_set_clock
    ;    其它情况,对比是否有功能键触发事件
    jmp getinput
    
main_print_clock:
    ; 显示时钟，若返回，则显示主界面
    mov ah, 0
    call clock
    mov exitflag, 0
    mov color, 2
    jmp main_screen
main_set_clock:
    mov ah, 1
    call clock
    mov exitflag, 0
    mov color, 2
    jmp main_screen

exit:
        ; 恢复向量表
        push csip[0]
        pop es:[9*4]
        push csip[2]
        pop es:[9*4 + 2]

        mov ax, 4c00h
        int 21h
        ;    clock子函数,ah 传递功能号, 0- 显示时钟，1- 设置时钟
clock:
        jmp short do_clock
        clocktable dw dis_clock, set_clock
        clock_str    db ‘20yy/mm/dd hh:mm:ss‘,0
        row    db 9,8,7,4,2,0
        ;    秒： 0  分：2 时： 4 日 ： 7 月：8 年：9

    do_clock:
        push bx
        push ax
        push si
        push di
        push cx
        push ds
        
        cmp ah, 1
        ja clock_ret
        cmp ah, 0
        jb clock_ret
        mov bl, ah
        mov bh, 0
        add bx,bx
        jmp word ptr clocktable[bx]
        ;    每1s显示一次时钟
dis_clock:
        call clear_screen
    s_second:
        mov di, 2
        mov si, 0
        mov cx, 6
        ; 设置时钟字符串
    s:    mov al, row[si]
        out 70h, al
        in  al, 71h
        mov ah, al
        push cx
        mov cl, 4
        shr ah, cl
        pop cx
        add ah, 30h
        and al, 00001111b
        add al, 30h
        mov clock_str[di], ah
        mov clock_str[di + 1], al
        add di, 3
        inc si
        loop s

        mov si, offset clock_str
        mov al, 1
        call printf
        call delay
        cmp exitflag, 1    ; only esc can return from clock screen
        je clock_ret
        jmp short s_second
set_clock:



    clock_ret:
        pop ds
        pop cx
        pop di
        pop si
        pop ax
        pop bx
        ret
delay:
        push ax
        push dx
        mov dx, 0BFFh
        mov ax, 0
    s_delay:
        sub ax, 1
        sbb dx, 0
        cmp ax, 0
        jne s_delay
        cmp dx, 0
        jne s_delay
        pop dx
        pop ax
    ret

clear_screen:
        blank db ‘                               ‘, 0
        push si
        push cx
        push ax

        mov si, offset blank
        mov cx, 4
        mov al, 0
    s_clear:
        call printf
        inc al
        loop s_clear
        
        pop ax
        pop cx
        pop si
        ret
printf:
        push ax
        push es
        push si
        push di
        push bx
        ;    显示函数， 行号在line变量中，从第8列开始。al-表示第X(X>=1)次调用。字符串地址-ds:[si],碰到0结束返回
        mov bl, al
        mov ax, 0b800h
        mov es, ax
        mov bh, 160
        add bl, line[0]
        mov al, bl
        mul bh
        mov di, ax
        add di, 2*8
    s_print:
        mov bl, ds:[si]
        cmp bl,0
        je s_print_out
        
        mov bh, color
        ;    无论哪行，从第8列开始显示
        mov es:[di], bx
        inc si
        add di, 2
        jmp s_print
    s_print_out:
        pop bx
        pop di
        pop si
        pop es
        pop ax
        ret
int9:
    push ax    
    in al, 60h
    
    pushf
    call dword ptr csip
    ;    check if equal esc:01, f1:3b, f1 change color. esc exit function
    cmp al, 01h    ;esc
    je sesc
    cmp al, 3bh
    je f1
    cmp al, 3dh            ;        F3 退出
    je f3
    mov exitflag, 0
    jmp int9ret
f1:    inc color
    jmp int9ret
f3:
    mov exitflag, 2
    jmp int9ret
sesc:
    mov exitflag, 1

int9ret:
        pop ax
        iret
codesg ends
end start