File MORTT.FT (FORTRAN source file)

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

QC4IUOQRQG]AQED UMIOUT)IQA%TIOANQTIAILAEQG9EQEERUTIOM4JJ(MQCXIQO5RIAATQSETQT5EUEQNAS4:J%CH-4-H-4-H-4-H-4-H-4-H-4-M4JLJ10$0UFIOUMQAH(<//4)LJ10$1UFIOUMQAH(	UMIOQTEGIGAEQA=MQR%TUZQAQI9OP ETQBULH	<,/4)LJ10$2UFIOUMQAH(	QA=MUUQNP YOP =LIAANH=\ L,EFL0H.)(ML10P3X
QO5RIA!TP	0 QO9AP ERITAEH($%H =P	X,L5H.)(ML10P4XIQO5RIA!TP	0 QO9AP UTIRAMP(UYUAMRL)4 H 0	IF8514)LJ10$5UFIOUMQAH(	QM9OQT1HUY QA5YUEQNMS4 H 0	IF87H2<,)(ML10P6XIQO5RIA!TIF8824)LJ10$7UFIOUMQAH(0/H	 P P QAUTH  UIQNQEURISATT  QRMNIPALT  QRMNIP]L)(ML10P8XIQO5RIA
TH	 H  H  H  H  H  H  H  P EPQYUMINATT H QEEMQI%NIN]GH,$/LMDJL0$0PI=FQREMIT<()(ML1D0P0XIQO5RIA!TH	 P	$,P3$,H3\,H  P	X,L8H.H,	H  P	X,L8H.H,	H  P	X,L8H.)(ML1D0P1XIQO5RIA!TH/	ULMAUT QA5YUEQNH =P	X,L6H.)(ML1D0P2XIQO5RIA!TT	L UTIAQT9IQG4 UOQNIH  IM%MH=\ )(ML1D
P3XIQO5RIA!TT	L UTIAQT9IUG$ UEIAT $(MY4)H $	LMDJL0P1PI=FQREMQT$(44)LJ11$5UFIOUMQAL(EFL0.)(ML1D0P6XIQO5RIA!TH/\,P 9IUTIEUEQSP EPIIADQT%HUS$ UEIAH=\ L,!FH.$2LMDJL0\1PI=FQREMIT<(H,	UTQOIAALUIQNQEURISATQP%AID=P	X,L8H.)(ML1D0P8XIQO5RIA!TH/\,ULMIQT9IQGP QE%SQRQ
H ?I[AYIOARMN)]H $	LMDJL0$1PI=FQREMMTD(IA$6M0JUCIQAUG 42J(MPMLJPIUGQTH QA%SQC4 UOQRQG]AQEP QAET:(MIC4IH-4-H-4-H-4-H-4-H-4-H-4-H-4--4-J(MT1\IURQIMEP(L,1H0$1M$JQW%RIT!EL4D,L0H0)(MPIURIA!DL4D,L0T1P)5AQO9UAT(MTIIWQIUTH(04L1034)TJHIQEQAH(04L1D0T5H)QAUTM$JQW%RI
!EL4D,L0P0)(MPIURIA!DL4D,L0T1P)UTAR5MJ(MPMLJPIECULUCULQAQE4 UOQNUH%LP EPQYUMUNMTPMLJHI4-H-4-H-4-H-4-H-4-H-4-H-4-H-4-H-4-M4JLJ1TIIRQAUTP=ERIT=EL(H1L.D*H080)(MTIQTQE5RP=UTIR)MH182M$JMDEET=!EQPD(QL]OH(81T+IRQAUTT)P*UTIEAM4)PJPIME42H1<.MDEEM$JMDMEH=81P-UD2(MP
UDP4D=UMUOIN)TQRERAT5ETJIQA5YP=P(IE<4MDMEH)8+041TJ\IURQIMEP(L,1H0$5UP%AAM(MM4JJ%CULMIQT9IIGASUDMEQIURMD< PMLJHI4-H-4-H-4-H-4-H-4-H-4--(MM$JMA5YH	AYH   4	PJDIIN\=IN H  	(M1$1QW%RIT!EL4D,L0 1)(MPIURIA!DL4D,L0$1P)9AAS(M1$2II!FUAMNP-9AL)L1H,01143LJL1PIYIP(9AQ
D-MYD)L1D,L5D,1(M1$5QW%RIT!EL4D,L0H1)(MPIURIA!DL4D,L0P1P)=MM$JQW%RIT!EL4D,L0L1)(MPIURIA!DL4D,L0P1T)%IAR(MPMLJPI%LISATQHEEQD9IQG< QN0 QIUNQP%RQNUTAR(MIC4IH-4-H-4-H-4-H-4-H-4-H-4-H-4-H-4--4-J(M2$0QW%RIT!EL4D,L00)(MTIIWQIUTH(04L1014)TJ\IURQIMEP(L,1H0$2QA=MUU
NM$JQW%RIT!EL4D,L0L0P)ERAT5ETJ\IURQIMEP(L,1H0$4UTIEAM(MTIIWQIUTH(04L10T5)QA5YM$JQW%RIT!EL4D,L0\0)(MTIIWQIUTH(04L1084)PJLLPIEPIGAE3(MM4JJ%CQC5OUPQUIEX P %LISATQA=MQR%TUZQAQI9OP ETQBULPMLJHI4-H-4-H-4-H-4-H-4-H-4-H-4-H-4-H-4-H-4-H-4--(MLMLJP04IUOQNMHD=M$JQIU
MR5MUTIEMMD*24.TJLIMT=.(MTIQTH=80M$JQP9RQC1PP=5AQO9UAT(M3$1II!FIM5OH1$3H303H302343LJH3PI=M=41PJ$IMY5RUIIY+41TJ\IURQIMEP(L,1H1$6AS5TTJ\IURQIMEP(L,1H0$9M$JMT5TIT-TAS5TTJLIMT=.(MTIIWQIUTH(04L1094)LJL3PIYIP(=MQN!TT-QIQE5RL)P3L,X3L,P3LMLJT4IUIQNT=IPUNACULH*QAU
L/D(H080L*H1.4)TJIUO=QA5YP-%PIN5TL.D0M$JQP9RQC1PT=IPUNACUL-AO(M3$5QW%RIT!EL4D,L01P)=MT,%IUR,UIQNP,=PT,IPUNACAL(MTIQST=QSP+%PAN5TPJ4IQO4=MOD+M$JQM9OMT5HQM9OIT-H1(MPI=GP =TL D3M4JJ(MQCLIUOAMQUUTP ELISATUP%AQM9EAT(MIC4IH-4-H-4-H-4-H-4-H-4-H-4--(MLMLJT6IUIQNT
IPUNACULH*QAUTL/D(H080L*H1.4)TJIUO=QRMNAP5LTJIQRMNMP5L04.TJPIML5PIP-OQP9IAT(MTIIWQIUTH(04L1D0P04)QO$,IY1RQP9IUT,UO,QRMNAP5LTJ\IURQIMEP(L,1H1$1UTALM$JMS5TIS-TQP9IAT(MTIIWQIUTH(04L1D0T6L)AT(MTIQTT=QTT+QSM$JQW%RIT!EL4D,L0\1T)QTM$JQW%RIT!EL4D,L00)(MTIIWQIUTH(
4L1004)PJ\IUOP MOD M4JPJTIAN5DJ4LBZ

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