Код:
.TITLE ITEST -- DL(V)11 INTERRUPT TEST
.IDENT /V01.00/
;CCR == 177746
FMISS == 14
TKS == 177560
TKB == TKS+2
TPS == TKS+4
TPB == TPS+2
CSR == 177564
VEC == 64
;CSR == 176504
;VEC == 304
START:: CLR @#0
CLR @#4
CLR @#10
MOV #2, @#102
MOV #102, @#100
MOV #340,@#16
MOV #KERNL,@#14
BPT
INT0:: MOV #INT1,@#VEC
MOV @SP,R5
MOV #112737,TEST
MOV #0,TEST+2
MOV #CSR+2,TEST+4
MOV #TEST,@SP
RTI
INT1:: MOV #INT2,@#VEC
MOV @SP,R4
MOV #TEST,@SP
RTI
INT2:: MOV @SP,R3
CLR @#CSR
CLR @#CSR+2
SUB #NOPS,R3
SUB #NOPS,R4
SUB #NOPS,R5
ASR R3
ASR R4
ASR R5
MOV R5,R1
CALL PRINT
MOV R4,R1
CALL PRINT
MOV R3,R1
CALL PRINT
CALL OUCHR
TSTB @#TKS
BPL .-4
TSTB @#TKB
BR KERNL
PRINT:: CLR R2
10$: CLR R0
DIV #10.,R0
ADD #'0,R1
MOV R1,-(SP)
INC R2
MOV R0,R1
BNE 10$
20$: MOV (SP)+,R0
CALL OUCHR
SOB R2,20$
MOV #15,R0
CALL OUCHR
MOV #12,R0
OUCHR:: TSTB @#TPS
BPL .-4
MOVB R0,@#TPB
RETURN
KERNL:: RESET
.IF DF CCR
BIS #FMISS,@#CCR
.ENDC
MOV #START,SP
MTPS #0
MOV #52737,TEST
MOV #100,TEST+2
MOV #CSR,TEST+4
MOV #NOPS,R0
10$: MOV #240,(R0)+
CMP #100000,R0
BNE 10$
CLR -(R0)
MOV #INT0,@#VEC
MOV #340,@#VEC+2
TSTB @#CSR
BPL .-4
TEST:: .BLKW 3
NOPS::
.END START