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

⟦502edec6b⟧ TextFile

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

Derivation

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

Mikados K File

        BASHM
START:
        CALL    COASM
        LXI     H,1
        SHLD    TAL+2   
        LXI     D,AA     
        LXI     H,TAL
        MVI     A,PUTNM
        CALL    DOIT
        JNZ     HELP2
        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
;
AA:     DB      'AA',INTGR,DELIM
FLAG:   DB      'FLAG',DELIM
GETBF:  DS      4
TAL:    DS      4
        END     START

Full view