Assignment Help, Cloud Based ERP System, Microsoft NAV Certification
WELCOME !!

Please Register, ask for assignment solutions & post the solutions if you know any.

LETS START POSTING YOUR IDEAS AND THOUGHTS AND BUILD THE COMMUNITY OF EXPERTS.

Assignment Help, Cloud Based ERP System, Microsoft NAV Certification

Stock Market, Online Tutoring, Cloud Based ERP System, Microsoft Dynamics Reporting, Microsoft Nav Certification


You are not connected. Please login or register

View previous topic View next topic Go down  Message [Page 1 of 1]

1 Move a line of text on 6th March 2009, 6:05 pm

diadem59

avatar
Administrator
TITLE Move the line of text entered by user from right to left in blue background and white foreground.

DOSSEG ;don't use 'DOSSEG' for emo8086
.MODEL SMALL
.STACK 64H
.DATA
REQ DB 'PLEASE TYPE A SENTENCE (80 Characters Max.)',0AH,0DH,'$'
REQ1 DB 'Enter any key to exit.','$'

MAX DB 80
ACT DB ?
CHAR DB 80 DUP (?)
CHAR1 DB 80 DUP (' ')

.CODE

MAIN PROC
MOV AX,@DATA
MOV DS,AX
MOV ES,AX

LEA DX,REQ ;Request user to type sentence
MOV AH,09H
INT 21H


MOV AH,0AH ;Read string
MOV DX,OFFSET MAX
AGAIN: INT 21H

TEST ACT,0FFH ; If no character is typed
JZ AGAIN

MOV AH,06H
MOV AL,00H
MOV BH,16H
MOV CX,0000
MOV DX,184FH
INT 10H

MOV CL,ACT ;copy characters from char to char1
MOV CH,0H
MOV SI,0
RE1:MOV AL,CHAR[SI]
MOV CHAR1[SI],AL
INC SI
LOOP RE1

LEA BP,CHAR1
MOV CX,1H ;length initially 1
MOV DH,5 ;5th Row
MOV DL,80 ;Last column
MOV AL, 01
MOV BX,17H
MOV AH,13H

NXT:DEC DL
INT 10H

CALL DELAY
INC CX

TEST DL,0FFH
JNZ NXT

LEA DX,REQ1 ;Request user to enter a key
MOV AH,09H
INT 21H

MOV AH,07 ;To get key begore exit
INT 21H

MOV AX,4C00H
INT 21H
MAIN ENDP

DELAY PROC
PUSH CX ;delay
MOV CX,01H
RE: LOOP RE
POP CX
RET
DELAY ENDP

END MAIN

View user profile

View previous topic View next topic Back to top  Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum