|
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: »TRY7.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY7.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
INX D
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…0ff Line {l1=0x11, l2=» INX D«, l3=0x11}
0x0ff…10d Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x10d…122 Line {l1=0x13, l2=» MOV E,M«, l3=0x13}
0x122…135 Line {l1=0x11, l2=» INX H«, l3=0x11}
0x135…14a Line {l1=0x13, l2=» MOV D,M«, l3=0x13}
0x14a…163 Line {l1=0x17, l2=» JMP HELP3 «, l3=0x17}
0x163…16b Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x16b…180 Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x180…188 Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x188…1a1 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x1a1…1ba Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x1ba…1d0 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x1d0…1e9 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x1e9…201 Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x201…21a Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x21a…230 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x230…23d Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x23d…245 Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x245…25a Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x25a…271 Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x271…274 Line {l1=0x01, l2=»;«, l3=0x01}
0x274…29f Line {l1=0x29, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS «, l3=0x29}
0x29f…2c5 Line {l1=0x24, l2=»INDEXA: DB 0,0,HPAR,INTGR,DELIM«, l3=0x24}
0x2c5…2e9 Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x2e9…309 Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x309…327 Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x327…33a Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x33a…34f Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x34f…362 Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x362…379 Line {l1=0x15, l2=» END START«, l3=0x15}
0x379…380 00 00 63 63 63 63 63 ┆ ccccc┆
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…]