home *** CD-ROM | disk | FTP | other *** search
- name swchar
- page 60,132
- title Return the value of the switch character
- ;
- public swchar
- ;
- pgroup group prog
- dgroup group data
- ;
- data segment byte public 'data'
- data ends
- ;
- prog segment byte public 'prog'
- assume cs:pgroup, ds:dgroup
- ;------------------------------------------------------------------------------
- ; swchar()
- ;
- ; /* returns value of the switch character */
- ;
- swchar proc near
- ;
- mov ax,3700h ;function call
- int 21h ;call dos
- mov al,dl ;move the result over to ax
- xor ah,ah ;clear the high byte
- ret
- swchar endp
- ;
- prog ends
- ;
- end
-