DATA SEGMENT
     ORG  0100H
     MEM DB 4 DUP(?)
DATA ENDS
CODE SEGMENT
   ASSUME CS:CODE,DS:DATA
MAIN PROC FAR
     MOV AX,DATA
     MOV DS,AX
     MOV AX,2A48H
     MOV CX,4
     MOV DI,3
  L1:PUSH CX
     MOV CL,4
     ROL AX,CL
     MOV BX,AX
     AND BX,0FH
     ADD BX,30H
     CMP BX,3AH
     JB L2
     ADD BX,7
 L2:MOV MEM[DI],BL
    DEC DI
    POP CX
    LOOP L1
    MOV AH,4CH
    INT 21H
MAIN ENDP
CODE ENDS
     END MAIN