Oppolzer - Informatik / Blog

Very nice, thank you. That saves me a lot of time checking out those inter
language calls by myself.

Do you have an idea how the PL/1 descriptors looked in those early days for
character parameters, structures, tables? Is it different to, for examples, OS
PL/1 V2.3 ?

And: was it possible at that version already to declare an external entry to
have no descriptors, for example by specifying DCL SUBSUM EXTERNAL ENTRY OPTIONS
(ASM);

Maybe you know - if not, no harm - I would have to read the old manuals and
check it out by myself.

Thank you, kind regards

Bernd



Am 23.03.2013 00:13, schrieb G.M.:
>
>
> Things running pretty good now :)
> Here's the same Driver now calling an assembler subroutine:
>
> *******************************************************************************
> type driver pli
>
>  DRIVER: PROC OPTIONS(MAIN);
>  DCL (A,B,C) FIXED BINARY(31);
>  A = 5;
>  B = 6;
>  /* CALL ARITH(A,B,C);*/
>  CALL SUBSUM(A,B,C);
>  PUT SKIP LIST(A,B,C);
>  END DRIVER;
>
> Ready; T=0.02/0.03 18:44:58
>
> type sum assemble
>
> SUBSUM   CSECT
>          STM   14,12,12(13)
>          BALR  12,0
>          USING *,12
>          LM    2,4,0(1)  LOAD THE ADDRESSES OF PARAMETERS IN REGS
> *                                  2,3,4
> *                                  0(2) POINTS TO LOCATION A
> *                                  0(3) POINTS TO LOCATION B
> *                                  0(4) POINTS TO LOCATION C
> *
>          L     7,0(2)    LOAD THE ACTUAL VALUE OF A IN REG 7
>          A     7,0(3)    ADD THE CONTENTS OF REG 7 TO ACTUAL VALUE
> *                                OF B
>          ST    7,0(4)    STORE THE RESULT IN C
>          LM    14,12,12(13)
>          BR    14
>          END   SUBSUM
>
> Ready; T=0.02/0.03 18:45:46
>
> pli driver
>     COMPILER DIAGNOSTICS.
>
>  WARNINGS.
>     IEM0227I          NO FILE/STRING OPTION SPECIFIED IN ONE OR MORE GET/PUT STA
> TEMENTS. SYSIN/SYSPRINT HAS BEEN
>                       ASSUMED IN EACH CASE.
>
>  END OF DIAGNOSTICS.
> Ready(00004); T=0.28/0.33 18:46:25
>
> filedef * clear
> Ready; T=0.01/0.01 18:47:36
>
> assemble sum
>
> ASSEMBLER (XF) DONE
> NO STATEMENTS FLAGGED IN THIS ASSEMBLY
> Ready; T=0.22/0.25 18:47:48
>
>
> load driver sum
> Ready; T=0.11/0.16 18:48:28
>
> start
> DMSLIO740I Execution begins...
>
>              5                       6                      11
> Ready; T=0.25/0.27 18:49:04
> *******************************************************************************