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

⟦f8855134a⟧

    Length: 904 (0x388)
    Notes: pts_type(SC)
    Names: »BITPUL.SC«

Derivation

└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
    └─⟦this⟧ »ATM/BITPUL.SC« 
    └─⟦this⟧ »ATM6601/BITPUL.SC« 
    └─⟦this⟧ »BEBATM/BITPUL.SC« 

PTS(SC)

	IDENT BITPUL REL 12.0 83-01-21 
 ENTRY TESTBI 
 ENTRY SETBIT 
 EXTRN I:EVA0 
 EXTRN I:RT1

TESTBI EQU *
 CF A14,I:EVA0
 LDR* A1,A9 GET BIN CONTENTS
 ST A1,-2,A9 STORE BOOLEANS 
RETURN EQU *
 ABL I:RT1

SETBIT EQU *
 CF A14,I:EVA0
 LD A1,-2,A9 GET BOOLEANS 
 STR A1,A9 STORE IN BIN 
 RB RETURN
 END

HexDump

0x000…028 (0, 0, 398) Head {h00=0x0024, h01=0x001f, text=» IDENT BITPUL REL 12.0 83-01-21 «, t00=0x0000, t01=0x0004}
0x028…03e             Head {h00=0x0012, h01=0x000d, text=» ENTRY TESTBI «, t00=0x0000, t01=0x002c}
0x03e…054             Head {h00=0x0012, h01=0x000d, text=» ENTRY SETBIT «, t00=0x0000, t01=0x0042}
0x054…06a             Head {h00=0x0012, h01=0x000d, text=» EXTRN I:EVA0 «, t00=0x0000, t01=0x0058}
0x06a…07e             Head {h00=0x0010, h01=0x000c, text=» EXTRN I:RT1«, t00=0x0000, t01=0x006e}
0x07e…086             Head {h00=0x0004, h01=0x0000, t00=0x0000, t01=0x0082}
0x086…09a             Head {h00=0x0010, h01=0x000c, text=»TESTBI EQU *«, t00=0x0000, t01=0x008a}
0x09a…0b0             Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0000, t01=0x009e}
0x0b0…0d4             Head {h00=0x0020, h01=0x001c, text=» LDR* A1,A9 GET BIN CONTENTS«, t00=0x0000, t01=0x00b4}
0x0d4…0f8             Head {h00=0x0020, h01=0x001b, text=» ST A1,-2,A9 STORE BOOLEANS «, t00=0x0000, t01=0x00d8}
0x0f8…10c             Head {h00=0x0010, h01=0x000c, text=»RETURN EQU *«, t00=0x0000, t01=0x00fc}
0x10c…11e             Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0000, t01=0x0110}
0x11e…126             Head {h00=0x0004, h01=0x0000, t00=0x0000, t01=0x0122}
0x126…13a             Head {h00=0x0010, h01=0x000c, text=»SETBIT EQU *«, t00=0x0000, t01=0x012a}
0x13a…150             Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0000, t01=0x013e}
0x150…172             Head {h00=0x001e, h01=0x0019, text=» LD A1,-2,A9 GET BOOLEANS «, t00=0x0000, t01=0x0154}
0x172…192             Head {h00=0x001c, h01=0x0017, text=» STR A1,A9 STORE IN BIN «, t00=0x0000, t01=0x0176}
0x192…1a4             Head {h00=0x000e, h01=0x000a, text=» RB RETURN«, t00=0x0001, t01=0x0008}
0x1a4…1b0             Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0001, t01=0x001a}
0x1b0…1b4             Head {h00=0x4004, h01=0x0000}
0x1b4…1b8             00 01 00 26                                                                                                                                                                                                                                       ┆   &┆
0x1b8…1c0 (2, 1, 8)   20 04 00 00 00 02 00 04                                                                                                                                                                                                                           ┆        ┆
0x1c0…210 (3, 2, 246) 00 34 00 40 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 20 45 4c 41 44 44 52 20 20 20 20 20 47 45 54 20 49 54 45 4d 20 53 54 41 52 54 20 41 44 44 52 20 00 03 00 04 00 0e 00 0a 01 04 c4 45 4c 41 44 44 52 00 00 03 00 3c 00 10 00 0c 05 05   ┆ 4 @        IDENT    ELADDR     GET ITEM START ADDR            ELADDR    <      ┆
0x210…260             dc 45 4c 41 44 44 52 00 00 00 00 03 00 4e 00 0e 00 0a 02 04 c2 49 3a 45 56 41 30 00 00 03 00 62 00 2c 00 28 03 13 00 00 00 01 44 00 f6 a1 00 00 00 02 86 06 f6 a1 00 00 00 02 81 b9 01 00 a1 a0 00 01 50 00 01 02 e2 5a 00 02 22 fc 00 03 00 74   ┆ ELADDR      N       I:EVA0    b , (      D                       P    Z  "    t┆
0x260…2b0             00 0c 00 08 02 03 a2 49 3a 52 54 31 00 03 00 a4 00 18 00 14 03 09 00 00 00 1d 08 00 aa 04 e2 5b 00 02 8f 20 00 00 00 04 00 03 00 b4 00 0c 00 08 04 03 00 00 00 13 50 02 00 03 00 d0 00 0e 00 0a 07 04 00 00 00 00 00 26 00 00 00 03 00 e0 40 04   ┆       I:RT1                   [                      P                &      @ ┆
0x2b0…2b6             00 00 00 03 00 f2                                                                                                                                                                                                                                 ┆      ┆
0x2b6…306 (4, 2, 210) 00 36 00 40 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 20 20 20 47 45 54 46 43 20 20 20 20 20 20 47 45 54 20 46 49 4c 45 20 43 4f 44 45 20 52 45 4c 20 31 2e 31 20 00 04 00 04 00 0c 00 08 01 03 a4 47 45 54 46 43 00 04 00 3e 00 0e 00 0a 05 04   ┆ 6 @        IDENT    GETFC      GET FILE CODE REL 1.1            GETFC   >      ┆
0x306…356             bc 47 45 54 46 43 00 00 00 04 00 4e 00 0e 00 0a 02 04 c2 54 3a 46 44 53 50 00 00 04 00 60 00 0e 00 0a 02 04 c2 49 3a 45 56 41 30 00 00 04 00 72 00 0c 00 08 02 03 a2 49 3a 52 54 31 00 04 00 84 00 24 00 20 03 0f 00 00 00 01 48 20 f6 a1 00 00   ┆ GETFC     N       T:FDSP    `       I:EVA0    r       I:RT1     $        H     ┆
0x356…388             00 02 f6 a1 00 00 00 04 81 22 e1 47 00 01 8f 20 00 00 00 06 00 04 00 94 00 0e 00 0a 07 04 00 00 00 00 00 12 00 00 00 04 00 bc 40 04 00 00 00 04 00 ce                                                                                             ┆         " G                              @       ┆

Reduced view