Trailing-Edge
-
PDP-10 Archives
-
bb-d868b-bm_tops20_v3a_2020_dist
-
3a-sources/pltglb.mac
There are 38 other files named pltglb.mac in the archive. Click here to see a list.
;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, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
TITLE PLTGLB
SEARCH PLTPRM
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>
END