Trailing-Edge
-
PDP-10 Archives
-
k20v7d
-
unsupported/klpcnt.mac
There are no other files named klpcnt.mac in the archive.
TITLE KLPCNT
SEARCH MONSYM,MACSYM
.REQUIRE SYS:MACREL
PDL: BLOCK 50 ;PUSH DOWN LIST
ARGBLK: 107
7,,3
BLOCK 30
ARG: BLOCK 1
INBUF: BLOCK 5
MAIBUF: BLOCK 177 ;MAINTENACE DATA BLOCK
MSG0: ASCIZ/
FUNCTION: /
MSG1: ASCIZ/
CHN,,FNC: /
MSG2: ASCIZ/
NODES: /
MSG3: ASCIZ/
COUNTER: /
MSG3A: ASCIZ/
UCODE #: /
MSG4: ASCIZ/
A ACKS: /
MSG5: ASCIZ/
A NACKS: /
MSG6: ASCIZ/
A NRSP: /
MSG7: ASCIZ/
B ACKS: /
MSG10: ASCIZ/
B NACKS: /
MSG11: ASCIZ/
B NRSP: /
MSG12: ASCIZ/
DATA DISG: /
MSG13: ASCIZ/
PACKETS TRANS: /
MSG14: ASCIZ/
PACKETS RECV: /
MSG15: ASCIZ/
CBUS PAR ERR: /
MSG16: ASCIZ/
D PLIPE ERR: /
MSG17: ASCIZ/
EBUS PAR ERR: /
MSG20: ASCIZ/
CBUS AV TOUTS: /
MSG21: ASCIZ/
SPUR XMIT: /
MSG22: ASCIZ/
XMIT TIMOUTS: /
MSG23: ASCIZ/
CRC ERRORS: /
MSGDSP: MSG0
MSG1
MSG3
MSG3A
MSG4
MSG5
MSG6
MSG7
MSG10
MSG11
MSG12
MSG13
MSG14
MSG2
MSG23
MSG15
MSG16
MSG17
MSG20
MSG21
MSG22
BLOCK 5
START0: MOVE 17,[-47,,PDL]
START: HRROI 1,[ASCIZ/
KLIPA PORT COUNTER INFORMATION IN OCTAL /]
PSOUT
CNTFN1: MOVE 1,[ -26,,ARGBLK]
DIAG
ERJMP ERR
CNTOUT: MOVE 4,[-25,,0]
CNTOU1: MOVE 1,MSGDSP(4)
PSOUT
MOVEI 1,.PRIOU
MOVE 3,[10]
MOVE 2,ARGBLK(4)
NOUT
ERJMP ERR1
AOBJN 4,CNTOU1
HALTF
ERR:
ERR1:
ERR0: CALL JSERR0
HALTF
END START0