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

⟦70e364a83⟧ 

    Length: 1384 (0x568)
    Notes: pts_type(SC)
    Names: »EBCDIC.SC«

Derivation

└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
    └─⟦this⟧ »M:AF/EBCDIC.SC«

PTS(SC)

	IDENT EBCDIC 	REL 11.0 81-01-26 870105041100 

* 
************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   EBCDIC = EBCDIC/ASCII TABLE 
* 
* 
* 
* 
* 
* 
************************************************* 
* 
	ENTRY	TASCII 
	ENTRY	TEBCDIC
* 
* 
*  CONDITIONAL ASSEMBLY  (SEE ALSO DRDC15)
* 
X:A	EQU	1	CODE , 0=ASCII , 1=EBCDIC   (DRDC15)
CODE	EQU	X:A
X:B	EQU	1	READ COMMAND HANDLING IF = 1  (DRDC15)
RCOM	EQU	X:B
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII
* 
* 
TASCII	EQU	*
	IFT	CODE=1 
	XIF
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC
* 
* 
TEBCDIC	EQU	* 
	IFF	CODE+RCOM=0
	XIF
	END

HexDump

0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT EBCDIC  REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x036…03e             Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…048             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x048…080             Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0000, t01=0x004c}
0x080…08a             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x08a…0b2             Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008e}
0x0b2…0bc             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x0bc…0e4             Head {h00=0x0024, h01=0x0050, text=»*   EBCDIC = EBCDIC/ASCII TABLE «, t00=0x0000, t01=0x00c0}
0x0e4…0ee             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x0ee…0f8             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x0f8…102             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x102…10c             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x10c…116             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x116…120             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x120…15a             Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0124}
0x15a…164             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x164…17a             Head {h00=0x0012, h01=0x0050, text=» ENTRY TASCII «, t00=0x0000, t01=0x0168}
0x17a…190             Head {h00=0x0012, h01=0x0050, text=» ENTRY TEBCDIC«, t00=0x0000, t01=0x017e}
0x190…19a (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x19a…1a4             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x1a4…1d6             Head {h00=0x002e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  (SEE ALSO DRDC15)«, t00=0x0001, t01=0x0018}
0x1d6…1e0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x1e0…216             Head {h00=0x0032, h01=0x0050, text=»X:A EQU 1 CODE , 0=ASCII , 1=EBCDIC   (DRDC15)«, t00=0x0001, t01=0x0054}
0x216…22a             Head {h00=0x0010, h01=0x0050, text=»CODE EQU X:A«, t00=0x0001, t01=0x008a}
0x22a…262             Head {h00=0x0034, h01=0x0050, text=»X:B EQU 1 READ COMMAND HANDLING IF = 1  (DRDC15)«, t00=0x0001, t01=0x009e}
0x262…276             Head {h00=0x0010, h01=0x0050, text=»RCOM EQU X:B«, t00=0x0001, t01=0x00d6}
0x276…284             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ea}
0x284…28e             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x28e…298             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x298…2ce             Head {h00=0x0032, h01=0x0050, text=»* TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII«, t00=0x0001, t01=0x010c}
0x2ce…2d8             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x2d8…2e2             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x2e2…2f6             Head {h00=0x0010, h01=0x0050, text=»TASCII EQU *«, t00=0x0001, t01=0x0156}
0x2f6…30a             Head {h00=0x0010, h01=0x0050, text=» IFT CODE=1 «, t00=0x0001, t01=0x016a}
0x30a…316             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x017e}
0x316…324             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x018a}
0x324…32e             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x32e…338             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x338…36e             Head {h00=0x0032, h01=0x0050, text=»* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC«, t00=0x0002, t01=0x001c}
0x36e…378             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x378…382             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x382…398             Head {h00=0x0012, h01=0x0050, text=»TEBCDIC EQU * «, t00=0x0002, t01=0x0066}
0x398…3b0             Head {h00=0x0014, h01=0x0050, text=» IFF CODE+RCOM=0«, t00=0x0002, t01=0x007c}
0x3b0…3bc             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0094}
0x3bc…3c8             Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x00a0}
0x3c8…3cc             Head {h00=0x4004, h01=0x0000}
0x3cc…3d0             00 02 00 ac                                                                                                                                                                                                                                       ┆    ┆
0x3d0…3d8 (3, 1, 8)   20 04 00 00 00 03 00 04                                                                                                                                                                                                                           ┆        ┆
0x3d8…428 (4, 0, 400) 00 20 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 45 35 44 36 5c 56 4f 20 49 4e 20 45 42 43 44 49 43 20 00 14 00 04 00 0e 00 50 5c 53 54 52 5c 41 31 2c 41 34 00 14 00 28 00 20 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 44 33 46 31 5c 4c 31 20 49 4e 20 45   ┆   P LDKL A1,/E5D6 VO IN EBCDIC        P STR A1,A4   (   P LDKL A1,/D3F1 L1 IN E┆
0x428…478             42 43 44 49 43 20 00 14 00 3a 00 10 00 50 5c 53 54 5c 41 31 2c 42 55 46 2b 32 00 14 00 5e 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 14 00 72 00 20 00 50 5c 4c 44 5c 41 31 2c 44 57 54 41 33 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 49 42 4d   ┆BCDIC    :   P ST A1,BUF+2   ^   P IFT IBM=1   r   P LD A1,DWTA3,A6 INDICATE IBM┆
0x478…4c8             00 14 00 84 00 16 00 50 5c 4f 52 53 5c 41 31 2c 44 57 54 4c 41 42 2c 41 36 20 00 14 00 a8 00 08 00 50 5c 58 49 46 00 14 00 c2 00 14 00 50 5c 4c 44 4b 5c 41 32 2c 2f 33 31 5c 42 49 4f 20 00 14 00 ce 00 16 00 50 5c 4c 44 4b 5c 41 33 2c 33 36   ┆       P ORS A1,DWTLAB,A6        P XIF       P LDK A2,/31 BIO        P LDK A3,36┆
0x4c8…518             5c 4c 45 4e 47 54 48 20 00 14 00 e6 00 10 00 50 46 4f 52 4d 36 30 5c 45 51 55 5c 2a 00 14 01 00 00 12 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 20 00 14 01 14 00 10 00 50 46 4f 52 4d 37 30 5c 45 51 55 5c 2a 00 14 01 2a 00 10 00 50 5c 41   ┆ LENGTH        PFORM60 EQU *       P CF A5,FD:WRI        PFORM70 EQU *   *   P A┆
0x518…568             42 4c 5c 45 4e 44 3a 52 43 20 00 14 01 3e 00 06 00 50 2a 20 00 14 01 52 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 14 01 5c 00 06 00 50 2a 20 00 14 01 74 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 01 7e   ┆BL END:RC    >   P*    R   P EJECT   DRFD01        P*    t   P**************   ~┆

Reduced view