Advertisement
4C3

Page 136 Q : 8

4C3
Dec 2nd, 2018
561
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .MODEL SMALL
  2. .STACK 100H
  3. .DATA
  4. MSG1 DB "Enter a character : $"
  5. NEWL DB 0AH,0DH,"$"
  6. .CODE
  7. MAIN PROC
  8.    
  9.     MOV AX,@DATA
  10.     MOV DS,AX
  11.    
  12.     LEA DX,MSG1
  13.     MOV AH,9
  14.     INT 21H
  15.    
  16.     MOV AH,1
  17.     INT 21H
  18.    
  19.     MOV BH,AL    
  20.    
  21.     MOV CX,8
  22.     XOR BL,BL
  23.    
  24.     LEA DX,NEWL
  25.     MOV AH,9
  26.     INT 21H
  27.    
  28.     TOP:
  29.     SHL BH,1
  30.     JNC SKIP
  31.     INC BL
  32.     MOV DL,31h
  33.     MOV AH,2
  34.     INT 21H
  35.     JMP SKIP2
  36.     SKIP:
  37.     MOV DL,30h
  38.     MOV AH,2
  39.     INT 21H
  40.     SKIP2:
  41.     LOOP TOP
  42.    
  43.     LEA DX,NEWL
  44.     MOV AH,9
  45.     INT 21H
  46.    
  47.     MOV DL,BL
  48.     ADD DL,48
  49.     MOV AH,2
  50.     INT 21H
  51.    
  52.     MAIN ENDP
  53. END MAIN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement