|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3968 (0xf80)
Types: TextFile
Names: »KOMMOD.MAC«
└─⟦122ca995a⟧ Bits:30005902 Move-IT arbejdsdiskette
└─ ⟦this⟧ »KOMMOD.MAC«
.z80
aseg
ORG 00100H
EQU 00000H
EQU 00005H
EQU 00015H
EQU 0001CH
EQU 00039H
EQU 0004CH
EQU 00058H
EQU 0006AH
EQU 0007DH
EQU 000A0H
EQU 000A5H
EQU 000AFH
EQU 000B7H
EQU 000BDH
EQU 000CAH
EQU 00518H
EQU 00524H
EQU 0067AH
EQU 00683H
EQU 0068CH
EQU 0068FH
EQU 00698H
EQU 00A0AH
EQU 00B8FH
EQU 01E5FH
EQU 01E6DH
EQU 01E73H
EQU 0318FH
EQU 0FF02H
EQU 0FF03H
EQU 0FF2AH
JP A0119
RST 038H
INC A
LD (Y0B8F),A
LD A,(YFF03)
CP 040H
JR NC,A011A
LD HL,(YFF2A)
DEC HL
LD (YFF02),HL
XOR A
LD (Y318F),A
A011A: RLA
LD BC,06ACDH
LD BC,09611H
LD BC,0090EH
CALL X0005
A0127: IN A,(095H)
AND 001H
CALL NZ,A0144
LD C,006H
LD E,0FFH
CALL X0005
OR A
JR Z,A0127
AND 07FH
CP 003H
JP Z,X0000
CALL A0159
JR A0127
A0144: IN A,(094H)
PUSH AF
LD A,001H
OUT (095H),A
IN A,(095H)
POP AF
AND 07FH
CP 07FH
RET Z
LD E,A
LD C,006H
JP X0005
A0159: LD C,A
A015A: IN A,(095H)
AND 004H
JR Z,A015A
LD A,001H
OUT (095H),A
IN A,(095H)
LD A,C
OUT (094H),A
RET
LD A,034H
OUT (08FH),A
LD HL,T01A0
LD A,L
OUT (08CH),A
LD A,H
OUT (08CH),A
LD C,095H
LD A,018H
OUT (C),A
LD A,014H
OUT (C),A
LD A,04FH
OUT (C),A
LD A,013H
OUT (C),A
LD A,041H
OUT (C),A
LD A,015H
OUT (C),A
LD A,0AAH
OUT (C),A
RET
DEC DE
LD HL,(Y0A0A)
INC SP
JR NC,A01CD
JR NZ,A01E1
LD B,C
T01A0: LD D,L
LD B,H
JR NZ,A01F1
LD C,A
LD B,H
LD B,L
LD C,L
LD D,B
LD D,D
LD C,A
LD B,A
LD D,D
LD B,C
LD C,L
JR NZ,A01F7
LD C,A
LD D,D
DEC C
LD A,(BC)
LD A,(BC)
LD B,D
LD D,L
LD D,H
LD C,H
LD B,L
LD D,D
JR NZ,A020B
LD C,C
LD C,E
LD D,D
LD C,A
LD B,H
LD B,C
LD D,H
LD B,C
LD C,L
LD B,C
LD D,H
DEC C
LD A,(BC)
LD A,(BC)
LD D,H
A01CD: LD C,C
LD C,H
LD D,B
LD B,C
LD D,E
LD D,E
LD B,L
LD D,H
JR NZ,A0222
LD C,A
LD C,L
LD C,L
LD D,L
LD C,(HL)
LD B,L
LD B,H
LD B,C
LD D,H
LD B,C
A01E1: DEC C
LD A,(BC)
LD A,(BC)
INC H
NOP
LD (HL),B
DEC HL
LD (HL),C
LD HL,(Y1E6D)
EX DE,HL
LD C,016H
CALL X0005
LD (Y1E5F),A
RET
LD HL,01E70H
LD (HL),B
LD C,D
LD BC,0CC00H
OR H
INC DE
JP X0683
NOP
NOP
NOP
JP A034F
JP X0524
LD HL,(Y1E73)
EX DE,HL
LD C,01EH
CALL X0005
PUSH AF
LD A,C
CALL X068F
POP AF
RET
CP 020H
RET Z
CP 009H
RET Z
A0222: CP 02CH
RET Z
CP 00DH
RET Z
CP 07FH
JP Z,X0524
RET
LD C,00DH
CALL X0015
LD C,00AH
CALL X0015
RET
CALL X068C
CP 00DH
JP Z,X0518
CALL X001C
JP Z,X0039
LD C,004H
LD HL,0067AH
LD (HL),020H
INC HL
DEC C
JP NZ,X004C
LD C,005H
LD HL,0067AH
LD (HL),A
CALL X068C
CALL X001C
JP Z,X006A
INC HL
DEC C
JP Z,X0518
JP X0058
LD A,(Y067A)
CP 020H
RET
SUB 030H
CP 00AH
RET C
ADD A,0F9H
CP 010H
RET C
JP X0518
CALL X0698
DEC A
JP NZ,X0518
EX DE,HL
LD C,(HL)
INC HL
LD B,(HL)
LD A,C
DEC B
INC B
RET
CALL X007D
JP NZ,X0518
RET
RLA
RLA
RLA
AND 038H
RET
RLA
RLA
RLA
RLA
AND 030H
RET
EX DE,HL
LD HL,(Y067A)
EX DE,HL
LD A,E
CP (HL)
JP NZ,X00AF
INC HL
LD A,D
CP (HL)
RET Z
DEC HL
DEC HL
DEC HL
DEC C
JP NZ,X00A5
DEC C
RET
LD B,004H
PUSH DE
LD DE,0067AH
LD A,(DE)
CP (HL)
JP NZ,X00CA
INC HL
INC DE
DEC B
JP NZ,X00BD
POP DE
RET
INC HL
DEC B
JP NZ,X00CA
LD DE,0FFF8H
ADD HL,DE
POP DE
INC DE
DEC C
JP NZ,X00B7
DEC C
RET
PUSH BC
CALL X0039
JP Z,X0518
LD C,008H
LD HL,00660H
CALL X00A0
JP NZ,X0518
DEC C
LD A,C
POP BC
RET
PUSH BC
CALL X0039
JP Z,X0518
LD C,005H
LD HL,00672H
CALL X00B7
CALL X00B7
END
«eof»