File MCMAV.LD

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

@ +/n3.7@?  GN K((@&&U-U;&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&Uq,AN2 AI#	
   6
x&` f)i</J!(0~ A39#@``PP P@@`x	l`@z.c^T '!S %'\ #4@`%p8(dj)(` 8p:p0
Nprtp?bp
&x#$!5'5751
	LDX	0030,0
	FLDA	ISR
	FSTA	SR
	LDX	0031,0
	FLDA	ISR
	FDIV	#LIT+0025
	EXTERN	#FIX
	JSA	#FIX
	FSTA	IRA
	LDX	0032,0
	JSR	MOD
	JA	.+0006
	JA	IRA
	JA	#LIT+0006
	FSTA	PARITY
	LDX	0033,0
	FLDA	PARITY
	FSUB	#LIT+0000
	JNE	#G0001
	FLDA	IRA
	FADD	#LIT+0003
	FSTA	IRA
#G0001,	LDX	0034,0
	FLDA	IRA
	FDIV	#LIT+0006
	EXTERN	#FIX
	JSA	#FIX
	FSTA	IRAH
	LDX	0035,0
	FLDA	#LIT+0003
	ATX	7
	FLDA	#LIT+0000
	FSTA	BL-0003,7
	LDX	0036,0
	FLDA	#LIT+0003
	FSTA	MZ
	LDX	0037,0
	FLDA	#LIT+0003
	FSTA	MX
	LDX	0040,0
	FLDA	#LIT+0030
	FSTA	END
	LDX	0041,0
	FLDA	END
	FSUB	IRA
	FSUB	#LIT+0003
	FSTA	ENDPT
	LDX	0042,0
	FLDA	IRAH
	FADD	#LIT+0006
	FSTA	IX
	LDX	0043,0
	FLDA	IS|
fire>$W&z8'Bp!ippjp`$}l`|`"Dp{-%A B@INASG"0MN@MN@@I03I13MX@MX@@A06A16	@DM"LGLGp@XX3ICO@SICODSICOHSQDSNCSTNMDO1FXFX"IN%AP@E@5S@E
0X
PCE@EI G0N@@X@@NLADN"PDGGp@NS0@@RPLE@N@G@L@GLM`ARPWPESRPLGSNCSER EC ECL@IA@O
@CDCBCCQCLCCCED X	2E	EEEIERHR@@HRGTPTNI4NB4PUE@RPYCLC@ C	0	ESD@
TCTC@L0CL@@DS@20TN@HEF0APC0L@PDpt1* 	+lM	,=X	KlX\	,=	k,X\	l=X	K)@Pu">9`1U`>R-@@v-78l@wM6:L8;:@;4l@x">,@@yK2
@zK9@@{>,@TR@|2942L@}>b"@~9989
@>ET"J@ L2;L9;;>@;98X;"@;18X4

@`S "
@7((oq; '+A	6U`3LNUHN		5N >l83'; 	TRNTnQoo@@ X@X@`PPP.+000@P |
fire>$W&z8'Bp!ippjp`$}l`|`
"Dp{p-
cp|pi(p
|
"F6 N$6%FQ%J$:$ N%$c

n
|`(!z{| {K(Q( 	~G}&06z|0b!{if>f;<"FnziQ@pCA3S&!LM.K0yK(xK(Q0zI]AyY4TMAR0 X  ES3   z
lb"H~Fna	
#'
)W3K<_
lra&N,[_b(ze[
^6	^Cx(w_e`Fnx`cVdW6Ca.^	L^0?/.E"`9z^c(:z f[&V VbJ
n
VbV n^d	^C`Xc'LU,~(/y]9c
@0`v9=	_B}]&]]6] /e|2v_b
Lw	v]&e3&o}?x"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG
0r }0&@/3~"66&C|%{q)~0"~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}LG(*A	C

n
|`&(?4.fnb""cac 0z"DJ"Cx$"bt"

n~}'cx!"n0"{4z	:
7'"&ff"7"D<$&Dn"Mh/v)8d""b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?(?R})
<Gi#x	
~~rb!g
'}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= pyoCPc
IGw		Kn' b

n
aha(W0| {| {)am7vF*:&3 0
N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =;}`	 0V>bVbnVVbn`~)-J})	ff	}9>J	!6	j8W!|{l	<}!Hzr{)d: >f!.)d>!by`)Wxwdnv})>&	)8jS0T0
@
cW0q 2'A3	Uc`8LN5TN	S	NS li83' 8	5HRNT%noo@:@X2@X2W#DOTMP,	ORG	.+00306i.i86L~T/r}]	Bt.B{G(.|91!. /=2"({{zi"AlTb	,c]{2e0(G{|
6TIq	L	6	c),r)		Cifr	i(]	y){b4lgg"&<osi1H@@>_`5$n@^6q~&$}"H|r~H. f0!b{bl	<&Jnk56g08f))f))f
n;"<=&0b,dz0'y2ti%'xy0ki?Neimi?ki?mi?mi?m)?EiFf~w ?v|3H td"fuP"(ZU#8CVR1R@VR	A@18I<kr+PU	p>vy!fn$(/]"@zr0!f0r (z(/$X!f$"k><*]#*|y\Z*X0"r(]g#fc@n#2f~"2gr"r#r'gp'&0b*0r (<z'h9 'bfn(?<"(bz@&c##7%cn"":z]J]JB
'g~'&$!"iy'c}"@Oi .F.IbA@@@@@>@@C)@@N6
@	`V -`@
D-1 "'N1 TA3VRQ	,APC	3T`N' `PCA A0EHI@	A	NSo`	,,s+iiI@`V \-`6X`F5
`@a-	,,s+i@@5\B,@PVuV@1Z '+N PDCA T4R	88N2`C`2D( 2:rg*@@ V'V`)F@*(X	)L@`V 8-`@m-1 "'N1 TX	EC8TlT`NLZD U
@C E3'g;PX	84S'`;`2v2+v.,\vg
@@ Vf
`>@9d?1d`F@2jv2+v.,\v@
@`S F.`>9d`?1d`
`6``@.1 "3<'X1	DE3Tg5,vbq 23<'1X L0ZDalX	/=H,Hp,FSBT ls,l/H\,p,DiP`1X[./\H,Hp,FIHSl	q,Fvq 3+'KA3VRQ`1	K/o[i@07@@DRb<@Zv(2.X P 1@@1=!B<`>,@?R<(@@>=9SR@>'@>&@ E@!
L@"?@@#)@?R@$9@%S~```@&/1 "'5S	(`
@C`2B3R'	)=@'Zc)@(/(H,pw@*@)>%@*%?@Rb<+@++%2T9'Q%@%ID /@,`S T/>((9'`(>(EDB/`@-Y/1 "1	<)@P.)!B*@p/>@@09'=!"/@1>@@2A,@3E~/E@4B@ 59'=!"/@6>EB"@p7>L
8]/@9>EDc/@:!]/@;>
E@ <>9S1#'9S >,ER5/@=?>>1S)#'::1'9S@ >>$@HR@?>E ,@@>v/E ,@A =  9'@@B =2B  9j@@CBN@D$B8@E$.L@F@?.1S)'Q:$@:!'19SR@Gr @H@?$1S)jY::@)'19SR@Ir @J$2!@K$>.@@L./,@M@?.1S)'Q
/@:!'19SR@N?>9S1SRRB):@@9S)%SR"V:0@@O?>9S1%SR"L:@9S)SRR8):3
@P0L@Q'?1S9-@pR'9`U@S'98@T'>',@U'G2A!@Vt @W3t@X&?1S9-@0Y&9\R@Z&94@@[&>&,@\&G2A!@]>?1S9SR@^?@1S9SR@_>$@>$,HRb/@`)8!@a>#K@ b#B*@@c#*1'9j#>#
KR!@d>E?"h@`e&>!L@f'>"@@g"!2B@h>9\9%`2R@i?!@NR@j>1\9-\@ k>@1494T@l>19=0>,NR`!@m!>!@@nQ@o"!2B@p">!L@q`S *!`@rL!/q+ +p'KI3'5[,ViLl	'[UgC7,6'A'e5,6VLl'U4g@:@s`S ">
"Q `9``98`9`9\`94`
`>EQ"Y@t1* 	+lM	,=X	KlX\	,=	k,X\	l=X	K)@Pu">9`1U`>R-@@v-78l@wM6:
L8;:@;4l@x">,@@yK2@@zK9@@{>,@TR@|2942L@}>b"@~9989@>ET"J@ L2;L9;;>@;98X;"@;18X4

@`S "
@7((oq; '+A	6U`3LNUHN		5N >l83'; 	TRNTnQoo@@ X@XLX	0025,0

#104,	JA	.+0013
	5062
	1166
	5462
	0166
	5406
	6656
	6054
	0166
	5100
	LDX	0026,0
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0011
	JA	#105+2
	FLDA	IDEA
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	IDER
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	#LIT+0003
	ATX	7
	FLDA	NAME-0003,7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	#LIT+0006
	ATX	6
	FLDA	NAME-0003,6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	DEPTH
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	INGAS
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	MANU
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0027,0

#105,	JA	.+0131
	5061
	1040
	5463
	6030
	5447
	0530
	2005
	2211
	1505
	1624
	4004
	0124
	0547
	5465
	3054
	1166
	5761
	1040
	5463
	6030
	5447
	0401
	2405
	4001
	1640
	0114
	3132
	0504
	4754
	6730
	5411
	6657
	6110
	4054
	6360
	3054
	4723
	2502
	1205
	0324
	4754
	6163
	3054
	6201
	6657
	6110
	4054
	6360
	3054
	4704
	0520
	2410
	4740
	5461
	6530
	5406
	6656
	6057
	6110
	4054
	6360
	3054
	4711
	1605
	2224
	4007
	0123
	4754
	6161
	3054
	0166
	5761
	1040
	5463
	6030
	5447
	1501
	1605
	2526
	0522
	4740
	5461
	6230
	5411
	6457
	5757
	5751
	LDX	0030,0
	FLDA	ISR
	FSTA	SR
	LDX	0031,0
	FLDA	ISR
	FDIV	#LIT+0025
	EXTERN	#FIX
	JSA	#FIX
	FSTA	IRA
	LDX	0032,0
	JSR	MOD
	JA	.+0006
	JA	IRA
	JA	#LIT+0006
	FSTA	PARITY
	LDX	0033,0
	FLDA	PARITY
	FSUB	#LIT+0000
	JNE	#G0001
	FLDA	IRA
	FADD	#LIT+0003
	FSTA	IRA
#G0001,	LDX	0034,0
	FLDA	IRA
	FDIV	#LIT+0006
	EXTERN	#FIX
	JSA	#FIX
	FSTA	IRAH
	LDX	0035,0
	FLDA	#LIT+0003
	ATX	7
	FLDA	#LIT+0000
	FSTA	BL-0003,7
	LDX	0036,0
	FLDA	#LIT+0003
	FSTA	MZ
	LDX	0037,0
	FLDA	#LIT+0003
	FSTA	MX
	LDX	0040,0
	FLDA	#LIT+0030
	FSTA	END
	LDX	0041,0
	FLDA	END
	FSUB	IRA
	FSUB	#LIT+0003
	FSTA	ENDPT
	LDX	0042,0
	FLDA	IRAH
	FADD	#LIT+0006
	FSTA	IX
	LDX	0043,0
	FLDA	ISTA
	FSTA	IBL
	FLDA	NBL
	FSTA	#DOTMP+0000

#G0002,	LDX	0044,0
	FLDA	IBL
	FSTA	BLNO
	LDX	0045,0
	EXTERN	#WRITO
	TRAP3	#WRITOcp|i(p
|{y#	a6
x&` f)i</J!(0~ A39#Vp&2-
pB,<p~|`%^`!i`p:p0
Nprtp?bp
&x#$!5'81
s`81\#`81@@<(*D(<(<(v(MD BVJS	l=X	K,^	,=X	KlX\	)=@ O(oo(oXBVJSAHq(2)2AF:q(
$ o(]%"$),)2)],]8)
5)7]B)?)A]L)2I)K]V)*S)U@
2&S 2!
`6@27(!(oq 2'A3	Uc`8LN5TN	S	NS li83' 8	5HRNT%noo@:@X2@X2WW*
"F6 N$6EB2J"" .%$c

n
|`(!z{| {K(Q( 	~G} * |0b!{if>f;<"FnziQ@` P	l%'T"/ / B*J*j@@@@U@ U.Fna	
#'
)W3K<_`@n#.*b`@/b'$b(&b)+b))t@(c))t))t('D,"0(pW @l+(:z f[&V NP@BB4J"E"F^$	^C`Xc'LU,~(/y]9c
@ 0?* v	=	_B}]&]]6] /e|2v_b
L@P@P P	l
4PT %'a*aZB4J"E @@@@`{*++i*@69
@`{*i*`:%WDF+`@Z*@	+@
+<!.;xbwgv[{@A"?X"rJA6)b6mgfD}LG(*A	C

n
|`&(?4.fnb""cac 0z"DJ"Cx$"bt"

n~}'cx!"n0"{4z	:
7'"&ff"7"D<$&Dn"Mh/v)8d""b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?

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