home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PAS_0493.ZIP / CHARSETS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-04-23  |  1.4 KB  |  40 lines
  1. ─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 627 of 702                                                               
  3. From : Salim Samaha                        1:167/110.0          20 Apr 93  16:16 
  4. To   : Bernie Pallek                       1:247/128.0                           
  5. Subj : ASM to redefine charset                                                
  6. ────────────────────────────────────────────────────────────────────────────────
  7. Alright, try to solve this problem. The procedure I made in asm works as long
  8. as i don't pass the parameter data as an argument, that is as long as data is a
  9. const : array[1..16] of byte = (......);
  10.  
  11. Here is the procedure :
  12.  
  13. Procedure SetAsciiChar(Charnum : Word; Var Data); Assembler;
  14. ASM
  15.    mov ah,11h
  16.    mov al,10h
  17.    mov bh,10h
  18.    mov bl,0
  19.    mov cx,1      {set 1 character only}
  20.    mov dx,charnum     {what charnum to modify }
  21.    mov bp,seg data   {seg of the char}
  22.    mov es,bp
  23.    mov bp,offset data  {ofs of the char}
  24.    int 10h
  25. End;
  26.  
  27. Hope you can transform it so that Data can be passed as a parameter to the
  28. procedure. I'm new to this Pascal-ASM stuff. I you come up with anything, let
  29. me know.
  30.  
  31.  
  32. By the way, I'll tell you how to make textmode have 80chars x 43 chars in the
  33. next few days, I know of a way, give me time to try it.
  34.  
  35.                                 SAL
  36.  
  37. --- Maximus/2 2.01wb
  38.  * Origin: Programmer's Quest BBS (1:167/110)
  39.  
  40.