DataMuseum.dk

top - metrics - download

    Length: 4354 (0x1102)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦b08a19b8c⟧ Bits:30009695 Philips computer tape "600412"
    └─⟦this⟧ »SAG/M:PROC.UF« 
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
    └─⟦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
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