mirror of
https://github.com/livingcomputermuseum/UniBone.git
synced 2026-01-31 13:52:55 +00:00
974aeed8eb
Interrupt and DMA system now handles multiple levels and multiple devices in parallel Interrupt Register changes synced with INTR transaction DL11 and KW11 clock pass the ZDLDI0 diagnostic. Devices can now be enabled and disabled individually.
367 lines
7.0 KiB
Plaintext
367 lines
7.0 KiB
Plaintext
|
|
.title INTR and DMA test
|
|
|
|
; This program tests the DEC DL11 console interface
|
|
; and the INTR and DMA systems.
|
|
; The foreground thread runs in 4 phases:
|
|
; 1.1. print a start message,
|
|
; 1.2. echoes chars typed to the output until ^C is hit
|
|
; Chars 0..7 set the new processor priority level.
|
|
; 1.3 prints an end message and HALTs.
|
|
; 1.4. on CONT it repeats.
|
|
;
|
|
; 2. For INTR test, the 256 vectors 0,4,10,14,..374 each print
|
|
; a string on interrupt.
|
|
; In "Slow" mode, the ISR prints the vector directly
|
|
; (ISR rountine > 100ms)
|
|
; In "Fast" mode, the ISR logs the vector in a list
|
|
; (It can be printed later with "F"
|
|
;
|
|
; As alternative to input over DL11,
|
|
; "keyboard input chars" can be deposited into 7776
|
|
;
|
|
; Contact: Joerg Hoppe / j_hoppe@t-online.de / www.retromcp.com
|
|
|
|
dladr = 177560 ; DL11 console base address
|
|
psw = 177776 ; processor status
|
|
|
|
|
|
; count of automatically generated interrupt vectors
|
|
veccnt = 100
|
|
|
|
; ------- macro to define interrupt vector #<vecidx> ------
|
|
.macro vector vecidx
|
|
.=4*vecidx ; vector #vecidx
|
|
.word isr'vecidx ; new PC of ISR
|
|
.word 340 ; new PSW: priority is max = 7
|
|
.endm
|
|
|
|
; ----- macro to define ISR for vector #n -------
|
|
.macro isr vecidx
|
|
isr'vecidx:
|
|
mov r0,-(sp)
|
|
mov #vecidx*4,r0 ; vector in r0
|
|
call @#doisr ; print message for vector in r0
|
|
mov (sp)+,r0
|
|
rti
|
|
.endm
|
|
|
|
|
|
|
|
|
|
.asect
|
|
|
|
. = 0
|
|
; ---- "veccnt" Interrupt Vectors ---------
|
|
n=0
|
|
.rept veccnt
|
|
vector \n
|
|
n=n+1
|
|
.endr
|
|
|
|
; ---- veccnt ISRs ---------
|
|
n=0
|
|
.rept veccnt
|
|
isr \n
|
|
n=n+1
|
|
.endr
|
|
|
|
|
|
|
|
|
|
; ---- foreground thread ---------
|
|
.=0
|
|
jmp @#start ; easier manual start from 0
|
|
|
|
.=7776
|
|
inchr: .word ; input alternative to DL11
|
|
|
|
.=10000
|
|
|
|
stack = . - 2 ; stack growns down from start
|
|
|
|
start:
|
|
mov #stack,sp ; init stack
|
|
clr @#psw ; clear priority, allow all interupts
|
|
|
|
reset ; disable INTR on all devices
|
|
|
|
clr @#logptr ; default: slow mode
|
|
|
|
; 1. print "Hello" msg
|
|
mov #shello,r1
|
|
call @#puts
|
|
|
|
; test vecnum printout
|
|
; mov #123456,r0
|
|
; call @#isrmsg
|
|
|
|
; 2. echo chars until ^C hit
|
|
1$:
|
|
call @#getc ; wait for char, return in r0
|
|
bic #177600,r0 ; make 7bit: clear bits <15:7>
|
|
cmpb r0,#3 ; break by ^C ?
|
|
beq 9$ ; yes: leave loop
|
|
cmpb r0,#60
|
|
blo 2$ ; char is < '0'
|
|
cmpb r0,#67
|
|
bhi 2$ ; char is > '7'
|
|
movb r0,r2 ; save
|
|
|
|
; key is 0..7: change priority
|
|
mov #sprio0,r1 ; print info
|
|
call @#puts
|
|
movb r2,r0 ; restore digit
|
|
call @#putc ; print level digit
|
|
mov #sprio1,r1
|
|
call @#puts
|
|
; change PSW
|
|
movb r2,r0
|
|
bicb #370,r0 ; ASCII -> integer
|
|
asl r0 ; move level to "priority" field in PSW
|
|
asl r0 ; in bits 7,6,5
|
|
asl r0
|
|
asl r0
|
|
asl r0
|
|
mov r0,@#psw
|
|
|
|
br 1$ ; OK, next char
|
|
|
|
2$: ; -- eval "S", F"
|
|
cmpb r0,#'S
|
|
bne 3$
|
|
mov #sslwmd,r1 ; "slow mode"
|
|
call @#puts
|
|
clr @#logptr
|
|
br 1$ ; OK, next char
|
|
3$: cmpb r0,#'F
|
|
bne 8$ ;
|
|
mov #sfstmd,r1 ; "fast mode"
|
|
call @#puts
|
|
call @#prtlog ; print logged vectors, if any
|
|
mov #logbuf,@#logptr; pointer to biuffer start
|
|
br 1$ ; OK, next char
|
|
|
|
8$:
|
|
call @#putc ; no: echo char in r0 and loop
|
|
br 1$
|
|
|
|
9$:
|
|
|
|
; 3. print "Bye bye" msg and HALT
|
|
mov #sbye,r1
|
|
call @#puts
|
|
halt
|
|
|
|
; 4. loop on CONT
|
|
br start
|
|
|
|
|
|
; ----------------------
|
|
; Common code for all ISRs
|
|
; print vector number in r0
|
|
; called on interrupt level
|
|
|
|
doisr:
|
|
mov r4,-(sp)
|
|
mov r3,-(sp)
|
|
mov r2,-(sp)
|
|
mov r1,-(sp)
|
|
mov r0,-(sp)
|
|
|
|
mov @#logptr,r1
|
|
beq 1$
|
|
; Fast mode: log vector
|
|
mov r0,(r1)+ ; store vector in array
|
|
mov r1,@#logptr ; save updated list pointer
|
|
|
|
br 9$
|
|
1$: ; "Slow mode: print msg
|
|
mov #sisr1,r1 ; "ISR "
|
|
call @#puts
|
|
mov (sp),r0 ; restore vecnum
|
|
call @#putnum
|
|
mov #sisr2,r1 ; "cr lf
|
|
call @#puts
|
|
; make ISR 100ms
|
|
mov #144,r0 ; 100
|
|
call @#waitms
|
|
|
|
9$:
|
|
mov (sp)+,r0
|
|
mov (sp)+,r1
|
|
mov (sp)+,r2
|
|
mov (sp)+,r3
|
|
mov (sp)+,r4
|
|
return
|
|
|
|
|
|
; ----------------------
|
|
; prtlog - print log of isr vectors
|
|
; word list from logbuf to logptr
|
|
prtlog:
|
|
tst @#logptr
|
|
beq 9$ ; ptr 0, slow mode, nothing logged
|
|
mov #logbuf,r2
|
|
1$:
|
|
cmp r2,@#logptr
|
|
bhis 8$ ; end of list reached
|
|
mov (r2)+,r0 ; print vector from list
|
|
call @#putnum
|
|
mov #40,r0 ; print space separator
|
|
call @#putc
|
|
br 1$
|
|
8$:
|
|
mov #scrlf,r1 ; CR/LF
|
|
call @#puts
|
|
|
|
9$:
|
|
return
|
|
|
|
; ----------------------
|
|
; puts - print a string
|
|
; r1 = pointer, r0,r1 changed
|
|
puts:
|
|
movb (r1)+,r0 ; load xmt char
|
|
beq 1$ ; string ends with 0
|
|
call @#putc
|
|
br puts ; transmit nxt char of string
|
|
1$: return
|
|
|
|
|
|
; ----------------------
|
|
; putnum - print the octal number in r0
|
|
numbf0: .blkw 10 ; space to mount number string
|
|
numbf1 =.
|
|
putnum:
|
|
mov r0,-(sp)
|
|
mov r1,-(sp)
|
|
mov r2,-(sp)
|
|
mov r3,-(sp)
|
|
mov r0,r2 ; r2 = shifter
|
|
mov #numbf1,r1 ; r1 = buffer pointer, backwards
|
|
movb #0,-(r1) ; set terminating 0
|
|
; repeat 6 times
|
|
mov #6,r3
|
|
1$:
|
|
mov r2,r0
|
|
; extract lower 3 bits = octal digit
|
|
bic #177770,r0 ; r0 &= 0x07
|
|
add #60,r0 ; r0 += '0'
|
|
movb r0,-(r1) ; write in buffer
|
|
clc
|
|
asr r2 ; shift to next digit
|
|
asr r2
|
|
asr r2
|
|
sob r3,1$ ; loop for all 6 digits
|
|
|
|
call @#puts
|
|
mov (sp)+,r3
|
|
mov (sp)+,r2
|
|
mov (sp)+,r1
|
|
mov (sp)+,r0
|
|
return
|
|
|
|
|
|
; DEC DL11 console I/O
|
|
; ----------------------
|
|
; putc - output a single char
|
|
; r0 = char, r4 changed
|
|
putc:
|
|
mov #dladr,r4 ; set base addr
|
|
movb r0,6(r4) ; char into transmit buffer
|
|
1$: tstb 4(r4) ; XMT RDY?
|
|
bpl 1$ ; no, loop
|
|
return
|
|
|
|
; ----------------------
|
|
; getc - input a single char
|
|
; result in r0, r4 changed
|
|
getc:
|
|
mov #dladr,r4 ; set base addr
|
|
1$: mov @#inchr,r0 ; external DEPOSIT into inchr?
|
|
bne 9$ ; yes: process as input
|
|
tstb (r4) ; else: RCVR DONE?
|
|
bpl 1$ ; no, loop
|
|
mov 2(r4),r0 ; return data
|
|
9$:
|
|
clr @#inchr
|
|
return
|
|
|
|
; ----------------------
|
|
; waitms - wait r0 milli seconds
|
|
waitms:
|
|
mov r1,-(sp)
|
|
|
|
1$: ; -- outer loop
|
|
mov #764,r1 ; 500
|
|
2$: ; -- inner loop: 1ms @ 1MHz
|
|
sob r1,2$ ; 1 cycle,2 us per loop (11/34)
|
|
|
|
sob r0,1$
|
|
mov (sp)+,r1
|
|
return
|
|
|
|
; ---- Test strings, each 256 chars max ---------
|
|
|
|
sisr1: ; start of ISR <vecnum> message
|
|
.ascii /<ISR /
|
|
.byte 0 ; NUL=end marker
|
|
sisr2: ; end of ISR <vecnum> message
|
|
.ascii />/
|
|
.byte 15,12 ; CR, LF,
|
|
.byte 0 ; NUL=end marker
|
|
|
|
|
|
shello:
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /*** Interrupt and DMA test ***/
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /The INTR vectors 0..77 print the vector num./
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /The foreground thread echoes typed chars, ^C HALTs./
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /Chars 0..7 set the new processor priority level./
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /S = slow mode: ISR prints message (default)/
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /F = fast mode: ISR logs vector, print and clr current log/
|
|
.byte 15,12 ; CR, LF,
|
|
.byte 0 ; NUL=end marker
|
|
|
|
sslwmd:
|
|
.ascii /Slow mode: called ISR prints vector directly/
|
|
.byte 15,12 ; CR, LF,
|
|
.byte 0 ; NUL=end marker
|
|
|
|
sfstmd:
|
|
.ascii /Fast mode: called ISR vectors are logged:/
|
|
.byte 15,12 ; CR, LF,
|
|
.byte 0 ; NUL=end marker
|
|
|
|
sprio0:
|
|
.byte 15,12 ; CR, LF,
|
|
.ascii /CPU priority level now /
|
|
.byte 0
|
|
|
|
sprio1:
|
|
.byte 15,12 ; CR, LF,
|
|
.byte 0 ; NUL=end marker
|
|
|
|
sbye:
|
|
.byte 15,12
|
|
.ascii /Good Bye!/
|
|
scrlf:
|
|
.byte 15,12,0 ; CR, LF, NUL=end marker
|
|
|
|
; .byte 0 ; make addr even
|
|
|
|
; in "fast" mode, ISR calls fill this array with called vectors
|
|
logptr:
|
|
.word ; addr of next logentry to fill. 0 in "slow" mode
|
|
|
|
logbuf:
|
|
|
|
|
|
.end
|