jt.asm

本程序是汇编语言的一些基本功能的组合

DELAY MACRO T
 LOCAL XHM1,XHM2
 MOV DI,T
XHM1:
 MOV SI,0FFFFH
XHM2:
 DEC SI
 JNZ XHM2
 DEC DI
 JNZ XHM1
ENDM
;----------------
SPACE MACRO N
 LOCAL NEXTM
 MOV AH,2
 MOV DL,20H
 MOV CX,N
NEXTM:
 INT 21H
 LOOP NEXTM
ENDM
;----------------
DISP MACRO
 LEA DX,A
 MOV AH,9
 INT 21H
 MOV DL,0DH
 MOV AH,2
 INT 21H
ENDM
;----------------
DATA SEGMENT
 A DB '>--->>$'
DATA ENDS
CODE SEGMENT
 ASSUME CS:CODE,DS:DATA
START:
 MOV AX,DATA
 MOV DS,AX
TOP:
 MOV CX,1
XH:
 DELAY 8FFH
 PUSH CX
 SPACE CX
 DISP
 POP CX
 INC CX
 CMP CX,72
 JE TOP
 JMP XH
 MOV AH,4CH
 INT 21H
CODE ENDS
 END START