IMD 1.18: 21/01/2023 17:58:36 PRQ-SFT-IBD-6 3RCC PERQ PASCAL COMPILER BINARY DISTRIBUTION FLOPPY Copyright (C) Three Rivers Computer Corporation, 1982 single density, double sided D.6 Group name Command file PASCAL.BINARY BIN.CMD LINK.CMD   %veww LKw##w ##w J;dzJ;d[qJ] w  L+(e^wJU(gzwJ(ZwJjvwJj  J JvLDJH:dw;dw# Zc ** Loader-F-`cc`c is ill-formed.`c'\ BBYXIϟc ** Loader-F-`cc`c was linked as a System,`cc- it cannot be run as a user program.`c'\( c ** Loader-F-`cc`c was linked with System.`cɉ``c.Run`cc, but the current system is version `c``.ccc You must re-link.`c'\HLH]c ** Loader-F-`cc}`c. not found.`c'\I5}6k  ,n(<nHnX )n݂4`nJ)̸]mHm݂m}m`}` ``c@`}]ʷd}];c3) .PAS Pc}]=c}3 a}yyrm݂-k-39f3.LST Jd}k}];' `}]='v`** File  J -k-.LSTJH`.LST` JPc} }.LST3fk-dk}k-Pc} }CONSOLE:3is empty. JS}4.PASJH`.PAS` JPc}4 }4.PAS3:3fk-d7fk-.LST Jd;m݂-k-3`SYMBOLS帺`k`.PASJ` Jd 3d}]>k3JL}]c}]3c}]3 }]d-po*gpHk-p09DX nKk-pH0JA`,** Bad character in SYMBOLS switch argument.帺o̓n)n)P}]8}]8}];``}]8}]<}]?}]='}]:}]4}]5}]77d]} `)** Value of parameter to SYMBOLS switch: k-`k-` J}R39`#** Compile requires one input file.帺,}  `Compile帺})ʷ})  `Compile帺})R3:3.SEG Jd͡}})}).SEGJH`.SEG` JPc} }.SEG3})d8}).SEG Jd3da'`mn)m݂oomH݂݂INITGLOB COMPINIT.PAS ݂݂݂݂݂݂݂  ݂ ݂ ݂ ݂   6Copyright (C) 1981 Three Rivers Computer Corporation  ݂݂݂BBY BY BYBY]  c` am)m) Em݂ooo(o݂o݂>m.`帺#`帺 d  ͡}k)k).ERRJH`.ERR` JPc} }.ERR3k)d8k) enables generation of a table of procedure and function `cc`cE names at the end of the.ERR Jd cc````}+Would you like information about switches? P-c .SEG file (useful for debugging).`ccc`cE/NONAMES - disables generation of a table of procec`c3-Compile uses a Pascal source file to generate`cc`c-a corresponding segmedure and function `cc`c8 names at the end of the .SEG file. (default)`ccnt file. `ccc`cR-Command line is of the form: `ccc`c:/LIST [=filename] - enables generation of a listing file.`ccc`c%E/`c. {/Switch}`ccb `)}P`}+cERRORFILE [=filename] - enables generation of a error message file.`ccc`cK/VERSION [=string a*}+ u}+ }+c` a(<k- 6`$** Only HELP switch is allowed here.帺-}+}+] - includes a version string in first block of .SEG file.`ccc`c`I/COMMENT [=string] - includ̂k- k*'ϊcc`c The valid switches are: `ccc`c!/HELP - prines arbitrary text in first block of .SEG file.`ccc`cI/SYMBOLS [=integer] - specifies the nuts the help message.`ccc`c-/RANGE - enables range checking. (default)`ccmber of blocks to be allocated for`cc`cA the symbol table. (default=24, maximc`cE$/NORANGE - disables range checking.`ccc`c&=/QUIET - disables dispum=32)`cc]݂  ]J)HELPPJ)", is out of range 1..MaxSymBlocks. J Jn (n!nm݂-k-3lay of procedure and function names.`ccc`coF/VERBOSE - enables display of procedure and func<`'** Switch VERSION requires an argument.帺 k-P͸m݂-k-3<`'** Switch COMMENTtion names. (default)`ccc `c>/AUTO - enables automatic initialization of default files,  requires an argument.帺 k-PVwLwB{8{.&d '/VT`cc'`c`< i.e., reset(Input) and rewrite(Output). (default)`ccc`m' rcfc````݂)k)3;33.ERR Jdc>/NOAUTO - disables automatic initialization of default files.`ccc`c=D/NAMES -  J)aAUTOP J)NOAUTOP J)VERSIONP J)COMMENTP J)mDEBUGP J)oNODEB oComBX oCo oComH]``c`}ʷ}}}``c`}ʷ}UGPJ)NAMESPJ)NONAMESPJ) ERRORFILEPy``c`y}``c`}}}``c`}ʷ}}}``c`}ʷ}}}}``cw``c`w{``c`{]r'  '   n}y{`}ʷ}}}``c`}ʷ}}}``c`}ʷ}}}wPOP] ~}P帼c~c~ al (l ( `{Compile帺D}}``c`}ʷ}}}}}``c `}ʷ}}PHL} }c}c}cc} al `} l [cInput: `c~c``c} }}}}} P``c`}ʷ}}}]mk)mͷ}~}c}c}cc} alu `.SEGJ` JPc`cc}`cINTEGER } ͼ}REAL }͡}LONG }ͅ}CHAR }i}BOOLEAN }I ==> `cc`c[ccc}`]ccrAcc Source FilM}STRING }1}TEXT }}POINTER }}cFILE }}Te Name: `cc}`ccc Segment File Name: `cc`ccc~RUE }    ͵r}FALSE r   ͏}NIL }   j}MAXINT }c Compiled: `cc~`ccccccc Line# Seg  G}`MAXLONGI}} #dB^w-Swac}mH}INPUT }# Proc#`cc ll)I`` lJc`M lJIlJlJlH̭  - -H-ac}}OUTPUT - -H-ac}} -mk-)r ac}m]c}Pascal.ResWords````J}AAJA,nk)Oc}nJ}nJJm,#mnJH}aALL a}r !"#$I&I'*)(c}]mk)Ϫam}} } rJ(mHmAJnnH̪m[(mHmAJ,Hc}]mn)m߃mBDYX oCo͹mBBYq   ra   rO  rB   r rd{c}mHRANGEPJ)NORANGEPJ)QUIETPJ) VERBOSEPJ) LISTPJ)SYMBOLSPBYBYBYBYX oCo͏mBBYBYBYX oConmB3>DYX oCoSmBBYX oCo9mBEFDYX  .PAS J4 mm}READER mREADER.PAS J4 -  qc}`+H++?k?k?k?k?k?k?/'p)/BBY YX/mmWRITER mWRITER.PAS J4 mmPASLONG m'`/'`/1'o``c `}?ʷ}? }?}?}?-}?}?+O]}JPRED }J SUCC }JORD }JSQR }JrABS }JNEW PASLONGI.PAS J4 mmPASREAL mPASREAL.PAS }JLENGTH }JEXIT } J]RECAST } JTRUNC } JWORDSIZE} JLO J```````````````````````` ``` ``` ``` ``` ```````DD } JCHR }JROUND }JrLXOR }JSTARTIO }JRASTEROP}J```````````````````````````````````````````INLINEBY}JINLINEWO}JINLINEAW}JSHIFT }JROTATE }JLAND }`J Is-t``c`c$``@` $#KJ"``cJLOR }JLNOT }JLOADEXPR}JLOADADR }JSTOREXPR}JMAKEPTR `J.H Houvq3 5no)%mp)nmmHnH]}JMAKEVRD }JDISPOSE } JRESET }!JREWRITE }"JEOF }#JEOLN (B#BY$BY%BYBY&BYBY@`.b * . FW%ADDDF compinitPOPUP PopUp.PASt/noqDF  ** F#\#v60init=cOP BD46jlk!l!!.!COMPit/noq coinSCREEN Screen.PAS%B8j&*6c v60comp;;} ndJ"L"##''+''+++,-}?}?+UTILPROGUtilProgress.PASCLOCK ClockPASCALCO Pascal.PASP Psys:product>dev> POS D.65 a-boot FILEUTIL FileUtils.PAS"~" to signal output.oq C#DYNAMIC DYNAMIC.PAScomp.CMD.PASQP|6H>* dFILESYSTFileSystem.PASB<C8Kw|6| |6H )JSTREAM STREAM.PASnly use "=" for arguments to sw##\CAL X aFILEDEFS FileDefs.PAS! (al/$itches. Use "~" to signal output.%jJ@XIX READER.PAS((\LX[ @((X0a|64>44>4=#\GETTIMESGetTimeStamp.PASF0F ZPYD nd n WRITER WRITER.PAS%\[XB'!D%    >}}/ʷ}/%a `%}/'}*%/(/' `/' % %(  E}8}]ʷ}] 0}]c}Xc}WkWkXJH('```kTk(k<kSZ/'O}K`%/'% 6%`c}1a(`%%}﷋``}(c ` }(}/ʷ}/%}/}/}YJ^˼ʷ`/'%}K}YB[J^˼ʷ`͇kRςkUkV'z/( ~`iBJ^˼c}3}/}/ k``}*c ` }*}/ʷ}/%}/}/}/}/ },}/ }(},}*`% ``}Kc ` }K}]ʷ}]}8}] }] %}8}M }K/(`/(/'`}  %} kT{%}/ʷ}/'}/'% % C'}/'%}/. %}/.% ```k(~`s}}O]} } q}aa``}c ` }}ʷ}}1}}`}*c ` }*}/ʷ}/%}/}/}/k.}/ },}/ },}*/} YX #`} YJ^˼}5}} } }}}巼}aa``}c ` }}ʷ}}1}}}ͤ}, }}&R``}*c ` }*}/ʷ}/%}/}/}/}/ }&}/ },}}*]``Ic ` 5}} } }}}]} } q}aa``}c ` }}ʷ}}I}ʷ}}}m} K} M IMI]SUk'!TsRSk'|kBTk 1}}}5}} } }}}巼}aa``}c ` }}ʷ}}1}BBYXRk 'VVRk&)DXSkBBYXs``}Oc ` }O}]ʷ}]}]%}]}]}] w``}}}5}} } }}}]/X -:`}YJ^˼}5%/ Mc ` }M}]ʷ}]}]%}]}]}] }O}] }O}M}Y}BBYYkS}Y}YBY/'vkT k 'gBBYBYBYBYBYJ^˼c}3``}Kc ` }K}]ʷ}]}8}] }] }M }KkTk'~`k`c}}}/ʷ%}/'``}&c ` }&}1ʷ}1}1}1}1 }/}1%} ' }1l/ }3kUHUkTk=BBYXύvBBYJ^˼c}vk!(Zc}3c}a<``}Kc ` }K}]ʷ}]/}]YX $;` }YJ^˼},/ XN/'}%} }( `}}(}BBYY}]}] k!``,}K}YJ^˼ʷkT % ''% b}8 aU%}8(QJ^˼ʷ``}*c ` }*}/ʷ}/}}/}/}/}/ },}/ }(},}*% %,q`}``(c` (}]ʷ}]JkQ}]}]}]}K%}8%k=`a w}8 a% a''Q}8   c}``}5c ` }5}8ʷ}8}8}8}8 wͧ%'(j``}5c ` }5}8ʷ}8%}8% h{O}c}c`}c}c`} }}} %}}c}c`} }}} %}}8#}8U%'(j``}5c ` }5}8ʷ}8%}8}8<}8%'(j`}c}c`}c}c`} }}} %}} % `%}̀}c}c`}`}5c ` }5}8ʷ}8%}8}8$}8ͱi'%j(1%``(c` (j1( }}} %}L}a %a `%}d8 %}``c'``}5c ` }5}8ʷ}8%}8}8%}8%``}5c ` }5}8ʷ}8}8}8 }BY ` }}ʷ}}1}}'}{} }} }}}}}] /('0BBYX 0' }}J^˼}8 }8}8 1/'`ͮ}3}J^˼ ʷ``}5c ` }5}8ʷ}8%}8(BYJ^˼ʷzQ``}c ` }}ʷ}%}}(}} } }}}/('l}%0 }8&}8}8 }8 }3% %a `%}5``}c` }}8ʷ}8}8}}(BYJ^˼ʷ} % y;}c}c`}c}c`} }}} %}͊}c}c}8/'Y%}'``}5c ` }5}8ʷ}8%}8}8}8}8 }8 }3}BBY7BYY`}c}c`} }}} %}H}a %a `%}da:zJ^˼ʷ% Ϥ%,`%}3̈́%am`%}3]}%a@``}/c%``}c ` }}ʷ}%}}(}y} }} }}}͋}}}})BYJ^˼ ` }/}8ʷ}8}8 }3}8/7'h})%}1}BBYYJ^˼ʷ})% `%}1}/}ʷ/)'}%0 / }}J^˼ʷ} % y'N%'.}%a`8ʷ}8}8 }1}/}8ʷ}8}8 }%%}'}/%}5 U``}3c ` }3}8ʷ}8%}8%}`%}''% b} aU%}(``(c` (}ʷ}Jk}}}8}8}8 }5}8 }/}5}3}5}/`/((k( k(/' `́d<|xvtMpn}}%u'} ^% aP}%v``} c` } }ʷ}Jk}}}}X/7/Xs BBYBYBYBYJ^˼c}k'2}5}J^˼˼}ʷ'}5%sk'Mljhfdb`^DZXVTRPNLJHFDB@><:86/,*(&$"  /}X #`}%} '(}``}5c ` }5}8ʷ}8%}8k7}8}8}5}J^˼c}ɺʷSBBYJ^˼YJ^˼}}5]}}'BYJ^˼ ʷ/''}%0}}'BYJ^˼ ʷ}    ] BYJ^˼ '' %a ( ,s }c `}`/ '4`/'qBBYBYYJ^˼ % ;%, `&}%a c}`}}% -}c}c`}c}c`}}%}``}c ` }}ʷ}%}z}}y} }} BYJ^˼ srq,,/ 'Rs }c `}} J^˼ s r q,} }}}%'}%}}]BYJ^˼}ɺ /'Ϫ  % ,('%, s } }} BBYBYYJ^˼ }c `}}%} %}}ʷ},}( % a ``}%J^˼ } aj''b% H%}( ``(c` (`}/ '``}}c }/4(RB7BYBYYJ^˼}cc} /7',BBYY}ʷ}Jz}} % a v ( % 3%)"''% a ``J^˼}cc} }}}}} }}a}}aϴkkkk)ϡ} }} }  8} }ʷ}} % n%a'} ````%﷼%a'} ````%k)}k'`} } } }̿``}c` }}ʷ}} }k},}  }}} }kHW﷼} a`} V} B}c} c} xyJH v!xw(`,J,`%}%}﷼}%`0} ``}c` },`/(k k`/'`BYJ^˼ at}@`}``c}:}L} } } }'$}c} c} y`x`N``c}/X `}/(k k/ '} } }} }}} } } }}} } } }  }c}} a8} } `````x```}``''% `d`k`k`} ,kkJHKHH}}c` k,J`}}ʷk}*k,J`kH},J`} }%I`V`}``''% `%I` `d/5u`%I``}c` }} kH} Ψ} / ' `}c } B BYYJ^˼ /X /(o 3`]/#'+q+pq(q+pqJq+}q} pϼ}}ʷ}j'ϛwKc Lo/ '3J^˼ `}`5`}c } BYJ^˼ }c abel `}c ``c   Top `c q``c }}ʷ}.'}'`}`}`}`/'6`J^˼ `}} /'ύJ^˼}}}ʷ}} }}9qJp``B BYYJ^˼ /X /(m m/ ' `} '} } `}} %}}ʷ},}( `}(`BBYBYBYYJ^˼    kk--H-kHh``'`-` ``-``````kk--H  ##G$H$$$l)n)+pk'-kHk-m,-m``/(k k,/'6`J^˼ +kJ+-k?{'!}  k} JkkkmJ3 3 kH3 ,H3 c`$`` J-]H/#'ϓ+k(kJ}k} D}}ʷ}j'$}`}  PASCALCO Pascal.PASP Psys:product>dev> POS D.65 a-boot FILEUTIL FileUtils}}̳`/'`/}BYX `}J^˼/BYX/&BBYBYY.PASQP|6F>* dFILESYSTFileSystem.PASC&3`BBYBYYJ^˼} c /BBYX / BYJ^˼ % %, `J^˼c}{'&}J^˼˼} c}ɺ I A 91)!c}}%aϧ'`-` ``-``} c }%}'`-` ``-`w /(`}J^˼1ALL 9` BBYJ^˼c}}J^˼' ``` ``` ``} `} ϛ}'ϑ%}}`}`N``}c `}}˼} ̀d;zvtrpnljhfdb`^\ZXVT +!/9B@><:86420.,*(&$"  `'`-` ``-`}`}`N``} `d}  %}'`-` ` , 2`/B BY BY BYX `}J^˼Ju(y)c +kK`c `-`w' ``` ``` ``} `` 7`BYJ^˼--H--m,-c}``c -m}B BYYJ^˼ /X /(7k7 k7/ ' `,`,]m/'6`}}  J^˼ %}`w' H`J``c}}\%}`}2+}2 <}2}8ʷ}8}:ʷ}: }:`m(`}2}8̻k}pk'' `|` ``|`w' ``` ``` ``} ` `} }  -J-]/'%?{'!}  k} JkkkmJ3 3 kH3 ,H3 c`$`` BYJ^˼c}``c}BBYYJ^˼c}ɺ % Q%'?+ *-+H+k#KJ"` c``` "^.#0f+pC r H+k%('$+kk)k*+'G'`-` ``-``  Ve$T4 "+].     arguments to switches. Use "~" to signal  tput|6 F)mMEMORY Memory.PASuse "=" for arguments to switches   4 POPCMDPAPopCmdParse.PAS#\ O##\. Use "~" to signal output.h DYNAMIC DYNAMIC.PASS,,, COMP madPOPUP PopUp.PAS file Src to file Dest.AY ,BEGIN CASE CONST GD y=bodypart/noqDA  ** A#\#v60body=bELETE DelSCREEN Screen.PASlete /Help" for more details.EXPORTS 1FILE FDETAILS Parmadinit=compinit COMPrt/noq bopaWRITER WRITER.PAS%B8j&*6c v60comp;;} ndUTILPROGUtilProgress.PAS use of default fileTPASREALFUNCTIO*SCAVENGER Run the disk DYNAMIC DYNAMSTREAM STREAM.PASsON :p/no v60body=bodypart/noqPOS D.65 a-bootBOnly use "=" for argumentsBODYPARTEXPRESIC.PASOR (;DISMOUNT Device Dismount the device specified by Device.RAISE ;RECORSTREAM STREAM.PASpinit 5SISELECTORCALL PARAM FLOATNODSTRCHNODSIMPLEEXTERM FACTOR STATEMENASSIGNMEGOTOSTATCOMPOUNDIFSTATEMCASESTATREPEATSTWHILES FileO TYPE COMP madinit=compinit HILE WITH0HE Supply a simple help message.*+TAFORSTATEWITHSTAT y=bodypart/noqDA  ** A#\#v60body=b----EENPAS0LINK {File} LWRITER WRITER.PASam File.///DSIA "i5##\CAL X aFILEDEFS FileDefs.PAS! (/$COMPrt/noq bopaWRITER WRITER.PAS%B8j&*6c v60comp;;} ndX0a|6F&%art/J@GETTIMESGetTimeStamp.PASAA ZPY< Psys:Product>dev>mad> LEX Lex.PASS D.96 n-boot Pascal.Run`vlvXLEX Lex.PAST.PASBODYPRT Bodypart.PASPASs use of default fileTPASREALFUNCTIO*SCAVENGER Run the diskDECPART DecPart.PAS%%%%bodypart q MEMORY Memory.PASASlows use of default fileTPASREALFUNCTIO*SCAVENGER Run the disk PERQ_STRPerq_StCODEGENE CodeGen.PAS PASCAL.RUN|6 FK)9(!<EXPANDEX ExpExprring.PASs use of default fileTPASREALFUNCTIO*SCAVENGER Run the disk SYSTEM System.PAS l .PASpart/noq 60body=bodypart/noq <EE< =AAQJINITGLOB Compinit.PAS use "=" for pPsys:Product>dev>mad> POS D.96 n-boot PaCMDPARSE CmdParse.PASP|x`"w5'    ----EENPAS0LINK {File} LWRITER WRITER.PASam File.///DSIA "i5H`Fm'n)mnHH`mnHH`&m'n) mnHH`m`m`n`CmBBYBYX`n`mH`mH``CODEGENESys:Spice>codegen.PASS mH`mH`n`]m'm`n`o`a`m'0n`am`n`o`mH`n`o`͗m\'m`n`o` ~n'7mk`o`&}`o``o`d An`a0o`am`n`o`mH`n`o`` ]m`n`o`m'p`p`]!mHnKHnBBYX"o' 1`o`ap`p`o`,p`,qJ?}Eq,} ,1q,} ,} ,Hdo`}(ρ}BBYX }H`c}'`pnI+n)]n+n)]}Cn}o}]m߅q'xqC(lqCJJ߭(VqCH`qCJJ``a`A`}(}}H}(}}H}`p``/n' `m H`n' `m H`qCJHJpr)pJpHJ߭pH`*qCJJ߭(IqCoJJoJHJpr)p p`p`]}}ʷ}4},JJq`a m`q`mH`qJ`cm'@`,}`}`}`JpHJ߭pH`qJJ߭(HqnJJnJHJpr)pJpHJ߭pH`n(o(`}}pHmH`}`},JȺ%a`m`}ɺ.k.*0k.7/k/}9k/n'o'noH)nHoHJ`?`o'oHn'o(nHnHn`o`a`mDXm`3mI' `}3 k.͈k.H..k. )0k.7/k/}9k/}3 k.Kk.H.*-7/k/}k/}d#m`a`m` `m`m`m`m'b(}ʷ,,H,}`}nq)}nJ`nH}H ` m߂4 no'oo)oP a`o`n7`]``}`}}ʷ}}B% Login to the P Q OREADER READER.PASHSSEA8MOUNT Device Mount the devi' (c`]m'n'%p,(pJ( pJ%pp' ``p,Wp(p`ce specified by Device.COMPINITPARSECOMREPORTERATTEMPT_DOINS DOOUTS INIT_SWISAVE_SWIDOSWITCHPREPARE_WRITEHELINTERPREINITSWIT% % )`(` poq+(oJ`oJ,J,p'(J`2mBBYXn`INITSTATINITDYNAINITSEARINITQCODENTSTDTYENTSTDNAENTINOUTENTALLEXENTUNDECENTSPCPRENTSYSCARTN INITSCALINITSETSlp message.*+`m`m`` m`n`m'*n`a m`n``n`mH`n`aumkBBYXn)mBBYXn) mnH   `m}}}.}}p}}pHq]p}o}}oH}]}} ʷ} 㮄} } ,p`m*Lp`)J`*``,)( `)`` d́``%`J``^)' `*`,} ,} ,Hr} ,JJ ,} ,H}̬} ,} (.``}c`I} J ,)*`)I`*``)J`*``d '()]J' ^`` _``HH} (} } LH } M w'K} v`a} vH`av`} `vH`p`e]``}cɺ `}ɺ`mJ'c``````` }ɺ .%wu(&uI(`u`}w`w`}v*#} }v`a}v`} `[} 㯅}}}}`u`}&uH`u`}}}}}} rvH v,(`u`}uH`u`}vJ v*} }v`a-.#  X   Z}v`p`Wp}}}}`u`}uH`u`}}}}}} ruI(`u`}}0$ < > V \J' ^`` _``c`]% '̈́%'%'`(`?% ``%% %  ```0]``}cɺ `}ɺ`mJ'c``````` }ɺ .%()' `*`,)*`)I`*``)J`*```)```ʹ```͢%}&}'`}``/%'````}``I```7}````-.#  X   Zd?Tdd t%}ʷ}''( }``']}}ʷ} #}}'PASCALCO Pascal.PASP PSys:Spice> POS D.65 j-boot FILEUTIL FileUtils`}`6}*`}I`}``}J`}``}( ` ``ͣ``͖}.PASQP?|6F>* dFILESYSTFileSystem.PAS}ʷ}'`}``-}'```}``>``1}```d?#\PASCAL X aFILEDEFS FileDefs.PAS''Fep]% ''6'% a ```(h)' `*`,)*`)I`*`&#\|6F&%n n J@GETTIMESGetTimeStamp.PASBBZPY4    H}<}='}?}>m,}8pqa*qz,"qA*qZ,q_(q0*q9,͘}3}3H}3}3qpHpo,i}? `R};`}<`}8}<}<H}<}='}?}>0}@ }ʷ}4}4Hr}}3c}3cNNut -,`]}ʷ}3A}:p1JAJ߭1JHAJ߭Jnr)71nJ9nJ/nJ0\nH/NvlvjEXPANDEX ExpExpr.PASodegen.PASS3}3}8}:}:}:H}3?:>,qd}ʷ}7B}3 'o 'MEMORY Memory.PAS%%%%tstgenn n}}5c@` }J }3z}ʷ}? }:,M};`}<`}8}DYNAMIC DYNAMIC.PASodegen.PASSMAKEBYTEGENLDC <}<H}?}<}='}:|o 'Fq?p (,`}3}3H}3}3  r -QGEN0 QGEN1 QGEN1A QGEN2 QGEN3 QGENJMP QGENBJMPQGENCMP SEGNUMBEGENSYSCAGENLABELPUTLABELLOADEXPRSTORE LOADADDRGUARD p '"}3}3H}3}3p"}3}3H}3}3p]m (:3m',m*'#3*'BYTERANGUBYTERANTLCHECK GETWORD PUTWORD REPLICATxpExpr.PASodegen.PASS3)(s}ʷ}3}3}8}:}:}:H}3?:>,r{MEMORY Memory.PAS%%%%tstgenn n}ʷ}7@}3 'p '}}5c@` }J$.( }3  }3cDYNAMIC DYNAMIC.PASodegen.PASSMAKEBYTEGENLDC }ʷ}? }:,M};`}<`}8}<}<H}?}<}='}:q '3"}QGEN0 QGEN1 QGEN1A QGEN2 QGEN3 QGENJMP QGENBJMPQGENCMP SEGNUMBEGENSYSCAGENLABELPUTLABELLOADEXPRSTORE LOADADDRGUARD 3}3H}3}3qm 'q ')qm'#q*(3q)(q*(;m (}ʷ}? LEX LEX.PASPAS  }>}:}3qa+qz)1mJq!I1mJq}8pqa*qz,7qA*qZ,+q_($q0*q9,m*mH 1mJ omH}3}3H}3}3qpHpo,i}? `R};`}<`}8}<}<  ~I34c WARN-Change $I to $INCLUDE` c  l , `ͿN5 "BBYXl B BY witch Value` c  }5yy~8}5c` ,}5``c` }5n-'N}5yy}5n='n}~8ʷ~8BYXN5l5w~63 'lBBYBYBY BY BYX6~63Nnm'n,' +Nn+B-BY=BYXl~/``c 6c No Previous Range Switch Value` c  }5}}~8}5c` ,}5``c` }5n+'N}5` ~/~8ʷ~8 }BBYX` BJ^˼~1cc~3 ~1a `͠l3' ~8}}}5wn='nw~8ʷ~8 6c No Previous Debug Switch Value` c  }5ww~8}5c` N ~8N ~8N] BJ^˼~1cc~3 ~1a `3l3' ~8N ~8N,}5``c` }5n+'N}5ww}5n='n{~8ʷ~8 6c No Previous Names Switch Value` c ~/ 8`~8ʷ~8` `d~8NW~8 -~8BBYX ~8N ~8 }5w{~8}5c` ,}5``c` }5n+'N}5{{}5/n-(Nn"d BWK5N ~8Nd kZ 8`T~/~/c` /(`~63 ~63,(Fm*'$~63*(~63)'~63}(}ʷNk, `?k0]6d}ʷ}? }>}:}366H66o}8noa*oz,\oA*oZ,Po_( B BY BYXN~63m( !H~63ͷ(`~63 B BY BYXNIo0*o9,=o.(6o>(/o:((o$(!}3A}:n/0\}3}3H}3}3onHnm,i}? ~63m( !H~63P~63 B BY BYX~PN~63m( !~~H~`R};`}<`}8}<}<H}<}='}?}>6d'`}3A}~~63c c~` c  N5}6dN5m*'$~63*(~63)'~63}(:n}7NJ)INCLUDEP}7NJ)RANGEP}7NJ)AUTOP}7NJ)LISTP}7NJ)oDEBUGc}N`\ln+'n-'n+'Nrr N78l8.PASal8.PASJP}7NJ)VERSIONP}7NJ)COMMENTP}7NJ)MESSAGEP}7 NJ)QUIETP}7 NJ)NAMESPH'<}l8`l8.PASJ`Jd }l8d}}.LSTJd}7 NJ)IFCP}7 NJ)ELSECP}7 NJ)ENDCPN~6ʷ~/~//(`c}c```` ͎N5}6dN5}.LSTa}.LSTJH(4}}͐ ~Pl)1lNJ (0~~H~~1lNJNlH̸~c}7 `al H'.LSTJdNrrc}c```` Ϳn='ny~8ʷ~8 6c No Previous Quiet S  +}< }J}! }8#w}$}&}}4($}).}+̼}/-ͽ}.Ͳ})~|zxvtrpnljhfdb`^\ZXVTRPNLJHFDB@><:86420.,*(&$"  0_pͧ}+2w̷͜}3͑}57͆}'7ŷ{}8p}:oe}#< ׷Z}=̷O}?D} A9}Bk7c'l}. l>}.k>N' k>J>}C=k>JFk=kF)}C}Ck=H=k=kF)}.}.}Ck/k>H.}zD#}F@}GP }tI$}K}L }nN(k}P}QC}hSԷ}U焷͵}VN/k- }.}.k, k2I2k3`}. }(}.%Ik2k5H)k2k5H&)}(}.ɼk2k5H` ɺ ͛%Ik2)k2&)!ͪ}cX_͟}Z͔}[͉}^]k ~} _#Ƿs}`xh}Xb'׷]}dxR}ehG}Sg·<}iQY1}%Ik5)k5&)$}(}.k5` ɼk2` ɺ [-Ik2)k2&I)%Ik5)k5&)7}(}.k2%H` ɼk5` ɺ ɼ%I` jo&}Nl˷}n9?}o}Iq}r|o}tŷ}Ev7}w߄}y }@{Η͸}|½ `}:ʷN '}:3#'NmH}mPNJ}:3N}:30*}:3n/H,ͭ}~v͢d> '09BKT]fox#,5>GPYbkt}}:309DX `}:309D.BYXm}:3.'}:8}::N.( hmH}mPNJ.NN m (1:CLU}}]N-}.N1N,2N3NB5E 7<}PNJN+k7H}:30+}:39)mH}mPNJ}:3NmHp'`m}:3EBeBYX ϟmH}mPNJENN }:k1 xk+0' kEHEE}8 }.k+0J}8:N1k+5+}. }.}.E5kE,kEJE}.}8k3-'mH}mPNJ-NI}:3+'mH}:30+}:39)mH}mPNJ}:3Nmro*`n5H5k<H<}k<PNJN+k+9)k+0+ 7k+.'77}?}.k56NBNAk<H<}k<PNJN+7͌k1  (z'`z'>} tkEFk>kF)}.}. k>H>k>kF)c7ͷd b)   n'} #dev> POS D.65 a-boot FILEUTIL FileUtilsPjcɺ q Nq/('0'NN0N6* dFILESYSTFileSystem.PASC͍5}3$' }N` }N`R3*'+3$' *N` *N`#\#\X aFILEDEFS FileDefs.PAS! (/$o)%a````% t`````   v] %a ` %Ⱥ % %}ʷ}'% Ϻ``` ` `F}``c`}} ( vχ }}uHc}K6'``$`````a```ʷ}}}%'(}```}```}```}a``` ``` ` '`````````ͷ``%aP````c} ɺt`` ` '````` ]  6%% π%'% d%  ( w```` `` ``F% a```````% a_%} ʷ`   `c}kBBYXyk'"b`k`k`kH```P'k)k*````````'%} `c}} k$( }ɺ%}k%o!D$'DY+BY,BY-BYX  `oD BY DYDYBYBY+``͈}} x '})} ɺ} % ϼ%a''%͊`}`BY,BY-BYX oBBY BYDY*DYXo`o͂``% )%'o' H`J`s`ͣ% %```}`J`^`````}```}```}````%+ }`%(}`%i%a^`K``8%a_```` %a}a````%X%a}a````%}`%%a G`-%a ``}`%ͻ` `````%r} a%%'``F}2}a }c}c}t`s`N````d͒  O}7ʷ% t`}7%' %}7` ~`.%a(o i,``} a ```}`} ɺ} % % a''''%} ' `` `````%% `````%ͬ% `} aϋ} (``} ````W}} ʷ}  B} c}c}r`%}`````%w% `````%B% %%+ }`%(``stJH```}``q`}I`\6} ɺ} `% )} }'%}```%% %%+ }`%(}`%%a ` %}%%(` %a }`}'`' I```N`' ```}(```}}  (  `c#' ``}  +&'"`c} ``%}]%a }` %a }```]%a }` %(`c}} ɺ&# BBYX4# '`-`.`%``)`(`%`͙&'*).(`)`(` `a }```]I`` %a }`J``Ⱥ % 7%}ʷ}'% `(`g'))'*`````````````#'  ``t`` ]mF͓͎͉ ̈́!"z#upkfa\W$Rd'*LHDB><'}ʷ}BBYBYX'}'a`` ``ͻ}'ϒ``}`J``^```}:86420." ]} x BBYX}  ϳ} }ʷ}'ϝ}'ϒ}````}`J```}```}I`}``'}''}'  `f` `͈ ''%a2o(`!(`(` d}`2% }`}ɺ+}} ʷ} ('N}   x  } } }  *} 5'} ' } } }  }   k6(}`c%%a }` %a }` 6} (' } ɺ) } ɺ*v'u(}% } } }  *} 5'} ' } } }  } 7ʷ}7' %}7}` ~`ad-\wuKPLFE{20.,*? (' } ɺ) } ɺ*v'u(wi%a I`J%a ``+%a `` %X ~`o ('k#(%]````%````%}} `%} }a%aH``ͥ}a%a```qʷ}ͅ``͈} ɺ} } ɺ} D``P} ɺ} B`2} ɺ,} }a%a```=} 4}'}%aY`` `%},Y``dY s~%}}}*ʷ%}}*̈́}*'}*' }ɺ}ɺ%}*'}* `c}a%aJ``ͥ}a%a```q}a%a`y(}ɺ͉} ɺ} t} ɺ+ `^}ɺ,Ud&PuLJHDB@><:8642.,*(&$" ``=} 4}'}%a[`` `%``d8}ɺ*} :} ]}} ʷ} '' } } } 5'!} ' } } } '' } ɺ*  } $}c}c}rsJHo(`}}} })( }ɺ) } }} } *}} ɺ+v'u(}% } } } 5'!} ' } } } '' } ɺ* } ɺ+v'5'}'}} }ɺ)''% a x (% $''% %)ku(} %a}aK``ͥ%a}a```q%'k(% a,``}%}} } *}5'}'}} }ɺ)''a}a```=} 4}'}%aZ`` `%```}% a w (% &'' z%H %)k'k(% a ``} % @a ```` `w%a }`g``O57k5k7)' %a }`k5H5a%aL``@}a%a``` `%͓}a % %(`57k5k7)' %a }`k5H5Ѻ % %(``a%aM``@}a%a``` `%``d o  PASCALCO Pascal.PASP Psys:product>dev> POS D.65 a-boot FILEUTIL FileUtils 6Copyright (C) 1981 Three Rivers Computer Corporation }'X``'x3% a"%  k}c|`%ɺ-6w2} a%} ,J,`.PASQP|6F>* dFILESYSTFileSystem.PASC%c{`}ɺ-}%aϛ} }} '} } yB BY BY BYX#\PASCAL X aFILEDEFS FileDefs.PASC  * `ͿyB BYX`ͥ} aL} 7}}ʷ} }c}c}kkJH  * )#\|6F&%pr/nJ@GETTIMESGetTimeStamp.PAS5j5 ZPY, `B}% ` `d`+IayH`u`v` P`u`v` D`u`v` 8`u`v` ,`vlvXBODYPRT BodyPart.PAS/noqf)e4 v60expr=expexpr/noq f)`u`v` `u`v` d k```%'z( `zI`}ɺ>0c4 v60expr=expeCODEGENE CodeGen.PASSnHp{|F7 !'DYNAMIC DYNAMIC.PAS;C @  PASCAL.RUN|6 FK)9(ct>d!,EXPEXPRETREEDISP8:&(jlI :J " EXPSELECEXPSUBSEARRAYSELFIELDSELPTRSELECFILESELEEXPCALL EXPVARIAEXPSTRGVNEXTVAR NEXTSTRGNEXTEXP PARAMADDEXPROUTIDEFAULTFNEWDISPO   : <  mnEXXIT VRD WORDSIZ RESETWRIEOFEOLN GET PUT READWRITCHECKFORFORMAT CALL FILEADDRREAD WRITE SHIFTROTLOGAND /0{| LOGOR LOGNOT CLOSE EXPCALLNEXPPARAMEXPFLOATEXPSTRETEXPSIMPLEXPTERM EXPFACTOEXPLBRACMAKEPA ST ! <'''' ,DYNAMIC DYNAMIC.PAS;C @  PASCAL.RUN|6 FK)9(ct>d!,EXPEXPRETREEDISP/ ),*()'(/=0I :J " EXPSELECEXPSUBSEARRAYSELFIELDSELPTRSELECFILESELEEXPCALL EXPVARIAEXPSTRGVNEXTVAR NEXTSTRGNEXTEXP PARAMADDEXPROUTIDEFAULTFNEWDISPO   : <  mnEXPANDEXSys:Spice>expexpr.PASXD%a````% t`````   v] %a ` %Ⱥ % %}ʷ}'% Ϻ``` ` `F}``c`}} ( vχ }}uHc}K6'``$`````a```ʷ}}}%'(}```}```}```}a``` ``` ` '`````````ͷ``%aP````c} ɺt`` ` '````` ]  6%% π%'% d%  ( w```` `` ``F% a```````% a_%} ʷ`   `c}kBBYXyk'"b`k`k`kH```P'k)k*````````'%} `c}} k$( }ɺ%}k%o!D$'DY+BY,BY-BYX  `oD BY DYDYBYBY+``͈}} x '})} ɺ} % ϼ%a''%͊`}`BY,BY-BYX oBBY BYDY*DYXo`o͂``% )%'o' H`J`s`ͣ% %```}`J`^`````}```}```}````%+ }`%(}`%i%a^`K``8%a_```` %a}a````%X%a}a````%}`%%a G`-%a ``}`%ͻ` `````%r} a%%'``F}2}a }c}c}t`s`N````d͒  O}7ʷ% t`}7%' %}7` ~`.%a(o i,``} a ```}`} ɺ} % % a''''%} ' `` `````%% `````%ͬ% `} aϋ} (``} ````W}} ʷ}  B} c}c}r`%}`````%w% `````%B% %%+ }`%(``stJH```}``q`}I`\6} ɺ} `% )} }'%}```%% %%+ }`%(}`%%a ` %}(```}}  (  `c#' ``}  +&'"`c} a ```` `w%a }`g``O57k5k7)' %a }`k5H5(`c}} ɺ&# BBYX4# '`-`.`%``)`(`%`͙&'*).(`)`(` ` % %(`57k5k7)' %a }`k5H5Ѻ % %(``aa }```]I`` %a }`J``Ⱥ % 7%}ʷ}'% `(`g'))'*`````````````#'  ``t`` ]mF͓͎͉ ̈́!"z#upkfa\W$Rd'*LHDB><'}ʷ}BBYBYX'}'a`` ``ͻ}'ϒ``}`J``^```}:86420." ]} x BBYX}  ϳ} }ʷ}'ϝ}'ϒ}````}`J```}```}I`}``'}''}'  `f` `͈ ''%a2o(`!(`(` d}`2% }`}ɺ+}} ʷ} ('N}   x  } } }  *} 5'} ' } } }  }   k6(}`c%%a }` %a }` 6} (' } ɺ) } ɺ*v'u(}% } } }  *} 5'} ' } } }  } 7ʷ}7' %}7}` ~`ad-\wuKPLFE{20.,*? (' } ɺ) } ɺ*v'u(wi%a I`J%a ``+%a `` %X ~`o ('k#(%]````%````%}} `%} }a%aH``ͥ}a%a```qʷ}ͅ``͈} ɺ} } ɺ} D``P} ɺ} B`2} ɺ,} }a%a```=} 4}'}%aY`` `%},Y``dY s~%}}}*ʷ%}}*̈́}*'}*' }ɺ}ɺ%}*'}* `c}a%aJ``ͥ}a%a```q}a%a`y(}ɺ͉} ɺ} t} ɺ+ `^}ɺ,Ud&PuLJHDB@><:8642.,*(&$" ``=} 4}'}%a[`` `%``d8}ɺ*} :} ]}} ʷ} '' } } } 5'!} ' } } } '' } ɺ*  } $}c}c}rsJHo(`}}} })( }ɺ) } }} } *}} ɺ+v'u(}% } } } 5'!} ' } } } '' } ɺ* } ɺ+v'5'}'}} }ɺ)''% a x (% $''% %)ku(} %a}aK``ͥ%a}a```q%'k(% a,``}%}} } *}5'}'}} }ɺ)''a}a```=} 4}'}%aZ`` `%```}% a w (% &'' z%H %)k'k(% a ``} % @a%aL``@}a%a``` `%͓}a}'X``'x3% a"%  k}c|`%ɺ-6w2} a%} ,J,`%aM``@}a%a``` `%``d o%c{`}ɺ-}%aϛ} }} '} } yB BY BY BYX  PASCALCO Pascal.PASP PSys:Spice> POS D.65 j-boot FILEUTIL FileUtilsProductyntax.dat  RH : 'PROGRAM' or 'MODULE' expectedp roProductyntax.dat  RH:.PASQP?|67>* CdFILESYSTFileSystem.PAS- ')' expected 'MODULE' expectedp roProductyntax.dat  RH: ': ' expected'MODULE' expectedp roP#\PASCAL X aFILEDEFS FileDefs.PAS! (/$roductyntax.dat  RH6: Illegal symbol (possibly missing ';' on line above) ax.dat  RH: Err`ͿyB BYX`ͥ} aL} 7}}ʷ} }c}c}kkJH X0a|67&%pr J@GETTIMESGetTimeStamp.PAS:t:ZPY3 `B}% ` `d+IayH`u`v` P`u`v` D`u`v` 8`u`v` ,vluGxBODYPRT BodyPart.PAS#\*, expexpr tstexpr f0`u`v` `u`v` d k```%'z( `zI`}ɺ>0c4 expexpr tsteCODEGENE CodeGen.PASxpexpr.PASXD: ',' expectedpected(bad expression)tatementne above) ax.dat  RHe: Idet>part line above)on line above) ax.dat  RH: '.' expectedeld-list>part line above)on line above) ax.dat ntifier declared twicepression)tatementne above) ax.dat  RHf: Low bound exceeds high boundssion)tatementne ab RH: '*' expectedeld-list>part line above)on line above) ax.dat  RH: 'Interface' expected>paove) ax.dat  RHg,: Identifier is not of the appropriate classne above) ax.dat  RHh: Undeclart line above)on line above) ax.dat  RH: 'Implementation' expected line above)on line above) ax.dat red identifierthe appropriate classne above) ax.dat  RHi: sign not allowedifierthe appropriate classne above) RH: 'Unit' expected' expected line above)on line above) ax.dat  RH: '..' expecteded' expected l ax.dat  RHj: Number expecteddifierthe appropriate classne above) ax.dat  RHk: Incompatibline above)on line above) ax.dat  RH2: Error in constantexpected line above)on line above) ax.dat e subrange typespropriate classne above) ax.dat  RHl: File not allowed here typespropriate classne above) ax.or in parameter listy missing ';' on line above) ax.dat  RH: 'OF' expectedmeter listy missing ';' on line ab RH3: ': =' expectedantexpected line above)on line above) ax.dat  RH4: 'THEN' expectedntexpected line ove) ax.dat  RH : '(' expecteddmeter listy missing ';' on line above) ax.dat  RH : Error iabove)on line above) ax.dat  RH5: 'UNTIL' expectedtexpected line above)on line above) ax.dat  n typemeter listy missing ';' on line above) ax.dat  RH : '[' expectedemeter listy missing ';' on line above)RH6: 'DO' expectedtedtexpected line above)on line above) ax.dat  RH7,: 'TO' or 'DOWNTO' expected in for st ax.dat  RH : ']' expectedemeter listy missing ';' on line above) ax.dat  RH : 'END' expecatementne above) ax.dat  RH8: 'IF' expectedTO' expected in for statementne above) ax.dat  RHtedeter listy missing ';' on line above) ax.dat  RH': ';' expected (possibly on line above)on line above) ax.9: 'FILE' expected' expected in for statementne above) ax.dat  RH:$: Error in (bad expression)tatemdat  RH: Integer expectedssibly on line above)on line above) ax.dat  RH: '=' expectedcteentne above) ax.dat  RH;: Error in variable (bad expression)tatementne above) ax.dat  RH<:dssibly on line above)on line above) ax.dat  RH: 'BEGIN' expectedssibly on line above)on line above) ax.dat 'FROM' expectedle (bad expression)tatementne above) ax.dat  RH=: 'EXPORTS' expected(bad expression)tatementn   RHs*: Base type must be a scalar or a subrangeeene above) ax.dat  RHt/: Error in type of standaatione-specified RH!: Type of operand must be boolean declarationclaratione-specified RH-: Set elerd procedure parameterabove) ax.dat  RHu : Unsatisified forward referenceedure parameterabove) ax.dat ment type must be scalar or subrangeclaratione-specified RH&: Set element types must be compatibleubrangeclaratio RHv;: Forward reference type identifier in variable declarationt  RHw=: Re-specified params not OK ne-specified RH: Type of variable is not arraypatibleubrangeclaratione-specified RH3: Index type for a forward declared procedure  RHx': Function result type must not be FILEard declared procedure is not compatible with the declarationione-specified RH : Type of variable is not recordith the declarationione-s RHy": File value parameter not allowed FILEard declared procedure  RHzA: A forward declared function's rpecified RHB: Type of variable must be non-generic file or non-generic pointer RH : Illegal parametesult type can't be re-specified RH{-: Missing result type in function declarationan't be re-specified er substitutioneneric file or non-generic pointer RH': Illegal type of loop control variablefile or non-generic poRH|: F-format for reals onlyfunction declarationan't be re-specified RH}/: Error in type of standard procedureinter RH: Illegal type of expressionol variablefile or non-generic pointer RH: Type conflictof exp parameter't be re-specified RH~6: Number of parameters does not agree with declaratione-specified RHressionol variablefile or non-generic pointer RH!: Assignment of files not allowedriablefile or non-generic pointe : Illegal parameter substitutionagree with declaratione-specified RH-: Result type does not agree with declarar RH3: Label type incompatible with selecting expressiongeneric pointer RH : Subrange bounds must bedat  RHm: Type must not be real typespropriate classne above) ax.dat  RHn,: typetionclaratione-specified RH: Type conflict of operandse with declarationclaratione-specified RH: must be scalar or subrangene above) ax.dat  RHo#: Incompatible with part subrangene above) ax.dat Expression is not of set typeth declarationclaratione-specified RH : Tests on equality allowed onlyh declaration  RHp: Index type must not be real> part subrangene above) ax.dat  RHq+: Index type must be claratione-specified RH: Strict inclusion not allowedlyh declarationclaratione-specified RH: Fila scalar or a subrangeene above) ax.dat  RHr$: Base type must not be real or longubrangeene above) ax.dat e comparison not alloweddlyh declarationclaratione-specified RH: Illegal type of operand(s)ddlyh declarationclar   RH0: Assignment to standard function is not allowediongeneric pointer RH.: Assignment to formal functineric pointer RH: Standard file was re-declaredunc not allowedaliongeneric pointer RH: Undeclared on is not allowedediongeneric pointer RH: No such field in this recordn is not allowedediongeneric pointerexternal filelaredunc not allowedaliongeneric pointer RH : Size of types are not the samenc not allowedaliongeneri RH: Type error in readhis recordn is not allowedediongeneric pointer RH%: Actual parameter must be a varic pointer RH': Pascal function or procedure expectedallowedaliongeneric pointer RH%: Constant Expresablet allowedediongeneric pointer RH0: Control variable cannot be formal or non-localiongeneric pointer sion too complicatededallowedaliongeneric pointer RH: Type is not parametrico complicatededallowedaliongeneric poRH: Multidefined case label be formal or non-localiongeneric pointer RH : No such variant in this recordmal ointer RH;: Parameter type does not match type of forward declarationpointer RH9: Number of parameterr non-localiongeneric pointer RH&: Real or string tagfields not allowed non-localiongeneric pointer RHs does not match forward declarationonpointer RH: Operand must not be integerot match forward declarationonpointe&: Previous declaration was not forward non-localiongeneric pointer RH: Again forward declaredas not forward nor RH": Operand must not be of type LONGtch forward declarationonpointer RH : Illegal '-'t not be of n-localiongeneric pointer RH!: Parameter size must be constantrward non-localiongeneric pointer RH :type LONGtch forward declarationonpointer RH': SHRINK parameter must be of type LONGorward declarationonpointer Missing variant in declarationtrward non-localiongeneric pointer RH.: Substition of standard proc/func not allowe RH<: Parameter must be of type INTEGER or a subrange of INTEGERointer RH&: Attempt to open library unsdaliongeneric pointer RH: Multidefined labeldard proc/func not allowedaliongeneric pointer RH: Muluccessful a subrange of INTEGERointer RH5: Forward Declaration not permitted in Export SectionINTEGERointertideclared labelard proc/func not allowedaliongeneric pointer RH: Undeclared labelbelard proc/func not allowedali RH$: Not enough room for this operationin Export SectionINTEGERointer RH': Comment must appear at top of pongeneric pointer RH: Undefined labellbelard proc/func not allowedaliongeneric pointer RH: Error irogramExport SectionINTEGERointer RH: Variable must not be Packedof programExport SectionINTEGERointer  scalarelecting expressiongeneric pointer RH : Index type must not be integerelecting expressiongeneric pointern base setelard proc/func not allowedaliongeneric pointer RH: Value parameter expectedroc/func not allowedalionge   47)ointer RH: Too many externalstants in this procedureentries147483647)ointer RH: Too many local roomdgal QCode3647)ointer RH): Error in reading INCLUDE or IMPORT fileroomdgal QCode3647)ointer RH-:filesnts in this procedureentries147483647)ointer RH: Expression too complicated this procedureentries147483647)o Error in writing list file, not enough roomdgal QCode3647)ointer RH(: Call not allowed in separate procedure roomRH4: Parameter List does not match previous declarationnINTEGERointer RH+: Shift and rotate only operate on oninter RH: String constant too longed this procedureentries147483647)ointer RH): Invalid character ie wordclarationnINTEGERointer RH+: Real constant exceeds representable rangeclarationnINTEGERointer RHn numerical constantreentries147483647)ointer RH,: Division by zeror in numerical constantreentries147483647)ointe-: Real constants must be specified in base 10arationnINTEGERointer RH': Error in real number - digit expectedasr RH-!: No case provided for this valueconstantreentries147483647)ointer RH. : Index expression out ofe 10arationnINTEGERointer RH-: String constant must not exceed source linearationnINTEGERointer RH/: boundseconstantreentries147483647)ointer RH/': Value to be assinged is out of boundsntreentries147483647)ointer Octal constant exceeds maximum (#37777777777)ationnINTEGERointer RH: 8 or 9 in octal number maximum (#3777777777 RH0!: Element expression out of rangeboundsntreentries147483647)ointer RH17: Internal Error - Attempt to7)ationnINTEGERointer RH<: Constant exceeds maximum range (-2147483648 to 2147483647)ointer RH,: Val generate an Illegal QCode3647)ointer RH2&: Internal Error - EStack is not empty an Illegal QCode3647)ointerue must be between 1 and 255, inclusive8 to 2147483647)ointer RH : Parameter must be of type REAL5, inclusive8 to  RH3.: EStack Overflow - Expression too complicatedgal QCode3647)ointer RH4#: Internal Error - EStack Underfl2147483647)ointer RH': Too many scopes of nested identifiersusive8 to 2147483647)ointer RH): Too manowcomplicatedgal QCode3647)ointer RH,: Forward declaration was in another segmentedgal QCode3647)ointer y nested procedures or functionsive8 to 2147483647)ointer RH2: Too many forward references of procedure entries147RH: Implementation restriction another segmentedgal QCode3647)ointer RH: Implementation restriction another 483647)ointer RH: Procedure too longeferences of procedure entries147483647)ointer RH+: Too many losegmentedgal QCode3647)ointer RH: Illegal character in textn another segmentedgal QCode3647)ointer RHng constants in this procedureentries147483647)ointer RH: Too many segmentsstants in this procedureentries1474836: Unexpected end of inputxtn another segmentedgal QCode3647)ointer RH-: Error in writing code file, not enough  ! inter RH(: Exception not defined for this Handler roomdgal QCode3647)ointer RH5: Handlers and Exceptions may not be Forward Declaredde3647)ointer RH*: Handler and Exception are not compatiblerd Declaredde3647)ointer RH': Handler may not be global in a Moduleblerd Declaredde3647)ointer RH": Return not followed by line feedoduleblerd Declaredde3647)ointer RH: File name too longd by line feedoduleblerd Declaredde3647)ointerCODEGENE CODEGEN.PASS  RH : Cannot raise the exception ALLedoduleblerd Declaredde3647)ointer RH: Undefined Errore exception  dgal QCode3647)ointer RH: Include file not legalparate procedure roomdgal QCode3647)ointer RH: ErrALLedoduleblerd Declaredde3647)ointer RHor Reading Symbol Tablete procedure roomdgal QCode3647)ointer RH: Error Writing Symbol Tablete procedure roomdgal QCode3647)ointer RH: Import file not legalTablete procedure roomdgal QCode3647)ointer RH: Module not foundlegalTablete procedure roomdgal QCode3647)ointer RH: Error in reading code filete procedure roomdgal QCoAND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO ELSE END EXCEPTIOde3647)ointer RH!: Module may not have a main bodyocedure roomdgal QCode3647)ointer RH: Internal Co9EXPORTS 1FILE .FOR FORWARD "FROM 3FUNCTION GOTO HANDLER :IF IMPORTS 0IN mpiler Errorain bodyocedure roomdgal QCode3647)ointer RH: Version Switch Too Longain bodyocedure roomdgal QCode36 )LABEL MOD 'MODULE /NOT &OF OR (OTHERWIS4PACKED +PRIVATE 2PROCEDUR47)ointer RH: Copyright Switch Too Longn bodyocedure roomdgal QCode3647)ointer RH: No Such SwitchcPROGRAM !RAISE ;RECORD -REPEAT SET *THEN TO TYPE UNTIL VAR WHILE h Too Longn bodyocedure roomdgal QCode3647)ointer RH: Switch is not unique Longn bodyocedure roomdgal QCode3647)oWITH ! " n'o'noH)nHoHJ`?`o'oHn'o(nHnHn`o`a`mDXm`3mI' `}3 k.͈k.H..k. )0k.7/k/}9k/}3 k.Kk.H.*-7/k/}k/}d#m`a`m` `m`m`m`m'b(}ʷ,,H,}`}nq)}nJ`nH}H ` m߂4 no'oo)oP a`o`n7`]``}`}}ʷ}}' (c`]m'n'%p,(pJ( pJ%pp' ``p,Wp(p``m}}}.}}p}}pHq]p}o}}oH}]}} ʷ} 㮄} } ,p`m*Lp% % )`(` poq+(oJ`oJ,J,p'(J`2mBBYXn`,} ,} ,Hr} ,JJ ,} ,H}̬} ,} (.``}c`I} J `m`m`` m`n`m'*n`a m`n``n`mH`n`aumkBBYXn)mBBYXn) mnHHH} (} } LH } M w'K} v`a} vH`av`} `vH`p`eH`Fm'n)mnHH`mnHH`&m'n) mnHH`m`m`n`CmBBYBYX`n`mH`mH``wu(&uI(`u`}w`w`}v*#} }v`a}v`} `[} 㯅}}}}`u`}mH`mH`n`]m'm`n`o`a`m'0n`am`n`o`mH`n`o`͗m\'m`n`o`uH`u`}}}}}} rvH v,(`u`}uH`u`}vJ v*} }v`a~n'7mk`o`&}`o``o`d An`a0o`am`n`o`mH`n`o``}v`p`Wp}}}}`u`}uH`u`}}}}}} ruI(`u`}} ]m`n`o`m'p`p`]!mHnKHnBBYX"o' 1`o`ap`p`o`,p`,qJ?}Eq,} ,1q,} ,} ,Hdo`}(ρ}BBYX }H`c}'`pnI+n)]n+n)]}Cn}o}]m߅q'xqC(lqCJJ߭(VqCH`qCJJ``a`A`}(}}H}(}}H}`p``/n' `m H`n' `m H`qCJHJpr)pJpHJ߭pH`*qCJJ߭(IqCoJJoJHJpr)p p`p`]}}ʷ}4},JJq`a m`q`mH`qJ`cm'@`,}`}`}`JpHJ߭pH`qJJ߭(HqnJJnJHJpr)pJpHJ߭pH`n(o(`}}pHmH`}`},JȺ%a`m`}ɺ.k.*0k.7/k/}9k/" # }'`}``/%'````}``I```7}````-.#  X   Zd?Tdd t%}ʷ}''( }``']}}ʷ} #}}'PASCALCO Pascal.PASP Psys:product>dev> POS D.65 a-boot FILEUTIL FileUtils`}`6}*`}I`}``}J`}``}( ` ``ͣ``͖}.PASQP|6E>* dFILESYSTFileSystem.PAS#\}ʷ}'`}``-}'```}``>``1}```d(!PASCAL X aFILEDEFS FileDefs.PAS! (al/$Fep]% ''6'% a ```(h)' `*`,)*`)I`*`X0a|6E&%en/nJ@GETTIMESGetTimeStamp.PASYF C\g\\g\`)J`*``,)( `)`` d́``%`J``^)' `*`f#\lvXEXPANDEX ExpExpr.PASS,)*`)I`*``)J`*``d '()]J' ^`` _``MEMORY Memory.PAS%%%%codegen q]``}cɺ `}ɺ`mJ'c``````` }ɺ .%DYNAMIC DYNAMIC.PASSMAKEBYTEGENLDC &QGEN0 QGEN1 QGEN1A QGEN2 QGEN3 QGENJMP QGENBJMPQGENCMP SEGNUMBEGENSYSCAGENLABELPUTLABELLOADEXPRSTORE LOADADDRGUARD -.#  X   ZBYTERANGUBYTERANTLCHECK GETWORD PUTWORD REPLICATxpExpr.PASS0$ < > V \J' ^`` _``MEMORY Memory.PAS%%%%codegen qc`]% '̈́%'%'`(`?% ``%% %  ```0]``}cɺ `}ɺ`mJ'c``````` }ɺ .%()' `*`,)*`)I`*``)J`*```)```ʹ```͢%}&# $ }:309DX `}:309D.BYXm}:3.'}:8}::N.( hmH}mPNJ.NN m4'~|D<DYNAMIC DYNAMIC.PASSMAKEBYTEGENLDC H}:30+}:39)mH}mPNJ}:3NmHp'`m}:3EBeBYX ϟmH}mPNJENN }:QGEN0 QGEN1 QGEN1A QGEN2 QGEN3 QGENJMP QGENBJMPQGENCMP SEGNUMBEGENSYSCAGENLABELPUTLABELLOADEXPRSTORE LOADADDRGUARD 3-'mH}mPNJ-NI}:3+'mH}:30+}:39)mH}mPNJ}:3Nmro*`nSides 2 Density SINGLE Fast ! PASCAL.BINARY - PASCAL COMPILER SEG FILES ! Created 28 Jan 82 09:24:41 Get PASCAL.SEG  (z'`z'>} to)oFPcDc D(c.PAS5(4+~8B88B8A#\IJ  K%%a%Fc P`P`c DMoUNDEFNDPcQCode `cɉE``c undefined`c? o :ndn3  ,=~ / tl ||6 7)WRITER WRITER.PAS Zf0X,σc Warning - `cco`cO truncated to 7 characters`cCC)!?CJNoCNCHC}{/6'o7a `aBBYX `N a aBBYXNoϾ]?LERYf0DT F STREAM STREAM.PAS%8il#\dndm3i  "|&rtRTij9:W%AUUU: |INSYMBOLCHECKENDADVANCE SKIPOVERSEARCH PARSEFILCOMMENTESSTRING NUMBER CONVERTRREALMUL = "**8 686 ZTENPOWER4+~8B88B8A#\IJ  K%%a%4'~|D<FQCODES sys:exp>compiler>fqcodes.PASCOGNIZER.SEG.datxdsD s PARTITION.SEGTmRT11.SEG^#\P PASCALCO Pascal.PASP PSys:Spice> POS D.65 j-boot FILEUTIL FileUtils .PASQP?|67>* CdFILESYSTFileSystem.PASB+ ?##\CAL X aFILEDEFS FileDefs.PAS! (/$X0a|67&%x tlJ@GETTIMESGetTimeStamp.PAS:t:ZPY3 cM````c````c````c````c FQCODES V1.0`cc?Program to fovlvjUTILPROGUtilProgress.PASf0*,  lex tstlex 0f0rmat QCode definitions file for QCode Disassembler`ccInput File is QCODES.DAT`cc  QCODES.DAT``% & FRESWORDsys:exp>compiler>freswords.PASGNIZER.SEG.datxdsD s PARTITION.SEGTmRT11.SEG^#\F SQP|6>* dREADER READER.PAS#\ #\PASCAL X aFRESWORD FSYNTAX sys:exp>compiler>fsyntax.PASCOGNIZER.SEG.datxdsD s PARTITION.SEGTmRT11.SEG^#\I tcM````c````cFResWords Version `c V1.0`ccc Input File [`c  RESWORDS.DAT`c]: `cScd`d`cS'S RESWORDS.DATdcɛSc````c Output  File [`cPASCAL.RESWORDS`c]: `c cd`d`c ' PASCAL.RESWORDSdcɛ c``C)2CoC)!?CJNoCNCHCC)c0EHE!c c0]Z)DE*]c`` ^^c  cc``<_c6?FATAL ERROR - Reserved Words are NOT in alphab ?FQCODES-F-`cɉD``c! multiply defined or out of order`c\DE'>oFPcDc D(cetical `corder`c\cc;NcccNccc``c`STREAM STREAM.PASP EX.SPsys:exp>compiler> POS D.65 d-boot WRITER WRITER.PA`c``cHcccReserved Word Count is `cɉ``c Output SQP|6>* dREADER READER.PASvFile [`cPASCAL.RESWORDS`c]: `c cd`d`c ' PASCAL.RESWORDSdcɛ c``##\CAL#\FQCODES `` ^^c  cc``<_c6?FATAL ERROR - Reserved Words are NOT in alphabSTREAM STREAM.PASP EX.SPsys:exp>compiler> POS D.65 d-boot WRITER WRITER.PA& ' ±ñıűƱDZȱɱʱ˱̱ͱαϱбѱұӱԱձֱױرٱڱ۱ܱݱޱ߱\BBYBbBBYB P帜 ,/= PnEDn)nC) nDJF;GSTREAM STREAM.PASP EX.SPsys:exp>compiler> POS D.65 d-boot WRITER WRITER.PAnLHH#`H`?HGJKDDHCnMF?FNȊEHE<H<FHFF'-CHDDHCHSQP|6>* dREADER READER.PASHHF#`H`??FN]EJEFJF<J<F* DJCCJDHJHF?FN}n`#\PASCAL X aFSYNTAX aN}aNo]}aN}aNn]}aN}aNn]c c%** Bad character in procedure list: '`Mc c'.`c NKc ]^^c LNc CcM^^c QDIS sys:exp>compiler>qdis.PASs Specify the system version number. Arg is version number.j'Kk  ) MNM B09DY-BYqBYQBYX ]M09DXK wn ,n 'M0J M,Ac c** integer overflow `c NKc In KM0JH aNMxn]}``c` }} a}}M ' aNM M-'π aNMM ' aNMM09DXK} a}},}㮅}}}qM ' aNM}}}}}}}}}}}}} }}]}M-'} ʷK}}}}﷊ML''``?c` =``c` (DBYDY8DY?DDYG[DY]aDYcBYfjDYm|DYDYDYDYBYKĊK} }}ɺ ʷc c=List (by number) the routine(s) to disassemble, 'q' to quit: `NK ac````c````c````c````c FSYNTAX V1.0`ccInput File[SyBYDYDYBYBYDYDYBYBYBYBYBBYBYBYBYBYBYBY9>DEFDntax.Dat]: `cicP`P`ci'i Syntax.DatPcYɛic````c  Pascal.Syntax*````Y^YkBY}BYBYBYBYBYBYBYBYDYBYBYBYBYBYBYBYBYBlBY~BYBYBYBY^c  ,c/cYc0cYP`P`cYc ̿cYc ]JBYBYBYBYBYBYBYBYBYBBYBYBYBYBYBYBBYBYBYBYBY' ( NMM ' aNMMq'MQ'}NJ>ML'}-M09DX } ʷM-' }}]c $=``ʹc$<>`͢c$<=`͐c$<``́c$>=`pc$>``ac$Unused`Lc$Errc`c I (Truncated)`_c$}c`c (`}c``)c }c``}c ``}c ``}c ``}I -> R`Jc$+``;c$Negate`&c$-``c$*``c$/``c$R -> I (Rounded) ` '} '%c Exception`c '}c ` `}c ``c 8}}:nJqr)}}c$Abs`c$=``ʹc$<>`͢c$<=`͐c$<``́c$>=`pc$>``ac$UqHqr)} c$Ɋ<``c$: `ȊE a}0123456789ABCDEF}NJ}o INNN}Nnused`Lc$Error in real qcodes`(d ;KXhxlac$o``'Qonp)J}oINNN}NJ}oINNN}NJ}oNNȊ'aaqLr'r'}Gn'ac$``& 3c$ c$ ``ac$``nHnp)йc$ ]BBYBYBYBYX)aEHmH8  c$N..invalid real..`}c$```}q`J}p`Jc$ (`}c$ ` ` Jc$``c$ ac$``c$ ]ac$``ac$``c$ ȼac$``ac$``c$ ȼc$) (`c$c}`` 3c$ c$c}``c$) `T'Kac$ '`n mw)aac$``ac$``c$ ȼac$``ac$``c$ ȼac$``ac$``ac$``c$ ]No3c$ mHmw)'3c$ c$ }aN'3}'c$rSHIFT`c$ROTATE`j},ac$``ac$``ac$``c$ ]aaac$p``c$o``EJnHc$``c$ Min,Max}N }NBBYBYBYBYX c$m``EHmH8 Jc$``c$ ȊBBYXϔ}a,Default IC`c$ pomq)gc$ ` `c$ccase `c$m``c$: `aEJnH8 Jc$``c$ N'I}Cc$``}c$``c$ Elements/Word Field Width`0}(}c$``}C(}CcmHmq)Йȼac$``ac$m``am`aJc$``c$ ]CNc$c``(X$``ͽ9>DEFDYX.ao'c$ETOS` c$o``}'oa<c$L -> I`Nc$I -> XXXXͰX͜X͈L`8c$+``)c$Negate`c$-``c$*``c$/``c$Mod`c$Abs`cXtX`XLd'>'0c$Undefined QCode `c$Ɋ``c$ ( ) edure number`co``c does not exist.`c Jc po':c... type 'return' to list`cp``try again.`c c Input File: `clcP`P`c #(cOutput File: [Console:] `cCcP`c Vc... type 'return' to list`cp``c through`co``c c po.qk.)q`!qHqkP`c C'CCONSOLE:Pc$ɜCc```` #``==9A=8B&#``?HGDC.)ͤȜ8:}:}巜8 Ϫ}8﷜88}}R6}}}}}}m}}N} (}`aK a:"&"&): *:``c` 8:﷜8  `a%8``` 88﷜8 ac ^c`c  \!] "8:﷜8m( 88c$ c$ File: `c$cl`c$ }R7 }}NNu}}}}}}}} ΟL:}]AB7KrKHtsLHsMK}  Routine: `8c$`c$ (`c$m``)3c$ c$ c$ c$4 Lex Lev PS RPS LTS  帉#`t`= v|)Ss'#`tH`==sN ,uH} u=sNNsHvH v|)Э}} Enter Exit`c$ 8}ʷ}c$` `}c$ ``}c$ ``}c$ ``} '} ')c  ]=}ʷc$ }Gc$ Disassembling the program: `}c$``c$ Dc$ Disassembling  Exception`c \!'}c$ ` `}c$ ``c$ c$ 8 `a< 'E8 +the module: `}c$``c$ c$], which was generated by compiling: `}c$`c$ c$ }I Ϗc c-Type 'q' to quit, anything else to continue: `c}cP`P`c c }cq4}Q4c$# QCode Version Number: `}c$``c$ c$# Number of Imported Segments: `}c$8 }ʷNJNI}ʷ} S}㮄}㭃}}po'cp+Xc c** Procedure number`c``c$ c$# Block containing import list: `}c$9``c$ c$# Size of Global Data Block: `p``c does not exist.`c oJͷp+|c c** Procedure numbers`cp``c\ through`}c$:``c$ c}```` c```` c```` c```` NLcQCode Disasseco``c  do not exist.`c pJ3o,$c c** Procedure numbers`cɊ``cc thrombler `cnV2.1`c c4$QCodes```` c N cNc  cNclugh`co``c do not exist.`c Jc po':c... type 'return' to list`cp``c c  cNc  cNclc  #l33c Input File: `clcP`Vc... type 'return' to list`cp``c through`co``c c o'c c** ProcP`c c3).SEG Pclc"c" a##'ψci** Input File: '`ccl`c' not found... ) * DFxz  / 0 ?  + S%A xqdisSTREAM STREAM.PAS#\qdis :parCOMdis @ ,  PR#$I:part3di5WRITER WRITER.PAS%l%={T.pas%^T]e*Hj`J~(&/PASREAL PASREAL.PAS:pa qdis :part3>qdisxx#\ 06 Jan 82 23:27:46\PASLONG PASLOFILESYSTFileSystem.PASer>qdis.PASs Specify the system version number. Arg is version number.j'Kk  FILEDEFS FileDefs.NG.PASfcL  BBREADER READER.PASQ%%PASPx6>* dGETTIMESGetTimeStamp.PAS~ / x0Jaxx6 )JQDIS INIT GETBYTE NEXTBYTELASTBYTEGETWORD NE#\#\XaIO IO.PAS! + X,aXTWORDLASTWORDREPORT_IGET_CHARGET_NUMBRANGE_ELREVERSE RANGE_LIINPUT_SEPRINTPRCGETPROCBWRITEIC WORDALIGDIS0 HEX_STRIDIS1S DIa8ɜ'ʷ'巜'"J`%JP'"J' a' a' a' a'ax6&%3>qdF<6EIO_INIT IO_Init.PASPVLU öha!a!"H""&)$NINJ#Jc c$ ]!_`&rhr.RIO_UNIT IO_Unit.PAS s qdis :part3>qdis fq(wxBD<>dis :part3>qdis >qdIO_OTHER IO_Others.PASler>qdis.PASs Specify the system version number. Arg is version number.j'Kk DFxz  / 0 ?  +  PERQ_STRPerq_String.PASr>qdis.PASs Specify the system version number. Arg is version number.j'Kk  SYSTEM System.@ ,  PR#$IPASqdis :part3>qdis ~0:09#\ F<6FCMDPARSE Cmdparse.PASzJ~(&/j`j  ,=~ />qd xx6)FILEUTIL FileUtils.PASler>qdis.PASs Specify the sy  BD<>stem version number. Arg is version number.j'Kk  DYNAMIC DYNAMIC.PAST#\`j`ii * + LDC0 LDC1 LDC2 LDC3 LDC4 LDC5 LDC6 LDC7 LDC8 LDC9 LDC10 LDC11 LDC12 LDC13 LDC14 LDC15 JTB JTW JEQB JEQW JNEB JNEW IXP LDIB LDIW LIAB LIAW STIB STIW IXAB IXAW IXA1 LDCMO LDCB LDCW LSA ROTSHI STIND LDCN LDB STB LDCH LDP STP STCH EXGO LAND LOR IXA2 IXA3 IXA4 TLATE1 TLATE2 TLATE3 EXCH EXCH2 INCB INCW CALLXB CALLXW LDMC LDDC LDMW LDDW LNOT EQUBOOLNEQBOOLLEQBOOLLESBOOLGEQBOOLGTRBOOLEQUI NEQI LEQI LESI GEQI GTRI UNDEFNDUNDEFNDUNDEFNDSTLATE LINE ENABLE RAISE LDAP UNDEFNDUNDEFNDUNDEFNDUNDEFNDUNDEFNDROPS INCDDS LOPS UNDEFNDBREAK REFILL UNDEFNDUNDEFNDUNDEFNDEQUSTR NEQSTR LEQSTR LESSTR GEQSTR GTRSTR EQUBYT NEQBYT LEQBYT LESBYT GEQBYT GTRBYT EQUPOWRSides 2 Density SINGLE Fast ! PASCAL.BINARY - PASCAL COMPILER SEG FILES ! Created 26 Jan 82 15:14:02 Get PASCAL.SEG NEQPOWRLEQPOWRSGS GEQPOWRSRS EQUWORDEQUWORDABI ADI NGI SBI MPI DVI MODI CHK FLT  PASCAL.SEG Get COMPIN.SEG COMPINIT.SEG Get CODEGE.SEG CODEGEN.SEG Get DECPAR.SEG DECPATNC RND ABR ADR NGR SBR MPR DVR INN UNI INT DIF EXIT NOOP REPL REPL2 RT.SEG Get BODYPA.SEG BODYPART.SEG Get EXPEXP.SEG EXPEXPR.SEG Get PASCAL.SYN PASCAL.SYNTAX GetMMS MES LVRD LSSN XJP UNDEFNDRAST-OPSTARTIOUNDEFNDINTOFF INTON LDLB LDLW LDL0 LDL1 LDL2  PASCAL.RES PASCAL.RESWORDS Get LEX.PAS LEX.SEG Get FQCODE.SEG FQCODES.SEG Get FRESWO.SEG LDL3 LDL4 LDL5 LDL6 LDL7 LDL8 LDL9 LDL10 LDL11 LDL12 LDL13 LDL14 LDL15 LLAB LLAW STLB  FRESWORDS.SEG Get FSYNTA.SEG FSYNTAX.SEG Get QDIS.SEG QDIS.SEG Get QCODES QCODES STLW STL0 STL1 STL2 STL3 STL4 STL5 STL6 STL7 LDOB LDOW LDO0 LDO1 LDO2 LDO3 LDO4  S1B DIS1W DIS2B DIS2BW DIS2WB DIS2W DIS3WBB DIS3WBW DISXJP DISEXGO NEXTQCODDISASSEMCTLC DOPROCLISORT_PROROUTINENPRLDO5 LDO6 LDO7 LDO8 LDO9 LDO10 LDO11 LDO12 LDO13 LDO14 LDO15 LOAB LOAW STOB STOW STO0 INT_HEfcL  BBREADER READER.PASQ%%STO1 STO2 STO3 STO4 STO5 STO6 STO7 MVBB MVBW MOVB MOVW INDB INDW LDIND IND1 IND2 ~ / x0Jaxx6 )JQDIS INIT GETBYTE NEXTBYTELASTBYTEGETWORD NEIND3 IND4 IND5 IND6 IND7 LGAWW STMW STDW SAS ADJ CALL CALLV ATPB ATPW WCS JCS XTWORDLASTWORDREPORT_IGET_CHARGET_NUMBRANGE_ELREVERSE RANGE_LIINPUT_SEPRINTPRCGETPROCBWRITEIC WORDALIGDIS0 HEX_STRIDIS1S DILDGB LDGW LGAB LGAW STGB STGW UNDEFNDUNDEFNDRETURN MMS2 MES2 LDTP JMPB JMPW JFB JFW + , }J^˼}cc} } }} } k`} }}  /'ϡ}BYJ^˼}cc} ! PASCAL.BINARY - PASCAL COMPILER SEG FILES ! Created 26 Jan 82 15:14:02 Link PASCAL Link QDIS  } V{){, `P{P(5``} c ` } 1 } }'ʷ}' {}'{HL`/' `}  }} ``} c` } }7BYJ^˼}cc} } a `}} }'ʷ}'}}'}}'/7'`}J^˼}cc} } }} } k`}  W} }'ʷ}''E}' 8}'( ` }'}',f`}'}'}} /}X `}J^˼}} DECPART DECPART.PASS  )ϥ}}ʷ}ͅ} }'7}c}c}q+"*qp*qHqqHJ*H*G}ɺa$}c} 6Copyright (C) 1981 Three Rivers Computer Corporation c}pHp*p*d/ sq]}}ʷ}ɺaN*+H,%H%+} %} } *} ++*H+A%+,H%+} } %} %}H%o(5`c}|k'k)k)c}]``c` }ʷ}}}/'vBJ^˼c}/X #`}YJ^˼/X'/'+ +( +J+``} c` v'D.325a-)1c)/'`/'|BJ^˼c   L} }'ʷ}'}'}'& /'7}1}} k&zac}zH k&`/}BBYYX !` ); (`. mc)ɺc)n`"` BBYYJ^˼"`}BBYYJ^˼/(}} k&y+/'`/'BBYBYJ^˼c}kBBYX`` BBYYJ^˼%+,H/ '` %A%@+D+E BBYBYYJ^˼cc} c` } }'ʷ}7BYJ^˼}'c} }'}' a`}'}'}}'/7'`, -   q`/(m m/' `/ '`J^˼ cc&ɺ ɺaKK-::/(``1}: `J͂*3.H..7UkU}kU}d`**H)> }ʷ}}*L}' } }* }ʷ}} } c}c'3}=1aA}BFGHKL.MJc}=k: /(/(`/1( =`B ('`c}}a o```c` }ʷ} } }B} (c'}'(J}H}L&&'(JHK&&) `&}&     W++ /(k k;/'`/' `/' "BBYYJ^˼ cɺ%@, *+H++mm`%+B[ BYJ^˼ cɺ%+,H%`` c`  }ʷ}%@+E%@'+E,+E 1 %+,H/'6/BYX +} }%}}+/ ' `]/ '`J^˼ cc&ɺ`BYJ^˼`/(k A%D+k/ '@%E+ }/BBYX #  : ,  s`  ( r` `` c`  }ʷ} }  < c`}BBYYJ^˼/'@k/'0})1}.k235a-k-c})`/BBYX (`}(c'(*'* `'}'HL}]`` c` / ''J^˼ cc&ɺBBYBYBYYJ^˼/(FkF kFy/'`}BBYYJ^˼}cc}?ɺkk(/k`c}  }ʷ}}   }`}}&H} } ɺa**H)}}}c}ɺc}kk'kkk-/'7/B BYBYX #`}BBYYJ^˼͸k()k`c}k}*)/X # `}YJ^˼/X/X }J^˼}}ɺ͌`c})kkk-c}/'}]`` c`   }ʷ}}}/'zvB/'~/+'8)/X " `}YJ^˼/,''/-' /*' /.'J^˼cv'61 ac  `]/ }} /}X `}J^˼}} } }}]/( `J^˼' ` )`` c ` `` c`  }ʷ} })} }}  \ }1/3(!<`J^˼\ 5}6P5JUrkU)r7VkV}9]rHBBY BYYJ^˼cc&ɺ & X)B(` ` UrkU)r7VkV}91rH}S8c}`-  . -//(/!(`͔/!'- . ^˼`( u`/'A}1k  }.( .I  ac}q`/`͂} -5-<}k7(bk7`c}k'6k5'k(BBYX k<Jk> k>/'}/.''k:(/1/BBYYX "`BBYYJ^˼/(o o!/'`]/(`BYJ^˼eFILE y`/':BJ^˼c}}8}#}8 t}C k4(kk4`c}}}C:kk:(} }8 %/'}1}  a/)'0 '`BYJ^˼}cc} }}} }} a`BYJ^˼\}A}C}C}C}Ac` k4̇}C J`}C }A}C}C}C}Ac`  }c}/'6/BYX `BYJ^˼`./(`BYJ^˼BYJ^˼\$k:'}8'y`}8;;;t -k=k;KH-``t >k65k6(k6`c}/'}.1}38a2/)'0 '`BYJ^˼}Dcc}Fɺ}3}Dc}.n(Sn`}#}8k'6c}k"(k7'k57c}/BBYYX "`BBYYJ^˼/'B/BBYBY c}}}.98}}3n(m`c}k! c}k!c}nk!̧/'6/BYX `BYJBYYX "`BBYYJ^˼8/'</}YX "`}YJ^˼`tk4( . / }kQ`aP/':/' BJ^˼c}0kQ4kP} '}5} ``ͷ}}aʷ}a}5J^˼/ BYX] (&)$!wx,A .}a ϑ}a}cʷ-}cH-}a }a }cH}c'x`}K} `c}0k4(6k:'k:' k>}cH>  x z W k<}cHdev> POS D.65 a-boot FILEUTIL FileUtils/"'.(om9'm:B9BYX/"'`kQ `}}aʷ}a}a.(}a m9(+Jckck.PASQP|62>* dFILESYSTFileSystem.PASBWCcH/"'-o .'/'``}/2BYX `J^˼ͮm:'##\CAL X aFILEDEFS FileDefs.PAS! (al/$c}}a`Zc```}}aʷ}a!}a +JckckcJ}a}a}X}[X0a|62&%rt/nJ@GETTIMESGetTimeStamp.PAS1b1 ZPY, ``c ` }R \m9'.'F}} } c kSkR+kW`vlvXLEX Lex.PASLart/noqf?eI v60dec=decpart/noq f?-kU]/ B[XϬ/q8' `h c^YTq``c}ɺGd:B420.,*v60dec=decpaBODYPRT BodyPart.PAS%%%%decpart qa }a }a }ak*}ak)}M``c` }M}a+FkF(kFJFkFckc kc}M}(&$"  /2'.(\oB/BX <5 r / X `}MWkc`c}}ALL 9}Mkckc}M}Mkckc}M@dx::420.,*(&J^˼/ BYX] (&)$!wx,A .$"  m:' vOv}m:'kOv.}(```}-W}   x z W-S+RU}Y-tn'}}]B }]BBY * H`+ *I+H++akQ G)*a. (@- c}ɺGd:B420.,*ka} kakakakakaka`m ((}]J^˼}kQ`á}]BYJ^˼(&$"  /2'.(\oB/BX <5 r / X `}/ 0 arguments to switches. Use "~" to signal  tput|6 2)mSTREAM STREAM.PASuse "=" for arguments to switchesError `cm``̈́c** Error in file: `}cc`c , at line `}c4Hc``cc. Use "~" to signal output.DECLARATTYP SIMPLETYPACKABLEFIELDLISALLOCATEVARIANTLPOINTERTARRAYT ** Error `cm``c}o PASCAL.SYNTAX*````km*k+ c}늯cc}`ccc}`cYPRECORDTYSETTYPE FILETYPEIMPORTDELABELDECCONSTDECTYPEDECLVARDECLAPROCDECLPARAMETE(ct>d!,CODEGENE CodeGenrm +``c,`m巜-``,`﷜m巜}PPc}.PASSDYNAMIC DYNAMIC.PASy use "=" for pc/Would you like to quit or continue? [continue] `c}:cP`P`c}:,}:Q'}:q'34PASCALCO PASCAL.PAS PASCAL.SYMBOL$dc3 PASCAL.TMPD$d3dr.ccListing written.`c  6Copyright (C) 1981 Three Rivers Computer Corporation ϧ3dcca(3d '-cc`c written.`cAc* `cɊ `` c errors detected.`c 'Dcc`cn written.`cc3dc* `cɊ ``c* errors detected.`cc * `cɊ ``c errors detected.`ccT-m'm')+ 3`H+ 3`Hm^J_JHJ>Jc Error notification file written.`c\]}3}d}}a}'i}}HJJd ]mJ* 4`]mH,3`]m24DX4H) ~ H.PASJP}3}d}}a}( }}dP]}``c@`}}<ʷ}}<=c}}<; m(}cʷ}c4*cc}cc`c c}cc`c}c3(m(^}<;'}<='`}<8}<8}<;``}<8}<}dc}<c}<3c}<>rJL}<MEMORY Memory.PAS\> PASCAL.RUN|6 2K)9(ct>d!,CODEGENE CodeGen}c3}c3J}cc3`c}cc3`c}c3}c3H7}cc3`c}c.PASSDYNAMIC DYNAMIC.PASy use "=" for c3`cc** Error in file: `}cc`cD , at line `}c4Hc``cc ** 0 1  Q}}<%}' I\ }`}ɺ}' \ }`}ɺd]+llq+l)l޼}' },}s`` d  m/(` },ͥ/#'>ɛɺ#a$ <}>> Error # `c``c`}ɺ>}X `}ɺ(BBY BY}[@ `}ɺ `}ɺ}}ʷ}'}}}}B}}`c﷜c,`̐]H] qr)M qJ߭n'qqH qr)4M qJ߭I'  }&}(}`c}ɺ}k}ȉ/}X  } %}}ʷ}'}} ]q00afuqH qr)qJ߭o* qJ߭qqH00afpJ߭`}ɺ a} } "}}ʷ}'}}'} $}}ʷ}*},}'L' `M pJ߭` pJpJM pJnn )`n` pJn 00afH) qr)"LHL,LJ} LJ}]} } } ]}}ɺa Ϗ}ɛɺa}qJqHpJߊp} Lp`aoJ} M oJp}1m*m,#}}ʷ}}}ɺa k}ɛɺa}ɛɺa G}ɛɺa}ɛɺa #}ɛɺa}ɛɺa]"m Lq`am M} pJq1rt)s}rJHrHsMȉ+)Ϭ}a+o߭'+o}/'BBYJ^˼c}ɺk 'f}ɺ#aL˼}!}ɺ! ɛɺa }' s+o߭`c}}ap'.ve`x'x`c}}ap' } } c}ɺ͌+`Ok!(2`@ /( ` k"B BY BY BYX 2`k" 'ϐɛɺ#av BBYBYBYB'+}o+`c}}ap'.ve`x'x`c}}ap' } }YBYJ^˼c}ɺ} }.}}.˼}.ɺ! /(` `{},J^˼ c}ɺ}}}ɺn`}ɺ}'\j}}@9 \Q}}<%}' I\ }`}ɺ%k"},ɛɺ#aɛɺa ɛɺa ,LJ}, },`},ɛɺaɛɺa}' \ }`}ɺ̒]n`}ɺ}'\ Ϙ}}@96} u' \ }(}`}ɺ\,LJ}, },`͝/(>` /(`BJ^˼c}ɺ},}ɺ#a1,LJ}}, 1 2 ,LJJ͗ LJJ LJJ LJ,LJJ_ LJJ LJJ LJ6 Lɛɺa& LJJ LJJ LJ`d8LJLp})BYJ^˼%/)'Ϧ}JJ LJJ LJd 7oXɛɺaA LJJ LJJ LJ,LJJ0 }J^˼%L(2`o}  ^t' `O }ɺ aa} LJେ`` `Bɛɺa& LJJ LJJ LJL>ɛɺa' LJJ LJJ LJLJc` LJ~ ʷ~ Js~ ~ ~ } ɺ ag} LJJେ`` LJJ`ɛɺa& LJJ LJJ LJM>ɛɺa' LJJ LJJ LJ`Rc` LJJ~ ʷ~ Js~ ~ ~  Q}ɺ#a:ɛɺaϰ,˼jɺ! `_/<'Cɛɺaɛɺa˼jɺ! `/$'Cɛɛɺa& LJJ LJJ LJ`d f8LJL͚/('0BBYX0' }(BYɺaɛɺa˼jɺ! `/%'i'>ɛɺa$ ˼jɺ! J^˼&rϳL,Ϧɛɺaɛɺa LJ LJjɛɺaS,LJ  LJ`~/%'i(lɛɺaR ﷉`` c` j1 j ˼jɺ! ` LJ% LJ LJ,LJ`2`/('ψ0 }(BYJ^˼&L*2`Nq2`]/B[X !2`}YJ^˼/B[Xϕ/&'U }J^˼' `%L,<ɛɺa& LJJ LJJ LJHDɛɺa,LJ,LJJɺ"a LJJ LJJ LJ LJ 2`8/'/ }BYJ^˼$/' `(}'BYJ^˼'/''^0 LJ,LJJ͘ LJJ LJJ LJ,LJJ` LJJ LJJ LJ }'BYJ^˼'L*2`$qɛɺa& LJJ LJJ LJKDɛɺa,L7 LJJ LJJ LJd 6n>ɛɺa' LJJ LJJ LJ`J,LJJɺ"a LJJ LJJ LJ,LJJ͘ LJJ LJJ LJ,LJɛɺa& LJJ LJJ LJJDɛɺa,LJ,LJJɺ"a LJJ LJJJ` LJJ LJJ LJ7 LJJ LJJ LJd 6n>ɛɺa' LJ,LJJ͘ LJJ LJJ LJ,LJJ` LJJ LJJ LJ LJJ LJJ LJ`͢ɛɺa,LJ,LJJɺ"a LJJ LJJ LJ7 LJJ LJJ LJd 6n>ɛɺa' LJJ LJJ LJ`N2 3  LJ}  LJt͐ LJJ}}6͌ LJJ}}5t LJJ}}8\ LJJ}}7``k` ``` kH,Jop,poJnr)nH qnHnHqoHoH'm``D LJJ}}3, LJJ}}4d% h~LJL```d}HpoJp'Ύ,M(MJ nx) `nH,(`JKH,cc PASCAL.TMPD$ ````,LJ`}}巉/X !2`}YJ^˼/XXL}J^˼$kL}  /``}c`}} ʷ``}  `}  } }}}}} } ub}, (2` }} J/}X `}J^˼}}]} } (} BBYX } (} (\}} }}0} }}}﷊},̚} } }} }} } } '}} }}3ʷ}3 ' }3 }3 ' }3 }3}}3ʷ}3 ' }3 }3 ' }} }}}}  } }}}cc3J PASCAL.TMPD$d}}} o}} ʷ} 3 }3s(r(Ks`c}ɺr`c}ɺ}"} k'k(:k'BBYXc}c}ɺa k&k̫s(r(}} } ʷ} `} `} 'p` } `} `} `} ```}} ̈` ``mL ͗} } ͂} }'j} }'Rr'8} } }ɛɺa}} }  } } ``,p``7  ny)xnJ`nHd ny)xn`LJ,LJJɺ"ai LJ LJ LJJ LJJD LJJ LJJ' LJ LJ}ɺa}ɺ a}ɺ a} }' }}} }' }}}} } } }d t LJJ LJJ LJ  LJJ LJJ LJ ͸ LJJ LJJ }'ϴ}͜} } ͔wcComparing Sets `}}ɺaw&}}ɺLJ͏ LJJ LJJ LJ f LJJ LJJ LJ = LJJ LJJ LJac``c)}ɺ a}ɺ a d]pȉ,","H"#H#$`#`ߛ ,m,H,ȉ,,H d )yNLJLt LJJ LJJ LJ  LJJ LJJ LJ ͷ,,H","H"#H#$`#`m ,} ,H},H,],H","H"#H#$`#`m ,} ,H} LJJ LJJ LJ͎ LJJ LJJ LJ e LJJ LJJ LJ < L,H,kk)c`k'O޼INPUT a߭`c}INPUT a( `H޼JJ LJJ LJ d *zOLJLAɺ a  LJJ} LJJOUTPUT a߭`c}OUTPUT a(``y` ``,,H,``` ``` ``` 3 4 defined`cu`u(u`+v(v`+ t,+9k9(^+)@7:k7k:)-+k7߭( \78IJz|E &+k7߭`+k7H7+:k:(k:`+/'`c}ɺk%'-mt/' ``c}ɺk%'`&/())))D*F**+,703  +7k7(k7J7}3k7}3 8}3`c}ɺ`k`k`k` }1}3}3}3}1c`̿p.''n)}S T ;R)P 0&BY B[J^˼˼} /'q I'/'``}BYJ^˼/'q/ X''(   Z$&XZX &q /'``}J^˼ /' / X '2`}J^˼}J^˼W \[0*+,5060033E & {}9ʷ}9`c}ɺk( ,c}ɺ}9㮝}9㭝+}9㲝-}9㰝}98}5}9 ﷉`k8c `}5﷉/ B&/())))D*F**+,703  [X8o}2BYJ^˼ }J^˼  *]}b````}߭`]c````c`FILEUTIL FileUtils.PASP Psys:product>dev> POS D.65 a-boot FILESYSTFileSyste```(Dc?Warning: WordSize(IdBlock) = `c``c`, YB[J^˼/m.PASQP|6H>* dFILEDEFS FileDefs.PAS](`r-ccListing written.`c ϧ3dcca(3d '-cc#\#\PASCAL((GETTIMESGetTimeStamp.PAS(*  ) `c written.`cAc* `cɊ ``c errors detected.`c 'Dcc`|62( 2 '(SYSTEM System.PAS(@j'^T ]5nHJ`v`m`P nx)n, `n`nHP nx)n, `n`nH܉,*``vc} written.`cc3dc/* `cɊ ``c errors detected.`cc,(WJ mx)Em7  nz)ynJ`nHd nz)yn`nH`mH̵}}} >}} ʷ} * `cɊ ``c errors detected.`ccc Error notification file written.`c`} ʷn|)} nJ`nH}} ̹`m`c}ɺxBBYXQy'K{'Ekk < ccc}``c un``3PASCAL.SYMBOL$d36dy   z 4 5 levl wMEMORY Memory.PAS#\ s< v60pas=pascal/noq f1PEBYTEARRAMULTIACCCONSTANTCOMPTYPEGENBYTE GENWORD GENNAWORWRITECODBLOCK NEXTINUMWRITENUMLOOKUPNUNEWIFILEEPUSH EPOP EQUICKv60pas=pascaPERQ_STRPerq_String.PAS GETFILEEHASHIX COMPPROCCOMPPARMLOADBLOCSTREESEACPUSH REALMODEMIXEDMODCEXPR CSIMPLEECTERM CFACTOR CVAR INITINPUFINISHINITGLOB CompInit.PASDECPART DecPartSEFINDFORWDUMPCOMPo signal output.%jJ@XIXREADER READER.PAS((\LX[ @((.PASl/noq p v60pas=pascal/noq ~&(J@ =99(JBODYPRT BodyPart.PAS use "=" for arguments to switches. Use "~" to signal  tput|6 H)mCODEGENE CodeGen.PASse "=" for arguments to switches. Use "~" to signal output.e UTILPROGUtilProgress.PAS1o4 ;)%dndm6i 9W%ADDD9 pascal/nLEX Lex.PAS/noqD9  ** 9"]"!#\oq s=pasl/CMDPARSE CmdParse.PASB8j&*6c v60comp;;6} ;lSCREEN Screen.PASSTREAM STREAM.PASWRITER WRITER.PAS0comp.CMD8Kw|6| |6H )JDYNAMIC DYNAMIC.PASly use "=" for arguments to switches. Use "~" to signal output.%jJ@XIXREADER READER.PAS((\LX[ @((nd n PASCALCOERROR PRINTLINENTERID TH_TH_THTREESEARSEARCHIDGETBOUNDSKIP PAOFCHARSTRGTY5 6 6 7 7 8 8 9 9 : : ; ; < < = = > > ? ? @ @ A A B B C C D D E E F F G G H H I I J J K K L L