v2.0/source/EDLMES.ASM

   1         title   EDLIN Messages
   2
   3 ;-----------------------------------------------------------------------;
   4 ;                                                                       ;
   5 ;       Done for Vers 2.00 (rev 9) by Aaron Reynolds                    ;
   6 ;       Update for rev. 11 by M.A. Ulloa                                ;
   7 ;                                                                       ;
   8 ;-----------------------------------------------------------------------;
   9
  10 FALSE   EQU     0
  11 TRUE    EQU     NOT FALSE
  12
  13
  14         .xlist
  15         INCLUDE DOSSYM.ASM
  16         .list
  17
  18
  19 CODE    SEGMENT PUBLIC BYTE
  20 CODE    ENDS
  21
  22 CONST   SEGMENT PUBLIC BYTE
  23 CONST   ENDS
  24
  25 DATA    SEGMENT PUBLIC BYTE
  26         EXTRN   QFLG:BYTE,FCB2:BYTE
  27 DATA    ENDS
  28
  29 DG      GROUP   CODE,CONST,DATA
  30
  31 CODE SEGMENT PUBLIC BYTE
  32
  33 ASSUME  CS:DG,DS:DG,SS:DG,ES:DG
  34
  35         PUBLIC  QUIT,QUERY
  36         EXTRN   rest_dir:NEAR,CRLF:NEAR
  37
  38 QUIT:
  39         MOV     DX,OFFSET DG:QMES
  40         MOV     AH,STD_CON_STRING_OUTPUT
  41         INT     21H
  42         MOV     AX,(STD_CON_INPUT_FLUSH SHL 8) OR STD_CON_INPUT
  43         INT     21H              ;Really quit?
  44         AND     AL,5FH
  45         CMP     AL,"Y"
  46         JZ      NOCRLF
  47         JMP     CRLF
  48 NOCRLF:
  49         MOV     DX,OFFSET DG:FCB2
  50         MOV     AH,FCB_CLOSE
  51         INT     21H
  52         MOV     AH,FCB_DELETE
  53         INT     21H
  54         call    rest_dir                ;restore directory if needed
  55         INT     20H
  56
  57 QUERY:
  58         TEST    BYTE PTR [QFLG],-1
  59         JZ      RET9
  60         MOV     DX,OFFSET DG:ASK
  61         MOV     AH,STD_CON_STRING_OUTPUT
  62         INT     21H
  63         MOV     AX,(STD_CON_INPUT_FLUSH SHL 8) OR STD_CON_INPUT
  64         INT     21H
  65         PUSH    AX
  66         CALL    CRLF
  67         POP     AX
  68         CMP     AL,13           ;Carriage return means yes
  69         JZ      RET9
  70         CMP     AL,"Y"
  71         JZ      RET9
  72         CMP     AL,"y"
  73 RET9:   RET
  74
  75 CODE    ENDS
  76
  77 CONST   SEGMENT PUBLIC BYTE
  78
  79         PUBLIC  BADDRV,NDNAME,bad_vers_err,opt_err,NOBAK
  80         PUBLIC  NODIR,DSKFUL,MEMFUL,FILENM,BADCOM,NEWFIL
  81         PUBLIC  NOSUCH,TOOLNG,EOF,DEST,MRGERR,ro_err,bcreat
  82
  83 BADDRV  DB      "Invalid drive or file name$"
  84 NDNAME  DB      "File name must be specified$"
  85
  86 bad_vers_err db "Incorrect DOS version$"
  87 opt_err db      "Invalid Parameter$"
  88 ro_err  db      "Invalid operation: R/O file",13,10,"$"
  89 bcreat  db      "File Creation Error",13,10,"$"
  90
  91 NOBAK   DB      "Cannot edit .BAK file--rename file$"
  92 NODIR   DB      "No room in directory for file$"
  93 DSKFUL  DB      "Disk full-- write not completed$"
  94 MEMFUL  DB      13,10,"Insufficient memory",13,10,"$"
  95 FILENM  DB      "File not found",13,10,"$"
  96 BADCOM  DB      "Entry error",13,10,"$"
  97 NEWFIL  DB      "New file",13,10,"$"
  98 NOSUCH  DB      "Not found",13,10,"$"
  99 ASK     DB      "O.K.? $"
 100 TOOLNG  DB      "Line too long",13,10,"$"
 101 EOF     DB      "End of input file",13,10,"$"
 102 QMES    DB      "Abort edit (Y/N)? $"
 103 DEST    DB      "Must specify destination line number",13,10,"$"
 104 MRGERR  DB      "Not enough room to merge the entire file",13,10,"$"
 105
 106 CONST   ENDS
 107         END
 108