home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2HELLO.ZIP / HELLO.ASM next >
Assembly Source File  |  1988-01-21  |  855b  |  51 lines
  1.             PAGE    ,132
  2.             TITLE    OS/2 sample filter
  3.  
  4.             .286c
  5.             .xlist
  6.             .list
  7.  
  8.         extrn DosExit:far
  9.         extrn VioWrtTTY:far
  10.  
  11. dgroup     group    UPC_data
  12.  
  13. UPC_stack    segment para stack
  14.  
  15.         dw    256 dup('s')
  16.  
  17. UPC_stack    ends
  18.  
  19. UPC_data    segment para public 'auto'
  20.  
  21. msg0        db    'Hello World !!',0ah,0dh
  22. MSG0L        equ    $ - offset msg0
  23. bytesout    dw    0
  24.  
  25. UPC_data    ends
  26.  
  27. UPC_code    segment para public 'code'
  28.         assume cs:UPC_code,ds:UPC_data,es:UPC_data,ss:UPC_stack
  29.  
  30. main        proc
  31.         pusha
  32.  
  33. ; app. code goes here
  34. ;-------------------------------------------------------------------------
  35.         push    ds
  36.         mov    si,offset msg0
  37.         push    si
  38.         push    msg0l
  39.         push    0
  40.         call    VioWrtTTY
  41. ;-------------------------------------------------------------------------
  42.             popa
  43.         mov    ax,1
  44.         push    ax
  45.         mov    ax,0
  46.         push    ax
  47.         call DosExit
  48. main        endp
  49.  
  50. UPC_code    ends
  51.         end    main