;
|
;
|
; serial.s -- the serial line interface
|
; serial.s -- the serial line interface
|
;
|
;
|
|
|
;***************************************************************
|
;***************************************************************
|
|
|
.set ser0base,0xF0300000 ; serial line 0 base address
|
.set ser0base,0xF0300000 ; serial line 0 base address
|
.set ser1base,0xF0300010 ; serial line 1 base address
|
.set ser1base,0xF0301000 ; serial line 1 base address
|
|
|
.export serinit ; initialize serial interface
|
.export serinit ; initialize serial interface
|
|
|
.export ser0inchk ; line 0 input check
|
.export ser0inchk ; line 0 input check
|
.export ser0in ; line 0 input
|
.export ser0in ; line 0 input
|
.export ser0outchk ; line 0 output check
|
.export ser0outchk ; line 0 output check
|
.export ser0out ; line 0 output
|
.export ser0out ; line 0 output
|
|
|
.export ser1inchk ; line 1 input check
|
.export ser1inchk ; line 1 input check
|
.export ser1in ; line 1 input
|
.export ser1in ; line 1 input
|
.export ser1outchk ; line 1 output check
|
.export ser1outchk ; line 1 output check
|
.export ser1out ; line 1 output
|
.export ser1out ; line 1 output
|
|
|
;***************************************************************
|
;***************************************************************
|
|
|
.code
|
.code
|
.align 4
|
.align 4
|
|
|
serinit:
|
serinit:
|
jr $31
|
jr $31
|
|
|
;***************************************************************
|
;***************************************************************
|
|
|
.code
|
.code
|
.align 4
|
.align 4
|
|
|
ser0inchk:
|
ser0inchk:
|
add $8,$0,ser0base
|
add $8,$0,ser0base
|
ldw $2,$8,0
|
ldw $2,$8,0
|
and $2,$2,1
|
and $2,$2,1
|
jr $31
|
jr $31
|
|
|
ser0in:
|
ser0in:
|
add $8,$0,ser0base
|
add $8,$0,ser0base
|
ser0in1:
|
ser0in1:
|
ldw $9,$8,0
|
ldw $9,$8,0
|
and $9,$9,1
|
and $9,$9,1
|
beq $9,$0,ser0in1
|
beq $9,$0,ser0in1
|
ldw $2,$8,4
|
ldw $2,$8,4
|
jr $31
|
jr $31
|
|
|
ser0outchk:
|
ser0outchk:
|
add $8,$0,ser0base
|
add $8,$0,ser0base
|
ldw $2,$8,8
|
ldw $2,$8,8
|
and $2,$2,1
|
and $2,$2,1
|
jr $31
|
jr $31
|
|
|
ser0out:
|
ser0out:
|
add $8,$0,ser0base
|
add $8,$0,ser0base
|
ser0out1:
|
ser0out1:
|
ldw $9,$8,8
|
ldw $9,$8,8
|
and $9,$9,1
|
and $9,$9,1
|
beq $9,$0,ser0out1
|
beq $9,$0,ser0out1
|
stw $4,$8,12
|
stw $4,$8,12
|
jr $31
|
jr $31
|
|
|
;***************************************************************
|
;***************************************************************
|
|
|
.code
|
.code
|
.align 4
|
.align 4
|
|
|
ser1inchk:
|
ser1inchk:
|
add $8,$0,ser1base
|
add $8,$0,ser1base
|
ldw $2,$8,0
|
ldw $2,$8,0
|
and $2,$2,1
|
and $2,$2,1
|
jr $31
|
jr $31
|
|
|
ser1in:
|
ser1in:
|
add $8,$0,ser1base
|
add $8,$0,ser1base
|
ser1in1:
|
ser1in1:
|
ldw $9,$8,0
|
ldw $9,$8,0
|
and $9,$9,1
|
and $9,$9,1
|
beq $9,$0,ser1in1
|
beq $9,$0,ser1in1
|
ldw $2,$8,4
|
ldw $2,$8,4
|
jr $31
|
jr $31
|
|
|
ser1outchk:
|
ser1outchk:
|
add $8,$0,ser1base
|
add $8,$0,ser1base
|
ldw $2,$8,8
|
ldw $2,$8,8
|
and $2,$2,1
|
and $2,$2,1
|
jr $31
|
jr $31
|
|
|
ser1out:
|
ser1out:
|
add $8,$0,ser1base
|
add $8,$0,ser1base
|
ser1out1:
|
ser1out1:
|
ldw $9,$8,8
|
ldw $9,$8,8
|
and $9,$9,1
|
and $9,$9,1
|
beq $9,$0,ser1out1
|
beq $9,$0,ser1out1
|
stw $4,$8,12
|
stw $4,$8,12
|
jr $31
|
jr $31
|
|
|
