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

⟦f5343c9d0⟧ TextFile

    Length: 1984 (0x7c0)
    Types: TextFile
    Notes: Mikados_K
    Names: »TRY5.K«

Derivation

└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
    └─⟦this⟧ »TRY5.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
        LXI     B,TAL
        LXI     H,2    
ARRAY1:
        SHLD    TAL
        XCHG        
        PUSH    D
        LXI     B,TAL
        MVI     E,2
ARRAY2:
        LDAX    B
        MOV     M,A
        INX     H
        INX     B
        DCR     E
        JNZ     ARRAY2
        POP     D
        INX     D
        XCHG
        MVI     A,#11
        CMP     L
        JNZ     ARRAY1
        RET
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