SSEG   SEGMENT  STACK        
STR    DB       100 DUP(0)
SSEG   ENDS
DSEG   SEGMENT
S      DW      ?
DSEG   ENDS
CSEG   SEGMENT
       ASSUME  SS:SSEG,DS:DSEG
       ASSUME  CS:CSEG
START: MOV  AX,SSEG
       MOV  SS,AX
       MOV  AX,DSEG
       MOV  DS,AX               
       MOV  BX,1               
       MOV  AL,2                 
LP:    MOV  AH,AL               
       MOV  CL,AL            
       INC  AH                  
       MUL  AH                  
       ADD  BX,AX               
       CMP  BX,200               
       JA   STOP                  
                              
       MOV  AL,CL               
       INC  AL                  
       JMP  LP               
STOP:  MOV  S,BX               
       MOV  BL,CL              
       CALL DISP                 
       MOV  AH,4CH              
       INT  21H
DISP    PROC                  
    MOV DL,78
    MOV AH,02H
    INT 21H              
    MOV DL,61
    MOV AH,02H
    INT 21H               
    MOV CH, 2            
L:      MOV CL, 4           
        ROL BL, CL         
        MOV DL, BL         
        AND DL, 0FH         
        CMP DL, 10
        JB  NEXT            
        ADD DL, 7
NEXT:   ADD DL, 30H        
        MOV AH, 02H         
        INT 21H
        DEC CH            
        JNZ L
        RET                    
DISP    ENDP               
                           
CSEG    ENDS
        END  START