document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ;------------------------------------------------------------------------------------------
  2. ; ASSIGNMENT NO : 1A
  3. ; TITLE : WRITE ALP TO SIMULATE TYPE COMMAND USING PSP.
  4. ;------------------------------------------------------------------------------------------
  5.  
  6. PRINT MACRO MSG
  7.  
  8.         LEA DX,MSG
  9.         MOV AH,09H
  10.         INT 21H
  11.  
  12. ENDM
  13.  
  14. DATA SEGMENT
  15.  
  16.   FNAME   DB    20   DUP(\'$\')
  17.   BUFFER  DB    1024 DUP(\'$\')
  18.   FPTR    DW    ?
  19.   CNT     DW    ?
  20.  
  21.   MSGOPEN   DB     10,13," FILE OPEN SUCCESFULLY...! $ "
  22.   MSGREAD   DB     10,13," FILE READ SUCCESFULLY...! $ "
  23.   MSGERROR  DB     10,13," ERROR WHILE OPENING THE FILE...! $ "
  24.   MSGCLOSE  DB     10,13," FILE CLOSE SUCCESFULLY...! $ "      
  25.   MSGASCII  DB     10,13," ------------------------------------------------- $ "
  26.   MSGNEWL   DB     10,13," $ "
  27.  
  28. DATA ENDS
  29.  
  30. ASSUME CS:CODE, DS:DATA
  31.  
  32. CODE SEGMENT
  33.  
  34. START:
  35.         MOV AX,DATA
  36.         MOV DS,AX
  37.  
  38.         MOV AH,62H
  39.         INT 21H
  40.        
  41.         MOV ES,BX
  42.         MOV SI,80H
  43.         MOV CH,ES:[SI]
  44.  
  45.         DEC CH
  46.  
  47.         LEA DI,FNAME
  48.         MOV SI,82H
  49.  
  50. L1:     MOV DL,ES:[SI]
  51.         MOV [DI],DL
  52.         INC SI
  53.         INC DI
  54.         DEC CH
  55.         JNZ L1
  56.  
  57.         LEA DX,FNAME
  58.         MOV AH,09H
  59.         INT 21H
  60.  
  61.         LEA DX,FNAME
  62.         MOV AH,3DH
  63.         MOV AL,00H
  64.         INT 21H
  65.         MOV FPTR,AX
  66.  
  67.         JC  ERROR
  68.         JNC OPEN
  69.  
  70. ERROR :
  71.         PRINT MSGERROR
  72.         JMP EXIT
  73.  
  74. OPEN :
  75.         PRINT MSGOPEN
  76.          
  77.         MOV BX,FPTR
  78.         MOV AH,3FH
  79.         LEA DX,BUFFER
  80.         INT 21H
  81.         MOV CNT,AX
  82.         JNC READ
  83.         JC ERROR
  84.  
  85. READ :
  86.         PRINT MSGREAD
  87.         PRINT MSGNEWL
  88.         PRINT MSGASCII
  89.         PRINT MSGNEWL
  90.  
  91.         LEA SI,BUFFER
  92.         MOV CX,CNT
  93.  
  94. L2 :    MOV AH,02H
  95.         MOV DL,[SI]
  96.         INT 21H
  97.         INC SI
  98.         DEC CX
  99.         JNZ L2
  100.  
  101.         PRINT MSGASCII
  102.         PRINT MSGNEWL
  103.         PRINT MSGCLOSE
  104. EXIT :
  105.         MOV AH,4CH
  106.         INT 21H
  107.  
  108. CODE ENDS
  109.  
  110. END START
  111.  
  112. ;------------------------------------------------------------------------------------------
  113. ; END OF THE PROGRAM
  114. ;------------------------------------------------------------------------------------------
');