home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / DISPA.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  4.4 KB  |  155 lines
  1. ; File......: DISPA.ASM
  2. ; Author....: Mike Taylor
  3. ; Date......: $Date:   15 Aug 1991 23:06:48  $
  4. ; Revision..: $Revision:   1.2  $
  5. ; Log file..: $Logfile:   E:/nanfor/src/dispa.asv  $
  6. ; 
  7. ; This is an original work by Mike Taylor and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   E:/nanfor/src/dispa.asv  $
  14. ;  
  15. ;     Rev 1.2   15 Aug 1991 23:06:48   GLENN
  16. ;  Forest Belt proofread/edited/cleaned up doc
  17. ;  
  18. ;     Rev 1.1   14 Jun 1991 19:54:28   GLENN
  19. ;  Minor edit to file header
  20. ;  
  21. ;     Rev 1.0   01 Apr 1991 01:03:14   GLENN
  22. ;  Nanforum Toolkit
  23. ;  
  24. ;
  25.  
  26. .MODEL LARGE
  27. .CODE
  28.  
  29.         PUBLIC  __ft_vconfig
  30. __ft_vconfig PROC
  31.  
  32.         XOR     AX,AX           ; CLEAR AX
  33.         MOV     AH,0FH          ; BIOS FUNCTION 0FH, GET VIDEO MODE
  34.         INT     10H
  35.  
  36.         CMP     AL,7            ; DID BIOS RETURN MONO (= 7)?
  37.         jnz     v1              ; if no, then color
  38.         mov     ax,0b000h       ; yes, switch to mono segment
  39.         jmp     v2              ; bypass color assignment
  40. v1:
  41.         mov     ax,0b800h       ; color segment
  42. v2:
  43.         ret                     ; return segment in ax to caller
  44. __ft_vconfig ENDP
  45.  
  46.  
  47.  
  48.         PUBLIC  __ft_gotoxy
  49. __ft_gotoxy PROC
  50.  
  51.         push    bp              ; save the caller's bp register
  52.         mov     bp,sp           ; establish our base pointer into the stack
  53.         push    bx              ; save bx and dx registers
  54.         push    dx
  55.  
  56.         xor     ax,ax           ; clear ax register
  57.         xor     bx,bx           ; bx = 0 means video page 0
  58.         mov     dh, [bp + 8]    ; get y coordinate
  59.         mov     dl, [bp + 6]    ; get x coordinate
  60.         mov     ah,2            ; bios function 02h, set cursor position
  61.         int     10h
  62.  
  63.         xor     ax,ax           ; clear ax register
  64.  
  65.         pop     dx              ; restore caller's registers
  66.         pop     bx
  67.         pop     bp
  68.         ret
  69. __ft_gotoxy ENDP
  70.  
  71.  
  72.  
  73.         PUBLIC  __ft_fileread
  74. __ft_fileread PROC
  75.  
  76.         push    bp              ; save the caller's bp register
  77.         mov     bp,sp           ; establish our base pointer into the stack
  78.  
  79.         push    bx              ; save caller's registers
  80.         push    cx
  81.         push    dx
  82.         push    ds
  83.  
  84.         mov     bx,[bp + 6]     ; file handle
  85.         mov     dx,[bp + 8]     ; offset of buffer
  86.         mov     ax,[bp + 10]    ; segment of buffer
  87.         push    ax              ; make buffer segment into default data segment
  88.         pop     ds
  89.         mov     cx,[bp + 12]    ; byte count to read in
  90.         xor     ax,ax           ; clear ax register
  91.         mov     ah,3fh          ; dos function 3fh, file block read
  92.         int     21h
  93.  
  94.         jnc     fr1             ; if carry flag set then error occured
  95.         xor     ax,ax           ;   and notify by returning 0 bytes
  96.                                 ; otherwise ax will contain the actual
  97.                                 ; bytes read in.
  98.  
  99. fr1:
  100.         pop     ds              ; restore caller's registers
  101.         pop     dx
  102.         pop     cx
  103.         pop     bx
  104.         pop     bp
  105.  
  106.         ret
  107.  
  108. __ft_fileread ENDP
  109.  
  110.  
  111.  
  112.         PUBLIC  __ft_fileseek
  113. __ft_fileseek PROC
  114.  
  115.         push    bp              ; save the caller's bp register
  116.         mov     bp,sp           ; establish our base pointer into the stack
  117.         push    bx              ; save bx and cx registers
  118.         push    cx
  119.  
  120.         mov     bx,[bp + 6]     ; file handle
  121.         mov     cx,[bp + 10]    ; msb of long offset parameter
  122.         mov     dx,[bp + 8]     ; lsb of long offset parameter
  123.         mov     al,[bp + 12]    ; seek direction code
  124.         mov     ah,42h          ; dos function 42h, set file pointer
  125.         int     21h
  126.  
  127.         jnc     fs1             ; if carry flag not set, no error
  128.         xor     ax,ax           ; if error, clear pointer msb and lsb
  129.         xor     dx,dx
  130. fs1:
  131.         pop     cx              ; restore caller's registers
  132.         pop     bx
  133.         pop     bp
  134.         ret
  135. __ft_fileseek ENDP
  136.  
  137.  
  138.  
  139.         PUBLIC  __ft_getkey
  140. __ft_getkey PROC
  141.  
  142.         xor     ax,ax           ; clear ax register
  143.         mov     ah,07h          ; dos function 07h, get key pressed
  144.         int     21h
  145.  
  146.         mov     ah,0            ; zero out msb of ax to make sure returned
  147.  
  148.         ret                     ;   value is only a byte value
  149.  
  150. __ft_getkey ENDP
  151.  
  152.  
  153.         END
  154. 
  155.