INHALT

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

1847 * 1848 * OLD STYLE BLOCK 5.. SUBPROGRAM CALL BLOCK. 1849 * 1850 01420 0 10 03024 OS5 JST SKIP IGNORE CALL BLOCKS IF SKIPPING. 1851 01421 0 02 03700 LDA BUFF GET THE INSTRUCTION WORD. 1852 01422 0414 74 LGL 4 ADJUST CORRECTLY. 1853 01423 0 03 01670 ANA ='76000 RETAIN OP-CODE 1854 01424 -0 04 03777 STA* WORD PLACE IN STORAGE. 1855 01425 0 10 01577 JST R6C READ SUBPROGRAM NAME. 1856 01426 140040 CRA SET FLAGS FOR 'NS44'. 1857 01427 0 04 03677 STA VALU ZERO OUT THE OFFSET. 1858 01430 -0 02 03777 LDA* WORD * 1859 01431 0 03 01672 ANA ='36000 * 1860 01432 100040 SZE * 1861 01433 0 02 01701 LDA =-1 1862 01434 0 05 01701 ERA =-1 * 1863 01435 0 01 01033 JMP N44J GO JOIN NEW STYLE PROCESSING. 1864 * 1865 * 1866 * 1867 * OLD STYLE BLOCK 6.. SUBPROGRAM OR COMMON DEFINITION. 1868 * 1869 01436 0 10 01577 OS6 JST R6C READ SIX-CHARACTER NAME. 1870 01437 -0 02 00657 LDA* BUFP GET FLAGS. 1871 01440 0416 67 ALR 9 MOVE SUBPROGRAM BIT TO SIGN. 1872 01441 100400 SPL SUBPROGRAM OR COMMON.Q 1873 01442 0 01 01454 JMP ISCO COMMON. GO TO IT. 1874 01443 0 02 03677 LDA VALU SUBPROGRAM. 1875 01444 0 06 03670 ADD PBRK RELOCATE ENTRY POINT. 1876 01445 0 04 03677 STA VALU SET VALUE FOR DEFINITION. 1877 01446 0 02 01704 LDA ='100005 GET KEY FOR DEFINED 1878 01447 0 04 03665 STA KEY SUBPROGRAM. 1879 01450 0 10 02002 JST SAVE SAVE LOADER FOR POSSIBLE UNSTRING. 1880 01451 0 10 02446 JST DEFS GO DEFINE NAME. 1881 01452 0 10 02055 JST REST RESTORE AFTER UNSTRING. 1882 01453 0 01 00323 JMP BLOK EXIT TO NEXT BLOCK. 1883 * 1884 01454 0406 77 ISCO ARR 1 MOVE 'BLOCK DATA' FLAG TO SIGN BIT. 1885 01455 100400 SPL SKIP IF NOT 'BLOCK DATA'. 1886 01456 0 01 01467 JMP OS6C 'BLOCK DATA'. GO HANDLE IT. 1887 01457 0 02 01667 LDA ='100006 NOT 'BLOCK DATA'. GET KEY FOR 1888 01460 0 04 03665 STA KEY COMMON NAME. 1889 01461 0 02 03357 LDA COMN GET COMMON COUNTER. 1890 01462 0 07 03677 SUB VALU BUMP BY SIZE OF BLOCK. 1891 01463 0 10 02667 JST MRG2 * 1892 01464 0 04 03677 STA VALU SET AS VALUE OF THIS BLOCK. 1893 01465 0 10 02446 JST DEFS DEFINE NAME. 1894 01466 0 01 00323 JMP BLOK EXIT TO NEXT BLOCK. 1895 * 1896 01467 0 02 03664 OS6C LDA FLAG HERE FOR 'BLOCK DATA'.