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 - metrics - download

⟦0e7a0a96a⟧

    Length: 583 (0x247)
    Notes: Mikados TextFile, Mikados_K
    Names: »P«

Derivation

└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
    └─⟦this⟧ »P« 
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
    └─⟦this⟧ »P«

Text

; 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