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

⟦3b52e2931⟧

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

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »M:DEMO/EBCDIC.SC« 
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:DE10/EBCDIC.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:DE10/EBCDIC.SC« 

	IDENT EBCDIC 	REL 10.0 80-03-14 870105041000 

* 
************************************************
* 
*   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

0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT EBCDIC  REL 10.0 80-03-14 870105041000 «, 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) 41 36 5c 53 41 56 45 20 44 57 54 2d 41 44 44 52 00 13 01 88 00 18 00 50 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 50 5c 57 41 49 54 20 00 14 00 18 00 2e 00 50 5c 44 41 54 41 5c 4f 50 45 4e 52 45 2c 4f 50 45 4e 54 49 5c 53 54 41 52 54 20 41 44   ┆A6 SAVE DWT-ADDR       P CF A15,SETIMP WAIT      . P DATA OPENRE,OPENTI START AD┆
0x428…478             44 52 2c 20 57 41 49 54 20 54 49 4d 45 20 00 14 00 34 00 14 00 50 5c 41 42 4c 5c 54 44 49 53 50 5c 45 58 49 54 20 00 14 00 66 00 06 00 50 2a 20 00 14 00 7e 00 10 00 50 4f 50 45 4e 52 45 5c 45 51 55 5c 2a 00 14 00 88 00 1c 00 50 5c 4c 44 52   ┆DR, WAIT TIME    4   P ABL TDISP EXIT    f   P*    ~   POPENRE EQU *       P LDR┆
0x478…4c8             5c 41 36 2c 41 31 5c 47 45 54 20 44 57 54 2d 41 44 44 52 20 00 14 00 9c 00 2c 00 50 5c 43 4d 5c 44 57 54 54 50 32 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 4e 4f 20 54 49 4d 45 52 20 52 55 4e 4e 49 4e 47 20 00 14 00 bc 00 1a 00 50 5c 4c 44 4b   ┆ A6,A1 GET DWT-ADDR      , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING        P LDK┆
0x4c8…518             5c 41 31 2c 30 5c 52 45 54 55 52 4e 20 43 4f 44 45 20 00 14 00 ec 00 28 00 50 5c 52 46 5c 44 49 53 3a 45 4e 5c 50 45 52 46 4f 52 4d 20 54 45 4e 44 49 4f 20 41 4e 44 20 54 44 49 53 50 20 00 14 01 0a 00 08 00 50 5c 58 49 46 00 14 01 36 00 06   ┆ A1,0 RETURN CODE      ( P RF DIS:EN PERFORM TENDIO AND TDISP        P XIF   6  ┆
0x518…568             00 50 2a 20 00 14 01 42 00 0a 00 50 5c 45 4a 45 43 54 00 14 01 4c 00 06 00 50 2a 20 00 14 01 5a 00 26 00 50 2a 20 20 50 55 54 20 44 52 49 56 45 20 4e 4f 20 49 4e 20 43 49 4f 2d 49 4e 53 54 52 55 43 54 49 4f 4e 00 14 01 64 00 06 00 50 2a 20   ┆ P*    B   P EJECT   L   P*    Z & P*  PUT DRIVE NO IN CIO-INSTRUCTION   d   P* ┆

Reduced view