|
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«
└─⟦38ff28550⟧ Bits:30004682 Pascal Standard Assembler til MIKADOS
└─⟦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 2b cd 04 05 0b 25 00 00 00 05 02 08 3a 02 05 0b 17 00 00 00 05 04 08 a7 c8 2a ┆ + % : *┆
0x920…940 04 05 0b 26 00 00 00 05 03 08 eb 2a 03 05 0b 27 00 00 00 05 02 08 cd 02 05 0b 28 00 00 00 05 06 ┆ & * ' ( ┆
0x940…960 08 19 7c b5 f5 ca 06 04 0a 02 2c 02 04 04 08 42 4b cd 04 04 0a 02 00 00 04 02 08 01 02 05 0b 29 ┆ ø , BK )┆
0x960…980 00 00 00 05 02 08 2a 02 05 0b 21 00 00 00 05 02 08 11 02 05 0b 29 00 00 00 05 02 08 cd 02 05 0b ┆ * ! ) ┆
0x980…9a0 01 00 00 00 05 06 08 19 eb 3e 02 2a 06 05 0b 02 00 00 00 05 02 08 cd 02 05 0b 03 00 00 00 05 03 ┆ > * ┆
0x9a0…9c0 08 f1 ca 03 04 0a 02 4e 02 04 02 08 2a 02 05 0b 27 00 00 00 05 04 08 44 4d cd 04 04 0a 02 00 00 ┆ N * ' DM ┆
0x9c0…9e0 04 02 08 3a 02 05 0b 2a 00 00 00 05 05 08 3d f8 f5 01 05 05 0b 2b 00 00 00 05 07 08 11 01 00 3e ┆ : * = + >┆
0x9e0…a00 41 46 53 54 41 20 20 20 52 43 02 05 00 00 00 00 0e 00 06 0f 00 07 41 04 00 09 00 45 43 42 34 20 ┆AFSTA RC A ECB4 ┆
0xa00…a20 02 2a 07 05 0b 02 00 00 00 05 02 08 cd 02 05 0b 03 00 00 00 05 03 08 f1 c3 03 04 0a 02 51 02 04 ┆ * Q ┆
0xa20…a40 03 08 23 22 03 05 0b 1d 00 00 00 05 05 08 7c b5 c0 2a 05 05 0b 16 00 00 00 05 02 08 22 02 05 0b ┆ #" ø * " ┆
0xa40…a60 1a 00 00 00 05 04 08 37 c9 2a 04 05 0b 16 00 00 00 05 05 08 01 00 00 3a 05 05 0b 17 00 00 00 05 ┆ 7 * : ┆
0xa60…a80 03 08 a7 ca 03 04 0a 02 88 02 04 02 08 01 02 05 0b 18 00 00 00 05 02 08 cd 02 05 0b 19 00 00 00 ┆ ┆
0xa80…aa0 05 04 08 09 eb 2a 04 05 0b 1a 00 00 00 05 02 08 cd 02 05 0b 28 00 00 00 05 17 08 19 7c b5 3e 01 ┆ * ( ø > ┆
0xaa0…ac0 c8 97 c9 4f 78 41 07 c9 57 2b 23 15 f8 7e fe 40 c2 17 04 0a 02 c7 02 04 04 08 15 14 ca 04 04 0a ┆ OxA W+# ü @ ┆
0xac0…ae0 02 be 02 04 07 08 23 7e 2b fe 40 c2 07 04 0a 02 be 02 04 02 08 cd 02 04 0a 02 cc 02 04 05 08 00 ┆ #ü+ @ ┆