File KUWA3C.SV (save files (Executable program)

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

||k`PHH@		F"b"bbbf~&f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi M	9Nh	lzpz*cpeR}F{E~H	
@ C }F{E}H @C C }F{E|H @7(#(Nz/{"F{E|HB}"F{E|H @7(#  ~zCzy{!nzCxx
| C |XC w   |W{P C C &C_R#WAHL - SORTIE@k FALSCH L01
$K=%L%0) L)0L1 1 6KL;1M IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM COMMON LANF,IANF,I,I2,IZFE,IZFA @7 <~!t7 <}!t7 <|!t7 <{!tzAIDE @H*)@!ny&B!xbHw{A ~G_7H_Cv(/u`:(J
t!!nKsAb=!,11 U`WtC^]\D[NJ~AK~A!}c|{7z|zzS!ybH)zA@_7H_GA hF_7H_G.xG!n wCzGzEz!>yH/v>!ubt|ttS!sbHr{qO6pP6s(B
o _7_(?nH?nZ:qCfpcgsbBAA @_7H_C1 4 ^]D6 7  J~B!}c!(o 4*A hF_|C{czbBAyB @a7HaC7_x
_x78_Glww7vku>!lw(?tH?t@:!n sCrGrEr!>qH/p8  h_d7_(?oH?o\:A@_H |n7{:<">  U2A=^]A  ~bBA @ @c7HcC7_x
_A@aH c7c8J }(K }|'7a!>|C!7h_G{k!nzCzywyEy!>~H/xw7!n vCuGuEu!>tH/p( _7_!>yC!(ojn*lww7RjwCI( UAF (~{H~{(
}<8E E E . /o+KSNATFEz',<`L H:' i@}CUC||||S!{bHPzzH6yI6{ .BAA @M8E
5 EAa/*g1H '2 v2 ,qb@(
}<8E E x K!)=0 CAL\4[@SN2,&SH A H0S(nFJC'3,6hI'XHE)4loi0~G!n }C|G|E|!>{H/z8
 h_d7_(?y8:!n xCwGwEw!>{H/fv"BAuC @_H  had7_<t7xaC!lt(?fd*>jA@_7H_C!j G  <>@ %!>(z<(
~L)}G}E}!>|H/$|"BAA @!HE  E @0 *lL1<)@l{{7z!>{(?<H/<>*yk~DIDE @S/*oo;0'jgo:oo;@.x>w 8
= DO 400 K1=1,148 400 IL1D$# 
 T O!N!(/X~b2 b}3&O2D- @5c5L#0 +4,b57j2f)
f4$&#@# nJ> n!"b|G#]#V3f{Urz xO33$HVbn?d . ny
W0%ANF=K0+1 ? 2vA1U=i~+Q uRfuTuWBuX-uY#u`u}G| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e DO 560 3dW'Yhxo)*Wt~}7} ~|b'{"zhd~yz)H?!hJ
*xBzxzi~}@? lw!>}S(}@?O!.vuz} hHz f} .~>zxz)OD,~<Z}C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)S 250 CALL RTAPE(1,-I eO.pEeu0-`{Pww% >NKf Lf l~~NO7})| R2v`vUvS v{6vMhR
oHS lMBUlDKJLKKj MfL<J}/K .{ z(?H,~yR zGM]Jx0 ~E\K&Y(R oKDU]*{V ~w Z*8vOeu~(?}" 8)| {H/zy"xC0(wy0~C -z2b *z8$ 2lv2u 2}t 8K2 /4Z.xCsr(3zq@.z/94*-sp?JMw! @@`W @2H ~8X
~OP l}(?M@/|"O}G l}{2@zRoDPJQS lzB }GyCx(/P!.}@/ wiUlDQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&R2%)(I(K3,K2),K3=1,11) 525 |pZz)ttK#h)
$ ("  .) bn ~6 Cl 4X7h qFn(hn! JDD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{|jA00` F}l(?~9hOwo&x zo"{__-@}E70(/l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(Y
oYD],Z>uC Yfmt"xYkz) RES*e`8v?`2te*)t} .G =f l~vEz}|` U SWH "={K~E!7h~ziy<&x=&~7x~@5z!l~XJ
*Fj@G b=d /5}"wG} .=v"uCH$zts)O bFbblW1=1,148 880 I2(K1)=IFE(K1+60Se|#xOv*8vONv5NF0bXn)bn4 n4bG ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.Xl}ye"onh rm
~nx |Gn { ~mfVbkn?n;r&s&hmf E h n8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N;i0zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj xp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([c\bdhX [<Vn\=&>(O
:h.S.fj/ |NN}t5N9F;h:'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi O9Jh lzpz* cpefnl >A~0~&J0n4"cF%&&&c' @H1~fn~bl}|y 6:&7c BF 7c7Fc n66,{7rzy{Hf.bfl}N{V
1 xC wr xG hC^hdh_6O\Khdjhh FEb n4c)F)c  )bDnbDf)r$+ IP@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! h nnDBHrH~wJ FE*t&c F4nH?! h!D "O'Kh h  G~}w ( 00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3;HrH~wJ @&c F4nH?! h!D "O'Lh h  G~}w (
00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3<ZP.kJ8 I@ p{ <@< LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1p[@Y{Z0%  `IUg @`\~\G`D
\ '     6 HEEHRSg @`\~\`D
} B~BBaB}@{]B '     7 NTNNSC` A
N i`7  <~ t7  <} t7  <| t7  <{ tz!.7hQ#!yb!(ox0:d!.wH/v8
u BE M /S)H : H lq@(
u \E E _ i,(x{c ,|t7{s7r*kn?n;Sb `TzSR*Q.B H ~H @U ,}78U' H hFU.7U x
~ $E * '1!'ki@ ~H TH!n|{' {E{!>zH/Ny#FxcGzbB H H @KE
4 E @wb: l,`2 liq'+z
' )@ ~H IE Hv:}'F>fj}+1TS*/I)THE(NA!C"G?(lq@( ~ L(E E }!|c({{%( ~ 0E j /g+``# D`` `U `@` 1`'g1H1 1hlX'1Hl `: '
5,6FC z, g g3SHNNS!TNASQ 9hg@j ~I BHE HG,KN }Iz  ~I \HE HE @}(?|: {G {E{!>zH/yx3&wc'vbB H ~I @U7(U#! l}(?2u+ ~I AIE HE @L'*O h  I i@ tC(2zH2zSs"! lt(?rH?r\:q!. tC(cz2 ,xp7wo7v*bbjc : F T SH*I(B H ~J @U7(U' H hFU7(U' ~J %JE HE @9'* 5 C4L!R' l<`ES1H'@}+ l|{7 H hFU.7U x
~ ,(E z^yc_xbB H H @c(E E w h#^hdh_6J \Jhdj T S(j '!H' l<`z:' i@ J JE H '*H' i@ J =JS1&T2&~(B
  6 E @E @E'*(i ^Ii} |k} 8O ), 9eZJ!.KJbKH.G ,EH+-S-HIb EIKJb!HnG& KBzzno7j7
 <~t7  <}td!.|H/{8 <hn7(?z.:!ny&B!xbHw{ ~CD}cExbB K K @7hc(v{M ,~Y6}Z6x(B < <7!>u!.(gzHgzv <~t7}s7x*rD@ |&! 0!;!#;
 nB K K @ l~6}6|(B < <7>7~{>zy2 xG!n wC vG vEv!>yH/uv3!yb wC tGs |ssS!xcHr{q(B  <p < ~W6}X6|(B  <p <7 <o7xc! lo(?hn+ mGo* k\ K ^K0= 002;
 n%~%X~s!}bHVz |C{c}bB K K @7hc zG|)6{*6}(B  < < |C8{c9}bB K K @7hc7 ||M6{N6}(B  < < zC7z!n yCyx{wk |Cj{ck}bB K vL @7hc(u{t:$\; .[ > `>%~ |~~S!}cH|{{6z6y(B  <x L7(?w+ {C*zc+ybB K xL @vbB K xL
@7hc7 |u |uuS!ybHt{{Q6zR6y(B  < <7 <s{sdzceybB K K @ l{r7zq7y*V2bqm[$[ * n,[>B K K @7hc7 |~6}6|(B  < < {C7z{!n yCy.zxkwk vG vEv!>yH?L ,~E6}F6|(B  <u \72z!n tC sG sEs!>rH/q~3d}ce|bB K pM @7hc!ob!jt P ,;K?K
 n(zHz3 ,~6}6|(B  <{ \ ~C }c!|bB K {M @(zRB K @ @7hc7 |~?6}@6|(B  <y \7!>z!.(MzHMzx <~Y6}Z6|(B  <y \ ~Ch}ci|bB K yM @pzRB K @ @j.`   nz778g ~C}c|bB K |N @7hc(zHz3 ,~+ },6|(B
 <| l{7(gz <~?6}@6|(B  <| l7!>y!.(MzHMzz <~Y6}Z6|(B  <| l ~Ch}ci|bB K |N @pybB K @ @7hc d`  nz7~ 8  F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{ V"bbi M 9Nh lzpz*cpeR}lm7!s"d"6"N <8O
p!b"n#%@J bh@/z!f3&"h!f &&~ }v-|RGn|brt{]KH/Dq-n{rC b oH/I"rr|^Fzbty]iq-|ytz]Hz hdjyXqDDCBC @ *i@~!.}CHz|>}C}}s#&6#4,.D26D:>DBFDGBGBGBG BGBGBGBO+KdAvM@@@vN@@(vNCvP@@HJvT@@ Jf CPfZ@@ vZCvP@@H wQ]B p{<@< LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1 LI )0)
lJC&EK[@Y{Z0%sL LL L LLLLLLLLLLLLLLLkn2!O4 G+ H
?); [[ nm<*%9-6;:<[*r^alO'?)-7676_7 B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77d)b720-7) l-&IK8-7'7B7g)&JK87y2*7d776*@ @p cN((bG*&(C[*c(]z7`K <H%abE
H NI|z&l%+ |N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m 
)QFs l
@ 
PPsRPs N( n((/("); (b.)Q @S Q(S)8TU'XW'hV' K FnY&&!&'&.&3&8&)2Z & &[ &F& C G DJ;K 80
hOe``fOed L^ fGfgD]d.i|e'0'pp E&,('H/)"<b~*rC (2<+b ' J,&H"z)=&}~'*C( K(=&+*$C |{0(,{z(&y)&x*&w+&vu'tBtr} |,0sss!rgCK> qp0(J{Jn okXp8ug]o?CU #2qVq0"1c!!bL~9!!&! J!F.(b Iw ( ,w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr  . ?G+0hcKrpc+ Aw n~)pp&l@9AER0uH>`1`RPS2 l(+2@i O AEwnX/ < ?&A9@T8U3<why I 
-@9a8!V&r(ByK>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6me["u]]idM ,lr@rdJ`0*w) J n `(rHnu0PG@WS& GN@ JFA@  fO! FO# G$ '@$ R FS!*FPfZ@@ vZCvP@@H wQ*&V 
@T&FQ!*AC*C@*C)@! 7PC@I#Y Tt@ 7TAJ[ Tt@K 7T@DL[ @|M[u7\\U@@!   pHk" hF 7@@17L\P@@7Cj<RTR@870FOB 7lD@ 2|]k qGN870>F87p(F11/G 7ek w
7.{Cw 7RE7H{d{ @SE7U{T{ 7@TE17uhG17ptK17qW17pb[ 7qSU[ urV5 7NW[75|J{7u}{ tTXE APPC@`775.G77p%G77u5G775@W77uEG7qYE7rZE71[E72\E7q]E7r^E7UP"q6J; _u7<y7UA%SN~!.I l}>J}c|K&}{2 `~%~|}|}}S!|bH\z{(B
Mlz | H7Hx M lhHm7HyrBMFzGBH7XHWy(B Mlx|H-w7(HWy(B Mlw|H-y7(HWy(B Mly|H-!n7HzzGJFvGjDzGGEIFu:# w| MLn/S)N !CB 1 SEPIHR g{i@~G ]GENFE @}!.|(?>(*{G{E{!>zH/=(
M lhHm7hHW*L*yC!xg~GgFwGBNFB~G @vG @`*)@HByC!xgE 0 PAGE BLOCK \PbgLfMN b ~HgF}HB~HHE @/*x(<mi@,|~{zr! ly<xzrxCxxs!wbHv{|c|urtsr!xcH9z=r"xCtx
~ E E E OhE  ~ /qBMF~HBeE qC+ 1 \L1, B@'mQ`PM `(POPbBQF~HB E
E . /o+KSNATFE`lr' L H lIr3 'KETBg i@C/*`CL!RMR1' l`I `lsoi;!}!.|G},||7|!>{H/z!>!ny|yyS!xbHw{|v3yu7t!.u(?hH/hs+yC|!>{!.(r{ ,tTMTl Sd@R `Hz~<}|7{}#zywx!.}(?JH/J*wC!vbuusJtIKtI!uc(.z%,u8J
ty5zuCJtIy|y}3!sb!(o@H/@E*yC}z7J,}z7tr'q(B UltH-7H8J poq(B VltH-7H8J pEY P`XMWV`UTfbN%~}rBUF|IBH7XHSJ{Iz}rBVF|IBH7XHSJ{Iy}rBUF}IBH7XHSJ{Ix}rBVF}IBH7XHSJ{Iwx
vPHM}(B UluJ-t8K {s7J!>sC!7hHWI) C RESgFY`^]\f[ `Zn~JPDH}RBUF|JBJ{SKzJy7xJS!ly!>7Hx
|,PHM}(B Ul},J-x8K zy'7J!>yC!7hHW}JPDH}RBVF~JBJwSKzJy7xJS!ly!>7Hx v,PHM}*P@or$-y*<"(xzZ]gf [BVF~JBJ}SK|J{7xJS!l{!>7Hx
z,PHMy(B Vly,J-x8K |{'7J!>{C!7hHWwGwEw!>zH/v8 _lPHM7H>uGuV2ckV\*af*k+t!.sGrq2!lsr{p!.sGro2!j4M7NOwa6``v_6^`g \%~z}!.~G_FPDH~S7H|{{Cz!>y!.(8zH8z.!xbwGwEw!>vH/8(
_lPHMu!.7H$ztK @sK @rgq|qqS!ybHp{o(B clt < Hx(B Tlt<J-7H<n7xJS!ln: |Ig `Gc6b\f`_TWf<L'an(z,~}7|c||s&6;;G{2BcFzK
@HyRBVFzKBJ7XHSxG7J!>xC(5zE.|C|~sw|sA&6A;EE;G>v8 z<uGuEu!>{H/d{"BdFfF @a8E N YF ~Gm8E
 rZhrRhrffEe6g` bdfcn[F ~G HE
 ] l~|E @~C}!>|!.(4zH4z!( {L0HE IhE 3 i,z {LLy|yyS!xbHQzx(B
elf l N E @;( Z l~Z|E @\F ~GeHE  ^ l~p|E @E @g* f@TWn/*s2+,plr3 2,&ri  6,&s2+,plr3 2,&ri 
~L:}G}E}!>|H/5( _lP2LE @"(E H 2X-32:,r`lq,,hlK)@J{CO&6O<RtLzk~L_LE @b2*)`yk~LoLE @t8*(mIi@xk\+%HUP_
jDB C!l~x}\gl| \ {!~g}MgFzMfEy|yyS!xbHBzMF hFHwRy~7gFfEJ7XJS7H#zMhF[A CALL 2,SUBSC ARG [A ARG \IFE [1 TAD I [1 DCA I [0 JMP
@McK\`g`OR.n bDB(|h T&m*
n-1]L^=VnVVnVVnVVnJ, h Z.C$=B"&L5 DB |
LC&+J^}g~@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIbEIKJb!HnG& KBzzno7 JbJej (?V,IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM OMUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] PoxRC `0 &
c d0 c daf>atHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z  PJ |(2z{H/zy"P0 
0! c ( bbcoz n r`gK?`7 p `@`?M|OR!W7(T(?'LXLV #O
pY *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h \LhTuRSbhc t|~vGwizCVDyo`,~HE @8E  l,1K)L~C~}s!~c(zHz.|8
{L*HE 4 /o+o0>'g+oo+o@:zkyk 5 N11=I3(2,ITEM1)/10 N12=I3(2,ITEM2)/10 N21=I3(3,ITEM1)/10 N22=I3(3,ITLA-0A] 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