Club Amiga de Montreal

home *** CD-ROM | disk | FTP | other *** search

/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 077.lha / Postscript / Sources / dict.asm < prev next >

Wrap

Assembly Source File | 1986-11-20 | 7.5 KB | 467 lines

idnt dict section one include "ps.h" xref _hex xref _quit xref _run xref _print xref _equalsprint xref _file xref _read xref _write xref _string xref _dict xref _begin xref _end xref _array xref _maxlength xref _length xref _get xref _put xref _mark xref _rbracket xref _save xref _restore xref _eq xref _ne xref _ge xref _gt xref _le xref _lt xref _add xref _sub xref _mul xref _idiv xref _div xref _mod xref _abs xref _neg xref _ceiling xref _floor xref _round xref _truncate xref _sqrt xref _ln xref _log xref _exp xref _pow xref _tanh xref _cosh xref _sinh xref _tan xref _cos xref _sin xref _atan xref _currentpoint xref _gsave xref _grestore xref _translate xref _scale xref _rotate xref _concat xref _concatmatrix xref _transform xref _dtransform xref _def xref _pop xref _exch xref _dup xref _copy xref _index xref _roll xref _count xref _clear xref _true xref _false xref _exec xref _if xref _ifelse xref _for xref _repeat xref _loop xref _exit xref _stop xref _stopped xref _countexecstack xref _execstack xref _start xref _cvr xref _cvi xref _cvs xref _stringwidth xref _charpath xref _strokepath xref _setlinewidth xref _currentlinewidth xref _setlinecap xref _currentlinecap xref _setlinejoin xref _currentlinejoin xref _setflat xref _currentflat xref _show xref _moveto xref _rmoveto xref _lineto xref _rlineto xref _curveto xref _rcurveto xref _closepath xref _newpath xref _setgray xref _currentgray xref _greyline xref _flood xref _fill xref _stroke xref _erasepage xref _pencolor xref _penbcolor xref _penmode xref _penpattern xref _box xref _currentrgbcolor xref _setrgbcolor xref _findfont xref _scalefont xref _makefont xref _setfont xref _currentfont xref _pixel ****************** xdef systemdict xdef fdict xdef enddict xdef .true xdef .false ****************** dentry macro dc.l .\1 dc.w ICode dc.l _\1 endm nentry macro .\1 dc.b 1$-*-1 dc.b '\1' 1$ endm systemdict dentry hex dentry quit dentry run dentry print dentry equalsprint dentry file dentry read dentry write dentry string dentry dict dentry begin dentry end dentry array dentry maxlength dentry length dentry get dentry put dentry mark * dentry lbracket dc.l .lbracket dc.w ICode dc.l _mark dentry rbracket dentry save dentry restore dentry eq dentry ne dentry ge dentry gt dentry le dentry lt dentry add dentry sub dentry mul dentry idiv dentry div dentry mod dentry abs dentry neg dentry ceiling dentry floor dentry round dentry truncate dentry sqrt dentry ln dentry log dentry exp dentry pow dentry tanh dentry cosh dentry sinh dentry tan dentry cos dentry sin dentry atan dentry currentpoint dentry gsave dentry grestore dentry translate dentry scale dentry rotate dentry concat dentry concatmatrix dentry transform dentry dtransform dentry def dentry pop dentry exch dentry dup dentry copy dentry index dentry roll dentry count dentry clear dentry true dentry false dentry exec dentry if dentry ifelse dentry for dentry repeat dentry loop dentry exit dentry stop dentry stopped dentry countexecstack dentry execstack dentry start dentry cvr dentry cvi dentry cvs dentry stringwidth dentry charpath dentry strokepath dentry setlinewidth dentry currentlinewidth dentry setlinecap dentry currentlinecap dentry setlinejoin dentry currentlinejoin dentry setflat dentry currentflat dentry show dentry moveto dentry rmoveto dentry lineto dentry rlineto dentry curveto dentry rcurveto dentry closepath dentry newpath dentry setgray dentry currentgray dentry greyline dentry flood dentry fill dentry stroke dentry erasepage dentry pencolor dentry penbcolor dentry penmode dentry penpattern dentry box dentry currentrgbcolor dentry setrgbcolor dentry findfont dentry scalefont dentry makefont dentry setfont dentry currentfont dentry pixel fdict dcb.w 5*SizeDict,0 enddict dcb.w 10,0 sarea nentry hex nentry quit nentry run nentry print * nentry equalsprint .equalsprint dc.b 1,'=' nentry file nentry read nentry write nentry string nentry dict nentry begin nentry end nentry array nentry maxlength nentry length nentry get nentry put nentry mark * nentry lbracket .lbracket dc.b 1,'[' * nentry rbracket .rbracket dc.b 1,']' nentry save nentry restore nentry eq nentry ne nentry ge nentry gt nentry le nentry lt nentry add nentry sub nentry mul nentry idiv nentry div nentry mod nentry abs nentry neg nentry ceiling nentry floor nentry round nentry truncate nentry sqrt nentry ln nentry log nentry exp nentry pow nentry tanh nentry cosh nentry sinh nentry tan nentry cos nentry sin nentry atan nentry currentpoint nentry gsave nentry grestore nentry translate nentry scale nentry rotate nentry concat nentry concatmatrix nentry transform nentry dtransform nentry def nentry pop nentry exch nentry dup nentry copy nentry index nentry roll nentry count nentry clear nentry true nentry false nentry exec nentry if nentry ifelse nentry for nentry repeat nentry loop nentry exit nentry stop nentry stopped nentry countexecstack nentry execstack nentry start nentry cvr nentry cvi nentry cvs nentry stringwidth nentry charpath nentry strokepath nentry setlinewidth nentry currentlinewidth nentry setlinecap nentry currentlinecap nentry setlinejoin nentry currentlinejoin nentry setflat nentry currentflat nentry show nentry moveto nentry rmoveto nentry lineto nentry rlineto nentry curveto nentry rcurveto nentry closepath nentry newpath nentry setgray nentry currentgray nentry greyline nentry flood nentry fill nentry stroke nentry erasepage nentry pencolor nentry penbcolor nentry penmode nentry penpattern nentry box nentry currentrgbcolor nentry setrgbcolor nentry findfont nentry scalefont nentry makefont nentry setfont nentry currentfont nentry pixel cnop 0,2 end