PMC-Sierra, Inc.
PM6541 E1XC-EVBD
TELECOM STANDARD PRODUCT
PMC-930917
ISSUE 1
E1XC EVALUATION DAUGHTERBOARD
PCSC 0 AD TSB !
1 PIND
6 2 DO
10 0 DO
J 10 * I + TSB @
RDIND 3 .R
LOOP
CR
LOOP
;
( ### INTERRUPT HANDLING ### )
:
GETINT ( data int --- data/2 int/2 < data mod 2> int mod
2)
( data returned only if int mod 2 = 1 )
2 /MOD SWAP DUP 0>
IF ROT 2 /MOD
3 -ROLL SWAP
ELSE ROT 2/ 2 -ROLL
THEN
;
:
INT_HANDLE
( --- )
( ** FRMR ** )
FRMR 5 AD DUP RD
DUP 0>
IF
." TIME = " DECIMAL T @ . HEX CR
SWAP 2+ RD SWAP
GETINT 0> IF ." CRCE" CR DROP THEN
GETINT 0> IF ." FEBE" CR DROP THEN
GETINT 0> IF ." AIS = " . CR THEN
GETINT 0> IF ." RED = " . CR THEN
GETINT 0> IF ." TS16AISD = " . CR THEN
GETINT 0> IF ." AISD = " . CR THEN
GETINT 0> IF ." RRMA = " . CR THEN
GETINT 0> IF ." RRA = " . CR THEN
THEN
DROP DROP
30