code segment
s:db 9,8,7,4,2,0
s1:db '/','/',' ',':',':',' '
start:mov dx,0b800h ；主程序
mov ds,dx
mov si,160*12+39*2
mov dx,code
mov es,dx
mov bx,offset s
mov di,offset s1
mov cx,6
a:call zh ;调用子和序
loop a
mov ax,4c00h ；主和序结束
int 21h
zh: push cx ;了程序
mov al,es:[bx]
out 70h,al
in al,71h
mov ah,al
mov cl,4
shr ah,cl
and al,00001111B
add ah,30h
add al,30h
mov [si],ah
mov 1[si],24h ;上色
mov 2[si],al
mov 3[si],24h
mov dl,es:[di]
mov 4[si],dl
mov 5[si],24h
add si,6
inc di
inc bx
pop cx
ret
code ends
end start |
