lee@uhccux.UUCP (Greg Lee) (09/05/87)
I mistakenly omitted this file, ps.h, from the source code for the
PostScript screen emulator.
[ And I also missed it since I didn't recompile this one ;-) -Doc]
* Greg Lee
* U.S. mail: 562 Moore Hall, Dept. of Linguistics
* University of Hawaii, Honolulu, HI 96822
* UUCP: {ihnp4,seismo,ucbvax,dcdwest}!sdcsvax!nosc!uhccux!lee
* ARPA: uhccux!lee@nosc.MIL
* INTERNET: lee@uhccux.UHCC.HAWAII.EDU
-------------------CUT HERE----------------------
# This is a shell archive. Remove anything before this line
# then unpack it by saving it in a file and typing "sh file"
# (Files unpacked will be owned by you and have default permissions).
# This archive contains the following files:
# ./ps.h
#
if `test ! -s ./ps.h`
then
echo "writing ./ps.h"
sed 's/^X//' > ./ps.h << '\Rogue\Monster\'
X
X* header for ps modules
X
Xlref macro
X_LVO\1 equ -6*(\2+4)
X endm
X
Xcall macro
X jsr _LVO\1(A6)
X endm
X
Xprint macro
X lea \1,A0
X bsr msg
X endm
X
XERR macro
X lea \1,A0
X bsr msg
X bra reinterp
X endm
X
XDEF macro
X xdef _\1
X_\1
X endm
X
XARG macro
X cmp.w #\1,(A5)+
X bne type_mismatch
X move.l (A5)+,D0
X endm
X
XRETURN macro
X move.w #\1,D2
X bra r.ipush
X endm
X
Xbstr macro
X\1 dc.b 1$-*-1
X dc.b '\2',10
X1$
X endm
X
X
Xcnttype set -1
Xnewtype macro
X\1 equ cnttype
Xcnttype set cnttype+1
X endm
X
X newtype Illegal
X newtype ICode
X newtype Integer
X newtype Name
X newtype String
X newtype Boolean
X newtype Real
X newtype FontID
X newtype Array
X newtype Mark
X newtype Dictionary
X newtype Save
X newtype Dummy
X newtype File
X
XPointFive equ $80000040
XOnePoint equ $80000041
XThreePoint equ $C0000042
XFourPoint equ $80000043
X
XHiRes equ 1
XNumColors equ 16
XInterAct equ 1
XNumPlanes equ 4
X
XPstackSize equ 20
XIstackSize equ 100
XDstackSize equ 20
XSstackSize equ 10
XSAreaSize equ 3000
XSizeDict equ 100
XCodeSize equ 5000
X
\Rogue\Monster\
else
echo "will not over write ./ps.h"
fi
if [ `wc -c ./ps.h | awk '{printf $1}'` -ne 1304 ]
then
echo `wc -c ./ps.h | awk '{print "Got " $1 ", Expected " 1304}'`
fi
echo "Finished archive 1 of 1"
# if you want to concatenate archives, remove anything after this line
exit