DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦5692503f2⟧ TextFile

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »KOMMOD.BAK«

Derivation

└─⟦122ca995a⟧ Bits:30005902 Move-IT arbejdsdiskette
    └─ ⟦this⟧ »KOMMOD.BAK«

TextFile

	ORG	00100H
X0000	EQU	00000H
X0005	EQU	00005H
X0015	EQU	00015H
X001C	EQU	0001CH
X0039	EQU	00039H
X004C	EQU	0004CH
X0058	EQU	00058H
X006A	EQU	0006AH
X007D	EQU	0007DH
X00A0	EQU	000A0H
X00A5	EQU	000A5H
X00AF	EQU	000AFH
X00B7	EQU	000B7H
X00BD	EQU	000BDH
X00CA	EQU	000CAH
X0518	EQU	00518H
X0524	EQU	00524H
Y067A	EQU	0067AH
X0683	EQU	00683H
X068C	EQU	0068CH
X068F	EQU	0068FH
X0698	EQU	00698H
Y0A0A	EQU	00A0AH
Y0B8F	EQU	00B8FH
Y1E5F	EQU	01E5FH
Y1E6D	EQU	01E6DH
Y1E73	EQU	01E73H
Y318F	EQU	0318FH
YFF02	EQU	0FF02H
YFF03	EQU	0FF03H
YFF2A	EQU	0FF2AH
	JP	A0119

;>> No execution path to here <<
	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

;>> No execution path to here <<
	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

;>> No execution path to here <<
	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

;>> No execution path to here <<
	LD	HL,01E70H
	LD	(HL),B
	LD	C,D
	LD	BC,0CC00H
	OR	H
	INC	DE
	JP	X0683

;>> No execution path to here <<
	NOP
	NOP
	NOP
	JP	A034F

;>> No execution path to here <<
	JP	X0524

;>> No execution path to here <<
	LD	HL,(Y1E73)
	EX	DE,HL
	LD	C,01EH
	CALL	X0005
	PUSH	AF
	LD	A,C
	CALL	X068F
	POP	AF
	RET

;>> No execution path to here <<
	CP	020H
	RET	Z
	CP	009H
	RET	Z
A0222:	CP	02CH
	RET	Z
	CP	00DH
	RET	Z
	CP	07FH
	JP	Z,X0524
	RET

;>> No execution path to here <<
	LD	C,00DH
	CALL	X0015
	LD	C,00AH
	CALL	X0015
	RET

;>> No execution path to here <<
	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

;>> No execution path to here <<
	LD	A,(Y067A)
	CP	020H
	RET

;>> No execution path to here <<
	SUB	030H
	CP	00AH
	RET	C
	ADD	A,0F9H
	CP	010H
	RET	C
	JP	X0518

;>> No execution path to here <<
	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

;>> No execution path to here <<
	CALL	X007D
	JP	NZ,X0518
	RET

;>> No execution path to here <<
	RLA
	RLA
	RLA
	AND	038H
	RET

;>> No execution path to here <<
	RLA
	RLA
	RLA
	RLA
	AND	030H
	RET

;>> No execution path to here <<
	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

;>> No execution path to here <<
	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

;>> No execution path to here <<
	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

;>> No execution path to here <<
	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

;>> No execution path to here <<
	PUSH	BC
	CALL	X0039
	JP	Z,X0518
	LD	C,005H
	LD	HL,00672H
	CALL	X00B7
	CALL	X00B7
	END
«eof»