;simple calculagraph made by fanpei

;simple calculagraph made by fanpeidata segmenth2 db 0h1 db 0m2 db 0m1 db 0s2 db 0s1 db 0addition_5 db 0sub_count db 0old_seg dw 0old_off dw 0word_single db 0is_go_on db 1Tips db 0dh, 0ah ,"welcome to use my program,please enter different key will have different reflect." ,0dh, 0ah db "such as that:" ,0dh, 0ah db "enter q to exit the program" ,0dh, 0ah db "enter s to stop" ,0dh, 0ah db "enter a to continue." ,0dh, 0ah ,'$'ps db 62h,79h,20h,66h,61h,6eh,70h,65h,69h,21h,24hdata endsstack_seg segment stackdb 250 dup(0)stack_seg endscode segmentassume cs:code,ds:data,ss:stack_segmain proc farmov ax,datamov ds,axmov ax,0600hmov bh,3ahmov cx,0000hmov dx,184fhint 10h mov dx,offset Tipsmov ah,09hint 21hmov dx,offset psmov ah,09hint 21hmov ah,0 int 16hcall int_set l1:call enter_key cmp word_single,1 je enter_q jmp l1 enter_q: cmp al,'q' je exit enter_s: cmp al,'s' jne enter_a mov is_go_on,0 enter_a: cmp al,'a' jne clear_single mov is_go_on,1 clear_single: mov word_single,0 jmp l1 exit: call int_repair mov ah,4ch int 21hmain endpenter_key proc near mov ah,1 int 16h jnz enter_key_1 mov ax,0ffh stc ret ;没有内容自动返回 enter_key_1: mov ah,7 int 21h mov ah,0 cmp al,0 jnz enter_key_2 ;输入的是ASCII码(AL) mov ah,7 int 21h ;取扩展ASCII码(非字符码的功能键) mov ah,1 clc enter_key_2: mov word_single,1ret enter_key endpchange_place proc nearmov ah,02hmov bh,0mov dh,12mov dl,25int 10hretchange_place endpint_set proc nearclipush dsmov ah,35hmov al,1chint 21hmov old_seg,esmov old_off,bxmov ax,seg myfunctionmov ds,axmov dx,offset myfunctionmov ah,25hmov al,1chint 21hpop dsstiretint_set endpint_repair proc nearclimov ax,old_segmov ds,axmov dx,old_offmov ah,25hmov al,1chint 21hstiretint_repair endpadd_minutes proc near;进位控制mov ax,datamov ds,axinc s1cmp s1,10jne proc_endss1_equal_10:mov s1,0inc s2cmp s2,6jne proc_endss2_equal_6:mov s2,0inc m1cmp m1,10jne proc_endsm1_equal_10:mov m1,0inc m2cmp m2,10jne proc_endsm2_equal_6:mov m2,0inc h1cmp h2,2je h2_equal_2h2_no_equal_2:cmp h1,10jne proc_endsjmp inc_h2h2_equal_2:cmp h1,4jne proc_endsinc_h2:inc h2cmp h2,3jne proc_endsmov h2,0proc_ends:retadd_minutes endpprint_minute proc nearmov ax,datamov ds,axadd s1,48add s2,48add m1,48add m2,48add h1,48add h2,48mov ah,02hmov dl,h2int 21hmov dl,h1int 21hmov dl,':'int 21hmov dl,m2int 21hmov dl,m1int 21hmov dl,':'int 21hmov dl,s2int 21hmov dl,s1int 21hsub s1,48sub s2,48sub m1,48sub m2,48sub h1,48sub h2,48retprint_minute endpmyfunction proc near;1ch号中断替换函数climov ax,datamov ds,axcmp is_go_on,0je int_1c_endinc addition_5cmp addition_5,5jne no_equal_5equal_5:mov addition_5,0jmp equal_5_2no_equal_5:inc sub_countequal_5_2:cmp sub_count,18jne int_1c_endmov sub_count,0call add_minutes;时间进位call change_placecall print_minute int_1c_end:stiiretmyfunction endpcode endsend main