DataMuseum.dk

top - metrics - download

    Length: 4348 (0x10fc)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

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

PTS(SC)

$PCAS 
ASG 3,@DA=TK0E
REW 3 
WEF 3 M=@M= 
RUN CPLGEN,0 @M=
MOV @M=,/L,@MU
RUN PCAS,0 @M=
WEF 3 @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=
$PCASF C=@C=
$PCASF D=@D=
$PCASF CU=@CU=
$PCASF DU=@DU=
$PCASE M=@M=,A=@A=
$PCASE M=@M=
$PCASE A=@A=
MES PARAMETER ??
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!!!!
$PCASE
END 
$PCASE
WEF 3,2 
ULD /3
END 
$PDISC
MOV @M=,/L,@MU
RUN PDISC,0 M=@M= 
OPT OUT=@MOUT=@M=,FC=@FC=E9,FT=M,INP=@M=
MOV @A=,/L,@AU
RUN PDISC,0 A=@A= 
OPT OUT=@AOUT=@A,FC=@FC=E9,FT=A,INP=@A= 
MOV @C=,/A,@CU
RUN PDISC,0 C=@C= 
OPT OUT=@COUT=@C=,FC=@FC=E9,FT=C,INP=@C=
$PDISCE P=@M= 
$PDISCE P=@A= 
$PDISCE P=@C= 
MES ILLEGAL PARAMETER COMBINATION !!! 
MES FOLLOWING COMBINATIONS ARE VALID: 
MES 1 A,A+AU,A+AOUT,A+AU+AOUT 
MES 2 C,C+CU,C+COUT,C+CU+COUT 
MES 3 M,M+MU,M+MOUT,M+MU+MOUT 
MES 4 FC
MES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID,
MES AND AT LEAST ONE OF THEM MUST BE CHOOSEN
MES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 
END 
$PDISCE 
END 
$EDIT 
$EDITUF NAME=@UF= 
$EDITSC NAME=@SC= 
$EDITSC NAME=@S=
MES   PARAM !!!  'S','SC' OR 'UF' 
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