Google
 

Trailing-Edge - PDP-10 Archives - BB-4172H-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/PY/PAH				6-Jan-83


;COPYRIGHT (C) 1973, 1983 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.


SEARCH	PLTPRM
SALL


CUSTVR==0		;CUSTOMER VERSION
DECVER==5		;DEC VERSION
DECMVR==1		;DEC MINOR VERSION
DECEVR==2026		;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).
;1264	Use .TEMP2 instead of .TEMP

;Start of Version 5.1
;2026	Clean up the listing for release.
	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 + .TEMP2>		;;[1264]

	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
.TEMP2:	BLOCK	50>			;[1264]
	IFN	ALONE,<
	EXTERN .TEMP2>			;[1264]
SUBTTL	THE END


	END