DataMuseum.dk

top - metrics - download

    Length: 4076 (0xfec)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »SAG/M:PROC.UF« 

PTS(SC)

$PCAS 
ASG 3,@DA=TK0E
REW 3 
WEF 3 M=@M= 
RUN CPLGEN @M=
MOV @M=,/L,@MU
RUN PCAS @M=
WEF 3 @A= 
MOV @A=,/L,@AU
RUN PCAS @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 
$ASM
ASM @S= 
XRF @S= 
END 
$PDISC
SCR /A M=@M=
SCR /L M=@M=
MOV @M=,/L,@MU
RUN PDISC,0 M=@M= 
OPT OUT=@MOUT=@M=,FC=@FC=F4,FT=M,INP=@M=
SCR /A A=@A=
SCR /L A=@A=
MOV @A=,/L,@AU
RUN PDISC,0 A=@A= 
OPT OUT=@AOUT=@A,FC=@FC=F4,FT=A,INP=@A= 
SCR /A C=@C=
SCR /L C=@C=
MOV @C=,/A,@CU
RUN PDISC,0 C=@C= 
OPT OUT=@COUT=@C=,FC=@FC=F4,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