|
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: »TRY5.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY5.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 B,TAL
LXI H,2
ARRAY1:
SHLD TAL
XCHG
PUSH D
LXI B,TAL
MVI E,2
ARRAY2:
LDAX B
MOV M,A
INX 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,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…103 Line {l1=0x15, l2=» LXI B,TAL«, l3=0x15}
0x103…11c Line {l1=0x17, l2=» LXI H,2 «, l3=0x17}
0x11c…125 Line {l1=0x07, l2=»ARRAY1:«, l3=0x07}
0x125…13a Line {l1=0x13, l2=» SHLD TAL«, l3=0x13}
0x13a…150 Line {l1=0x14, l2=» XCHG «, l3=0x14}
0x150…163 Line {l1=0x11, l2=» PUSH D«, l3=0x11}
0x163…17a Line {l1=0x15, l2=» LXI B,TAL«, l3=0x15}
0x17a…18f Line {l1=0x13, l2=» MVI E,2«, l3=0x13}
0x18f…198 Line {l1=0x07, l2=»ARRAY2:«, l3=0x07}
0x198…1ab Line {l1=0x11, l2=» LDAX B«, l3=0x11}
0x1ab…1c0 Line {l1=0x13, l2=» MOV M,A«, l3=0x13}
0x1c0…1d3 Line {l1=0x11, l2=» INX H«, l3=0x11}
0x1d3…1e6 Line {l1=0x11, l2=» INX B«, l3=0x11}
0x1e6…1f9 Line {l1=0x11, l2=» DCR E«, l3=0x11}
0x1f9…211 Line {l1=0x16, l2=» JNZ ARRAY2«, l3=0x16}
0x211…224 Line {l1=0x11, l2=» POP D«, l3=0x11}
0x224…237 Line {l1=0x11, l2=» INX D«, l3=0x11}
0x237…245 Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x245…25c Line {l1=0x15, l2=» MVI A,#11«, l3=0x15}
0x25c…26f Line {l1=0x11, l2=» CMP L«, l3=0x11}
0x26f…287 Line {l1=0x16, l2=» JNZ ARRAY1«, l3=0x16}
0x287…294 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x294…29c Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x29c…2b1 Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x2b1…2b9 Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x2b9…2d2 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x2d2…2eb Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x2eb…301 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x301…31a Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x31a…332 Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x332…34b Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x34b…361 Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x361…36e Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x36e…376 Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x376…38b Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x38b…3a2 Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x3a2…3a5 Line {l1=0x01, l2=»;«, l3=0x01}
0x3a5…3d0 Line {l1=0x29, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS «, l3=0x29}
0x3d0…3f6 Line {l1=0x24, l2=»INDEXA: DB 0,0,HPAR,INTGR,DELIM«, l3=0x24}
0x3f6…41a Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x41a…43a Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x43a…458 Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x458…46b Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x46b…480 Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x480…493 Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x493…4aa Line {l1=0x15, l2=» END START«, l3=0x15}
0x4aa…4c0 00 00 20 20 20 20 44 4f 49 54 14 15 20 20 20 20 20 20 20 20 4a 4e ┆ DOIT JN┆
0x4c0…4e0 00 52 59 32 20 20 20 20 52 41 00 05 00 00 00 00 00 00 00 00 00 00 2a 21 01 05 00 52 59 32 20 20 ┆ RY2 RA *! RY2 ┆
0x4e0…500 20 20 52 41 14 00 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RA ┆
0x500…520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5…]
0x5c0…5e0 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┆
[…0xf…]