document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ;----------------------------------------------------------------------------------------
  2. ; ASSIGNMENT NO : 1C
  3. ; TITLE : WRITE ALP TO SIMULATE DELETE COMMAND USING PSP.
  4. ;----------------------------------------------------------------------------------------
  5.  
  6. PRINT MACRO MSG
  7.         MOV AH,09H
  8.         LEA DX,MSG
  9.         INT 21H
  10. ENDM
  11.  
  12. DATA SEGMENT
  13.  
  14.         SPACE DB "    $"
  15.         NEWL DB 10,13, "$"
  16.  
  17.         FNAME DB 100 DUP(?)
  18.         FP  DW ?
  19.         BUFFER DB 1024 DUP(\'$\')
  20.         CNT DW ?
  21.  
  22.         SUCCESS DB 10,13, "FILE OPERATION SUCCESSFUL$"
  23.         FAIL DB 10,13, "FILE OPERATION FAILED$"
  24.         CONTENTS DB 10,13, "CONTENTS OF THE FILE ARE$"
  25.  
  26. DATA ENDS
  27.  
  28. ASSUME CS:CODE ,DS:DATA
  29.  
  30. CODE SEGMENT
  31.  
  32. START:
  33.  
  34.         MOV AX,DATA
  35.         MOV DS,AX
  36.  
  37.         MOV AH,62H                      ;LOAD BASE ADDRESS OF PSP
  38.         INT 21H        
  39.                        
  40.         MOV ES,BX                       ;BX HAS BASE ADDRESS NOW LOADED IN ES
  41.         MOV SI,80H                      ;OFFSET OF FILE NAME
  42.         MOV CH,ES:[SI]              ;LENGTH OF FILE NAME
  43.         DEC CH
  44.         MOV SI,82H                      ;OFFSET OF FILE CONTENTS
  45.         LEA DI,FNAME
  46.  
  47. L1:                             ;LOOP TO MOVE FILE NAME IN FNAME
  48.         MOV BL,ES:[SI]
  49.         MOV [DI],BL
  50.         INC SI
  51.         INC DI
  52.         DEC CH
  53.         JNZ L1
  54.  
  55.         MOV AH,09H                      ;DISPLAY FILE NAME
  56.         LEA DX,FNAME
  57.         INT 21H
  58.  
  59.         MOV AH,41H                  ;INTERRUPT FOR DELETING THE FILR
  60.         MOV DX,SEG FNAME            ;DS:DX MUST POINT TO FILE NAME
  61.         MOV DS,DX
  62.         MOV DX, OFFSET FNAME
  63.         INT 21H
  64.  
  65.         JNC A1
  66.         PRINT FAIL
  67.         JMP END1
  68.  
  69.  
  70. A1:
  71.         PRINT SUCCESS
  72.  
  73.  
  74. END1:
  75.         MOV AH,4CH
  76.         INT 21H
  77.  
  78. CODE ENDS
  79.  
  80. END START
  81.  
  82. ;----------------------------------------------------------------------------------------
  83. ; END OF THE PROGRAM
  84. ;----------------------------------------------------------------------------------------
');