DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦43e59257c⟧ TextFile

    Length: 2784 (0xae0)
    Types: TextFile
    Notes: Mikados_K
    Names: »PROBLK.K«

Derivation

└─⟦33b8385fd⟧ Bits:30009009 PSAP1
    └─⟦this⟧ »PROBLK.K«

Mikados K File

;*************************************************************
;*         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

TextFile

>;*************************************************************>>;*         PASCAL STANDARD ASSEMBLER PACKAGE.                *>>;*                                                           *>>;* (C) 1980 DANSK DATA ELEKTRONIK APS.                       *>>;*************************************************************>▶01◀;▶01◀>;*************************************************************>>;* FUNCTION NAME:      PROBLK                                *>>;*************************************************************>▶01◀;▶01◀▶10◀; CT 07-MAY-1980▶10◀▶01◀;▶01◀>;=============================================================>▶0e◀; DESCRIPTION:▶0e◀8; THIS FUNCTION RETURNS A POINTER TO THE PROCESS CONTROL8▶1f◀; BLOCK OF THE CALLING PROGRAM.▶1f◀>; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL>▶1a◀; SECTION 5.2 FOR DETAILS.▶1a◀▶01◀;▶01◀>;------------------------------------------------------------->0; STACK CONTENTS ON ENTRY:     I               I00;                              I---------------I00;                              I  RETURN ADR.  I00;                              I---------------I00;                              I DUMMY ELEMENT I00;                              I---------------I00;                              I DUMMY ELEMENT I00;                              I---------------I00;                              I DUMMY ELEMENT I00;                              I---------------I00;                              I DUMMY ELEMENT I00;                              I---------------I00;                              I               I0>;------------------------------------------------------------->0; STACK CONTENTS ON EXIT:      I               I00;                              I---------------I00;                              I  ->  PCB      I00;                              I---------------I00;                              I               I0>;=============================================================>▶01◀ ▶01◀▶0b◀       SKIP▶0b◀▶08◀PROBLK::▶08◀▶01◀ ▶01◀*       POP     B       ;BC:=RETURN ADDRESS*▶1c◀       POP     D       ;SKIP▶1c◀▶1f◀       POP     D       ;  DUMMY▶1f◀$       POP     D       ;    ELEMENTS$&       POP     D       ;      ON STACK&▶01◀ ▶01◀<       LHLD    RUNN    ;RUNN CONTAINS THE ADDRESS OF THE PCB<4       PUSH    H       ;PUSH ADDRESS OF PCB ON STACK4▶01◀ ▶01◀.       PUSH    B       ;RESTORE RETURN ADDRESS.
       RET
▶01◀ ▶01◀
       END
▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

Full view