8086 Assembly Language Programs

ASSUME CS:CODE,DS:DATA DATA SEGMENT STR1 DB "THIS IS STRING ONE$" STR2 DB "THIS IS STRING TWO$" STR3 DB 0AH,"$" DATA ENDS CODE SEGMENT START: MOV AX,DATA MOV DS,AX LEA DX,STR1 MOV AH,09H INT 21H LEA DX,STR3 MOV AH,09H INT 21H LEA DX,STR2 MOV AH,09H INT 21H MOV AH,4CH INT 21H CODE ENDS END START

ASSUME CS:CODE,DS:DATA DATA SEGMENT STR1 DB 0AH,"PRIME NUMBER$" STR2 DB 0AH,"NOT A PRIME NUMBER$" STR3 DB "ENTER NUMBER :$" DIVIDEND DB ? DIVISOR DB ? DATA ENDS CODE SEGMENT START: MOV AX,DATA MOV DS,AX LEA DX,STR3 MOV AH,09H INT 21H MOV AH,01H INT 21H SUB AL,30H MOV DIVIDEND,AL mov ch,00h MOV CL,DIVIDEND DEC CL MOV DL,00H;FLAG L: MOV DIVISOR,CL MOV AH,00H MOV AL,DIVIDEND MOV BL,DIVISOR DIV BL CMP Ah,00H JnE SKIP cmp DIVISOR,01H JE S INC DL;FLAG S: SKIP: LOOP L DONE: CMP DL,00H      JE ELSE1                   LEA DX,STR2         JMP DISPLAY               ELSE1:             LEA DX,STR1         DISPLAY:             MOV AH,09H             INT 21H MOV AH,4CH INT 21H CODE ENDS END START

assume cs:code,ds:data data segment str1 db "First 5 number's of Fibonacci series are : 1$" data ends code segment start: mov ax,data mov ds,ax mov al,00h mov bl,01h mov ch,00h mov cl,04h LEA DX,STR1 MOV AH,09H INT 21H l: add al,bl;c=a+b mov dl,al ;c add dl,30h mov ah,02h int 21h sub dl,30h mov al,bl;a=b mov bl,dl;b=c loop l mov ah,4ch int 21h code ends end start