mirror of
https://github.com/PDP-10/its.git
synced 2026-01-19 01:27:05 +00:00
34 lines
690 B
Plaintext
Executable File
34 lines
690 B
Plaintext
Executable File
TITLE LINK FUNCTION FOR LISP NEWIO (ITS)
|
||
|
||
.FASL
|
||
.INSRT SYS:.FASL DEFS
|
||
|
||
.ENTRY LINK SUBR 000003 ;SUBR 2
|
||
PUSHJ P,2MERGE ;GET MERGED FILE SPECS
|
||
.CALL LINK9 ;LINK 'EM UP
|
||
IOJRST 0,LINK1 ;LOSE LOSE
|
||
PUSHJ P,6BTNML ;IF WIN, RETURN TO FILE NAMES
|
||
SUB FXP,[4,,4]
|
||
POPJ P,
|
||
|
||
LINK1: PUSHJ P,6BTNML
|
||
CALL 1,.FUNCTION NCONS
|
||
PUSH P,A
|
||
PUSHJ P,6BTNML
|
||
POP P,B
|
||
CALL 2,.FUNCTION CONS
|
||
MOVEI B,.ATOM LINK
|
||
JRST XCIOL
|
||
|
||
LINK9: SETZ
|
||
SIXBIT \MLINK\ ;MAKE LINK
|
||
,,-7(FXP) ;FROM DEVICE
|
||
,,-5(FXP) ;FROM FILE NAME 1
|
||
,,-4(FXP) ;FROM FILE NAME 2
|
||
,,-6(FXP) ;FROM SNAME
|
||
,,-1(FXP) ;TO FILE NAME 1
|
||
,,0(FXP) ;TO FILE NAME 2
|
||
400000,,-2(FXP) ;TO SNAME
|
||
|
||
FASEND
|
||
|