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

⟦74a931731⟧ 

    Length: 1340 (0x53c)
    Notes: pts_type(UF)
    Names: »NN.UF«

Derivation

└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
    └─⟦this⟧ »PT3272/NN.UF«

PTS(SC)

SCR 
BEA PRINT 
KPF /O
SCR 
BEA KEYB1 
KPF /O
SCR 
ASG /E0,TY10
END

HexDump

0x000…00c (0, 0, 132) Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x0004}
0x00c…01e             Head {h00=0x000e, h01=0x0009, text=»BEA PRINT «, t00=0x0000, t01=0x0010}
0x01e…02c             Head {h00=0x000a, h01=0x0006, text=»KPF /O«, t00=0x0000, t01=0x0022}
0x02c…038             Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x0030}
0x038…04a             Head {h00=0x000e, h01=0x0009, text=»BEA KEYB1 «, t00=0x0000, t01=0x003c}
0x04a…058             Head {h00=0x000a, h01=0x0006, text=»KPF /O«, t00=0x0000, t01=0x004e}
0x058…064             Head {h00=0x0008, h01=0x0003, text=»SCR «, t00=0x0000, t01=0x005c}
0x064…078             Head {h00=0x0010, h01=0x000c, text=»ASG /E0,TY10«, t00=0x0000, t01=0x0068}
0x078…084             Head {h00=0x0008, h01=0x0003, text=»END «, t00=0x0000, t01=0x007c}
0x084…088 (1, 1, 8)   Head {h00=0x2004, h01=0x0000}
0x088…08c             00 01 00 04                                                                                                                                                                                                                                       ┆    ┆
0x08c…0dc (2, 0, 400) 00 51 01 56 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 52 00 08 00 10 00 50 2a 5c 5c 52 45 47   ┆ Q V > P*********************************************************  R     P*  REG┆
0x0dc…12c             49 53 54 45 52 53 00 52 00 4a 00 06 00 50 2a 20 00 52 00 5e 00 10 00 50 2a 5c 41 32 3d 20 43 48 41 52 2e 20 00 52 00 68 00 20 00 50 2a 5c 41 33 3d 20 41 44 44 52 45 53 53 20 49 4e 20 56 44 55 2d 42 55 46 46 45 52 20 00 52 00 7c 00 1a 00 50   ┆ISTERS R J   P*  R ^   P* A2= CHAR.  R h   P* A3= ADDRESS IN VDU-BUFFER  R |   P┆
0x12c…17c             2a 5c 41 34 3d 20 52 45 4c 2e 20 43 55 52 53 4f 52 20 50 4f 53 2e 00 52 00 a0 00 1e 00 50 2a 5c 41 35 3d 20 52 45 4c 2e 20 41 54 54 52 49 42 55 54 45 20 50 4f 53 2e 20 00 52 00 be 00 24 00 50 2a 5c 41 36 3d 20 49 4e 54 45 52 4e 41 4c 20 4c   ┆* A4= REL. CURSOR POS. R     P* A5= REL. ATTRIBUTE POS.  R   $ P* A6= INTERNAL L┆
0x17c…1cc             49 4e 45 20 46 4c 41 47 20 41 44 44 52 45 53 53 00 52 00 e0 00 1c 00 50 2a 5c 41 31 31 3d 20 43 52 45 44 49 54 20 57 4f 52 4b 20 41 52 45 41 20 00 52 01 08 00 14 00 50 2a 5c 41 31 33 3d 20 52 45 53 45 52 56 45 44 20 00 52 01 28 00 06 00 50   ┆INE FLAG ADDRESS R     P* A11= CREDIT WORK AREA  R     P* A13= RESERVED  R (   P┆
0x1cc…21c             2a 20 00 52 01 40 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 52 01 4a 00 10 00 50 45 52 41 53   ┆*  R @ > P*********************************************************  R J   PERAS┆
0x21c…26c (3, 0, 400) 55 50 5c 45 51 55 5c 2a 00 52 01 8c 00 22 00 50 5c 4c 44 4b 5c 41 31 2c 32 5c 52 45 53 54 4f 52 45 20 4b 45 59 42 4f 41 52 44 2d 42 49 54 00 53 00 10 00 12 00 50 5c 53 54 5c 41 31 2c 57 43 43 2c 41 31 31 00 53 00 36 00 20 00 50 5c 4c 44 4b   ┆UP EQU * R   " P LDK A1,2 RESTORE KEYBOARD-BIT S     P ST A1,WCC,A11 S 6   P LDK┆
0x26c…2bc             5c 41 34 2c 30 5c 46 49 52 53 54 20 53 43 52 45 45 4e 20 50 4f 53 2e 20 00 53 00 4c 00 12 00 50 5c 4c 44 4b 4c 5c 41 33 2c 42 56 44 55 20 00 53 00 70 00 10 00 50 5c 41 44 52 5c 41 33 2c 41 31 31 20 00 53 00 86 00 22 00 50 5c 4c 44 4b 5c 41   ┆ A4,0 FIRST SCREEN POS.  S L   P LDKL A3,BVDU  S p   P ADR A3,A11  S   " P LDK A┆
0x2bc…30c             37 2c 4e 55 4c 4c 5c 53 54 4f 52 45 20 4e 55 4c 4c 20 43 48 41 52 2e 20 00 53 00 9a 00 28 00 50 5c 43 57 4b 5c 41 35 2c 4c 42 56 44 55 2b 31 5c 55 4e 46 4f 52 4d 41 54 54 45 44 20 53 43 52 45 45 4e 3f 20 00 53 00 c0 00 16 00 50 5c 52 46 28   ┆7,NULL STORE NULL CHAR.  S   ( P CWK A5,LBVDU+1 UNFORMATTED SCREEN?  S     P RF(┆
0x30c…35c             4e 45 29 5c 45 52 55 50 31 30 5c 4e 4f 20 00 53 00 ec 00 12 00 50 5c 43 46 5c 41 31 34 2c 45 52 41 53 45 20 00 53 01 06 00 0e 00 50 5c 52 46 5c 45 52 55 50 39 30 00 53 01 1c 00 10 00 50 45 52 55 50 31 30 5c 45 51 55 5c 2a 00 53 01 2e 00 18   ┆NE) ERUP10 NO  S     P CF A14,ERASE  S     P RF ERUP90 S     PERUP10 EQU * S .  ┆
0x35c…3ac             00 50 5c 4c 43 52 5c 41 32 2c 41 33 5c 47 45 54 20 43 48 41 52 2e 00 53 01 42 00 1c 00 50 5c 43 43 4b 5c 41 32 2c 2f 38 30 30 30 5c 41 54 54 52 49 42 55 54 45 3f 00 53 01 5e 00 16 00 50 5c 52 46 28 4e 4c 29 5c 45 52 55 50 32 30 5c 59 45 53   ┆ P LCR A2,A3 GET CHAR. S B   P CCK A2,/8000 ATTRIBUTE? S ^   P RF(NL) ERUP20 YES┆
0x3ac…3fc (4, 0, 400) 00 53 01 7e 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 31 20 00 54 00 08 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 31 20 00 54 00 1a 00 0e 00 50 5c 52 42 5c 45 52 55 50 31 30 00 54 00 2c 00 10 00 50 45 52 55 50 32 30 5c 45 51 55 5c 2a 00 54 00 3e 00 24   ┆ S ~   P ADK A3,1  T     P ADK A4,1  T     P RB ERUP10 T ,   PERUP20 EQU * T > $┆
0x3fc…44c             00 50 5c 4c 44 52 5c 41 39 2c 41 34 5c 46 49 52 53 54 20 41 54 54 52 49 42 55 54 45 20 50 4f 53 2e 20 00 54 00 52 00 12 00 50 5c 4c 44 4b 5c 41 35 2c 4c 4c 49 4e 45 20 00 54 00 7a 00 10 00 50 5c 4c 44 52 5c 41 36 2c 41 31 31 20 00 54 00 90   ┆ P LDR A9,A4 FIRST ATTRIBUTE POS.  T R   P LDK A5,LLINE  T z   P LDR A6,A11  T  ┆
0x44c…49c             00 10 00 50 5c 53 55 52 5c 41 31 30 2c 41 31 30 00 54 00 a4 00 10 00 50 5c 43 46 5c 41 31 34 2c 4c 49 4e 45 00 54 00 b8 00 0e 00 50 5c 52 46 5c 45 52 55 50 34 37 00 54 00 cc 00 10 00 50 45 52 55 50 33 30 5c 45 51 55 5c 2a 00 54 00 de 00 0e   ┆   P SUR A10,A10 T     P CF A14,LINE T     P RF ERUP47 T     PERUP30 EQU * T    ┆
0x49c…4ec             00 50 5c 41 44 4b 5c 41 33 2c 31 20 00 54 00 f2 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 31 20 00 54 01 04 00 2a 00 50 5c 43 46 5c 41 31 34 2c 4c 49 4e 57 52 50 5c 43 48 45 43 4b 20 49 46 20 4c 49 4e 57 52 50 20 41 52 4f 55 4e 44 20 00 54 01 16   ┆ P ADK A3,1  T     P ADK A4,1  T   * P CF A14,LINWRP CHECK IF LINWRP AROUND  T  ┆
0x4ec…53c             00 18 00 50 5c 4c 43 52 5c 41 32 2c 41 33 5c 47 45 54 20 43 48 41 52 2e 00 54 01 44 00 1c 00 50 5c 43 43 4b 5c 41 32 2c 2f 38 30 30 30 5c 41 54 54 52 49 42 55 54 45 3f 00 54 01 60 00 14 00 50 5c 52 42 28 4c 29 5c 45 52 55 50 33 30 5c 4e 4f   ┆   P LCR A2,A3 GET CHAR. T D   P CCK A2,/8000 ATTRIBUTE? T `   P RB(L) ERUP30 NO┆

Reduced view