DataMuseum.dk

top - metrics - download

    Length: 1332 (0x534)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »SAG/M:PROC.UF« 

PTS(SC)

$BACKUP2
RUN SUM 
RUN SUM 
REW /E4 
END 
$BACKUP3
RUN SUM 
RUN SUM 
RUN SUM 
REW /E4 
END 
$LED
LED @NAM=,@FC=/S
KPF @FC=/S,@NAM=
END 
$PCAS 
ASG 3,@DA=TK0E
REW 3 
WEF 3 M=@M= 
RUN CPLGEN @M=
MOV @M=,/L,@MU
RUN JESPER @M=
WEF 3 @A= 
MOV @A=,/L,@AU
RUN JESPER @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