DataMuseum.dk

top - metrics - download

    Length: 4472 (0x1178)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKAPP/M:PROC.UF« 

PTS(SC)

$LNKPAC 
ASG /2,@P=TY10
INC C:INI 
INC C:CCH 
INC C:TCA 
LKE M 
KPF /L,@NAM=
END 
$SEARCH 
LED SEQPAC,11,/EE,##
##CH $$# $$$SEA P=$$
##CH $$,&$$      $$ 
##EN
REF 11
MES   END OF OPERATION
PRT 11
REF 11
ASG /E0,11
END 
$SEA
LED @P=,/S,/EE,## 
##LS $$ECBTB$$
##AB
END 
$ASMPAC 
MES   * ASSEMBLY LISTING OF ALL MODULES IN UF: SEQPAC 
MES   * OBJECT IS   SAVED 
LED SEQPAC,11,/EE,##
##CH $$# $$$ASMMOD P=$$ 
##CH $$,&$$      $$ 
##EN
REF 11
MES   END OF PREPARATION
PRT 11
REF 11
ASG /E0,11
END 
$ASMMOD 
ASM @P= 
@K= 
KPF /O
SCR /O
END 
$OBJPAC 
MES   * ASSEMBLY OF ALL MODULES NO LIST IN UF: SEQPAC 
MES   * OBJECT IS SAVED 
LED SEQPAC,11,/EE,##
##CH $$# $$$OBJMOD P=$$ 
##CH $$,&$$      $$ 
##EN
REF 11
MES   END OF PREPARATION
PRT 11
REF 11
ASG /E0,11
END 
$OBJMOD 
ASM @P=,NL
KPF /O
SCR /O
END 
$DATPAC 
MES   * UPDATE OF PACKAGE DATE
MES   * ALL MODULES IN UF: SEQPAC 
LED SEQPAC,11,/EE,##
##CH $$# $$$DATMOD M=$$ 
##CH $$&$$D=@D=  $$ 
##EN
REF 11
MES   END OF PREPARATION
PRT 11
REF 11
ASG /E0,11
END 
$DATMOD 
LED @M=,/S,/EE,## 
##DL 0
	IDENT @M  	CONPAC REL=1.0 DATE= @D=
##EN
KPF /S
SCR /S
END 
$EQU
MES   * INCLUSION OF COMMON EQUATE-MODULE C:EQU 
MES   * ACCORDING TO UF: SEQEQU 
MES   * OBJECT OF ALL MODULES IS SAVED
ASG /2,NO 
LED SEQEQU,11,/EE,##
##CH $$# $$$EQUMOD P=$$ 
##CH $$,&$$      $$ 
##EN
REF 11
ASG /E0,11
END 
$EQUMOD 
LED @P=,/S,/EE,## 
##DL 151,399
##JN C:EQU,51,299 
##EN
KPF /S
END 
$CHKEQU 
MES   * LIST ALL LIST/NLIST DIRECTIVES IN ALL MODULES 
MES   * OF UF: SEQEQU 
LED SEQEQU,11,/EE,##
##CH $$# $$$CHKEQ P=$$
##CH $$,&$$      $$ 
##EN
REF 11
ASG /E0,11
END 
$CHKEQ
LED @P=,/S,/EE,## 
##LS $$COMMON AREA FRAME$$
##AB
END