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

⟦baba215b2⟧

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

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:LP/EBCDIC.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:LP/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) 00 6b 01 88 00 06 00 50 2a 20 00 6c 00 08 00 36 00 50 2a 20 20 20 20 49 4e 44 49 43 41 54 45 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 42 45 46 4f 52 45 20 47 4f 49 4e 47 20 54 4f 20 44 52 49 56 45 52 20 00 6c 00 12 00 06 00 50 2a 20 00 6c   ┆ k     P*  l   6 P*    INDICATE NOT OPERABLE BEFORE GOING TO DRIVER  l     P*  l┆
0x428…478             00 4c 00 10 00 50 43 4c 54 30 34 35 5c 45 51 55 5c 2a 00 6c 00 56 00 22 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 53 54 41 54 55 53 5c 3d 31 31 00 6c 00 6a 00 18 00 50 5c 53 4c 4c 5c 41 31 2c 32 5c 45 43 48 4f 3f 5c   ┆ L   PCLT045 EQU * l V " P LD A1,DWTST,A6 GET STATUS =11 l j   P SLL A1,2 ECHO? ┆
0x478…4c8             3d 31 31 20 00 6c 00 90 00 1a 00 50 5c 52 46 28 4e 29 5c 43 4c 54 30 34 37 5c 59 45 53 5c 3d 31 31 20 00 6c 00 ac 00 32 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 45 45 46 46 5c 4e 4f 2c 20 52 45 53 45 54 20 49 4e 54 20 41 4c 4c 20 41 4e 44 20 52   ┆=11  l     P RF(N) CLT047 YES =11  l   2 P LDKL A1,/EEFF NO, RESET INT ALL AND R┆
0x4c8…518             45 43 4f 56 5c 3d 31 31 00 6c 00 ca 00 14 00 50 5c 52 46 5c 43 4c 54 30 34 38 5c 5c 3d 31 31 20 00 6c 01 00 00 36 00 50 43 4c 54 30 34 37 5c 4c 44 4b 4c 5c 41 31 2c 2f 45 46 46 46 5c 59 45 53 2c 20 52 45 53 45 54 20 4f 4e 4c 59 20 52 45 43   ┆ECOV =11 l     P RF CLT048  =11  l   6 PCLT047 LDKL A1,/EFFF YES, RESET ONLY REC┆
0x518…568             4f 56 20 42 49 54 5c 3d 31 31 00 6c 01 18 00 20 00 50 43 4c 54 30 34 38 5c 41 4e 53 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 5c 3d 31 31 20 00 6c 01 52 00 28 00 50 5c 4c 44 4b 5c 41 31 2c 4e 4f 45 52 52 5c 49 4e 44 49 43 41 54 45 20 4e 4f 54   ┆OV BIT =11 l     PCLT048 ANS A1,DWTST,A6  =11  l R ( P LDK A1,NOERR INDICATE NOT┆

Reduced view