28 Dec
2017
28 Dec
'17
4:28 p.m.
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.