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

⟦c8f0ef428⟧ TextFile

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »TEST48.ASM«

Derivation

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

TextFile

;
; TEST FILE FOR 8048 CROSS ASSEMBLER    7 May 1980
;


	ORG	100H
	WIDTH	80
GRINCH	EQU	5

	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,@R0	
	ADD	A,@R1

	ADD	A,#GRINCH

	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,@R0
	ADDC	A,@R1

	ADDC	A,#GRINCH

	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,@R0
	ANL	A,@R1

	ANL	A,#GRINCH

	ANL	BUS,#17H	;Not in 8041/41A, 8021, 8022
	ANL	P1,#GRINCH	;Not in 8021, 8022
	ANL	P2,#GRINCH	;Not in 8021, 8022

ADDR1:	ANLD	P4,A
	ANLD	P5,A
	ANLD	P6,A
	ANLD	P7,A

	CALL	ADDR1

	CLR	A
	CLR	C
	CLR	F0		;Not in 8021, 8022
	CLR	F1		;Not in 8021, 8022

	CPL	A
	CPL	C
	CPL	F0		;Not in 8021, 8022
	CPL	F1		;Not in 8021, 8022

	DA	A

	DEC	A

	DEC	R0		;DEC Rr not in 8021, 8022
	DEC	R1
	DEC	R2
	DEC	R3
	DEC	R4
	DEC	R5
	DEC	R6
	DEC	R7

	DIS	I		;Not in 8021
	DIS	TCNTI		;Not in 8021

ADDR2:	DJNZ	R0,ADDR2
	DJNZ	R1,ADDR2
	DJNZ	R2,ADDR2
	DJNZ	R3,ADDR2
	DJNZ	R4,ADDR2
	DJNZ	R5,ADDR2
	DJNZ	R6,ADDR2
	DJNZ	R7,ADDR2

	EN	DMA		;8041A only
	EN	FLAGS		;8041A only
	EN	I		;Not in 8021
	EN	TCNTI
	ENT0	CLK		;Not in 8041/41A, 8022, 8021

	IN	A,P0		;8021,8022 only
	IN	A,P1
	IN	A,P2
	IN	A,DBB		;8041/41A only

	INC	A
	INC	R0
	INC	R1
	INC	R2
	INC	R3
	INC	R4
	INC	R5
	INC	R6
	INC	R7

	INC	@R0
	INC	@R1

	INS	A,BUS		;Not in 8041/41A, 8022, 8021

	JB0	ADDR2		;JBb not in 8022, 8021
	JB1	ADDR2
	JB2	ADDR2
	JB3	ADDR2
	JB4	ADDR2
	JB5	ADDR2
	JB6	ADDR2
	JB7	ADDR2

	JC	ADDR2
	JF0	ADDR2		;Not in 8022, 8021
	JF1	ADDR2		;Not in 8022, 8021
	
	JMP	ADDR1
	JMPP	@A

ADDR3:	JNC	ADDR3
	JNI	ADDR3		;Not in 8041/41A, 8022, 8021
	JNT0	ADDR3		;Not in 8021
	JNT1	ADDR3
	JNZ	ADDR3
	JTF	ADDR3
	JT0	ADDR3		;Not in 8021
	JT1	ADDR3
	JZ	ADDR3
	JNIBF	ADDR3		;8041/41A only
	JOBF	ADDR3		;8041/41A only

	MOV	A,#7FH
	MOV	A,PSW		;Not in 8022, 8021

	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,@R0
	MOV	A,@R1
	MOV	A,T
	MOV	PSW,A		;Not in 8022, 8021
	MOV	STS,A		;8041A only

	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,#GRINCH
	MOV	R1,#GRINCH
	MOV	R2,#GRINCH
	MOV	R3,#GRINCH
	MOV	R4,#GRINCH
	MOV	R5,#GRINCH
	MOV	R6,#GRINCH
	MOV	R7,#GRINCH

	MOV	@R0,A
	MOV	@R1,A
	MOV	@R0,#GRINCH
	MOV	@R1,#GRINCH
	MOV	T,A

	MOVD	A,P4
	MOVD	A,P5
	MOVD	A,P6
	MOVD	A,P7

	MOVD	P4,A
	MOVD	P5,A
	MOVD	P6,A
	MOVD	P7,A

	MOVP	A,@A
	MOVP3	A,@A		;Not in 8022, 8021
	MOVX	A,@R0		;MOVX not in 8041/41A, 8022, 8021
	MOVX	A,@R1
	MOVX	@R0,A
	MOVX	@R1,A

	NOP

	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,@R0
	ORL	A,@R1
	ORL	A,#GRINCH
	ORL	BUS,#17H	;Not in 8041/41A, 8022, 8021
	ORL	P1,#7		;Not in 8022, 8021
	ORL	P2,#7		;Not in 8022, 8021

	ORLD	P4,A
	ORLD	P5,A
	ORLD	P6,A
	ORLD	P7,A

	OUT	DBB,A		;8041/41A only
	OUTL	BUS,A		;Not in 8041/41A, 8022, 8021
	OUTL	P0,A		;8021, 8022 only
	OUTL	P1,A
	OUTL	P2,A

	RAD			;8022 only
	RET
	RETI			;8022 only
	RETR			;Not in 8022, 8021

	RL	A
	RLC	A
	RR	A
	RRC	A
	SEL	AN0		;8022 only
	SEL	AN1		;8022 only
	SEL	MB0		;Not in 8041/41A, 8022, 8021
	SEL	MB1		;Not in 8041/41A, 8022, 8021
	SEL	RB0		;Not in 8022, 8021
	SEL	RB1		;Not in 8022, 8021
	STOP	TCNT
	STRT	CNT
	STRT	T
	SWAP	A

	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,@R0
	XCH	A,@R1

	XCHD	A,@R0
	XCHD	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,@R0
	XRL	A,@R1
	XRL	A,#GRINCH


;
; Error Test Cases
;
	DS	100H
	JC	ADDR2
	JMP	8000H



	END
«eof»