; The direct carriage return procedure ends.
; . Com file format
code segment
Main process is far away
Suppose cs:code, ds:code
org 100h
Start:
Push CS
Popular digital camera
NN 1:
MOV, 02
MOV DL，0DH
INT 2 1H
MOV DL，0AH
INT 2 1H
mov ah，0 1
int 2 1h
cmp al，0dh
jnz goon
End of jmp
Idiot:
Push axe
mov ah，09
lea dx，s 1
int 2 1h
Bangalore torpedo
Call disp 1
JMP NN 1
endd:
INT 20H
s 1 DB ' ASCII = = = = = = = = = > '，24H
Main end
; -
disp 1 proc near
MOV· bly
mov cx，8
Next:
shl BL， 1； shift left logical
JC IS_ 1
MOV DL，30H
JMP XS 1
IS_ 1:
MOV DL，3 1H
XS 1:
MOV, 02
INT 2 1H
Next cycle
Soak in water to soften
disp 1 endp
; -
End of code
End start
The following are the running results:
7 ASCII = = = = = = = = & gt00 1 10 1 1 1
6 ASCII = = = = = = = = & gt00 1 10 1 10
2 ASCII = = = = = = = = & gt00 1 100 10
3 ASCII = = = = = = = = & gt00 1 100 1 1
b ASCII = = = = = = = = & gt0 1 1000 10
s ASCII = = = = = = = = & gt0 1 1 100 1 1
d ASCII = = = = = = = = & gt0 1 100 100
h ASCII = = = = = = = = & gt0 1 10 1000
j ASCII = = = = = = = = & gt0 1 10 10 10
x ASCII = = = = = = = = & gt0 1 1 1 1000
8 ASCII = = = = = = = = & gt00 1 1 1000
j ASCII = = = = = = = = & gt0 1 10 10 10
f ASCII = = = = = = = = & gt0 1 100 1 10
e ASCII = = = = = = = = & gt0 1 100 10 1