STA SEGMENT STACK
DW 40H DUP(?)
TOP LABEL WORD
STA ENDS
CODE SEGMENT
ASSUME CS:CODE
MAIN PROC FAR
MOV AX,STA
MOV SS,AX
MOV SP,TOP
MOV DL,30H
MOV CH,5
MOV BX,4D3CH
ROL BX,1
PUSH BX
AND BL,1
ADD DL,BL
MOV AH,2
INT 21H
L1:POP BX
MOV DL,30H
MOV CL,3
ROL BX,CL
PUSH BX
AND BL,7
ADD DL,BL
MOV AH,2
INT 21H
DEC CH
JNE L1
MOV AH,4CH
INT 21H
MAIN ENDP
CODE ENDS
END MAIN