|
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 - metrics - download
Length: 3744 (0xea0)
Notes: Mikados TextFile, Mikados_K
Names: »REGN«
└─⟦9104a212b⟧ Bits:30004703 Regn + Debug
└─⟦this⟧ »REGN«
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