Source file: /~heha/hs/kcemu/kcswberg.zip/DISK/CAOS34DS.ASM

CAOS34DSASM 
	ORG	0E011H
	;CAOS-ON-Test
	IN	A,88H
	RRA
	JP	NC,0F17DH
	LD	A,1
	LD	(0B781H),A
	LD	L,0FCH
	CALL	0F003H
	DEFB	26H	;SWITCH
	LD	A,H
	SUB	0A7H
	JR	NZ,CJMP
	OR	E	;Steuerbyte!!
	LD	A,L
	JR	Z,FJMP
CJMP
	LD	A,8
FJMP
	LD	L,A
	CALL	0F003H
	DEFB	27H	;JUMP
	RET
STB
	LD	A,(IX+8)
	AND	40H
	OR	88H
	LD	(IX+8),A
	RET

Detected encoding: ASCII (7 bit)2