mirror of
https://github.com/PDP-10/stacken.git
synced 2026-03-01 17:26:38 +00:00
127 lines
2.4 KiB
Plaintext
127 lines
2.4 KiB
Plaintext
TITLE PLTGLB
|
||
SUBTTL /DZN/PY/PAH/HD/RJF 5-Feb-88
|
||
|
||
;COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1973,1986,1988.
|
||
; ALL RIGHTS RESERVED.
|
||
;
|
||
;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==2417 ;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.
|
||
|
||
;Start of Version 6.0
|
||
;2403 New corporate copywrite statement.
|
||
;2417 Update copywrite statement to 1988.
|
||
|
||
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
|