File EXTERE.LD

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

`&+/n3.7@?  GN K((@&&U-eU;&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&"%A B@AN2 AIMN@
N@@I03I13MX@MX@ @  1	@DM"LGLGp@X   3ICO@SICODSOHSQDSNCSTNMDO0<0 HFXFX"IN%
AP@@@`@P`@p@`P	P	Tp	X	\p	h	pp
Lt U%{!#@p!"+@AL@GLM
`ARPWPESRPLGSNCSER EC ECL@IA@O
@CDCBCCQCLCCCED X	2E	EEEIERHR@@HRGTPTNI4NB4PUE@RPYCLC@ C	0	ES
TCTC@L0CL@@DS@20TN@HEF0APC0L@PDp`I A @@@@6
@7
`@5
@51/0
@:+@/,@BI&@	)e&@
}'*	`OP5NSRD!()
 UMCR`1*i@)&`@/@/!"1@"	i,@/@/@> .:P/,:B$ /,>B @ /@@/"@@"G.9UQ"/"0DA"/GD="@/@/"@"4 .9t"/",5B^ /,4BZ@ /@@/"@@"7.9Q"/"1D{"/7Dw"@/@.:#@/,8B
0.D\@.J@@.G\@ .M@@!.@@"1!BA/0@@#1B@0$ZPBO24@%5`6)
`@&b#	)-@'j#2,&t@*@(`) f#)@)/@@*.9R/8D{#@+.#1@,5
@-21/0
@:+@/,@B6@.48:iL@/. @0/!@1.@2/@3ZP,L#4 @4`2 $`*F'`F(`
/@9p01p
`F`F`1@@9p/,3B/@9/1/1{01/){/10!{010{/11{011	{@5.SB+\.S%+!@ 6.!B.@p73BF@08i2J,tb@@ 91B@P:*))BF2{BF@0; / ,@</@= /!$/'9@ >!9'$)6$N$6$@?4$1,&t	+lqB	,=q1+,
llrB5q23,6IlLIi\@@!/!@@A!8BA8@!@@B!'9R@CN$@D/@@E/!B\/@:#\@F:#)BkBRk@@G/,@H8v$8
@I:#@@J@PK@L
/!BQG/BG\@M
/%J/-J@@N
/B!0P
@@O/#@@P#9pC!0%0

@Q#9pD!B;0P
@@RE%@@S#9p%!J%0

%/%FD?%@T#/#0D%%@UM/-M@@V/@@W9p.S3%+9ApGS=%+!"1@PX1)B@PY9pA11%@ZD/-D@@[1SBG+\9pBSBG+X!1%@\
G9p1
G9p)U/1-U@]
/,3Bc@P^41B?/P@@_4SB=+\;S3%+O0P@@`;SB=+\<S3%+_1P@@a<SB=+\=S3%+o2P@@b=SB=+\?S3%+3P@@c?B4`@@d/!B/`@@e/B0`@@f49t/9tP@g14 9t/9-t@h/!B<2`49t/9tP@i/!K&34 9t/9-t@j/!BZ4`49t/9tP@k/$
@l$9pASB3+\9pGSB=+R!'@m$9pAB~9apA9pQ@n/S%+$@9p.S%+8`>9p8>9p1*/R2U@o/S%+$@9p.S%+>9`>9p9>9p1*/R2U@p/S%+$@9p.S%+^:`>9p:>9p1*/R2U@q/
@r/1 9{.SB+\$1p.SB+X+9A{6S3%+9q{>1p19{>1p1"/R*
U@s/1Db&$/$0D^&@t/
@u/1 9{/SB+\9{1SB+R!D'@v/1D"'@wO'@x54 9t/9-t@y/@@z/19{.'@{01 9{1SB=+\9{/SBG+Rs'/9{@|/1011{79{11{79{1!/)Q@}/1DQ'@~F#@/.'@('''()=@;"@Zx,<' L "	!"!@1!"@X @X
 (G{|d6TIq	L	6	c),r)		Cifr	i(]	y){b4lgg"&<osi1H@@>_`5$n@
	JA	TITLE-0003
AGE,	ORG	.+0176
DRUG,	ORG	.+0033
DRUG2,	ORG	.+0121
IDIAG,	ORG	.+0017
MGMT,	ORG	.+0006
PCODEA,	ORG	.+0036
	#LBL=.
	COMMON
ARR2,	ORG	.+6344
TITLE,	ORG	.+0360
ARR22,	ORG	.+3410
IAREA,	ORG	.+0036
KOUNT,	ORG	.+0003
TCOUNT,	ORG	.+0003
ICOUNT,	ORG	.+0003
TKOUNT,	ORG	.+0003
	ORG	#LBL
#ST,	BASE	#BASE
	SETB	#BASE
	SETX	#XR
	LDX	0002,0
	LDX	0003,0
	LDX	0004,0
	#G0001=.
	ORG	IZER+0000
	0000;0000;0000
	ORG	LZER+0000
	6060;6060;4040
	ORG	IBLK+0000
	4040;4040;4040
	ORG	#G0001
	LDX	0005,0
	FLDA	#LIT+0030
	EXTERN	#REW
	TRAP3	#REW
	LDX	0006,0
	FLDA	#LIT+0033
	EXTERN	#REW
	TRAP3	#REW
	LDX	0007,0

#1,	FLDA	#LIT+0025
	EXTERN	#REW
	TRAP3	#REW
	LDX	0010,0
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0030
	JA	#110+2
	FLDA	#LIT+0003
	FSTA	I

#G0002,	FLDA	I
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	TITLE-0003,7
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0066
	JLE	#G0002
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0011,0
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0014
	JA	#600+2
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0012,0

#600,	JA	.+0032
	5047
	4011
	2340
	0317
	1520
	1405
	2405
	4022
	2516
	4004
	0523
	1122
	0504
	4050
	6051
	4017
	2240
	2325
	1515
	0122
	3140
	5061
	5177
	4751
	LDX	0013,0
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0014
	JA	#601+2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IANS
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0014,0
	FLDA	#LIT+0003
	FSTA	IFLAG
	LDX	0015,0
	FLDA	IANS
	FSUB	#LIT+0003
	JNE	#G0003
	FLDA	#LIT+0011
	FSTA	IFLAG
#G0003,	LDX	0016,0

#601,	JA	.+0004
	5011
	6351
	LDX	0017,0

#2,	FLDA	#LIT+0003
	FSTA	J

#G0004,	LDX	0020,0
	FLDA	#LIT+0003
	FSTA	JJ

#G0005,	LDX	0021,0

#10,	FLDA	JJ
	FMUL	#LIT+0060
	FADD	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	ARR22-0231,7
	FLDA	JJ
	FADD	#LIT+0003
	FSTA	JJ
	FSUB	#LIT+0044
	JLE	#G0005
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0060
	JLE	#G0004
	LDX	0022,0

#160,	FLDA	#LIT+0003
	FSTA	J

#G0006,	LDX	0023,0
	FLDA	#LIT+0003
	FSTA	K

#G0007,	LDX	0024,0

#161,	FLDA	K
	FMUL	#LIT+0113
	FADD	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	ARR2-3165,7
	FLDA	K
	FADD	#LIT+0003
	FSTA	K
	FSUB	#LIT+0006
	JLE	#G0007
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0113
	JLE	#G0006
	LDX	0025,0
	FLDA	#LIT+0003
	FSTA	J

#G0010,	LDX	0026,0
	FLDA	#LIT+0003
	FSTA	K

#G0011,	LDX	0027,0

#163,	FLDA	K
	FMUL	#LIT+0022
	FADD	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	AGE-0025,7
	FLDA	K
	FADD	#LIT+0003
	FSTA	K
	FSUB	#LIT+0025
	JLE	#G0011
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0022
	JLE	#G0010
	LDX	0030,0
	FLDA	#LIT+0003
	FSTA	J

#G0012,	LDX	0031,0
	FLDA	#LIT+0003
	FSTA	K

#G0013,	LDX	0032,0

#164,	FLDA	K
	FMUL	#LIT+0033
	FADD	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	DRUG2-0036,7
	FLDA	K
	FADD	#LIT+0003
	FSTA	K
	FSUB	#LIT+0011
	JLE	#G0013
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0033
	JLE	#G0012
	LDX	0033,0
	FLDA	#LIT+0003
	FSTA	J

#G0014,	LDX	0034,0

#166,	FLDA	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	IAREA-0003,7
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0036
	JLE	#G0014
	LDX	0035,0
	FLDA	#LIT+0000
	FSTA	KOUNT
	LDX	0036,0
	FLDA	#LIT+0000
	FSTA	ICOUNT
	LDX	0037,0
	FLDA	#LIT+0000
	FSTA	TCOUNT
	LDX	0040,0
	FLDA	#LIT+0000
	FSTA	TKOUNT
	LDX	0041,0
	FLDA	#LIT+0000
	FSTA	JFLAG
	LDX	0042,0
	FLDA	IFLAG
	FSUB	#LIT+0011
	JNE	#G0015
	FLDA	#LIT+0003
	FSTA	JFLAG
#G0015,	LDX	0043,0
	FLDA	IFLAG
	FSUB	#LIT+0011
	JEQ	#105
	LDX	0044,0

#18,	JSR	CHKEOF
	JA	.+0004
	JA	EOF
	LDX	0045,0
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0030
	JA	#101+2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	SCODE1
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0046,0

#101,	JA	.+0004
	5011
	6451
	LDX	0047,0

#102,	JA	.+0006
	5062
	3054
	1164
	5100
	LDX	0050,0
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0014
	JA	#102+2
	FLDA	SCODE1
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0051,0
	FLDA	#LIT+0003
	FSTA	J

#G0016,	LDX	0052,0

#19,	FLDA	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	PCODEA-0003,7
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0036
	JLE	#G0016
	LDX	0053,0
	FLDA	EOF
	FSUB	#LIT+0000
	JEQ	#G0017
	FLDA	#LIT+0011
	FSTA	IFLAG
#G0017,	LDX	0054,0

#105,	FLDA	#LIT+0025
	EXTERN	#REW
	TRAP3	#REW
	LDX	0055,0
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0025
	JA	#110+2
	FLDA	#LIT+0003
	FSTA	I

#G0020,	FLDA	I
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	TITLE-0003,7
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0066
	JLE	#G0020
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0056,0

#110,	JA	.+0005
	5070
	6001
	6151
	LDX	0057,0
	FLDA	#LIT+0000
	FSTA	JP
	LDX^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."c%#s&v{lqz;%q*a:jGOt)~}|N(/{2bziz)m&Ykf+(f#	"y	xin$J /P("fnl		< (o. ?$)x) bwc(rvs+'1Bk~i0}is"kbld{+$r dz}IzEY!.k&u$^o&Yk&on& Xb		lPd5Yp&ek%
@/|zLerP&[R(/"q~tBFg~lif.H>(}
 ..r|/r{/r@ubo./F2fzy'x&gw' .bH/bnfg'2"2yevV$qW}!>cnFd72'5'5$R;*&lui%j(Z"&"J.x"btt)#@>&&7%cn"%Zzm X(@*d0;)9#.'/~',(/0&}C<	lv_|q)zvn /&{Cz	|Cytx7 w'vC}2FXon~v
<7B?u22P3b8<zvi2t's&v	<x2'2'}IcH`	rB	qbjbc66bJnn	6o 	s	s	tUJp6& fk4	clnbd&iCAn5T32=Fn x(/	 .({j&h0j(&&l(# zi&~ &}y."hzvdi&oD%>5f&@>/>&/&'>/&%c.>&>j  &z.%'>.&)L2g02fsgrtphU#"wGR9"a>% ?^##a&cU{"%
#&7U67	C	(Oe6(+"+b(ekly|3xJ szrC2)	p9"`8b|'!~\ $P
@@^_6R3#`)W	q(q`rYJrUU/
Fgpz?pgfD*%xDuTd#hBpN &W ?|Ki- &  C! d h?#"@~~J.

n,~}28b }ic@	N0b*%%%b&*kL#A RG2N VR1MDR	OR0Sx;RRC
&sK*!VJ"L*p'+o',+0vfhzzfn bDf.Hs{b lJ"d*n &#Q6UL	#LIT+0011
	FADD	#LIT+0011
	ATX	2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,2
	FLDA	#LIT+0006
	FMUL	#LIT+0011
	FADD	#LIT+0011
	ATX	1
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,1
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0065,0
	FLDA	EOF
	FSUB	#LIT+0000
	EXTERN	#NE
	JSA	#NE
	FSTA	#TMP+0000
	FLDA	JFLAG
	FSUB	#LIT+0000
	EXTERN	#EQ
	JSA	#EQ
	FMUL	#TMP+0000
	JNE	#2
	LDX	0066,0
	FLDA	EOF
	FSUB	#LIT+0000
	JNE	#96
	LDX	0067,0

#911,	JA	.+0006
	5062
	3054
	1164
	5100
	LDX	0070,0
	FLDA	IFLAG
	FSUB	#LIT+0011
	JEQ	#31
	LDX	0071,0
	FLDA	SCODE2
	FSUB	SCODE1
	JLT	#20
	JEQ	#211
	JA	#20
	LDX	0072,0

#211,	FLDA	JP
	FADD	#LIT+0003
	FSTA	JP
	LDX	0073,0
	FLDA	#LIT+0003
	FSTA	JFLAG
	LDX	0074,0
	FLDA	JP
	FSUB	#LIT+0003
	JNE	#G0022
	FLDA	#LIT+0003
	ATX	7
	FLDA	PCODE
	FSTA	PCODEA-0003,7
#G0022,	LDX	0075,0
	FLDA	JPP
	ATX	7
	FLDA	PCODEA-0003,7
	FSUB	PCODE
	JLT	#21
	JEQ	#23
	JA	#21
	LDX	0076,0

#120,	JA	.+0030
	5061
	3054
	1164
	5411
	6354
	1161
	5411
	6654
	1161
	5461
	3054
	6211
	6354
	1162
	5465
	1161
	5463
	3054
	6311
	6354
	6711
	6151
	LDX	0077,0

#21,	FLDA	JPP
	FADD	#LIT+0003
	FSTA	JPP
	LDX	0100,0
	FLDA	JPP
	FSUB	#LIT+0036
	JLE	#G0023
	FLDA	#LIT+0036
	FSTA	JPP
#G0023,	LDX	0101,0
	FLDA	JPP
	ATX	7
	FLDA	PCODE
	FSTA	PCODEA-0003,7
	LDX	0102,0
	JA	#23
	LDX	0103,0

#23,	FLDA	IP
	FADD	#LIT+0003
	FSTA	IP
	LDX	0104,0
	FLDA	IP
	FSUB	#LIT+0003
	JNE	#G0024
	FLDA	#LIT+0003
	ATX	7
	FLDA	IA
	FSTA	IAREA-0003,7
#G0024,	LDX	0105,0P@[,HEF0v@JU,BX,A@Bp@ U,v,o.U5TBRzJBR
P -    00 H0 L    @@p@`@`	Pp	T
L@@U!P6-#@6-=`+$'P'PBz,J-A
LHHH7HA8LH9@@@@@@@&
@@@	:*BIb+bI@`
G`B-A`EHa@Bz@@:#D*].V.].@
:#@@,'B@`!*Bobro@`nR7p@:+F,+Bwa`:,'Bp@:#F,'BqMFDF@32z,tb@@ 'zg/Ko2;8KlLo`9TDEN OM '	,/X'8E@RCD`BR1`lI1(X	Ki5K,AiS@`l9p1J,qblo+3,6
TLTE`4l'ENA-'	,=lp<,TiTL0ANSS-'	)@P{@pnR9p
@:+F,+BqMFDF@y'zg/Ko2;8KlLo';'p'KUMCR`F8Tg l;`l5,FG8TL0 	EN l	v +l5<,GiCTL 	GE`D'	)@PnR@0'
QES`Olp,FDANSS(Dg15< P9	AClIp,FOR'1K'KU'@:@
@@@.  . 9U1U1@@}Rj`:=^)DX `@p 5,&u1+A)]@. 9U@ . 9U@b @ [% V-/l@!`n-I `:=`)D$ . 9U` . 1U`@"
`'
'5,sb1<.=,uLt4,ub1<	l=u,Fu@*@#,D< @$@@%nR{@&''8'[mm;mm;mm;mm;mm;mm;mm;mm;mm;mm;mg;@@ 'nR.```@(E!''(/`9lq,SiMASlIp,Fu1+	Kls\,ub@@ )O@*O@+nR[@,#'g3K'KADW# 0Elo6,6AElX M9L`MLg3,6TTL'5,6TN
MT1lIX'[	LlX [BOIR0SO0lIX'[		NSCC6
4GAi@-nRH@@#;`$D/!#D-!`@.O"1,&`-6l	X	K,X]	,=	K,(]X	[) [lX<'78qg=  8 X	,=X	[,\	,=(X]	)= l;X'KxsK' K  X	K,X]	,=	K,(]X	[) [lX<'q<t'<  8 X	,=X	[,\	,=(X]	)= l;X'K1v[' K  X	K,X]	,
	K,(]X	[) [lX<'68k'H  8 X
	,=X	[,\	,=(X]	)=@@ /@@0:6]$DS"@1@2@3# :63:=6P,#Bh ,$Bd@ 4nR @:6V,$B&@53'*'/g8TL0lX	,=X	[,\	,=(X]	)=@@ 6nRA&@7':'/o2;'KR@AE0TCRLEg/K6,6'GlY2,\TTLMS!E'5
,Ni`4C	Nl9X [AREATO'5;,EiE4NY D1Di@8
@9&  & 4,!@&$:=6P,&B
@0:@@;@@<,@=& & 4:6P,!B/0,&B+@0>@@?&26:]6P,&BQ@0@nR	0@@&:6V,"Bo0,%Bm6@A'J1 Y1A	%g5	K,h\p,Fvl*/'2 IT3Cl)2l]v3+1,	)=/';3 YLP3Ig5<	,=31
	K)/['48 N0STCl2lvR31:	K)/['58 5RPU	g5	K,h\p,Fvl*l`9.XA`!g5<	,=hpL,vbll+'7 O0BN2TO';5	K,h\p,Fvl*l`9.hRQl2l	X,h\p,Fvi*@B
@C:6P,"B@@D@@E&:62S6:]6@PF &:64S:6]@G! & :64:=6@PH"!&:64S:6]@I%D+$@J`n-$

:6`"Dr$`@K$''(/';TLg5<	,=hpL,vbi@ LnR#F@Md'J'/l0<,Ci; ;NLSSblo6,6'C	DOB';p'[B3Rl KTN 	`8 8Y 1O Y` 8 T' DE O`8iY@N-@O`}-j `@@:=`,)BuF@P,L@Q.  . 9U1U1@@RBv@PSnRbP`@:
f
,)B-P`'* :`(D>%* :`%DN%`@Tt%''(	,<	K,u\tp	[,q\1,&ti*@U.Dh$@Vm.@Wm.U5A@NP%%RR#QNP%N)R&P(%N3R0P2%N=3R:P<%NG+RDPF%

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