document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ;----------------------------------------------------------------------------------------
  2. ; TITLE : WRITE ALP TO SIMULATE RENAME COMMAND USING PSP.
  3. ;----------------------------------------------------------------------------------------
  4.  
  5. PRINT MACRO MSG
  6.  
  7.         LEA DX,MSG
  8.         MOV AH,09H
  9.         INT 21H
  10.  
  11. ENDM
  12.  
  13. DATA SEGMENT
  14.  
  15.         OLD     DB      10 DUP(?)
  16.         NEW     DB      40 DUP(?)
  17.         BUFFER  DB      1024 DUP(?)
  18.         FP      DW      ?
  19.         MSG1    DB      10,13," ERROR IN OPENING FILE...! $ "
  20.         MSG2    DB      10,13," FILE RENAMED...! $ "
  21.         COUNT   DW      ?
  22.  
  23. DATA ENDS
  24.  
  25. CODE SEGMENT
  26.  
  27. ASSUME CS : CODE, DS:DATA
  28.  
  29. START:
  30.         MOV AX,DATA
  31.         MOV DS,AX
  32.  
  33.         MOV AH,62H
  34.         INT 21H
  35.  
  36.         MOV ES,BX
  37.         MOV SI,80H
  38.         MOV CL,ES:[SI]
  39.         DEC CL
  40.         DEC CL
  41.  
  42.         MOV DI,82H
  43.         LEA SI,OLD
  44.  
  45. L3:
  46.         MOV DL,ES:[DI]
  47.         CMP DL," "
  48.         JE S3
  49.         MOV [SI],DL
  50.         DEC CL
  51.         JZ L4
  52.         INC SI
  53.         INC DI
  54.         JMP L3
  55.  
  56. S3:
  57.         LEA SI,NEW
  58.         INC DI
  59.         JMP L3
  60.  
  61. L4:
  62.         LEA DX,OLD
  63.         INT 21H
  64.  
  65.         JNC L1
  66.         JMP ERROR
  67.  
  68. L1:
  69.         MOV AH,56H
  70.         MOV DX,OFFSET OLD
  71.         MOV DI,SEG NEW
  72.         MOV ES,DI
  73.         MOV DI,OFFSET NEW
  74.         INT 21H
  75.  
  76.         MOV AH,3EH
  77.         MOV BX,FP
  78.         INT 21H
  79.         PRINT MSG2
  80.         JMP EXIT
  81.  
  82. ERROR :
  83.         PRINT MSG1
  84.         JMP EXIT
  85.  
  86. EXIT :
  87.         MOV AH,4CH
  88.         INT 21H
  89.  
  90. CODE ENDS
  91.  
  92. END START
  93.  
  94. ;----------------------------------------------------------------------------------------
  95. ; END OF THE PROGRAM
  96. ;----------------------------------------------------------------------------------------
');