~ National ~ Semiconductor - Al Kossow's Bitsavers

.set iCu imsk,lO *aO
• set icu -csrc,12
-
*aO
.set lCU fprt ,14
- *aO
• set icu mctl,16
-
*aO
• set icu _clptr,18 *aO
• set lCU pdat,19
-
*aO
.set icu
- lps,20
.set *aO
lCU
- pdir,21 *aO
.set lCU cctl,22
-
*aO
• eet icu _clctl,23 *aO
.set lcu_addr,OxfffeOO
.set lrl mod, 17*4
.set irl-off, 17*4+2
.set start2, OxO
.set atartl, OxOa
.set txflag, Ox14
.set sbuf, Oxle
.set rbuf, Ox41e
.set cbuf, Ox61e
.set lntable, Ox81e
#********************** SET UP DISPATCH
start::
bicpsrw $(OxlOO)
movd $OxOc,rO
movd $Ox055555555,rl
addr lntable(sb),r2
movd $OxOc,r3
svc
sprd lntbase,r2
movd isrent,irl_mod(r2)
#
#
#
#
#
#
#
#
#
#
#
#Flrst lCU register address
#
#
#
STARTING LOCATIONS ~*********************
#
#
#
#The followIng are statIc base variables
#used as base pointers. Startl/2 ; flags
#txflaf ; flag, sbuf ; area used to
#store data to be transmitted, rbut
#area used to store received data,
#cbuf ; area used to etore compare
#buffer, intable ; base pointer to the
hnterrupt table
#
TABLE FOR THE 32032 ***.****************
#
#Clear intr's
#Set for monitor svc to move intbase
#from ROM to ram because you have
ito change the address for the
#interrupt service routine.
#Actual svc for move
#Put base addr of intbase In r2
#Put offset ot isr into 1st location
#of dIspatch table
#
#********************* LOAD TRANSMITTER BUFFER (00 to FF) **********************
#
senddat: addr sbuf(sb),rO #RO contains string buffer ptr.
movd $O,rl #Rl contains offset
movb $0, r2 Unlt data reg.
Sbuf100p: movb r2,0(rO) [rl:b] #Load char. to string buffer
addqw l,rl
#Increment offset ptr.
addqw l,r2
#lncrement data
cmpw rl,$256 #Check for 256 chars. loaded
bne sbufloop #Jump back If not done
#
#*********************** LOAD COMPARISON BUFFER (FF TO 00)*********************·
compdat:
Cbufloop:
addr cbuf(sb),rO
movd $O,rl
movb $OxOff,r2
movb r2,0(rO)[rl:b]
addqw l,r1
subb $1,r2
cmpw rl,$256
#
#RO contains pointer
#RI contains offset
Unit data reg.
#Load Char. to compare buffer
#Increment ptr. offset
#Decrement data
#Check for 256 chars. loaded
TL/C/9313-14
»
z
I
~
CD
--'
4-73