home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / gst03.lbr / VBAR.ZZ0 / VBAR.Z80
Encoding:
Text File  |  1993-06-07  |  3.4 KB  |  154 lines
  1. ;********************************************************************
  2. ;
  3. ;    VBAR: A ZCPR 3.3+ compatible routine, using the version 4
  4. ;        libraries, to place draw a vertical bar on the screen
  5. ;        for use in alias scripts.
  6. ;
  7. ; Version 3.0D (July 7, 1990) - Updated and re-linked based upon 
  8. ;  VLIB4D and version 4 libraries.  Assembled with SLR's Z80ASM and 
  9. ;  linked with DRI's LINK.  Thanks go to Dave Ramsey for producing
  10. ;  an excellent set of command-level graphics tools.   Bob Dean
  11. ;
  12. ; Author: Dave Ramsey            Date: May 25, 1989
  13. ;  Versions 1.0 and 2.0.    
  14. ;
  15. ;********************************************************************
  16. ;
  17. ; VLIB/Z3LIB/SYSLIB references:
  18. ;
  19.     ext    gz3init,tinit,dinit,drvbar,vpstr
  20.     ext    eval10,argv
  21. ;
  22. ; Constants defined:
  23. ;
  24. VERSION    equ     3
  25. MONTH    equ     7
  26. DAY    equ     5
  27. YEAR    equ    90
  28. ;
  29. DOS    equ    5
  30. BUFFER    equ    080h
  31. CR    equ    13
  32. LF    equ    10
  33. ARGCNT    equ    5
  34. ; 
  35. start:
  36.     jp    main
  37.     db    'Z3ENV'
  38.     db    1
  39. z3eadr:    ds    2
  40. main:
  41.     ld    hl,(z3eadr)
  42.     call    gz3init
  43.     and    a,0fh
  44.     jr    nz,stack
  45.     ld    hl,oldtcpmsg
  46.     call    vpstr
  47.     ret
  48. ;
  49. ; setup stack...
  50. ;
  51. stack:
  52.     ld    hl,0
  53.     add    hl,sp
  54.     ld    (oldsp),hl
  55.     ld    hl,(DOS+1)
  56.     ld    l,0
  57.     ld    a,h
  58.     add    a,-8
  59.     ld    h,a
  60.     ld    sp,hl
  61. ;
  62. ; Get command line parms, there should be 5, and store results
  63. ;
  64.     ld    a,0ffh        ; null terminate argument strings
  65.     ld    hl,BUFFER+1
  66.     ld    de,tokentbl
  67.     call    argv
  68.     ld    a,(numtok)
  69.     cp    a,ARGCNT    ; did the user get it right?
  70.     jp    nz,gethelp    ; nope, tell him how to call us.
  71. ;
  72. ; Else, store parm results directly inline for the drbox call and execute
  73. ;
  74.     ld    hl,(parm1)
  75.     call    eval10
  76.     ld    (type),a
  77.     ld    hl,(parm2)
  78.     call    eval10
  79.     ld    (row),a        ; save row number
  80.     ld    hl,(parm3)
  81.     call    eval10
  82.     ld    (col),a        ; save column number
  83.     ld    hl,(parm4)
  84.     call    eval10
  85.     ld    (length),a    ; save height
  86.     ld    hl,(parm5)
  87.     call    eval10
  88.     ld    (direct),a    ; save width
  89. ;
  90. ; else... init terminal as per V4 lib conventions
  91. ;
  92.     call    tinit
  93. ;
  94. ; Call DRBOX routine to draw the box.
  95. ;
  96. linebox:
  97.     call    drvbar
  98. type:    db    0
  99. row:    db    0
  100. col:    db    0
  101. length: db    0
  102. direct:    db    0
  103.  
  104. ;
  105. ; deinit terminal and restore stack
  106. ;
  107. fini:
  108.     call    dinit
  109. ;
  110. fini2:
  111.     ld    hl,(oldsp)
  112.     ld    sp,hl
  113.     ret
  114. ;
  115. ;
  116. gethelp:
  117.     ld    hl,helpmsg
  118.     call    vpstr
  119.     jp    fini2
  120.  
  121. ;
  122. oldsp:    ds    2
  123. ;
  124. tokentbl:
  125. maxtok: db    ARGCNT    ; I don't want to see more than 5 arguments,
  126. numtok: db    0    ; but how many were there really?
  127. parm1:    ds    2    ; address arg 1 - bar type
  128. parm2:    ds    2    ; address arg 2 - row
  129. parm3:    ds    2    ; address arg 3 - col
  130. parm4:    ds    2    ; address arg 4 - length
  131. parm5:    ds    2    ; address arg 5 - direction
  132. ;
  133. ;
  134. helpmsg:
  135.     db    'VBAR, Version ',VERSION/10+'0','.',VERSION MOD 10+'0',CR,LF
  136.     db    'VBAR - Draws a vertical bar on the screen.',CR,LF
  137.     db    'Syntax:',CR,LF
  138.     db    '     VBAR <type> <row> <col> <length> <direction>',CR,LF
  139.     db    'Where:',CR,LF
  140.     db    '     <type> is an integer 1 for solid single wide, ',CR,LF
  141.     db    '            an integer 2 for solid double wide, ',CR,LF
  142.     db    '            an integer 3 for hashed single wide, or',CR,LF
  143.     db    '            an integer 4 for hashed double wide;',CR,LF
  144.     db    '     <row>  is the start row of the box on the screen;',CR,LF
  145.     db    '     <col>  is the start column on the screen;',CR,LF
  146.     db    '     <length> is the length of the bar; and',CR,LF
  147.     db    '     <direction> is 0 for top to bottom or',CR,LF
  148.     db    '            a 1 for bottom-to-top.',CR,LF,0
  149. ;
  150. oldtcpmsg:
  151.     db    'Extended TCAP not present.',CR,LF,0
  152. ;
  153.     end
  154.