File COBRT.SV (save files (Executable program)

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

z|p2H@`@`.5656.+"342/24?8!.g@b0~b1.f/0dz}?(|,{11zB2
. //" zyK/(/(x"/l.w'/v'J /f .b.!j@~//&2{.2KuI%lt?(?{2.bT/bU.f/Ub@/b/nT.".2dI?+@sbTrbUqbeTcUTtUeD],p?ouIle0Qz/R, ;z`_{PcuvOu
rnbl	ll0 {l"lnd,,FIjy(
 lBcmlb(0z!nfCCLDmE /8m$n$Jl,33FI0j N@As O04*$5cP_;u&QJLZX(OY@>u
.
lW0}mz@ou&pv&qn&uv7uvDnbJst7rKG4xn ((py~{@~~}0|6CK{z(zy,x6wEvZ{z u{ts2xI6LwvUt+r;r<r=
lq;0p22:
lqVO;obnG?CK?d;,m;lbnG;B?k0ji)hvgyf zed2cb-=
@6'@=-cek&R``X @0RL76L$Pa%8A5.K~}|{CFzSSby(xS2w v)' utv'@..#zsEr<q^Q@..Orp;zy (xT6zAziSzSB&TIL zo.o9 . @DzqIzln0zSziSSzi!Sh/UUKmyzoit dc?@}b;* :OD P6PWXL@my88~"4i 5@8b5b9i6!}kD|({{z/D59|B(Nzz,y66D7JD| Rz59D5x) wy{v9@5f8.9:k@~5u"@tysr)9DKH0zqIklp0@~oCDoeDCX<n<mXxlGXHWpk ;z?<d>.U;@$U a {6!<f=6~I}(|{~o{)@(z@y>>@&xw)@vB(u{@~ t Mzsr0 q{p<(o)nml >>Bk ~o; .ji;~yy~ >~i (|?6@s3} hxgI=Lfe=<QJde)sc0 hy1 -c5'[S@=J`}!)]0 @ a?{%M:OP6/PI~k}y!!f|-(!J?@{czH/y)xow{@vc{c kutI=Ls r{U!?U{cqp@yy{q0vV6{o0(Wz@\z@Ubn  n`e`VbV@nUm n`e{cl{-0Uek{S:Ue(jZ*|V<`?VGeKp0
q=JNc\%d[6]>l X
Q;:6x22.({6@2b{&6h66~ @6} 4z6!&b`{|L6LI{z;A2baz@y{2 j`~664xL6 LC6K6v`@c@xCL6b LG@Kwy vKLu2(_zt(/]s"(]zr /q\p<o<n3A  5CL#A :A{?g3|V,R0XLW>Ll?@@[C~G~}0!hf|{z{r;ycc lc<xwsvicc} uId"t!w ?/b" uruw#wwss@/r2q ~p0(o{c} uI]` <(/nc"c~cmbcl bq)b;q)q < ;bqq ~p0 kyhJjK iK Nbja . O0p@ @N@1p6^W2M]nLP0~
}]`|2{rzr y{xwvy{Lu<t!IsirJ6 JCqGp on9w ml9kJ( jY>i~ }I]| ih I,g0\vf,e|JV6J\BdIceGJK$4U& @O_P_[@ O W
2L]?c@`?C~<;nN06@b>~b?}b>c?>t?D,|?{zGLyx{)?@_.>f`.w`>>&{!>b(5zc>v_Bu t`2sv  c_ba`bb_f`@nc(/?>coW@.`b"`n_a"_@nb.babafG {@ocr9qc pKfm@A?@ C&f6hzo,2I~C}|9{{z|9y(x{|@oxw9vx|y{ut) sR r{?@qcp(/oqHIzHoZn)Hmbqq7Hl (&zk(/Fj"(&zi(/hH2g% f%+n neHqnYnd`HH&qqSc5 qnYH nqq7b4*p?p?s;5|RaO?<@\@`1*]6\-&!>~}2@O|{2zy2(Oxw2@v{u$6ts'$r'$ /q#ps#so{+ /,{#nK$ ,z +fm0 llm{JkbLjbK lJ<KJtKLD5 ,Ji2(irh,KJtJg'fK@eCdGcK@ld(?[,e&|6bRaKY R(;P2]sZ]}o$[@M~p^w`>ph _pPo>@pfu ES:" TO TITLE (2). DIVIDE ANNUAL-ALLOWANCES-TAXABLE BY 24 GIVING BI-MONTHLY-ALL. MOVE BI-MONTHLY-ALL TO AMOUNT (2). WRITE REPLP-REC BEFORE ADVANCING 1 LINES. MOVE "SUPER DEDN:" TO TITLATN`!`1XCTDO4/`0 5DT% ` TEA
C.8TMRCURP %U 5F8U3@D- 5E8RC-``SA3S QDRS3 TCD1R`QN0 0NPFRAS NQ-FFL2@O NT TU0 E O0 T1 x TP6z@`S3` A`@+`SA3" Eb 8O8G ~2@3z<} >|{r1@.zF&yG&xH&FG7FGDH>JwKvuEt <sr2H]zs`6 qBpI` oo<n <m[z
lrkKlIzdj@/;+$M%tc\r>pEbwaCzzDz, $"v4xk i b;`.:"0/0@VkC&i6c%$!V[0z_hppG`~$? 0@@ @ l6&~& }I@Vi(~{b}|(lz},} >|&ps9g!7iV"e"b1eis&ulg]^l_J
{?53"!zcHhz{_+yzy_+ b!c zb''c j%c>G?iT$WXx !fVZYXJV11x !f1w ~1bv  f1@/*V)ZiY[!~+VbZb[~0WXx !fVZYX8JV''x !f'w ~'bv  f'H/}V9ZiYu!|i[S~+VZ{VZ]/%bozy;% / x"wvuq2g:LLSN:<a HVZYu!&VbiZb[~V$ZiYXV66w ~6bv  f6H/ fVZY}| //[)~V9biZb[~V $fZYXVhhbw  fhv ~hb|  fhH/ fVZY(/Zb){| /a[)~V9biZb[~@x z{V~A>yo:x(wg6;"(J <b&CFZY#h~{!bH~{ #b&}0jViDrx(5s (<zs(/TV)Zi|VZi{zyr&xA>& \iyxVWZY@LziAn&i\)yxw vy#!.iEjyxV [$xk6 bkdk\)Vxq2&x0utIsr;e~eNzJ?* D :)n!q" .p`~w@bpdo efd(/ ffds"( ~gdbq(/ hffdb( ~iViZi-!.,bo }V9(|{YiX{Z,o zY9"(Gz@oCy)fG"(Zz_u"xwyZ_*@ib(Uz@eb(jzq@.e(/qj*@gb(UzP@.h(/UP*@bHv{ ~gv@>H/~v{K8i (Za"no3o(/is"oVikx !fV$bZi~VZi}J|0@~{'z'2 .o(y82 o`(y{8o x(/y82@ {v9ut=8"n 64"__b!3bH~`af+9b!bf5c&;d&:e&ffghfsg!`b@]z!hfr<q0n(p{|Kb/2; 2^57DjT ) "7ybE@nEK&`eEEbq(/~}2(Gzm(/|{2(&zz(/ys2(y{}(/7x"(w{@vkyE&|?@+b 1zE+&)E2!+b uy.`.tErq /?y"EsirZqF6F0p(~{o0VZ]/!nimc!f])U!.% /l2l kj9.i0
SJ a3bZ8f6R]Du!t-VO3cCz!^)U"~  %~Ky (}{|<W{KzcJybZi[}r zl ( zxo !"^U w# Hzv5utsr3 ?zqpon9?m%2l)`rgq^dm5ks[`jcjjs@?z{^)dF:w ?iv9i{r ??q)hw3 Hzv?l rNz D_d3ccd@_`a@3M)S[fSpBC XU:@5b/k~}|{@^zy2(zq /7"(x{wz'v ? u)x72 zt*sz3i`iez77 /1y"^dryR^dji2^drzS.8"n Q3"!9b@Ezq95;jk6q35;;3";pik;@j52i3b!9b@`z!5biqi9i;j pik;@q3i1Nj0 oK3MDDkd?3+)f-0=U?Ec3?F@ta~Yy~'}[|99;0$&$b({{z0@~])c;@yV(x{Zi-!.b@Gz@/K"]5p%])/p5/D!%b`w{ v{NN+"@u{4"]5p%9/,.Q{,H/h@.-} HP~Hxr n .f-x -Qk-.. l-<-Qkkr yrpL2_Z"a Yi!j en@~CD?@cLLcJd. lJ<zxKLeK+ n x`K njJv8&E&$L6$LCKai>Kb@nLf@zL}JL|$ J.nJ`Lx0J<*@c~(/Y}#~(/|y"{yM?`zczzs@[t[?o@ncJ6cJCnKaix`K?v . nx
c hZ8 KVEsr(t{+@~~ ?+2({ }c+b^+k@fj$&|%&{$'$%D+ay,.hzy& @~B& BC,BdB-6BBC/BdB06.Fx.ap,o w{W,|(S1"(Sz fr.b@]z!-b!sff!.-@/d!.sfj!sfis"kvi/-u twC 0>taQ^0xdsaP?@~66Cd4c({!f ])_idD+O:!c;!d@;c;f1z;}0:;'!:2n:f;x0:/* r. Fz&H< <@~"(o]~)} ((& )b)*dP " $vH2 fu!& fH|9"@n/.'o %f'{)z<y<x40aKnN ',w@~(&~)& hb*k@~g])(} |U6g]))} |U2 {"_ ( 'v'z"@'z 'b> 'by+x!x"(wi (b( n))&*1J />,+v u(&wg](_)t"& )b)*dBv)(/f,?@|b2b7lb3tb4fb5Uk,.s{fbrrsGqkpK.wLo^#0D@>vFPt@wy"(o f~G~4t^&}?&|@&{_&g])?(*`&z>&hb& @bayi`>b> naa&b!J ?b? n^^& @b@_d^&x_& wGgB]? vKa^bhb& yi`>b> na ,u`>??& @b@^d_;Jt}0s@/rq< ponopomol;J`Hg @DI+Dv)xzw @~&~&tJ?@ c d}&|0tJ 0@cd}&{2t"J?g])>(4!.>zc>1J >&g])a>r?_ a){Y fYy"HHz CJx?+@~&w&v &}Y& 7YTJJ0@~u^9dt5Z2]//sIr@>aJq?pKkw2[Pri@ndE3F; v`0|Ox?u<py~<}i&K|{5{zyrib.( ~}b3xbI4fKw ib!vi4J{_)33iID4"uH/2t)<s ~<0rI&qJ&{I'IJD:p"IobJ{bIItJCJ50@ibjfbknblgb]jmgb]k!mbHaz(czK@NKj4klDSK$` pyOzA {,o~opD0
bx!A~ b~bgb] })_`bd "({ f0@,b|(j6k&l&{z`0b(Oz6@.k&y` (/Wz)VyxYw /g#"(gz#!.vH?g .##&ut9#jjscr(`k"qk&-,"ow(Oz-j"jOjplocj/&n91mkq;G*|/ D E*H"*.f@N*?pq@~,o  / ~)@>}."ob(7zobpgb]p|H/7. no!.uq&or&@gb]r {"H3z{_)r rr&q"J7z"_r -b!qf -b//&(/J,"|(Jg"]oyM g])o^/ //& oboqdJu"ppb!obH{g])px fzpYJ /lw)k $f0$v6:;P_:FKpMhB_GG~C t}0@#b#J&#.Jb# k v4 c! f $+ay9|b@ubN#f ;g]N{@.##&;xN@D* "? ?f;0 |z@;yyJk|xN;wsN lN<Xv9uk $fts'r$6q<po'uK /22<yoNf*V;z7PovLe-p@~&~ &}& 7J0@~|&~ &}& 7J?@~b{b }b(c (t#+@~bb }b(c (t1)+||6?@;cEaiL;dz=NNS`byx; @~Nf6NeFw}(N{ n vigw x(Nv9gfT !hJ&NgN8lutr:QeX:;10Qz/+7kr@z/~0&a 0 ?@cd} @~|{)z{)?BybC@nB.BfBp x{)B.C$J@k@~uB&wC&@gb]Bv@BCD60$@0kA~'&u"HOztFs2'D{ 1rkqr;$@po0| g N `~
BK@~&&&j0&~1&}2&061071'01D2J?@9b!0f:1&`i1|2({0'JK@~9!.B:bC{g`iC<zB4;2+@~Df6f(?b!.fDdDg6gg6DDChhchDdy]9g^9hg4hfDXD+DDDDDKx w(vg2]ey_u>hNz5QgSGx4 @~40c11c10c(z!0fy^)11d0JK@~g])) !1fg])(1@)z0& f,{"0 f0_)( @~~6 Y}Wu|'{22KLvLz"HJzLy"H@tL@+xXwgvuy@bvM{@~|,&l-&t.&u/&1&X?tKe4sy2@s r <q,>PU"sZ)F/PKxi :0`~71(/~;,ro  >-/"'b]'y( 1f?J}@|'&'{"(zz(/yx2(.z'!,+&,@'b2w(K!.by vV9Zi-!.b]/ut/DA$;"l(srf!.(/q >& b~bpbobtqVZntffml{oe??9  g+cphlr\!m6~(!z}(/| <{z2x%,.z%y)zx(/.(zw%2_Dv)|-2!b`fz.!. `/f" 8z,.lry_),._zuw,b- b.fb/tigs'rsq{^!.(/#g"]^^xB(bz op >1Lju wK efL on ml;eenN: 5)*i;R@~ brs~YEE P AY SLIPS " (LINE). ACCEPT ANSWER. PERFORM F-PAY-SLIPS THRU F-PAY-SLIPS-EXIT VARYING RUN FROM 1 BY 1 UNTIL RUN > NO-OF-PAY-SLIPS. GO TO FINISH-F. F-PAY-SLIPS. MOVE ZERO 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