Trailing-Edge
-
PDP-10 Archives
-
bb-d868c-bm_tops20_v4_2020_distr
-
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