.TITLE	VT100 - TEST FOR RETROGRAPHICS VT100 & SFGL70

.GLOBL	VT100

.GLOBL	BAUD,ERASE,WINDOW



VT100:	MOV	#ARGBK1,R5	;SET UP FOR CALL TO BAUD
	CALL	BAUD		;SET THE BAUD RATE TO 2400
VT10:	CALL	ERASE		;ERASE THE SCREEN
	MOV	#ARGBK2,R5	;SET UP TO CALL WINDOW
	CALL	WINDOW		;PUT UP GRID WITH TIC MARKS
	BR	VT10



ARGBK1:	.WORD	1		;# ARGS
	.WORD	BAUDRT		;PTR TO REQUESTED BAUD RATE
BAUDRT:	.WORD	2400.		;BAUD RATE
ARGBK2:	.WORD	9.		;# ARGS
	.WORD	XLABEL		;PTR TO X LABEL
	.WORD	XMAX		;PTR TO X MAX
	.WORD	XMIN		;PTR TO X MIN
	.WORD	YAXLOC		;PTR TO Y AXIS LOCATION
	.WORD	YLABEL		;PTR TO Y LABEL
	.WORD	YMAX		;PTR TO Y MAX
	.WORD	YMIN		;PTR TO Y MIN
	.WORD	XAXLOC		;PTR TO X AXIS LOCATION
	.WORD	MAXFLG		;PTR TO MAX FLAG
XLABEL:	.ASCIZ	'THIS IS THE X AXIS'
	.EVEN
XMAX:	.FLT4	100.
XMIN:	.FLT4	0.
YAXLOC:	.FLT4	0.
YLABEL:	.ASCIZ	'THIS IS THE Y AXIS'
	.EVEN
YMAX:	.FLT4	100.
YMIN:	.FLT4	0.
XAXLOC:	.FLT4	0.
MAXFLG:	.WORD	-1		;DON'T DISPLAY X & Y MAX

	.END	VT100