|
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: »TRY10.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY10.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
DCX D
DCX D
DCX D
DCX 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=» DCX D«, l3=0x11}
[…0x3…]
0x138…146 Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x146…15b Line {l1=0x13, l2=» MOV E,M«, l3=0x13}
0x15b…16e Line {l1=0x11, l2=» INX H«, l3=0x11}
0x16e…183 Line {l1=0x13, l2=» MOV D,M«, l3=0x13}
0x183…19c Line {l1=0x17, l2=» JMP HELP3 «, l3=0x17}
0x19c…1a4 Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x1a4…1b9 Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x1b9…1c1 Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x1c1…1da Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x1da…1f3 Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x1f3…209 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x209…222 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x222…23a Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x23a…253 Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x253…269 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x269…276 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x276…27e Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x27e…293 Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x293…2aa Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x2aa…2ad Line {l1=0x01, l2=»;«, l3=0x01}
0x2ad…2d8 Line {l1=0x29, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS «, l3=0x29}
0x2d8…2fe Line {l1=0x24, l2=»INDEXA: DB 0,0,HPAR,INTGR,DELIM«, l3=0x24}
0x2fe…322 Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x322…342 Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x342…360 Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x360…373 Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x373…388 Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x388…39b Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x39b…3b2 Line {l1=0x15, l2=» END START«, l3=0x15}
0x3b2…3c0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccc┆
0x3c0…3e0 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┆