|
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 - download
Length: 2784 (0xae0)
Types: TextFile
Notes: Mikados_K
Names: »PROBLK.K«
└─⟦33b8385fd⟧ Bits:30009009 PSAP1
└─⟦this⟧ »PROBLK.K«
;*************************************************************
;* 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
0x000…040 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x040…080 Line {l1=0x3e, l2=»;* PASCAL STANDARD ASSEMBLER PACKAGE. *«, l3=0x3e}
0x080…0c0 Line {l1=0x3e, l2=»;* *«, l3=0x3e}
0x0c0…100 Line {l1=0x3e, l2=»;* (C) 1980 DANSK DATA ELEKTRONIK APS. *«, l3=0x3e}
0x100…140 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x140…143 Line {l1=0x01, l2=»;«, l3=0x01}
0x143…183 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x183…1c3 Line {l1=0x3e, l2=»;* FUNCTION NAME: PROBLK *«, l3=0x3e}
0x1c3…203 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x203…206 Line {l1=0x01, l2=»;«, l3=0x01}
0x206…218 Line {l1=0x10, l2=»; CT 07-MAY-1980«, l3=0x10}
0x218…21b Line {l1=0x01, l2=»;«, l3=0x01}
0x21b…25b Line {l1=0x3e, l2=»;=============================================================«, l3=0x3e}
0x25b…26b Line {l1=0x0e, l2=»; DESCRIPTION:«, l3=0x0e}
0x26b…2a5 Line {l1=0x38, l2=»; THIS FUNCTION RETURNS A POINTER TO THE PROCESS CONTROL«, l3=0x38}
0x2a5…2c6 Line {l1=0x1f, l2=»; BLOCK OF THE CALLING PROGRAM.«, l3=0x1f}
0x2c6…306 Line {l1=0x3e, l2=»; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL«, l3=0x3e}
0x306…322 Line {l1=0x1a, l2=»; SECTION 5.2 FOR DETAILS.«, l3=0x1a}
0x322…325 Line {l1=0x01, l2=»;«, l3=0x01}
0x325…365 Line {l1=0x3e, l2=»;-------------------------------------------------------------«, l3=0x3e}
0x365…397 Line {l1=0x30, l2=»; STACK CONTENTS ON ENTRY: I I«, l3=0x30}
0x397…3c9 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x3c9…3fb Line {l1=0x30, l2=»; I RETURN ADR. I«, l3=0x30}
0x3fb…42d Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x42d…45f Line {l1=0x30, l2=»; I DUMMY ELEMENT I«, l3=0x30}
0x45f…491 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x491…4c3 Line {l1=0x30, l2=»; I DUMMY ELEMENT I«, l3=0x30}
0x4c3…4f5 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x4f5…527 Line {l1=0x30, l2=»; I DUMMY ELEMENT I«, l3=0x30}
0x527…559 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x559…58b Line {l1=0x30, l2=»; I DUMMY ELEMENT I«, l3=0x30}
0x58b…5bd Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x5bd…5ef Line {l1=0x30, l2=»; I I«, l3=0x30}
0x5ef…62f Line {l1=0x3e, l2=»;-------------------------------------------------------------«, l3=0x3e}
0x62f…661 Line {l1=0x30, l2=»; STACK CONTENTS ON EXIT: I I«, l3=0x30}
0x661…693 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x693…6c5 Line {l1=0x30, l2=»; I -> PCB I«, l3=0x30}
0x6c5…6f7 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x6f7…729 Line {l1=0x30, l2=»; I I«, l3=0x30}
0x729…769 Line {l1=0x3e, l2=»;=============================================================«, l3=0x3e}
0x769…76c Line {l1=0x01, l2=» «, l3=0x01}
0x76c…779 Line {l1=0x0b, l2=» SKIP«, l3=0x0b}
0x779…783 Line {l1=0x08, l2=»PROBLK::«, l3=0x08}
0x783…786 Line {l1=0x01, l2=» «, l3=0x01}
0x786…7b2 Line {l1=0x2a, l2=» POP B ;BC:=RETURN ADDRESS«, l3=0x2a}
0x7b2…7d0 Line {l1=0x1c, l2=» POP D ;SKIP«, l3=0x1c}
0x7d0…7f1 Line {l1=0x1f, l2=» POP D ; DUMMY«, l3=0x1f}
0x7f1…817 Line {l1=0x24, l2=» POP D ; ELEMENTS«, l3=0x24}
0x817…83f Line {l1=0x26, l2=» POP D ; ON STACK«, l3=0x26}
0x83f…842 Line {l1=0x01, l2=» «, l3=0x01}
0x842…880 Line {l1=0x3c, l2=» LHLD RUNN ;RUNN CONTAINS THE ADDRESS OF THE PCB«, l3=0x3c}
0x880…8b6 Line {l1=0x34, l2=» PUSH H ;PUSH ADDRESS OF PCB ON STACK«, l3=0x34}
0x8b6…8b9 Line {l1=0x01, l2=» «, l3=0x01}
0x8b9…8e9 Line {l1=0x2e, l2=» PUSH B ;RESTORE RETURN ADDRESS«, l3=0x2e}
0x8e9…8f5 Line {l1=0x0a, l2=» RET«, l3=0x0a}
0x8f5…8f8 Line {l1=0x01, l2=» «, l3=0x01}
0x8f8…904 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x904…920 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccc┆
0x920…940 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0xd…]
>;*************************************************************>>;* 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