home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MOD2SRC.ZIP / WORDADDR.MOD < prev    next >
Encoding:
Text File  |  1987-02-08  |  921 b   |  33 lines
  1.                                         (* Chapter 14 - Program 2 *)
  2. MODULE WordAddr;
  3.  
  4. FROM SYSTEM     IMPORT ADR,WORD,ADDRESS;
  5. FROM InOut      IMPORT WriteString,WriteCard,WriteLn;
  6.  
  7. VAR Index  : INTEGER;
  8.     CardNo : CARDINAL;
  9.     Peach  : ADDRESS;
  10.     MonoVideo[0B000H:0H]  : ARRAY[1..4000] OF CHAR;
  11.     ColorVideo[0B800H:0H] : ARRAY[1..4000] OF CHAR;
  12.  
  13. PROCEDURE PrintNumber(DatOut : WORD);
  14. VAR Temp : CARDINAL;
  15. BEGIN
  16.    WriteString("The value is ");
  17.    Temp := CARDINAL(DatOut);
  18.    WriteCard(Temp,4);
  19.    WriteLn;
  20. END PrintNumber;
  21.  
  22. BEGIN
  23.    Index := 17;
  24.    CardNo := 38;
  25.    Peach := ADR(Index);     (* Pointer to an INTEGER     *)
  26.    Peach := ADR(CardNo);    (* Pointer to a CARDINAL     *)
  27.    PrintNumber(Index);      (* Called with an INTEGER    *)
  28.    PrintNumber(CardNo);     (* Called with a CARDINAL    *)
  29.  
  30.    Peach := 0B000H:1A2H;    (* Pointer to Segment:Offset *)
  31.  
  32. END WordAddr.
  33.