; TESTPROCEDURE FOR DDE PASCAL - RM-790719;; PROCEDURE P( VAR P1: INTEGER; P2: BOOLEAN; P3: STRING );;            EXTERNAL;;P::    POP     H       ;RETURADRESSE       POP     D       ;PIL TIL P3       POP     B       ;V[RDIEN AF P2       XTHL            ;STAK RETURHOPADRESSEN OG HENT PIL TIL P1       CALL    0F008   ;LAD OS KIKKE LIDT P] RESULTATERNE       MOV     E,M       INX     H       MOV     D,M       INX     D       INX     D       INX     D       MVI     D,1       MOV     M,D     ;GEM RESULTAT (ORIGINALV[RDI + 259)       DCX     H       MOV     M,E       RET;       END