輸出廣告

 data segment new1 db 'impossible is nothing',13,10,'$' new2 db 'newsb',13,10,'$' new3 db 'newsc',13,10,'$' new4 db 'newsd',13,10,'$' new5 db 'newse',13,10,'$' new6 db 'newsf',13,10,'$' new7 db 'newsg',13,10,'$' new8 db 'newsh',13,10,'$' new9 db 'newsi',13,10,'$' new10 db 'newsj',13,10,'$' i db '0' news dw new1,new2,new3,new4,new5,new6,new7,new8,new9,new10 data ends code segment main proc far assume cs:code,ds:data start: mov ax,data mov ds,ax mov cx,10 mov bx,offset news display: mov dx,news[si] mov ah,9 int 21h call SUB_DELAY jmp judge SUB_DELAY PROC NEAR PUSH AX PUSH BX PUSH CX PUSH DX PUSHF MOV AH, 2CH INT 21H INC DH ;系統秒數個數加1 MOV BL, DH CMP BL, 3CH ;如果是60 JNE SUB_TIMER XOR BL, BL ;BL置0 SUB_TIMER: MOV AH, 2CH INT 21H ;獲取系統時間 CMP BL, DH ;秒數十位置0，只比較個數 JE SUB_RET ;如果到了下一秒，則返回 JMP SUB_TIMER SUB_RET:POPF POP DX POP CX POP BX POP AX RET SUB_DELAY ENDP judge: add si,2 dec cx cmp cx,0 jnz display jz exit exit: mov ah,4ch int 21h main endp code ends end start