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

⟦640ca99ea⟧ 

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

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/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 0b 01 8c 00 06 00 50 2a 20 00 0c 00 08 00 18 00 50 2a 20 20 20 4d 4d 55 20 42 55 46 46 45 52 20 53 49 5a 45 20 00 0c 00 12 00 06 00 50 2a 20 00 0c 00 2e 00 06 00 50 2a 20 00 0c 00 38 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20   ┆       P*        P*   MMU BUFFER SIZE        P*    .   P*    8   P IFT MMUPAG=0 ┆
0x428…478             00 0c 00 42 00 12 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 32 35 36 00 0c 00 58 00 08 00 50 5c 58 49 46 00 0c 00 6e 00 06 00 50 2a 20 00 0c 00 7a 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 0c 00 84 00 12 00 50 58 3a 45 5c 45 51   ┆   B   PDVBLEN EQU 256   X   P XIF   n   P*    z   P IFT MMUPAG=1        PX:E EQ┆
0x478…4c8             55 5c 32 35 36 5c 5c 20 00 0c 00 9a 00 14 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 58 3a 45 5c 5c 00 0c 00 b0 00 08 00 50 5c 58 49 46 00 0c 00 c8 00 06 00 50 2a 20 00 0c 00 d4 00 06 00 50 2a 20 00 0c 00 de 00 18 00 50 2a 20 20 20 4d 4d 55 20   ┆U 256          PDVBLEN EQU X:E         P XIF       P*        P*        P*   MMU ┆
0x4c8…518             44 45 56 49 43 45 20 49 4e 44 45 58 00 0c 00 e8 00 06 00 50 2a 20 00 0c 01 04 00 06 00 50 2a 20 00 0c 01 0e 00 12 00 50 44 45 56 49 4e 44 5c 45 51 55 5c 31 30 20 00 0c 01 18 00 06 00 50 2a 20 00 0c 01 2e 00 14 00 50 5c 45 4a 45 43 54 5c 5c   ┆DEVICE INDEX       P*        P*        PDEVIND EQU 10        P*    .   P EJECT  ┆
0x518…568             5c 44 52 46 44 30 31 20 00 0c 01 38 00 06 00 50 2a 20 00 0c 01 50 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0c 01 5a 00 12 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0c 01 70 00 12 00 50 2a 20 43 4f 4e 53 54 41 4e 54   ┆ DRFD01    8   P*    P   P*************    Z   P*           *    p   P* CONSTANT┆

Reduced view