RT-11 idle light pattern

[David C. Jenner]

The sources to each release were usually included with the distribution 
so that custom system settings could be sysgened.  The sources are 
uncommented, however.

You could implement this by finding the commented out source in the 
sources and regenerating the system, with the code in the appropriate place.

Dave

On 12/28/17 4:28 PM, Fritz Mueller via cctalk wrote:
> 
> 
>> On Dec 27, 2017, at 8:23 AM, Paul Koning <paulkoning at comcast.net> wrote:
>>
>> ; "A SOURCE OF INNOCENT MERRIMENT!"
>> ;	- W.S. GILBERT, "MIKADO"
>> ; "DID NOTHING IN PARTICULAR, AND DID IT VERY WELL"
>> ;	- W.S. GILBERT, "IOLANTHE"
>> ; "TO BE IDLE IS THE ULTIMATE PURPOSE OF THE BUSY"
>> ;	- SAMUEL JOHNSON, "THE IDLER"
>>
>> 10$:	DEC	(PC)+		;THE RT-11 LIGHTS ROUTINE!
>> 20$:	1
>> 	BNE	14$		;NOT TOO OFTEN
>> 	ADD	#512.,20$	;RESET COUNT, CLEAR CARRY
>> 16$:	ROL	13$		;JUGGLE THE LIGHTS
>> 	BNE	11$		;NOT CLEAR YET
>> 	COM	13$		;TURN ON LIGHTS, SET CARRY
>> 11$:	BCC	12$		;NOTHING FELL OFF, KEEP MOVING
>> 	ADD	#100,16$	;REVERSE DIRECTION
>> 	BIC	#200,16$	;ROL/ROR FLIP
>> 12$:	MOV	(PC)+,@(PC)+	;PUT IN LIGHTS
>> 13$:	.WORD	0,SR
>> 14$:	MOVB	#MXJNUM/2+200,INTACT ;DO A COMPLETE SCAN
>> EXUSLK:	BR	EXUSER		;BACK INTO LOOKFOR LOOP
> 
> Very cool — thanks for the snippet, Paul!
> 
> I’ve seen mention in various RT-11 manuals that the sources were made available by DEC at the time (perhaps only on fiche?)
> 
> I would love to read through the V4.00 sources, if anybody knows where I could track them down?
> 
>     cheers,
>       —FritzM.
> 
>   
> 
> 
> 
>