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

⟦50c3b9815⟧ 

    Length: 7790 (0x1e6e)
    Notes: pts_type(UF)
    Names: »KM173.UF«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/KM173.UF«

PTS(SC)

PRT KM173 
PRT C173
MES LYNGBY-T]RB[K KOMMUNE, REMITTERING
MES INCLUDES MOD & DIV-MODULES
MES 820624 NJ 
MES * 
SCR 
LED KMD08 
!!CH $$DCTASK$$DCTSK$$
!!DL 68,108 RKONV 
!!DL 109,131 TERM KA
!!DL 132,150 TERM GA
!!DL 151,167 TERM LA
!!DL 181,205 TB9
!!DL 224
MF1KBV STRG 32X'40' DV ADR KB/VDU 
!!DL 225
MF1GTP STRG 32X'40' DV ADR GTP
!!DL 228
MF1CU STRG X'E2C2' CU ADR 
!!DL 230
CNFHC STRGI (16),'  ' HARDCOPY PRINTER
!!DL 235,236
FROMKX STRGI (12)2C'  ' 
!!RE 240,$$FALSE$$TRUE$$ BKO
!!RE 241,$$FALSE$$TRUE$$ SALDO KORT 
!!RE 247,$$TRUE$$FALSE$$ CKTAUTO
!!RE 248,$$FALSE$$TRUE$$ DC 
!!RE 251,$$FALSE$$TRUE$$ 5M DISK
!!RE 252,$$TRUE$$FALSE$$ CKASFLG
!!RE 279,$$FALSE$$TRUE$$ CREMITFLG
!!RE 288,$$FALSE$$TRUE$$ TEXT REG 
!!RE 289,$$FALSE$$TRUE$$ LEVREG 
!!RE 290,$$FALSE$$TRUE$$ BUNDT
!!DL 331
CFLAG BINI (12,2),X'0011',X'0000',X'0078',X'0000',		C 
		X'0012',X'0000',X'0070',X'0000' 
!!RE 364,$$FALSE$$TRUE$$ CSPEC
!!RE 373,$$FALSE$$TRUE$$ C173 
!!RE 416,$$01014610$$%VER%REL%MOD$$ VERSION 
!!RE 484,$$1400$$10000$$ NO OF REG. 
!!RE 494,$$20$$200$$ LEVINDEX 
!!RE 495,$$5$$1$$ KORT LINE 
!!DL 496,497
FROMTX STRGI (12)2C'  ' 
!!DL 817,1091 RK
!!DL 1095,1096 KB 
!!DL 1097,1098 GTPGO
!!DL 1101,1102 LP 
!!DL 1103,1105 RK 
!!DL 1110,1113 VDU MM 
!!DL 1115 
!!DL 1129,1155 KBVGO
!!DL 1156,1175 RKGO 
!!DL 1176,1191 GTPGO
!!DL 1192,1203 LPGO 
!!DL 1217,1234 OFFLINE
!!DL 1250,1262 RKSWITCH 
!!DL 1265 REENTER 
!!DL 1274,1276
!!EN
NOD C 
TRA /S,NL 
INC DIV173,DIVFMT 
INC REMSUB
NOD R 
LED SCREEN,/S 
!!CH $$KEY461$$KEY173$$ 
!!CH $$SL461$$SLCOP$$ 
!!EN
TRA /S,NL 
LED RGSTRT
!!DL 68,71
!!JN GENDAT,1,4 
!!EN
TRA /S,NL 
NOD R 
INC MOD173
INC REMREO
NOD R 
INC RGMAIN
INC RGSUBS
INC RGSUB1
INC RGSUB2
INC RGSUB3
NOD R 
INC RGKLAR
INC KTPLN 
INC KTOPR 
INC BUDD
INC RAADUM
NOD R 
INC RGADM 
NOD R 
INC ADM5D 
INC SUBAPL
INC RGSUB4
NOD R 
INC KMDIO 
INC DKSUBS
INC REMTXT
NOD R 
INC RGFRMT
LED REMFMT
!!DL 287,329
FBDTCHK FRMT
 FILLR '+',2
 FNL
 FILLR ' ',48 
 FMEL '99V99V99',GTPRTDAT 
 FILLR ' ',17 
 FILLR '*',1
 FTEXT X'0F' (1) TOTAL AMOUNT 
 FNL
 FTEXT X'16' (2) TEXT1
 FNL
 FTEXT X'15' (3) INFO1
 FILLR ' ',1
 FTEXT X'0F' (4) AMOUNT1
 FNL
 FILLR ' ',48 
 FTEXT X'1E' (5) LEVNAVN
 FNL
 FTEXT X'16' (6) TEXT2
 FILLR ' ',26 
 FTEXT X'20' (7) LEVADR 
 FNL
 FTEXT X'15' (8) INFO2
 FILLR ' ',1
 FTEXT X'0F' (9) AMOUNT2
 FILLR ' ',11 
 FTEXT X'14' (10) LEVBY 
 FNL
 FILLR ' ',48 
 FTEXT X'04' (11) POSTNR
 FILLR ' ',2
 FTEXT X'0D' (12) POSTDIST
 FNL
 FTEXT X'16' (13) TEXT3 
 FNL
 FTEXT X'15' (14) INFO3 
 FILLR ' ',1
 FTEXT X'0F' (15) AMOUNT3 
 FNL
 FNL
 FNL
 FILLR ' ',12 
 FTEXT X'0A' (16) FTEXT CHECKBELOB
 FTEXT X'0F' (17) TOTAL AMOUNT
 FMEND
!!EN
TRA /S,NL 
NOD R 
INC REMLEV
INC ADM6
NOD R 
INC REMSUB
INC REMTR 
NOD R 
LED REMBDT
!!CH $$EJECT$$ $$ 
!!DL 65,67
 MOVE GSWBIN8,=W'52'
!!IL 71 
 MOVE GSWSTR1,=C'!' 
 EDIT GSWSTR20,CHKFRM1A LEFTALIGN AMOUNT
 MOVE GSWBIN8,CBIN0 
 MATCH GSWSTR20,GSWBIN8,CBIN20,GSWSTR1,CBIN0,CBIN1
 MOVE GSWBIN7,CBIN20
 SUB GSWBIN7,GSWBIN8
 SUB GSWBIN8,CBIN1 DELETE '!' 
 ADD GSWBIN7,CBIN0
 DLETE GSWSTR20,GSWBIN8,GSWBIN7 
!!DL 73 MOVE GTCYSUM,0
!!RE 80,$$15$$20$$
!!IL 85 
 CLEAR CWORK1 
!!IL 88 
 DSC1 KVOUCH,POS,CBIN1
 EDWRT KVOUCH,CHKFRM1B
!!DL 300,302
 PERF FMOD,CBIN2,GTLEVTXT TEST
 PERF FMOD,CBIN3,SPINPUT INFO 
 PERF FMOD,CBIN4,GSWSTR20 AMOUNT
!!DL 305,307
 PERF FMOD,CBIN6,GTLEVTXT 
 PERF FMOD,CBIN8,SPINPUT
 PERF FMOD,CBIN9,GSWSTR20 
!!DL 310,312
 PERF FMOD,CBIN13,GTLEVTXT
 PERF FMOD,CBIN14,SPINPUT 
 PERF FMOD,CBIN15,GSWSTR20
!!DL 370
 FMEL 'TTTTTTTVTT9,99-',GTBSUM1 
!!DL 379
!!DL 401,444 CHKFRM1
CHKFRM1A FRMT 
 FILLR '*',1
 FMEL 'T.TTT.TTT.TT9,99-',GTCYSUM 
 FILLR '!',1
 FMEND

CHKFRM1 FRMT
 FILLR '+',2
 FMEL '99V99V99',GTDATO 
 FILLR ' ',18 
 FCOPY GSWSTR20 
 FILLR ' ',21 
 FEOR 
 FILLR '4',2
 FCOPY GTLEVNVN 
 FILLR ' ',35 
 FEOR 
 FILLR '2',2
 FCOPY GTLEVADR 
 FILLR ' ',33 
 FEOR 
 FILLR '2',2
 FCOPY GTLEVBY
 FILLR ' ',45 
 FEOR 
 FILLR '2',2
 FMEL 'ZZZZ',GTLEVPNR 
 FILLR ' ',2
 FCOPY GTLEVPDI 
 FILLR ' ',46 
 FEOR 
 FILLR '4',2
 FEOR 
 FILLR '4',2
 FEOR 
 FILLR '4',2
 FEOR 
 FILLR '4',2
 FEOR 
 FILLR '3',2
 FMEL '99V99V99',GTDATO 
 FILLR ' ',23 
 FEOR 
 FMEND

CHKFRM1B FRMT 
 FILLR '+',2
 FCOPY =X'434845434B42454C5C42' 
 FILLR ' ',3
 FMEL 'ZZVZZZVZZ9,99-',GTCYSUM
 FMEND
!!DL 454
!!DL 456
!!EN
TRA /S,NL 
TLK U,4K
INC DCTSK 
$INCGEN 
LKE M 
KPF /L,RGL173 
SCR 
MES $PDISC M=M:173,MU=M:POOL92,A=RGL173,C=C173
$ASG2

Full view