Google
 

Trailing-Edge - PDP-10 Archives - BB-J713A-BM - language-sources/pltglb.mac
There are 38 other files named pltglb.mac in the archive. Click here to see a list.
TITLE	PLTGLB
SUBTTL	/DZN	24-Aug-79


;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION


SEARCH	PLTPRM
SALL


CUSTVR==0		;CUSTOMER VERSION
DECVER==4		;DEC VERSION
DECMVR==1		;DEC MINOR VERSION
DECEVR==1220		;DEC EDIT VERSION
SUBTTL	REVISION HISTORY


;START OF VERSION 4A
;1217	Clean up the listings for release.
;1220	Release on both TOPS-10 and TOPS-20 as version 4A(1220).
	LOC 0
$DMN:	BLOCK 1
$LPBUF:	BLOCK 1
$POB:	BLOCK 3
$ERRFND:	BLOCK 1
$RESERV:	BLOCK 2
$X:	BLOCK 5
$Y:	BLOCK 5
$TOP:	BLOCK 1
$SIDE:	BLOCK 1
$.Q0:	BLOCK 1
$.Q1:	BLOCK 1
$.Q2:	BLOCK 1
$.Q3:	BLOCK 1
$.Q4:	BLOCK 1
$.Q5:	BLOCK 1
$PLTCHAR:	BLOCK 1
$IX:	BLOCK 1
$IY:	BLOCK 1
$RX:	BLOCK 1
$RY:	BLOCK 1
$CURX:	BLOCK 1
$CURY:	BLOCK 1
$SPC.X:	BLOCK 1
$SPC.Y:	BLOCK 1
$PENPOS:	BLOCK 1
	TWOSEG
	RELOC 400000

	DEFINE TMPOFF(A)<
	A=: $'A + .TEMP>

	TMPOFF	LPBUF
	TMPOFF	POB
	TMPOFF	ERRFND
	TMPOFF	X
	TMPOFF	Y
	TMPOFF	TOP
	TMPOFF	SIDE
	TMPOFF	.Q0
	TMPOFF	.Q1
	TMPOFF	.Q2
	TMPOFF	.Q3
	TMPOFF	.Q4
	TMPOFF	.Q5
	TMPOFF	PLTCHAR
	TMPOFF	IX
	TMPOFF	IY
	TMPOFF	RX
	TMPOFF	RY
	TMPOFF	CURX
	TMPOFF	CURY
	TMPOFF	SPC.X
	TMPOFF	SPC.Y
	TMPOFF	PENPOS
CEXIT.::
	EXP	CEXIT.+1
	HLRM	16,CEXIT1
	HRLI	16,304000
	HRRM	16,CEXIT2
CEXIT1:	EXCH	16,0
CEXIT2:	JRST	0

RAX$::	POPALL
	POPJ	P,0
FORER.::	HALT

	IFE	ALONE,<
	RELOC	0
STEPS::	EXP	^D100
LEAVES::	EXP	20
INCHES::	EXP	36
K::		EXP	0
LPBUF%:	BLOCK	^D2160
.TEMP:	BLOCK	50>
	IFN	ALONE,<
	EXTERN .TEMP>
SUBTTL	THE END


	END