DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 60

2070 * 2071 * UNPK: UNPACK CHARACTER PAIR 2072 * 2073 * 2074 * CALLING SEQUENCE: 2075 * LDA CHAR A CONTAINS 2 CHARS. IN INTERNAL FORMAT 2076 * JST UNPK 2077 * ......RETURN RESULT IN A REGISTER AND WORD 2078 * 2079 * 2080 03002 0 000000 UNPK DAC ** 2081 03003 0 03 00665 ANA CHR2 ELIMINATE CODE BITS 2082 03004 000201 IAB B(5-16)=PACKED CHARACTER PAIR 2083 03005 140040 CRA 2084 03006 0410 66 LLL 10 A(11-16)=FIRST CHAR. 2085 03007 0414 76 LGL 2 POSITION FIRST CHAR. 2086 03010 101040 SNZ SKIP IF IT WAS NOT A BLANK 2087 03011 0410 70 LLL 8 PLACE SECOND CHAR. IN POSITION OF FIRST 2088 03012 0410 72 LLL 6 MOVE IN SECOND CHAR. (A BLANK IF 2089 * CHAR. ONE WAS A BLANK) 2090 03013 0 06 00723 ADD EMES CONVERT IT TO ASCII 2091 03014 0 04 00437 STA WORD PLACE RESULT IN WORD 2092 03015 -0 01 03002 JMP* UNPK EXIT 2093 * 2094 * 2095 EJCT *************************************************************