v4.0/src/MAPPER/SVERIFY.ASM

   1 page 80,132
   2
   3 title CP/DOS DosSetVerify mapper
   4
   5 dosxxx  segment byte public 'dos'
   6         assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
   7
   8 ;**********************************************************************
   9 ;*
  10 ;*   MODULE:   dossetverify       Set new verify switch value
  11 ;*
  12 ;*   FILE NAME: dos054.asm
  13 ;*
  14 ;*   CALLING SEQUENCE:
  15 ;*
  16 ;*       push      word     verify setting
  17 ;*       call      dossetverify
  18 ;*
  19 ;*   MODULES CALLED:  PC-DOS Int 21h, ah=2eh, get verify setting
  20 ;*
  21 ;*********************************************************************
  22
  23             public   dossetverify
  24             .sall
  25             .xlist
  26             include  macros.inc
  27             .list
  28
  29 error_code  equ      0002h
  30
  31 str         struc
  32 old_bp      dw       ?
  33 return      dd       ?
  34 verify      dw       ?      ; new verify settings value
  35 str         ends
  36
  37 dossetverify proc    far
  38             Enter    dossetverify          ; push registers
  39
  40             mov      ax,[bp].verify        ; check request
  41             cmp      al,1                  ; for validity
  42             jg       error
  43
  44             mov      ah,2eh                ; setup new verify value
  45             int      21h
  46
  47             sub      ax,ax                 ; set good return code
  48             jmp      short exit            ; return
  49
  50 error:      mov      ax,error_code         ; set error return code
  51
  52 exit:       Mexit                          ; pop registers
  53             ret      size str - 6          ; return
  54
  55 dossetverify endp
  56
  57 dosxxx      ends
  58
  59             end