|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »SETPR.K«
└─⟦38ff28550⟧ Bits:30004682 Pascal Standard Assembler til MIKADOS
└─⟦this⟧ »SETPR.K«
;*************************************************************
;* PASCAL STANDARD ASSEMBLER PACKAGE. *
;* *
;* (C) 1980 DANSK DATA ELEKTRONIK APS. *
;*************************************************************
;
;*************************************************************
;* PROCEDURE NAME: SETPR *
;*************************************************************
;
; CT 07-MAY-1980
;
;=============================================================
; DESCRIPTION:
; THIS PROCEDURE IS USED TO CHANGE THE PRIORITY OF THE CALLING
; PROCESS.
; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL
; SECTION 5.1 FOR DETAILS.
;
;-------------------------------------------------------------
; STACK CONTENTS ON ENTRY: I I
; I---------------I
; I RETURN ADR. I
; I---------------I
; I NEW PRIORITY I
; I---------------I
; I I
;-------------------------------------------------------------
; STACK CONTENTS ON EXIT: EMPTY
;=============================================================
SKIP
SYMB
SETPR::
;
;DETERMINE ADDRESS OF PRIORITY FIELD IN PCB
;
LHLD RUNN ;HL->PCB
LXI B,PRIO
DAD B ;HL->PCB.PRIO
XCHG ;DE->PCB.PRIO
;
;GET PARAMETER FROM PASCAL PROCEDURE CALL
;
POP H ;HL=RET.ADRESS
XTHL ;HL=NEW PRIORITY
MOV A,L ;A=NEW PRIORITY
;
;TEST VALIDITY OF PRIORITY
;
CPI MINPR ;A<MINPR?
RC ;YES, RETURN
CPI MAXPR ;A>=MAXPR?
RNC ;YES, RETURN
;
;STORE NEW PRIORITY IN PRIORITY FIELD
;
STAX D ;PCB.PRIO=NEW PRIORITY
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=»;* PROCEDURE NAME: SETPR *«, 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…2ab Line {l1=0x3e, l2=»; THIS PROCEDURE IS USED TO CHANGE THE PRIORITY OF THE CALLING«, l3=0x3e}
0x2ab…2b7 Line {l1=0x0a, l2=»; PROCESS.«, l3=0x0a}
0x2b7…2f7 Line {l1=0x3e, l2=»; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL«, l3=0x3e}
0x2f7…313 Line {l1=0x1a, l2=»; SECTION 5.1 FOR DETAILS.«, l3=0x1a}
0x313…316 Line {l1=0x01, l2=»;«, l3=0x01}
0x316…356 Line {l1=0x3e, l2=»;-------------------------------------------------------------«, l3=0x3e}
0x356…388 Line {l1=0x30, l2=»; STACK CONTENTS ON ENTRY: I I«, l3=0x30}
0x388…3ba Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x3ba…3ec Line {l1=0x30, l2=»; I RETURN ADR. I«, l3=0x30}
0x3ec…41e Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x41e…450 Line {l1=0x30, l2=»; I NEW PRIORITY I«, l3=0x30}
0x450…482 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x482…4b4 Line {l1=0x30, l2=»; I I«, l3=0x30}
0x4b4…4f4 Line {l1=0x3e, l2=»;-------------------------------------------------------------«, l3=0x3e}
0x4f4…51a Line {l1=0x24, l2=»; STACK CONTENTS ON EXIT: EMPTY«, l3=0x24}
0x51a…55a Line {l1=0x3e, l2=»;=============================================================«, l3=0x3e}
0x55a…55d Line {l1=0x01, l2=» «, l3=0x01}
0x55d…56a Line {l1=0x0b, l2=» SKIP«, l3=0x0b}
0x56a…577 Line {l1=0x0b, l2=» SYMB«, l3=0x0b}
0x577…57a Line {l1=0x01, l2=» «, l3=0x01}
0x57a…583 Line {l1=0x07, l2=»SETPR::«, l3=0x07}
0x583…586 Line {l1=0x01, l2=» «, l3=0x01}
0x586…589 Line {l1=0x01, l2=»;«, l3=0x01}
0x589…5b6 Line {l1=0x2b, l2=»;DETERMINE ADDRESS OF PRIORITY FIELD IN PCB«, l3=0x2b}
0x5b6…5b9 Line {l1=0x01, l2=»;«, l3=0x01}
0x5b9…5da Line {l1=0x1f, l2=» LHLD RUNN ;HL->PCB«, l3=0x1f}
0x5da…5f1 Line {l1=0x15, l2=» LXI B,PRIO«, l3=0x15}
0x5f1…617 Line {l1=0x24, l2=» DAD B ;HL->PCB.PRIO«, l3=0x24}
0x617…63d Line {l1=0x24, l2=» XCHG ;DE->PCB.PRIO«, l3=0x24}
0x63d…640 Line {l1=0x01, l2=» «, l3=0x01}
0x640…643 Line {l1=0x01, l2=»;«, l3=0x01}
0x643…66e Line {l1=0x29, l2=»;GET PARAMETER FROM PASCAL PROCEDURE CALL«, l3=0x29}
0x66e…671 Line {l1=0x01, l2=»;«, l3=0x01}
0x671…698 Line {l1=0x25, l2=» POP H ;HL=RET.ADRESS«, l3=0x25}
0x698…6c1 Line {l1=0x27, l2=» XTHL ;HL=NEW PRIORITY«, l3=0x27}
0x6c1…6e9 Line {l1=0x26, l2=» MOV A,L ;A=NEW PRIORITY«, l3=0x26}
0x6e9…6ec Line {l1=0x01, l2=» «, l3=0x01}
0x6ec…6ef Line {l1=0x01, l2=»;«, l3=0x01}
0x6ef…70b Line {l1=0x1a, l2=»;TEST VALIDITY OF PRIORITY«, l3=0x1a}
0x70b…70e Line {l1=0x01, l2=»;«, l3=0x01}
0x70e…730 Line {l1=0x20, l2=» CPI MINPR ;A<MINPR?«, l3=0x20}
0x730…755 Line {l1=0x23, l2=» RC ;YES, RETURN«, l3=0x23}
0x755…778 Line {l1=0x21, l2=» CPI MAXPR ;A>=MAXPR?«, l3=0x21}
0x778…79d Line {l1=0x23, l2=» RNC ;YES, RETURN«, l3=0x23}
0x79d…7a0 Line {l1=0x01, l2=» «, l3=0x01}
0x7a0…7a3 Line {l1=0x01, l2=»;«, l3=0x01}
0x7a3…7ca Line {l1=0x25, l2=»;STORE NEW PRIORITY IN PRIORITY FIELD«, l3=0x25}
0x7ca…7cd Line {l1=0x01, l2=»;«, l3=0x01}
0x7cd…7fc Line {l1=0x2d, l2=» STAX D ;PCB.PRIO=NEW PRIORITY«, l3=0x2d}
0x7fc…808 Line {l1=0x0a, l2=» RET«, l3=0x0a}
0x808…80b Line {l1=0x01, l2=» «, l3=0x01}
0x80b…817 Line {l1=0x0a, l2=» END«, l3=0x0a}
0x817…820 00 00 30 da 41 71 23 c3 2e ┆ 0 Aq# .┆
0x820…840 71 04 f1 90 4f d1 21 00 00 0d fa 60 71 d5 1a d6 30 29 e5 29 29 d1 19 5f 16 00 19 d1 13 c3 49 71 ┆q O ! `q 0) )) _ Iq┆
0x840…860 7c b5 eb c2 66 71 37 c9 c3 30 71 e1 f1 e5 a7 c2 8b 71 01 0d 00 09 0e 05 cd dd 72 e1 97 f5 e5 11 ┆ø fq7 0q q r ┆
0x860…880 19 00 19 5e 23 56 23 46 c3 3f 71 01 30 00 09 01 0d 00 09 0e 05 cd dd 72 c1 c5 21 13 00 09 eb 21 ┆ ^#V#F ?q 0 r ! !┆
0x880…8a0 24 00 09 cd 18 01 e1 e5 01 30 00 09 01 10 00 09 7e 23 b6 23 b6 ca df 71 e1 e5 3e 02 cd 00 01 c2 ┆$ 0 ü# # q > ┆
0x8a0…8c0 a3 72 c1 c5 21 2a 00 09 eb 21 13 00 09 cd 18 01 21 16 00 09 3e 01 77 e1 e5 cd 00 01 c2 a3 72 e1 ┆ r !* ! ! > w r ┆
0x8c0…8e0 e5 01 30 00 09 01 0a 00 09 34 e1 e5 3e 02 cd 00 01 c2 a3 72 e1 e5 54 5d 01 30 00 09 e5 01 09 00 ┆ 0 4 > r TÅ 0 ┆
0x8e0…900 cd 73 00 d1 e1 e5 d5 01 0a 00 09 7e c6 42 eb 01 09 00 09 77 01 0b 00 e1 d1 d5 e5 09 eb 09 7e 12 ┆ s ü B w ü ┆
0x900…920 21 0d 00 c1 09 97 77 23 77 23 77 23 eb e1 e5 c5 01 24 00 09 c1 eb cd 18 01 21 06 00 2b 29 39 7e ┆! w#w#w# $ ! +)9ü┆
0x920…940 21 13 00 09 a7 ca 51 72 97 77 23 77 23 77 c3 5e 72 0e 03 cd dd 72 e1 e5 01 30 00 09 44 4d 21 19 ┆! Qr w#w#w ^r r 0 DM! ┆
0x940…960 00 09 eb c1 c5 21 22 00 09 7e 12 d1 d5 21 05 00 cd f0 72 c2 a3 72 21 06 00 2b 29 39 7e a7 c2 91 ┆ !" ü ! r r! +)9ü ┆
0x960…980 72 e1 e5 cd 2a 01 d1 d5 21 03 00 cd f0 72 c2 a3 72 e1 e5 01 0a 00 09 34 e1 e5 01 18 00 09 7e e6 ┆r * ! r r 4 ü ┆
0x980…9a0 bf 77 97 e1 c1 c1 c1 c1 c1 e5 e1 c1 d1 e5 c5 01 13 00 09 73 23 72 23 c1 71 23 70 e1 f5 e5 3e 01 ┆ w s#r# q#p > ┆
0x9a0…9c0 cd 00 01 a7 ca cb 72 e1 c1 f5 e5 e1 e5 01 18 00 09 7e e6 41 77 e1 cd 0c 01 f1 c9 e1 c9 eb 69 26 ┆ r ü Aw i&┆
0x9c0…9e0 00 29 39 7e 12 13 23 7e 12 13 2b 2b 2b 7e 12 c9 29 39 4e 23 46 2b 2b 2b 7e eb 57 cd 2d 01 c9 63 ┆ )9ü #ü +++ü )9N#F+++ü W - c┆