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

⟦56362aa3d⟧ TextFile

    Length: 1440 (0x5a0)
    Types: TextFile
    Notes: Mikados_K
    Names: »TRY.K«

Derivation

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

Mikados K File

        BASHM
START:
        CALL    COASM
        LXI     H,1
        SHLD    INDEXA
        SHLD    INDEXB
        LXI     D,ARRAYA
        LXI     H,N
        MVI     A,GETNM
        CALL    DOIT
        JNZ     HELP1
        LXI     H,N+2
        MVI     B,#10
ARRAY1:
        LDAX    D
        MOV     M,A
        INX     H
        INX     D
        DCR     B
        JNZ     ARRAY1
        LXI     D,ARRAYB
        LXI     H,N
        MVI     A,PUTNM
        CALL    DOIT
        JNZ     HELP2
        LXI     H,N+2
        MVI     B,#10
        XCHG
ARRAY2:
        LDAX    D
        MOV     M,A
        INX     H
        INX     D
        DCR     B
        JNZ     ARRAY2
        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,DELIM
ARRAYB: DB      'B',VPAR,'1',INKNS
INDEXB: DB      0,0,HPAR,DELIM
FLAG:   DB      'FLAG',DELIM
GETBF:  DS      4
N:      DS      #10
        END     START

Full view