INHALT

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

1947 01524 0 01 01543 JMP R24E EVEN. GO TO IT. 1948 01525 0 04 01662 STA R24S ODD. UPDATE SWITCH. 1949 01526 0 10 01555 JST LEFT MAKE SURE WORD IS LEFT. 1950 01527 -0 02 00657 LDA* BUFP YES. GET WORD. 1951 01530 0414 70 LGL 8 WANT LAST HALF THIS ONE. 1952 01531 0 04 03774 STA DATA SAVE PARTIAL WORD. 1953 01532 0 12 00657 IRS BUFP MOVE TO NEXT WORD. 1954 01533 -0 02 00657 LDA* BUFP PICK IT UP. 1955 01534 0404 70 LGR 8 NEXT EIGHT BITS RIGHT. 1956 01535 0 05 03774 ERA DATA COMBINE WITH FIRST EIGHT. 1957 01536 0 04 03774 STA DATA SAVE COMPLETE WORD. 1958 01537 -0 02 00657 LDA* BUFP GET LAST EIGHT BITS. 1959 01540 0414 70 LGL 8 POSITION THEM. 1960 01541 0 04 03775 R24X STA DATA+1 SAVE SECOND WORD. 1961 01542 -0 01 01520 JMP* R24B EXIT. 1962 * 1963 01543 0 10 01555 R24E JST LEFT EVEN CALL. 1964 01544 0 10 01555 JST LEFT MAKE SURE TWO WORDS LEFT. 1965 01545 0 04 01662 STA R24S OK, UPDATE THE SWITCH SETTING. 1966 01546 0 12 00657 IRS BUFP MOVE TO FIRST WORD. 1967 01547 -0 02 00657 LDA* BUFP GET IT. 1968 01550 0 04 03774 STA DATA PLACE IT. 1969 01551 0 12 00657 IRS BUFP MOVE TO NEXT WORD. 1970 01552 -0 02 00657 LDA* BUFP GET IT. 1971 01553 0 03 01666 ANA ='177400 WANT ONLY EIGHT BITS. 1972 01554 0 01 01541 JMP R24X GO PLACE THEM AND EXIT. 1973 * 1974 01555 0 000000 LEFT DAC ** HERE TO SEE IF A WORD IS LEFT. 1975 01556 0 12 00656 IRS BUFN BUMP THE BUFFER COUNT. 1976 01557 -0 01 01555 JMP* LEFT OK. WORD LEFT. 1977 01560 0 01 00323 JMP BLOK NOT OK, MUST GO REFILL BUFFER. 1978 * 1979 * 1980 * 1981 * JST R48B READ 48 BITS. THE NEXT 48 BITS OF THIS BLOCK WILL 1982 * BE TRANSFERRED TO LOCATIONS 'DATA'...'DATA+2'. IF 1983 * THERE ARE NOT 48 BITS LEFT, NO RETURN WILL BE MADE. 1984 * INSTEAD, CONTROL WILL PROCEED TO 'BLOK' TO READ THE 1985 * NEXT BLOCK. 1986 * 1987 01561 0 000000 R48B DAC ** HERE TO READ 48 BITS. 1988 01562 0 10 01555 JST LEFT MAKE SURE THERE ARE THREE WORDS 1989 01563 0 10 01555 JST LEFT LEFT IN THE BUFFER. 1990 01564 0 10 01555 JST LEFT 1991 01565 0 12 00657 IRS BUFP OK. MOVE TO FIRST WORD. 1992 01566 -0 02 00657 LDA* BUFP GET IT. 1993 01567 0 04 03774 STA DATA PLACE IT. 1994 01570 0 12 00657 IRS BUFP NEXT WORD. 1995 01571 -0 02 00657 LDA* BUFP GET IT. 1996 01572 0 04 03775 STA DATA+1 PLACE IT.