DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦1b1ff9e8e⟧ 

    Length: 4566 (0x11d6)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

Derivation

└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/M:PROC.UF«

PTS(SC)

$KMDALL 
$KMDGEN KMD=080,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080=
$KMDGEN KMD=0801,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0801=
$KMDGEN KMD=0802,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0802=
$KMDGEN KMD=0803,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0803=
$KMDGEN KMD=0804,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0804=
$KMDGEN KMD=0805,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0805=
$KMDGEN KMD=0806,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0806=
$KMDGEN KMD=0807,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0807=
$KMDGEN KMD=0808,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0808=
$KMDGEN KMD=0809,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @0809=
$KMDGEN KMD=080A,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080A=
$KMDGEN KMD=080B,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080B=
$KMDGEN KMD=080C,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080C=
$KMDGEN KMD=080D,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080D=
$KMDGEN KMD=080E,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080E=
$KMDGEN KMD=080F,VER=@VER=02$$,REL=@REL=04$$,MOD=0801$$ @080F=
END 
$KMDNR
PRT KMDNR 
END 
$HELP 
PRT HELP
END 
$LEDLS
LED LEDLS,/A
KPF /A,LEDFIL 
ASG /E0,DK,LEDFIL 
END 
$KMDGEN 
LED KM@KMD=,/A,/EE
!!CH $$%VER$$@VER=02$$
!!CH $$%REL$$@REL=04$$
!!CH $$%MOD$$@MOD=0801$$
!!EN
KPF /A,KMDFIL 
ASG /E0,DK,KMDFIL 
END 
$INCGEN 
INC FMOVE,INT:PROD,/F3
INC EMPTYT,INT:PROD,/F3 
INC T:EDFL,INT:PROD,/F3 
INC T:DYKI,INT:PROD,/F3 
INC T:UPDF,INT:PROD,/F3 
INC T:DUPL,INT:PROD,/F3 
INC T:GETC,INT:PROD,/F3 
INC T:GETA,INT:PROD,/F3 
INC T:TSTC,INT:PROD,/F3 
INC T:TFWD,INT:PROD,/F3 
INC T:DISP,INT:PROD,/F3 
INC T:GETF,INT:PROD,/F3 
INC T:REWR,INT:PROD,/F3 
INC T:DEDT,INT:PROD,/F3 
INC T:ENLI,INT:PROD,/F3 
INC T:EINP,INT:PROD,/F3 
INC T:ENIN,INT:PROD,/F3 
INC T:SETC,INT:PROD,/F3 
INC T:CLMI,INT:PROD,/F3 
INC T:ATTF,INT:PROD,/F3 
INC T:LSEG,INT:PROD,/F3 
INC T:TEI0,INT:PROD,/F3 
INC T:GTI0,INT:PROD,/F3 
INC T:DC,INT:PROD,/F3 
INC T:ASSI,INT:PROD,/F3 
INC T:DMR,INT:PROD,/F3
INC T:TEI,INT:PROD,/F3
INC T:DEL,INT:PROD,/F3
INC T:MSK0,INT:PROD,/F3 
INC T:SCD,INT:PROD,/F3
INC T:GTID,INT:PROD,/F3 
INC T:IO,INT:PROD,/F3 
INC I:NTP,INT:PROD,/F3
INC I:EVA,INT:PROD,/F3
INC I:ADS,INT:PROD,/F3
INC I:CMP,INT:PROD,/F3
INC I:CPA,INT:PROD,/F3
INC I:MOV,INT:PROD,/F3
INC I:MUL,INT:PROD,/F3
INC I:DIV,INT:PROD,/F3
INC I:NTF,INT:PROD,/F3
INC I:EDT,INT:PROD,/F3
INC I:EDTE,INT:PROD,/F3 
INC I:EDS,INT:PROD,/F3
INC I:STR,INT:PROD,/F3
INC I:EVS,INT:PROD,/F3
INC T:USE,INT:PROD,/F3
INC I:EPIC,INT:PROD,/F3 
END 
$REL
MES @NAM
LED @NAM,/S,/EE,##
##DL 0
	IDENT @NAM  	02.04.XXX.1 
##EN
KPF /S,@NAM 
END 
$RDA
ASG /E1,@DEV=CR0D 
RDA /A
KPF /A,@NAM=TEST
END 
$RDS
ASG /E1,@DEV=CR0D 
RDS 
KPF /S,@NAM=TEST
END 
$LED
LED @NAM=,@FC=/S,@CC
KPF @FC=/S,@NAM=
END 
$MOVE 
MOV @NAM=,@FC=/S,@ID=KMDPRO8
KPF @FC=/S,@NAM 
END 
$LETRA
LED @NAM= 
KPF /S,@NAM=
$TRA N=@NAM=,L=@LS= 
$TRA1 N=@NAM
END 
$TRA
TRA @N=,@L= 
KPF /O
END 
$TRA1 
TRA @N= 
KPF /O
END 
$LINK 
ASG /02,NO
TRA KONVER,NL 
ASG /7D,DK
ASG /02,TY10
$TLK2 N=@NAM,L=@LS,B=@BG= 
$TLK N=@NAM=,L=@LS= 
$TLK1 N=@NAM= 
END 
$TLK
TLK M 
SCR /7D 
BEA DUMMY,NL
LKE M 
KPF /L,@N=
$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG 
END 
$TLK1 
TLK 
SCR /7D 
BEA DUMMY,NL
LKE 
KPF /L,@N=
$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG 
END 
$TLK2 
TLK U,M 
SCR /7D 
LKE M 
KPF /L,@N=
$PCAS M=M:KONV,MU=M:KONV,A=@N=,C=KONFIG 
END 
$ASG1 
ASG /E1,TY10
RDA /A
END 
$ASG2 
ASG /E0,TY10
END 
$TLK3 
TLK U,X 
SCR /7D 
END

Full view