INHALT

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

1897 01470 101400 SMI IF WE HAVE ALREADY SAVED 1898 01471 0 01 01474 JMP *+3 THE PROGRAM BREAK, 1899 01472 0 02 03670 LDA PBRK DO NOT SAVE IT AGAIN. 1900 01473 0 04 03664 STA FLAG NOT YET. SAVE IT, SET FLAG. 1901 01474 140040 CRA SET THE SKIP FLAG TO LOAD THIS SUBPROGRAM. 1902 01475 0 04 03671 STA SKIF ZERO MEANS LOAD. 1903 01476 0 04 03677 STA VALU SET OFFSET TO ZERO 1904 01477 0 01 01516 JMP OS7J EXIT TO LOOK UP COMMON NAME. 1905 * 1906 01500 0 02 03677 OS6R LDA VALU BACK HERE WHEN NAME FOUND. 1907 01501 0 04 03670 STA PBRK SET COUNTER FOR COMING DATA. 1908 01502 0 01 00323 JMP BLOK GO GET DATA. 1909 * 1910 * 1911 * 1912 * OLD STYLE BLOCK 7.. COMMON REFERENCE. 1913 * 1914 01503 0 10 03024 OS7 JST SKIP IGNORE COMMON BLOCKS IF SKIPPING. 1915 01504 0 02 03700 LDA BUFF GET THE INSTRUCTION WORD. 1916 01505 0414 74 LGL 4 LEFT JUSTIFY IT. 1917 01506 0 03 01675 ANA ='176000 ISOLATE FLAG, TAG, OP-CODE. 1918 01507 -0 04 03777 STA* WORD PLACE IN STORAGE. 1919 01510 0 03 01672 ANA ='036000 ISOLATE INSTRUCTION ITSELF. 1920 01511 100040 SZE ZERO SIGNIFIES DAC. 1921 01512 0 02 01711 LDA ='037777 SET DACF TO '000000 IF NINE-BIT, 1922 01513 0 05 01711 ERA ='037777 '037777 IF OLD STYLE DAC. 1923 01514 0 04 01661 STA DACF 1924 01515 0 10 01577 JST R6C READ COMMON NAME. 1925 01516 0 02 01667 OS7J LDA ='100006 GET KEY FOR COMMON REFERENCE. 1926 01517 0 01 01041 JMP N44K 1927 * 1928 * 1929 * 1930 * ******************************************************************** 1931 * * READ FROM BLOCK ROUTINES * 1932 * ******************************************************************** 1933 * 1934 * 1935 * 1936 * JST R24B READ 24 BITS. THE NEXT 24 BITS OF THIS DATA BLOCK 1937 * ARE TRANSFERRED TO LOCATIONS 'DATA' AND 'DATA+1'. 1938 * IF THERE ARE NOT 24 BITS LEFT, THE RETURN WILL BE 1939 * SAVED WHILE SUCCEEDING BLOCKS ARE READ. WHEN A DATA 1940 * BLOCK IS READ IN, ITS FIRST 24 BITS WILL BE SUPPLIED 1941 * AND THE OLD RETURN TAKEN. 1942 * 1943 01520 0 000000 R24B DAC ** HERE TO READ 24 BITS 1944 01521 0 02 01662 LDA R24S PICK UP THE EVEN-ODD SWITCH. 1945 01522 0 05 01677 ERA ='100000 FLIP IT. 1946 01523 100400 SPL IS THIS EVEN OR ODD CALL.Q