PMC-Sierra, Inc.
PM4541T1XC-EVBD
TELECOM STANDARD PRODUCT
PMC-920314
ISSUE 2
T1XC EVALUATION DAUGHTERBOARD
( Define XMIT DMW on given channel )
: TDMW ( CHAN --- )
20 TWIND ;
( Define word to indirectly write RPSC )
: RWIND ( ADDR DATA ---
)
RPSC 3 + C!
( PUT DATA IN IND DATA REG )
7F AND
RPSC 2+ C!
IDL
( SET R/WB BIT LOW
( PUT ADDR IN IND ADDR REG )
)
BEGIN RBUSY? WHILE REPEAT ;
( Define word to indirectly READ RPSC )
: RRIND
80 OR
( ADDR --- DATA
)
)
( SET R/WB BIT HIGH
RPSC 2+ C!
IDL
( PUT ADDR IN IND ADDR REG )
BEGIN RBUSY? WHILE REPEAT
RPSC 3 + C@ ;
( Define word to initialize RPSC to all zeros )
: RINIT
49 1 DO I 0 RWIND LOOP ;
( Define XMIT DMW on given channel )
: RDMW
20 RWIND ;
( CHAN --- )
( Define programmable idle loop )
: PIDL
( DELAY --- )
0 DO LOOP ;
: POLL
( --- )
( Read PMON data regs. Continues in a loop
( until any key on the keyboard is pressed.
)
)
( Data is displayed on screen in tabular form )
( and is updated approx every second.
( Data changes dynamically.
)
)
CLS
0
BEGIN
1B EMIT 5B EMIT 48 EMIT
DUP ." TIME=" DECIMAL . HEX
1+
RDPERF
IDL IDL IDL IDL F7F PIDL
?TERMINAL
29