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

⟦050d22a62⟧ TextFile

    Length: 3456 (0xd80)
    Types: TextFile
    Names: »P51.ASM«, »TEST51.ASM«

Derivation

└─⟦4dd5d59b6⟧ Bits:30003303 Mix C version 2.1 og debugger til RC703
    └─ ⟦this⟧ »P51.ASM« 
    └─ ⟦this⟧ »TEST51.ASM« 
└─⟦b6190e06c⟧ Bits:30003304 Mix C version 2.1 til RC703
└─⟦b6190e06c⟧ Bits:30005327 Mix C version 2.1 til RC703
    └─ ⟦this⟧ »P51.ASM« 
    └─ ⟦this⟧ »TEST51.ASM« 

TextFile

	WIDTH	80
	ORG	100H

DATA	EQU	25H
BIT	EQU	20H.1
BIG	EQU	4455H
SMALL	EQU	5
ZORCH	EQU	7

BIT2	EQU	20H.2
BIT3	EQU	20H.5
BIT4	EQU	2FH.0
BIT5	EQU	88H.7
BIT6	EQU	0F8H.0
BIT7	EQU	0F0H.2
BIT8	EQU	0F1H.0

	DB	20H.2
	DB	20H.2,20H.5,5,2FH.0
	DB	ACC

	ACALL	$
	ACALL	FWREF

	ADD	A,#SMALL
	ADD	A,@R0
	ADD	A,@R1
	ADD	A,R0
	ADD	A,R1
	ADD	A,R2
	ADD	A,R3
	ADD	A,R4
	ADD	A,R5
	ADD	A,R6
	ADD	A,R7
	ADD	A,DATA

	ADDC	A,#SMALL
	ADDC	A,@R0
	ADDC	A,@R1
	ADDC	A,R0
	ADDC	A,R1
	ADDC	A,R2
	ADDC	A,R3
	ADDC	A,R4
	ADDC	A,R5
	ADDC	A,R6
	ADDC	A,R7
	ADDC	A,DATA

	AJMP	$
	AJMP	FWREF

	ANL	A,#SMALL
	ANL	A,@R0
	ANL	A,@R1
	ANL	A,R0
	ANL	A,R1
	ANL	A,R2
	ANL	A,R3
	ANL	A,R4
	ANL	A,R5
	ANL	A,R6
	ANL	A,R7
	ANL	A,DATA
	ANL	C,BIT
	ANL	C,/BIT
	ANL	DATA,#SMALL
	ANL	DATA,A

	CALL	$
	CALL	$+2+128
	CALL	$+2+2048
	CALL	FWREF

	CJNE	@R0,#SMALL,$
	CJNE	@R1,#SMALL,$
	CJNE	A,#SMALL,$
	CJNE	A,DATA,$
	CJNE	R0,#SMALL,$
	CJNE	R1,#SMALL,$
	CJNE	R2,#SMALL,$
	CJNE	R3,#SMALL,$
	CJNE	R4,#SMALL,$
	CJNE	R5,#SMALL,$
	CJNE	R6,#SMALL,$
	CJNE	R7,#SMALL,$

	CLR	A
	CLR	C
	CLR	BIT

	CPL	A
	CPL	C
	CPL	BIT

	DA	A

	DEC	@R0
	DEC	@R1
	DEC	A
	DEC	R0
	DEC	R1
	DEC	R2
	DEC	R3
	DEC	R4
	DEC	R5
	DEC	R6
	DEC	R7
	DEC	DATA

	DIV	AB

	DJNZ	R0,$
	DJNZ	R1,$
	DJNZ	R2,$
	DJNZ	R3,$
	DJNZ	R4,$
	DJNZ	R5,$
	DJNZ	R6,$
	DJNZ	R7,$
	DJNZ	DATA,$

	INC	@R0
	INC	@R1
	INC	A
	INC	R0
	INC	R1
	INC	R2
	INC	R3
	INC	R4
	INC	R5
	INC	R6
	INC	R7
	INC	DATA
	INC	DPTR

	JB	BIT,$
	JBC	BIT,$
	JC	$

	JMP	@A+DPTR
	JMP	$
	JMP	$+2+128
	JMP	$+2+2048
	JMP	FWREF

	JNB	BIT,$
	JNC	$
	JNZ	$
	JZ	$

	LCALL	BIG
	LJMP	BIG

	MOV	@R0,#SMALL
	MOV	@R1,#SMALL
	MOV	@R0,A
	MOV	@R1,A
	MOV	@R0,DATA
	MOV	@R1,DATA
	MOV	A,#SMALL
	MOV	A,@R0
	MOV	A,@R1
	MOV	A,R0
	MOV	A,R1
	MOV	A,R2
	MOV	A,R3
	MOV	A,R4
	MOV	A,R5
	MOV	A,R6
	MOV	A,R7
	MOV	A,DATA
	MOV	C,BIT
	MOV	DPTR,#BIG
	MOV	R0,#SMALL
	MOV	R1,#SMALL
	MOV	R2,#SMALL
	MOV	R3,#SMALL
	MOV	R4,#SMALL
	MOV	R5,#SMALL
	MOV	R6,#SMALL
	MOV	R7,#SMALL
	MOV	R0,A
	MOV	R1,A
	MOV	R2,A
	MOV	R3,A
	MOV	R4,A
	MOV	R5,A
	MOV	R6,A
	MOV	R7,A
	MOV	R0,DATA
	MOV	R1,DATA
	MOV	R2,DATA
	MOV	R3,DATA
	MOV	R4,DATA
	MOV	R5,DATA
	MOV	R6,DATA
	MOV	R7,DATA
	MOV	BIT,C
	MOV	DATA,#SMALL
	MOV	DATA,@R0
	MOV	DATA,@R1
	MOV	DATA,A
	MOV	DATA,R0
	MOV	DATA,R1
	MOV	DATA,R2
	MOV	DATA,R3
	MOV	DATA,R4
	MOV	DATA,R5
	MOV	DATA,R6
	MOV	DATA,R7
	MOV	DATA+5,DATA

	MOVC	A,@A+DPTR
	MOVC	A,@A+PC

	MOVX	@DPTR,A
	MOVX	@R0,A
	MOVX	@R1,A
	MOVX	A,@DPTR
	MOVX	A,@R0
	MOVX	A,@R1

	MUL	AB
	NOP

	ORL	A,#SMALL
	ORL	A,@R0
	ORL	A,@R1
	ORL	A,R0
	ORL	A,R1
	ORL	A,R2
	ORL	A,R3
	ORL	A,R4
	ORL	A,R5
	ORL	A,R6
	ORL	A,R7
	ORL	A,DATA
	ORL	C,BIT
	ORL	C,/BIT
	ORL	DATA,#SMALL
	ORL	DATA,A

	POP	DATA
	PUSH	DATA

	RET
	RETI
	RL	A
	RLC	A
	RR	A
	RRC	A

	SETB	C
	SETB	BIT

	SJMP	$
	SJMP	FWREF

	SUBB	A,#SMALL
	SUBB	A,@R0
	SUBB	A,@R1
	SUBB	A,R0
	SUBB	A,R1
	SUBB	A,R2
	SUBB	A,R3
	SUBB	A,R4
	SUBB	A,R5
	SUBB	A,R6
	SUBB	A,R7
	SUBB	A,DATA

	SWAP	A

	XCH	A,@R0
	XCH	A,@R1
	XCH	A,R0
	XCH	A,R1
	XCH	A,R2
	XCH	A,R3
	XCH	A,R4
	XCH	A,R5
	XCH	A,R6
	XCH	A,R7
	XCH	A,DATA

	XCHD	A,@R0
	XCHD	A,@R1

	XRL	A,#SMALL
	XRL	A,@R0
	XRL	A,@R1
	XRL	A,R0
	XRL	A,R1
	XRL	A,R2
	XRL	A,R3
	XRL	A,R4
	XRL	A,R5
	XRL	A,R6
	XRL	A,R7
	XRL	A,DATA
	XRL	DATA,#SMALL
	XRL	DATA,A

FWREF	EQU	$

	END
«eof»