|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2784 (0xae0)
Notes: Mikados TextFile, Mikados_K
Names: »PROBLK«
└─⟦38ff28550⟧ Bits:30004682 Pascal Standard Assembler til MIKADOS
└─⟦this⟧ »PROBLK«
;*************************************************************
;* 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
;=============================================================
SKIP
PROBLK::
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