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

⟦9869112b8⟧ 

    Length: 1340 (0x53c)
    Notes: pts_type(SC)
    Names: »GMSGIX.SC«

Derivation

└─⟦025d39960⟧ Bits:30009672 Philips computer tape "600133"
    └─⟦this⟧ »A:DSB/GMSGIX.SC«

PTS(SC)

	IDENT	GMSGIX	810916 NJ 
* 
* 
	ENTRY	GMSGIX 
	EXTRN	I:EVA0 
	EXTRN	I:RT1
* 
* 
*	THE ROUTINE SHIFTS THE CONTENTS 
*	OF BIT 4-10 TO BIT 9-15 
*	THESE BITS CONTAIN THE MESSAGEINDEX 
*	FOR A FIELD IN ERROR
* 
GMSGIX	EQU	*
	CF	A14,I:EVA0
	LD	A1,0,A9	LOAD FIELD CONTENTS 
	ANKL	A1,/0FFF	ZEROISE BIT 0-3
	SRL	A1,5	SHIFT (4-10) -> (9-15)
	ST	A1,0,A9	RESTORE CONTENTS
	ABL	I:RT1
	END

HexDump

0x000…020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT GMSGIX 810916 NJ «, t00=0x0000, t01=0x0004}
0x020…02a             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0024}
0x02a…034             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x002e}
0x034…04a             Head {h00=0x0012, h01=0x0050, text=» ENTRY GMSGIX «, t00=0x0000, t01=0x0038}
0x04a…060             Head {h00=0x0012, h01=0x000d, text=» EXTRN I:EVA0 «, t00=0x0000, t01=0x004e}
0x060…074             Head {h00=0x0010, h01=0x000c, text=» EXTRN I:RT1«, t00=0x0000, t01=0x0064}
0x074…07e             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0078}
0x07e…088             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0082}
0x088…0b2             Head {h00=0x0026, h01=0x0021, text=»* THE ROUTINE SHIFTS THE CONTENTS «, t00=0x0000, t01=0x008c}
0x0b2…0d4             Head {h00=0x001e, h01=0x0050, text=»* OF BIT 4-10 TO BIT 9-15 «, t00=0x0000, t01=0x00b6}
0x0d4…102             Head {h00=0x002a, h01=0x0025, text=»* THESE BITS CONTAIN THE MESSAGEINDEX «, t00=0x0000, t01=0x00d8}
0x102…120             Head {h00=0x001a, h01=0x0016, text=»* FOR A FIELD IN ERROR«, t00=0x0000, t01=0x0106}
0x120…12a             Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0124}
0x12a…13e             Head {h00=0x0010, h01=0x0050, text=»GMSGIX EQU *«, t00=0x0000, t01=0x012e}
0x13e…154             Head {h00=0x0012, h01=0x000e, text=» CF A14,I:EVA0«, t00=0x0000, t01=0x0142}
0x154…17c             Head {h00=0x0024, h01=0x001f, text=» LD A1,0,A9 LOAD FIELD CONTENTS «, t00=0x0000, t01=0x0158}
0x17c…1a2             Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/0FFF ZEROISE BIT 0-3«, t00=0x0000, t01=0x0180}
0x1a2…1ca             Head {h00=0x0024, h01=0x0020, text=» SRL A1,5 SHIFT (4-10) -> (9-15)«, t00=0x0001, t01=0x0016}
0x1ca…1ee             Head {h00=0x0020, h01=0x001c, text=» ST A1,0,A9 RESTORE CONTENTS«, t00=0x0001, t01=0x003e}
0x1ee…200             Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0001, t01=0x0062}
0x200…20c             Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0001, t01=0x0074}
0x20c…210             Head {h00=0x4004, h01=0x0000}
0x210…214             00 01 00 80                                                                                                                                                                                                                                       ┆    ┆
0x214…21c (2, 1, 8)   20 04 00 00 00 02 00 04                                                                                                                                                                                                                           ┆        ┆
0x21c…26c (3, 0, 400) 00 26 00 50 20 58 43 4f 50 59 20 54 4b 42 42 55 46 2c 57 30 2c 57 31 30 2c 4f 55 54 42 55 46 2c 54 42 49 4e 38 20 00 13 00 04 00 24 00 50 20 50 45 52 46 49 20 54 42 49 4e 34 2c 5c 46 49 45 4c 44 20 56 41 4c 49 44 41 54 49 4f 4e 5c 43 00 13   ┆ & P XCOPY TKBBUF,W0,W10,OUTBUF,TBIN8      $ P PERFI TBIN4, FIELD VALIDATION C  ┆
0x26c…2bc             00 2e 00 2c 00 50 5c 5c 54 45 53 54 30 31 2c 54 45 53 54 30 32 2c 54 45 53 54 30 33 2c 54 45 53 54 30 34 2c 54 45 53 54 30 35 2c 5c 5c 43 00 13 00 56 00 2c 00 50 5c 5c 54 45 53 54 30 36 2c 54 45 53 54 30 37 2c 54 45 53 54 30 38 2c 54 45 53   ┆ . , P  TEST01,TEST02,TEST03,TEST04,TEST05,  C   V , P  TEST06,TEST07,TEST08,TES┆
0x2bc…30c             54 30 39 2c 54 45 53 54 31 30 2c 5c 5c 43 00 13 00 86 00 2c 00 50 5c 5c 54 45 53 54 31 31 2c 54 45 53 54 31 32 2c 54 45 53 54 31 33 2c 54 45 53 54 31 34 2c 54 45 53 54 31 35 2c 5c 5c 43 00 13 00 b6 00 2c 00 50 5c 5c 54 45 53 54 31 36 2c 54   ┆T09,TEST10,  C     , P  TEST11,TEST12,TEST13,TEST14,TEST15,  C     , P  TEST16,T┆
0x30c…35c             45 53 54 31 37 2c 54 45 53 54 31 38 2c 54 45 53 54 31 39 2c 54 45 53 54 32 30 2c 5c 5c 43 00 13 00 e6 00 2c 00 50 5c 5c 54 45 53 54 32 31 2c 54 45 53 54 32 32 2c 54 45 53 54 32 33 2c 54 45 53 54 32 34 2c 54 45 53 54 32 35 2c 5c 5c 43 00 13   ┆EST17,TEST18,TEST19,TEST20,  C     , P  TEST21,TEST22,TEST23,TEST24,TEST25,  C  ┆
0x35c…3ac             01 16 00 2c 00 50 5c 5c 54 45 53 54 32 36 2c 54 45 53 54 32 37 2c 54 45 53 54 32 38 2c 54 45 53 54 32 39 2c 54 45 53 54 33 30 2c 5c 5c 43 00 13 01 46 00 14 00 50 5c 5c 54 45 53 54 33 31 2c 54 45 53 54 33 32 20 00 13 01 76 00 1a 00 50 20 42   ┆   , P  TEST26,TEST27,TEST28,TEST29,TEST30,  C   F   P  TEST31,TEST32    v   P B┆
0x3ac…3fc (4, 0, 400) 4f 4b 20 4b 42 30 34 30 20 4e 4f 20 45 52 52 4f 52 53 3f 20 00 13 01 8e 00 32 00 50 20 43 41 4c 4c 20 42 49 54 4f 4e 2c 46 4c 44 54 41 42 28 54 42 49 4e 37 2c 57 34 29 2c 57 30 20 49 4e 44 49 43 41 54 45 20 45 52 52 4f 52 00 14 00 1c 00 0c   ┆OK KB040 NO ERRORS?      2 P CALL BITON,FLDTAB(TBIN7,W4),W0 INDICATE ERROR      ┆
0x3fc…44c             00 50 20 42 20 4b 42 30 35 30 00 14 00 52 00 0a 00 50 4b 42 30 34 30 20 00 14 00 62 00 2e 00 50 20 43 41 4c 4c 20 42 49 54 4f 46 46 2c 46 4c 44 54 41 42 28 54 42 49 4e 37 2c 57 34 29 2c 57 30 20 46 49 45 4c 44 20 4f 4b 20 00 14 00 70 00 0a   ┆ P B KB050   R   PKB040    b . P CALL BITOFF,FLDTAB(TBIN7,W4),W0 FIELD OK    p  ┆
0x44c…49c             00 50 4b 42 30 35 30 20 00 14 00 a2 00 12 00 50 20 49 42 20 54 42 49 4e 36 2c 5c 5c 43 20 00 14 00 b0 00 2e 00 50 5c 5c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 35 32 2c 4b 42 30 35 32 2c 4b 42 30 35 32 2c 4b 42 30 39 30 2c 5c 5c 43 20   ┆ PKB050        P IB TBIN6,  C      . P  KB090,KB090,KB052,KB052,KB052,KB090,  C ┆
0x49c…4ec             00 14 00 c6 00 2e 00 50 5c 5c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 5c 5c 43 20 00 14 00 f8 00 2e 00 50 5c 5c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42   ┆     . P  KB090,KB090,KB090,KB090,KB090,KB090,  C      . P  KB090,KB090,KB090,KB┆
0x4ec…53c             30 30 30 2c 4b 42 30 35 32 2c 4b 42 30 39 30 2c 5c 5c 43 20 00 14 01 2a 00 2e 00 50 5c 5c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 39 30 2c 4b 42 30 35 35 2c 4b 42 30 35 35 2c 5c 5c 43 20 00 14 01 5c 00 1e 00 50 5c 5c   ┆000,KB052,KB090,  C    * . P  KB090,KB090,KB090,KB090,KB055,KB055,  C        P  ┆

Reduced view