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

⟦977ab7844⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »TRY10.K«

Derivation

└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
    └─⟦this⟧ »TRY10.K«

Mikados K File

        BASHM
START:
        CALL    COASM
        LXI     H,1
        SHLD    INDEXA
        SHLD    TAL     
        LXI     D,ARRAYA
        LXI     H,TAL
        MVI     A,PUTNM
        CALL    DOIT
        JNZ     HELP2
        DCX     D
        DCX     D
        DCX     D
        DCX     D
        XCHG
        MOV     E,M
        INX     H
        MOV     D,M
        JMP     HELP3  
HELP1:
        LXI     D,1
HELP3:
        LXI     H,GETBF
        MVI     A,FIXFL
        CALL    DOIT
        LXI     H,GETBF
        LXI     D,FLAG
        MVI     A,PUTNM
        CALL    DOIT
        RET
HELP2:
        LXI     D,2
        JMP     HELP3
;
ARRAYA: DB      'A',VPAR,'1',INKNS       
INDEXA: DB      0,0,HPAR,INTGR,DELIM
ARRAYB: DB      'B',VPAR,'1',INKNS
INDEXB: DB      0,0,HPAR,DELIM
FLAG:   DB      'FLAG',DELIM
GETBF:  DS      4
N:      DS      #10
TAL:    DS      2
        END     START

Full view