home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / swdemo15.lbr / SWSYSTCP.AZM / SWSYSTCP.ASM
Encoding:
Assembly Source File  |  1989-02-28  |  1.5 KB  |  55 lines
  1. ;*********************************************************
  2. ;
  3. ; SWIND Windowing Library Demo
  4. ; Eugene Nolan
  5. ;
  6. ; For the users of non-Z3 systems, this
  7. ; file is an overlay for the SWIND demo
  8. ; program that allows you to specify to the
  9. ; demo your terminal capabilities
  10. ;
  11. ; It is meant to be assembled to a .HEX file and
  12. ; overlayed upon the Demo .COM file.
  13. ;
  14. ; Mload Demo=Demo.com,systcp.hex
  15. ;
  16. ; The only capabilities that the demo require is
  17. ; the cursor move and clear screen. If your terminal
  18. ; has some sort of standout video mode, that will be
  19. ; made use of, but is not required.
  20. ;
  21. ; Terminal Capabilities Data
  22. ;
  23.     org    10bh
  24.  
  25.     db    10            ;Proc speed in MHZ
  26. wtcap:
  27.     DB    'NOLAN           '    ;Name of Terminal, EXACTLY 16 long
  28.     DB    'E'-'@'            ;Cursor UP     Not used
  29.     DB    'X'-'@'            ;Cursor DOWN     by
  30.     DB    'S'-'@'            ;Cursor RIGHT    the
  31.     DB    'D'-'@'            ;Cursor LEFT    windowing library
  32.  
  33. ; The next three bytes specify the delay in ms after giving the
  34. ; terminal the given command
  35.  
  36.     DB    00            ;Delay for clear screen
  37.     DB    00            ;Delay for cursor move
  38.     DB    00            ;Delay for clear to end of line
  39.  
  40.                     ;terminate the next entries with a 0
  41.  
  42.     DB    1bh,'H',1bh,'J',0    ;CLear screen String
  43.     DB    1bh,'Y%+ %+ ',0        ;Cursor Move String
  44.     DB    1bh,'K',0        ;Clear to Eol String
  45.     DB    1bh,5,0            ;Start standout String
  46.     DB    1bh,6,0            ;Stop standout String
  47.     DB    0            ;Terminal Init String
  48.     DB    0            ;Terminal dEinit String
  49.  
  50.  
  51.     ds    80H-($-wtcap)        ; make exactly 80H bytes long
  52. ;  End of Environment Descriptor
  53. ;
  54.     end
  55.