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

⟦8cb5a45fa⟧ 

    Length: 4606 (0x11fe)
    Notes: pts_type(SC)
    Names: »ASTAB.SC«

Derivation

└─⟦8ac270cab⟧ Bits:30009705 Philips computer tape "LINSIM8-2"
    └─⟦this⟧ »LINSIM82/ASTAB.SC« 
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »LINSIM/ASTAB.SC«

PTS(SC)

	IDENT ASTAB  	REL 1.1 78-04-21  870150040110 
			UPDATE #0 77.01.20 JES 
* 
* 
* 
* 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*	CONVERSION ASCII TO EBCDIC
* 
* * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*	CALLING SEQUENCE : CF          A14,ASTOEB 
* 
* * * * * * * * * * * * * * * * * * * * * * * * * 
* 
*	A1 CONTAINING CHAR.IN ASCII TO CONVERT TO EBCDIC AT ENTRY 
*	   CHAR.AT RIGHT 8 BITS OF REGISTER 
*	A2 CONTAINING CHAR.CONVERTED TO EBCDIC AT RETURN
*	   CHAR.AT RIGHT 8 BITS OF REGISTER 
*	A3 DESTROYED
* 
* 
* 
* 
	ENTRY	ASTOEB 
* 
* 
* 
	EJECT
ASTOEB	EQU	*
	ANK	A1,/7F	PROCEED REL.DATA
	LDKL	A3,EBCDIC	LOAD ADRESS OF TABLE TO A3
	ADR	A1,A3	CALCULATE POINTER IN EBCDIC-TABLE
	LCR	A2,A1	LOAD A2 WITH CONVERTED CHAR. 
	ANK	A2,/FF	PROCEED REL.DATA
	RTN	A14	RETURN TO MAINPROGRAM
	EJECT
EBCDIC	EQU	*
	DATA	/0001,/0203,/372D,/2E2F      NUL,SOH,STX,ETX
*			       EOT,ENQ,ACK,BEL
	DATA	/1605,/250B,/0C0D,/0E0F      BS,HT,LF,VT,FF,CR,SO,SI
	DATA	/1011,/1213,/3C3D,/3226      DLE,DC1,DC2,DC4
*			       DC4,NAK,SYN,ETB
	DATA	/1819,/3F27,/2200,/3500      CAN,EM,SUB,ESC,FS,GS,RS,US 
	DATA	/405A,/7F7B,/5B6C,/506B      SP,!,",#,$,%,&,' 
	DATA	/4D5D,/5C4E,/7D6D,/4B00      (,),*,+,,,-,.,/
	DATA	/F0F1,/F2F3,/F4F5,/F6F7      0,1,2,3,4,5,6,7
	DATA	/F8F9,/7A5E,/4C7E,/6E6F      8,9,:,;,<,=,>,?
	DATA	/7CC1,/C2C3,/C4C5,/C6C7      @,A,B,C,D,E,F,G
	DATA	/C8C9,/D1D2,/D3D4,/D5D6      H,I,J,K,L,M,N,O
	DATA	/D7D8,/D9E2,/E3E4,/E5E6      P,Q,R,S,T,U,V,W
	DATA	/E7E8,/E900,/0000,/0060      X,Y,Z,[,NO,],NO,NO 
	DATA	/0081,/8283,/8485,/8687      NO,*A,*B,*C,*D,*E,*F,*G
	DATA	/8889,/9192,/9394,/9596      *H,*I,*J,*K,*L,*M,*N,*O
	DATA	/9798,/99A2,/A3A4,/A5A6      *P,*Q,*R,*S,*T,*U,*V,*W
	DATA	/A7A8,/A900,/0000,/A107      *X,*Y,*Z,NO,NO,NO,-,DEL
* 
	END

Full view