|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »TRY6.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY6.K«
BASHM
START:
CALL COASM
LXI H,1
SHLD INDEXA
SHLD TAL
LXI D,ARRAYA
LXI H,TAL
MVI A,PUTNM
CALL DOIT
JNZ HELP2
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
0x000…00f Line {l1=0x0d, l2=» BASHM«, l3=0x0d}
0x00f…017 Line {l1=0x06, l2=»START:«, l3=0x06}
0x017…02e Line {l1=0x15, l2=» CALL COASM«, l3=0x15}
0x02e…043 Line {l1=0x13, l2=» LXI H,1«, l3=0x13}
0x043…05b Line {l1=0x16, l2=» SHLD INDEXA«, l3=0x16}
0x05b…075 Line {l1=0x18, l2=» SHLD TAL «, l3=0x18}
0x075…08f Line {l1=0x18, l2=» LXI D,ARRAYA«, l3=0x18}
0x08f…0a6 Line {l1=0x15, l2=» LXI H,TAL«, l3=0x15}
0x0a6…0bf Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x0bf…0d5 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x0d5…0ec Line {l1=0x15, l2=» JNZ HELP2«, l3=0x15}
0x0ec…0fa Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x0fa…10f Line {l1=0x13, l2=» MOV E,M«, l3=0x13}
0x10f…122 Line {l1=0x11, l2=» INX H«, l3=0x11}
0x122…137 Line {l1=0x13, l2=» MOV D,M«, l3=0x13}
0x137…150 Line {l1=0x17, l2=» JMP HELP3 «, l3=0x17}
0x150…158 Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x158…16d Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x16d…175 Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x175…18e Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x18e…1a7 Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x1a7…1bd Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x1bd…1d6 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x1d6…1ee Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x1ee…207 Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x207…21d Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x21d…22a Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x22a…232 Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x232…247 Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x247…25e Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x25e…261 Line {l1=0x01, l2=»;«, l3=0x01}
0x261…28c Line {l1=0x29, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS «, l3=0x29}
0x28c…2b2 Line {l1=0x24, l2=»INDEXA: DB 0,0,HPAR,INTGR,DELIM«, l3=0x24}
0x2b2…2d6 Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x2d6…2f6 Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x2f6…314 Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x314…327 Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x327…33c Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x33c…34f Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x34f…366 Line {l1=0x15, l2=» END START«, l3=0x15}
0x366…380 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccc┆
0x380…3a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]