Код:
$LNSFT::
        LNSFN   $LNFCL,7,3,L$$GCL       ;CLOG$ - P/OS COMPATIBLE
        LNSFN   $LNFTL,9.,3,L$$GCL      ;TLOG$ - OLD P/OS COMPATIBLE
        LNSFN   $LNDEL,5,3,L$$GCL       ;DLOG$ - P/OS COMPATIBLE
        LNSFN   $LNFSD,5,3,N$$DIR       ;SDIR$
        LNSFN   $LNFGD,6.,3,N$$DIR      ;GDIR$
        LNSFN   $LNFSS,7.,4,L$$GCL      ;FSS$
        LNSFN   $LNCHN,5.,4,L$$GCL      ;ACHN$
        LNSFN   $LNRMS,13.,4,L$$GCL     ;PRMS$
        LNSFN   $LNFCS,13.,4,L$$GCL     ;PFCS$
        LNSFN   $LNFTL,10.,3,L$$GCL     ;TLOG$ - NEW P/OS COMPATIBLE
        LNSFN   $LNFTL,10.,3,L$$GCL     ;RLOG$ - P/OS COMPATIBLE
        LNSFN   $LNFCL,7,3,L$$GCL       ;CLON$
        LNSFN   $LNDEL,5,3,L$$GCL       ;DLON$
        LNSFN   $LNFTL,10.,3,L$$GCL     ;TLON$
        LNSFN   $LNFTL,10.,3,L$$GCL     ;RLON$

; CLON$   ( SUBFUNCTION 11. )
;
; THE CREATE LOGICAL NAME DIRECTIVE SUBFUNCTION INSTRUCTS THE SYSTEM TO
; CREATE A RELATIONSHIP BETWEEN A SPECIFIED LOGICAL NAME STRING AND A SPECIFIED
; EQUIVALENCE NAME STRING. IF THE LOGICAL NAME STRING ALREADY EXISTS, THE NEW
; DEFINITION WILL SUPERSEDE THE OLD ONE.
;
; CREATE LOGICAL NAME (CLON$) DPB FORMAT:
;
;       WD. 00 -- DIC(207.),DPB SIZE (7.)
;       WD. 01 -- SUBFUNCTION CODE (----->11.<-----),MODE
;       WD. 02 -- TABLE NUMBER,STATUS
;       WD. 03 -- ADDRESS OF LOGICAL NAME BUFFER
;       WD. 04 -- SIZE OF LOGICAL NAME BUFFER
;       WD. 05 -- ADDRESS OF EQUIVALENCE NAME BUFFER
;       WD. 06 -- SIZE OF EQUIVALENCE NAME BUFFER

; CLOG$   ( SUBFUNCTION 0 )
;
; THE CREATE LOGICAL NAME DIRECTIVE SUBFUNCTION INSTRUCTS THE SYSTEM TO
; CREATE A RELATIONSHIP BETWEEN A SPECIFIED LOGICAL NAME STRING AND A SPECIFIED
; EQUIVALENCE NAME STRING. IF THE LOGICAL NAME STRING ALREADY EXISTS, THE NEW
; DEFINITION WILL SUPERCEDE THE OLD ONE.
;
; CREATE LOGICAL NAME (CLOG$) DPB FORMAT:
;
;       WD. 00 -- DIC(207.),DPB SIZE (7.)
;       WD. 01 -- SUBFUNCTION CODE (--->0<---),MODE
;       WD. 02 -- TABLE NUMBER,STATUS
;       WD. 03 -- ADDRESS OF LOGICAL NAME BUFFER
;       WD. 04 -- SIZE OF LOGICAL NAME BUFFER
;       WD. 05 -- ADDRESS OF EQUIVALENCE NAME BUFFER
;       WD. 06 -- SIZE OF EQUIVALENCE NAME BUFFER