;----------------------------------------------------------------------------------------
; TITLE : WRITE ALP TO SIMULATE RENAME COMMAND USING PSP.
;----------------------------------------------------------------------------------------
PRINT MACRO MSG
LEA DX,MSG
MOV AH,09H
INT 21H
ENDM
DATA SEGMENT
OLD DB 10 DUP(?)
NEW DB 40 DUP(?)
BUFFER DB 1024 DUP(?)
FP DW ?
MSG1 DB 10,13," ERROR IN OPENING FILE...! $ "
MSG2 DB 10,13," FILE RENAMED...! $ "
COUNT DW ?
DATA ENDS
CODE SEGMENT
ASSUME CS : CODE, DS:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV AH,62H
INT 21H
MOV ES,BX
MOV SI,80H
MOV CL,ES:[SI]
DEC CL
DEC CL
MOV DI,82H
LEA SI,OLD
L3:
MOV DL,ES:[DI]
CMP DL," "
JE S3
MOV [SI],DL
DEC CL
JZ L4
INC SI
INC DI
JMP L3
S3:
LEA SI,NEW
INC DI
JMP L3
L4:
LEA DX,OLD
INT 21H
JNC L1
JMP ERROR
L1:
MOV AH,56H
MOV DX,OFFSET OLD
MOV DI,SEG NEW
MOV ES,DI
MOV DI,OFFSET NEW
INT 21H
MOV AH,3EH
MOV BX,FP
INT 21H
PRINT MSG2
JMP EXIT
ERROR :
PRINT MSG1
JMP EXIT
EXIT :
MOV AH,4CH
INT 21H
CODE ENDS
END START
;----------------------------------------------------------------------------------------
; END OF THE PROGRAM
;----------------------------------------------------------------------------------------