BCSL-022
CONTENTS
Sl.No
Program description
1
2
Program to find factorial of a number.
Program to find 2s complement of a number.
Program to check whether a given string is palindrome or
3
not.
4
Program to check whether a given number is prime or not.
5
Program to add two numbers.
6
Program to sort numbers in ascending order.
7
Program to reverse a string.
8
Program to find whether a number is divisible by n.
9
Program to find square and cube of a number.
10
Program to find average of two numbers.
11
Program to determine the HCF of three n bit numbers.
12
Program to convert decimal number to binary number.
Program to convert decimal number to hexadecimal
13
number.
14
Program to convert ASCII to binary.
15
Program to display a string.
16
Program to print numbers counting from 0 to 9.
Program to count odd and even numbers from a list of data
17
segment.
18
Program to substract two 8 bit numbers.
19
Program to multiply two 8 bit numbers.
Program to accept a name from the user and check whether
20
the name is present in the defined table, if not present
then insert the name in the table
PROGRAM:1
Page No:
2
5
7
13
15
17
19
21
23
25
27
30
32
36
38
40
42
46
48
50
PROGRAM TO FIND FACTORIAL OF A NUMBER
DATA SEGMENT
A DB 5
DATA ENDS
CODE SEGMENT
ASSUME DS:DATA, CS:CODE
START:
MOV AX,DATA
MOV DS,AX
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
MOV AH,00
MOV AL,A
L1:
DEC A
MUL A
MOV CL,A
CMP CL,01
JNZ L1
MOV AH,4CH
INT 21H
CODE ENDS
END START
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
PROGRAM 2:
PROGRAM TO FIND 2s COMPLEMENT OF A NUMBER
DATA SEGMENT
A DW 003H
R DW 01 DUP ?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE, DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AX,A
ROL AX,01
NEG AX
MOV DI,OFFSET R
MOV [DI],AX
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
PROGRAM 3:
PROGRAM TO CHECK WHETHER A GIVEN STRING IS PALINDROME OR
NOT
DATA SEGMENT
STR1 DB 'MADAM','$'
STRLEN1 DW $-STR1
STRREV DB 20 DUP(' ')
STR_PALIN DB 'STRING IS PALINDROME.','$'
STR_NOT_PALIN DB 'STRING IS NOT PALINDROME.','$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE, DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
MOV CX,STRLEN1
ADD CX,-2
LEA SI,STR1
LEA DI,STRREV
ADD SI,STRLEN1
ADD SI,-2
L1:
MOV AL,[SI]
MOV [DI],AL
DEC SI
INC DI
LOOP L1
MOV AL,[SI]
MOV [DI],AL
INC DI
MOV DL,'$'
MOV [DI],DL
MOV CX,STRLEN1
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
PALIN_CHECK:
LEA SI,STR1
LEA DI,STRREV
REPE CMPSB
JNE NOT_PALIN
PALIN:
MOV AH,09H
LEA DX,STR_PALIN
INT 21H
JMP EXIT
NOT_PALIN:
MOV AH,09H
LEA DX,STR_NOT_PALIN
INT 21H
EXIT:
MOV AX,4C00H
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
CODE EXECUTION:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
BCSL-022
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
10
BCSL-022
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
11
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
12
BCSL-022
PROGRAM 4:
PROGRAM TO CHECK WHETHER A GIVEN NUMBER IS PRIME OR NOT
DATA SEGMENT
VAL1 DB ?
NL1 DB 0AH,0DH,'ENTER NO:','$'
NL2 DB 0AH,0DH,'NUMBER IS NOT PRIME','$'
NL3 DB 0AH,0DH,'NUMBER IS PRIME','$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA DX,NL1
MOV AH,09H
INT 21H
MOV AH,01H
INT 21H
SUB AL,30H
MOV VAL1,AL
MOV AH,00
MOV CL,2
DIV CL
MOV CL,AL
LBL1:
MOV AH,00
MOV AL,VAL1
DIV CL
CMP AH,00
JZ LBL2
DEC CL
CMP CL,1
JNE LBL1
JMP LBL3
LBL2:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
13
BCSL-022
MOV AH,09H
LEA DX,NL2
INT 21H
JMP EXIT
LBL3:
MOV AH,09H
LEA DX,NL3
INT 21H
EXIT:
MOV AH,4CH
INT 21H
CODE ENDS
END START
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
14
BCSL-022
PROGRAM 5:
PROGRAM TO ADD TWO NUMBERS
DATA SEGMENT
OPR1 DW 1234H
OPR2 DW 0002H
RESULT DW 01 DUP(?),'$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AX,OPR1
MOV BX,OPR2
CLC
ADD AX,BX
MOV DI,OFFSET RESULT
MOV [DI],AX
MOV AH,09H
MOV DX,OFFSET RESULT
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
15
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
16
BCSL-022
PROGRAM 6:
PROGRAM TO SORT NUMBERS IN ASCENDING ORDER
DATA SEGMENT
TAB DB 9,8,6,3,5,1
VAL1 DB 5
NL DB ' ','$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA BX,TAB
MOV DL,VAL1
L1:
LEA BX,TAB
MOV CL,5
L2:
MOV AL,[BX]
MOV DL, [BX+1]
CMP AL,DL
JB L3
MOV [BX], DL
MOV [BX+1],AL
L3:
INC BX
LOOP L2
MOV DL,VAL1
DEC DL
MOV VAL1,DL
CMP DL,00
JNE L1
MOV CL,06
LEA BX,TAB
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
17
BCSL-022
DISP:
LEA DX,NL
MOV AH,09H
INT 21H
MOV DL,[BX]
ADD DL,30H
MOV AH,02H
INT 21H
INC BX
LOOP DISP
MOV AH,4CH
INT 21H
CODE ENDS
END START
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
18
BCSL-022
PROGRAM 7:
PROGRAM TO REVERSE A STRING
.MODEL SMALL
.DATA
STR1 DB 5 DUP(' '),'$'
STR2 DB 5 DUP(' '),'$'
NL DB 0DH,0AH,'$'
.CODE
MAIN
PROC
MOV AX,@DATA
MOV DS,AX
LEA SI,STR1
LEA DI,STR2
MOV AH,01H
AGAIN:
INT 21H
CMP AL,0DH
JE NEXT
MOV [SI],AL
INC SI
JMP AGAIN
NEXT:
MOV AL,'$'
MOV [SI],AL
MOV AH,09H
LEA DX,NL
INT 21H
MOV CX,LENGTH STR1
ADD CX,1
CHECK:
DEC SI
MOV AL,[SI]
MOV [DI],AL
INC DI
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
19
BCSL-022
LOOP CHECK
MOV AL,'$'
MOV [DI],AL
MOV AH,09H
LEA DX,NL
INT 21H
LEA DX,STR2
INT 21H
MOV AH,4CH
INT 21H
.MAIN ENDP
.END MAIN
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
20
BCSL-022
PROGRAM 8:
PROGRAM TO FIND WHETHER A NUMBER IS DIVISIBLE BY N
DATA SEGMENT
A DB 10
B DB 02
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AX,00
MOV AL,A
MOV BL,B
DIV BL
CMP AH,00
JZ L1
MOV CL,A
MOV CH,00
JMP L2
L1:
MOV CH,A
MOV CL,00
L2:
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
21
BCSL-022
OUTPUT
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
22
BCSL-022
PROGRAM 9:
PROGRAM TO FIND SQUARE AND CUBE OF A NUMBER
DATA SEGMENT
A DB 5
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AH,00
MOV AL,A
MUL A
MOV BL,AL
MUL WORD PTR A
MOV BH,AL
MOV AX,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
23
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
24
BCSL-022
PROGRAM 10:
PROGRAM TO FIND AVERAGE OF TWO NUMBERS
DATA SEGMENT
A DB 90H
B DB 78H
AVGE DB ?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AL,A
ADD AL,B
MOV AH,00H
ADC AH,00H
MOV BL,02H
DIV BL
MOV AVGE,AL
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
25
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
26
BCSL-022
PROGRAM 11:
PROGRAM TO DETERMINE THE HCF OF THREE N BYTE NUMBERS
DATA SEGMENT
ARR DB 9,18,27
CNT DB 0
MIN DB 50
ANS DB ?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA DI,CNT
LEA SI,ARR
MOV CX,3
FINMIN:
MOV AH,BYTE PTR[SI]
CMP AH,MIN
JG INCSI
MOV MIN,AH
INC SI
LOOP FINMIN
JMP FINDHCF
INCSI:
INC SI
LOOP FINMIN
FINDHCF:
MOV CH,MIN
MOV CNT,0
MOV AX,00
CHK1:
MOV AH,00
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
27
BCSL-022
ADD CNT,1
CMP CNT,CH
JG EXT
LEA SI,ARR
MOV AL,BYTE PTR[SI]
DIV CNT
CMP AH,00
JNE CHK1
CHK2:
INC SI
MOV AH,00
MOV AL,BYTE PTR[SI]
DIV CNT
CMP AH,00
JNE CHK1
CHK3:
INC SI
MOV AH,00
MOV AL,BYTE PTR[SI]
DIV CNT
CMP AH,00
JNE CHK1
MOV AX,0000
MOV AL,CNT
MOV ANS,AL
CMP CNT,CH
JLE CHK1
EXT:
MOV AX,0
MOV AH,ANS
ADD ANS,30H
MOV AH,02H
MOV DH,00
MOV DL,ANS
INT 21H
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
28
BCSL-022
MOV AX,4C00H
INT 21H
CODE ENDS
END START
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
29
BCSL-022
PROGRAM 12:
PROGRAM TO CONVERT DECIMAL NUMBER TO BINARY NUMBER
DIS MACRO STR
MOV AH,09H
LEA DX,STR
INT 21H
ENDM
DATA SEGMENT
MSG2 DB "BINARY NUMBER IS: $"
STR1 DB 20 DUP ('$')
STR2 DB 20 DUP ('$')
NO DW 100
LINE DB 10,13,'$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA SI,STR1
MOV AX,NO
MOV BH,00
MOV BL,2
L1:
DIV BL
ADD AH,'0'
MOV BYTE PTR[SI],AH
MOV AH,00
INC SI
INC BH
CMP AL,00
JNE L1
MOV CL,BH
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
30
BCSL-022
LEA SI,STR1
LEA DI,STR2
MOV CH,00
ADD SI,CX
DEC SI
L2:
MOV AH,BYTE PTR[SI]
MOV BYTE PTR[DI],AH
DEC SI
INC DI
LOOP L2
DIS LINE
DIS MSG2
DIS STR2
MOV AH,4CH
INT 21H
CODE ENDS
END START
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
31
BCSL-022
PROGRAM 13:
PROGRAM TO CONVERT DECIMAL NUMBER TO HEXADECIMAL NUMBER
PRNSTR MACRO MSG
MOV AH,09H
LEA DX,MSG
INT 21H
ENDM
DATA SEGMENT
BUF1 DB "ENTER A DECIMAL NUMBER : $"
BUF2 DB 0AH, "INVALID DECIMAL NUMBER....$"
BUF3 DB 0AH, "EQUIVALENT HEXADECIMAL NUMBER IS : $"
BUF4 DB 6
DB 0
DB 6 DUP(0)
MULTIPLIER DB 0AH
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
PRNSTR BUF1
MOV AH,0AH
LEA DX,BUF4
INT 21H
MOV SI,OFFSET BUF4+2
MOV CL,BYTE PTR[SI-1]
MOV CH,00H
SUBSTRACT:
MOV AL,BYTE PTR[SI]
CMP AL,30H
JNB CONT1
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
32
BCSL-022
PRNSTR BUF2
JMP STOP
CONT1:
CMP AL,3AH
JB CONT2
PRNSTR BUF2
JMP STOP
CONT2:
SUB AL,30H
MOV BYTE PTR[SI],AL
INC SI
LOOP SUBSTRACT
MOV SI,OFFSET BUF4+2
MOV CL,BYTE PTR[SI-1]
MOV CH,00H
MOV AX,0000H
CALC:
MUL MULTIPLIER
MOV BL,BYTE PTR[SI]
MOV BH,00H
ADD AX,BX
INC SI
LOOP CALC
MOV SI,OFFSET BUF4+2
MOV BX,AX
MOV DX,0000H
MOV AX,1000H
CONVERT:
MOV CX,0000H
CONV:
CMP BX,AX
JB CONT3
SUB BX,AX
INC CX
JMP CONV
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
33
BCSL-022
CONT3:
CMP CX,0AH
JB CONT4
ADD CL,37H
JMP CONT5
CONT4:
ADD CL,30H
CONT5:
MOV BYTE PTR[SI],CL
INC SI
MOV CX,0010H
DIV CX
CMP AX,0000H
JNZ CONVERT
MOV BYTE PTR[SI],'$'
PRNSTR BUF3
PRNSTR BUF4+2
STOP:
MOV AX,4C00H
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
34
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
35
BCSL-022
PROGRAM 14:
PROGRAM TO CONVERT ASCII TO BINARY
DATA SEGMENT
A DB 0AH
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV CL,08H
MOV AH,00H
UP:
SHL AL,01H
MOV BL,AL
MOV AL,00H
ADC AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
MOV AL,BL
DEC CL
JNZ UP
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
36
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
37
BCSL-022
PROGRAM 15:
PROGRAM TO DISPLAY A STRING
DATA SEGMENT
STRING_1 DB 'ASSEMBLY LANGUAGE PROGRAM$'
STRING_2 DB 'TO DISPLAY A STRING$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA DX,STRING_1
MOV AH,09
INT 21H
MOV AH,2
MOV DL,0DH
INT 21H
MOV DL,0AH
INT 21H
LEA DX,STRING_2
MOV AH,9
INT 21H
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
38
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
39
BCSL-022
PROGRAM 16:
PROGRAM TO PRINT NUMBERS COUNTING FROM 0 TO 9
DATA SEGMENT
PROMPT DB 'THE COUNTING FROM 0 TO 9 IS: $ '
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
LEA DX,PROMPT
MOV AH,9
INT 21H
MOV CX,10
MOV AH,2
MOV DL,48
LOOP1:
INT 21H
INC DL
DEC CX
JNZ LOOP1
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
40
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
41
BCSL-022
PROGRAM 17:
TO COUNT NUMBER OF ODD AND EVEN NUMBERS IN A GIVEN LIST OF
DATA SEGMENT
DATA SEGMENT
LIST DW 002H,007H,0020H
EN EQU 3D
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
XOR BX,BX
XOR DX,DX
MOV CL,EN
MOV SI,OFFSET LIST
LP:
MOV AX,[SI]
ROR AX,01
JC ODD
ODD:
INC BX
EVN:
ADD SI,02
DEC CL
JNZ LP
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
42
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
43
BCSL-022
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
44
BCSL-022
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
45
BCSL-022
PROGRAM 18:
PROGRAM TO SUBSTRACT TWO 8 BIT NUMBERS
DATA SEGMENT
A DB 0AH
B DB 04H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AL,A
MOV BL,B
SUB AL,BL
MOV CH,02H
MOV CL,04H
MOV BH,AL
L1:
ROL BH,CL
MOV DL,BH
AND DL,0FH
CMP DL,09
JBE L2
ADD DL,07
L2:
ADD DL,30H
MOV AH,02
INT 21H
DEC CH
JNZ L1
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
46
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
47
BCSL-022
PROGRAM 19:
PROGRAM TO MULTIPLY TWO 8 BIT NUMBERS
DATA SEGMENT
A DB 09H
B DB 02H
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AH,0
MOV AL,A
MOV BL,B
MUL BL
MOV CH,04H
MOV CL,04H
MOV BX,AX
L1:
ROL BX,CL
MOV DL,BL
AND DL,0FH
CMP DL,09
JBE L2
ADD DL,07
L2:
ADD DL,30H
MOV AH,02
INT 21H
DEC CH
JNZ L1
MOV AH,4CH
INT 21H
CODE ENDS
END START
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
48
BCSL-022
OUTPUT:
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
49
BCSL-022
PROGRAM 20:
PROGRAM TO ACCEPT A NAME FROM USER AND CHECK WHETHER THE
NAME IS PRESENT IN DEFINED TABLE, IF NOT THEN INSERT THE NAME IN
THE TABLE
DATA SEGMENT
TABNAMES DB 'APPLE '
DB 'ORANGE '
DB 'PEACH '
DB 'CHIKOO '
DB 6 DUP (' '),'$'
ACCEPT LABEL BYTE
MAXLEN DB 7
ACTLEN DB ?
INPUT DB 7 DUP (' ')
FLAG DB 0
CR EQU 13
LF EQU 10
LINE DB CR,LF,'$'
EQ1 DB 'NAME IS PRESENT','$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MAIN PROC NEAR
MOV AX,DATA
MOV DS,AX
MOV ES,AX
CALL ACCEPTSTRING
MOV BX,0
L1:
MOV CX,6
LEA SI,TABNAMES[BX]
LEA DI,INPUT
REPE CMPSB
JE EQUAL
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
50
BCSL-022
ADD BX,CX
INC BX
CMP BX,19
JLE L1
JMP ADDNAME
EQUAL:
MOV AX,0900H
LEA DX,EQ1
INT 21H
JMP EXT
ADDNAME:
MOV CX,6
MOV BX,25
LEA SI,INPUT
LEA DI,TABNAMES[BX]
REP MOVSB
MOV AX,0900H
LEA DX,TABNAMES
INT 21H
EXT:
MOV AX,4C00H
INT 21H
MAIN ENDP
ACCEPTSTRING PROC NEAR
MOV AX,0A00H
LEA DX,ACCEPT
INT 21H
MOV CX,6
MOV BH,00
MOV BL,ACTLEN
CMP ACTLEN,6
JGE OK
SUB CL,ACTLEN
L2:
MOV INPUT[BX],20H
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
51
BCSL-022
INC BX
LOOP L2
OK:
MOV INPUT[BX],'$'
MOV AX,0900H
LEA DX,LINE
INT 21H
RET
ACCEPTSTRING ENDP
CODE ENDS
END START
OUTPUT:
*******************
END OF RECORD BOOK *************************
INDIRA GANDHI NATIONAL OPEN UNIVERSITY
52
