home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 554 / JUIN / ASMARRAY.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-07  |  983b  |  39 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 517 of 614
  3. From : Fred Johnson                        1:280/5.0            17 Jun 93  21:51
  4. To   : Colin Chow
  5. Subj : array access in tp/asm
  6. ────────────────────────────────────────────────────────────────────────────────
  7.  
  8.    TO: Colin Chow
  9. Subject: array access in tp/asm
  10.  
  11. CC> Can anyone please post me a simple example on how to access
  12. CC> the contents of an array in tp'asm? Preferably an array[1..4] of
  13. CC> byte = (for ie.) 1,20,3,7.
  14. }
  15.  
  16. var
  17.    xArray : array[1..4] of byte;
  18.  
  19. begin
  20.    xArray[1] := ord('a');
  21.    xArray[2] := ord('b');
  22.    xArray[3] := ord('c');
  23.    xArray[4] := ord('$');
  24.  
  25.    asm
  26.       mov  ah, 0ah
  27.       mov  al, byte ptr OFFSET xArray+3; {print 4th element}
  28.       xor  bx, bx
  29.       mov  cx, 1h;
  30.       int  10h
  31.    end;
  32.    writeln;
  33.    asm
  34.       mov  dx,  OFFSET xArray; {Do the whole string}
  35.       mov  ah,  09h
  36.       int  21h
  37.    end;
  38. end.
  39.