DataMuseum.dk

top - metrics - download

    Length: 4304 (0x10d0)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦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=F4,FT=M,INP=@M=
MOV @A=,/L,@AU
RUN PDISC,0 A=@A= 
OPT OUT=@AOUT=@A,FC=@FC=F4,FT=A,INP=@A= 
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 
$SYS8000
MES          PROCEDURE TO MOVE LOAD MODULES 
MES          TO FLEXIBLE DISCS FOR PTS 8000 
MES 
MOV SUP,/L,SAG,/F0
KPF /L,SUP
MOV CCI,/L,SAG,/F0
KPF /L,CCI
MOV CSEG1,/L,SAG,/F0
KPF /L,CSEG1
MOV CSEG2,/L,SAG,/F0
KPF /L,CSEG2
MOV CSEG3,/L,SAG,/F0
KPF /L,CSEG3
MOV CSEG4,/L,SAG,/F0
KPF /L,CSEG4
MOV CSEG5,/L,SAG,/F0
KPF /L,CSEG5
MOV CSEG7,/L,SAG,/F0
KPF /L,CSEG7
MOV CSEG8,/L,SAG,/F0
KPF /L,CSEG8
MOV CSEG9,/L,SAG,/F0
KPF /L,CSEG9
MOV CSEGA,/L,SAG,/F0
KPF /L,CSEGA
MOV CSEGB,/L,SAG,/F0
KPF /L,CSEGB
MOV CSEGC,/L,SAG,/F0
KPF /L,CSEGC
MOV CSEGD,/L,SAG,/F0
KPF /L,CSEGD
MOV CSEGE,/L,SAG,/F0
KPF /L,CSEGE
MOV SUP800,/L,SAG,/F0 
KPF /L,SUP800 
MOV PMPTS,/L,SAG,/F0
KPF /L,PMPTS
END 
$SYS800A
MES         MOVE LOAD MODULES ETC FROM SAG TO A FLEXIBLEBLE DISC
MES         TO USE THEM ON THE PTS-8000 SERIES. 
MOV LED,/L,SAG,/F0
KPF /L,LED
MOV PRDUMP,/L,SAG,/F0 
KPF /L,PRDUMP 
MOV XRF,/L,SAG,/F0
KPF /L,XRF
MOV DMPGEF,/L,SAG,/F0 
KPF /L,DMPGEF 
END 
$SYS800B
MES      MOVE LOAD MODULES ETC FROM SAG TO A FLEXIBLE DISC
MES      TO USE THEM ON THE PTS-8000 SERIES.
MOV LKE,/L,SAG,/F0
KPF /L,LKE
MOV EDIT,/L,SAG,/F0 
KPF /L,EDIT 
MOV M:PROC,/A,SAG,/F0 
KPF /A,M:PROC 
MOV OBX,/L,SAG,/F0
KPF /L,OBX
MOV PDISC,/L,SAG,/F0
KPF /L,PDISC
MOV TOSSUT,/L,SAG,/F0 
KPF /L,TOSSUT 
MOV ASM,/L,SAG,/F0
KPF /L,ASM
MOV TLK,/L,SAG,/F0
KPF /L,TLK
MOV TRA,/L,SAG,/F0
KPF /L,TRA
INC /OBJCT,SAG,/F0
MOV SYSGEN,/L,SAG,/F0 
KPF /L,SYSGEN 
END