|
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: »TRY2.K«
└─⟦1f7cb7eb5⟧ Bits:30009019 ARRAY0 + nulfiler
└─⟦this⟧ »TRY2.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 H,2
ARRAY1:
SHLD TAL
XCHG
PUSH D
LXI B,TAL
MVI E,2
ARRAY2:
LDAX B
MOV M,A
DCX 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…105 Line {l1=0x17, l2=» LXI H,2 «, l3=0x17}
0x105…10e Line {l1=0x07, l2=»ARRAY1:«, l3=0x07}
0x10e…123 Line {l1=0x13, l2=» SHLD TAL«, l3=0x13}
0x123…139 Line {l1=0x14, l2=» XCHG «, l3=0x14}
0x139…14c Line {l1=0x11, l2=» PUSH D«, l3=0x11}
0x14c…163 Line {l1=0x15, l2=» LXI B,TAL«, l3=0x15}
0x163…178 Line {l1=0x13, l2=» MVI E,2«, l3=0x13}
0x178…181 Line {l1=0x07, l2=»ARRAY2:«, l3=0x07}
0x181…194 Line {l1=0x11, l2=» LDAX B«, l3=0x11}
0x194…1a9 Line {l1=0x13, l2=» MOV M,A«, l3=0x13}
0x1a9…1bc Line {l1=0x11, l2=» DCX H«, l3=0x11}
0x1bc…1cf Line {l1=0x11, l2=» INX B«, l3=0x11}
0x1cf…1e2 Line {l1=0x11, l2=» DCR E«, l3=0x11}
0x1e2…1fa Line {l1=0x16, l2=» JNZ ARRAY2«, l3=0x16}
0x1fa…20d Line {l1=0x11, l2=» POP D«, l3=0x11}
0x20d…220 Line {l1=0x11, l2=» INX D«, l3=0x11}
0x220…22e Line {l1=0x0c, l2=» XCHG«, l3=0x0c}
0x22e…245 Line {l1=0x15, l2=» MVI A,#11«, l3=0x15}
0x245…258 Line {l1=0x11, l2=» CMP L«, l3=0x11}
0x258…270 Line {l1=0x16, l2=» JNZ ARRAY1«, l3=0x16}
0x270…27d Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x27d…285 Line {l1=0x06, l2=»HELP1:«, l3=0x06}
0x285…29a Line {l1=0x13, l2=» LXI D,1«, l3=0x13}
0x29a…2a2 Line {l1=0x06, l2=»HELP3:«, l3=0x06}
0x2a2…2bb Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x2bb…2d4 Line {l1=0x17, l2=» MVI A,FIXFL«, l3=0x17}
0x2d4…2ea Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x2ea…303 Line {l1=0x17, l2=» LXI H,GETBF«, l3=0x17}
0x303…31b Line {l1=0x16, l2=» LXI D,FLAG«, l3=0x16}
0x31b…334 Line {l1=0x17, l2=» MVI A,PUTNM«, l3=0x17}
0x334…34a Line {l1=0x14, l2=» CALL DOIT«, l3=0x14}
0x34a…357 Line {l1=0x0b, l2=» RET«, l3=0x0b}
0x357…35f Line {l1=0x06, l2=»HELP2:«, l3=0x06}
0x35f…374 Line {l1=0x13, l2=» LXI D,2«, l3=0x13}
0x374…38b Line {l1=0x15, l2=» JMP HELP3«, l3=0x15}
0x38b…38e Line {l1=0x01, l2=»;«, l3=0x01}
0x38e…3b9 Line {l1=0x29, l2=»ARRAYA: DB 'A',VPAR,'1',INKNS «, l3=0x29}
0x3b9…3df Line {l1=0x24, l2=»INDEXA: DB 0,0,HPAR,INTGR,DELIM«, l3=0x24}
0x3df…403 Line {l1=0x22, l2=»ARRAYB: DB 'B',VPAR,'1',INKNS«, l3=0x22}
0x403…423 Line {l1=0x1e, l2=»INDEXB: DB 0,0,HPAR,DELIM«, l3=0x1e}
0x423…441 Line {l1=0x1c, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1c}
0x441…454 Line {l1=0x11, l2=»GETBF: DS 4«, l3=0x11}
0x454…469 Line {l1=0x13, l2=»N: DS #10«, l3=0x13}
0x469…47c Line {l1=0x11, l2=»TAL: DS 2«, l3=0x11}
0x47c…493 Line {l1=0x15, l2=» END START«, l3=0x15}
0x493…4a0 00 00 20 20 41 2c 50 55 54 4e 4d 17 14 ┆ A,PUTNM ┆
0x4a0…4c0 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 44 4f 49 54 14 15 20 20 20 20 20 20 20 20 4a 4e ┆ CALL DOIT JN┆
0x4c0…4e0 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┆
[…0x17…]