PMC-Sierra, Inc.
PM4541T1XC-EVBD
TELECOM STANDARD PRODUCT
PMC-920314
ISSUE 2
T1XC EVALUATION DAUGHTERBOARD
: DBIT
( bitfld --- )
0> IF
1
ELSE 0 THEN . ;
: .CR . CR ;
( Print in Right Justified format using 5 character wide field
)
: .RCR 5 .R CR ;
( VT100 clear screen by sending )
( ESC[H and ESC[J
)
: CLS
1B EMIT 5B EMIT 48 EMIT
1B EMIT 5B EMIT 4A EMIT ;
( --- )
: HDLC ( --- )
( Read RFDL status and data regs )
( waiting for interrupt. When INT)
( recv'd, echo data to screen and)
( display status bits. Continues )
( in a loop until any key on the )
( keyboard is pressed.
CR
)
02 RFDL ENABLE C! ( enable RFDL )
01 RFDL C!
BEGIN
RFDL ENABLE C@ 01 AND 0> IF
RFDL DATA C@ DUP ." data="https://pdf-html.ic37.com/pdf1/p00067/html/PM4541_353513/ U.
." (" EMIT ." ) "
RFDL STATUS C@ DUP
." OVR=" 40 AND DBIT DUP
." FLG=" 20 AND DBIT DUP
." EOM=" 10 AND DBIT DUP
." CRC=" 08 AND DBIT
." NVB=" 07 AND DECIMAL .CR
HEX
THEN
?TERMINAL
UNTIL
SCDR C@ DROP ( remove key pressed )
( from uP input reg
00 RFDL C! ; ( disable RFDL
)
)
: RDPERF
( --- )
( Generates a LCLK strobe to PMON )
27