DataMuseum.dk

top - metrics - download

    Length: 11108 (0x2b64)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
    └─⟦this⟧ »SAG/M:PROC.UF« 

PTS(SC)

$TRA
$ERR1 A10=@A10= 
$ERR2 T10=@T10= 
$ERR3 C6=@C6= 
$ERR4 C5=@C5=,TR=@TR= 
$ERR4 C5=@C5=,DB=@DB= 
MES 
MES   ******************************
MES    STANDARD TRANSLATE PROCEDURE 
MES   FOR ASSEMBLER,CREDIT,AND COBOL
MES   ******************************
SCR /O
ASM @A1=,@AL,@A1L 
ASM @A2=,@AL,@A2L 
ASM @A3=,@AL,@A3L 
ASM @A4=,@AL,@A4L 
ASM @A5=,@AL,@A5L 
ASM @A6=,@AL,@A6L 
ASM @A7=,@AL,@A7L 
ASM @A8=,@AL,@A8L 
ASM @A9=,@AL,@A9L 
TRA @T1=,@TL,@T1L 
TRA @T2=,@TL,@T2L 
TRA @T3=,@TL,@T3L 
TRA @T4=,@TL,@T4L 
TRA @T5=,@TL,@T5L 
TRA @T6=,@TL,@T6L 
TRA @T7=,@TL,@T7L 
TRA @T8=,@TL,@T8L 
TRA @T9=,@TL,@T9L 
$CBL1 C1=@C1=,C2=@C2=,C3=@C3=,C4=@C4=,C5=@C5=,SL=@CL=YES
$CBL1 C1=@C1=,C2=@C2=,C3=@C3=,C4=@C4=,SL=@CL=YES,TR=@TR=NO,DB=@DB=NO
$CBL1 C1=@C1=,C2=@C2=,C3=@C3=,SL=@CL=YES,TR=@TR=NO,DB=@DB=NO
$CBL1 C1=@C1=,C2=@C2=,SL=@CL=YES,TR=@TR=NO,DB=@DB=NO
$CBL1 C1=@C1=,SL=@CL=YES,TR=@TR=NO,DB=@DB=NO
KPF /O
MES END TRA 
END 
$CBL1 
MES  SOURCE:       @C1= 
MES  SOURCE LIST:  @SL= 
MES  DEBUG:        @DB= 
MES  TRACE:        @TR= 
CBL 
OPT DEBUG=@DB=NO,SOURLIST=@SL=YES,TRACE=@TR=NO,;
XREF=@XR=NO,SOURCE=@C1=,PARLIST=@PL=NO,;
INTLIST=@IL=NO,DATAMAP=@DM=NO,ANSI=@AN=NO,; 
FUNCTION=@FN=MAIN,S-INPUT=@SI=/10,L-INPUT=@LI=/20,; 
L-OUTPUT=@LO=/50,PAGESIZE=40
$CBL2 C2=@C2=,C3=@C3=,C4=@C4=,C5=@C5=,SL=@SL=YES
$CBL2 C2=@C2=,C3=@C3=,C4=@C4=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
$CBL2 C2=@C2=,C3=@C3=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
$CBL2 C2=@C2=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
KPF /O
MES END TRA 
END 
$CBL2 
MES  SOURCE:       @C2= 
MES  SOURCE LIST:  @SL= 
MES  DEBUG:        @DB= 
MES  TRACE:        @TR= 
CBL 
OPT DEBUG=@DB=NO,SOURLIST=@SL=YES,TRACE=@TR=NO,;
XREF=@XR=NO,SOURCE=@C2=,PARLIST=@PL=NO,;
INTLIST=@IL=NO,DATAMAP=@DM=NO,ANSI=@AN=NO,; 
FUNCTION=@FN=MAIN,S-INPUT=@SI=/10,L-INPUT=@LI=/20,; 
L-OUTPUT=@LO=/50,PAGESIZE=40
$CBL3 C3=@C3=,C4=@C4=,C5=@C5=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
$CBL3 C3=@C3=,C4=@C4=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
$CBL3 C3=@C3=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
KPF /O
MES END TRA 
END 
$CBL3 
MES  SOURCE:       @C3= 
MES  SOURCE LIST:  @SL= 
MES  DEBUG:        @DB= 
MES  TRACE:        @TR= 
CBL 
OPT DEBUG=@DB=NO,SOURLIST=@SL=YES,TRACE=@TR=NO,;
XREF=@XR=NO,SOURCE=@C3=,PARLIST=@PL=NO,;
INTLIST=@IL=NO,DATAMAP=@DM=NO,ANSI=@AN=NO,; 
FUNCTION=@FN=MAIN,S-INPUT=@SI=/10,L-INPUT=@LI=/20,; 
L-OUTPUT=@LO=/50,PAGESIZE=40
$CBL4 C4=@C4=,C5=@C5=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
$CBL4 C4=@C4=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
KPF /O
MES  END TRA
END 
$CBL4 
MES  SOURCE:       @C4= 
MES  SOURCE LIST:  @SL= 
MES  DEBUG:        @DB= 
MES  TRACE:        @TR= 
CBL 
OPT DEBUG=@DB=NO,SOURLIST=@SL=YES,TRACE=@TR=NO,;
XREF=@XR=NO,SOURCE=@C4=,PARLIST=@PL=NO,;
INTLIST=@IL=NO,DATAMAP=@DM=NO,ANSI=@AN=NO,; 
FUNCTION=@FN=MAIN,S-INPUT=@SI=/10,L-INPUT=@LI=/20,; 
L-OUTPUT=@LO=/50,PAGESIZE=40
$CBL5 C5=@C5=,SL=@SL=YES,TR=@TR=NO,DB=@DB=NO
KPF /O
MES END TRA 
END 
$CBL5 
CBL 
MES  SOURCE:       @C5= 
MES  SOURCE LIST:  @SL= 
MES  DEBUG:        @DB= 
MES  TRACE:        @TR= 
OPT DEBUG=@DB=NO,SOURLIST=@SL=YES,TRACE=@TR=NO,;
XREF=@XR=NO,SOURCE=@C5=,PARLIST=@PL=NO,;
INTLIST=@IL=NO,DATAMAP=@DM=NO,ANSI=@AN=NO,; 
FUNCTION=@FN=MAIN,S-INPUT=@SI=/10,L-INPUT=@LI=/20,; 
L-OUTPUT=@LO=/50,PAGESIZE=40
KPF /O
MES END TRA 
END 
$ERR1 
MES  TOO MANY ASSEMBLER SOURCE MODULES DEFINED! 
MES  A1 - A9 ALLOWED. 
END 
$ERR2 
MES  TOO MANY CREDIT SOURCE MODULES DEFINED!
MES  T1 - T9 ALLOWED. 
END 
$ERR3 
MES  TOO MANY COBOL SOURCE MODULES DEFINED! 
MES  C1 - C5 ALLOWED. 
END 
$ERR4 
MES  IF DB OR TR =YES, THE MAXIMUM NUMBER 
MES  OF COBOL SOURCES IS 4, ELSE 5. 
END 
$CUF
$CREU1 F=@F=FIL,AS=@AS= 
$CREU1 F=@F=FIL 
END 
$CREU1
ASG /E1,TY10
RDA /A
KPF /A,@F 
PRT /A
$ASSIGN AS=@AS=,F=@F=FIL
ASG /E0,DK,@F 
END 
$ASSIGN 
ASG /E0,TY10
END 
$CSF
ASG /E1,TY10
RDS 
KPF /S,@F 
PRT /S
END 
$UPCAS
MES  *************
MES  UPDATE SOURCE
MES  FROM CASSETTE
MES  *************
ASG /E1,TK0E
RDA /A
KPF /A,SLASK
ULD 3 
PRT SLASK 
ASG /E0,DK,SLASK
END 
$KPF             RELEASE 2 : 82 01 07 
$OBJ OBJ=@OBJ=,U1=@U1=XX,U2=@U2=XX,N=@N,D1=@D1=/F0,D2=@D2=
$OBJ OBJ=@OBJ=,U1=@U1=XX,U2=@U2=XX,N=@N,D1=@D1=/F0
MES  ******************** 
MES  STORE THE @F=/A FILE 
MES  UNDER THE NAME @N=SLASK
MES  IN USER @U2=XXXX 
MES  ON DISC @D2= 
MES  ******************** 
KPF @F=/A,SLASK 
MOV EDFIL,/A,SAG
KPF /A,EDFI1
LED EDFI1,/A,/EE,.. 
..DL 1,2
@D2=/F0,@U2=XXXX
MOV SLASK,@F=/A,@U1=XXXX,@D1=/F0
KPF @F=/A,@N=SLASK
..DL 4,5
@D1=/F0,@U1=XXXX
DEL SLASK,@F
..EN
KPF /A,EDFI1
$NEW NEW=@NEW=,U2=@U2=XXXX,D2=@D2=/F0 
ASG /E0,DK,EDFI1
DEL EDFI1 
END 
$OBJ
$OBJ1 U1=@U1=XX,U2=@U2=XX,N=@N=,D1=@D1,D2=@D2=
$OBJ1 U1=@U1=XX,U2=@U2=XX,N=@N=,D1=@D1
MES  THE OBJECT MODULE NAME SHOULD ALWAYS BE SPECIFIED, 
MES  AND EQUAL THE NAME IN THE IDENT STATMENT 
END 
$OBJ1 
MES  ******************** 
MES  STORE THE /O FILE
MES  UNDER THE NAME @N=SLASK
MES  IN USER @U2=XXXX 
MES  ON DISC @D2= 
MES  ******************** 
MES  NOTE THAT @N=SLASK WILL BE DELETED 
MES  IN USER @U1=XX 
KPF /O,@N 
MOV EDFIL,/A,SAG
KPF /A,EDFI1
LED EDFI1,/A,/EE,.. 
..DL 1,2
@D2=/F0,@U2=XXXX
INC @N,@U1,@D1
KPF /O,@N 
..DL 4,5
@D1=/F0,@U1=XXXX
DEL @N,/O 
..EN
KPF /A,EDFI1
$NEW NEW=@NEW=,U2=@U2=XXXX,D2=@D2=/F0 
ASG /E0,DK,EDFI1
DEL EDFI1 
END 
$NEW
LED EDFI1,/A,/EE,.. 
..IL 0
SYSTEM
DCU @U2,@D2 
BYE 
..EN
KPF /A,EDFI1
ASG /E0,DK,EDFI1
DEL EDFI1 
END 
$CNAM 
$CH1 OLD=@OLD=,NEW=@NEW=
MES  INCORRECT PARAMETERS!
MES  OLD=OLD USER NAME
MES  NEW=NEW USER NAME
MES  ARE REQUIRED PARAMETERS
END 
$CH1
RUN NEWNAM
@OLD
@NEW
END 
$PDA
$PDA1 A=@A=,DATE=@D=891230
MES  PLEASE GIVE APPLICATION FILE NAME A! 
END 
$PDA1 
RUN PDISC,0 
OPT OUT=@A,FC=F4,FT=A,INP=/L,DATE=@DATE 
END 
$PDM
$PDM1 M=@M=,DATE=@D=891230
MES  PLEASE GIVE MONITOR FILE NAME M! 
END 
$PDM1 
RUN PDISC,0 
OPT OUT=@M,FC=F4,FT=M,INP=/L,DATE=@DATE 
END 
$CHDAT
$DATP1 P1=@P1=,P2=@P2=,P3=@P3=,P4=@P4=,P5=@P5=,D=@D=
$DATP1 P1=@P1=,P2=@P2=,P3=@P3=,P4=@P4=,D=@D=
$DATP1 P1=@P1=,P2=@P2=,P3=@P3=,D=@D=
$DATP1 P1=@P1=,P2=@P2=,D=@D=
$DATP1 P1=@P1=,D=@D=
MES  PARAMETER ERROR!!
END 
$DATP1
LED @P1,/S,/EE
!!DL 0
	IDENT	@P1 	@D
!!EN
KPF /S
$DATP2 P2=@P2=,P3=@P3=,P4=@P4=,P5=@P5=,D=@D=
$DATP2 P2=@P2=,P3=@P3=,P4=@P4=,D=@D=
$DATP2 P2=@P2=,P3=@P3=,D=@D=
$DATP2 P2=@P2=,D=@D=
END 
$DATP2
LED @P2,/S,/EE
!!DL 0
	IDENT	@P2 	@D
!!EN
KPF /S
$DATP3 P3=@P3=,P4=@P4=,P5=@P5=,D=@D=
$DATP3 P3=@P3=,P4=@P4=,D=@D=
$DATP3 P3=@P3=,D=@D=
END 
$DATP3
LED @P3,/S,/EE
!!DL 0
	IDENT	@P3 	@D
!!EN
KPF /S
$DATP4 P4=@P4=,P5=@P5=,D=@D=
$DATP4 P4=@P4=,D=@D=
END 
$DATP4
LED @P4,/S,/EE
!!DL 0
	IDENT	@P4 	@D
!!EN
KPF /S
$DATP5 P5=@P5=,D=@D=
END 
$DATP5
LED @P5,/S,/EE
!!DL 0
	IDENT	@P5 	@D
!!EN
KPF /S
END 
$SYSGEN 
ASG /CA,DK         SYSGEN OUTPUT DOS-COMMAND STREAM 
ASG /CB,DK         HARD COPY OF SYSGEN DIALOG 
ASG /CC,DK         COPY OF USER ANSWERS IN SYSGEN DIALOG
ASG /C9,DK         THE LKE-INPUT STREAM, PART OF /CA
RUN SYSGEN,0
KPF /CA,@CA=CAFILE     SYSGEN OUTPUT DOS-COMAND STREAM
KPF /CB,@CB=CBFILE     HARD COPY OF SYSGEN DIALOG 
KPF /CC,@CC=CCFILE     COPY OF USER ANSWERS IN SYSGEN DIALOG
KPF /C9,@C9=LINK       THE LKE-INPUT STREAM,PART OF @CA=CAFILE
END 
$CRE
RUN CRE,0 
OPT PROG=@PROG, 
     OPTLIST=@OPTL=YES, 
     SCLIST=@SC=YES,
     INCLIST=@ILST=NO,
     XREF=@XREF=NO, 
     WARNINGS=@WL=YES,
     OBJECT=@OBJ=YES, 
     RELEASE=@REL=12
KPF /O
END 
$PDISC
SCR /L          @M= 
MOV @M=,/L,@MU
RUN PDISC,0  M=@M=
OPT OUT=@MOUT=@M=,FC=@FC=F4,FT=M,SOP=@SOP=00,INP=@M=,DATE=@DATE 
SCR  /L         @A= 
MOV @A=,/L,@AU
RUN PDISC,0  A=@A=
OPT OUT=@AOUT=@A=,FC=@FC=F4,FT=A,SOP=@SOP=00,INP=@A=,DATE=@DATE 
SCR /A          @C= 
MOV @C=,/A,@CU
RUN PDISC,0  C=@C=
OPT OUT=@COUT=@C=,FC=@FC=F4,FT=C,SOP=@SOP=00,INP=@C=,DATE=@DATE 
SCR /A          @D= 
MOV @D=,/A,@DU
RUN PDISC,0  D=@D=
OPT OUT=@DOUT=@D=,FC=@FC=F4,FT=D,SOP=@SOP=00,INP=@D=,DATE=@DATE 
$PDISCE P=@M= 
$PDISCE P=@A= 
$PDISCE P=@C= 
$PDISCE D=@D= 
MES ILLEGAL PARAMETER COMBINATION !!! 
MES FOLLOWING COMBINATIONS ARE VALID: 
MES 1 M,M+MU,M+MOUT,M+MU+MOUT   FOR MONITOR FILE
MES 2 A,A+AU,A+AOUT,A+AU+AOUT   FOR APPLICATION FILE
MES 3 C,C+CU,C+COUT,C+CU+COUT   FOR CONFIGURATION FILE
MES 4 D,D+DU,D+DOUT,D+DU+DOUT   FOR DATA FILE 
MES 5 FC      FILE CODE.  DEFAULT VALUE IS  F4
MES 6 SOP     SOP SWITCH NUMBER. DEFAUL VALUE IS  00
MES           SOP IS SIGNIFICANT ONLY FOR CONFIGURATION FILE
MES               WHEN   COUT  NOT GIVEN
MES 7 DATE    UPDATING DATE 
MES ANY COMBINATION OF ALTERNATIVE 1,2,3 AND 4 IS VALID,
MES AND AT LEAST ONE OF THEM MUST BE CHOOSEN
MES ALTERNATIVES 5,6 AND 7 MAY BE INCLUDED IF NEEDED
END 
$PDISCE 
MES   END OF $PDISC 
END