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

⟦37c1df0d9⟧ 

    Length: 7720 (0x1e28)
    Notes: pts_type(UF)
    Names: »KM174.UF«

Derivation

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

PTS(SC)

PRT KM174 
PRT C174
MES LYNGBY-T]RB[K KOMMUNE, REMITTERING
MES 820809 NJ 
MES * 
MES L1: MASTER,TTP,PDU,KBAN 
MES L2: TTP,VDU,KBAN
MES L3: GTP 
MES L8: VDU+KBAN=CREBUG 
SCR 
LED KMD08 
!!CH $$EJECT$$ $$ 
!!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 246,$$FALSE$$TRUE$$ FELT 48
!!RE 247,$$TRUE$$FALSE$$ CKTAUTO
!!RE 248,$$FALSE$$TRUE$$ DC 
!!RE 251,$$FALSE$$TRUE$$ 5M DISK
!!RE 252,$$TRUE$$FALSE$$ CASSETTE BACKUP
!!RE 279,$$FALSE$$TRUE$$ CREMITFLG
!!RE 288,$$FALSE$$TRUE$$ TEXT REG 
!!RE 289,$$FALSE$$TRUE$$ LEV REG
!!RE 290,$$FALSE$$TRUE$$ BUNDTREMIT 
!!DL 331
CFLAG BINI (12,2),X'0051',X'0000',X'0078',X'0000',		C 
		X'0012',X'0000' 
!!RE 362,$$FALSE$$TRUE$$ CFAKT10
!!RE 363,$$FALSE$$TRUE$$ 90-94
!!RE 364,$$FALSE$$TRUE$$ CSPEC
!!RE 373,$$FALSE$$TRUE$$ COMPRESS LEV IN REORG
!!RE 484,$$1400$$10000$$ NO OF REG. 
!!RE 490,$$128$$80$$
!!RE 494,$$20$$210$$ LEV INDEX
!!RE 495,$$5$$1$$ KORT LINE 
!!DL 496,497
FROMTX STRGI (12)2C'  ' 
!!DL 817,1091 RK
!!DL 1095,1096 KB 
!!DL 1097,1098 GTP
!!DL 1101,1102 LP 
!!DL 1103,1105 RK 
!!DL 1110,1113 VDU MM 
!!DL 1115 OFFLINE 
!!DL 1129,1155 KBVGO
!!DL 1156,1175 RKGO 
!!DL 1176,1191 GTPGO
!!DL 1192,1203 LPGO 
!!DL 1217,1234 OFFLNE 
!!DL 1250,1262 RKSWITCH 
!!DL 1265 
!!DL 1274,1276
!!EN
MES * 
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 
INC RGSUB4
INC RGSTRT
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 
INC BUDD
NOD R 
INC ADM5D 
INC SUBAPL
INC REMPRT
NOD R 
INC KMDIO 
INC DKSUBS
INC REMTXT
NOD R 
INC RGFRMT
LED REMFMT
!!CH $$EJECT$$ $$ 
!!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
NOD R 
INC REMLEV
INC ADM6
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
INC REMTR 
TLK U,4K
INC DCTSK 
LKE M 
KPF /L,RGL174 
SCR 
MES $PDISC M=M:173,MU=M:POOL92,A=RGL174,C=C174
$ASG2

Full view