|
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: 3744 (0xea0)
Types: TextFile
Notes: Mikados_K
Names: »REGN.K«
└─⟦9104a212b⟧ Bits:30004703 Regn + Debug
└─⟦this⟧ »REGN.K«
BAS11
START:
ROM
CALL COASM
MVI A,GETNM
LXI D,ART
LXI H,BUF
CALL DOIT
JNZ FEJL1
MVI A,FLFIX
LXI H,BUF
CALL DOIT
JC FEJL2
XCHG
SHLD BUF
MVI A,GETST
LXI D,OP1
CALL DOIT
JNZ FEJL3
MOV B,C
LXI D,ROP1
XCHG
CALL MOVE
MVI A,GETST
LXI D,OP2
CALL DOIT
JC FEJL4
MOV B,C
LXI D,ROP2
XCHG
CALL MOVE
LXI H,ROP1
LXI D,ROP2
LXI B,RESUL
MVI A,82
PUSH PSW
LDA BUF
CPI 0
JZ AD
DCR A
CPI 0
JZ SU
DCR A
CPI 0
JZ MU
DCR A
CPI 0
JZ DI
DCR A
CPI 0
JZ EQ
DCR A
CPI 0
JZ BE
JMP FEJL5
AD: POP PSW
CALL ADDAS
JC FEJL6
JMP UD
SU: POP PSW
CALL SUBAS
JC FEJL6
JMP UD
MU: POP PSW
CALL MULAS
JC FEJL6
JMP UD
DI: POP PSW
CALL DIVAS
JC FEJL6
JMP UD
BE: POP PSW
MVI B,2
MVI A,#142
LXI D,ROP1
LXI H,RESUL
CALL BELUD
JC FEJL6
JMP UD
EQ: POP PSW
CALL EQUAS
JZ EQUD
MVI A,1
JM EQUD
MVI A,2
EQUD: MOV E,A
MVI D,0
LXI H,BUF
MVI A,FIXFL
CALL DOIT
LXI H,BUF
LXI D,SI
MVI A,PUTNM
CALL DOIT
RZ
JMP FEJL7
UD: LXI D,RES
LXI H,RESUL
LXI B,0F
MVI A,PUTST
CALL DOIT
RZ
FEJL7: LXI D,7
JMP FEJL
FEJL1: LXI D,1
JMP FEJL
FEJL2: LXI D,2
JMP FEJL
FEJL3: LXI D,3
JMP FEJL
FEJL4: LXI D,4
JMP FEJL
FEJL5: POP PSW
LXI D,5
JMP FEJL
FEJL6: LXI D,6
FEJL: LXI H,BUF
MVI A,FIXFL
CALL DOIT
LXI H,BUF
LXI D,FLAG
MVI A,PUTNM
CALL DOIT
RZ
CALL 0F008
SI: DB 'SI',DELIM
RES: DB 'RES',DOLL,DELIM
ART: DB 'ART',DELIM
OP1: DB 'OP1',DOLL,DELIM
OP2: DB 'OP2',DOLL,DELIM
FLAG: DB 'FLAG',DELIM
RAM
ROP1: DS 0F
ROP2: DS 0F
BUF: DS 4
RESUL: DS 0F
END START
0x000…003 Line {l1=0x01, l2=» «, l3=0x01}
0x003…011 Line {l1=0x0c, l2=» BAS11«, l3=0x0c}
0x011…019 Line {l1=0x06, l2=»START:«, l3=0x06}
0x019…025 Line {l1=0x0a, l2=» ROM«, l3=0x0a}
0x025…03b Line {l1=0x14, l2=» CALL COASM«, l3=0x14}
0x03b…053 Line {l1=0x16, l2=» MVI A,GETNM«, l3=0x16}
0x053…069 Line {l1=0x14, l2=» LXI D,ART«, l3=0x14}
0x069…07f Line {l1=0x14, l2=» LXI H,BUF«, l3=0x14}
0x07f…094 Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x094…0aa Line {l1=0x14, l2=» JNZ FEJL1«, l3=0x14}
0x0aa…0c2 Line {l1=0x16, l2=» MVI A,FLFIX«, l3=0x16}
0x0c2…0d8 Line {l1=0x14, l2=» LXI H,BUF«, l3=0x14}
0x0d8…0ed Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x0ed…103 Line {l1=0x14, l2=» JC FEJL2«, l3=0x14}
0x103…110 Line {l1=0x0b, l2=» XCHG«, l3=0x0b}
0x110…124 Line {l1=0x12, l2=» SHLD BUF«, l3=0x12}
0x124…13c Line {l1=0x16, l2=» MVI A,GETST«, l3=0x16}
0x13c…152 Line {l1=0x14, l2=» LXI D,OP1«, l3=0x14}
0x152…167 Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x167…17d Line {l1=0x14, l2=» JNZ FEJL3«, l3=0x14}
0x17d…191 Line {l1=0x12, l2=» MOV B,C«, l3=0x12}
0x191…1a8 Line {l1=0x15, l2=» LXI D,ROP1«, l3=0x15}
0x1a8…1b5 Line {l1=0x0b, l2=» XCHG«, l3=0x0b}
0x1b5…1ca Line {l1=0x13, l2=» CALL MOVE«, l3=0x13}
0x1ca…1e2 Line {l1=0x16, l2=» MVI A,GETST«, l3=0x16}
0x1e2…1f8 Line {l1=0x14, l2=» LXI D,OP2«, l3=0x14}
0x1f8…20d Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x20d…223 Line {l1=0x14, l2=» JC FEJL4«, l3=0x14}
0x223…237 Line {l1=0x12, l2=» MOV B,C«, l3=0x12}
0x237…24e Line {l1=0x15, l2=» LXI D,ROP2«, l3=0x15}
0x24e…25b Line {l1=0x0b, l2=» XCHG«, l3=0x0b}
0x25b…270 Line {l1=0x13, l2=» CALL MOVE«, l3=0x13}
0x270…287 Line {l1=0x15, l2=» LXI H,ROP1«, l3=0x15}
0x287…29e Line {l1=0x15, l2=» LXI D,ROP2«, l3=0x15}
0x29e…2b6 Line {l1=0x16, l2=» LXI B,RESUL«, l3=0x16}
0x2b6…2cb Line {l1=0x13, l2=» MVI A,82«, l3=0x13}
0x2cb…2df Line {l1=0x12, l2=» PUSH PSW«, l3=0x12}
0x2df…2f3 Line {l1=0x12, l2=» LDA BUF«, l3=0x12}
0x2f3…305 Line {l1=0x10, l2=» CPI 0«, l3=0x10}
0x305…318 Line {l1=0x11, l2=» JZ AD«, l3=0x11}
0x318…32a Line {l1=0x10, l2=» DCR A«, l3=0x10}
0x32a…33c Line {l1=0x10, l2=» CPI 0«, l3=0x10}
0x33c…34f Line {l1=0x11, l2=» JZ SU«, l3=0x11}
0x34f…361 Line {l1=0x10, l2=» DCR A«, l3=0x10}
0x361…373 Line {l1=0x10, l2=» CPI 0«, l3=0x10}
0x373…386 Line {l1=0x11, l2=» JZ MU«, l3=0x11}
0x386…398 Line {l1=0x10, l2=» DCR A«, l3=0x10}
0x398…3aa Line {l1=0x10, l2=» CPI 0«, l3=0x10}
0x3aa…3bd Line {l1=0x11, l2=» JZ DI«, l3=0x11}
0x3bd…3cf Line {l1=0x10, l2=» DCR A«, l3=0x10}
0x3cf…3e1 Line {l1=0x10, l2=» CPI 0«, l3=0x10}
0x3e1…3f4 Line {l1=0x11, l2=» JZ EQ«, l3=0x11}
0x3f4…406 Line {l1=0x10, l2=» DCR A«, l3=0x10}
0x406…418 Line {l1=0x10, l2=» CPI 0«, l3=0x10}
0x418…42b Line {l1=0x11, l2=» JZ BE«, l3=0x11}
0x42b…441 Line {l1=0x14, l2=» JMP FEJL5«, l3=0x14}
0x441…455 Line {l1=0x12, l2=»AD: POP PSW«, l3=0x12}
0x455…46b Line {l1=0x14, l2=» CALL ADDAS«, l3=0x14}
0x46b…481 Line {l1=0x14, l2=» JC FEJL6«, l3=0x14}
0x481…494 Line {l1=0x11, l2=» JMP UD«, l3=0x11}
0x494…497 Line {l1=0x01, l2=» «, l3=0x01}
0x497…4a0 Line {l1=0x07, l2=» «, l3=0x07}
0x4a0…4b4 Line {l1=0x12, l2=»SU: POP PSW«, l3=0x12}
0x4b4…4ca Line {l1=0x14, l2=» CALL SUBAS«, l3=0x14}
0x4ca…4e0 Line {l1=0x14, l2=» JC FEJL6«, l3=0x14}
0x4e0…4f3 Line {l1=0x11, l2=» JMP UD«, l3=0x11}
0x4f3…4f6 Line {l1=0x01, l2=» «, l3=0x01}
0x4f6…50a Line {l1=0x12, l2=»MU: POP PSW«, l3=0x12}
0x50a…520 Line {l1=0x14, l2=» CALL MULAS«, l3=0x14}
0x520…536 Line {l1=0x14, l2=» JC FEJL6«, l3=0x14}
0x536…549 Line {l1=0x11, l2=» JMP UD«, l3=0x11}
0x549…54c Line {l1=0x01, l2=» «, l3=0x01}
0x54c…55f Line {l1=0x11, l2=»DI: POP PSW«, l3=0x11}
0x55f…575 Line {l1=0x14, l2=» CALL DIVAS«, l3=0x14}
0x575…58b Line {l1=0x14, l2=» JC FEJL6«, l3=0x14}
0x58b…59e Line {l1=0x11, l2=» JMP UD«, l3=0x11}
0x59e…5b2 Line {l1=0x12, l2=»BE: POP PSW«, l3=0x12}
0x5b2…5c6 Line {l1=0x12, l2=» MVI B,2«, l3=0x12}
0x5c6…5dd Line {l1=0x15, l2=» MVI A,#142«, l3=0x15}
0x5dd…5f4 Line {l1=0x15, l2=» LXI D,ROP1«, l3=0x15}
0x5f4…60c Line {l1=0x16, l2=» LXI H,RESUL«, l3=0x16}
0x60c…622 Line {l1=0x14, l2=» CALL BELUD«, l3=0x14}
0x622…638 Line {l1=0x14, l2=» JC FEJL6«, l3=0x14}
0x638…64b Line {l1=0x11, l2=» JMP UD«, l3=0x11}
0x64b…64e Line {l1=0x01, l2=» «, l3=0x01}
0x64e…662 Line {l1=0x12, l2=»EQ: POP PSW«, l3=0x12}
0x662…681 Line {l1=0x1d, l2=» «, l3=0x1d}
0x681…697 Line {l1=0x14, l2=» CALL EQUAS«, l3=0x14}
0x697…6ac Line {l1=0x13, l2=» JZ EQUD«, l3=0x13}
0x6ac…6c0 Line {l1=0x12, l2=» MVI A,1«, l3=0x12}
0x6c0…6d5 Line {l1=0x13, l2=» JM EQUD«, l3=0x13}
0x6d5…6e9 Line {l1=0x12, l2=» MVI A,2«, l3=0x12}
0x6e9…6fd Line {l1=0x12, l2=»EQUD: MOV E,A«, l3=0x12}
0x6fd…711 Line {l1=0x12, l2=» MVI D,0«, l3=0x12}
0x711…727 Line {l1=0x14, l2=» LXI H,BUF«, l3=0x14}
0x727…73f Line {l1=0x16, l2=» MVI A,FIXFL«, l3=0x16}
0x73f…754 Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x754…76a Line {l1=0x14, l2=» LXI H,BUF«, l3=0x14}
0x76a…77f Line {l1=0x13, l2=» LXI D,SI«, l3=0x13}
0x77f…797 Line {l1=0x16, l2=» MVI A,PUTNM«, l3=0x16}
0x797…7ac Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x7ac…7b7 Line {l1=0x09, l2=» RZ«, l3=0x09}
0x7b7…7cd Line {l1=0x14, l2=» JMP FEJL7«, l3=0x14}
0x7cd…7d0 Line {l1=0x01, l2=» «, l3=0x01}
0x7d0…7e6 Line {l1=0x14, l2=»UD: LXI D,RES«, l3=0x14}
0x7e6…7fe Line {l1=0x16, l2=» LXI H,RESUL«, l3=0x16}
0x7fe…813 Line {l1=0x13, l2=» LXI B,0F«, l3=0x13}
0x813…82b Line {l1=0x16, l2=» MVI A,PUTST«, l3=0x16}
0x82b…840 Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x840…84b Line {l1=0x09, l2=» RZ«, l3=0x09}
0x84b…85f Line {l1=0x12, l2=»FEJL7: LXI D,7«, l3=0x12}
0x85f…874 Line {l1=0x13, l2=» JMP FEJL«, l3=0x13}
0x874…877 Line {l1=0x01, l2=» «, l3=0x01}
0x877…88b Line {l1=0x12, l2=»FEJL1: LXI D,1«, l3=0x12}
0x88b…8a0 Line {l1=0x13, l2=» JMP FEJL«, l3=0x13}
0x8a0…8a3 Line {l1=0x01, l2=» «, l3=0x01}
0x8a3…8b7 Line {l1=0x12, l2=»FEJL2: LXI D,2«, l3=0x12}
0x8b7…8cc Line {l1=0x13, l2=» JMP FEJL«, l3=0x13}
0x8cc…8cf Line {l1=0x01, l2=» «, l3=0x01}
0x8cf…8e3 Line {l1=0x12, l2=»FEJL3: LXI D,3«, l3=0x12}
0x8e3…8f8 Line {l1=0x13, l2=» JMP FEJL«, l3=0x13}
0x8f8…8fb Line {l1=0x01, l2=» «, l3=0x01}
0x8fb…90f Line {l1=0x12, l2=»FEJL4: LXI D,4«, l3=0x12}
0x90f…924 Line {l1=0x13, l2=» JMP FEJL«, l3=0x13}
0x924…938 Line {l1=0x12, l2=»FEJL5: POP PSW«, l3=0x12}
0x938…94c Line {l1=0x12, l2=» LXI D,5«, l3=0x12}
0x94c…961 Line {l1=0x13, l2=» JMP FEJL«, l3=0x13}
0x961…964 Line {l1=0x01, l2=» «, l3=0x01}
0x964…978 Line {l1=0x12, l2=»FEJL6: LXI D,6«, l3=0x12}
0x978…98e Line {l1=0x14, l2=»FEJL: LXI H,BUF«, l3=0x14}
0x98e…9a6 Line {l1=0x16, l2=» MVI A,FIXFL«, l3=0x16}
0x9a6…9bb Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0x9bb…9d1 Line {l1=0x14, l2=» LXI H,BUF«, l3=0x14}
0x9d1…9e8 Line {l1=0x15, l2=» LXI D,FLAG«, l3=0x15}
0x9e8…a00 Line {l1=0x16, l2=» MVI A,PUTNM«, l3=0x16}
0xa00…a15 Line {l1=0x13, l2=» CALL DOIT«, l3=0x13}
0xa15…a20 Line {l1=0x09, l2=» RZ«, l3=0x09}
0xa20…a36 Line {l1=0x14, l2=» CALL 0F008«, l3=0x14}
0xa36…a51 Line {l1=0x19, l2=»SI: DB 'SI',DELIM«, l3=0x19}
0xa51…a54 Line {l1=0x01, l2=» «, l3=0x01}
0xa54…a75 Line {l1=0x1f, l2=»RES: DB 'RES',DOLL,DELIM«, l3=0x1f}
0xa75…a91 Line {l1=0x1a, l2=»ART: DB 'ART',DELIM«, l3=0x1a}
0xa91…ab2 Line {l1=0x1f, l2=»OP1: DB 'OP1',DOLL,DELIM«, l3=0x1f}
0xab2…ad3 Line {l1=0x1f, l2=»OP2: DB 'OP2',DOLL,DELIM«, l3=0x1f}
0xad3…af0 Line {l1=0x1b, l2=»FLAG: DB 'FLAG',DELIM«, l3=0x1b}
0xaf0…afc Line {l1=0x0a, l2=» RAM«, l3=0x0a}
0xafc…b0f Line {l1=0x11, l2=»ROP1: DS 0F«, l3=0x11}
0xb0f…b22 Line {l1=0x11, l2=»ROP2: DS 0F«, l3=0x11}
0xb22…b34 Line {l1=0x10, l2=»BUF: DS 4«, l3=0x10}
0xb34…b47 Line {l1=0x11, l2=»RESUL: DS 0F«, l3=0x11}
0xb47…b4a Line {l1=0x01, l2=» «, l3=0x01}
0xb4a…b60 Line {l1=0x14, l2=» END START«, l3=0x14}
0xb60…b69 Line {l1=0x07, l2=» «, l3=0x07}
0xb69…b80 00 00 20 20 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0xb80…ba0 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 ┆ ┆
[…0x18…]