;*************************************************************;*         PASCAL STANDARD ASSEMBLER PACKAGE.                *;*                                                           *;* (C) 1980 DANSK DATA ELEKTRONIK APS.                       *;*************************************************************;;*************************************************************;* FUNCTION NAME:      PROBLK                                *;*************************************************************;; CT 07-MAY-1980;;=============================================================; DESCRIPTION:; THIS FUNCTION RETURNS A POINTER TO THE PROCESS CONTROL; BLOCK OF THE CALLING PROGRAM.; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL; SECTION 5.2 FOR DETAILS.;;-------------------------------------------------------------; STACK CONTENTS ON ENTRY:     I               I;                              I---------------I;                              I  RETURN ADR.  I;                              I---------------I;                              I DUMMY ELEMENT I;                              I---------------I;                              I DUMMY ELEMENT I;                              I---------------I;                              I DUMMY ELEMENT I;                              I---------------I;                              I DUMMY ELEMENT I;                              I---------------I;                              I               I;-------------------------------------------------------------; STACK CONTENTS ON EXIT:      I               I;                              I---------------I;                              I  ->  PCB      I;                              I---------------I;                              I               I;=============================================================        SKIPPROBLK::        POP     B       ;BC:=RETURN ADDRESS       POP     D       ;SKIP       POP     D       ;  DUMMY       POP     D       ;    ELEMENTS       POP     D       ;      ON STACK        LHLD    RUNN    ;RUNN CONTAINS THE ADDRESS OF THE PCB       PUSH    H       ;PUSH ADDRESS OF PCB ON STACK        PUSH    B       ;RESTORE RETURN ADDRESS       RET        END