File FPPIN3.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file
??2CBP
I4XDH MV,I5 7H445L<TBH)$+DPMM;LH V!4HL<0 DB$HL<0 HB858 !H=<L<TB*,PL+ "8M<TH*H$DK 7L\KX$VLK\5LHT4-H<H5()DKH$LV0]HB(5$,$D1XXLITKL7PHL50-HB$5H*PYHR$VL<TBH*H$DK 2V,I5 7H445L<TBH)\*D$XR5H<H5P*LLKX$VLK\5LHT4-H<H5()D5H$LW0AHB(5IR[$-6?AHAQAZAA,A5A>BGBPBYB"B+B4B=C
COCXC!C*C3C<DEDNDWD D)D2D;EDEMEVE
E(E1E:FCFLFUF^F	F0F9GBGKGTG]G&G/G8HAHJHSH\H%H.H7IIIIRI[I$I-I6I?JHJQJZJJ,J5J>KGKPKYK"K+K4K=LFLOLXL!L*L3L<MEMNMWM M)M2M;NDNMNVN
N(N1N:OCOLOUO^O	O0O9PBPKPTP]P&P/P8QAQJQSQ\Q%Q.Q7R,BCIB??,Q DT](XBRBXB
B&B-B5ACDGU:?BJBMB B0H"PPDQDUU]B]Q])^:^<

L
P
 
6
? !**"H??F?>?0??YMYNYOYPYQYRYS?<?;?7?5?4;H8!*H8!*H7!*0"- 0&:0!)-0"-*>">&G8???0/G <%E DHGD,=?=DI?(P;HSXH\HKR\HKP\HKQ\H\HKSXIXD5+.A"A\HPI*T.R"AIS\HPI*Z.X"AH?\HPI*!.
"AIM\HPI*(.&XM"AHM\HPI*0.-;KTXIKOXH\HPI*;.5;KSXIITXH\HPI+E.?0B5)+N:XC,	(X]?:?8*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B<P+:XP;&X JA9DXSHR8D=H-3XRHSP +,JAJAHP+$I.X JA2I/ %-;5.XDI^XKNXHHSXI;LH8!LI< *ZPK*JLH8!HD> *ZRR.>DAK>("&R>D<>(.R.<B! JH0S"2F"2F[	! .&;N2XER2LEAO<
*=! .2=8P8A8J8J8J!*;LE6< +K! .2IH=ILH9!*;PE*78F8FXEI[XKHE3H:!*HE8F8DXEPK+Y;H9!*/SI
XHNXILISPH+,"2F;I^XHHSXILISPH+6HDS"2G! /	= PROGRAM HALT---ERROR IN FPP APT OR STATUS COMPAREFLD  FPC  IR0  BASE OPA  EXP  MSW  LSW  LSW1 LSW2 LSW3 STATUS    GOOD    BAD]B(X]D]B(X]************]E(X]B????????????D]E(X]BD^+(X^(?????? ^.(X^+P]K(X]ID]M(X]K?????
????D]M(X]K??AD]Q(X]MUU*********+D]S(X]Q?FPD]S(X]Q?HTD]S(X]Q?F0D]S(X]Q D]U(X(APD]W(X/B0D]Y(X)?FPD][(X*:AD]](X+:??????????D]
(X(WD]!(XXZUUUUUUUUUUUUD](XX ************D]&(XX&D])(XX,????????????D],(XX,????????????D],(XX2UUUUUUUUUUD].(XX> AD].(XYDAD]0(XYJ
?????????D]2(XYP************D]4(XX8
?????????D]6(XYJAPD]6(XYJ
????????<D]8(XYV??
????????>D]:(XY\"FQDQDQDQDQD]<(XY"QERH"H"H"H"HD]>(XY(HRH"H"H"H"HD^(XY./?????????D^B(XY4D^D(XY:A AD^F(XZ"E.;.;.;.;/D^H(XZFQCY&Y&Y&Y&Y(D^J(XZLH QDQDQDQDQHD^L(XZR3KY&Y&Y&Y&Y(D^N(XZXY$QDQDQDQDQHD^P(XZ^CWPD^R(XZ$
?PD^T(XZ*D^V(XZ0D^X(XZ6
S\\\\\\\\\XD^Z(XZ<+RDM;MXO%-D^\(X[B3%(O!2CXUGFD^^(X[HAPD^ (X[N??0D^"(X[T??PD^$(X[Z*Q\UL>VK&)EKD^&(X[ 9=
??>=GWXO^D^((X[&YQV)V)V)V)V)D^2(XYNUUJ*********D^6(XYNWN
EL95\B2KD^7(X[>
?P$^9(X\D PAD^;(X\JUUUUUUUUUUUUDD^;(X\JLD
(X^?D^?(X^<AD^?(X^< AD
D(X
CD
D(X
CAD
C(X
 AD
H(X
GD
H(X
G AD
G(X
DAD
K(X
HD
L(X
KAD
L(X
K AD
O(X
LD
O(X
LAD
P(X
O????????????D
T(X
SAD
S(X
PD
S(X
P AD
\(X
[
[D
^(X
\UUUUUUUUUUUUD
!(X
 D
$(X
!????????????D
((X
	D
-(X
,D
5(X-D/YS8+%+!CG?>CSCODE:T&TJTLX<UUUUUUUUUUUU************????????????UUUUUUUUUUJ********* AA
?????????????????????"HBH"H"H"H"HQDSL3L3L3L3LH"[.;.;.;.;.?? A??
?????????
?????????"H$QDQDQDQDPQDDQDQDQDQDPH"DQDQDQDQDP3L&Y&Y&Y&Y&XY&UUUUUUUUUTDQDQDQDQDQDPPPAX?EAJJ*********9$9+GK*;(	] A(4]H>)&U=
?PA A
?????????Y	97X)
4GQ;;A:1C>/"5:GK55UUUUUUUUUUA AUUJ*********WN
EL95\B2K A
?A^(J	0&;2A.N)8!N*>(*J2TH4Z2A0BN(>(*%J+2A(D0A*NCXA9A$A&\];8F,[IR,OI8J8J8J":OI":SI*1\6AF<(.,IZ<(A(ABCCCCDX
IJKHBHBJEX$D X$E X$F	G	2ZJRJXJ\J^J J"J$R&R(R*R,R.R0R2R4"6"8":"<">[B[D[F[H[J[LFAEA2ZCP*Z2ZCR:ZKTKV[XH^?HH
CHP
GH 
KH(
OH0
SG
[ HX
 H8
$IX
(HXXAIP
-HX
-Q(
5X (08;5*5+IK57< <B5.8!H2< <B5*5.< <B;IK575+;5.< <BIK57IK5+;5.8!IK< <BIK575.8!H2< <B5*5+IK575.8!H2< <B5*:XMIK5751HM5-<B:558!HM8A< <B5*PM*5$	$"IK57H45-<B$5.8!H3< <B5-<BIRXJ5)+Y+\PJ+V<B$RGE<B$%5*IK57H45-<B$"5.8!H3< <B5-<BI^XK5/+3+6PK+0<B8!H2< <B$RGQ<B5)<H<B
*$"XMK2XHI]XI:HM\HPI*GIK57K4XVH45-<B5/*S8!H2< <BHU< <BHV8!I< <BHY8!K4< <BHMXYK2XHI]XILH8!HM< <BPI*,PM*C$5*IXVK35+:IK57H45-<B$"5.8!H3< <B0A5-<B: XCIOXHPH+NHC< <B$RG]<B5*$K15+:IXVIK57H45-<B$"5.8!H3< <B5-<B5)+*$RG)<B/0$PVD]A
G^Q^"%  .^I -!1 , G5*$IK57K=XVH45-<B$"5.8!K?< <B5-<B5)*Q$RG5<B5*$IJX[IK57K>XVH45-<B$"5.8!H1< <B5-<B5)*)$RHA<B5*$IK57K:XVH45-<B5)*7$RHM<B5*$"H0X
IK57K;XVH45-<B5)+G$RHY<B5*$IK57K;XVH45-<B5)+U$RH%<B5*$$IK57K<XVH45-<B5)+$RH1<B5*$"H0X
IAXVIK57H45-<B5)+3$RH=<B/9&]I]K]M^(^+ C5*$"K:X
IAXVIK57H45-<B5)*K$RII<B5*$IQX
IAXVIK57H45-<B5)*[$RIU<B5*$"IKX[IAXVIK57H45-<B5)*+$RI!<B5*$$	H0X(K;XVIK57H45-<B5)*<$RI-<B5*$$$	IQX/K<XVIK57H45-<B5)+M$RI9<B5*$"$	IPX)H0X
K=XVIK57H45-<B5)+ $RJE<B5*$"$	H5X*H<X[K>XVIK57H45-<B5)+3$RJQ<B/9(E]S]U]W]Y)O5*$"$	H5X+K9X[K3XVIK57H45-<B5)*N$RJ]<B5*$"$	IPXZH<X[K4XVIK57H45-<B5)*!$RJ)<B5*$"K5XVIK57H45-<B5)*/$RJ5<B5*$K6XVIK57H45-<B5)*=$RKA<B5*$$	K7XVIK57H45-<B5)+L$RKM<B5*$"$	H0X,K8XVIK57H
5-<B5)+]$RKY<B5*$"$	IBXVIK57H45-<B5)+,$RK%<B/2*][]]]
]!]]&0&)+0+R+Z&&I5*$$$	H0X,IBXVIK57H45-<B5)*L$RK1<B5*$$$	K1XVIK57H45-<B5)*[$RK=<B5*$$	H0X,K1XVIK57H45-<B5)*,$RLI<B5*$$	H0X,K2XVIK57H45-<B5)*=$RLU<B5*$%$FK3XVIK57H45-<B5)+L$RL!<BMU8!IM< <BMV8!IM< <BMW8!IM< <BMX8!IM< <BMY8!IM< <BMZ8!IM< <B/0,],].]0& (!	K&I)
(L&$&"&&&%&Q&!5*$$XZK2XVIK57H45-<B5)*J$RL-<B5*$"H0X
K3XVIK57H45-<B5)*Z$RL9<B5*$K8X
XZK3XVIK57H45-<B5)*+$RME<B5*$IJX[K4XVIK57H45-<B5)*;$RMQ<B5*IN$&K1X[K5XVIK57H45-<B5)+L$RM]<B5*H>$&K6XVIK57H45-<B5)+[$RM)<B5*H;$&K7XVIK57H45-<B5)+*$RM5<B/0.BH]2]4]6]8]:]<?=	:&)+W+V&")]&!5*$IQX
K4XVIK57H45-<B5)*K$RNA<B5*$IJX[K5XVIK57H45-<B5)*[$RNM<B5*$"IKX[H0X
K6XVIK57H45-<B5)*-$RNY<B5*:IN$&K7XVIK57H45-<B5)*=$RN%<B5*:H>$&K8XVIK57H45-<B5)+M$RN1<B5*:H;$&K9XVIK57H45-<B5)+]$RN=<B5*:K;$&K:XVIK57H45-<B5)+-$ROI<B/30]>^^B^D^F^H^J3LTEMB<CE5*:K6$&K/XVIK57H45-<B5)*K$ROU<B5*:K.$&K0XVIK57H45-<B5)*[$RO!<B5*$"H<XZH<X[K1XVIK57
45-<B5)*-$RO-<B5*$K2XVIK57H45-<B5)*;$RO9<B5*$IJX[K3XVIK57H45-<B5)+K$RPE<B5*$$K4XVIK57H45-<B5)+Y$RPQ<B5*$%K5XVIK57H45-<B5)+	$RP]<B/-2DQ^L^N^P^R^T^V^XY&% ^A^,^+^*^)^(^^5*;K7$&K8XVIK57H45-<B5)*K$RP)<B5*$"IJXZH<X[K9XVIK57H45-<B5)*]$RP5<B5*$IJX[K:XVIK57H45-<B5
*-$RQA<B5*$"K5XZK4X
K;XVIK57H45-<B5)*?$RQM<B5*$%K<XVIK57H45-<B5)+M$RQY<B5*:K?$&K=XVIK57H45-<B5)+]$RQ%<B5*:K6$&K>XVIK57H45-<B5)+-$RQ1<B/34B8OFS%^Z^\^^^ ^"^$^&4=5*$$$FK1XVIK57H45-<B5)*J$RQ=<BMU8!H?< <BMV8!IJ< <BMW8 < <BMX8 < <BMY8 < <BMZ8 < <B5*:K8$&$FK2XVIK57H45-<B5)*5$RRI<BM
8!K0< <BMV8!K4< <BMW8!K6< <BMX8!K7< <BMY8!K9< <BMZ8!K5< <B5*$K3XVIKXZK/X[H<5+:IK57H45-<B5)+($RRU<B/.6G?RZ^.^2^6-^/D/W6";N9MI!QD+T
2H.Z%5*$K?XVIJXZIJX[IK57H45-<B5)*M$RR!<B5*$$ICXVIK57H45-<B5)*[$RR-<B5*$"ICXVIK57H45-<B5,5)**$RR9<B5*$"IDXVIK57H45-<B5)*8$RSE<B5*$"H0X
IDXVIK57H45-<B5)+H$RSQ<B5*$"IKX[H0X
IDXVIK57H45-<B5)+Z$RS]<B5*$"IEXVIK57H45-<B5)+($RS)<B5*$"H0X
IEXVIK57H45-<B5)+8$RS5<B/>8^85*$"IKX[H0X
IEXVIK57H45-<B5)*M$RTA<B5*$"K4XVIK57H45-<B5)*[$RTM<B5*$"IKX[H0X
K4XVIK57H45-<B5)*-$RTY<B5*$"H0X
K4XVIK57H45-<B5)*=$RT%<B5*$"K5XVIK57H45-<B5)+K$RT1<B5*$"H0X
K5XVIK57H45-<B5)+[$RT=<B5*$"IKX[H0X
K5XVIK57H45-<B5)+-$RUI<B/3:
D
HLMU DIRECTION FLOP 5*$"IFXVIK57H45-<B5)*I$RUU<B5*$"H0X
IFXVIK57H45-<B5)*Y$RU!<B5*$IFXVIK57H45-<B5)*	$RU-<B5*$"H0X
IGXVIK57H45-<B5)*7$RU9<B5*$"IGXVIK57H45-<B5)+E$RVE<B5*$"IKX[H0X
IGXVIK57H45-<B5)+W$RVQ<B5*;I\XKIIXMHMXVIK57H45-<B5)+)PMPM;HV8!HM< <BHY< <B5.8!H=< <B5*PK+"885*$"K7X\K0XVIK57H45-<B5)*K$RV]<B5*$$K1XVIK57H45-<B5)*Y$RV)<B5*$"K2XVIK57H45-<B5)*	$RV5<B5*$K3XVIK57H45-<B5)*5$RWA<B5*$"K4XVIK57H45-<B5)+C$RWM<B5*$"K5XVIK57H45-<B5)
Q$RWY<B5*$"$	ISX-K6XVIK57H45-<B5)+"$RW%<BPG+-IOXGK/!*/. BG
Y
\
^
!
%
*
2
[;TH7?<C??9D?DIR[$-6?AHAQAZAA,A5A>BGBPBYB"B+B4B=CFCOCXC!C*C3C<DEDNDWD D)D2D;EDEMEVE
E(E1E:FCFLFUF^F	F0F9GBGKGTG]G&G/G8HAHJHSH\H%H.H7IIIIRI[I$I-I6I?JHJQJZJJ,J5J>KGKPKYK"K+K4K=LFLOLXL!L*L3L<MEMNMWM M)M2M;NDNMNVN
N(N1N:OCOLOUO^O	O0O9PBPKPTP]P&P/P8QAQJQSQ\Q%Q.Q7R

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