PMC-Sierra, Inc.
PM6541 E1XC-EVBD
TELECOM STANDARD PRODUCT
PMC-930917
ISSUE 1
E1XC EVALUATION DAUGHTERBOARD
ESIGX 0 AD
80 40 DO
DUP
I SWAP 1A WRIND
LOOP
DROP
;
( ## init PCSC ## )
PCSCFILLIND
:
( --- )
( put incrementing idle code in PCSC )
1 PIND
41 20 DO
PCSC 0 AD I SWAP
0 WRIND
LOOP
60 41 DO
PCSC 0 AD I SWAP
I F AND 10 OR WRIND
LOOP
PCSC 0 AD
40 SWAP 0 WRIND
PCSC 0 AD 50 SWAP 0 WRIND
;
:
POLLPMON
( --- error )
( print any non-zero contents )
( "error" = 0 if all zero counts; 1 otherwise )
PMON 0 AD
DUP 1+ RD 7F AND DUP
( read FER )
2 PICK 2+ @ >< 3FF AND DUP ROT OR ( two byte read of FEBE )
3 PICK 4 + @ >< 3FF AND DUP ROT OR ( two byte read of CRCE )
4 ROLL 6 + @ >< 1FFF AND DUP ROT OR ( two byte read of LCV )
32