Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
uetp/lib/on1.mac
There is 1 other file named on1.mac in the archive. Click here to see a list.
TITLE LOOP 2020 LOOPBACK PORT CONTROL
SEARCH MONSYM,MACSYM
.REQUIRE SYS:MACREL
T1=1
T2=2
T3=3
T4=4
LOOP: RESET
MOVE 17,[IOWD PDLSIZ,PDL] ;SET UP THE STACK
CALL SET ;
MOVEI T1,^D5000 ;WAIT FOR NODE INIT TO HAPPEN
DISMS
CALL SHOW ;DISPLAY STATE OF LOOPBACK
HALTF
;
; HERE TO DISPLAY STATE OF LOOPBACK
;
SHOW: MOVEI T1,.NDFLP ;FIND LOOPBACK PORT
MOVEI T2,ARG ;ARG BLOCK ADDRESS
NODE ;FIND THE PORT
ERJMP JSHLT0 ;FAILURE
SKIPN ARG ;ANY LOOPBACK PORT?
JRST [TMSG <NO LOOPBACK PORT ENABLED
>
RET]
HRROI T1,STRING ;CHARACTER STRING
MOVEM T1,ARG+.BTLID ;SAVE POINTER
MOVEI T1,.BTCPN ;CONVERT TO STRING
MOVEI T2,ARG ;ARG BLOCK
BOOT ;CONVERT IT
ERJMP JSHLT0 ;ERROR?
HRROI T1,STRING ;POINT TO THE STRING
PSOUT ;TYPE IT
TMSG < IS ENABLED FOR LOOPBACK
>
MOVE T1,ARG ;NSP PORT NUMBER
TXNE T1,ND%LPR ;LOOPBACK RUNNING?
JRST [TMSG < AND A SUCCESSFUL NODE INITIALIZATION HAS OCCURED
>
RET]
RET
;
; HERE TO TURN OFF ANY LOOPBACK LINES
;
OFF: MOVEI T1,.NDFLP ;FIND LOOPBACK PORT
MOVEI T2,ARG ;ARG BLOCK
NODE ;FIND THE LOOPBACK PORT
ERJMP JSHLT0 ;ERROR?
SKIPN ARG ;WAS ONE ENABLED?
RET
SETZ T1, ;A ZERO
HRLM T1,ARG ;CLEAR THE STATUS BITS
MOVEI T1,.NDCLP ;CLEAR LOOPBACK PORT
MOVEI T2,ARG ;ARG BLOCK
NODE ;CLEAR IT
ERJMP JSHLT0 ;ERROR?
MOVEI T1,.BTTPR ;TURN THE PORT OFF
MOVEI T2,ARG ;ARG BLOCK ADDRESS
BOOT ;TURN THE LINE OFF
ERJMP JSHLT0 ;ERROR?
RET
;
; HERE TO USE A LINE FOR LOOPBACK
;
SET: CALL OFF ;TURN OFF CURRENT LOOPBACK
HRROI T1,[ASCIZ/KDP_0_1/] ;LINE ID
MOVEM T1,ARG+.BTLID ;SAVE IN ARG BLOCK
MOVEI T1,.BTCLI ;CONVERT TO NSP PORT NUMBER
MOVEI T2,ARG ;ARG BLOCK
BOOT ;
ERJMP JSHLT0 ;ERROR?
MOVEI T1,.BTTPR ;TURN LINE OFF FIRST
MOVEI T2,ARG ;ARG BLOCK ADDRESS
BOOT ;
ERJMP JSHLT0 ;ERROR?
MOVEI T1,.NDSLP ;SET NSP LOOPBACK PORT
MOVEI T2,ARG ;ARG BLOCK
NODE ;
ERJMP JSHLT0 ;ERROR?
MOVEI T1,.VNCBL ;CABLE LOOPBACK
MOVEM T1,ARG+1 ;SAVE IN ARG BLOCK
MOVEI T1,.BTIPR ;SET LINE IN CABLE LOOPBACK
BOOT ;
ERJMP JSHLT0 ;ERROR?
RET
PDLSIZ==20
PDL: BLOCK PDLSIZ
ARG: BLOCK 20
STRING: BLOCK 100
END LOOP