|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »TRY1.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY1.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
LXI H,2
ARRAY1:
SHLD TAL
XCHG
PUSH D
MVI E,2
ARRAY2:
LDAX B
MOV M,A
DCX 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,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…105 Line {l1=0x17, l2=» LXI H,2 «, l3=0x17}
0x105…10e Line {l1=0x07, l2=»ARRAY1:«, l3=0x07}
0x10e…123 Line {l1=0x13, l2=» SHLD TAL«, l3=0x13}
0x123…139 Line {l1=0x14, l2=» XCHG «, l3=0x14}
0x139…14c Line {l1=0x11, l2=» PUSH D«, l3=0x11}
0x14c…161 Line {l1=0x13, l2=» MVI E,2«, l3=0x13}
0x161…16a Line {l1=0x07, l2=»ARRAY2:«, l3=0x07}
0x16a…17d Line {l1=0x11, l2=» LDAX B«, l3=0x11}
0x17d…192 Line {l1=0x13, l2=» MOV M,A«, l3=0x13}
0x192…1a5 Line {l1=0x11, l2=» DCX H«, l3=0x11}
0x1a5…1b8 Line {l1=0x11, l2=» INX B«, l3=0x11}
0x1b8…1cb Line {l1=0x11, l2=» DCR E«, l3=0x11}
0x1cb…1e3 Line {l1=0x16, l2=» JNZ ARRAY2«, l3=0x16}
0x1e3…1f6 Line {l1=0x11, l2=» POP D«, l3=0x11}
0x1f6…209 Line {l1=0x11, l2=» INX D«, l3=0x11}
0x209…217 Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x217…22e Line {l1=0x15, l2=» MVI A,#11«, l3=0x15}
0x22e…241 Line {l1=0x11, l2=» CMP L«, l3=0x11}
0x241…259 Line {l1=0x16, l2=» JNZ ARRAY1«, l3=0x16}
0x259…266 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x266…26e Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x26e…283 Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x283…28b Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x28b…2a4 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x2a4…2bd Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x2bd…2d3 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x2d3…2ec Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x2ec…304 Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x304…31d Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x31d…333 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x333…340 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x340…348 Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x348…35d Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x35d…374 Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x374…377 Line {l1=0x01, l2=»;«, l3=0x01}
0x377…39b Line {l1=0x22, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS«, l3=0x22}
0x39b…3bb Line {l1=0x1e, l2=»INDEXA: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x3bb…3df Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x3df…3ff Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x3ff…41d Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x41d…430 Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x430…445 Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x445…458 Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x458…46f Line {l1=0x15, l2=» END START«, l3=0x15}
0x46f…480 00 00 20 20 20 20 20 20 20 4c 58 49 20 20 20 20 20 ┆ LXI ┆
0x480…4a0 48 2c 54 41 4c 15 17 20 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 41 2c 50 55 54 4e 4d 17 14 ┆H,TAL MVI A,PUTNM ┆
0x4a0…4c0 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 4f 49 54 14 15 20 20 20 20 20 20 20 20 4a 4e ┆ CALL DOIT JN┆
0x4c0…4e0 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┆
[…0x17…]