INHALT

* NAME: LDR-APM DOC. 70180005000 REV. E PAGE 43

2047 01631 -0 02 03672 LDA* SSSP RESTORE KEY AGAIN. 2048 01632 0 03 01665 ANA ='000200 ISOLATE DAC/NINE-BIT INDICATOR. 2049 01633 0 05 01665 ERA ='000200 FLIP IT TO PROPER FORM. 2050 01634 0 04 01661 STA DACF SET DACF NON-ZERO IF A DAC. 2051 01635 -0 02 03672 LDA* SSSP GET BASE AGAIN. 2052 01636 0 03 01664 ANA ='77000 * 2053 01637 0 10 02015 JST SETB SET BASE SECTOR. 2054 01640 -0 01 01623 JMP* SETS EXIT TO CALLER. 2055 * 2056 * 2057 * 2058 * JST TYP1 TYPE CHARACTER IN C(AREGISTER) 9-16, 2059 * THEN INTERCHANGE CHARACTERS IN A-REGISTER 2060 * 2061 01641 0 000000 TYP1 DAC ** TYPE C(A-REG. 9-16 ON ASR-33 OR 35 2062 01642 74 0004 OTA '4 OUTPUT RIGHT HALF A REG. 2063 01643 0 01 01642 JMP *-1 * 2064 01644 0406 70 ARR 8 INTERCHANGE CHARACTERS 2065 01645 -0 01 01641 JMP* TYP1 EXIT 2066 * 2067 * 2068 * JST TYP2 TYPE THE TWO CHARACTERS IN THE A REG. 2069 * 2070 * 2071 01646 0 000000 TYP2 DAC ** HERE TO TYPE TWO CHARS IN A REG. 2072 01647 0406 70 ARR 8 INTERCHANGE CHARACTERS. 2073 01650 0 10 01641 JST TYP1 TYPE THE FIRST ONE, POSITION SECOND 2074 01651 0 10 01641 JST TYP1 TYPE THE SECOND ONE 2075 01652 -0 01 01646 JMP* TYP2 EXIT 2076 * 2077 * 2078 * 2079 * JST CRLF TYPE A CARRIAGE-RETURN LINE-FEED 2080 * 2081 01653 0 000000 CRLF DAC ** TYPE NEW LINE ON ASR-33/35 2082 01654 0 02 01663 LDA ='106612 C/R - L/F 2083 01655 0 10 01646 JST TYP2 TYPE THEM 2084 01656 140040 CRA NULL CHARACTER 2085 01657 0 10 01641 JST TYP1 TYPE NULL FOR RETURN DELAY 2086 01660 -0 01 01653 JMP* CRLF EXIT 2087 * 2088 * 2089 * 2090 * 2091 01661 DACF BSS 1 DAC FLAG, FOR 'NS44', 'SETS' AND 'USTR'. 2092 01662 R24S BSS 1 EVEN/ODD SWITCH, FOR 'R24B' 2093 * 2094 * 2095 * 2096 01663 106612 FIN END OF SECTOR, FLUSH THE LITERALS.