> On Dec 27, 2017, at 8:23 AM, Paul Koning <paulkon...@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.
