v4.0/src/MAPPER/QVERIFY.ASM

   1 ;
   2 page 80,132
   3 ;
   4 title CP/DOS DosQVerify mapper
   5 ;
   6 dosxxx  segment byte public 'dos'
   7         assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
   8 ;
   9 ;**********************************************************************
  10 ;*
  11 ;*   MODULE:   dosqverify       Returns the value of the verify flag
  12 ;*
  13 ;*   FILE NAME: dos041.asm
  14 ;*
  15 ;*   CALLING SEQUENCE:
  16 ;*
  17 ;*       push@     word     verify setting
  18 ;*       call      dosqverify
  19 ;*
  20 ;*   MODULES CALLED:  PC-DOS Int 21h, ah=54h, get verify setting
  21 ;*
  22 ;*********************************************************************
  23
  24             public   dosqverify
  25             .sall
  26             .xlist
  27             include  macros.inc
  28             .list
  29
  30 str         struc
  31 old_bp      dw       ?
  32 return      dd       ?
  33 verify      dd       ?     ; return data area pointer
  34 str         ends
  35
  36 dosqverify  proc    far
  37             Enter   dosqverify             ; save registers
  38
  39             mov      ah,54h
  40             int      21h                   ; get verify flag setting
  41
  42             lds      si,[bp].verify        ; setup return data area
  43             cbw                            ; fill word
  44             mov      word ptr [si],ax      ; save verify flag setting
  45             sub      ax,ax                 ; set good return code
  46
  47 exit:       Mexit                          ; pop registers
  48             ret      size str - 6          ; return
  49
  50 dosqverify  endp
  51
  52 dosxxx      ends
  53
  54             end