|
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: 1440 (0x5a0)
Types: TextFile
Notes: Mikados_K
Names: »TRY.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY.K«
BASHM
START:
CALL COASM
LXI H,1
SHLD INDEXA
SHLD INDEXB
LXI D,ARRAYA
LXI H,N
MVI A,GETNM
CALL DOIT
JNZ HELP1
LXI H,N+2
MVI B,#10
ARRAY1:
LDAX D
MOV M,A
INX H
INX D
DCR B
JNZ ARRAY1
LXI D,ARRAYB
LXI H,N
MVI A,PUTNM
CALL DOIT
JNZ HELP2
LXI H,N+2
MVI B,#10
XCHG
ARRAY2:
LDAX D
MOV M,A
INX H
INX D
DCR B
JNZ ARRAY2
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
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…073 Line {l1=0x16, l2=» SHLD INDEXB«, l3=0x16}
0x073…08d Line {l1=0x18, l2=» LXI D,ARRAYA«, l3=0x18}
0x08d…0a2 Line {l1=0x13, l2=» LXI H,N«, l3=0x13}
0x0a2…0bb Line {l1=0x17, l2=» MVI A,GETNM«, l3=0x17}
0x0bb…0d1 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x0d1…0e8 Line {l1=0x15, l2=» JNZ HELP1«, l3=0x15}
0x0e8…0ff Line {l1=0x15, l2=» LXI H,N+2«, l3=0x15}
0x0ff…116 Line {l1=0x15, l2=» MVI B,#10«, l3=0x15}
0x116…11f Line {l1=0x07, l2=»ARRAY1:«, l3=0x07}
0x11f…132 Line {l1=0x11, l2=» LDAX D«, l3=0x11}
0x132…147 Line {l1=0x13, l2=» MOV M,A«, l3=0x13}
0x147…15a Line {l1=0x11, l2=» INX H«, l3=0x11}
0x15a…16d Line {l1=0x11, l2=» INX D«, l3=0x11}
0x16d…180 Line {l1=0x11, l2=» DCR B«, l3=0x11}
0x180…198 Line {l1=0x16, l2=» JNZ ARRAY1«, l3=0x16}
0x198…1b2 Line {l1=0x18, l2=» LXI D,ARRAYB«, l3=0x18}
0x1b2…1c7 Line {l1=0x13, l2=» LXI H,N«, l3=0x13}
0x1c7…1e0 Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x1e0…1f6 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x1f6…20d Line {l1=0x15, l2=» JNZ HELP2«, l3=0x15}
0x20d…224 Line {l1=0x15, l2=» LXI H,N+2«, l3=0x15}
0x224…23b Line {l1=0x15, l2=» MVI B,#10«, l3=0x15}
0x23b…249 Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x249…252 Line {l1=0x07, l2=»ARRAY2:«, l3=0x07}
0x252…265 Line {l1=0x11, l2=» LDAX D«, l3=0x11}
0x265…27a Line {l1=0x13, l2=» MOV M,A«, l3=0x13}
0x27a…28d Line {l1=0x11, l2=» INX H«, l3=0x11}
0x28d…2a0 Line {l1=0x11, l2=» INX D«, l3=0x11}
0x2a0…2b3 Line {l1=0x11, l2=» DCR B«, l3=0x11}
0x2b3…2cb Line {l1=0x16, l2=» JNZ ARRAY2«, l3=0x16}
0x2cb…2d8 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x2d8…2e0 Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x2e0…2f5 Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x2f5…2fd Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x2fd…316 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x316…32f Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x32f…345 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x345…35e Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x35e…376 Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x376…38f Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x38f…3a5 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x3a5…3b2 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x3b2…3ba Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x3ba…3cf Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x3cf…3e6 Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x3e6…3e9 Line {l1=0x01, l2=»;«, l3=0x01}
0x3e9…40d Line {l1=0x22, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS«, l3=0x22}
0x40d…42d Line {l1=0x1e, l2=»INDEXA: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x42d…451 Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x451…471 Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x471…48f Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x48f…4a2 Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x4a2…4b7 Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x4b7…4ce Line {l1=0x15, l2=» END START«, l3=0x15}
0x4ce…4e0 00 00 20 20 45 4e 44 20 20 20 20 20 53 54 41 52 54 15 ┆ END START ┆
0x4e0…500 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 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x500…520 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┆
[…0x4…]