Directory of image this file is from
This file as a plain text file

/ SUBROUTINE IN SABR
/ SCHREIBT PUNKTE UND VEKTOREN AUF TERMINAL-DISPLAY 4010-1
/ BEARBEITUNG DES PLOT-10 VON TEKTRONIX
/  IA>0 :	HELLER VEKTOR NACH IX,IY
/  IA=0 :	ERREGT GRAPHIC MODE UND DUNKLER VEKTOR NACH IX,IY
/  IA<0 :	HELLER PUNKT NACH IX,IY
/ WIRD GERUFEN : CALL DIS(IA,IX,IY)
	ENTRY DIS
	DUMMY IAS
	DUMMY IXS
	DUMMY IYS
IAS,	BLOCK 2
IXS,	BLOCK 2
IYS,	BLOCK 2
IAPT,	IAS
PNTR,	0
CNTR,	0
XVAL,	0
YVAL,	0
GS,	35
US,	37
P1023,	1777
P780,	1414
BIT6,	40
BIT67,	140
BIT7,	100
DIS,	BLOCK 2
	TAD IAPT
	DCA PNTR
	TAD (-6
	DCA CNTR
A,	TAD I DIS
	INC DIS#
	DCA I PNTR
	INC PNTR
	ISZ CNTR
	JMP A
	TAD I IAS
	SNA
	JMP IDV
	SMA CLA
	JMP BRV
	TAD GS
	JMS CHOUT
	JMS SETXY
	TAD XVAL
	AND US
	TAD BIT7
	JMS CHOUT
	RETRN DIS
IDV,	TAD GS
	JMS CHOUT
BRV,	JMS SETXY
	RETRN DIS
SETXY,	0
	TAD I IXS
	SPA
	CLA
	DCA XVAL
	TAD XVAL
	CMA IAC
	TAD P1023
	SMA
	CLA
	TAD XVAL
	DCA XVAL
	TAD I IYS
	SPA
	CLA
	DCA YVAL
	TAD YVAL
	CMA IAC
	TAD P780
	SMA
	CLA
	TAD YVAL
	DCA YVAL
	TAD YVAL
	RTR
	RTR
	RAR
	AND US
	TAD BIT6
	JMS CHOUT
	TAD YVAL
	AND US
	TAD BIT67
	JMS CHOUT
	TAD XVAL
	RTR
	RTR
	RAR
	AND US
	TAD BIT6
	JMS CHOUT
	TAD XVAL
	AND US
	TAD BIT7
	JMS CHOUT
	JMP I SETXY
CHOUT,	0
B,	TSF
	JMP B
	TLS
	CLA
	JMP I CHOUT
	END