;******************************************************************** ; ; VBAR: A ZCPR 3.3+ compatible routine, using the version 4 ; libraries, to place draw a vertical bar on the screen ; for use in alias scripts. ; ; Version 3.0D (July 7, 1990) - Updated and re-linked based upon ; VLIB4D and version 4 libraries. Assembled with SLR's Z80ASM and ; linked with DRI's LINK. Thanks go to Dave Ramsey for producing ; an excellent set of command-level graphics tools. Bob Dean ; ; Author: Dave Ramsey Date: May 25, 1989 ; Versions 1.0 and 2.0. ; ;******************************************************************** ; ; VLIB/Z3LIB/SYSLIB references: ; ext gz3init,tinit,dinit,drvbar,vpstr ext eval10,argv ; ; Constants defined: ; VERSION equ 3 MONTH equ 7 DAY equ 5 YEAR equ 90 ; DOS equ 5 BUFFER equ 080h CR equ 13 LF equ 10 ARGCNT equ 5 ; start: jp main db 'Z3ENV' db 1 z3eadr: ds 2 main: ld hl,(z3eadr) call gz3init and a,0fh jr nz,stack ld hl,oldtcpmsg call vpstr ret ; ; setup stack... ; stack: ld hl,0 add hl,sp ld (oldsp),hl ld hl,(DOS+1) ld l,0 ld a,h add a,-8 ld h,a ld sp,hl ; ; Get command line parms, there should be 5, and store results ; ld a,0ffh ; null terminate argument strings ld hl,BUFFER+1 ld de,tokentbl call argv ld a,(numtok) cp a,ARGCNT ; did the user get it right? jp nz,gethelp ; nope, tell him how to call us. ; ; Else, store parm results directly inline for the drbox call and execute ; ld hl,(parm1) call eval10 ld (type),a ld hl,(parm2) call eval10 ld (row),a ; save row number ld hl,(parm3) call eval10 ld (col),a ; save column number ld hl,(parm4) call eval10 ld (length),a ; save height ld hl,(parm5) call eval10 ld (direct),a ; save width ; ; else... init terminal as per V4 lib conventions ; call tinit ; ; Call DRBOX routine to draw the box. ; linebox: call drvbar type: db 0 row: db 0 col: db 0 length: db 0 direct: db 0 ; ; deinit terminal and restore stack ; fini: call dinit ; fini2: ld hl,(oldsp) ld sp,hl ret ; ; gethelp: ld hl,helpmsg call vpstr jp fini2 ; oldsp: ds 2 ; tokentbl: maxtok: db ARGCNT ; I don't want to see more than 5 arguments, numtok: db 0 ; but how many were there really? parm1: ds 2 ; address arg 1 - bar type parm2: ds 2 ; address arg 2 - row parm3: ds 2 ; address arg 3 - col parm4: ds 2 ; address arg 4 - length parm5: ds 2 ; address arg 5 - direction ; ; helpmsg: db 'VBAR, Version ',VERSION/10+'0','.',VERSION MOD 10+'0',CR,LF db 'VBAR - Draws a vertical bar on the screen.',CR,LF db 'Syntax:',CR,LF db ' VBAR ',CR,LF db 'Where:',CR,LF db ' is an integer 1 for solid single wide, ',CR,LF db ' an integer 2 for solid double wide, ',CR,LF db ' an integer 3 for hashed single wide, or',CR,LF db ' an integer 4 for hashed double wide;',CR,LF db ' is the start row of the box on the screen;',CR,LF db ' is the start column on the screen;',CR,LF db ' is the length of the bar; and',CR,LF db ' is 0 for top to bottom or',CR,LF db ' a 1 for bottom-to-top.',CR,LF,0 ; oldtcpmsg: db 'Extended TCAP not present.',CR,LF,0 ; end