mirror of
https://github.com/PDP-10/its.git
synced 2026-01-19 01:27:05 +00:00
47 lines
836 B
Groff
Executable File
47 lines
836 B
Groff
Executable File
TITLE NETRFC BOOTSTRAPPER
|
||
.MLLIT==1
|
||
A=1
|
||
B=2
|
||
Q=16
|
||
|
||
BEG: MOVE A,[SQUOZE 0,IMPBPQ]
|
||
.EVAL A,
|
||
JRST ENDQ
|
||
MOVE Q,A
|
||
NEXTQ: MOVSS Q
|
||
HRRI Q,Q
|
||
.GETLOC Q,
|
||
JUMPL Q,ENDQ ;-1 IS END OF LIST
|
||
MOVSI A,1(Q)
|
||
HRRI A,A
|
||
.GETLOC A, ;GET SLOT 1, LCL SOCK
|
||
CAIL A,1000 ;SKIP IF SHOULD SIGNAL
|
||
JRST NEXTQ ;JUMP TO TRY ANOTHER ONE
|
||
DPB A,[000300,,LOGNAM] ;STASH IN 'RFC000
|
||
LSH A,-3
|
||
DPB A,[060300,,LOGNAM]
|
||
LSH A,-3
|
||
DPB A,[140300,,LOGNAM]
|
||
.CALL [SETZ ? 'DEMSIG ? LOGNAM ? SETZ [-1]]
|
||
JRST NORFC ;FAIL-LEAVE TRAIL
|
||
JRST ENDQ
|
||
|
||
NORFC: MOVSI A,3(Q) ;SLOT 3, HOST CALLING
|
||
HRRI A,A
|
||
.GETLOC A,
|
||
LSH A,-8 ;GET HOST #
|
||
DPB A,[000300,,TRMNAM]
|
||
LSH A,-3
|
||
DPB A,[060300,,TRMNAM]
|
||
LSH A,-3
|
||
DPB A,[140300,,TRMNAM]
|
||
.CALL [SETZ ? 'LOGIN_6 ? LOGNAM ? SETZ TRMNAM]
|
||
JFCL ;DONT SVEAT IT
|
||
ENDQ: .LOGOUT
|
||
.VALUE
|
||
|
||
LOGNAM: 'RFC000
|
||
TRMNAM: 'HST000
|
||
|
||
END BEG
|
||
|