|
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: »TRY8.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY8.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
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}
[…0x1…]
0x112…120 Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x120…135 Line {l1=0x13, l2=» MOV E,M«, l3=0x13}
0x135…148 Line {l1=0x11, l2=» INX H«, l3=0x11}
0x148…15d Line {l1=0x13, l2=» MOV D,M«, l3=0x13}
0x15d…176 Line {l1=0x17, l2=» JMP HELP3 «, l3=0x17}
0x176…17e Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x17e…193 Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x193…19b Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x19b…1b4 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x1b4…1cd Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x1cd…1e3 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x1e3…1fc Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x1fc…214 Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x214…22d Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x22d…243 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x243…250 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x250…258 Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x258…26d Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x26d…284 Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x284…287 Line {l1=0x01, l2=»;«, l3=0x01}
0x287…2b2 Line {l1=0x29, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS «, l3=0x29}
0x2b2…2d8 Line {l1=0x24, l2=»INDEXA: DB 0,0,HPAR,INTGR,DELIM«, l3=0x24}
0x2d8…2fc Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x2fc…31c Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x31c…33a Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x33a…34d Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x34d…362 Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x362…375 Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x375…38c Line {l1=0x15, l2=» END START«, l3=0x15}
0x38c…3a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x3a0…3c0 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┆
[…0x1…]