File EXTERF.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   3O@SICODSICSQDSNCSTNMDO100L FX"IN%
AP@E@`Pp@P@@P@p	Pp	T	Xp	\	hp	p
L@wZ!
P~!(,s" 0$L@GLM
`ARPWPESRPLGSNCSER EC ECL@IA@O
@CDCBCCQCLCCCED X	2E	EEEIERHR@@HRGTPTNI4NB4PUE@RPYCLC@ C	0	ES
TCTC@L0CL@@DS@20TN@HEF0APC0L@PDpIA@@@@@7
`@8
@6
`@	`8 6#0
`:0T0ADN"`@
`, j"`@"'	(`O@P3XNXSRD()H UDMR0`1ji)@
`, "`F@0@@0!B2 @@!	*i@@0@@0@@?/:
U0;D)"0?D%"@0
@0#@#H /9Z#0#,1BF 0,HBB@ 0@@0#@@#5/9wP#0#6Dc"05D_"@0@0#@#8 /9#0#,2B00,8B|@ 0@@/:(\09D#@/I@@/O\@ /L@@!/R\@"/@#2!F#0@$2#@%ZU,T#4 @&`8 e#`*F@'g	:)@P(o2:,tb@@ )
,k*0``@*0
@+/9 0,9B@0,/B20@@-6
`@.`5 6#0
`:0T0AD$#`@/9#8,i@@0/!@@10"@@2/@@30@@4ZUBQ24@55#F+`(F`)F

0`9sQ1`1sQ`F`F`F2`9sQ04D$0`9R020 `1~Q120 `)~Q021 `!~Q121 `~Q022 `~Q122 `	~Q`@6/S"%,@/SB,X!#"@7/!3'@8K#@9n$2,&t@*@:2
%@;+*)K#$K#@<!0!@@=0@@>!0!B0@(9R@?"9()B;BSB;@@@91J,tb	l<q	+,qR1,6	lLr5+q3+,IllIMi@@A"0",@B"9F$9"
@C"(9@ DS@@E0,@F0!a$0:(@@G:(D)p$%p$@H0@@I9B{9@@@J:(\@K%@L@M
0!%L0-L@@N
0BQO0BO\@O
0&%1

@P0$@Q$9sD!B51P
@@R$9sE!@%1

@SF&@T$9s&!BO1P
&@0&,GBD@PU$0$,1B*@PVR0BR\@W0
@X9s/SB8,\9sHSBB,R!6%@Y2)%@Z9sB1B6@P[I0BI\@\2SL%,@9sCSL%,!6@P]
H9s
H9s1)Z01ZQ@^
04Dh%@_51D%0@`5SB%,@<SB8,XT%1@a<SB%,@=SB8,Xd%2@b=SB%,@>SB8,Xt%3@c>SB%,@@SB8,X&4@d@&5@e0!&0@f0&1@g5 9w09-w@h259w09wP@i0!A&35 9w09-w@j0!BP4`59w09wP@k0!_&55 9w09-w@l
%@@m%9sBS8%,9AsHSB%,!"@pn%9sB&9sB9Ms@o0SB,\%9s/SB",X#&9?9s19?9s*
02-
@Pp0SB,\%9s/SB",XC&:?9s1:?9s*
02-
@Pq0SB,\%9s/SB",Xc&;?9s1;?9s*
02-
@Pr0 @@s02 9~/S"%,%@1s/S"%,,
9~7SB8,X'9~?1s9~?1s"
0*-
@Pt 0 ,2Bg%`0%,1Bc@`u0@@v029~0S%,9A~2S%,!"I@pw0,2B'@pxT@py659w09wP@z0
@{02 9~/B@p|129~2SB%,9A~0SL%,"x0p9~Q@}02 12 1~89~1~89~!0)-@~0,2BV@pK@00B3@p-'z')@P@@ Z}BArO"%@2!B#@
X@X6TIq	L	6	c),r)		Cifr	i(]	y){b4lgg"&<osi1H@@>_`5$n@G	.+0003
IP,	ORG	.+0003
IPP,	ORG	.+0003
IRACE,	ORG	.+0003
ISEX,	ORG	.+0003
ITON,	ORG	.+0003
ITWO,	ORG	.+0003
IZER,	ORG	.+0003
J,	ORG	.+0003
JFLAG,	ORG	.+0003
JJ,	ORG	.+0003
JKR,	ORG	.+0003
JP,	ORG	.+0003
JPP,	ORG	.+0003
K,	ORG	.+0003
KI,	ORG	.+0003
KR,	ORG	.+0003
K2,	ORG	.+0003
LZER,	ORG	.+0003
PCODE,	ORG	.+0003
PTNUM,	ORG	.+0003
SCODE1,	ORG	.+0003
SCODE2,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0000
	0000
	0000
	0001
	2000
	0000
	0002
	2000
	0000
	0002
	3000
	0000
	0003
	2000
	0000
	0003
	2400
	0000
	0003
	3000
	0000
	0003
	3400
	0000
	0004
	2000
	0000
	0004
	2200
	0000
	0004
	2400
	0000
	0004
	2600
	0000
	0004
	3000
	0000
	0005
	2100
	0000
	0005
	3600
	0000
	0006
	2400
	0000
	0006
	3100
	0000
	0006
	3600
	0000
	0007
	2400
	0000
	0011
	3720
	0000
	0011
	3724
	0000
	0011
	3730
	0000
	0011
	3734
	0000
	0011
	3750
	0000
	0011
	3760
	0000
	0012
	2114
	0000
	0000
	JA	AGE-0025
	0000
	JA	ARR2-3165
	0000
	JA	ARR22-0231
	0000
	JA	DRUG-0014
	0000
	JA	DRUG2-0036
	0000
	JA	IAREA-0003
	0000
	JA	IDIAG-0003
	0000
	JA	MGMT-0003
	0000
	JA	PCODEA-0003
	0000
	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	IFIVE+0000
	0003;2400;0000
	ORG	#G0001
	LDX	0005,0
	#G0002=.
	ORG	IZER+0000
	0000;0000;0000
	ORG	LZER+0000
	6060;6060;4040
	ORG	IBLK+0000
	4040;4040;4040
	ORG	#G0002
	LDX	0006,0
	FLDA	#LIT+0030
	EXTERN	#REW
	TRAP3	#REW
	LDX	0007,0
	FLDA	#LIT+0033
	EXTERN	#REW
	TRAP3	#REW
	LDX	0010,0

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

#G0003,	FLDA	I
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	TITLE-0003,7
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0066
	JLE	#G0003
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0012,0
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0014
	JA	#600+2
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0013,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	0014,0
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0014
	JA	#601+2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IANS
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0015,0
	FLDA	#LIT+0003
	FSTA	IFLAG
	LDX	0016,0
	FLDA	IANS
	FSUB	#LIT+0003
	JNE	#G0004
	FLDA	#LIT+0011
	FSTA	IFLAG
#G0004,	LDX	0017,0

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

#2,	FLDA	#LIT+0003
	FSTA	J

#G0005,	LDX	0021,0
	FLDA	#LIT+0003
	FSTA	JJ

#G0006,	LDX	0022,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	#G0006
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0060
	JLE	#G0005
	LDX	0023,0

#160,	FLDA	#LIT+0003
	FSTA	J

#G0007,	LDX	0024,0
	FLDA	#LIT+0003
	FSTA	K

#G0010,	LDX	0025,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	#G0010
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0113
	JLE	#G0007
	LDX	0026,0
	FLDA	#LIT+0003
	FSTA	J

#G0011,	LDX	0027,0
	FLDA	#LIT+0003
	FSTA	K

#G0012,	LDX	0030,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	#G0012
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0022
	JLE	#G0011
	LDX	0031,0
	FLDA	#LIT+0003
	FSTA	J

#G0013,	LDX	0032,0
	FLDA	#LIT+0003
	FSTA	K

#G0014,	LDX	0033,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	#G0014
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0033
	JLE	#G0013
	LDX	0034,0
	FLDA	#LIT+0003
	FSTA	J

#G0015,	LDX	0035,0

#166,	FLDA	J
	ATX	7
	FLDA	#LIT+0000
	FSTA	IAREA-0003,7
	FLDA	J
	FADD	#LIT+0003
	FSTA	J
	FSUB	#LIT+0036
	JLE	#G0015
	LDX	0036,0
	FLDA	#LIT+0000
	FSTA	KOUNT
	LDX	0037,0
	FLDA	#LIT+0000
	FSTA	ICOUNT
	LDX	0040,0
	FLDA	#LIT+0000
	FSTA	TCOUNT
	LDX	0041,0
	FLDA	#LIT+0000
	FSTA	TKOUNT
	LDX	0042,0
	FLDA	#LIT+0000
	FSTA	JFLAG
	LDX	0043,0
	FLDA	IFLAG
	FSUB	#LIT+0011
	JNE	#G0016
	FLDA^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
<JJ?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 &#Q6URSVO
	TRAP3	#RSVO
	FSTA	PCODE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IA
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	PTNUM
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	EDCLAS
	FLDA	#LIT+0003
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IDIAG-0003,7
	FLDA	#LIT+0006
	ATX	6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IDIAG-0003,6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IAGE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	ISEX
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IRACE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	ITON
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IFIELD
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IBIO
	FLDA	#LIT+0011
	FSTA	I

#G0022,	FLDA	I
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IDIAG-0003,7
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#LIT+0017
	JLE	#G0022
	FLDA	#LIT+0003
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	MGMT-0003,7
	FLDA	#LIT+0003
	FMUL	#LIT+0011
	FADD	#LIT+0003
	ATX	6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,6
	FLDA	#LIT+0006
	FMUL	#LIT+0011
	FADD	#LIT+0003
	ATX	5
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,5
	FLDA	#LIT+0003
	FMUL	#LIT+0011
	FADD	#LIT+0006
	ATX	4
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,4
	FLDA	#LIT+0006
	FMUL	#LIT+0011
	FADD	#LIT+0006
	ATX	3
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DRUG-0014,3
	FLDA	#LIT+0003
	FMUL	#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	0066,0
	FLDA	EOF
	FSUB	#LIT+0000
	EXTERN	#NE
	JSA	#NE
	FSTA	`H@EF#{\JZBB]LAu, Z@PR{Bt`UTUB,J-- 
 P   00L 0
  H  H @``@Pp@P	P	Tp
L@`Z
%;P(,;PB.0@,-,]BJBAP

HAHAHA7LH8HA9L@@@@@@&
`@
@	:*N.0.N.@
L.B2.AJ^H@B,@:(*Bbb[bb@`
:(\@'D".@!*t./t.@`s-</:0`+D|.@:`'D/:(`'D/R`I``@8/2,&t@*@/'g,/o;2<8<loK`TDNQ OPMP 'H	,=/'ER8D`1B3R`l1(XL	i<5,6AS`lp1,&ql*o3;,TiTL0
E#`lI'EN-'	,l[p,FTTLAN!SS1-'	)=@ @`s->/
:0`+D$/R`I``@~/'g,/o;2<8<loK''8p<'U4MR0`FcTg l`9l5,GiCTL 	NQ Xlv l;5,FG8TL0 	GE4`'H	)=@`s- `@5 '(QE`1Olp,DiAN!SS2Dg5 KP	A4lp,OiR'T1<'5
S@@ @@@@@@. .9Z1Z@`-o `@
@:B`,)B]@u5
,ub1A=)@P.9Z1@@ .9Z1@@Bg@ [	R[/V@@!sRN`
@:Bf,)B).9Z .1Z``@"e ''(5,6s1+K.,\ut@4,6u1+	Klu\,ub@@ #,,BA@$,@%`s-!`@&!''(8='m;mm;mm;mm;mm;mm;mm;mm;mm;mm;mm;g@:@'`s-3!`@(J''/`l
q,VSMA4lp,ub1<	l=s,Fu@*@)T!@*T!@+`s-`!`@,(!'g,3<'0ADW 3Elo6;,AiElX [ML`MLg3,TiTL0'5,TiNM3TlX'	1LlX B9OI#RSOlX'	1	5NC;Cc
GAAi)@-`s-M!# ;,$B4,#B2@.T1*,`i-6HlX	,=X	[,\	,=(X]	)= l;X'K7qg [  X	
,X]	,=	K,(]X	[) [lX<'x<s'<  8 X
	,=X	[,\	,=(X]	)= l;X'KqtK' K  X	K,X]	,=	K,(]X	[) [lX<'1=v'<  8 X	,=X	[,\	,=(X]	)= l;X'K6k'   X	K,X]	,=	K,(]X	[)@Z@/@0:;P,$BX@ 1@@2@@3#:;3S:;]#Dm"$Di"@4`s-"":;`$D"`@5
8"''(/g;TLl	X	K,X]	,=	K,(]X	[)@Z@6`s-F"`@7#''(/o;2<'4RAETCL Eg4/6;,'hGl2,TITL0MSE'A5,6N`C@	NSlX A9REHATO'#5,6EENAY cDDi@8@@9& &4,<!& $:;]&D#@:
@;@<@@=&&4:;]!D4#&D0#@>

@?& 2;:;]&DV#@@`s-#& :;`"Dt#%Dr#`@A$'1( Y3A	gP5<	,=hpL,vbl/('28 I3TC2l2lvR31:	K)/['38 Y0LPI1g5	K,3X1,	)=/';4 NSTQCl)2l]v3+1,	)=/';5 RQPU	gP5	,=hpL,vbll+`.A`g5	K,h\p,Fvl*l'87 OBNT O'#5<	
=hpL,vbll+`.Rl2l]	,hpL,vbi@ B@@C:;]"D$@D
@E& :;2;=:;]@F & :;4:=;@PG! &:;4S:;]@H"!& :;4:=;@PI,%B0@@JsR	@@:;V,"BwF@K'J'/'8TL0gK5	K,h\p,Fvi*@L`s-($`@Mi$''(/l;0,FC; N0LSSl)o6;,'hC	DO
#p='3BR1l T9N 8	` Y O (Y`  'H D9E hO`i@N-@@ORo
`:B^)Dz$`@P,@@Q. .9Z1Z@R{%@S`s-g%`:B`)D2%'@*:
V,(BCP@*:
V,%BSV@Ty'Z'	,L	,=ut@p=	,=q1J,tbi@ U,.Bm@@Vr@`Wr`S\SRP%"%(%S"QSP.%+%-QSP8%5%7QSPB%3?%AQSPL%+I%KP@

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