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

⟦e65f1a50c⟧ 

    Length: 1308 (0x51c)
    Notes: pts_type(UF)
    Names: »M:PROC.UF«

Derivation

└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »TOSSUTIL/M:PROC.UF«

PTS(SC)

$SORTC
LED CONPAR,/S,/EE,##
##CH $$TIMER	DATA	1$$TIMER	DATA	0$$ 
##EN
ASM /S,NL 
KPF /O
INC CCI 
INC SRTTAB
LKE U,M 
KPF /L,SORT8
END 
$SORTD
LED CONPAR,/S,/EE,##
##CH $$TIMER	DATA	1$$TIMER	DATA	0$$ 
##EN
ASM /S,NL 
KPF /O
INC CCI:OV
INC TAB:OV
INC CCISUB
INC CDISCT
INC BIDACR
INC CONPAR
LKE N,M 
KPF /L,CCIROT 
END

HexDump

0x000…00e (0, 0, 400) Head {h00=0x000a, h01=0x0050, text=»$SORTC«, t00=0x0000, t01=0x0004}
0x00e…02a             Head {h00=0x0018, h01=0x0050, text=»LED CONPAR,/S,/EE,##«, t00=0x0000, t01=0x0012}
0x02a…056             Head {h00=0x0028, h01=0x0050, text=»##CH $$TIMER DATA 1$$TIMER DATA 0$$ «, t00=0x0000, t01=0x002e}
0x056…062             Head {h00=0x0008, h01=0x0050, text=»##EN«, t00=0x0000, t01=0x005a}
0x062…074             Head {h00=0x000e, h01=0x0050, text=»ASM /S,NL «, t00=0x0000, t01=0x0066}
0x074…082             Head {h00=0x000a, h01=0x0050, text=»KPF /O«, t00=0x0000, t01=0x0078}
0x082…092             Head {h00=0x000c, h01=0x0050, text=»INC CCI «, t00=0x0000, t01=0x0086}
0x092…0a4             Head {h00=0x000e, h01=0x0050, text=»INC SRTTAB«, t00=0x0000, t01=0x0096}
0x0a4…0b4             Head {h00=0x000c, h01=0x0050, text=»LKE U,M «, t00=0x0000, t01=0x00a8}
0x0b4…0c8             Head {h00=0x0010, h01=0x0050, text=»KPF /L,SORT8«, t00=0x0000, t01=0x00b8}
0x0c8…0d4             Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0000, t01=0x00cc}
0x0d4…0e2             Head {h00=0x000a, h01=0x0050, text=»$SORTD«, t00=0x0000, t01=0x00d8}
0x0e2…0fe             Head {h00=0x0018, h01=0x0050, text=»LED CONPAR,/S,/EE,##«, t00=0x0000, t01=0x00e6}
0x0fe…12a             Head {h00=0x0028, h01=0x0050, text=»##CH $$TIMER DATA 1$$TIMER DATA 0$$ «, t00=0x0000, t01=0x0102}
0x12a…136             Head {h00=0x0008, h01=0x0050, text=»##EN«, t00=0x0000, t01=0x012e}
0x136…148             Head {h00=0x000e, h01=0x0050, text=»ASM /S,NL «, t00=0x0000, t01=0x013a}
0x148…156             Head {h00=0x000a, h01=0x0050, text=»KPF /O«, t00=0x0000, t01=0x014c}
0x156…168             Head {h00=0x000e, h01=0x0050, text=»INC CCI:OV«, t00=0x0000, t01=0x015a}
0x168…17a             Head {h00=0x000e, h01=0x0050, text=»INC TAB:OV«, t00=0x0000, t01=0x016c}
0x17a…18c             Head {h00=0x000e, h01=0x0050, text=»INC CCISUB«, t00=0x0000, t01=0x017e}
0x18c…19e             Head {h00=0x000e, h01=0x0050, text=»INC CDISCT«, t00=0x0000, t01=0x0190}
0x19e…1b0             Head {h00=0x000e, h01=0x0050, text=»INC BIDACR«, t00=0x0001, t01=0x0012}
0x1b0…1c2             Head {h00=0x000e, h01=0x0050, text=»INC CONPAR«, t00=0x0001, t01=0x0024}
0x1c2…1d2             Head {h00=0x000c, h01=0x0050, text=»LKE N,M «, t00=0x0001, t01=0x0036}
0x1d2…1e8             Head {h00=0x0012, h01=0x0050, text=»KPF /L,CCIROT «, t00=0x0001, t01=0x0046}
0x1e8…1f4             Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0001, t01=0x005c}
0x1f4…1f8 (2, 1, 8)   Head {h00=0x2004, h01=0x0000}
0x1f8…1fc             00 02 00 04                                                                                                                                                                                                                                       ┆    ┆
0x1fc…24c (3, 0, 400) 2a 2a 2a 20 00 22 01 8c 00 04 00 50 00 23 00 0c 00 04 00 50 00 23 00 14 00 10 00 50 57 52 49 54 45 5c 45 51 55 5c 2a 20 00 23 00 1c 00 20 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 36 5c 53 45 51 55 45 4e 54 49 41 4c 20 57 52 49 54 45 00 23 00 30   ┆***  "     P #     P #     PWRITE EQU *  #     P LDK A7,/86 SEQUENTIAL WRITE # 0┆
0x24c…29c             00 08 00 50 5c 4c 4b 4d 00 23 00 54 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 23 00 60 00 20 00 50 5c 4c 44 5c 41 32 2c 38 2c 41 38 5c 47 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 23 00 70 00 12 00 50 5c 52 46 28 5a 29 5c 57 52 49 54 31   ┆   P LKM # T   P DATA 1  # `   P LD A2,8,A8 GET RETURN CODE  # p   P RF(Z) WRIT1┆
0x29c…2ec             30 20 00 23 00 94 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 23 00 aa 00 12 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 41 30 38 33 00 23 00 bc 00 24 00 50 5c 52 42 28 4e 5a 29 5c 52 54 4e 3a 30 32 5c 4f 55 54 50 55 54 20 49 2f 4f 20 45 52 52 4f   ┆0  #     P LDR A3,A2 #     P ANKL A2,/A083 #   $ P RB(NZ) RTN:02 OUTPUT I/O ERRO┆
0x2ec…33c             52 3f 00 23 00 d2 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 32 30 20 00 23 00 fa 00 30 00 50 5c 52 42 28 4e 5a 29 5c 52 54 4e 3a 30 38 5c 4f 55 54 50 55 54 20 46 49 4c 45 20 4e 4f 54 20 4c 41 52 47 45 20 45 4e 4f 55 47 48 3f 00 23 01 0e 00 06   ┆R? #     P ANK A3,/20  #   0 P RB(NZ) RTN:08 OUTPUT FILE NOT LARGE ENOUGH? #    ┆
0x33c…38c             00 50 2a 20 00 23 01 42 00 12 00 50 57 52 49 54 31 30 5c 52 54 4e 5c 41 31 34 00 23 01 4c 00 06 00 50 2a 20 00 23 01 62 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 52 49 4e 44 45 58 20 00 23 01 6c 00 04 00 50 00 23 01 84 00 04 00 50 00 23 01 8c   ┆ P*  # B   PWRIT10 RTN A14 # L   P*  # b   P EJECT   RINDEX  # l   P #     P #  ┆
0x38c…3dc (4, 0, 400) 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 24 00 04 00 18 00 50 2a 52 41 4e 44 4f 4d 20 52 45 41 44 2f 44 45 4c 45 54 45 2a 00 24 00 20 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆   P******************** $     P*RANDOM READ/DELETE* $     P********************┆
0x3dc…42c             00 24 00 3c 00 04 00 50 00 24 00 58 00 04 00 50 00 24 00 60 00 22 00 50 52 41 4e 44 52 44 5c 4c 44 4b 5c 41 37 2c 2f 38 41 5c 52 41 4e 44 4f 4d 20 52 45 41 44 20 00 24 00 68 00 0c 00 50 5c 52 46 5c 4c 49 4e 4b 00 24 00 8e 00 06 00 50 2a 20   ┆ $ <   P $ X   P $ ` " PRANDRD LDK A7,/8A RANDOM READ  $ h   P RF LINK $     P* ┆
0x42c…47c             00 24 00 9e 00 24 00 50 52 41 4e 44 44 4c 5c 4c 44 4b 5c 41 37 2c 2f 38 45 5c 52 41 4e 44 4f 4d 20 44 45 4c 45 54 45 20 00 24 00 a8 00 0e 00 50 5c 43 57 4b 5c 41 34 2c 31 20 00 24 00 d0 00 32 00 50 5c 52 46 28 4e 45 29 5c 4c 49 4e 4b 5c 4a   ┆ $   $ PRANDDL LDK A7,/8E RANDOM DELETE  $     P CWK A4,1  $   2 P RF(NE) LINK J┆
0x47c…4cc             55 4d 50 20 49 46 20 4e 4f 54 20 4c 41 53 54 20 52 45 43 4f 52 44 20 49 4e 20 53 45 43 54 4f 52 00 24 00 e2 00 2c 00 50 5c 4c 44 4b 5c 41 37 2c 2f 38 43 5c 52 41 4e 44 4f 4d 20 44 45 4c 45 54 45 20 28 4e 4f 54 20 44 45 4c 41 59 45 44 29 20   ┆UMP IF NOT LAST RECORD IN SECTOR $   , P LDK A7,/8C RANDOM DELETE (NOT DELAYED) ┆
0x4cc…51c             00 24 01 18 00 06 00 50 2a 20 00 24 01 48 00 2a 00 50 4c 49 4e 4b 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 52 4e 44 5c 47 45 54 20 45 43 42 52 4e 44 20 41 44 44 52 45 53 53 00 24 01 52 00 08 00 50 5c 4c 4b 4d 00 24 01 80 00 0c 00 50 5c 44 41 54   ┆ $     P*  $ H * PLINK LDKL A8,ECBRND GET ECBRND ADDRESS $ R   P LKM $     P DAT┆

Reduced view