On 28/05/2016 11:27 AM, Paul Anderson wrote:
Thanks Lionel,

You just helped me start a new list!


Hi Paul, and others
You have stimulated me to drag out a couple more useful programs - basic stuff, I used them to demo to students, and get them started. Also the practical side to check console printers and screens. I have retired, and left these systems behind, but they were marvellous gear.

                     CONSOLE OUTPUT PROGRAM
                     ----------------------
012737  000104  177566  A:      MOV #104, OUTPUT
012700  100000                  MOV #100000, R0
005300                  B:      DEC R0
001376                          BNE B
000770                          BR A

THIS PROGRAM OUTPUTS A CHAR TO THE CONSOLE. THE REGISTER
CAN BE CHANGED TO TEST ANOTHER DEVICE.

                    KEYBOARD ECHO TEST
                    ------------------
105737  177560       LOOP:       TSTB @#177560
100375                           BPL LOOP
013700  177562                   MOV INPUT,R0
010037  177566                   MOV R0,OUTPUT
000770                           BR LOOP

THIS PROGRAM WAITS FOR A KEY DOWN, THEN OUTPUTS IT BACK TO
THE TERMINAL PRINT BUFFER.

                   FULL DISPLAY EXERCISER
                   ----------------------

013700  177562           START: MOV @#177562,R0
012701  000124                  MOV #80,R1
105737  177564               A: TSTB @#177564
100375                          BPL A
010037  177566                  MOV R0,@#177566
005301                          DEC R1
001371                          BNE A
105737  177564               B: TSTB @#177564
100375                          BPL B
012737  000015  177566          MOV #15,@#177566
105737  177564               C: TSTB @#177564
100375                          BPL C
012737  000012  177566          MOV #12,@#177566
000750                          BR START

THIS PROGRAM MONITORS KBD IN AND REPEATS THE CHARACTER TO
THE SCREEN UNTIL THE NEXT KEY IS PRESSED.

TO TEST LA36 ETC LINE 2 READS 012701  000204   MOV #132, R1

               TO DISABLE CACHE - SLOWS PROGRAM DOWN
               -------------------------------------
012737  000014  177746          MOV #14, CCR
000137  XXXXXX                  JMP @ A ( XXXXXX IS A: ADDRESS)

Lionel.

Reply via email to