home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / pastrick / fastscr / writestr.asm < prev    next >
Encoding:
Assembly Source File  |  1991-12-10  |  1.2 KB  |  55 lines
  1. ;* -------------------------------------------------- *
  2. ;*                  WRITESTR.ASM                      *
  3. ;*       (c) 1991 Björn Brücher & DMV-Verlag          *
  4. ;* -------------------------------------------------- *
  5. DATA SEGMENT WORD PUBLIC
  6.  
  7.   EXTRN Bild : WORD          ; global in FARBTAB.PAS
  8.  
  9. DATA ENDS
  10.  
  11. ;* -------------------------------------------------- *
  12. CODE SEGMENT BYTE PUBLIC
  13.  
  14.      ASSUME CS:CODE,DS:DATA
  15.  
  16. PUBLIC WriteStr   ; PROCEDURE WriteStr(x, y : WORD;
  17.                   ;                    st   : STRING;
  18.                   ;                    att  : WORD);
  19.  
  20. WriteStr PROC NEAR
  21.  
  22.   PUSH   BP
  23.   MOV    BP, SP
  24.   PUSH   DS
  25.   MOV    ES, Bild            ; Bildschirmsegment
  26.   MOV    AX, SS:[BP+10]      ; y
  27.   MOV    BX, 160
  28.   MUL    BL
  29.   MOV    DI, SS:[BP+12]      ; x
  30.   SHL    DI, 1
  31.   ADD    DI, AX
  32.   LDS    SI, SS:[BP+6]       ; st
  33.   CLD
  34.   LODSB
  35.   XOR    CH, CH
  36.   MOV    CL, AL
  37.   JCXZ   b
  38.   MOV    AH, SS:[BP+4]       ; att
  39. a:
  40.   LODSB
  41.   STOSW
  42.   LOOP   a
  43. b:
  44.   POP    DS
  45.   POP    BP
  46.   RET    8
  47.  
  48. WriteStr ENDP
  49.  
  50. CODE ENDS
  51.      END
  52. ;* -------------------------------------------------- *
  53. ;*           Ende von WRITESTR.ASM                    *
  54.  
  55.