
Сообщение от
form
Только она как-то по другому называется вроде.
Код:
.SBTTL TERMINAL OUTPUT INTERRUPT SERVICE
.ENABL LSB
.IF EQ TIME$R
TTOINT::MOV R5,-(SP)
MOV (PC)+,R5
PTOBF4:: .WORD TTOBUF+4
JSR R4,TTO2
.ENDC
TABCNT: .WORD 0
FILLC: .WORD 0
CHCNT: .WORD 10
.IF NE TIME$R
TTOINT::JSR R5,$INTEN
.WORD ^C<PR4>&PR7
MOV (PC)+,R5
PTOBF4:: .WORD TTOBUF+4
MOV (PC)+,R4
PTBCNT:: .WORD TABCNT
.ENDC
TTO2: TST (PC)+
SYNC: .WORD 0
BNE 12$
DEC (R4)+
BGT 6$
MOV R4,-(SP)
CLR -(R4)
MOV $ENTRY+TT.NUM,R4
BEQ 1$
JSR R4,TT$$$2(R4)
.WORD TTILCT-.
1$: MOV (SP)+,R4
CMP @R5,2(R5)
BNE 2$
SUB #TTYOUT,@R5
2$: DEC -(R5)
CMP (R5)+,#-1
BEQ 11$
MOVB @(R5)+,@R4
3$: BIC #^C<177>,@R4
CMP (R4)+,#RUBOUT
BEQ 4$
CMP -2(R4),#40
BLT 7$
DEC @R4
BNE 4$
MOV #10,@R4
4$: TST -(R4)
5$: INC -(R5)
6$: MOV @R4,@TTPB
BR 12$
7$: CMP -2(R4),#BS
BNE 14$
INC @R4
BR 10$
14$: CMP -(R4),#TAB
BNE 8$
MOV #40,(R4)+
MOV @R4,-4(R4)
BR 9$
8$: CMP (R4)+,#CR
BNE 10$
CLR -4(R4)
9$: MOV #10,@R4
10$: DEC R4
CMPB -(R4),@#TTFILL
BNE 5$
MOV @R4,@TTPB
CLR @R4
CLR -(R4)
MOVB @#TTNFIL,@R4
INC -(R5)
BR 12$
11$:
.IF EQ PDT$OP
BIC #TPS$MK,@TTPS
.IFF
CLR @TTPS
.ENDC
CLR -(R5)
12$:
.IF EQ TIME$R
BR RTICMN
.IFF
RTS PC
.ENDC
.DSABL LSB