File PASCAL.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

y|D00p XP@,+*)(2	'&2> /4/*46&>#?&?%?$2?<9.0! >84..../0.-)3.!>@>/7Wu3Wg$"B`""3Q"v #Ei393]i3;DaD(<DcE.KUdU-UNsU7fVuf6f[{fAwarww*;wKp@<b($z33J&933##t#H?(/.#J&JJ693@.< /@.3
~033}J&9333 |0&!L/@.-0{- z-(30J>AJAJ: y(9x2yx-A OPL2TO I1N0a RLE8RH:@ ? KpXp0  SRM`UT` H TN K1 E3 `UL KQIC "E2HRIR.2 E8H@3 `GCMCS`IC Q`O5YDBL3'G4g8GN.34 `1H@LRME A
%K G`!LM E 4 R!LC)B58 LA C Q .% TN CNLT1M:N(PcE;6 YCX R!`NEG%`YDBL3E C O$K.7 T`A LEC T
R(E3 OEYDBL3''nJ8 `OEYDBL3'F` .%9 `1 3KCMR1H(8CIE M3RE $Hn p
RAIRN` R!!(E ;AY` DR1'Oiq HCIE NS"LM E 4  ZNQ MR1E AH0n r HCIECKCMR1H(8C`LME BRLC)+s HYBCL.8 1 % E!IAHNICB 1 4 5 N5cSIit HT DH 5 !Pu H  NSWRA AR8RXM8P hG1R L@ 0LA1 D3R $ENBv< YBL3=H(NRIRNE S %=hL5ESGn*w
H'Fl)'HLg! UIL2`USHN(O'3CB U@DDKR.0x HHaR0A ``F)Rm9NESN%`USHM8P hG1R HR @LA1 E4N+y HNW4R,ETE % B@8ESTNM8C2 # TENB0<  TDNCE'8U5T`YUS4 `GCMCO$SH BN .1
 (TH`RQSa4(A cs3}ys]37m 4L`Bn NR!10 kp)`2 H C MPRME3` !%(OYDBL3`BGN`N E`9 H0 TRES!@3, UDDKC CSgS`T`S TN%E, DCRO3NI.4 LA1`4Cb!#5 `O"5N1TN CS`CH=N`O5`1D ;I O#.SE8R.06 H UDK@E IA 3I3XS`T`STN NA XTPhI.7
CBR!N 0`!5NB8HF@ Z|OC2 $?T@8,  Z2E$` B@8S`TL`R`eNBR.9 M@` % #DE5 SB SIC nPeNBN1R);p H SRPhRQC(RIR0.Pq H!RA `I ORPN3N-E4T2R8S`TL`O@HRIR0 EUNAr< N Tl9'N''8R`9
TNE P3RN `S TLA.s  ASSSCS(S1 MS ZN`R@`FN( EnP3RTO# N5cSIit HDV`N MD`9 TNE P3RN `S TN%E.u  C TC2P#RN NUDG H v HKL` N QLEC TUS1 C`SLIHNPI.0w H TBR1
CB! x HI T D8S`TI3S8N(IHN2N1y< N bRTA-SRA3RMTRS`EENT$ME#.00 XTN@ZCDRA  ARP hG1R L@ ESAHN1= `R%T`!ICREPN G1R L@ 0LA1 N5 HRLEPSGB2= RTh!:zc) 8THRXE TE ``5 DLLEPSGB3= `N Q 0`R%Th!:zc)8ESTN G1RASQEKP`EN+4 X-T DZD1RSE 3IC UDCAE #NVS1InA5 I8I1UC N 3H I 5I`O2-5 5-H   NSNM@NGN.36 CRELC "I `ETEeSN%n7 XCSgMRE U3SE 5`L1IHNPhE(R'AEmUDDKI.8  A`R@UE`4` SRSRNTRO #NVS1InA9 RmFN !`dN QCSgMRE I48F-X08M<<24 NRNp= I 8NT4N N 3H I 5`C"TNM IN1q= YBL3:`
 ZEIHNICT # Ne `NVS1IiAr= `OEYDBL3'N` .Ps X`OTYBCL'8N U'8Ht= `OEYDBL3' 
.%u `OEYDBL3'`DR'N`Y .Pv X`OTYBCL'8I'8Hw= `OEYDBL3'N'Hx= I 1TR#S`IC SE ;O#Sl''5 C K4M3RGN.3@:9&6&66C /6$666;;,~6,hAf`b7};06(,{|i6|96-J: IyQyW|v\{v_v|aT}h&~l o q ITN8` lN`5VR W0QDE 4L 0 XAE 0R8 P\7r6@ l<(z4~'5}'|{'zy'fxgw/vu' tC(Os"rqrpronrm1|6<66t7!Jlk'ji'h |gf0 Otj;]#fed?@9p[0Ka`8p[./;-Ks!+U
ek%]8]X_1]CI]l^8n#n1In<@nboCdT\ }VTop~&y}|{z pp~?b]#; b]$8 b\ @ b)\$@)b\ \ @)bl'Agw!_If]@P%3~K@!@)! ?}(>>!>f=`N= 6 7>JJ>0o?b}(O>!>f>o&=&`c f 7>`JO0o(/e6 7ojJe0@rgwWy2Z c ]G.TzZi2 \Xfb]$D ^(^&BA`(/2@)^ ApBy'&%f$dn ? oQ'"GQ\O\)N Y2_ Anr%%&&$'%'&'''bW ` \WWV`0e8-_7db z@Aff f\&@)b_< !b(:z@
&& & &VVi S)&]Nb)~&_a\U@)
\ b \.\@)b_Mi+!.,.b! f $l&.&)&*&-&N`deffWi Z ` ] $& ^($&K)}(/@)$ *d&+e&.f&*(/@b]!8b)\1@) \ b ~d&_e bTWdfe&1|"(Ay1BFjZp~]9$} k&byR\O \Z@)bl_iAgk!lbh}{kkBKg*hb+{b,jb.jbij&La@f!F'i""\+\) @\bWF e&jJ)jrfJiby`1b1Wi ` bWd] $` Q b \;@)\ b _i#K)#*&+dn# / oNU)#/'.&LX- b Wd]$`QV&b\l @\b_iSV"KS*Tb+Ub.LiX\/O _Fb fWiKPZ Kq ]b){rbRi] b)R\&@)J b\$- @F^)bi(/FK))}"(;z@F*"+bb DzAo.&WUZ!.h/a$K)*&+&,&2.&1-&L22&J\)w \k@)\ b WKP\)w @|b)W_`b ]$`&R] bR\) @by&_i!.h/7$K)*&+&1-&2.&{,&L22& X)\)A[bi\$G@) !"f#b[K&Q&B~{HbA1\&_n\ c @by{["hPi` < &&&$ _p] 2 b\$ @i"z(/@)0 D)v~!B)"(@yK *&+&.(/0&P bi]@ b_sBy(/B@)^ &C!b(Mz@X"CiH^ A~}W&PCCiV\6\)h @
\bZxW) ` 0<- Q(}2`zQ}r`z(zQ *Q(A.Pik@@i! 8&P8B)D ;v8<&]b9;!.<@/~<4<B){(}{_}9<B)b!9b gz<B)!: /|92y /]:"CcH. {{:D)vP{`>9 /rd. /rP){ 9 /|{;DR!}<%7U:JU\$@)< ^b(<zK`) /@%*9&+:&-&.&,(/fPZx'_) }9<B!9 /7<"B`!:b @y$< @'W\\9I @by;!.<H/@'8B).B ~rPix!1h/j1"bxP` j`d7-DT!}$V-1t"`Oz\
@) b_iP6dn`/#G.6bHd6b(t,"~h/,`.6(/P}"6bT|beceA!(O>"PiB 6 /@0\H@)bB6`i
PiI ffDPfff`D#
AHgq=9< 8uTxp67fW:Z`]$^9biK)~&v)OfORf*6&7.b`n*H.(~}'&P|*26+b7-b.bZixD ,(/9fP_ 66w"hPy"| M6bwh/M,B(MtP|@9,| *6&-(/^"\_i | .b&_
| sX"0w7eU,D# %H<`6Zd.(/A.6&U#Pi G6f'&P7bi<])) b_P6\ ' @<b)<])< b_6f6 /8P)#< 6 /@ W0D#-{82_`(S3 $ VP"QKp_?/ &_
Z `&b_ r&wN.wN\w?a)s( z~ /}|"Pi0 Af`c 8zPVg`n /AP)Vdn ?hd. /h{"Pi0 `c gz`b gzH.Pi0 fc izfb izP4 .{bpc r @y {Z2"bi&_2dchz@!#"(/P$#""_iZ ` bi_~" Ezfc =zfb =zP3## r @y ##ra(?#H. }rw"Pi0# '1Op#$ iq!VHtz_Z`&b_d(/!}"`!z!.(/=A.`n /+P)Vf`b 4zPVfdb Jzdb JzAbEb~B&PUf`@#F /(hH@`pOr#V Q0gA/'#-@1 BB`bbBi{(~PiZ x" _ \)@)3\ b _!. /K"yH/U"!b ]zy" DzC)GZD)vPWd. /Y`. /YP)P &`  r @y.W b_ Z%m\)` @a\)+s @9by`5_( !.1 ?-0# b2(/AV ' ' 0'3 & 4!b z !.0 ?@@9/ 3ib &~&_4 db("z}`/@&P
\..@)b_\ . O) & !.(/B #Pi8 P ~ & !.(/N #OF\+T@)9b`Z o by}\[ \f@)b_ BPy `  o3b_*"(zv /@&P \2@)4\ /b _/] ,0 bPi O_O)`-*4bi_9Z %D \7@)8 ]-Xb)_2 2(/Sv" @y4Pi Z @5`bo_i>mm(jzv /@p&P \/t@)6b_o&P pO)`b]$+ ^b((zK`) /&*"-b.bPid(/#}"`@y. @%Af.Y)C]=b)_H !. /@@Y)H3&ZMV\)1V&b_>"!b @yY Y>7b^Pi\ /e @6by&_Anq&PO)`_e[T&{;z;_]9X b\$ @J^)bi(/JK)`)b('z@%J*"+b-b.b,b(~4PiZ x< _  fb(Hz~`/H"PiJ @(W\\)W @bydb(Py>` ] x b_`> /@+P=\b\)w @by` P%` {]`b)]$"Pi'#bi]b)_ `c @y+ P#&PV _} ~w2`@y)] P b_}`> ?@+]Od.~ ?@*b_`> ?@+PVA.}U&~6P\\)_ @by|w2(Py?` Tl"*A3<1w^ !
j#;0;ZRE])$@ ^b(EzK)&|L#3L@9-E - &.!&_E-"(-z+&_ E."1_i EE)!+b zA-b=_iE K"D_iW ` ^pAr#
)'LN2&3&1L"`M{WWTF43bK*4+&L\_ 4bJ2J)0r(P{]Qb9]$O^9bi(/)B)}(z@)B)bwh/@)) 3&U0bbH)Y)n)@)\ / @by\_\_\_4&2J)Zy\G _AW)af8Z #0 3&H)b _ Z %` \S@)T \+f@)9bWk ` F&C=c>c?c!l0)G!DA9`&)C!K  H>(/-="c>)?"@Ezhfy>&C>4X.B cHBvBC& [I ?(S!.>=b c G>MJ~  V?b@kz}&y&
`~&bJ!|I>(/!>=&`b>dr{)e0O>l 11&1;1"1Ao1{(F.16L1!<0rFc1dAO1!|0(rDFn%16%L1!<%01rbDj(F.8168L1!<80Crb (rF/f/&/C(cA`)Ao*?A~+A{p,Aox-.6!IK/l(/').*'+.,-" .r!|l?DFn/&/&u8&~&C8J!K/ub8}bl8D!,0D.8#cb 8G8B8!|B|`/A#kT# l#'!8K@@dw"bX!nH/Aw#b c G!#DQ"lGbb{@/pw"#bb c! c Zz#gJs*&!,@0D((m@/A~EDv&}B
j(/@) B~h~V.l'A~1rw!EIbJ0\$8@)1 Qb1|@/A&JJ<0<b!bH@y|@/A&<I)RII)I[Abb4c tr uz ?u#Huz!~b@91b @<-~1-h"`D<h!B)`.& /2@z@0F~bl '!'"'#'!-K F~bl!> /U#!!b Uz!>" /U#!#b <t!<KC$c%c&c'!lX0@ec}Ie0k,|0{Kok]r\  @Z(byW-088d6@byZ+8$ZI6$".c8/[I5YiKH8t2?[i@80D./&CC4/C./d./1 Ct!CK!Tc TtTTK!\c(\t\\KdTdd`dcdd`dc ddy\&TC aT 7T\Ds!,d?ux@EUL@HRLAN%EB@QDD1HR1UC@DANENU@ICO@X0QDRTNOOD@D@0RTR@RTRL#SI@ CM0;V {  W
ANK6Qb/8)&L'U1iE`x@``p x@`    @  ``A`p  
@ ` @x`@ @ @ @ @ @ @ @ @ @ NR@F PN@AE@F 5NL1E@IOPFRNUCD1RP@O5T@G4@0@N SONHL@! !/+*'&,% .
1 0(#-"2)/{xR@Hzp` |p3)!p1}p5l |p\*zp*{p3{x7@{x E~p4P}xf|xw|xwzx"(R"W#Z3p90zpbvAx"0WF  6 /   ( {<@)=
B=l~}2|c O}"{bdt"f!&Bz@/. ?:y"t(/2x"tx"rw .|G1Ev\0[Y1X) s^ E}P-xg#kSXa&<kv0  9b6h%7&C / "8&66%3K&!L@.0:(;(06>-6-6& =(%<2=<- = T ?R{A?3+>KQh+ kbmnv] n+n5<nGTnOP#LT O #BEC #`0AN1TL;SFH!@hE#MN@hE#a CNQDR1CR1@E 8NT4N@E8Y@a@hE#RG4MB1NN@G4M8`RQSa4E 5@hGCMC`OP#!6G4M8L35N ahE#SmA NA@R}P)L7G@p                
    
      @ @ @ @ @ @  @ A_iy0  / @|\p^IiA[t[iDYRdm3O7= DD)D% J43Ek3@X3ou3!@}ob9~!^b bz`\b!]br l[})W? 0`?E` s?p @`@fAf|&|&7IQIQIQIAD44bPAfFVD;&I4B>i@bTA~{A{pPnT)d:"9o<~?| ;?BJ% M\"HX"mr" " "&;"HJ"W["a/e 33'0w273IEP)HI9ENQHI9EMNQH!.1&3&3F)`bVn3M)31dH+"$Oi$R HL7LhxlMw$qteSUa*)il6MIP)H2HkMH/`nIHNX!D#/!1f`Ii@bT~ ?yPbT!1(/d$TJQbTH0n*7I% Axj`x #{ 7%("r@'I>/?&`bO$F@O$FHOF dM)RHfnIH@ &>#*A+&?1&dbM22O)$BF@O$FHO:F 2RHkfIHH`BB$?pGIBK`BJP)IPH!.1&G1bM22B)L3An3&1F)U1bM14An1&S)3BEiSS)7`4b zIQ1"2bBHk/~,&C) ^1bC1!.2NiX!`D#b!~1@.24&?y`nIM4P)H0C)H^}r3o?@.4.Q~Q3t;Q/43kM1`Ii .2UjI1N 12DPH+`bM1M2 .3hj2N)1Q)12D3bJdIiHI97)QHIGQHM99`IHft/3!.1&1O)1RH~"iMRE'^cM9`nIM!f,}E|"#7b*jM`IiO`I{"13iH7mRi 0 M `nIM`nIO4`IHdo`bIiAbMUbMHM9NQHM9HnPiHO9zRHN9`IiMQ`IiH0#y"#b(G~x})mu2F{O2y69#NO`IiO~1&1161RH}2|1&O`IiO1{)7QHM91`nIJ1 .1|HM91`nIJ1!|H89(/18)H;9H01
l>R&B(Ozh/L!.2|b92GO*!b1bX2f2CO\h1DO9+{|{ |9)\08{7 c0h/A!n2rj|9)2pJ#\(i@9AEn$q`3bG(A@nH~&?yH.`~K&T.Tf0AHn~ AoTTnK b!!&"0X!`hn!! & )k(<(c4KJ4KJ|@0(Uz.c c!c"c#lE2JI (h(.& '!'"'#'XKJ(\ E)k0"xAXxo0"b"'uK8@F(6L(<0DFn (6 L(< 0"((c0r(&A(w0(f (C!Kl 6!6"6#6)KC~$yEIEND~Iy6 6G}p@A#`7M}@.|&RtR0(r&!L_z" [{y^*@f0x9)i0mKlw{ m{0U4KJ} F# t(?F>`0c~ A2vz2260}"(Az2,62XN2-h2a)2d2*622C+c 0"|0&0 Uw*w:itUv$-fBddiCaz nAp{bMbQMhQ& LSvuuNSUOiuhlieE0zIJf2& G!n2&'!""r#ri{!enRy3y%8y"(z,'!&f~" z8<&!.Nh}" )z$|8 ,D#b!~&$|{7 &'fz"(9zJ o:X.8i<, = < 2 Kz@yi+&*)fx&'t8=wviN0@bhbz/N&u{5yN]JSk7iS0Z)f*+f,b-tiSe p\@xfS#`WU*xV;_R` ~ h&z!'fH/ n&dn'&"!.%%b@&zVbh/}"@~|{)"@~z`&fy"H~x&w'&v"!%f%H/=`.%bw!.'dn'!.{zu9HV~t9)H/!ihUfsr)A&0P}ffff`#"f! ffi5p+Eow vO5f uf!(/9&h/~"Hz z!}"H{$|A$)|p`j fP6i"J{&z&{y  v,J{d&0d&xz"H?C'`be9d"!b Mz`dbdd55450d&w9)%RJH/vw"9d&[Ju9)d'`O+t@.s.?rb9d2"f0
. WvUua[|Bx)({!(/"!,b@zB)bH)f*.*+b+fBJ! .B,bo5B)S ($ X--&(0)(/~!(-{%&f'-b &`,b&A}iS- )(?y%&f'-b&,!.&|SB0@!b{ (^z5Uj#te"$e!$Tz)pZ.! q6)`bgj~Z@/S2H?y?Gx$iW 8(/~)? |bH`~}bg|#`b$iH'H.{"@/`f"H/ n2j9)0J8Jz9)4y9)8J0X!` /x|9?k L0Xb?hO0 )b!*b"+b#-b,bUk!)"b*#b+b-b,bkt|AbAnkx0`- G`u,`_-(/i(~!@zY- f~90}0P7 %&f'-b&|G{{z5Pv69z!"#f-"byi**z5H/GD ~Y f:0#(/"(/! /GGK+(*r()r PtP0@#b!#f" .A~"!b oA!fY0@+b!+f* .A~*)b oA)fi$8lx(?@#+"#n"*""n!)"!n &0/$&l^%.%&b&f'.'o$+/i@#b+&"b*W&!b)/:!&W"&#&'b'f&.&%b%fI(l($0#.#"b"f!.! b fI0~IIIW H f!.!"b"f#.#^k!%r!"bQ%v&"&#Q/ 'b#Ao'lkbiw@bu`6pdx]knVA-UPJ*#L^SS5u]%gPuEH0)&3*!)f~<&)(/*H>)o>$)<`G<b<4j$ [@[H/!7i$_X[D"/ f$[!*hB0QEEQ@1} |h} {l~ |U; Ue%-bwH?y!(/A>X/n7o`f$/+`n$i+ f+f$3/33 `b+d7"&0@`dUt  JiY|v/Ku/` #w_fq@~uA)L`}<uJ92 {`wl#;7RK"&p2!h/?$=@=@nH/qif$EAl>:J ~b;Gn;<&$A<A\;==@(/$)]=LIMb=Qb=Ub=Yb=]b=Ab 89< Y>~UUUU~_ffffo@UUUUP@@\`JpAxK
 /k_MP(yR+c :~bV`Vcp>Xq8iLC&$(;M&DNINDN@z0L .L$i(;zUh/*`.H6iHJ F.C& ~b}i$(;H,]HHD,YDHUBDQ@DqCpL"}i0EUJSVOw SVOw a`47Qm`$k| a0@HmgPHmgPosDo *s^ S&|]y|q\)WqOK
3C~wA$Z}Au b{~|Jtf$~^A#Jtt&$~(_n  /6$)}0 VnH/a$)|PVnH/G`.&`_f$~~u|bububu{cu}c_o$)uuF|PNo$)~~WuF
u&u&zu6~7! trkws*g])Do*H/2Kf$Mhz$~MM `LbH#zMN$u}MP~}YM@`f$M|mR}]P}i|}=Y} e|#}UP}a|}=QM}AJ$qLHX.$i{0K&0/_o;WcD+@5}_)W1RgQ`]ocu58H -ZxkqX@! juD*]
@&.Jf.fd/b//c/@Fnc/ccn'j/ &z~/&U@+!$d.f//4c @?$A)}|(c&c_$O&d^b^XhXf_^b R]$szV`sI$~^&R ^^tcz" 0{y1*Fnb^^^tX0w(c}2(wz}(/u|"@|bfctcA>|bAnq 'zsO@ l}~' }I| {(?3[&{&W6X6Y6Z6 L[})z <[})Wz V&%y'&\&\ /x]&<t wC(Dz L}z[ vC1uG<t'\C1\G\]DD ,s(?z< }IzS2U lr<qp{_N@<VNCtsTNS3E}Yt@@C}s!K45I{ OPfr C~@(z}9&#|K@l;(z{i{9J;zAARB0NHF@ PnXL35N `.XC RYTDM
R!a L[IrNA+B~tCL@ cOsM5VB|uRA@{As QCEytG1=sCuUtH@:L} q@~qGBH[uu \sf $@& /o#oI+x:)~o&}:)|:)foo|2(1zo{2(0{z(/Ey"(azx(/ w"(YzvH/o#:o ":ot(/<`.oo&o:9foo|2(3zu:)o"t(/!.f~boxb:}:|:o:ofSJ|":s:r:q:x:~oj
g,w(gp"f<FOE\@z{x}y}?pcK <(z~rAo}|*A n{*A ~z`*iybc( z9X9)s Jx&;);rq0jrqdrw"@.zdqZ"rrZ'*0P A S C A L - S COMPILER V02HTL-MOEDLING, --h~qpv'<-Ni6_8yu"(z<4=~&1}i|" z8|(/#A.1'b!&f4{"(z%z"yix&! B!r"r#r1r#wK47i4v"@=zCui48I=<6A. .n .!{ oAtr2AoFsbl!> /j !!b jz!>" /j#!#b jz22:r1&q'*^}"`$l mG>xr#":;Rw^"3l3<(zHz18i1#,~@9} 8i/| /{" z"|"(%zy(/&x"G.w *|(/-v"u" t"(4zs*z *r(/;q"8)r" ;z8p /<}+p4.Xb{Q.U/X}0AXwGKo"@zbYtY{3H nzyxDHE+
}D>}%WpVpRpC~r5{{7 4o8 /8)" zP!l~<}4(/4&V1f`4b(|{H0z1!L~794{'~42~~sX!nzH?A|@&5@)7 |0@7cyI70=,x0>k_"(Rzw&C|B9J;) /Av&!uC7It99(/h;)`kfsAs9A0xYkz)`![p ]%Gn^ Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search