	.TITLE tsttype - Test of SCLI TYPE module
	.IDENT /1.4/

.REM |
*+	tsttype - Test of SCLI TYPE module

	File:tsttype.mac
	Version: 1.4
	Author:
	Last Edit: 15-MAY-1985 14:08:27 
	Last Update: 15-May-1985 14:09:28 
		     pass pointer to buffer, not buffer


*-
|
	.enable lc
	.LIBRARY /LB:[1,1]GLMAC.MLB/
	.MCALL call, GCCI$, exit$s

	.SBTTL dpbs

	.psect dpbs,d
;
; this psect holds the static dpbs
;
GCCI:	gcci$ cmdbuf,cblen		; don't execute this!



	.psect data,d,gbl,con
;
; use this psect for module-specific data which must be retained across
; calls to the module
;
cmdbuf:	.blkb	80.+g.ccbf	; gcci buffer

cblen = .-cmdbuf

ms23:	.asciz	/Hi there tt23!/
msti:	.asciz	/hi there ti: you dummy?/
	.even
bufptr:	.word 0		; holds address of output buffer

	.PSECT
; code goes in the blank psect

	.SBTTL TSTTYPE

.REM |
	This is the test program for SCLI module TYPE.
	It fakes out the GCCI parameters to TT23: - THIS IS HARDWIRED!
	It calls first to tt23:, then to ti:

|

START:
	mov	#cmdbuf, r0	; point to fake gcci buffer
	mov	#"TT, g.ccdv(r0)	; stuff tt23:
	movb	#23, g.ccun(r0)
	.globl	type
	mov	#ms23, bufptr
	call	type,5,<bufptr,0>
	mov	#msti, bufptr
	call	type,5,<bufptr,1>
	exit$s
	.end	start
