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

⟦0b8084f3f⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »P.K«

Derivation

└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
    └─⟦this⟧ »P.K« 

; TESTPROCEDURE FOR DDE PASCAL - RM-790719
;
; PROCEDURE P( VAR P1: INTEGER; P2: BOOLEAN; P3: STRING );
;            EXTERNAL;
;
P::    POP     H       ;RETURADRESSE
       POP     D       ;PIL TIL P3
       POP     B       ;VÆRDIEN AF P2
       XTHL            ;STAK RETURHOPADRESSEN OG HENT PIL TIL P1
       CALL    0F008   ;LAD OS KIKKE LIDT PÅ RESULTATERNE
       MOV     E,M
       INX     H
       MOV     D,M
       INX     D
       INX     D
       INX     D
       MVI     D,1
       MOV     M,D     ;GEM RESULTAT (ORIGINALVÆRDI + 259)
       DCX     H
       MOV     M,E
       RET
;
       END

0x000…02c Line {l1=0x2a, l2=»; TESTPROCEDURE FOR DDE PASCAL - RM-790719«, l3=0x2a}
0x02c…02f Line {l1=0x01, l2=»;«, l3=0x01}
0x02f…06b Line {l1=0x3a, l2=»; PROCEDURE P( VAR P1: INTEGER; P2: BOOLEAN; P3: STRING );«, l3=0x3a}
0x06b…083 Line {l1=0x16, l2=»;            EXTERNAL;«, l3=0x16}
0x083…086 Line {l1=0x01, l2=»;«, l3=0x01}
0x086…0ac Line {l1=0x24, l2=»P::    POP     H       ;RETURADRESSE«, l3=0x24}
0x0ac…0d0 Line {l1=0x22, l2=»       POP     D       ;PIL TIL P3«, l3=0x22}
0x0d0…0f7 Line {l1=0x25, l2=»       POP     B       ;VÆRDIEN AF P2«, l3=0x25}
0x0f7…139 Line {l1=0x40, l2=»       XTHL            ;STAK RETURHOPADRESSEN OG HENT PIL TIL P1«, l3=0x40}
0x139…174 Line {l1=0x39, l2=»       CALL    0F008   ;LAD OS KIKKE LIDT PÅ RESULTATERNE«, l3=0x39}
0x174…188 Line {l1=0x12, l2=»       MOV     E,M«, l3=0x12}
0x188…19a Line {l1=0x10, l2=»       INX     H«, l3=0x10}
0x19a…1ae Line {l1=0x12, l2=»       MOV     D,M«, l3=0x12}
0x1ae…1c0 Line {l1=0x10, l2=»       INX     D«, l3=0x10}
          […0x2…]
0x1e4…1f8 Line {l1=0x12, l2=»       MVI     D,1«, l3=0x12}
0x1f8…234 Line {l1=0x3a, l2=»       MOV     M,D     ;GEM RESULTAT (ORIGINALVÆRDI + 259)«, l3=0x3a}
0x234…246 Line {l1=0x10, l2=»       DCX     H«, l3=0x10}
0x246…25a Line {l1=0x12, l2=»       MOV     M,E«, l3=0x12}
0x25a…266 Line {l1=0x0a, l2=»       RET«, l3=0x0a}
0x266…269 Line {l1=0x01, l2=»;«, l3=0x01}
0x269…275 Line {l1=0x0a, l2=»       END«, l3=0x0a}
0x275…280 00 00 76 76 76 76 76 76 76 76 76                                                                  ┆  vvvvvvvvv┆
0x280…2a0 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76   ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
          […0x39…]
0x9c0…9e0 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 63   ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc┆

*; TESTPROCEDURE FOR DDE PASCAL - RM-790719*▶01◀;▶01◀:; PROCEDURE P( VAR P1: INTEGER; P2: BOOLEAN; P3: STRING );:▶16◀;            EXTERNAL;▶16◀▶01◀;▶01◀$P::    POP     H       ;RETURADRESSE$"       POP     D       ;PIL TIL P3"%       POP     B       ;VÆRDIEN AF P2%@       XTHL            ;STAK RETURHOPADRESSEN OG HENT PIL TIL P1@9       CALL    0F008   ;LAD OS KIKKE LIDT PÅ RESULTATERNE9▶12◀       MOV     E,M▶12◀▶10◀       INX     H▶10◀▶12◀       MOV     D,M▶12◀▶10◀       INX     D▶10◀▶10◀       INX     D▶10◀▶10◀       INX     D▶10◀▶12◀       MVI     D,1▶12◀:       MOV     M,D     ;GEM RESULTAT (ORIGINALVÆRDI + 259):▶10◀       DCX     H▶10◀▶12◀       MOV     M,E▶12◀
       RET
▶01◀;▶01◀
       END
▶00◀▶00◀vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvc

Reduced view