INHALT

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

1997 01573 0 12 00657 IRS BUFP LIKEWISE FOR LAST WORD. 1998 01574 -0 02 00657 LDA* BUFP 1999 01575 0 04 03776 STA DATA+2 2000 01576 -0 01 01561 JMP* R48B RETURN TO CALLER., 2001 * 2002 * 2003 * 2004 * JST R6C READ SUBPROGRAM OR COMMON NAME. C(BUFF+1)9 THROUGH 2005 * C(BUFF+4)8 ARE READ INTO 'DATA'...'DATA+2'. 'BUFP' 2006 * IS LEFT POINTING TO 'BUFF+4'. 2007 * 2008 01577 0 000000 R6C DAC ** HERE TO READ SIX CHARACTERS. 2009 01600 0 02 00365 LDA BUFD =(DAC BUFF+1) SET UP BUFFER POINTER. 2010 01601 0 04 00657 STA BUFP 2011 01602 0 02 01622 LDA R6CD SET UP POINTER TO 'DATA'. 2012 01603 0 04 03673 STA T 2013 01604 0 10 01610 JST R6C2 READ LAST TWO CHARACTERS. 2014 01605 0 10 01610 JST R6C2 READ TWO MORE CHARACTERS. 2015 01606 0 10 01610 JST R6C2 READ TWO CHARACTERS. 2016 01607 -0 01 01577 JMP* R6C EXIT TO CALLER. 2017 * 2018 * 2019 * 2020 01610 0 000000 R6C2 DAC ** READ TWO CHARACTERS, FOR 'R6C'. 2021 01611 -0 02 00657 LDA* BUFP GET CURRENT BUFFER WORD. 2022 01612 0414 70 LGL 8 GET ITS SECOND CHARACTER. 2023 01613 -0 04 03673 STA* T IT IS FIRST CHARACTER OF OUTPUT. 2024 01614 0 12 00657 IRS BUFP MOVE TO NEXT BUFFER WORD. 2025 01615 -0 02 00657 LDA* BUFP GET ITS FIRST CHARACTER. 2026 01616 0404 70 LGR 8 POSITION RIGHT. 2027 01617 -0 05 03673 ERA* T COMBINE WITH FIRST CHARACTER. 2028 01620 0 10 03020 JST PUT PLACE OUTPUT WORD. 2029 01621 -0 01 01610 JMP* R6C2 EX1T TO *R6C* AGAIN. 2030 * 2031 01622 0 003774 R6CD DAC DATA POINTER TO 'DATA'. 2032 * 2033 * 2034 * 2035 * ******************************************************************* 2036 * * SECTOR ROUTINES * 2037 * ******************************************************************* 2038 * 2039 * 2040 * 2041 01623 0 000000 SETS DAC ** HERE TO SET BASE, MMOD BY KEY. 2042 01624 -0 02 03672 LDA* SSSP GET OLD BASE, MMOD FLAG. 2043 01625 0414 70 LGL 8 POSITION MMOD FLAG. 2044 01626 0 03 01710 ANA ='040000 ISOLATE IT. 2045 01627 0 05 01703 ERA ='077777 FLIP IT TO PROPER FORM. 2046 01630 0 04 03666 STA MMOD SET MEMORY MODE.