TDPʬ1*LIB !$2kFJQ GLE_FILE_IOxQY GLE_HPIB_IOXYi GLE_HPGL_OUT,4it GLE_HPGL_INtt GLE_RAS_OUT, GLE_RAS_OUT GLE_KNOB_INGLE_GEN@GLE_GENI@ DGL_TYPESP GLE_SMARK8&+ GLE_SCLIP@+0 GLE_SCLIP07 GLE_FILE_IOx7? GLE_HPIB_IOX?O GLE_HPGL_OUT,4OZ GLE_HPGL_INtZg GLE_RAS_OUT,gx GLE_RAS_OUTx GLE_KNOB_IN OPPDGL_VARS END; DGL_AUTL DGL_TOOLSDGL_GEN. DGL_RASTER঳DGL_HPGL.  DGL_CONFG_OUTd DGL_KNOBX DGL_HPGLIXX" DGL_CON [A* Z6bGLE_AUTLZR+ oR".Jm`D-@N^ _PONNV . ".-@N^ _PONNV . ".-@N^ _PONNu GLE_AUTL4m"GRAPHICS 2$GIO 62$TGRAPHICS W JFG_INdh"JDGL_LIB  dJdDGL_POLYO<dqDGL_INQ GENERAL_2 GENERAL_3 GENERAL_4-pHPIB_05PHPIB_2ԦHPIB_3hSER BLIBS:Gq N GLE_AUTL GLE_UTLS : inte& GLE_TYPESPPP&- GLE_STROKE-5 GLE_STEXT@59 GLE_STEXT9@ GLE_SMARK8@E GLE_SCLIP@EJ GLE_SCLIP7IAL_0 ȦSERIAL_36UIOr8 LOCKMODULEPPGLE_AUTLGLE_UTLS : inte  GLE_TYPESPPP  GLE_STROKE GLE_STEXT@ GLE_STEXT& sZNV . ".Jm`D-@N^ _PONNV . ".-@N^ _PONNV . ".-@N^ _PONNu GLE_AUTL4{bGLE_AUTL_GLE_ISHIFTRGLE_AUTL_GLE_IANDR$GLE_AUTL_GLE_IORR>GLE_AUTL_GLE_AUTLRX GLE_AUTL4 [=] gle_shortint; function gle_shortint_max ( p1,p2 : gle_shortint ) : gle_shortint; END; _count : gle_shortint; input_res_x : real;  input_res_y : real; U input_min_x : integer; input_max_x : integer; input_min_y : integer; input_m ]g ;|NJ n0J.g 0.D@=@=nN^ _ NNA np=nnn$=@ n0."n2.0.R@hN^ _ NNA0.n fN=|0.nn& n0."n2.10f RnNv`0.n^@`B.N^ _ NNuger; input_m Nf'0 c.!hFNt h&&t_BASE) STRDELETEE PlTX\`f`hpv|&GLE_UTLS_GLE_MATCHTRGLE_UTLS_GLE_UTLSRGLE_UTLSNOMP0ure gle_copy_to_string ( s : anychar_ptr; sl : gle_shortint; var d : string ); function gle_match ( size1 : gle_shortint; s1 : anychar_ptr; size2 : gle_shortint; s2 : anychar_ptr ) : boolean; function gle_shortint_min ( p1,p2 : gle_shortint ) :  hN^ _ NNA=|0.n_ n 2.t 0Wg RnNv`0.no ;|NJ n 0.r-0fRnNv|`B.Bn=n0.n_ n 2.t90T n 4.v00 Sg8 n 0.r0p0@Nv=A0. 2.HЁNv=@RnNv`0.nW2.RANvn^MODULE GLE_AUTL; EXPORT FUNCTION GLE_IAND (VALUE1, VALUE2 : INTEGER) : INTEGER; FUNCTION GLE_IOR (VALUE1, VALUE2 : INTEGER) : INTEGER; FUNCTION GLE_ISHIFT (VALUE, SHIFT : INTEGER) : INTEGER; END; "fP)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚPZGLE_UTLS RFF\ F l..\  [=SP Ⱦ SYSGLOBALS `=n N^.NuNA0. no =n `=n N^.NuNA0.HlD=@BnRnNv0.H H@J@l| =@p0nNv2.0.H Nv=@JnfJnlRnNv0.- n 00. @m,=@0. n"n 2nNvRANv0.S@|MODULE GLE_TYPES; export type gle_byte = -128 .. 127; gle_shortint = -32768 .. 32767; anychar = packed array [1..maxint] of char; anychar_ptr = ^anychar; gle_char6 = packed array [1..6] of char; graphics_control_block_ptr = ^graphics_control_block; gra "graphics_control_block_ptr ); draw : procedure ( gcb : graphics_control_block_ptr ); fill_index_color : procedure ( gcb : graphics_control_block_ptr ); flush_buffer B: procedure ( gcb : graphics_control_block_ptr ); get_color_map )graphics_control_block_ptr ); marker_size 7 : procedure ( gcb : graphics_control_block_ptr ); move : procedure ( gcb : graphics_control_block_ptr ); output_escapei : procedure ( gcb : graphics_control_block_ptr ); output_escapeo R CS80DVR_7CHECK_QSTATR xCS80DVR_CS80DVRR CS80DVRVRRAMIGODVRSAMIGO_SEEKDRCSAMIGO_ADDR_RECORDRCSAMIGO_LOGICAL_ADDRPR.CSAMIGO_CSAMIGORCSAMIGO nB(N^ _PONNA-n nJ fBB(`* nhN^ _ NNA=|0.n_ n 2.t 0Wg RnNv`0.no ;|NJ n 0.r-0fRnNv|`B.Bn=n0.n_ n 2.t90T n 4.v00 Sg8 n 0.r0p0@Nv=A0. 2.HЁNv=@RnNv`0.nW2.RANvnmphics_input_control_block_ptr = ^graphics_input_control_block; graphics_control_block = packed record info1 : integer; info2 : integer; info3 : integer; info4 : integer; info_ptr1 : anyptr; info_ptr2 : anyptr; await_blanking : procedure (  ]@ : procedure ( gcb : graphics_control_block_ptr ); get_raster }: procedure ( gcb : graphics_control_block_ptr ); get_polygon_info : procedure ( gcb : graphics_control_block_ptr ); gload  : procedure ( gcb :  DP Ⱦ nl =n `=n N^.NuNA0. no =n `=n N^.NuNA0.HlD=@BnRnNv0.H H@J@l| =@p0nNv2.0.H Nv=@JnfJnlRnNv0.- n 00. @m,=@0. n"n 2nNvRANv0.S@fM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP*@ 2 GLE_TYPESRFF\Fl.. 0 gcb : graphics_control_block_ptr ); buffer_mode < : procedure ( gcb : graphics_control_block_ptr ); char_size 8 : procedure ( gcb : graphics_control_block_ptr ); clear < : procedure ( gcb : graphics_control_block_ptr ); clip_limi Zjgraphics_control_block_ptr ); graphics_on_off : procedure ( gcb : graphics_control_block_ptr ); gstore =: procedure ( gcb : graphics_control_block_ptr ); index_color C : procedure ( gcb : graphics_control_block_ptr ); inq_p1p2 hN^ _ NNA=|0.n_ n 2.t 0Wg RnNv`0.no ;|NJ n 0.r-0fRnNv|`B.Bn=n0.n_ n 2.t90T n 4.v00 Sg8 n 0.r0p0@Nv=A0. 2.HЁNv=@RnNv`0.nW2.RANvn( N'0]N.!hltt h&&^_BASE) STRDELETEEvz~&  $ .  $ B  &  -@ n/(/.N/<N n .ЀNvC6"3/(/.N/<N n .ЀNvCf"3 n/( .YNv/N l^-@ n/(/.N D//<N n .  WA*  GLE_STEXTR+g/(D h@NN^.NuNA/. nJg/( hNN^.NuNA/. nJdg/(d h`NN^.NuNA/. nJLg/(L hHNN^.NuNA/. nJTg/(T hPNN^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA/. nJ$g/(g/(D h@NN^.NuNA/. nJg/( hNN^.NuNA/. nJdg/(d h`NN^.NuNA/. nJLg/(L hHNN^.NuNA/. nJTg/(T hPNN^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA/. nJ$g/( TЀNvCv"3/(/.N/<N n .ЀNvCF"3 m n (ШNv-@/(/.N/<N n!_&/(/.N/<N n!_* (ШNvD-@/(/.N D//<N n!_./(/.N/<N n!_2N^.NA-n nBh-|Rpo n/( .SNv/N l^-@ n/(/.N/<N n .ЀNvC6"3/(/.N/<N n .ЀNvCf"3 n/( .YNv/N l^-@ n/(/.N D//<N n .HGLE_STEXT__BASERGLE_STEXT_GLE_TEXT_XFORMGRGLE_STEXT_GLE_SOFT_CHAR_SIZE2RGLE_STEXT_GLE_SOFT_TEXT_SPACINGRBGLE_STEXT_GLE_SOFT_TEXT_DIRRGLE_STEXT_GLE_SOFT_TEXT_JUSTNRGLE_STEXT_GLE_STEXTR GLE_STEXTGLE_GENI_GL p>  ASM_MPYASM_DIV $ B  &  -@ n/(/.N/<N n .ЀNvC6"3/(/.N/<N n .ЀNvCf"3 n/( .YNv/N l^-@ n/(/.N D//<N n .NA nJhg / hN n"h ("(.(!A!G(||mr$h&J| m|_n|n` |m|6n `A:3<3F|"(.(J|B|C&H6<3 s0@H630s 0H܁i procedure gle_soft_text_dir ( gcb : graphics_control_block_ptr ); procedure gle_soft_text_just ( gcb : graphics_control_block_ptr ); procedure gle_soft_text ? ( gcb : graphics_control_block_ptr ); procedure gle_text_xform ( gcb : TЀNvCv"3/(/.N/<N n .ЀNvCF"3 m n (ШNv-@/(/.N/<N n!_&/(/.N/<N n!_* (ШNvD-@/(/.N D//<N n!_./(/.N/<N n!_2N^.E_START_DIGITIZERGLE_GENI_GLE_GET_DIGITIZER6GLE_GENI_GLE_GENIRXGLE_GENIGS_ON_OFFRGLE_GEN_GLE_GLOADR4GLE_GEN_GLE_GSTORECRXGLE_GEN_GLE_GET_RASTERNR|GLE_GEN_GLE_GET_COLOR_MAPRGLE_GEN_GLE_AWAIT_BLANKINGRG TЀNvCv"3/(/.N/<N n .ЀNvCF"3 m n (ШNv-@/(/.N/<N n!_&/(/.N/<N n!_* (ШNvD-@/(/.N D//<N n!_./(/.N/<N n!_2N^.\  [=k Nv (Nv!@/.J,g/(,"h(N n B/.Jg/("hN np&hNv@ (lR2.HNv!A (lR2.HNv!A/.Jg/("hN nC!I /.Jg/("hN n !n/.J,g/(,"h(N n !n/.Jg/(GLE_GENI_GLE_GET_DIGITIZER6GLE_GENI_GLE_GENIRXGLE_GENIGS_ON_OFFRGLE_GEN_GLE_GLOADR4GLE_GEN_GLE_GSTORECRXGLE_GEN_GLE_GET_RASTERNR|GLE_GEN_GLE_GET_COLOR_MAPRGLE_GEN_GLE_AWAIT_BLANKINGRG"h $n$j*)7GLE_STEXT_GLE_SOFT_TEXTR ("(.(!A!G(||mr$h&J| m|_n|n` |m|6n `A:3<3F|"(.(J|B|C&H6<3 s0@H630s 0H܁iMODULE GLE_SMARK; import gle_types; export procedure gle_soft_marker ( gcb : graphics_control_block_ptr); procedure gle_soft_set_marker ( gcb : graphics_control_block_ptr ); procedure gle_soft_marker_size ( gcb : graphics_control_block_ptr ); E -"hN`@ n0(R@NvCFr1SANv0(C01tH-Aƴn-B .ЀNvAA-H n r=@ r=@Y"n/)0.H/N/n` |m|6n `A:3<3F|"(.(J|B|C&H6<3 s0@H630s 0H܁ifM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP8 GLE_SMARKRFF\Fl.. } BBXJ8\D(HX XXH @XHHZ #(0NA-n n0( H-@0( H-@0(H-@0(H-@B!|B!| /.Jg/("hN n=h=hp hl(-h-h-h-h ( )GLE_SMARK__BASERGLE_SMARK_GLE_SOFT_MARKERRjGLE_SMARK_GLE_SOFT_SET_MARKERRGLE_SMARK_GLE_SOFT_MARKER_SIZEERGLE_SMARK_GLE_SMARKR GLE_SMARKTNRGLE_STEXT_GLE_STEXTR GLE_STEXTGLE_GENI_GLE_START_DIGITIZERևiH/!F!Cg hXN` hNLQB4 "(&6Af.(*6GfҨiިi!A!G`| | g| g(|f`(|"(.("(.(`"(.($(.&(2҂i ރiըiרi `N^.Nu<Nv` Nc$'0^_.!hZbt h&&_BASE) STRDELETEE dhlptzt|&NA-n n!P!h!h!h N^.NuNurocedure gle_soft_clip_limits ( gcb : graphics_control_block_ptr); procedure gle_soft_clip_move ( gcb : graphics_control_block_ptr); procedure gle_soft_clip_draw ( gcb : graphics_control_block_ptr); END >NA-n n!P!h!h!h N^.NuNurocedure gle_soft_clip_limits ( gcb : graphics_control_block_ptr); procedure gle_soft_clip_move ( gcb : graphics_control_block_ptr); procedure gle_soft_clip_draw ( gcb : graphics_control_block_ptr); ENDNV(n/,/,a|g)F)G/ / lN(_)_)_N^.NuNV(n/,/,aVJ@g.|g<fg//)D)E/ / lN(_.,)F)G/ / lN(_)_)_N^.NuLL금m nmnmn mnpNu/ Bl̺g\m FGl̺nDm>glm \  [=  MMODULE GLE_FILE_IO; import gle_types; export type file_iocb_ptr = ^file_iocb; file_iocb = record file_name : anyptr; name_size : gle_shortint; output_file : text; lock_on_close : gle_shortint; end; procedure file_init ( anyvar iocb_ptr : anyptr ); pr 5NAN^ _PONNAN^ _PONNA n-P n/?(<HnN nHh?<HnHzNJgNCN^.NuNA n -P n-P nHh/"nHi?<?)NJgNCNJgNC nBN^ _PONNA n-P nphfHhHz4NJgNC` n FGl̸n&m )D)E)F)Gȸl*H "&$*(aN(*)D)Eļo.*I ",.*,(,&,$,a (*,.)F)GȺm&FG ,)l)@ ,)l)@l̺nml**J&,$, ,",*,(,a*()E)Do,*K,.*,(,&,$, ,", FGl̸n&m )D)E)F)Gȸl*H "&$*(aN(*)D)Eļo.*I ",.*,(,&,$,a (*,.)F)GȺm&FG ,)l)@ ,)l)@l̺nml**J&,$, ,",*,(,a*()E)Do,*K,.*,(,&,$, ,", ^ocedure file_write ( anyvar iocb_ptr, data_ptr : anyptr ); procedure file_inq_timeout ( anyvar iocb_ptr: anyptr; var value : integer ); procedure file_set_timeout ( anyvar iocb_ptr: anyptr; value : integer ); procedure file_term ( anyvar iocb_ptr : HhHzNJgNCN^.NulockNORMALNNuyptr ); procedure file_inq_timeout ( anyvar iocb_ptr: anyptr; var value : integer ); procedure file_set_timeout ( anyvar iocb_ptr: anyptr; value : integer ); procedure file_term ( anyvar iocb_ptr : *.,,gFGp*_Nu*_,gFG`p*_Nunmg8mFl̸n޼mڼo, l(`nȼmľo. l* `nm`g,m(*Ђi ҃i`$&ЄiRi҅i Ri`NvNumnmn mnpNu/ Bl̺g\m FGl̺nDm>glm "fM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP4x GLE_FILE_IO40RFF\Fl.. anyptr ); END; P2GLE_STEXT_GLE_TEXT_XFORMGLE_RAS_OUT_FILL_INDEX_COLORGLE_RAS_OUT_GRAPHICS_ON_OFFGLE_RAS_OUT_CURSORGLE_RAS_OUT_DEFINE_DRAWING_MODEGLE_RAS_OUT_POLYGONGLE_RAS_OUT_GET_RASTERGLE_GLE_STROKE_TABLEGLE_AUTL_GLE_AUTLGLE_S ]GLE_FILE_IO__BASERGLE_FILE_IO_FILE_INQ_TIMEOUTERGLE_FILE_IO_FILE_SET_TIMEOUTRGLE_FILE_IO_FILE_INITRGLE_FILE_IO_FILE_WRITEERnGLE_FILE_IO_FILE_TERMRGLE_FILE_IO_GLE_FILE_IOR, GLE_FILE_IOENI_GLE_START_DIGITIZER FGl̸n&m )D)E)F)Gȸl*H "&$*(aN(*)D)Eļo.*I ",.*,(,&,$,a (*,.)F)GȺm&FG ,)l)@ ,)l)@l̺nml**J&,$, ,",*,(,a*()E)Do,*K,.*,(,&,$, ,", FGl̸n&m )D)E)F)Gȸl*H "&$*(aN(*)D)Eļo.*I ",.*,(,&,$,a (*,.)F)GȺm&FG ,)l)@ ,)l)@l̺nml**J&,$, ,",*,(,a*()E)Do,*K,.*,(,&,$, ,",  0"Nk:'0^b.!hZbt h&&_BASE) STRDELETEE dhlptzt|&glm GLE_SCLIP_GLE_SOFT_CLIP_MOVERGLE_SCLIP_GLE_SOFT_CLIP_DRAWR<GLE_SCLIP_CLIPPINGRl(`nȼmľo. l* `nm`g,m(*Ђi ҃i`$&ЄiRi҅i Ri`NvNumnmn mnpNu/ Bl̺g\m FGl̺nDm>glm \  [= q> %GLE_UTLS_GLE_COPY_TO_STRING FS_FHPOPEN SYSGLOBALS FS_FWRITEPAOC FS_FWRITELN FS_FCLOSEITGLE_UTLS_GLE_UTLS n-P nHh/"nHi?<?)NJgNCNJgNC nBN^ _PONNA n-P nphfHhHz4NJgNC` n  MODULE GLE_HPIB_IO; import gle_types; export type hpib_iocb_ptr = ^ hpib_iocb; hpib_iocb = record device_addr : anyptr; name_size : gle_shortint; address : integer; select_code : integer; error : integer; end; procedure hpib_init ( anyvar io 4NA n -P n ( //<N  nCD N^ _PONNA n -P n?( /:4/:,/.NN-_-_HnNN^ _PON@@NA n-P n!|/-/Hzr+OU?(/HnN n0H!@/(/<dN n!_ p \r _g =GLE_HPIB_IO__BASERGLE_HPIB_IO_HPIB_INQ_TIMEOUTERGLE_HPIB_IO_HPIB_SET_TIMEOUTR@GLE_HPIB_IO_HPIB_INITRGLE_HPIB_IO_HPIB_WRITEERHGLE_HPIB_IO_HPIB_READRGLE_HPIB_IO_HPIB_TERMRGLE_HPIB_IO_GLE_HPIB_IOR GLE_HPIB_IO GLE_GENI_GLE_GET_DIGITIZER6GLE_GENI_GLE_GENIRXGLE_GENIGS_ON_OFFRGLE_GEN_GLE_GLOADR4GLE_GEN_GLE_GSTORECRXGLE_GEN_GLE_GET_RASTERNR|GLE_GEN_GLE_GET_COLOR_MAPRGLE_GEN_GLE_AWAIT_BLANKINGRG"h $n$j*) HhHzNJgNCN^.NulockNORMALNNuyptr ); procedure file_inq_timeout ( anyvar iocb_ptr: anyptr; var value : integer ); procedure file_set_timeout ( anyvar iocb_ptr: anyptr; value : integer ); procedure file_term ( anyvar iocb_ptr : cb_ptr : anyptr ); procedure hpib_inq_timeout ( anyvar iocb_ptr : anyptr; var value : integer ); procedure hpib_set_timeout ( anyvar iocb_ptr : anyptr; value : integer ); procedure hpib_write ( anyvar iocb_ptr, data_ptr : anyptr ); procedure hpib_read ( y?( N nB+o N ,_+_pmVrmVgNJN^.NuNA n -P n-PU n?(N=_0.A:-p0.A:A-H np-h氮n6-@ n/("n .1$nJg/*&jN .Rh?.< N?.< N > %1@=1M1<Y1Y1e?(<HnN nHh?<HnHzNJgNCN^.NuNA n -P n-P nHh/"nHi?<?)NJgNCNJgNC nBN^ _PONNA n-P nphfHhHz4NJgNC` n rfM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP0X` GLE_HPIB_IO0pRFF\ F l.. anyvar iocb_ptr, data_ptr : anyptr ); procedure hpib_term ( anyvar iocb_ptr : anyptr ); END; RAPHICS_ON_OFFGLE_RAS_OUT_CURSORGLE_RAS_OUT_DEFINE_DRAWING_MODEGLE_RAS_OUT_POLYGONGLE_RAS_OUT_GET_RASTERGLE_GLE_STROKE_TABLEGLE_AUTL_GLE_AUTLGLE_S ; nBN^ _PONNA n -P n-PU n?(N=_0.A:-p0.A:A-HBRNv n/("n .Hq$nJg/*&jN n .r 0W".\g .r 0fSNvJg n .r 0fSNv n!nN^ _PON HhHzNJgNCN^.NulockNORMALNNuyptr ); procedure file_inq_timeout ( anyvar iocb_ptr: anyptr; var value : integer ); procedure file_set_timeout ( anyvar iocb_ptr: anyptr; value : integer ); procedure file_term ( anyvar iocb_ptr : .p"NV'0^cZ.!hZbt h&&_BASE) STRDELETEE dhlptzt|&!| !|( `U?< nHh  ASM_MPYIODECLARATIONS ASM_FLOATASM_RDIVGENERAL_1_SET_TIMEOUT SYSGLOBALSGLE_UTLS_GLE_READ_INTEGERASM_DIVGENERAL_1_IORESETHPIB_1_ADDR_TO_LISTENGENERAL_1_WRITECHARHPIB_1_ADDR_TO_TALKGLE_UTLS_GLE_UTLS HPIB_1_HPIB_1GENERAL rMODULE GLE_HPGL_OUT; import gle_types; export const max_buffer = 255; buffer_fudge = 32; type ascii_buffer_ptr = ^ascii_buffer; ascii_buffer = packed record maximum : integer; current : integer; data : packed array [1..max_buffer] of char; end; d oN; PU;PAPD;PANA-n n-hP/.?<N*/. n?(/(N`/.NN^.NuNA-n n-hL nHhHHhLJ,g/(,"h(N n-h"n p-in&=@ n0."n2.0.HRh nBN^.NuNA-n n-hL n-hPJh\f ^?<HzNJg nB!|(<B!| `FU?< nHh^?<HzJNJg nB!|AB!|(} ` nph\WU?<Hh^?<Hz-@N .g nB!|>B!|, `/.N n=h=h=h =h/.?<HzN/.N GLE_GENI_GLE_GET_DIGITIZER6GLE_GENI_GLE_GENIRXGLE_GENIGS_ON_OFFRGLE_GEN_GLE_GLOADR4GLE_GEN_GLE_GSTORECRXGLE_GEN_GLE_GET_RASTERNR|GLE_GEN_GLE_GET_COLOR_MAPRGLE_GEN_GLE_AWAIT_BLANKINGRG"h $n$j*) _2_GENERAL_2GENERAL_1_GENERAL_1IODECLARATIONS_IODECLARATIONSSYSGLOBALS_SYSGLOBALS-PU n?(N=_0.A:-p0.A:A-H np-h氮n6-@ n/("n .1$nJg/*&jN .Rh?.< N?.< N \  [= /.?<Hz.N/. n?(N/.N6 n1hN^.NuPU;SPNA-n n-hP1hN^.NuNA-n n-hP/.?<N n1h1h 1h  1h/.?<HzN nJf`j npf/.BgN>`P nJf/.?(N"`/. n D? HhHHnJ$g/($&h N nHhH/<J4g/(4"h0N/.?<Hz8N`/.N nHhHHhLJ,g/(,"h(N nB/-/Hz+O/.?<HzN/.Nl nHhHHhLJ,g/(,"h(N np-h갮n*=@ n0."n2.E]0.HRh n (RNv Ng n1|`nU n?(dHh^?<HzNU n?(dHh^?<Hz~Ng n1|` nJh\f 1|` ;|NJ n1|Bh/.N n!P~!h!h!h /.N n1hBhLHf1|lLHnLHv IGS_ON_OFFRGLE_GEN_GLE_GLOADR4GLE_GEN_GLE_GSTORECRXGLE_GEN_GLE_GET_RASTERNR|GLE_GEN_GLE_GET_COLOR_MAPRGLE_GEN_GLE_AWAIT_BLANKINGRG"h $n$j*)gBJjf. *=@& g&F N /.?<Hz&N/. n?(N/.N2N^.NuLT, NA-n n-hP/.?<N/.?<HzN>/.NN^.NuPGNA-n n-hP/.?<N/.?<HzPN/. n?(NV/.?<Hz.N/. n?(N6 n1h /.NN^.Nu, PU;PANA n"=@ n0.C] 0.HRh n"n3hdB+o N6,_+_pmf$ nLxH^1|d"nB`NJ+o N",_+_pmf n1|Z`NJ nHhH/.J4g/(4"h0N nJhZfv/.?< HzN/.NU?< nHh^?<HzN J1|1|BhBhBhBhBhBh1|1|BhBBBhBh+o N",_+_pmf n1|Z`NJN^.NuOEOI9111747074757585758098727470A7475A7585B7585A7580B7580A9872S9872B9872A9872T9872C9872A HPGL DF;SP1;IM30;@DNN z<  %0%2%2%ЬAAf%0%2%2%ZA@ALAU UPP a P P  5 U q P  P \ U UvU UȾUUU.UUUnAU AA<AA<AAAAAA /.?<HzxN/.?.N/.?<Hz^Nz/.?.N/.?<HzBN^/.?.N/.?<Hz&NB/.?.N/.NN^.NuOHINIP, 75857580747074759872NA-n n-hP"nJQf/.?<HzbN` /.BgN/. n?(N(/.?<Hz4N/. n -n n-hP-hL/-/Hz4+O"nB"$n4!|B!|*B!|B!|XB\!| 80B4!|B!|(B,!|8BN^.Nu, NA-n n-hP"npQf/.?<HzdNL`/.?<N/. n?(N/.?<Hz4N/. n?(Nv n!h!h/.NN^.Nu, NA/.N<-n n1hN^.NuNA-n n-hP/.?<N\ B!|PB!|PB!| z@BD!|B!| B$!|B!|VB!|PPBT!|PHBL!|PB!|P`Bd!|PB!|PB!|PB!|PxB|!|PpBt!|PB!|hBl!|BhZJh\f/-/Hz+O o n?(dHh^?<HzNU n?(dHh^?<Hz^NU n?(dHh^?<HzbNU n?(dHh^?<HzLNg n1|1|1|`U n?(dHh^?<HzNU n?(dHh^?<HzNU n?(dHh^?<HzNU n?(dHh^?<Hz }GLE_HPGL_OUT__BASER!GLE_HPGL_OUT_GLE_INIT_HPGL_OUTPUTR GLE_HPGL_OUT_GLE_HPGL_OUTR GLE_HPGL_OUTTEXT_GLE_STEXTR GLE_STEXTGLE_GENI_GLE_START_DIGITIZERGLE_GENI_GLE_GET_DIGITIZER6GLE_GENI_GLE_GENIRXGLE_GEN \  [= 1 ?(HhHnN n0H 0.nNvU"n?)0.HqHnN n0H!@0.nNvU"n?)0.HqHnN n0H!@0.nNvU"n?)0.HqHnN n0H!@ "nB o-P !n n ( o-h!h !n N^.NuOPNA NN^.NuOHINIP, 758575807470747598729111NA-n n-h/.?<Hz0N/.N nHh|HhJ`g/(`"h\NU n?(HhHnN n0H U"n?)0.R@NvHqHnN n0H!@"nB!P!h/.?<HzN`/.N nHh|HhJ`g/( FAAAA6AA4U:ȄUUUМ !U n?(dHh^?<Hz~Ng n1|` nJh\f 1|` ;|NJ n1|Bh/.N n!P~!h!h!h /.N n1hBhLHf1|lLHnLHv TNNNu-hL/-/Hz+O"nB"$n4!|B!|*B!|B!|XB\!| 80B4!|B!|(B,!|8BNJg nB!|> XT_GLE_SOFT_TEXT_SPACINGGLE_STEXT_GLE_SOFT_TEXT_DIRGLE_STEXT_GLE_SOFT_TEXT_JUSTGLE_SMARK_GLE_SOFT_MARKERGLE_SMARK_GLE_SOFT_MARKER_SIZEGLE_SMARK_GLE_SOFT_SET_MARKERGLE_STEXT_GLE_TEXT_XFORMGLE_GLE_STROKE_TABLEGLE_UTLS_GLE_UTLSGLE_SMA 6"Nl'0^`.!hpxt h&&_BASE) STRDELETEE z~&aN^.NuODDCNA-n nJg/.?<HzNn/.N&N^.NuBPNA-n n-h/- MODULE GLE_RAS_OUT; import gle_types; export procedure gle_init_raster_output ( gcb : graphics_control_block_ptr); type raster_byte = 0..255; raster_code_space = packed array[1..240] of raster_byte; dither_type = packed array [0..15] of raster_byte; cmw/HzL+O"n"BBhHh|HnJXg/(X$hTN nHh|/<Jhg/(h"hdN/.?<HzrN/.N nHh|HhJ`g/(`"h\N nB/-/Hz+O/.?< Hz6N/.NP nHh|HhJ`g/(`"h\N np-h찮n(-@ n ."n".EGITIZER6GLE_GENI_GLE_GENIRXGLE_GENIGS_ON_OFFRGLE_GEN_GLE_GLOADR4GLE_GEN_GLE_GSTORECRXGLE_GEN_GLE_GET_RASTERNR|GLE_GEN_GLE_GET_COLOR_MAPRGLE_GEN_GLE_AWAIT_BLANKINGRG"h $n$j*)gBJjf. * w/HzL+O"n"BBhHh|HnJXg/(X$hTN nHh|/<Jhg/(h"hdN/.?<HzrN/.N nHh|HhJ`g/(`"h\N nB/-/Hz+O/.?< Hz6N/.NP nHh|HhJ`g/(`"h\N np-h찮n(-@ n ."n".Eaap_def = packed record map_red : gle_shortint; map_grn : gle_shortint; map_blu : gle_shortint; end; system_cmap_def = packed array [0..15] of cmap_def; raster_device_rec_ptr = ^ raster_device_rec; raster_device_rec = record addr1 : anyptr  .Rh n (RNv n -@ n .C  .Rh n"n3hB+o N6,_+_pmf$ nLZH1|"nB`NJ n!|,aN^.NuODDCNA-n nJg/.?<HzNn/.N&N^.NuBPNA-n n-h/- wfM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP  rL GLE_RAS_OUT RFF\ F l..#; addr2  : anyptr ; addr3  : anyptr ; n3 : gle_shortint ; devicetype : gle_shortint ; deviceaddress : integer ; monitortype : gle_shortint ; plane1_addr : anyptr ; plane1_offset : integer ; plan`"h\NU n?(HhHnN=_ nB.VDJg"n#|`*.VDJg n!|` nBN^.NuOAOSNA-n/.?<HzN/.NbN^.NuPU;SG;DPNA-n n-h/.?<HzNn/.N& nHh|HhJ`g/(`"h\N=|,LH1|/.N n!P!h!h!h !h!h+o N",_+_pmf n1|`NJ/-/Hz0+O nHh|/.Jhg/(h"hdN+o N",_+_pmf n1|`NJN^.NuOE9872A HPGL IM30;DC;OI@DNNuHqHnw/HzL+O"n"BBhHh|HnJXg/(X$hTN nHh|/<Jhg/(h"hdN/.?<HzrN/.N nHh|HhJ`g/(`"h\N nB/-/Hz+O/.?< Hz6N/.NP nHh|HhJ`g/(`"h\N np-h찮n(-@ n ."n".E "NJ(0^ip.!ht h'(&_BASE) STRDELETEE &N^.NuNA-n n J1|P"n"/.NN^.Nu9816A 9826A 9836A 9836C 98627ARASTER@ֵkZ@@@3@s33333@wwwwww@ >?@ @ NNNNNudef; brightness_sequence : packed array [0..15] of gle_shortint; count  : plо и-\A U i }  1 M m   P P    - A aP u &xCbC-I"n0.HNv/</N =@ n0.HЀ"n2 n0.R@NvHЀ3p n0.T@NvH1>e2_offset : integer ; plane3_offset : integer ; n_glines : gle_shortint ; gspacing : gle_shortint ; bytesperline : gle_shortint ; hard_xmax : gle_shortint ; hard_ymax : gle_shortint ; red_intensity : gle_shortint ; Facked array [0..15] of gle_shortint; cmap_address : integer; end; END; E9M]) PPPPa P PBmuPc-hPBhZ/.N n 2;N Bt` nLH^1|dLHnLHv` nLH^1|dLHnLHv` nLH^1|dLHnLHv`l nLbH^1|dLbHnLnHv`: n Facked array [0..15] of gle_shortint; cmap_address : integer; end; END; E9M]) PPPPa P PBmuP igrn_intensity : gle_shortint ; blu_intensity : gle_shortint ; dither_pattern : dither_type; cursor_x : gle_shortint ; cursor_y n: gle_shortint ; area_draw_mode : gle_shortint ; pen_draw_mode : gle_shortint ; linepattern : gle_shortNAN^ _PONNAN^.NuNA-n n0(Hf BhZ` n1|ZN^.NuNA-n n-hP"npifx-h -hn=@ n0.CbC-I"n0.HNv/</N =@ n0.HЀ"n2 n0.R@NvHЀ3p n0.T@NvH L6H^1|d"n#hLfHnLZHv nLHf1|lB~B"n0),H!@0).H!@!|B!|XB\!|0B4!|B!|8B.bNr9nT`DDlEFFn&*46 .gJK||BRE2n(Jnft.о иASM_MPYGLE_RAS_OUT_AWAIT_BLANKINGGLE_RAS_OUT_GCBINITGLE_RAS_OUT_MOVEGLE_RAS_OUT_DRAWGLE_RAS_OUT_CLEARGLE_STEXT_GLE_SOFT_TEXTGLE_SCLIP_GLE_SOFT_CLIP_LIMITSGLE_STEXT_GLE_SOFT_CHAR_SIZEGLE_STEXT_GLE_SOFT_TEXT_SPACINGGLE_STEXT_G?YA* "f(  GLE_RAS_OUTf R* t`) "211) "=17' "' "& #) "A@@, $811(o.H`,lP0.|g`~@Jg n|`h n|`Z(o.H`,lP.,f.< n P .g"H$H"v, nf;0p g6<t.Qfta(6 Jt.Qfta6 Kt.Qfta`JCf:zz:Nux8xUCmQz:zNu||LM|JKB0.R2H2H@0"(;@.JCfȻP6v„FɐQ`@x"JCgSC Q`(o.H`LE_SOFT_TEXT_DIRGLE_STEXT_GLE_SOFT_TEXT_JUSTGLE_SMARK_GLE_SOFT_MARKERGLE_SMARK_GLE_SOFT_MARKER_SIZEGLE_SMARK_GLE_SOFT_SET_MARKERGLE_RAS_OUT_SET_COLORGLE_RAS_OUT_LINESTYLEGLE_RAS_OUT_GET_P1P2GLE_STEXT_GLE_TEXT_XFORMGLE_RAS_OUT_FIL "Fgprgrtgt<.& .f<<* .g<g g"g$TSFngvm m"m$SFn`V0.&*μ g$$ԇԇԇFSŠ"Q`S@Hr$&(*,."A$I,lP ,9@`b(o.H`,lP9l`H(o.H`,lP9l0,9@ ,@np=@j9l  9l` 0,2, nf;Jfp2,=@L=AP6C0.H lf`jjjNT@0{ACrr ",SAn@NNN^NNVNN2NN2;L_INDEX_COLORGLE_RAS_OUT_GRAPHICS_ON_OFFGLE_RAS_OUT_CURSORGLE_RAS_OUT_DEFINE_DRAWING_MODEGLE_RAS_OUT_POLYGONGLE_RAS_OUT_GET_RASTERGLE_GLE_STROKE_TABLEGLE_AUTL_GLE_AUTLGLE_SMARK_GLE_SMARKGLE_SCLIP_GLE_SCLIPGLE_STEXT_GLE_STEXT-n nL`NuL`;@NJ0<`(o.H`,lP-l-lpr9A9A9A9A9A9A9A9A9|9@9A9|)@)@9@9|9@)@)@ lm4g8 lmH=|=l -l9@9A9|9|`F=@`=A9@9A9A9A`(=|-l-l9A9A &I*I,IHvHvHvHvQ`(o.(,*,)D)ENuFNF oR`(o.H`,lP(,,,*,.,)E)GL금mnmnmnmn n PL 0.(S@=lTFf lf 0.Lf`p4FlDBEGpD6,|gz2lDAAm26,=nlbno0:=A=A=A=Ard=|NqrUCfre=|FrAAAA`ȁ2;0=A=A=A=Ard=|NqrUCfre=|FrAAAA*`0;0t.Qf 0:pJCf0:bC";0d$;0t.Qf ":dJCf":P.Qf $:dJCf$:PA0 A0 A0 A0 `Nq0\  [=Z !|J:.V|E; NJAfz:zz:Nu2n(x8xUAmQz:zNuJAfz:zz:Nu2n(x8xUAmQz:zNuFJAfz:zz:Nu2n(x8xUAmQz:zNu||HI|KLC6:.VʼM$6 >g&"g"g Q`p?rt, gQQ`$I&I"Nu(o.H`,lPJg ,9@r6R|o`9|0,2, 4,9@9A9B ng"| | | HIJ=@0=A2=B4`8=@0=A2=B4AbCKL0IJK$HpxRmjmjd`NuEn*HBBBhtJDjSEmSGf> \dBd`HEBEhzJDjSBmSGf> \Edd`JEn\DEEn,JEg HBBBht00SEm8dBd`HEBEhz00SBmEdd`NuEn(HBBBht00SEmdBd`HEBEhz00l,lm\2Bi<liDF<CiA6,Kl6CEl>rCiԘBilDDTADmRAEJDgHEBEhz222TI222J@fX JJnH=KVlo>,=GZ2.Vlnb0.&S@A* n P:.(SEЈ-@ n"H:. 0nVg "H`L02TH468|DN@``"``Be P6*(;NJCfȻvʄFɐQNux*JCgSC Q`JCfȻvȂQNuxJCgSCQ`FJCfȻvȅFɘQNuxJCgSCŘQ`(o.H`,lP lf=lF=lHa. f=lF=lHa)l)l9l `$n&n""n.m\JQBVBZB^&IpBQpL0nVnZn^-|b-nbf$H~rJGggP4.VnXR&4.Zn\jւ4.^n`jւgbl-Cb:~` fl-Af<\JQJGg<zFE4E6EELnXn\n`RSQPptx66C21g; @6RBSAnQ` SBmEdd`JEntDEEn8JEg HBBBhtJDj 00SEmLSGf> \dBdڐ`HEBEhzJDj 00SBmSGf> \Eddڐ`NuEn4HBBBhtJDj 00SEmSGf> \dBdڐ`HEBEhzJDj 00SBmSGf> \Edd`JEnDDEER@SAlS@`Be S@SAlR@`BSAXI22TI2L2SEnag>4Fag02 Fn2a`&n>. 4nVfJkl0+2+@lAaSGn0.VnZlx n>. LnVf(JBm$R@|FDN`` ``dSC`dRC2H?SGnRnV n*-H` n0. r4.V:<Pf&Jhm Jh  y"Q<.JFf:.*6..>.(HHBB*I0.F @m2.,YAAnY@<2.H Am4..YBBn<4XBJAn`œagg FQ`4qqQQ`$S lpg qqQSQ0.FJBn`ś"Ma.gg FQNuqqQ   (o.H`,lPBB0.,H)@0..H)@ `(o.H`,lP nf $ng`g ,9@r6R|o`9|0,2, 4,9@9A9B ng"| | | HIJ=@0=A2=B4`8=@0=A2=B4AbCKL0IJK$HpxRmjmj000NqNq0000NqNq0;0.Qf 0:JCf0:C";0$;0.Qf ":JCf":.Qf $:JCf$:A0 A0 A0 A00 `f0.P4;0.=B=B4;0*=B4;0*=B nLfF=@R`2 0.P4;0=B=B=B=Bdn JEg HBBBhtRHQ`$Bd`HEBEhzQ` EdSH`NuEnHBBBhtQ`Bd`HEBEhzQ`ΐEdRH`JEnXDEEn*JEg HBBBhtJDjSEm8SGf> \SHBd`HEBEhzJDjSBmSGf> \EdSH`NuEn&HBBBhtJDjSEmSGf> \RHBd`m6(8(CnDEn"H:<RAS@nJAgi Null0,lo2,@m4.4 n68HH .gxHI||@RDJnf.g("H$H"/ ?ap24.2 _?ad24.0 J`Zn2n4.2n0nJ4.0`D"DDDUUUݪUݪwݪ QNu2 .g IJnfID@^@Nu6XCp`@A 6CY@` 4XB8XD`AB 8D4..` p2*,gfr`Q`TIQ`v(o.H`,lP l"n"Q ,*2.AN```(`\p*,gfr` Q` Q`aVp*,`"v" nLfF=@R`NqJEnHDEEn"JEg HBBBhtSEm,dBd`HEBEhzSBmEdd`NuEnHBBBhtSEmdBd`HEBEhzSBm̐Edd`NqJEn`DEEn.JEg HBBBhtJDjSEm@SGf> \dBd`HEBEhzJDjSBmSGf> \EdHEBEhzJDjSBmSGf> \EdRH`(o.H`,lP ,lf-l-l0,ln0,ln0.JH .g"NK`8K`0K`(K` NK`K`K`K n"n6|~Bn n $H$&S@fJ(,Df2*(,Ef&,lPClEDl\  [=I SYSGLOBALSGLE_SCLIP_CLIPPING,H)@0..H)@ `(o.H`,lP nf $ng`g ,9@r6R|o`9|0,2, 4,9@9A9B ng"| | | HIJ=@0=A2=B4`8=@0=A2=B4AbCKL0IJK$HpxRmjmjfM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚPtn GLE_KNOB_INt>RFF\ F l.. 7NAN^.NuNA-n n-h"n0@2;N $$BB !h!h!h `: nB!|B!|+ ` nB!|B!| N^.NuNA-n n-h"nJl!|` nBU/<NJg n !h`/<Hn/<" )lDNv!@BN^.NuNA nJg/-<?"Ni'0^`.!hZbt h&&_BASE) STRDELETEE dhlptzt|&/fl-Af<\JQJGg<zFE4E6EELnXn\n`RSQPptx66C21g; @6RBSAnQ`  lean; last_x : integer; last_y : integer; end; procedure gle_init_knob_input ( gcbi : graphics_input_control_block_ptr ); END; HhJ`g/(`"h\N nB/-/Hz+O/.?< Hz6N/.NP nHh|HhJ`g/(`"h\N np-h찮n(-@ n!@Jo, .SNv/ n0(H/NRNv n 1@U n?(U?( (ЮNv?NN n0H!@U?(U?( (ЮNv?NN n0H!@ !hN^.NuNA-n n-h"n 3hBN^.NuNA-n n-h"n !i\  [=H*>//:@ NNu|HhJ`g/(`"h\NU n?(HhHnN n0H U"n?)0.R@NvHqHnN n0H!@"nB!P!h/.?<HzN`/.NQ, 6)01M*1MȤi uiP6P !h!h!h `: nB!|B!|+ ` nB!|B!| N^.NuNA-n n-h"nJl!|` nBU/<NJg n !h`/<Hn/<  fM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP  " GLE_GEN RFF\Fl.. 8gcb : graphics_control_block_ptr ); procedure gle_marker ?( gcb : graphics_control_block_ptr ); procedure gle_index_color : ( gcb : graphics_control_block_ptr ); procedure gle_clear + ( gcb : graphics_control_block_ptr ); procF nHh|HhJ`g/(`"h\NU n?(HhHnN=_ nB.VDJg"n#|`*.VDJg n!|` nBN^.NuOAOSNA-n/.?<HzN/.NbN^.NuPU;SG;DPNA-n n-h/.?<HzNn/.N& nHh|Hh  gle_linewidth @ ( gcb : graphics_control_block_ptr ); procedure gle_buffer_mode ( gcb : graphics_control_block_ptr ); procedure gle_graphics_on_off ( gcb : graphics_control_block_ptr ); procedure gle_gload  ( gcb : O/. nJg/( hNN^.NuNA/. nJ4g/(4 h0NN^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA/. nJ( gcb : graphics_control_block_ptr ); procedure gle_get_raster x( gcb : graphics_control_block_ptr ); procedure gle_get_color_map ( gcb : graphics_control_block_ptr ); procedure Bh\N^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA/. nJg/( hNN^.NuNA-n/. nJlg/(l hhNN^.NuNA-n nHhHJ.!hX`t h&&_BASE) STRDELETEE b~fjnrxrz&U= array < real;PRO rDGL_TOOLS__BASERDGL_TOOLS_RETURN_MACHINE_TYPERDGL_TOOLS_DGL_TOOLSR DGL_TOOLSshortint; y_window_delta : gshortint; y_display_offset : gshortint; end; type ls_patterns = packed array [0..7] of gshortint; const raster_patterns =  bGRAM1..mDGL_VARS END; . vbxDTP@DRhX.,B0b\ ,$*88        ȨjHD PPaPls_patterns [ -1 , -256 , -64 , -6 , -10 , -220 , -32640 , -21846 ]; var short_flag : boolean;  short_defaults : boolean; H current_echo_type : integer; display_echo_mult : integer; cursor_s[Tmodule dgl_autl; export PROCEDURE dgl_scaled_move; PROCEDURE dgl_scaled_draw; end; VfM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP dI DGL_TOOLSRFF\Fl.. PNA9VDJgV9VDJg89QVD@9QVDg-|`B` -|`(9VDJg-|` -|N^NuNu<t = a >U= array < real;PROPNA9VDJgV9VDJg89QVD@9QVDg-|`B` -|`(9VDJg-|` -|N^NuNu<t = a >U= array < real;PRO N'0 (>.!hltt h&&^_BASE) STRDELETEEvz~& n0(Hm `$Y nHPHhHh"n/)Nz n /-FNN^.Nu?Q?(\)?333333?GzNA n-X-P n -X-P n-X-P-m-mF nphf HnHnHnHn  /:/./.NNN0.HЀ"=/:/:/:/:/./.NNN0.R@NvHЀ"=/:/:/:/:/./.NNN0.T@NvHЀ"= n"h0.C-Ix"nxLHLHLH nm~ n|B!|C$gJg/-"mN`* f^ nJfP n"n"p]J]gB npf ` npf /-FN` nphWrhW Wg"nJf "n/N` f( nJf n"n"B/-FN`R nphWP/:/./.NJgLH`p/:/:/./.NJg&/./././.NLH`0/./././././.NNLH` /:p/:h/./.NJg/:L/:D/./.NJgLBH`p/: /:/./.NJg&HnHnN nphW2(H\g !n/:/:/:/:/./.NNN =@/:/:/:/:/./.NNN =@/:/:/:/:/./.NNN =@ nC!I/-FN n"h .//<-IN"n \  [=#| \B#|B#|,B#|B=n .VDJf -mF&n&B/-FN n0(H-@1|1|xHh0(xR@Nv/N nphWrhWgh-|R .//<N A,A-H/. nHPHhHhN m/<DGL_RASTER__BASERRDGL_RASTER_INIT_COLOR_TABLERDGL_RASTER_DGL_RASTER_INITDRxDGL_RASTER_DGL_RASTERRr DGL_RASTERpEN_MAXRDGL_GEN_OPCODE_CKRDDGL_GEN_CONVERT_HSL_TO_RGBRRDGL_GEN_CONVERT_RGB_TO_HSL_RDGL_GEN_ADJUS  e"e6 (%5AIU]yB/-FN n0(H-@1|1|xHh0(xR@Nv/N nphWrhWgh-|R .//<N A,A-H/. nHPHhHhN m/<  _OUT_GLE_RAS_OUTGLE_AUTL_GLE_AUTLGLE_GEN_GLE_GEN KEYS_KEYSKBD_KBD MISC_MISCISR_ISRBOOTDAMMODULE_BOOTDAMMODULE MINI_MINIASM_ASMSYSGLOBALS_SYSGLOBALSDGL_VARS_DGL_VARSGLE_TYPES_GLE_TYPESDGL_TYPES_DGL_TYPES nHPHhHhN m/<sHz\HzXHzTN`bBHz>Hz:Hz6NBR/::/:2pNv/NNLH/.HnHnHnNB m-|R/.HzHzHzN m n1n"mF"/-FN n1|vHh0(v/NBR .//<N  n"hT_RETURN_ECHOLR \DGL_GEN_CONVERT_INTWTODR "DGL_GEN_CONVERT_WTODOR DGL_GEN_CONVERT_LTODCR NDGL_GEN_CONVERT_DTOWER DGL_GEN_LOCATOR_LIMITSRR DGL_GEN_CALCULATE_VIEWINGRDGL_GEN_DISPLAY_LIMITS*RDGL_GEN_DGL_G=@&  sHz\HzXHzTN`bBHz>Hz:Hz6NBR/::/:2pNv/NNLH/.HnHnHnNB m-|R/.HzHzHzN m n1n"mF"/-FN n1|vHh0(v/NBR .//<N  n"hsHz\HzXHzTN`bBHz>Hz:Hz6NBR/::/:2pNv/NNLH/.HnHnHnNB m-|R/.HzHzHzN m n1n"mF"/-FN n1|vHh0(v/NBR .//<N  n"h~".//<HNL"A2L|H| m+|VN^.Nu98627A?@0NNNNNNNNNNNNNNNNu (-hnR-@ n!n/-FN/-Hn< 8 1NI 0e.Im0mm(y( m(m( ,,$,,$,8f  e6 Ȕ V  ,F$$ e~  q 8DGL_VARSDGL_VARS_RASTER_PATTERNSGLE_GEN_GLE_LINESTYLEDGL_GEN_CONVERT_RGB_TO_HSLASM_MPYASM_RSUBASM_LEASM_RMULASM_LTASM_RADDGLE_GEN_GLE_INDEX_COLORDGL_GEN_CONVERT_HSL_TO_RGB ASM_TRUNCGLE_GEN_GLE_DEFINE_COLOR_MAPEfM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP Z \LDGL_HPGL Z 8RFF\ F l..:?@F?F@F??NA mFA^Cp f S@f` mF!| &B-mF-m n-hP"nBi`|B)$npjW@3|t3|r3|#| vBq?< .\Nv?NJgNCJg`( .Rh/-Hz?<?"npf`-m>"n#|E#JT3|X/->N!Z "DGL_GEN_CONVERT_WTODOR DGL_GEN_CONVERT_LTODCR NDGL_GEN_CONVERT_DTOWER DGL_GEN_LOCATOR_LIMITSRR DGL_GEN_CALCULATE_VIEWINGRDGL_GEN_DISPLAY_LIMITS*RDGL_GEN_DGL_G=@& g&F "!_HPIB_TERM FS_FINITBGLE_FILE_IO_FILE_WRITEGLE_FILE_IO_FILE_INQ_TIMEOUTGLE_FILE_IO_FILE_SET_TIMEOUTGLE_FILE_IO_FILE_INIT!GLE_HPGL_OUT_GLE_INIT_HPGL_OUTPUTDGL_HPGL_DGL_HPGL_INITGLE_HPIB_IO_HPIB_WRITEGLE_HPIB_IO_HPIB_READGLE_HPIB_IO!  N(0^(.!ht h'&_BASE) STRDELETEE &-n-n"nJo(-n"n"#n#|/.N npf|/-BN n"n""npl-P-h`&+n+n n//(HnHnN/.!*t nB nB /-FNN^.NuNA mF /-FNN^.NuNA n-X-P n -X-P n-X-PN^ _N?@V?F?ODGL_VARSDGL_VARSRGLE_GEN_GLE_LINESTYLEV!"HMau1I n!_p^r]g !| n /</.N`Nv n!_ (мNv+@C!IB/.N.@ nJhZWg /.N nJhZgHn/<N+o N,_+_ n1|!GLE_HPIB_IO_GLE_HPIB_IOGLE_FILE_IO_GLE_FILE_IOGLE_RAS_OUT_GLE_RAS_OUTGLE_HPGL_OUT_GLE_HPGL_OUT!nPph\fhHn-W/<N n-P-n nHhHh/"n#|E#JT3|X/->N" IfM)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚPX`; DGL_HPGLIRFF\Fl.." NA-mB/-BN n//(HnHnN/././. /.N n /-BNN^ _ NNA np] nJ]g n  np]-Ag| n `B.-m-mB n+PZ nB/-BN-|-| npl(-mF"N n!nH!|@BD!|(B,!|8B(B0^F.!ht h'Z&_BASE) STRDELETEE (:&n42;N /. /.Nn` -m mA0-H n/(/N/.ND n/( /(N/.Nb/. n/(/(N%O/-z/-v/(/(/./.NNNLH n/(/(/-r/-n/($/( /./.NNNLH n/(/("n/)/)/./.NN n LH n/(/("n/)/)/./.NN nLHN^ _NNA n-X-P% t: nLHL.HHz nHPHzHhNN^ _PON?NANN/-FNN^NuNANp]J]g/<N m1n J-g mF /-FNN^.NuNANp]r^g/<N m1n N^.Nu%!ierr : integer ); procedure set_color_table ( index : integer; parm1 : real; parm2 : real; parm3 : real); procedure convert_wtodmm ( wx, wy : real; var mmx,mmy : real); procedure convert_wtolmm ( wx, wy : real; var mmx,mmy : real); END; fn%N/. n/(/(NN./. /.N`Hn HnNJ/-/-N/. /.N/. /.N`N/-/-N/-/.N/. /.N/. /-N/-/-N/. /.Nf`N^ _PONNA-n n-P-h-h-h/.N nphf/(/(Nf%  n-X-P n -X-P n-X-PN/./././.N/./././.Ng/<N-m n/(Ey0:NANN-mF n "m!i/-FNN^NuNV n -X-P n-X-PJ-gB-LHLH/-/-/-/-/./.NNN+_/-/-/-/-/./.NNN+_-mF n!m!m&Nv?0 n .ЀNv?0N .RhN^ _ NNVNNJn/<N n HP nHPNp-nn2-@ n .NvHp n .NvHpN .RhN^ _ NNA nCSbJ-g`J-mg0-m nHh@HhHN nHhXHhPNB-&  N-m nLH@LHH-mF/:/:/:/:/:r/:j/-/-/./.NNNNN lDNv n /:6/:./:>/:6/:./:&/-/-/./.NNNNN lDNv n!@/-FN/:/:/:/:/:/:/-/-&yNNLH n/(/"n/)/)/./.NNLH n/(/("n/)/)/./.NNLH n/(/("n/)/)/./.NNLH/:/: n/(/(N/./.N n/(/(/./.N/:/:&/-FJg/("hN`&J-g/<N`/<NN^ _PONNV n -X-P n-X-PJ-gB-LHLH/-/-/-/-/./.NNN+_/-/-/-/-/./.NNN+_-mF n!m!m/-F&m-mF nC!Ip. /-FN`&J-g/<N`/<NN^.NuNANNp]r^g -|-mF n /-FN/-FNN^.NuNANNY/././.N n /././././. /. mJg/( h& /./.NNNNN lDNv n /:/:z/:/:/:b/:Z/-/-/./.NNNNN lDNv n!@/-FNN^ _PON@@@@ @"@.NA n -X-P n-X-PNNN-m& n/( /(N/./.N n/(//./.Ng"HnHnHnHnN nB` n ` n ` n N^ _N>Ey0:NAJ-g2J-gN/./. /. mJg/( hN`&J-g/<N`/<NN^& n -X-PNN/./././.N/./././.Ng-m nC0-I-mF"n/)/$n/*r/*n/./.NNLH n/(/"n/)r/)n/./.NNLH n/(/("n/)z/)v/./.NNLH&RJ\g/(\"hXN`&J-g/<N`/<NN^ _PONNVJ-gJ-_g<|;n ;n-mF n0. H!@0.H!@N`:0. H/N-_-_Hn0.H/N-_-_HnN`&J-g/<N`/<NN^.NuNVJ-&WNN^ _NNANNY/././.N n /././././. /. mJg/( hNN^ _NNA n -X-P n-X-PNN/:4/:,/./.N/:/:/./.Ng/<N-m/./././.N/././.&  nC-I"n/)/)/./.N n/(/(/./.N n/( /(/./.N n/(//./.N n/(/(/./.-@N . n/(/(/./.-@N . n/( /(/./.-@N . n/(//./.-@N&\  [='' JgNC np.1@C!IBB/-BN n"n0(H""nJf|"n#n -mB$mE-J$n/*N nLH"n/)N nLH"n/)N nLH"n/)N nLH/-BN-mB-m mA-H n/'N^Nu?Q??@VNNNNNNNNNNNNNNNNNNNu???@@NA nCSb nCSbNJ-gNHnHn'B--m-@ n@BHyHyHyHyN/-BNN^NuNANJ-gN@J-gNHm/<NHmF/<NHmB/<NHm>/<NB-N^NuNA-m-mF n/(~N nLH0"n/)N nLH'HnNHnNJ.g-mF nC!ITp.1@X1|\LH^Yp.//<N n 1@dp2(dH-An(-@ . n".C]E .Rh n B/-FN n"n0(ZH"` n  nJfj/-/Hz@+O-m n!|' N nLH"n/)N nLH"n/)N nLH"n/) N nLH npWrW"(W-@-m"nJ)g&E-J$nHRHjHjHjN`& nC-I"nHQHiHiHiN` n N^ _'U DGL_LIB__BASERDGL_LIB_GRAPHICSERRORRDGL_LIB_CONVERT_WTODMMGRNDGL_LIB_CONVERT_WTOLMMNRdDGL_LIB_SET_VIEWPORTGRDGL_LIB_SET_WINDOWRFDGL_LIB_SET_ASPECTERDGL_LIB_MAKE_PIC_CURRENTTR LDGL_LIB_SET_TIMINGWR lDGL_LIB_S' _ NNANNJ-g-m-mFN n0(H-@0(H-@0(H-@0( H-@0( H-@0(H-@BBB!| /-FN n /-FN/-J nJg/("hN n /-FNHn/./. /. mJg/( hNJ-g-m'18"n/)N nLH@"n/)N nLHH/-FN n/N nLHP"n/)N nLHX"n/)N nLH`"n/) N nLHh|pWrW"(W@CP-I"nHQHiHiHiN'YCESb/.N+o N,_+_pmfNJ n ` n N^ _N NANJ-gN(-mFACSb< HnA HP/.BgNJgNC np.1@XC!ITBh\ B/-FN n"n0(ZH" nJ' *PONNAJ-gN:|B-B-Hm/<NHmF/<N/-FNHmB/<N/-BNHm>/<N/->Npmf mF1|` mFBh-m n|BCLESbBLHL@HLH0LH'-mF n !n!n!n /-FN n /-FN n /-FN n0(zH/Jg/("hNpl&J-fHmHmN`?-?-NN^ _NNANN-mB-A,$nCSbBHyHyHyHyN nJ(g'b n/(/(/(/(NJWlW/:v/:nN nLH@/(/(/(/(NJWlW/:D/:V !.9 9 .9998Q 2=9* ! 9(1DGL_LIB_INT_LINERDGL_LIB_INT_POLYLINERDGL_LIB_POLYLINEMR. DGL_LIB_GTEXTRDGL_LIB_MARKERLRVDGL_LIB_INPUT_ESCRDGL_LIB_OUTPUT_ESCFRDGL_LIB_SET_TEXT_ROTDRrDGL_LIB_SET_CHAR_SIZERDGL_LIB_SET_ECHO_POSlRDGL(   "  " (    l >  &  $      J!`=*Qi          $2:Q        ( Xx       Qi$   5QiI$ $QiI$ <Qi   ] $   i<Qi "   ,  ( \ 9 *  P9994Q  2=9$ M"    q   6 ,($              , (_LIB_SET_LOCATOR_LIMRJDGL_LIB_SAMPLE_LOCATORRDGL_LIB_AWAIT_LOCATORR DGL_LIB_DISPLAY_TERMDRDGL_LIB_LOCATOR_TERMvRDGL_LIB_GRAPHICS_TERMR PDGL_LIB_DISPLAY_FINITR#DGL_LIB_DISPLAY_INITLR%hDGL_LIB_LOCATOR_INITMR&DGL(&      02RQ D LQ   D ,Q " >RQi Q    9Q" :Qi  6( g   ,   \Qi &&""      DQ " 0.00$"N    (i     :   x9Mi 9EM ,Q " >RQi Q    9Q" :Qi  6(_LIB_GRAPHICS_INITR)DGL_LIB_DGL_LIBR+0DGL_LIB_POLYLINEMR. DGL_LIB_GTEXTRDGL_LIB_MARKERLRVDGL_LIB_INPUT_ESCRDGL_LIB_OUTPUT_ESCFRDGL_LIB_SET_TEXT_ROTDRrDGL_LIB_SET_CHAR_SIZERDGL_LIB_SET_ECHO_POSlRDGL($"pQi ,  QQi  rQi ІQi  $.00$"i >Qi  (           ( Q   \  Q "      Q ,    Qi  i, 9 9   E ]99q9, Q   ( 9 DGL_VARS ASM_TRUNCGLE_GEN_GLE_AWAIT_BLANKINGGLE_GEN_GLE_MOVEDGL_GEN_CK_SYSTEM_INITDGL_GEN_CK_DISPLAY_INITASM_RMULASM_RADDASM_RSUBASM_RDIVDGL_GEN_CK_LOCATOR_INITASM_GE DGL_GEN_ERRORASM_GTASM_LTDGL_GEN_CALCULA(\  [=)) MODULE DGL_POLY; import dgl_types; export procedure set_pgn_ls ( index : integer); procedure set_pgn_color ( index : integer); procedure set_pgn_table ( index : integer; pdensity : real; porient : real; pedge : integer); procedure set_pgn_style ( inde) NA-m-mF nJhW"n2)h^thWrhW@J.ghB$i0)E-Jphf/:/:/:/:$n/*/*/:\/:TN n/( /(/:Z/:RN n/(//:2/:*NNNNNN n!_BB /-FN);_GEN_GLE_DEFINE_DRAWING_MODEDGL_VARS_INIT_DISPLAY_LIM SYSGLOBALSGLE_GEN_GLE_GET_P1P2GLE_GEN_GLE_TERMIODECLARATIONS HPM_DISPOSEDGL_VARS_INIT_LOCATOR_LIMGLE_GENI_GLE_INPUT_TERMGLE_GEN_GLE_MARKER_SIZEGLE_GEN_GLE_GRAPHICS_ON_OFF ASM_STRLTRI) Q        E  Di$Ȯ   ""  fQ   >V !.9 9 .9998Q 2=9* ! 9) fx : integer ); procedure int_polygon_dd ( num_points : integer; anyvar xvec, yvec : gshortint_list; anyvar opcodes : gshortint_list ); procedure polygon_dev_dep ( num_points : integer; anyvar xvec, yvec : greal_list; anyvar opcodes : gshortint_list )5`/:/:/:/: n/(/NNN n!_/:/:/:/:"n/) /)NNN n!_/:/:~/:/:"n/)/)NNN n!_ /-FN`$ n "n0)H!@/-FN n|N^Nu?(\)?333333??)M ASM_STRRTRIM DGL_GEN_MINDGL_CONFG_OUT_CONFIGURE_GLEFS_FWRITESTRINT DGL_CONFG_IN_CONFIGURE_INPUT_GLEGLE_GENI_GLE_GET_INPUT_P1P2HPM_NEWGLE_GEN_GLE_INIT_GCBGLE_GENI_GLE_INIT_INPUT_GCBKEYSDGL_VARS_INIT_WINDOWDGL_VARS_INIT_VIR_LIM)M)COPYRIGHT 1983 BY HEWLETT-PACKARD COMPANY,ĚP4" $DGL_POLY"RFF\Fl..) A); procedure int_polygon ( num_points : integer; anyvar xvec,yvec : gshortint_list; anyvar opcodes : gshortint_list ); procedure polygon ( num_points : integer; anyvar xvec, yvec : greal_list; anyvar opcodes : gshortint_list ); END; ACINGDGL_GEN);Gz@NANN-m-mF n0(xH]JhxW"n2)H]J]g -| n1n B(N^.NuNANN-m n0(rH]r^g -| n1n N^.NuNANN-m n0(vH]r^g)TE_VIEWINGASM_EQASM_LEGLE_GEN_GLE_FLUSH_BUFFERGLE_GEN_GLE_BUFFER_MODEGLE_GEN_GLE_LINEWIDTHDGL_GEN_DISPLAY_LIMITSGLE_GEN_GLE_CLEARDGL_AUTL_DGL_SCALED_MOVE ASM_FLOATDGL_AUTL_DGL_SCALED_DRAWDGL_LIB_SET_CHAR_SIZEDGL_LIB_SET_TEX)wDGL_VARS_INIT_VIEWPORTIODECLARATIONS_IODECLARATIONSDGL_TOOLS_DGL_TOOLSDGL_CONFG_IN_DGL_CONFG_INDGL_CONFG_OUT_DGL_CONFG_OUTGLE_GENI_GLE_GENIGLE_GEN_GLE_GENDGL_GEN_DGL_GENDGL_AUTL_DGL_AUTLDGL_VARS_DGL_VARSGLE_TYPES_GLE_TYPES KEYS_KEYS) N.'0^2.!ht h'&_BASE) STRDELETEE & .Nv# .Nv# .Nv# .Nv#* zhg0(H/N-mF.@@|-| .lDNv f n-hB-n` .lDNv".lDNvmZ n-hY/./.N/.NP-_B.BY/</.N/.N* lDNv-@`N n-hY/./.N/.N-_*u-@N ./:/:/./.-@N .tVJV n6(vHö]x^Ćg/<N n"h .//<-IN"n A-H nLHLHpW("n0)Hf0)H/NN^ _NV* .Nv/N/.N .ПNv n Y/. .Nv/N/.N .ПNv n +o N,_+_pmfz/.N/.N/:z/:rNN/.N/.N/:R/:JNNNLH/.N/.N/:/:NN/.* `> n .Nv! .Nv! .Nv! .Nv!`F nBB .Nv! .Nv! .Nv! .Nv!N^ _NNA n"h . NvC-I"n-Q-i"h .NvC-I"n-Q-ipg2 .f#|* Y/</.N/.N lDNv-@po -|-|-|-|-| n" .NvJg n" .Nv-pRNvp-nn@-@ .SNvNvЮNv/ .UNvNvЮNv/./NB .Rh .SNvNvЮNv-@/./../N .T*1?@VNA-m-mF/:/: n/(/(N.gP n0(zH-@0(|H-@0(~H-@0(H/N n0(H/N/<N-|-|p-nܰn-@ .fh n .RNvNv"n#p n .TNvNv#p/-F*N/.N/:/:NNNLH/./././.NLH/:/:/./. .Nv/NN/.NNNN n /:\/:T/./. .Nv/NN/.NNNN n `NJN^ _(N?* `` .f n!|N^ _ NNA nJ(g=|Bn` Bn=| .Ю Nv=@| n"h .Nv2.HҀ-q .Ю Nv2.Hg( n"h0.H2.HҀ-q .o"h0.H NvNv2.HҀ$h0.H4.HԀ%(*Nv-@`PSNv-|-| n" .NvJg n" .Nv-p-n .ЮNv-@p-nn-@ .RNv-@ n .NvrW"._g RNv` .m4-n n .NvrW".]g RNv` n .Nvrg/./.*\  [=++W-| n -| .,npV n".ҁNvtpWg> .SNv n P".Nv!-nRNv-|RNv n RNvJ.0gT n .NvHp n .NvHp n P .NvHp n P .RNvNvHpN`J-_gT n( .ЀNv?0 n$+ "HnHn/.Hn/<HnHnN-mF| nphf2/-FN nJhZf!n!n/-FNB.N2 m(.g/. nHP/..N n .ЀNv?0 n .ЀNv?0N/-N+o N,_+_pmg /-NNJN^ _NNA+)/</./</N.gSNvp-nn-@ n .NvA-H n .నW".ಐWgVRNv"n .Nv#"n .Nv# RNv"n .Nv#"n .Nv# .Rhh-| .TNv-@ .l n .RNvNv".+g-n .D-@-nJ.g n0(Hg /.NN^ _NNA-m/:/: n/(/(NJg nLH/:/:/(/(N n(@/:d/:\/(/(NJg mF0(H-@`F mF0(H/N n/(/(/:/:+ n .ЀNv?0 n P .NvHp n P .RNvNvHpN`| n( .ЀNv00H/N-_-_Hn n$ .ЀNv00H/N-_-_Hn n P .NvHp n P .RNvNvHpNTNvRNv`T .SNv n P".Nv! n P .NvB/. /./.+ /-/Hz+O</.HnHn/./. /.Hn/<HnHnN-mF| nphf2/-FN nJhZf!n!n/-FNB.N m(.g/. nHP/..Nh n .NvHp n .NvHpN/-N+o N,_+_pmg+NvҀ"n .Nv$.NvԀ 1(_ n".RNvNv$.Nvԁ"n".Nv&.Nvց"18(_g n .Nv".NvҀ"n .Nv$.NvԀ 1(o> n .Nv"n".Nv# n .Nv"n".Nv# n .RNvNv".NvҀ"n .RNv+NNN lDNv-@po -|J.g .Nv-@pfLH/././:/:NLH/:/:/./.NNN-_/:x/:p/./.NNN-_/. /. n0(H/0(H//./../.NN^ _PON+ KNN-m-mF nJ(g"n"` nB nLH/././:8/:0NLH/:0/:(/./.NNN n!_/:/:/./.NNN n!_ /:/:"n/)/)NJg n0(H!@`/:/: n/(/(+ /-NNJN^ _NNA/-/Hz+OB'/././. HnHn/.Hn/<(HnHnN nHP nHPNN2 mJ(g/. nHP/.B'N n .ЀNv?0 n .ЀNv?0N/-N+o N,_+_pmg /-NNJN^ _NNA/-/+Nv$.NvԀ 1(lN n .RNvNv"n".RNvNv# n .RNvNv"n".RNvNv# .UNv".-@nR-A n .TNvNv"n".Nv# n .TNvNv"n".Nv#".RhUNv .TNv-@`TNv`TNv .찮op+?FR?@NANNJ,n/<N npPg/<NHmN/./.,/< NXNvN-m n0(|H+@0(~H+@0(|hg0(H/N nph~g/<N nJ(fN-|-|-|+ s~NJg nB`\ n0(H/N n/(/(/:X/:PNNN lDNv n!@po !|N^ _*N?FR?@`NA-m n0(Hg /-Npg /-NN^NuNA/-/Hz+OB'/././. +Hz+O</.HnHn/./. /.Hn/<(HnHnN nHP nHPNNT mJ(g/. nHP/.B'N n .NvHp n .NvHpN/-N+o N,_+_pmg /-NNJN^ _NNNNNNNNNu+X .ఐf8Jf,RNv"n .Nv#"n .Nv# ` n .నf8Jf,RNv"n .Nv#"n .Nv#``RNv/./. .ЮNv/ .ЮNv/ n/(/( /(/("n .NvHq"n .NvHqNd .RhJ.gpl+lJ.@@J.g/./</ .SNv n P".Nv!-nRNv-|RNv n RNvJ.0gT n .NvHp n .NvHp n P .NvHp n P .RNvNvHpN`J-_gT n( .ЀNv?0 n$,b - ".--- 9 9 9 9E9 9 9 9E Q,9 9!!-(9 9!!-$~]iH : ~&2DuJ  Ј ,(}  ,,_GEN_GLE_MOVEGLE_GEN_GLE_DRAWASM_DIV SYSGLOBALS ASM_FLOATASM_RSUBASM_RDIV DGL_GEN_MAX DGL_GEN_MINASM_MODASM_EQASM_SINASM_COSHPM_MARK ASM_NEWBYTESDGL_GEN_CONVERT_WTODDGL_GEN_CONVERT_INTWTODGLE_GEN_GLE_GET_POLYGON_INFO, ~2N`'0^/,.!hzt h'&_BASE) STRDELETEE &BnRn n0. nm n  nB nB` n `-mB n0(H np=hnn(=@ n0."n2.E0.R@h n"n0(H""n#|"mBCEDp fS@f"n#|` n!|` n N^ _-^PRTVXZ\^`cegiVU VY(^%0e8NANY/.$/./.N n BnRn0.HA(20$f` n(m n  nJf F-m-mF0.HA"0p ?0;NPz DF- nC0-I"n$n LH n LH`J-g<0-H/N n LH0-H/N n LH` n LH n LH`h nC-I"n$n LH n LH n LH n LH` nC-I"n$n LH- 0(H"` n"n0(xH"` n"n0(H"`J-f0p n n0 n ` n ` nCEpR@ f S@f`Ppr(=Ann(=@ n0."n2.E0.R@h n"np("`|< HnA HP n/(BgN-  NKNOB NNNNu`J-g<0-H/N n LH0-H/N n LH` n LH n LH` nC-I"n$n LH n LH n LH n LH` nC-I"n$n LH-Jn 0V|@h  4Hz >  m"n L@H m"n LHH` /-/- n/(NN n LH/-/- n/(NN n LH` BJ-g( n"n LnH"n LvH` n L H n L- n LH n LH n LH` nJ(g"n"` nB` nJh`f "nB` n `-mFJ-g n"n0(H"` nB`TJ-g n"n0(H"` nB`.J-g n"n0(H"` nB`J-g n- JgNCSNv . m>p-nⰮn"=@0. n2.0.HRh n ` n `J-f0p n n0 n ` n `|< HnA HP n/(BgNJgNCSNv . m>p-nⰮn"=@0. n2.- n LH n LH n LH` nJ(g"n"` nB` nJh`f "nB` n `-mFJ-g n"n0(H"` nB`J-g n"n0(H"` nB`J-g n"n0(H"` nB`J-g n- H` J-g nC0-I"n/)r/)n$n/*//* /*NN n LH n/(z/(v"n/)/)/)/)NN n LH` n L rH n L dH` H n"n LH"n LH` $J-g.-mB n"n LH"n L-B"n0(rH"` nB`J-g n"n0(H"` nB`J-g n"n0(tH"` nB` n"n0(zH"` n"n0(|H"`n n"n0(~H"`Z n"n0(H"`FJ-g n"n0(vH"` nB` n"n0(H"` n"n0(H-\  [=.3.' !9E(EUl] !9*EU yX99~9999 99 9P922^99N9902@99>9999999&9&9&9&9&9v9N9*909$9$909\.'BLIBS:IvNIODECLARATIONS GENERAL_0IOLIBRARY_KERNEIOCOMASM  GENERAL_1 *HPIB_1*4 GENERAL_24= GENERAL_3=K GENERAL_4-. KMODULE IODECLARATIONS; IMPORT sysglobals; EXPORT CONST iominisc = 0 ;  iomaxisc = 31; # minrealisc = 7 ; maxrealisc = 31; P io_line_feed = CHR(10); io_carriage_rtn = CHR(13); ioescapecode = .  ioe_misc = 23;  ioe_sr_toomany = 304;  ioe_dc_fail = 306;  ioe_dc_usart = 313;  ioe_dc_ovfl = 314;  ioe_dc_clk = 315;  ioe_dc_cts = 316;  ioe_dc_car = 31.[9d9Zd99\9j9\(g"n"` nB` nphW-g"n"` nB`~ n-(g"n"` nB`VJ-g n"n0(H"` nB`0 nJhx^-g"n"` nB` n"n.ipKQHPIB_05PQZHPIB_2ԦZbHPIB_3hbkSERIAL_0 ȦkvSERIAL_36 GLE_RAS_OUT GLE_KNOB_INGLE_GEN@GLE_GENI@ DGL_TYPESP.  -26; ioe_no_error = 0;  ioe_no_card = 1;  ioe_not_hpib = 2;  ioe_not_act = 3;  ioe_not_dvc = 4;  ioe_no_space = 5;  ioe_no_data = 6;  ioe_bad_tfr .7;  ioe_dc_act = 318;  ioe_dc_conn = 319;  ioe_dc_conf = 325;  ioe_dc_reg = 326;  ioe_dc_rval = 327;  ioe_sr_fail = 353; no_isc = 255; . !DGL_GEN_CK_SYSTEM_INITDGL_GEN_CK_DISPLAY_INITDGL_VARS DGL_GEN_ERRORASM_MPYDGL_GEN_CONVERT_RGB_TO_HSLDGL_GEN_OPCODE_CK ASM_FLOATASM_RMULASM_RSUBASM_RDIVFS_FWRITESTRINT SYSGLOBALSDGL_GEN_DGL_GENDGL_VARS_DGL_VARSGLE.bM z zĚKzFP,ĚP z|IODECLARATIONSVRF4zFDZ... P= 7;  ioe_isc_busy = 8;  ioe_buf_busy = 9;  ioe_bad_cnt = 10;  ioe_bad_tmo = 11;  ioe_no_driver = 12;  ioe_no_dma = 13;  ioe_no_word = 14; ioe_not_.gtl_message = CHR( 1 ); sdc_message = CHR( 4 ); ppc_message = CHR( 5 ); get_message = CHR( 8 ); tct_message = CHR( 9 ); llo_message = CHR( 17 ); dcl_message = CHR( 20 ); ppu_message = CHR( 21 ); spe_message = CHR( 2.LYGONSR!DGL_POLY_DGL_POLYR"DGL_POLYEDGL_LIB_SET_ECHO_POSlRDGL_LIB_SET_LOCATOR_LIMRJDGL_LIB_SAMPLE_LOCATORRDGL_LIB_AWAIT_LOCATORR DGL_LIB_DISPLAY_TERMDRDGL_LIB_LOCATOR_TERMvRDGL_LIB_GRAPHICS_TERMR PDGL._TYPES_GLE_TYPESd99\9j9\(g"n"` nB` nphW-g"n"` nB`~ n-(g"n"` nB`VJ-g n"n0(H"` nB`0 nJhx^-g"n"` nB` n"n.|&nNn'l0(8.j ^A NH^RIOLIBRARY_KERNEL__BASEIOLIB:KERNEL.CODEODOD  DEBUGGER.CODE. ! talk = 15;  ioe_not_lstn = 16;  ioe_timeout = 17;  ioe_not_sctl = 18;  ioe_rds_wtc = 19;  ioe_bad_sct = 20;  ioe_crd_dwn = 21;  ioe_eod_seen = 22;  .\  [=//  : io_proc_s ; iod_end : io_proc_vb ; iod_tfr : io_proc_ptr ; iod_send : io_proc_c; iod_ppoll : io_proc_vc ; iod_set : io_proc_l ; iod_clr : io_proc_l ; iod_test : io_proc_vl ; END; io_funny_proc = RECORD CASE BOOLEAN OF TRUE: ( real_proc /RECORD  myisrib : ISRIB ;  user_isr : io_funny_proc;  user_parm : ANYPTR ;  card_addr : ANYPTR ;  in_bufptr : ANYPTR ;  out_bufptr: ANYPTR ;  /`hp98625  = 8;  hp98628_async = 20; hp98627  = 28;  TYPE type_isc J= iominisc..iomaxisc ; type_device = iominisc..iomaxisc*100+99; io_bit = 0..15 ; io_byte  = 0..255 ; io_word/( temp : ANYPTR; v : io_word ); io_proc_vw = PROCEDURE ( temp : ANYPTR; VAR v : io_word ); io_proc_s = PROCEDURE ( temp : ANYPTR; reg : io_word ; v : io_word ); io_proc_vs = PROCEDURE ( temp : ANYPTR; reg : io_word ; VAR v / *E: io_proc ); FALSE: ( dummy_pr : ANYPTR ; dummy_sl : ANYPTR ) END;  O io_temp_type = PACKED RECORD myisrib : ISRIB ; user_isr : io_funny_proc;  user_parm : ANYPTR ; 5 card_addr : ANYPTR ; in_bufptr : ANYPTR ; out_bufptr/eirbyte : CHAR ;  my_isc : io_byte ;  timeout : INTEGER ;  addressed : io_word ; + drv_misc : ARRAY[1..160] OF CHAR ; END; ! pio_tmp_ptr = ^io_temp_typ/ 4 ); spd_message = CHR( 25 ); unl_message = CHR( 63 ); unt_message = CHR( 95 ); ppe_message = CHR( 96 ); ppd_message = CHR(112 ); talk_constant = 64; listen_constant = 32; no_card = 0 ; other_card = 1 ;  / = -32768..32767 ; io_string = STRING[255]; io_proc_type = PROCEDURE; errlnk_type = PROCEDURE ( errorcode : INTEGER ; VAR s : io_string ); type_of_card = io_word; type_card_id = io_word; type_hpib_addr = 0.. /L: io_word ); io_proc_l = PROCEDURE ( temp : ANYPTR; line : io_bit ); ? io_proc_vl = PROCEDURE ( temp : ANYPTR; line : io_bit ; e VAR v : BOOLEAN ); io_proc_vb = PROCEDURE ( temp : ANYPTR; VAR v : BOOLEAN ); io_proc_ptr / I: ANYPTR ; eirbyte : CHAR ; my_isc : io_byte ; timeout : INTEGER ; addressed : io_word ; drv_misc : ARRAY[1..32] OF CHAR ; END; io_temp_type2 = PACKED RECORD myisrib : ISRIB ; user_isr : io_funny_proc;  user_parm : /Z{system_card = 2 ; hpib_card = 3 ; gpio_card = 4 ; serial_card = 5 ; graphics_card = 6 ; srm_card = 7 ;    hp98628_dsndl = -7; hp98629  = -6;  hp_datacomm =/31 ; type_hpib_line = ( ren_line , ifc_line , srq_line , eoi_line , nrfd_line , ndac_line , dav_line , atn_line ) ; type_parity = ( no_parity , odd_parity , even_parity , zero_parity , one_parity ); type_serial_line= ( rts_line , cts_line , dcd_/ g = PROCEDURE ( temp : ANYPTR; v : ANYPTR ); drv_table_type = RECORD iod_init : io_proc ; iod_isr : ISRPROCTYPE ; iod_rdb : io_proc_vc ; iod_wtb : io_proc_c ; iod_rdw : io_proc_vw ; iod_wtw : io_proc_w ; iod_rds : io_proc_vs ; iod_wtc / <ANYPTR ; ~ card_addr : ANYPTR ; in_bufptr : ANYPTR ; out_bufptr: ANYPTR ; eirbyte : CHAR ; my_isc : io_byte ; timeout : INTEGER ; Z addressed : io_word ; drv_misc : ARRAY[1..128] OF CHAR ; END; io_temp_type3 = PACKED /( -5; hp98620 O = -4; internal_kbd = -3; internal_crt = -2; internal_hpib = -1; no_id  = 0; hp98624  = 1; hp98626  = 2; hp98622  = 3; hp98623  = 4; /line , dsr_line , drs_line , ri_line , dtr_line ); io_proc = PROCEDURE ( temp : ANYPTR ); io_proc_c = PROCEDURE ( temp : ANYPTR; v : CHAR ); io_proc_vc = PROCEDURE ( temp : ANYPTR; VAR v : CHAR); io_proc_w = PROCEDURE /\  [=0J0e; isc_table_type = RECORD io_drv_ptr: ^drv_table_type; io_tmp_ptr: pio_tmp_ptr; card_type : type_of_card; user_time : INTEGER; card_id : type_card_id; card_ptr : ANYPTR; END; user_tfr_type = ( dummy_tfr_1 ,  serial_DMA , 0oc : io_funny_proc;  eot_parm : ANYPTR ; / dma_priority: BOOLEAN; END; VAR dma_ch_0 6: io_funny_proc ; dma_isc_0 : io_byte ; dma_ch_1 H: io_funny_proc ; dma_isc_1 : io_byte ; dma_isrib0 : ISRIB 0| nNn^0^.j ^A NH^RIOLIBRARY_KERNEL__BASEIOLIB:KERNEL.CODEODOD  DEBUGGER.CODE0 oc : io_funny_proc;  eot_parm : ANYPTR ; / dma_priority: BOOLEAN; END; VAR dma_ch_0 6: io_funny_proc ; dma_isc_0 : io_byte ; dma_ch_1 H: io_funny_proc ; dma_isc_1 : io_byte ; dma_isrib0 : ISRIB 0+serial_FHS , serial_FASTEST , dummy_tfr_2 , overlap_INTR , overlap_DMA , overlap_FHS , overlap_FASTEST , OVERLAP ) ; actual_tfr_type = ( no_tfr , INTR_tfr , DMA_tfr , BURST_tfr , FHS_tfr ) ; % dir_of_tfr = ( to_memory, 0[$; dma_isrib1 : ISRIB ; dma_here L: BOOLEAN; io_work_char : CHAR; ioe_result : INTEGER; ioe_isc Z : INTEGER; isc_table : PACKED ARRAY [type_isc] OF isc_table_type; io_revid : STRING[96]; io_model_nam0 MODULE GENERAL_0; IMPORT iodeclarations; EXPORT VAR kbd_crt_drivers : drv_table_type; dummy_drivers : drv_table_type; FUNCTION ioread_word ( select_code: type_isc ; register : io_word ) : io_word ; PROCEDURE iowrite_word( select_code: type_isc0 2bM z z4,K@zFP,,Ě0RPzrIOLIBRARY_KERNELR: R'zF'..0S from_memory  ) ; buf_type = PACKED ARRAY[0..maxint] OF CHAR; buf_info_type = RECORD drv_tmp_ptr : pio_tmp_ptr; active_isc : io_byte; act_tfr : actual_tfr_type ; usr_tfr : user_tfr_type ; b_w_mode : 0$e : STRING[20]; io_model_number : INTEGER; io_error_link : errlnk_type; PROCEDURE io_escape ( my_code : INTEGER ; select_code: INTEGER); FUNCTION io_find_isc ( iod_temp : ANYPTR ): io_byte; END; ANYPTR ;  0  ; register : io_word ; value : io_word); FUNCTION ioread_byte ( select_code: type_isc ; register : io_word ) : io_byte ; PROCEDURE iowrite_byte( select_code: type_isc ; register : io_word ; value : io_byte); FUNCTION iostatus ( 0 .N&PĚ,J> z zxHPx,Ě|PHPP8PI80 BOOLEAN ;  end_mode : BOOLEAN ; 4 direction : dir_of_tfr ; term_char : -1..255 ; term_count : INTEGER ; buf_ptr : ^buf_type ; buf_size : INTEGER ; buf_empty : ANYPTR ; buf_fill : ANYPTR ; eot_pr09bM z zĚK6zFP,ĚPz| GENERAL_0 RFF4"zF"DZ..0 select_code: type_isc ; register : io_word ) : io_word ; PROCEDURE iocontrol ( select_code: type_isc ; register : io_word ; value : io_word); PROCEDURE kernel_initialize; PROCEDURE io_system_reset; END; ANYPTR ; buf_fill : ANYPTR ; eot_pr0 CA*%IOCOMASM*R+0\  [=11 6 ); END; D PPaPP!= iP6X > .r6 V"H$ TfhD L ""&6^"dH46.1 R H/N0. A:A-H/:P/:H/./.NN n!_ Jg "h#h .N^ _\ON?PbM@@@NNur6 V"H$ TfhD L ""&6^"dH46.1 ) : INTEGER ; FUNCTION binior ( x : INTEGER ; y : INTEGER ) : INTEGER ; FUNCTION bineor ( x : INTEGER ; y : INTEGER ) : INTEGER ; FUNCTION bincmp ( x : INTEGER ) : INTEGER ; END; { IOCOMASM } 1K@ N'Z0^.!h"*t h&r&_BASE) STRDELETEE|,H048JgH0.A>-p nph2g =h2 `/<0.H/N`/<0.H/NN^ _TONNA0.ABrpf.UU?.?<N0H//<20.A:A-H nJg"h#h ."hpi2gphg20.HdH@J@l|dr@l/<0.H/N?.U?.Np@_Nv?.%D%B%V%X5=5Y=% amHy/("PJg/)"QNN^ _TONNA0. A:A-H n/(/."PJg/)"iNN^ _\ONNA0. A:A-H n/(."PJg/)"iNN^.NuNA0. A:A-H2yfM z zĚLzFP,ĚPz> *HPIB_1>RzFF\zFl..2 ytype_isc; FUNCTION set_to_listen ( device : type_device) : type_isc; FUNCTION end_set ( select_code : type_isc ) : BOOLEAN; END; 6 V"H$ TfhD L ""&6^"dH46.2 )"h#h ."hpi2gphg20.HdH@J@l|dr@l/<0.H/N?.0.HdH@J@l|dr@@N?.Sb`lACSb`VACSb`@A0CSb`*AfCSb`A2CSb 2mZ GnN .02;N08F8\r86 "AfCSb`ACSb`AX5[er for this cardnot addressed as talkerreceive buffer overflowlost carrier disconnectinterface should be hpibnot addressed as listenerconnection not establishedcontrol value out of rangeimproper transfer attemptedword operations not allowedbad5\  [=6|6MODULE GENERAL_4; IMPORT iodeclarations ; EXPORT PROCEDURE abort_transfer ( VAR b_info: buf_info_type ); FUNCTION transfer_setup ( device : type_device; t_tfr : user_tfr_type; t_dir : dir_of_tfr ; VAR b_info: buf_info_type ; VAR t_cnt : 6VAR b_info: buf_info_type) : INTEGER; FUNCTION buffer_data( VAR b_info: buf_info_type) : INTEGER; PROCEDURE readbuffer ( VAR b_info: buf_info_type; VAR value : CHAR); PROCEDURE writebuffer( VAR b_info: buf_info_type; value : CHAR); PROCEDURE readbuffe6 NA-n nHh/.N nBh1|!n!h!h BB(B$B,B(0N^ _PONNA-n n ( -@ N^.NuNA-n n hf!h !h`/< /<NN^.NuNA-nY/.NJf n hf /.N n (Ш -@6 R/. HnNP=_ n | 0.A:A-H0.A>/0/. n"PJLg/)L"iHNN^ _NNAY/.NF-_U?.?.?. /.HnN=_pn f/<0.H/N-n np.1@pnf1|pnf n1|p nf n6INTEGER ) : type_isc ; PROCEDURE transfer ( device : type_device; t_tfr : user_tfr_type; t_dir : dir_of_tfr ; VAR b_info: buf_info_type; x_count : INTEGER ) ; PROCEDURE transfer_word ( device : type_device; t_tfr : user_tfr_type; 6r_string ( VAR b_info: buf_info_type; VAR str : STRING; str_count : INTEGER); PROCEDURE writebuffer_string ( VAR b_info: buf_info_type; str : io_STRING); FUNCTION buffer_busy( VAR b_info: buf_info_type ) : BOOLEAN; 6 e N^.NuNA-n n hg20(C:C-I"n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf61|pnWgpnWg`/<0.H/N0.A:A-H0.A>/0/. n"PJLg/)L"iHNN^ _ NNApn fY/.N-_`Y/.N-_U?.?.?. /.HnN=_ n| 0.A:A-H0.A6t_dir : dir_of_tfr ; VAR b_info: buf_info_type; x_count : INTEGER ) ; PROCEDURE transfer_until ( term : CHAR ; device : type_device; t_tfr : user_tfr_type; t_dir : dir_of_tfr; VAR b_info: buf_info_type ) ; PROCEDURE transfer_end ( dev6 . FUNCTION isc_busy ( isc : type_isc ) : BOOLEAN; END; sed as listenerconnection not establishedcontrol value out of rangeimproper transfer attemptedword operations not allowedbad6 % /. NtJnf0.A> pJ$g/<0.H/NY/. Nt n l/<0.H/NU?.N=_0.A> p!n $`0.A> pJ(g/<0.H/NY/. N n l/<0.H/NU?.N6>/0/. n"PJLg/)L"iHNN^ _ NNAY/. Npo/</<N`J-n n hgph f/</< N n-h"n$nRN^ _PONNAY/. Npo/</<N`F-n n hgJh f/</<6s N0^8.!h"*t h&r&_BASE) STRDELETEE|,H048 p!n (0. nC> Bh1nB( B( 1n 1|"n!Q=nN^ _NNA-nU?.?.?./. HnN=_0.A:A-H0.A>/0/. n"PJLg/)L"iHNN^ _NNA-nU?.?.?.6\  [=77e N^.NuNA-n n hg20(C:C-I"n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf7GENERAL_4_TRANSFER_UNTILRlGENERAL_4_TRANSFER_ENDNRGENERAL_4_READBUFFERRR0GENERAL_4_WRITEBUFFERRGENERAL_4_READBUFFER_STRINGR(GENERAL_4_WRITEBUFFER_STRINGRGENERAL_4_BUFFER_BUSYRBGENERAL_4_ISC_BUSYRpGENERAL_4_GEN7\  [=7 e N^.NuNA-n n hg20(C:C-I"n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf7e_isc ; line : type_hpib_line) : BOOLEAN; END; "n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf7GENERAL_4__BASERGENERAL_4_IOBUFFERMRGENERAL_4_BUFFER_DATARZGENERAL_4_BUFFER_RESETR|GENERAL_4_BUFFER_SPACENRGENERAL_4_ABORT_TRANSFERGR GENERAL_4_TRANSFER_SETUPRZGENERAL_4_TRANSFERRRnGENERAL_4_TRANSFER_WORDR7 Иz5^5" 25"* E55"* Y55t55l55z|55Ȑ55T4J2D.ІȂ5$VfJ(Vf` | `B. N^ _TONNuNA-nY/.NJf n hf /.N n (Ш -@7 MfM z zĚLzFP,ĚP z|8HPIB_0 RzFF\:zF:l..7NA0. A:A-H n/(?."PJdg/)d"i`NN^.NuNA0. A:A-H n/(?."PJlg/)l"ihNN^.NuNA0. A:A-H n/(?.Hn"PJtg/)t"ipNn N^.NuNune); FUNCTION hpib_line ( select_code : typ7 N n-h "nR N^ _\ONNAp.l/</<N n  Y/.N l/</<N`:p-nn"-@/. n .HpN .Rh n  N^ _NNA nCSbY/. Np.o/</<N7GENERAL_4_TRANSFER_UNTILRlGENERAL_4_TRANSFER_ENDNRGENERAL_4_READBUFFERRR0GENERAL_4_WRITEBUFFERRGENERAL_4_READBUFFER_STRINGR(GENERAL_4_WRITEBUFFER_STRINGRGENERAL_4_BUFFER_BUSYRBGENERAL_4_ISC_BUSYRpGENERAL_4_GEN7e N^.NuNA-n n hg20(C:C-I"n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf7  NF0(.!h"*t h&r&_BASE) STRDELETEE|,H048-p nJ$VfJ(Vf` | `B. N^ _TONNuNA-nY/.NJf n hf /.N n (Ш -@7dERAL_4R GENERAL_4AL_4_IOBUFFERMRGENERAL_4_BUFFER_DATARZGENERAL_4_BUFFER_RESETR|GENERAL_4_BUFFER_SPACENRGENERAL_4_ABORT_TRANSFERGR GENERAL_4_TRANSFER_SETUPRZGENERAL_4_TRANSFERRRnGENERAL_4_TRANSFER_WORDR7  И ASM_NEWBYTESIODECLARATIONS_IO_ESCAPEIODECLARATIONSHPIB_1_ADDR_TO_TALKHPIB_1_ADDR_TO_LISTENT4J2D.ІȂ5$VfJ(Vf` | `B. N^ _TONNuNA-nY/.NJf n hf /.N n (Ш -@7 klMODULE HPIB_0; IMPORT iodeclarations ; EXPORT PROCEDURE set_hpib ( select_code : type_isc ; line H: type_hpib_line); PROCEDURE clear_hpib ( select_code : type_isc ; line <: type_hpib_line); FUNCTION hpib_line ( select_code : typ88e_isc ; line : type_hpib_line) : BOOLEAN; END; "n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf8e_isc ; line : type_hpib_line) : BOOLEAN; END; "n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf8N<0^v.!h"*t h&r&_BASE) STRDELETEE|,H048/0/. n"PJLg/)L"iHNN^ _NNA-nU?.?.?.8 HPIB_0__BASEGRHPIB_0_SET_HPIBRHPIB_0_CLEAR_HPIBRDHPIB_0_HPIB_LINELR HPIB_0_HPIB_0RHPIB_0BSPACENRGENERAL_4_ABORT_TRANSFERGR GENERAL_4_TRANSFER_SETUPRZGENERAL_4_TRANSFERRRnGENERAL_4_TRANSFER_WORDR8 B IODECLARATIONS-H n/(?."PJdg/)d"i`NN^.NuNA0. A:A-H n/(?."PJlg/)l"ihNN^.NuNA0. A:A-H n/(?.Hn"PJtg/)t"ipNn N^.NuNune); FUNCTION hpib_line ( select_code : typ8 MODULE HPIB_2; IMPORT iodeclarations ; EXPORT PROCEDURE abort_hpib ( select_code : type_isc); PROCEDURE clear ( device : type_device); PROCEDURE listen ( select_code : type_isc ; address : type_hpib_addr ); PROCEDURE local ( device 8 nNAU?.NJg?.U?.Np@_N?.<?N?.?<N`N^ _TONNAU?.N=_pnl?.<N`?.<NN^ _TONNA?. p n8GENERAL_4_TRANSFER_UNTILRlGENERAL_4_TRANSFER_ENDNRGENERAL_4_READBUFFERRR0GENERAL_4_WRITEBUFFERRGENERAL_4_READBUFFER_STRINGR(GENERAL_4_WRITEBUFFER_STRINGRGENERAL_4_BUFFER_BUSYRBGENERAL_4_ISC_BUSYRpGENERAL_4_GEN8e_isc ; line : type_hpib_line) : BOOLEAN; END; "n/)$QJg/*$RNN^.NuNApnl0.Hd=@`=n0.A>Jf/< 0.H/N-n nJf/< /<N n hg/< /<N`Y/. N`Jf8  : type_device); PROCEDURE local_lockout ( select_code : type_isc); PROCEDURE pass_control ( device : type_device); PROCEDURE ppoll_configure ( device : type_device; mask 8: INTEGER ); PROCEDURE ppoll_unconfigure ( device :  8WNN^.NuNApnl$U?.N=_?.<N`X=nU?.NJg2?.BgNU?.NJg?.?<N`?.<NN^ _TONNA?.<NN^ _TONNApnlF0.Hd=@?./0/. n"PJLg/)L"iHNN^ _ NNApn fY/.N-_`Y/.N-_U?.?.?. /.HnN=_ n| 0.A:A-H0.A9WNN^.NuNApnl$U?.N=_?.<N`X=nU?.NJg2?.BgNU?.NJg?.?<N`?.<NN^ _TONNA?.<NN^ _TONNApnlF0.Hd=@?./0/. n"PJLg/)L"iHNN^ _NNAY/.NF-_U?.?.?. /.HnN=_pn f/<0.H/N-n np.1@pnf1|pnf n1|p nf n9 % %55Ie yy5yy y"y 5 I5yy4y$yy$yyyyy2  %   % yy yyypnl?.<N`?.<NN^ _TONNA?. p n9\  [=:: HPIB_3__BASEGRHPIB_3_REQUESTEDBR HPIB_3_PPOLLPRN HPIB_3_SPOLLNRHPIB_3_REQUEST_SERVICEIRHPIB_3_LISTENERRx HPIB_3_TALKERRHPIB_3_REMOTED_RHPIB_3_LOCKED_OUTR HPIB_3_HPIB_3RNHPIB_3EHPIB_2_SECONDAR: %HPIB_1_ACTIVE_CONTROLLERHPIB_0_HPIB_LINEIODECLARATIONS_IO_ESCAPEIODECLARATIONSHPIB_1_SET_TO_TALKHPIB_1_SEND_COMMANDGENERAL_1_READCHARGENERAL_0_IOCONTROLGENERAL_0_IOSTATUSIOCOMASM_BIT_SETGENERAL_0_GENERAL_0IOCOMASM_IOCOMA: oMODULE SERIAL_0; IMPORT iodeclarations ; EXPORT PROCEDURE set_serial ( select_code : type_isc ; line J: type_serial_line); PROCEDURE clear_serial( select_code : type_isc ; line 7: type_serial_line); FUNCTION serial_line ( select_cod:Z0. H/N0. AHrpf0.mF|n>@2;N222&2-|`.-|`"-|`/<0. H/NU?. ?<N0H-@Y/.Y/.NN-_?. ?<?.N` nphf0.mF|n>@2;N2:g0. ABrpfBU?. NJf?. ?<?. N`/<0. H/N`/<0. H/NN^ _\ONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H/:9YGR HPIB_2_TALKRHPIB_2_TRIGGER4RHPIB_2_UNLISTENR HPIB_2_UNTALKR HPIB_2_HPIB_2R0HPIB_2AL_4_READBUFFER_STRINGR(GENERAL_4_WRITEBUFFER_STRINGRGENERAL_4_BUFFER_BUSYRBGENERAL_4_ISC_BUSYRpGENERAL_4_GEN:SMABrpfBU?. NJf?. ?<?. N`/<0. H/N`/<0. H/NN^ _\ONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H/: e : type_isc ; line : type_serial_line) : BOOLEAN; END; /<0. H/N`/<0. H/NN^ _\ONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H/: /<N_ N^ _TONNAUU?.?<N0H//<N_ N^ _TONNNNu0.H/N`*?.<N?. .r`ҀNN^ _\ONNAU?.N=_pnl"?.<N?.@2;N222&2-|`.-|`"-|`/<0. H/NU?. ?<N0H-@Y/./.N-_?. ?<?.N` n:lV0.Hd=@U?.NJf/<0.H/N?.BgNU?.N=_`:=nU?.NJf/<0.H/N?.BgNN^ _TONNA?. p`nNN^.NuNA?. p@nNN^.NuNAU?.N<NN^ _TONNA?.:g0. ABrpfBU?. NJf?. ?<?. N`/<0. H/N`/<0. H/NN^ _\ONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H//< N_ N^ _TONNAUU?.?<N0H/: q N0^F.!h"*t h&r&_BASE) STRDELETEE|,H048@2;N222&2-|`.-|`"-|`/<0. H/NU?. ?<N0H-@Y/./.N-_?. ?<?.N` n/(?."PJdg/)d"i`NN^.NuNA0. A:A-H nphg/<:\  [=;;phf0.mF|n>@2;N222&2-|`.-|`"-|`/<0. H/NU?. ?<N0H-@Y/./.N-_?. ?<?.N` n/(?."PJdg/)d"i`NN^.NuNA0. A:A-H nphg/<; D NѼ0^.!h"*t h&r&_BASE) STRDELETEE|,H048-|-|`*-|-|`/<0. H/NU?. ?.N0H-@U/./.N_`& np;tSERIAL_0__BASERSERIAL_0_SET_SERIALRSERIAL_0_CLEAR_SERIALRSERIAL_0_SERIAL_LINESRSERIAL_0_SERIAL_0R*SERIAL_0HTALKERRHPIB_3_REMOTED_RHPIB_3_LOCKED_OUTR HPIB_3_HPIB_3RNHPIB_3EHPIB_2_SECONDAR;  ,IODECLARATIONSIODECLARATIONS_IO_ESCAPEGENERAL_0_IOSTATUSIOCOMASM_BINIORGENERAL_0_IOCONTROLIOCOMASM_BINCMPIOCOMASM_BINANDIOCOMASM_BIT_SETGENERAL_0_GENERAL_0IOCOMASM_IOCOMASM0H-@Y/./.N-_?. ?<?.N` n; MODULE SERIAL_3; IMPORT iodeclarations ; EXPORT PROCEDURE set_baud_rate ( select_code : type_isc ; rate : REAL ); PROCEDURE set_stop_bits ( select_code : type_isc ; num_bits : REAL ); PROCEDURE set_char_length ( select_code : type_isc ; n;hf0.m|n@2;NnZF2"-|-|`-|B`z-|-|`f-| -|`R-| -|`>-| -|`*-| -|`/<0. H/NU?. ?.N0H-@U/./.N_`$ n;9YGR HPIB_2_TALKRHPIB_2_TRIGGER4RHPIB_2_UNLISTENR HPIB_2_UNTALKR HPIB_2_HPIB_2R0HPIB_2AL_4_READBUFFER_STRINGR(GENERAL_4_WRITEBUFFER_STRINGRGENERAL_4_BUFFER_BUSYRBGENERAL_4_ISC_BUSYRpGENERAL_4_GEN; phf0.mF|n>@2;N222&2-|`.-|`"-|`/<0. H/NU?. ?<N0H-@Y/./.N-_?. ?<?.N` n/(?."PJdg/)d"i`NN^.NuNA0. A:A-H nphg/<;um_char_bit: INTEGER ); PROCEDURE set_parity ( select_code : type_isc ; parity_mode : type_parity); PROCEDURE send_break ( select_code : type_isc ); PROCEDURE abort_serial ( select_code : type_isc ); END; NA0. A:A-H nphg/<;B/(?.Hn"PJtg/)t"ipNn N^.NuNNNu Npo/</<N`J-n n hgph f/</< N n-h"n$nRN^ _PONNAY/. Npo/</<N`F-n n hgJh f/</<; , l5IYr5IY< , l5m}Yr5m}Y< , 55<.-|`"-|`/<0. H/NU?. ?<N0H-@Y/./.N-_?. ?<?.N` n; fM z zĚMDzFP,ĚPz  SERIAL_3 DRFF\_zF_l..;NA n -X-PB/:,/:$/./.NJg -|/:/:/./.NJg -|/:/:/./.NJg -|/:/:/./.NJg -|/:/:/./.NJg -|/:/:/./.NJg -|/:/:|/./.N;K22&2-|`.-|`"-|`/<0. H/NU?. ?<N0H-@Y/.Y/.NN-_?. ?<?.N` n/(?."PJlg/)l"ihNN^.NuNA0. A:A-H nphg/<0. H/N0. AH; N n-h "nR N^ _\ONNAp.l/</<N n  Y/.N l/</<N`:p-nn"-@/. n .HpN .Rh n  N^ _NNA nCSbY/. Np.o/</<N;\  [=<&<0. AHrpfVYHn/N-_Jf/<0. H/N?. ?<?.N?. ?<?.N`t0. AHrpfF/./.N-_Jf/<0. H/N?. ?<?.N`/<0. H/NN^ _\ONNA n-X-P0.<p AHrpf?. ?<"?.N`z0. AHrpfLU?. ?<N0H-@Y/./<N Ю-@?. ?<?.N`/<0. H/NN^ _\ONNA0. A:A-H nphg/<0. H/N0. AHr< 0. AHrpfVYHn/N-_Jf/<0. H/N?. ?<?.N?. ?<?.N`t0. AHrpfF/./.N-_Jf/<0. H/N?. ?<?.N`/<0. H/NN^ _\ONNA n-X-P0.<?$q=!,!=$=!,!="=!N .П-@?. ?<?.N`/<0. H/NN^.NuNA0.A:A-H nphg/<0.H/N0.AHrpf?.?<?<N`: nph< A:A-H nphg/<0. H/N0. AHrpf/:/:/./.NJg B`f/:/:/./.NJg-|`>/:/:/./.NJg-|`/<0. H/N?. ?<#?.N`J0. AH< pf0.mV|nN@2;N *6B`F-|`:-|`.-|`"-|`/<0. H/N?. ?<$?.N`0. AHrpf0.mV|nN@2;N 6*B`F-|`:-|`.-|`"-|< ZSERIAL_3__BASERSERIAL_3_SET_BAUD_RATERSERIAL_3_SET_STOP_BITSRSERIAL_3_SET_CHAR_LENGTHRRZSERIAL_3_SET_PARITYRSERIAL_3_SEND_BREAKR SERIAL_3_ABORT_SERIALR 8SERIAL_3_SERIAL_3R SERIAL_3_HPIB_2_SECONDAR<`( $ ASM_EQIODECLARATIONSIODECLARATIONS_IO_ESCAPEGENERAL_0_IOCONTROL ASM_ROUNDGENERAL_0_IOSTATUSIOCOMASM_BINANDGENERAL_0_GENERAL_0IOCOMASM_IOCOMASM]$q=!4,!f!=]q=!,!|!=|!]<+Jg -|/:h/:`/./.NJg -|/:L/:D/./.NJg -| /:0/:(/./.NJg -| /:/: /./.NJg -| /:/:/./.NJg -| /:/:/./.NJg -| /:/:/./.N<rpf/:8/:0/./.NJg B`/:/:/./.NJgLYU?. ?<N0H//<NJg/<0. H/N-|`>/:/:/./.NJg-|`/<0. H/NU?. ?<N0H-@ .Y/./<-@N<`/<0. H/NU?. ?<N0H-@ .Y/./<-@N .П-@?. ?<?.N`/<0. H/NN^.NuNA0.A:A-H nphg/<0.H/N0.AHrpf?.?<?<N`: nph< 9YGR HPIB_2_TALKRHPIB_2_TRIGGER4RHPIB_2_UNLISTENR HPIB_2_UNTALKR HPIB_2_HPIB_2R0HPIB_2AL_4_READBUFFER_STRINGR(GENERAL_4_WRITEBUFFER_STRINGRGENERAL_4_BUFFER_BUSYRBGENERAL_4_ISC_BUSYRpGENERAL_4_GEN<Jg -|/:/:/./.NJg -|-nN^ _PON@I@R@[@`@b@i@r@@@ @@ @@@NA n-X-P0. A:A-H nphg/<0. H/N< .П-@?. ?<?.N`/<0. H/NN^ _\ON??@NA0. A:A-H nphg/<0. H/N .[mJn@2;N(B`:-|`.-|`"-|`/<0. H/N0.< f?.?<?<N`/<0.H/NN^ _TONNA0.A:A-H nphg/<0.H/N0.AHrpf?.?<}?<N`8 nphf?.Bg?<N`/<0.H/NN^ _TONNNNu0. H/N< S( $ $ $ $ $ $ $ $ $ $ $ $ $ $ ȴ,!8!==Q !=!(,!" $ ( &!=" $ ]q!" &!]$q=!4,!f!=]q=!,!|!=|!]<\  [=== = =  =  = = =  = = = =\  [==  = =?$q=!,!=$=!,!="=!N .П-@?. ?<?.N`/<0. H/NN^.NuNA0.A:A-H nphg/<0.H/N0.AHrpf?.?<?<N`: nph= = =  >4> > > >  >\  [=> > >  >  > > >  > > > >  > ?? ? ? ?  ? ? ?  ?  ? ? ?\  [=?  ? ? ? ?  ? @q@ @ @ @  @ @ @  @  @ @ @  @ @ @ @  @ @\  [=AA A A A  A A A\  [=A  A  A A A  A A A A  A BcBBBB BBB B BBB BB\  [=BBB BCCCC\  [=CC CCC C CCC CCCC CDUDDDD DDD D D\  [=DDD DDDD DEEEEE EEE E EEE EEEE\  [=E EFF