|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4578 (0x11e2)
Notes: pts_type(SC)
Names: »ASCEBC.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »TOOL/ASCEBC.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »TOOL/ASCEBC.SC«
IDENT ASCEBC * 790119 C.EKERT ************************************************************************ * * ASCII / EBCDIC CODE CONVERSION ROUTINE WITH 'CREDIT' INTERFACE. * * 2 ENTRYPOINTS 'ASCEBC' AND 'EBCASC' PROVIDES CONVERSION FROM * 'ACSII'-CODE TO 'EBCDIC'-CODE AND FROM 'EBCDIC' TO 'ASCII' RESP. * * 'CREDIT' CALLING SEQUENCE: * CALL ASCEBC,BUFFER * CALL EBCASC,BUFFER * THE ENTIRE CONTENTS OF THE 'BUFFER' IS CONVERTED * ************************************************************************ * * ENTRY ASCEBC * CONV. ASCII TO EBCDIC ENTRY EBCASC * CONV. EBCDIC TO ASCII * * EXTRN TASCII * ASCII CONV. TABLE EXTRN TEBCDIC * EBCDIC CONV. TABLE EXTRN I:EVA0 * RETEIVE PARAMETERS EXTRN I:RT1 * RETURN TO 'CREDIT' * * EJECT * * * CONVERT ASCII TO EBCDIC. * ASCEBC EQU * LDKL A6,TEBCDIC RF SETUP * * * * CONVERT EBCDIC TO ASCII * EBCASC EQU * LDKL A6,TASCII * * SETUP EQU * ST A6,CONVTB CF A14,I:EVA0 * RETREIVE PARAMS. * A9 = BUFF START * A5 = BUFF END LDK A6,0 * CLEAR WORK REG. NEXTCH EQU * SUK A5,1 * DECR. BYTE POINTER LCR A6,A5 * LOAD BYTE FROM BUFF LC A6,0,A6 * LOAD FROM CONVERTION TABLE CONVTB EQU *-1 SCR A6,A5 * RESTORE NEW BYTE CWR A9,A5 * LAST BYTE???? RB(NZ) NEXTCH ABL I:RT1 * RETURN TO 'CREDIT' END