RT-11 idle light pattern
David C. Jenner
classiccmp at earthlink.net
Thu Dec 28 21:57:49 CST 2017
The sources to each release were usually included with the distribution
so that custom system settings could be sysgened. The sources are
You could implement this by finding the commented out source in the
sources and regenerating the system, with the code in the appropriate place.
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?
More information about the cctalk