PYRAMID

INCLUDE "EMU8086.INC"
.MODEL SMALL
.STACK 100H
.CODE
MAIN PROC

       MOV AH,1
       INT 21H
       SUB AL,30H
       MOV BL,0
       MOV CL,0
       MOV DL,-1
       PRINTN
       UP:
       CMP AL,0
       JL EXIT

       TOP:
       CMP CL,AL
       JL NEXT
       MOV CL,0
       DEC AL
       DEC AL

       PRINTN
       MOV BL,0
       INC DL
       JMP SPACE

       NEXT:
       PRINT "*"
       INC CL
       JMP TOP

       SPACE:
       CMP BL,DL
       JLE SPACE1
       JMP UP

       SPACE1:
       PRINT " "
       INC BL
       JMP SPACE




        EXIT: