*DISAPEAR.4
*LBL+TXT:STANDARD
*START:$5000
*NEED: PICTURE-$9100


	ORG $5000

TAB	EQU $6000
LO	EQU $6100
HI	EQU $6200
CUT	EQU $6300
ADD	EQU $6400

	LDA #0
	STA $DA
	STA $DC
	LDA #$91
	STA $DB
	LDA #$71
	STA $DD
TV	LDY #0
DP	LDA ($DA),Y
	STA ($DC),Y
	INY
	BNE DP			
	INC $DB
	INC $DD
	LDA $DD
	CMP #$8F
	BNE TV


	LDA #DL:L
	STA 560
	LDA #DL:H
	STA 561

	LDA #11
	STA 708
	LDA #9
	STA 709
	LDA #5
	STA 710


	LDX #159
TR	LDA #0
	STA TAB,X
	DEX
	CPX #255
	BNE TR	
	JSR INIT


DD	LDA 53279
	CMP #6
	BNE DD

OP	JSR DIS
	LDA FLAG
	BNE OP
	JSR WAIT
	RTS

DL	DFB 112,112,112
	DFB 64+14,00,$71
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14
	DFB 64+14,00,$80
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14,14
	DFB 14,14,14,14,14,14,14
	DFB 65,DL:L,DL:H


INIT	LDA #0
	STA $DA
	LDA #$71
	STA $DB
	LDX #0

LX	LDA $DA
	STA LO,X
	LDA $DB
	STA HI,X
	LDA $DA
	CLC
	ADC #40
	STA $DA
	BCC FF
	INC $DB
FF	INX
	BNE LX

	LDA #128+64
	LDX #0
TH	STA CUT,X
	LSR
	LSR
	BNE KP
	LDA #128+64
KP	INX
	BNE TH

	LDA #64
	LDX #0
TH1	STA ADD,X
	LSR
	LSR
	BNE KP1
	LDA #64
KP1	INX
	BNE TH1
	RTS

FLAG	NOP

DIS	LDA #0
	STA FLAG
	LDX #159
YJ	LDA TAB,X
	CMP #192
	BEQ NX
	TAY
	LDA LO,Y
	STA $DA
	LDA HI,Y
	STA $DB
	TXA
	LSR
	LSR
	TAY
	LDA ($DA),Y
	PHA
	AND CUT,X
	BEQ GX
	CLC
	ADC ADD,X
	AND CUT,X
	STA RG
	LDA CUT,X
	EOR #255
	STA RG1
	PLA
	AND RG1
	ORA RG
	STA ($DA),Y	
	LDA #1
	STA FLAG
OD	JMP NX
GX	PLA
	INC TAB,X
	LDA #1
	STA FLAG
NX	DEX
	CPX #255
	BNE YJ
	RTS

RG	NOP
RG1	NOP


WAIT	LDA #0
	STA 20
GG	LDA 20
	CMP #100
	BNE GG
	RTS