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

⟦5c42c55f6⟧ 

    Length: 20658 (0x50b2)
    Notes: pts_type(UF)
    Names: »M:92F3.UF«

Derivation

└─⟦f740ae34d⟧ Bits:30009708 Philips computer tape "M_92F3"
    └─⟦this⟧ »M:92F3/M:92F3.UF«

PTS(SC)

ASG /02,NO
MOV TCLASS,/S,TOSSWORK
KPF /S,TCLASS
SCR 
INC TCLASS,TOSSWORK 
KPF /O
MOV SCLASS,/S,TOSSWORK
KPF /S,SCLASS
SCR 
INC SCLASS,TOSSWORK 
KPF /O
MOV MONTAB,/S,TOSSWORK
KPF /S,MONTAB
SCR 
INC MONTAB,TOSSWORK 
KPF /O
MOV SYSTAB,/S,TOSSWORK
KPF /S,SYSTAB
SCR 
MOV  TDISP,/S,TOSSWORK
KPF /S,TDISP
SCR 
MOV LRPINT,/S,TOSSWORK
KPF /S,LRPINT
SCR 
MOV  TPROC,/S,TOSSWORK
KPF /S,TPROC
SCR 
MOV  MSUBS,/S,TOSSWORK
KPF /S,MSUBS
SCR 
MOV TTMJOB,/S,TOSSWORK
KPF /S,TTMJOB
SCR 
MOV TOSSIO,/S,TOSSWORK
KPF /S,TOSSIO
SCR 
MOV SYSLDM,/S,TOSSWORK
KPF /S,SYSLDM
SCR 
MOV SYSLDA,/S,TOSSWORK
KPF /S,SYSLDA
SCR 
MOV LDTASK,/S,TOSSWORK
KPF /S,LDTASK
SCR 
MOV  PFTAB,/S,TOSSWORK
KPF /S,PFTAB
SCR 
MOV  LKMAL,/S,TOSSWORK
KPF /S,LKMAL
SCR 
MOV  CTABX,/S,TOSSWORK
KPF /S,CTABX
SCR 
LED SYSTAB
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  TDISP
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED LRPINT
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  TPROC
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  MSUBS
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED TTMJOB
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED TOSSIO
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED SYSLDM
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED SYSLDA
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED LDTASK
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
MOV  DVTKB,/S,TOSSWORK
KPF /S,DVTKB
SCR 
MOV  DVTTP,/S,TOSSWORK
KPF /S,DVTTP
SCR 
MOV  DVTDY,/S,TOSSWORK
KPF /S,DVTDY
SCR 
MOV DWII01,/S,TOSSWORK
KPF /S,DWII01
SCR 
INC DWII01,TOSSWORK 
KPF /O
MOV DWIO01,/S,TOSSWORK
KPF /S,DWIO01
SCR 
INC DWIO01,TOSSWORK 
KPF /O
MOV DW1501,/S,TOSSWORK
KPF /S,DW1501
SCR 
INC DW1501,TOSSWORK 
KPF /O
LED DWII01
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DWIO01
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DW1501
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
MOV DRKB01,/S,TOSSWORK
KPF /S,DRKB01
SCR 
MOV DRTP02,/S,TOSSWORK
KPF /S,DRTP02
SCR 
MOV DRDY01,/S,TOSSWORK
KPF /S,DRDY01
SCR 
MOV DRLT01,/S,TOSSWORK
KPF /S,DRLT01
SCR 
MOV DRSOP1,/S,TOSSWORK
KPF /S,DRSOP1
SCR 
MOV DRFD01,/S,TOSSWORK
KPF /S,DRFD01
SCR 
MOV DRIC01,/S,TOSSWORK
KPF /S,DRIC01
SCR 
MOV DRDC15,/S,TOSSWORK
KPF /S,DRDC15
SCR 
LED DRKB01
!!CH $$	X:A$$	1$$ 
!!CH $$	X:B$$	1$$ 
!!CH $$	X:C$$	1$$ 
!!CH $$	X:D$$	2$$ 
!!CH $$	X:E$$	1$$ 
!!CH $$	X:F$$	40$$
!!CH $$	X:G$$	1$$ 
!!CH $$	X:H$$	0$$ 
!!CH $$	X:I$$	0$$ 
!!CH $$	X:J$$	000$$ 
!!CH $$	X:K$$	00$$
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRTP02
!!CH $$	X:A$$	0$$ 
!!CH $$	X:B$$	0$$ 
!!CH $$	X:C$$	0$$ 
!!CH $$	X:D$$	0$$ 
!!CH $$	X:E$$	0$$ 
!!CH $$	X:F$$	0$$ 
!!CH $$	X:G$$	1$$ 
!!CH $$	X:H$$	000$$ 
!!CH $$/2122,/2426,/3B3C,/3E40,/5E5F$$/2122,/2627,/3B3C,/3E40,/5E5F$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRDY01
!!CH $$	X:A$$	0$$ 
!!CH $$	X:B$$	0$$ 
!!CH $$	X:C$$	0$$ 
!!CH $$	X:D$$	0$$ 
!!CH $$	X:E$$	1$$ 
!!CH $$	X:F$$	1$$ 
!!CH $$	X:G$$	6$$ 
!!CH $$	X:H$$	000$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRLT01
!!CH $$	X:A$$	0$$ 
!!CH $$	X:B$$	1$$ 
!!CH $$	X:C$$	0$$ 
!!CH $$	X:D$$	0$$ 
!!CH $$	X:E$$	01$$
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRSOP1
!!CH $$	X:A$$	0$$ 
!!CH $$	X:B$$	0$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRFD01
!!CH $$	X:A$$	1$$ 
!!CH $$	X:B$$	1$$ 
!!CH $$	X:C$$	1$$ 
!!CH $$	X:D$$	0$$ 
!!CH $$	X:E$$	000$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRIC01
!!CH $$	X:A$$	000$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DRDC15
!!CH $$	X:A$$	400$$ 
!!CH $$	X:B$$	/60$$ 
!!CH $$	X:C$$	0$$ 
!!CH $$	X:D$$	000$$ 
!!CH $$	X:E$$	1$$ 
!!CH $$	X:F$$	1$$ 
!!CH $$	X:G$$	252$$ 
!!CH $$	X:H$$	1$$ 
!!CH $$	X:I$$	0$$ 
!!CH $$	X:J$$	1$$ 
!!CH $$	X:K$$	0$$ 
!!CH $$	X:L$$	2$$ 
!!CH $$	X:M$$	00$$
!!CH $$	X:N$$	02$$
!!CH $$	X:O$$	0$$ 
!!CH $$	X:P$$	0$$ 
!!CH $$	X:Q$$	1$$ 
!!CH $$	X:R$$	000$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
MOV EBCDIC,/S,TOSSWORK
KPF /S,EBCDIC
SCR 
LED EBCDIC
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DVTKB 
!!DL 35 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,0,0,0,0 
	DATA	0,0,0,0,
!!IL 38 
	DATA	
!!EN
ASM /S
KPF /O
KPF /S
SCR 
MOV  TIMER,/S,TOSSWORK
KPF /S,TIMER
SCR 
MOV  TPROC,/S,TOSSWORK
KPF /S,TPROC
SCR 
MOV TMMLKM,/S,TOSSWORK
KPF /S,TMMLKM
SCR 
MOV TLDSEG,/S,TOSSWORK
KPF /S,TLDSEG
SCR 
MOV TABORT,/S,TOSSWORK
KPF /S,TABORT
SCR 
MOV MONTIM,/S,TOSSWORK
KPF /S,MONTIM
SCR 
MOV   TASS,/S,TOSSWORK
KPF /S,TASSI
SCR 
LED  TIMER
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  TPROC
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED TMMLKM
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED TLDSEG
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED TABORT
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED MONTIM
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED   TASS
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED LKMAL 
!!DL 019
!!DL 022
!!DL 027
!!DL 028
!!DL 042
         DATA     00
!!DL 045
         DATA     00
!!DL 050
!!DL 051
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED LRPINT
!!CH $$	X:A$$	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
MOV  TIODM,/S,TOSSWORK
KPF /S,TIODM
SCR 
MOV DMTASK,/S,TOSSWORK
KPF /S,DMTASK
SCR 
MOV DMINIT,/S,TOSSWORK
KPF /S,DMINIT
SCR 
MOV   TASS,/S,TOSSWORK
KPF /S,TASSI
SCR 
MOV DMTASS,/S,TOSSWORK
KPF /S,DMTASS
SCR 
MOV  DMBUF,/S,TOSSWORK
KPF /S,DMBUF
SCR 
MOV  DMFDB,/S,TOSSWORK
KPF /S,DMFDB
SCR 
MOV  DFTAB,/S,TOSSWORK
KPF /S,DFTAB
SCR 
MOV DMSUBX,/S,TOSSWORK
KPF /S,DMSUBX
SCR 
MOV ADDMOD,/S,TOSSWORK
KPF /S,ADDMOD
SCR 
MOV DSUMOD,/S,TOSSWORK
KPF /S,DSUMOD
SCR 
MOV MPYMOD,/S,TOSSWORK
KPF /S,MPYMOD
SCR 
MOV DIVMOD,/S,TOSSWORK
KPF /S,DIVMOD
SCR 
MOV DMSUBR,/S,TOSSWORK
KPF /S,DMSUBR
SCR 
LED TIODM 
!!CH $$	X:A$$	00000$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMBUF 
!!CH $$	X:A$$	00004$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMTASK
!!CH $$	X:A$$	00001$$ 
!!CH $$	X:B$$	00000$$ 
!!CH $$	X:C$$	00004$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMTASS
!!CH $$	X:A$$	00004$$ 
!!CH $$	X:B$$	00000$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DFTAB 
!!DL 23 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMFDB 
!!CH $$	X:A$$	00480$$ 
!!CH $$	X:B$$	00240$$ 
!!CH $$	X:C$$	00000$$ 
!!CH $$	X:D$$	00096$$ 
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMINIT
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED   TASS
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMSUBX
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED ADDMOD
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DSUMOD
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED MPYMOD
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DIVMOD
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED DMSUBR
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED SYSTAB
!!CH $$IHINPT$$TRAP$$ 
!!CH $$	X:A$$	00002$$ 
!!CH $$	EXTRN	BUG$$*$$
!!CH $$	BUG$$	0$$ 
!!CH $$	X:B$$	00004$$ 
!!CH $$	X:C$$	00004$$ 
!!CH $$	X:D$$	00000$$ 
!!CH $$	X:E$$	00010$$ 
!!CH $$	X:F$$	00001$$ 
!!CH $$ILLINT	     12$$IH1501	     12$$ 
!!CH $$ILLINT	     13$$IH1502	     13$$ 
!!IL 55 
         EXTRN    IH1501
         EXTRN    IH1502
!!DL 056
!!DL 057
!!DL 065
!!DL 066
!!DL 067
!!DL 068
!!DL 069
!!DL 070
!!DL 071
!!DL 073
!!DL 074
!!DL 075
!!DL 077
!!DL 078
!!DL 079
!!DL 080
!!DL 081
!!DL 85 
!!DL 122
         DATA     ILLINT
!!DL 123
         DATA     ILLINT
!!DL 131
         DATA     ILLINT
!!DL 132
         DATA     ILLINT
!!DL 133
         DATA     ILLINT
!!DL 134
         DATA     ILLINT
!!DL 135
         DATA     ILLINT
!!DL 136
         DATA     ILLINT
!!DL 138
         DATA     ILLINT
!!DL 140
         DATA     ILLINT
!!DL 141
         DATA     ILLINT
!!DL 142
         DATA     ILLINT
!!DL 149
         DATA     ILLINT
!!DL 150
         DATA     ILLINT
!!DL 155
         DATA     ILLINT
!!DL 156
         DATA     ILLINT
!!DL 159
         DATA     ILLINT
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED PFTAB 
!!IL 12 
         EXTRN    DC15ON
!!DL 013
!!DL 014
!!DL 018
!!DL 019
!!DL 020
!!DL 022
!!DL 023
!!DL 024
!!DL 025
!!DL 026
!!DL 027
!!DL 028
!!DL 029
!!DL 030
!!DL 031
!!DL 032
!!DL 034
!!DL 035
!!DL 036
!!DL 037
!!DL 038
!!IL 40 
         DATA     DC15ON
!!DL 041
!!DL 042
!!DL 046
!!DL 047
!!DL 048
!!DL 050
!!DL 051
!!DL 052
!!DL 053
!!DL 054
!!DL 055
!!DL 056
!!DL 057
!!DL 058
!!DL 059
!!DL 060
!!DL 062
!!DL 063
!!DL 064
!!DL 065
!!DL 066
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  DVTKB
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!CH $$DVTKB$$DVKB00$$
!!CH $$/1111$$/1100$$ 
!!CH $$BCA$$8791$$
!!CH $$ED0$$FFBA$$
!!CH $$8000$$8002$$ 
!!CH $$ECH$$DVDY00$$
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  DVTTP
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!CH $$DVTTP$$DVTP00$$
!!CH $$/1111$$/2000$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  DVTTP
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!CH $$DVTTP$$DVTP00$$
!!CH $$/1111$$/2000$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  DVTTP
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!CH $$DVTTP$$DVTP00$$
!!CH $$/1111$$/2000$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED  DVTDY
!!CH $$CREDIT	EQU	0$$CREDIT	EQU	1$$ 
!!CH $$DSKPAG	EQU	0$$DSKPAG	EQU	1$$ 
!!CH $$DVTDY$$DVDY00$$
!!CH $$/ABC$$/0824$$
!!CH $$/1111$$/C010$$ 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED TCLASS
!!IL 6
         EXTRN    DVKB00
         EXTRN    DVTP00
         EXTRN    DVDY00
!!IL 11 
         DATA     TC00
!!IL 12 
TC00     DATA     TC00E-* 
         DATA     /0020 
         DATA     DVKB00
         DATA     /00300
         DATA     DVTP00
         DATA     /02310
         DATA     DVTP00
         DATA     /01320
         DATA     DVTP00
         DATA     /00500
         DATA     DVDY00
TC00E    EQU      * 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED SCLASS
!!IL 6
         EXTRN    DWSI01
         EXTRN    DWSO01
         EXTRN    DWII01
         EXTRN    DWIO01
         EXTRN    DW1501
         EXTRN    DW1500
         EXTRN    DWFD01
!!IL 11 
         DATA     TC00
         DATA     TC01
         DATA     TC02
         DATA     TC03
         DATA     TC04
!!IL 12 
TC00     DATA     TC00E-* 
         DATA     /00101
         DATA     DWSI01
         DATA     /00111
         DATA     DWSO01
TC00E    EQU      * 
TC01     DATA     TC01E-* 
         DATA     /00E01
         DATA     DWII01
TC01E    EQU      * 
TC02     DATA     TC02E-* 
         DATA     /00E11
         DATA     DWIO01
TC02E    EQU      * 
TC03     DATA     TC03E-* 
         DATA     /00611
         DATA     DW1501
TC03E    EQU      * 
TC04     DATA     TC04E-* 
         DATA     /00601
         DATA     DW1500
         DATA     /00F80
	DATA 	DWFD01 
         DATA     /01F90
	DATA 	DWFD01 
         DATA     /02FA0
	DATA 	DWFD01 
         DATA     /03FB0
	DATA 	DWFD01 
TC04E    EQU      * 
!!EN
ASM /S
KPF /O
KPF /S
SCR 
LED MONTAB
!!IL 19 
****
	EXTRN	ITAD 
!!DL 20 
!!DL 023
!!DL 024
!!DL 025
!!DL 028
!!DL 029
!!DL 030
!!DL 031
!!DL 032
!!DL 033
!!IL 47 
****
	DATA 	ITAD 
!!DL 48 
!!DL 051
!!DL 052
!!DL 053
!!DL 056
!!DL 057
!!DL 058
!!DL 059
!!DL 060
!!DL 061
!!EN
ASM /S
KPF /O
KPF /S
SCR 
ASG /02,LP0F
SCR 
INC SYSTAB
LKE M 
KPF /L,M:92F3
ASG /E0,TY10

Full view