File FORT.SV (save files (Executable program)

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

||H"1NZRO .-7700	<NZERR>
	SKP CLA
	HLT
	DCLA		
	DSKD
	JMP .-1
	JMP SLOOP	
SNEXT,	DSKE		
	SKP
	JMP SERROR	
	ISZ SREC	
S70,	70
	TAD SLOC
	TAD S400
	DCA SLOC
	TAD SBLKCT
	CLL CML
	TADyhpp`}Hqk@@L``e`"#t"iGT(8Uv9X'dFofn	k-e'Y@aK)]z`  ?0`ZwXWT~}yO+l, @I^Jb zIJx
zt)t",b!c zN

1 /nI" Syw(!z!
b Pybhv,sb4orRy/.MFn5Ri7.M54*JsIvu&(?Lr3 Kzs3 Lz64>Jt&. n--&N$O9PbPN0zaacQaam@ ezPbPb
78UWTv}kz/mnnIv1fpo&gr(zs(/t"( z oi(/.(Gzu(/vBQ
o!.p(/Q(nt2(.zz /1+1kB=n"jm&mx0|(/@w"KIdnx2n{mm0yH/<.9k"Qoj@/w` Gz lno(/Qq2Hnbmlbmc.nmmsmotQ0jI g;7IprL=@O?p@|WL	fsK&WL 
L}(p" L{VK$d&*f`&$X?Vid Xn"( z+}	(4zWh/5n"@b(t(N(+@R.HDzoS@R8+!n'H/A!.'U&UV2HAzSH/8N80@f_KKHNz&?d
.

nm XI2HX{{u)I /r .IXkvIY!zU{bzUb{vkyk8Rp}9Xy?p+	0q &9b!f6|b!Wy**p(/rs2 &z$(/&J" %{Snt3&!|2u 63"w(/s" $zxp+&5oC`Cz3 /:#5n!4&4|2u $4#y(]!.5`/] $_!!z2 !t&!'C3"({{q(/|t2 iz6(/{v2($t35"|p+*@k/=oU#@]b$%uT?3 n!!&3!'V43W /"!#4!t6VK*(/V&2
z!?6_!! .9 /SU!2 d(=z(o8X" z44D4Y2(=zZ(/=. zs &?y ' 6b6!c|\  JzSj!i244c](S$ ^b5*X'zTw`'\ KK&`2(Sy[K&V&$*f`3 gzq-|{P)|Q)t0@	gKDD0f@ffBfAbb5Ri7*M(RzMy 45b({Pna6&5@4	,2zFno667K(c"(Vz)(/kt2 FzREHM)d*e /
h"f Rig?\c" i{B /SB@Ojf@jIO zR*V% PsGh9x2 mzf
lkv@OQsvQ'wU>^ / &BRI,/_"(zs /  .ARi  *`D.bDDn"jM@B //"(r ,zH/S.2A!N@@.(Az@1~@nC=&F@=JbF8bD9.;D@(/(/(/cd2ShF0H/Se9a"H,zTj{Ux\C T	CwFw.x1dxw7xm0(~{wxDn H /?nbbk@.bf.k@"n"n"k@.bf."k""
"k"HSyui.0"vO&"OOJ"(""@
w"ui;0&fP@xbfhkz|&y"(7zzbO"hOmJ"tkS3vhwpPS!	lI&Kf"(Sn(z$@.&/S#K%H/")(z /"Hzw;XPfz
vvb@Uzo[
.!'bHkzvi"GGco=t"PvGvvG8vvCuG'0wwb

n
m` Pywm  PyG>sP)v\)'>HfzqbPvHyyP'qP)vx)Yr"Pv!(bY (@9Ypu;P@
.i& .\b5
/W(j/&d?"ii&i0 Sy .ii{'j"ib f 5h$'2Wt'd& WdRzi!>i$ Tzi!>i$ UziW0!bWi 7zit"?5k55KiiD7 i'b /b@Syi'i	&	'	'iW+l0$=b i{Oh$({zkD!b$'i2t' fz5Ui~qrWyz`Sk&&XW 
r /	*U{rmwqr ~uWio-*J*=u$"&&X '&?' vf'r"(Qzj(/].(vt .w'jwVJ' rf'r$l .x'jxJ' tf'r$i. ~s'b('bt'&'t$a*sJ%s$*BjX;Ea@g<&>WioXL+p /LW9o.S>t}r(zj /L}9r /MW%znSX?TSV\N6[OPN9nB\PN3n\)PN9nB\PN<n\)P>^i+b)+O)P>!>f<&
9P>R*Vo
?Yt-c&N?Z)P\hjh+hNi$hB]Ph
&o%?  $Wt40b6bnbj6JP) ?"(zP)J|0pc&}p L{MV*$D`!Tvw6&W4z&S	6$c3z}(Ar" 3z.c$3""!$b([z#!.$(/RN)EPI#b)NHP"b$b&N)ENITPI#V*o`++m x@/2+"++bd0/bPyo !Ve2~&
!|JzkN9xBZP{ {lzVyW-z+L (/*<& n bWi%'*A /X)?T)/?"tSy}( q"(Ez /<$/!*%$ /z!",J/$gi"H/z$<Bcccc<b!f<&& b b!b(kz'''_
b+<rbH(o.r_y <brr_y&NiHPIN$[+O)P-Sy7<&bnrr_y&km& /c+; n!"&""D"o2 fz"bllci&s0g "b"mda""!.!(/I .""&:l"""cOmbd;+&"s"""ck"!!b RzlT9p "&lb!&b! { oj;H:=Y{~}(Sy| /qz+'0YXqx8U|wrk{VN'PIU){ 7fWi/.LV97(JdNN6Z)PNQPINTP* d +*KNQPN$+BOP*0U~l*<B>fN$[OP}p /SmNk)(MyFnfk(*b*2 Kz>^)<&>!.>Vi\9P>b+"bPX!0(PvNBv\)Pn,(}z]lQlvt9v !.""b#f"m0l(/f#3Y"#mm(Qz on!Y9r@"m0s(/e>(t{t(/gs2(u{o(/h>(i{w(/ji2(k{S@Kz@oN.!'bHKz!'bi&p0(9t9kqJ T2"z<_}_ L{XJU0 UCUL_:PPN*1*_Cr/ U/B5 "" ~{}H8*t&!!c(z&!.#(?&"(z$D0@@bTpm&qO&!>@(/;$OJq"qbOc(0zOD)S)!.%(/%B!)b()t@'O?"0ONKO\)yP) @CZIP@@0v#T_[ consrn9onr8ec)dX*sd x!ZPrH17 h<,*>t>|"@}{{W8pa@guc!T
N3!V;diZxI H(o .TN6>dxD{N(0&T)2N)9&BZP&'kdixI- &T)?N)]PI7d9`7KvuRc)U#TWXN&dix #V;!#7G *jzUIzqklwr{b{"J,8*HW*er*(O `F/B8V @@aOQz #?!-#c! x-!'&#'0"^6q"' _CCF_&!^r" tC ,_| v9u&ccr!T9st"-ndx!uu97c)cyr!Tv-#cTjw-"Cnd!#7C{" (r!xy#u;|0&ucp#T9f&"Tx0y"^Ni&#Z9P0eP8&T)zyk:N lK ! ,z/jI
F9,By#Z| zk0(/aJ"ndfx _ !K9!Z9P!& kuc L<vu!c) ,< (< #CZIkP)##K#K#ZP#&6,0b$(/S5!T9M "&Nkd WBKdcIZ:fI7P#T9W!#TZO!3TOS_Iv[ ?d NI0PIPfq=n+=b@hvn~bhfnqN"PI}0[b |I&} L9-i" Sy.i"::cn(l)Nli\)P...D :& .:(/-k":Z)lQ)Nli\)P:N)oPI5fnpNrPI/!.. /@D" o{?6;.i"::c::bj cl):m (gz.g)
c!;f;$T&.T)D.&:k qzw...D6.W  0~hNiuB\Pc fffw*8p5 45b 54b(z4&5&\PNiP Nl\)P.ZlQ'j".(b!.b(Rzt3&..\IP3/'*{.&% ..(/Dj"ybw .8Jz.&) ..(/j.xbw .FJ~^)N-P8 fzN*iZ)PiZlQN'PI}<.b .b($zN~|."ZP.kJ8 Iab*U|lwqr7f(/Sb jb b r r gj8&N*8Z)P a8b lQNliB\Pi}i(kzp(/6"(8zj(/l*alJbg&m&XN~?BZPN38Z)PN9?BZioSf"PPN8Z)fP)Pii.Dz) W b{#l =aDS JbJxi}q rzw <N
> >HZU{jr~&}p L{mV id)x Z)Px}r zm]}q /SP}(fr"(bzM}p(/|M9*&f$`I!"&+;&ai!r sr(UN)%PIid)xIs"g !>$bsT)|"$OJ P[&" cydi;B+!c}3(fz}(&*dixI\P Wstm+S Xi?T)s?"mkQ:mJU~nrV8(Sy7(/8"TN6.dxpP8ZPN?8Z)PN 6NIPId 0 n(
& !> (/6 $ .J );q0olbmnbnmc(Jz!ob(LzmnD?S)om'l!.mm&m!.H/mB90lm&nn&mmtn\JW0a\Ia0([yOlQe& /c3+b;!b"!d!o2( za3!!D""D!d kh5"d"kHK;b+:b(zN6!g9ZP!T95v" !':i"d{:(/+3":5:K:!ZP! 6xN9%PIu*kk(/bxk(/eZP:[iO i K"C! b(FzN6"Z9PN9[IOPN6"Z9wP)PN9+BOwPPK0"(?y"'"Y9f"k1#8!\LDHfP}=fJf.h&+dK@/ fkP)J,P)P-c r(zJz!.+9P/h=dI|" zb0qz[j1t0&O&Pf1#HCz1ZbPd:.P" Py0D91"ZP)2H5K n2Kb1WiSW0U q(/t.(qzz(/2. Uz1K&{XJBKpk' N2T*2UJK&y+<kw`f[Uyjt{r}{Gtc.@W)zn@$uBXi?C$CGrCCGDcH@&*_W*W,z@j bEchjJzW:z+j!.FchnS?gccrFEJEE&?T)ED.E.CCGc*Z.CCGc  z.CCG }(cr2(rzj(/q.(szc$ccDc/0} LV9{f< CCDCvxCj"GCdCGDGCC!Gc /zCGDC!>Gh?+C"sC&Gs"GtbvCc>GcC>rGCtGvDC"sC& .CC&C$FJvDCCCZlQC
6 ~0(JzCg9 c!;f;$F/GfCT9GD.Gv&D!.vH/Yv"DCdCj"GGc!Cc rzCGDG!>CG6G!.DD&G&wF4}+DG&CkJD!FfHC&v6;X XPTR X77, 77 ISZ XWCNT JMP WRLP JMS WRQUAD JMS GETCHK JMS WRQUAD JMS WRQUAD
RWCOM, SDST SZA CLA JMP ERROR CIF CDF 0 TAD XPGCT TAD CX7600 SNA JMP SEXIi 9"`8b++tr/$q#!2O@nr @ Bb("rjb5a1v 8.` `?E!p$P @@^_4!R*2#\p)W(q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!r f I ,~ ~I l~@}> ~I| {'z'y'xw#wvy Bu~tV~sr(qwp(?so0(@zBH':HDI:JnK
DP{!sK"d*!RJ" L*p'+o',+/rfhvzfn bDf.Hs{! #p#f?c&WfX_f@&L L2/&5&/t3"/4bg/J 0B/1bg/J7&C(%z.c .G#(,z.c.%z 6K;p@P_G?r7"hz%`)H'}(-k.@
/@ 9 <CHz{@PPPrPsPtPuPvPwPxP}~f t?Cb[CRaCRRR'[BS[BH[2wR2od2"q"q|"o|[|VL|P| Yn
7|rGCrPcECR%-Sv Cub3|2a|2 |2'C68#bC#?|xR"DD$#,N NSLA1 R0T"TCSDO#L#A TT@MNLRA1 O050L#A TT@MN SBR1YBL3B8EaYCXRCLA1 5 B@0L#A R8SaIE`T4N@!RTT!C(dSOB 5`O0P3Ic aO1SDO#XESVB`URP%LA1 Q1I 3N@!OPLR!L NSND1O@TU@ R3NT TTC 3 QEy p)rr&n>9AER0> TU0>`1`RPS0 s(.2>i O AExnX/ < =& :1xfy I 
->9a8!T&r(@yK>]bUrmcLtEJ+M,qjU]"k!|QT+ois\idi[6m9e["w]]idM ,lr@YS+LIST <J n `Hnw0
_ <`_t`aD,wwl~)__b}|({w_H/z"yNr~}|(/xNr~H%z"wv{u!"f-"$!!bt@/+."(/7W" !rW 's '& <r<q(p <l ?Pc"bGtbVDG,o& L(ih{\zUn'mp{e$pa;np8CBLV% ~x/O!0#/pvp OIPJ}F%pxq]CA@VDPL#A ONA% NSES0o`#RAD S QNQ8O`3 U5TPy~y>xB Dz(l"(4{n(&44K(MRyTHof~W & QK~p.Q( & X" -bQ  r! b z J&)O&)&/0l5&n&)5)J&0IF47=D-`#oOL(?F /L2n(L+"+Lb(/#(L~" {L2&^2L#h2T z0%OA>*LF.K`HH7LJ. nKIIJr%IdKCJn})MC IH&ILBILr|2# % lK&{I&J%&@MkvLav)zc(J"(|yfch0wyg{rw$n .wpjx)|fwOcx9r 0<Uy{ ZUvwq`:}1qj?otA{k:1_lH,0< - ({<?.J,\qsk82{13|w^;E/7jwnwvN+n?Yk}L[@V@Q@USC@D@Ov Iz{n2 Zxz <(pB+emtbWo&mF.nMWWWbPub0vzs0Z{y0xH+&;iK%FZR `pG(/%"@{|n~B(|l+v}(/|{2(,zc?u 65&t)vec*)"("z)f| |vu33e)oRbl!l (z{ryb9 0fH/2x(/Nw"(v{Xj|0]"gi
&&&& "!b(Tzed " u C`(/t3|isZ6fg6oT,qYz\}>pfhfeDV.c/`c&RRD ~4}Bebdbj6*3f"nfbfbggfrndddt9d"gddf d |hH. ?i96|(e{" @zz>Tzg yI 7I\ 7Ixh wIfzazxyh
w| qBvur7ir.|h0k{j@?fs ^? (?fb&0 ~rZ ndd46}Bbb L|^* bfejh?
',{(/zA4bAJe(/1 ,\ \ 4dDetyb&)A&3a&!A*SO*)A&ax0J nc . adTa#xcaaCwv(-zu , K@9zt sjt sI
|I j pp>h`fp~} p&(z L,&&b \ &J&f&@/!'"_#"$&ro%l{*1 knu'01 NO 200 ORG2 ! IS SHIFT4 NO 0 FILL[  \ ^_7^_D`TJ]?pvSoTi{{D KzB `d8w:^!tJo$pJ? &iJ
8AN2T@CPP@6 PD@RTA!O"0 $@NAAa@SEA AQ@ $A$SPGAN@P@@A
0KO PL@ T0FD I@H@ `S%E CAN!4OM3S&UAMAR`@LAIBAE AFRAEAQ`ACPNRNB@M@@A@ XT ^SIG):S) )*S) ?(*S)^)N)oMm4d ygh
'8Mg#:ZgAYgXEQe*>GXe *C<d B(8y0t(XE y(X z(X q(X=) 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