Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site mit-eddie.UUCP
Path: utzoo!watmath!clyde!burl!mgnetp!ihnp4!mit-eddie!rh
From: rh@mit-eddie.UUCP (Randy Haskins)
Newsgroups: net.jokes
Subject: Re: ROT13 example - (nf)
Message-ID: <2631@mit-eddie.UUCP>
Date: Thu, 30-Aug-84 22:28:52 EDT
Article-I.D.: mit-eddi.2631
Posted: Thu Aug 30 22:28:52 1984
Date-Received: Sat, 1-Sep-84 08:17:01 EDT
References: <3001@decwrl.UUCP> <9900292@uiucdcs.UUCP>
Organization: MIT, Cambridge, MA
Lines: 37

DecSystem20 Assembler:

	title	test1
	search	monsym,macsym,psym

str1:	block	100		;storage
str2:	block	100

start:	reset%
	hrroi	a,str1
	movx	b,rd%crf+rd%bel+477	;magic number #17
	hrroi	c,[asciz/Input> /]	;get the input
	rdtty%			;read the titty
	 jfcl
	setz	6,
	dpb	6,a
	movei	6,500
	tlo	6,400000
	setz	10,
	move	7,[point 7,str1]
	movei	11,500
	setz	13,
	move	12,[point 7,str2]
	extend	6,[movst  ttable
		   "	 jfcl				
	hrroi	a,str2
	psout%			;put the string out
	haltf%			;halt
	jrst	@/dev/null

	 end	start

(I deleted the TTABLE, since it was boring.  I didn't
write this, but I modified key instructions for increase
humor value.
-- 
Randwulf  (Randy Haskins);  Path= genrad!mit-eddie!rh