DataMuseum.dk

top - metrics - download

    Length: 4568 (0x11d8)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »SAG/M:PROC.UF« 

PTS(SC)

$PCAS 
ASG 3,@DA=TK0E
REW 3 
WEF 3          @M=
RUN CPLGEN,0   @M=
SCR /L         @M=
MOV @M=,/L,@MU
RUN PCAS,0     @M=
WEF 3          @A=
SCR /L         @A=
MOV @A=,/L,@AU
RUN PCAS,0     @A=
$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D=,DU=@DU=
$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=,D=@D=
$PCASC M=@M=,A=@A=,C=@C=,CU=@CU=
$PCASC M=@M=,A=@A=,C=@C=,D=@D=,DU=@DU=
$PCASC M=@M=,A=@A=,C=@C=,D=@D=
$PCASC M=@M=,A=@A=,C=@C=
$PCASE M=@M=
$PCASE A=@A=
$PCASF
END 
$PCASC
WEF 3 
ASG @FC=43,@DK=DK,@C=,@CU 
PCH @FC=43     @C=
MES            @C=
ASG @FC=43,@DK=DK,@D=,@DU 
PCH @FD=43     @D=
MES            @D=
$PCASE
END 
$PCASF
MES ILLEGEL PARAMETER COMBINATION!!!! 
MES M,M+A,A,M+A+C,M+A+C+D  IS OK SO TRY AGAIN!
MES AND DON'T DO ANY MORE MISTAKES!!!!
END 
$PCASE
WEF 3,2 
ULD 3 
MES     END OF $PCAS
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=01,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=01,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=01,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=01,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  01
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 
$EDIT 
$EDITUF NAME=@UF= 
$EDITSC NAME=@SC= 
$EDITSC NAME=@S=
MES   PARAMETERS 'S', 'SC' OR 'UF' REQUIRED !!!!!!!!!!! 
END 
$EDITUF 
ASG 20,DK,@NAME 
ASG 21,DK 
ASG 22,DK 
RUN EDIT,0
END 
$EDITSC 
MOV @NAME=,/S 
REF /D4  @NAME= 
ASG 20,DK 
ASG 21,DK 
ASG 22,DK 
RDA 20,/D4
RUN EDIT,0
REF 21
RDS 21
END