File LINE.SB (8k SABR macro assembler source file)

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


/UNTERPROGRAMM ZUR AUSGABE EINES VEKTORS
/AUFRUF:
/CALL LINE (X,Y,FACT,LJ,LXADR,LYADR,LK,LN)
/ZUR ERKLAERUNG DER EINZELNEN PARAMETER 
/SIEHE BESCHREIBUNG

	ENTRY LINE

	DUMMY X
	DUMMY Y
	DUMMY FACT
	DUMMY LJ
	DUMMY LXADR1
	DUMMY LYADR1
	DUMMY LK
	DUMMY LN
	DUMMY LXADR
	DUMMY LYADR

X,	BLOCK 2
Y,	BLOCK 2
FACT,	BLOCK 2
LJ,	BLOCK 2
LXADR1,	BLOCK 2
LYADR1,	BLOCK 2
LK,	BLOCK 2
LN,	BLOCK 2
LXADR,	BLOCK 2
LYADR,	BLOCK 2

XPNT,	X
PNTR,	0
CNTR,	0

LINE,	BLOCK 2

	TAD XPNT
	DCA PNTR
	TAD (-20
	DCA CNTR
A1,	TAD I LINE
	INC LINE#
	DCA I PNTR
	INC PNTR
	ISZ CNTR
	JMP A1
	TAD I LXADR1
	DCA LXADR#
	TAD X
	DCA LXADR
	TAD I LYADR1
	DCA LYADR#
	TAD X
	DCA LYADR

TAD I LK SMA CLA JMP LET1 TAD I LK CIA DCA I LK IAC LET1, DCA PENUP TAD I LN CIA DCA LNCNT TAD I LJ DCA LLJ DCA I LJ TAD LLJ CIA DCA LJCNT CMA DCA FMVE LAGN, TAD I LXADR TAD I X DCA BX TAD I LYADR TAD I Y DCA BY TAD PENUP ISZ FMVE SKP CLA CLL JMS ADGMOVE ISZ LJCNT JMP LET2 CLA CLL TAD LLJ CIA DCA LJCNT LET2, TAD LXADR# TAD I LK DCA LXADR# TAD LYADR# TAD I LK DCA LYADR# ISZ LNCNT JMP LAGN RETRN LINE LNCNT, 0 LJCNT, 0 LLJ, 0 PENUP, 0 FMVE, 0 ADGMOVE, 0 SZA JMP ADG2 DCA HBZ ADG1, TAD BX DCA HBX TAD BY DCA HBY CALL 3,PLOTX ARG HBX ARG HBY ARG HBZ JMP I ADGMOVE ADG2, DCA HBZ JMP ADG1 BX, 0 BY, 0 HBX, 0 HBY, 0 HBZ, 0 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search