home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / DRIVER / IBM / VW200 / VW200_2.EXE / HELLO / HELLO.S < prev    next >
Text File  |  1995-11-22  |  707b  |  38 lines
  1.  
  2.         include pccard.mac
  3.         include api.inc
  4.         include hello.inc
  5.  
  6.         data
  7.  
  8.         code
  9.  
  10. HelloMsg:
  11.         db      'H', 'e', 'l', 'l', 'o', ' ', ' ', ' ', ' ', ' ', ' ', ' '
  12.         db      'C', 'h', 'i', 'p', 'C', 'a', 'r', 'd', ' ', ' ', ' ', ' '
  13.         db      0
  14.  
  15. Hello:
  16.         push    ale
  17.  
  18.         API     CursorOff
  19.         xor     a, a
  20.         API     SetTextSize
  21.         API     ClearScreen
  22.  
  23.         ld      xp, #pod HelloMsg
  24.         ld      ix, #lod HelloMsg
  25.  
  26.         sub     hl, hl
  27.         API     PutStr
  28.  
  29. 1$:     halt
  30.         API     InKey
  31.         or      a, a
  32.         jr      z, 1$
  33.  
  34.         pop     ale
  35.         jp      [0feh]
  36.  
  37.         end
  38.