/Assembly/Program in assembly language to find even numbers from 1 to 10

Program in assembly language to find even numbers from 1 to 10

 .MODEL SMALL
 .STACK 100H

 .DATA
    PROMPT_1  DB  \'Enter the number from 0 to 9 : $\'
    PROMPT_2  DB  0DH,0AH,\'The number is : $\'

 .CODE
   MAIN PROC
     MOV AX, @DATA                ; initialize DS
     MOV DS, AX                   

     LEA DX, PROMPT_1             ; load and print PROMPT_1
     MOV AH, 9
     INT 21H

     MOV AH, 1                    ; read a digit
     INT 21H

     MOV BL, AL                   ; save the digit in BL 

     LEA DX, PROMPT_2             ; load and print PROMPT_2
     MOV AH, 9
     INT 21H

     TEST BL, 01H                 ; check the digit for even or odd

     JNE @ODD                     ; jump to label @ODD if the number is odd  

     MOV AH, 2                    ; print the letter \'E\'
     MOV DL, \"E\"
     INT 21H

     JMP @EXIT                    ; jump to the label @EXIT

     @ODD:                        ; jump label
       MOV AH, 2                  ; print the letter \'O\'
       MOV DL, \"O\"
       INT 21H

     @EXIT:                       ; jump label

     MOV AH, 4CH                  ; return control to DOS
     INT 21H
   MAIN ENDP 
 END MAIN

Similar codes

0 vote212 views1 answer
Creating a sparse-file with dd
Assembly
0 vote206 views1 answer
ARM assembly divide by 2
Assembly
0 vote206 views1 answer
Vba concatenate strings and integer
Assembly
0 vote216 views1 answer
Add text to image ffmpeg command
Assembly
0 vote231 views1 answer
Error: failed to synchronize all the database archlinux
Assembly
0 vote214 views1 answer
Chrome extension debug log messages
Assembly
0 vote203 views1 answer
Bidirectional binding between string Property and integerproperty
Assembly
0 vote228 views1 answer
That long word from mary poppins
Assembly
0 vote208 views1 answer
Vba check if shape name exists
Assembly
0 vote205 views1 answer
Cron job when not enough time
Assembly