|
@vb!NETIO
X305,	AND X70
IFNZRO X70-305 <MOVE IT>
	TAD (CDF
	DCA BUFCDF	/BUFFER CDF
	TAD I NETIO
	DCA RORW	/SAVE FUNCTION
	TAD I NETIO
	RAL
	AND C7600
	CMA IAC
	DCA WDCNT	/T~+&@7H<b!<fCGTcDDbDf/zC.GbGfC.CHdG"@U`nGfC
.

nUG!<f@>G<"GnCC&t/@@(@=pMp]pmp
?AUWWb8@&

7@
7W~"}JDn9@&@
7@@C>>&Xv2.p?zf?v~R x:2<SbTRfTTC
(ol<"=;b>Vb
TcXT

n
XhR /TTAXTR


nXpC+D"CEbGG1H"GIbGK7L"KMbGO=P"OQbG=$.<=&p>d$. WWdjzxCTTW"EW&DC&G[JWI"WHbGKdbW"MW&LK&OIJWQ"WPbOIjpGkTTC
(o
. zR .Rj(?wr9

,@

`*]Kk]	%n@Ynqn1nDVnfvn!-9EOYclt|
#(-27;?BFILORUWZ\^`bdeghjklnoptpwpyp{p{p|p}p}p(
,C~dc;Q(E&g(/b&Za2wci
W`&_t&
5hZ^
ri

t9r
00pG@$`~k\t$(XtkpY0#ks#fWtkpk]tS0$k\t$(XtkpY0#ks#fWtkpk]tSkp $',SkpSkp $',Skp~$$'0$03<~'!G'!G'!G'!G(dG+-d'(+d'd0(000'823'802 t hp0th'0rc'p()000000\+-\(+Xt-`$$&'$&Xthp`$h\t$f]tdvS`$k\t$(XtkpY0#ks#fWtkpk
tS0$k\t$(XtkpY0#ks#fWtkpk]tSkp $',SkpSkp $',Skp~$$'0$03<~'!G'!G'!G'!G(dG+-d'(+d'd0(000'823'802 t hp0th'0rc'p()000000\+-\(+Xt-`$$&'$&Xthp`$h\t$f]tdvY0`/kWt/r@6 ]P/u#/rWt4 4S!+2W+0(0\(k@m`(0(+Xtmm(mY0
o]&i@m]P+o&iWtmm)m[@(0\(k@m`(0(+Xtmm(mY0/kWt/r@6 ]P/t#/rWt4 4S!+2W+0(0\(k@m`(00oW.U !e	P(m`(e`!0!fZu)m]iZ(sZP(!G@fpW $sk\tk\tkYs`/kWt/r@6 ]P/u#/rWt4 4S!+2W+0(0\(k@m`(0(+Xtmm(mY0+o]&i@m]P+o&iWtmm)m[
@(0\(k@m`(0(+Xtmm(mY0/kWt/r@6 ]P/t#/rWt4 4S!+2W+0(0\(k@m`(00oW.U !e	P(m`(e`!0!fZu)m]iZ(sZP(!G@fpW 0$hv+0S`$k\t$(XtkpY0#ks#fWtkpk]tS0$k\t$(XtkpY0#ks#fWtkpk]tSkp $',SkpSkp $',Skp~$$'0$03<~'!G'!G'!G'!G(
G+-d'(+d'd0(000'823'802 t hp0th'0rc'p()000000\+-\(+Xt-`$$&'$&Xthp`$h\t$f]tdv$@G$L"p+0
&\h "yI$\"p+0G&Lh &@+ E$@)X!y)-`$Xaz-I&P)Xa{$E$@-&@-G$L"p+0
&\h "yI$\"p+0G&Lh &@+ E$@)X!y)-`$ih-I&P)mh$Q$-%-&$p2 (Lj0$zI&\$p2 (lj0Z$zj0G@+&+
.P(PZ"p+G&L+Z"{(P
(]+&Wl-)50 ,-,dk)Xaz&0.&d{Sc{)SZzb0b{(bza Qaz$@X!p-X$|-$L-G$L"p+0
&\h "yI$\"p+0G&Lh &@+ E$@)X!y)-`$Xaz-I&P)Xa{$E$@-&@-G$L"p+0
&\h "yI$\"p+0G&Lh &@+ E$@)X!y)-`$ih-I&P)mh$Q$-%-&$p2 (Lj0$zI&\$p2 (lj0Z$zj0G@+&+
.P(PZ"p+G&L+Z"{(P
(]+&Wl-)50 ,-,dk)Xaz&0.&d{Sc{)SZzb0b{(bza Qaz)-`0EiMN$|Xd{X$|d{Q-|X--P-m2O0`-+p-p$ X$zG@`+dk(G+@d0M`(cjS][#G#IM``)Sc[&G)@c0KP$ $j+dk(G+@d0`$ $j+dk(+`d0p+Q$|Xd{X$|d{Q-|X-|-P-m2O0`-0p_{_z0G@$ $j+d{(G+@d0`!E!I&E!I 
!IGI&j$G&@ PIY&IZ$KPKPi_j_j_zN$|Xd{X$|d{Q-|X--P-m2O0`-+p-p$ X$zG@`+dk(G+@d0M`(cjS][#G#IM``)Sc[&G)@c0KP$ $j+dk(G+@d0`$ $j+dk(+`d0p+Q$|Xd{X$|d{Q-|X-|-P-m2O0`-0p_{_z0G@$ $j+d{(G+@d0`!E!I&E!I 9!IGI&j$G&@
 PIY&IZ$KPKPiGcJ+LLD
SsN
!qM
D$!B,@aoS3@
#@~&:,6<DtSs@1''
,:D,@
/LA CLL		/DUMMY PROG TO PROTECT AGAINST DUMMIES
	TAD	MESSP
	DCA	AUTO10
	TAD I	AUTO10
	TLS
	TSF
	JMP	.-1
	SZA CLA
	JMP	STPROT+3
	HLT
MESSP,	MESSP
	"?;207;"?;207;"?;207;"?;207
	215;212;"L;"O;"A;"D;" ;"O;"R;" ;"E;"N;"T;"E;"R
	" ;"P;"R;"O;"G;"R;"A;"M;" ;"B;"E;"F;"O;"R;"E
	" ;"S;"T;"A;"R;"T;"I;"N;"G;0


$$$$  END PDP-8/I HARDWARE SIMULATOR  $$$$

 F.`&
Cf
'8r /" t

, F.KC
ERC	 OMN
CL3`
VR1
`6N 
O	3 TNO PT0B# AU?@	`A5:	`D
E3:	`O@	DA0lo0,`O @
`NT8G5 O @CN 5HNER`1A
I	8N	S8TH
S	PRQE	
0CNTMMIOR8 Y4z@IGLN
VTON`	a@4TU0E`C XQS%BDNT
#IT5R8A		8R2C 	CMA38N`!VR1WBDMPIHG1L* @BxDNaINCBDIU P#	NSCMA38O8N@1IOR8NB`C
LSI R 5LE Q$BDLIU#0BDC
L3TOB8DVC@CN5DCTIR@SCx8RIN 8`(HC TO #)DTT04
	PRCMM
D80	
T@	DB
AD0RDOPTAPOD

$0A@

PC;?D]GJ]LO]RV][_]d
RR0@aA@A4P 	CA@6#0UU
T@EDMCCPCBSREBR1 y@sv]xz]}
^AdTUCO3SQESR@T@5P@VD

n9AA	L@
<9AABD	}"A	||
<o	<|>@c
 O?d>AA&{A'AzBAAtyA'0x }x }9+]rwvXu#J
ntc^^b(_z@sbazrKqKpKo<n0mc8K 	B],x^XVGM+*ngL?NIB# p|~ty((j 2L@~(P&f'BhcbD`b|'d6CDfLfkbvuy-"H?jz __"(/c&B&Pn"|sYspyFZ~F^Y([zE /F-}r b (ow8/F~-Fn?@.k?Je$Pb|^Kk}oHzjw&okDkD/aoe?"Dn8,|HpHB|
(8 0&0(*00>0	*0
-<(*"8
<(*)8
>(* 0!*0j%U]"k!|QT+ois\idi[6mDe["u]]idM
,lr@rdJ`0*w) J
n
`(r
Hnu0SURE TRANSFER OK
00267  2200          ISZ NETIO       /NORMAL RETURN
00270  7402  LEAVE,  HLT             /CDF CIF RETURN
00271  5600          JMP I NETIO     /RETURN TO CALLING PROGRAM
00

Note: Lines longer than 256 characters were wrapped