	.OPT NO LIST,OBJ
DMACTL	= $D400
WSYNC	= $D40A
NMIEN	= $D40E
SETVBV	= $E45C
SYSVBV	= $E45F
;---------------------
Z0001	= $D5
Z0046	= $D1
Z0048	= $D0
;----------------------
	*= $4600
	LDA #0
	STA 710
	STA 712
	STA 709
	LDA #$00
	STA Z0001 	;$00D5
	STA 559
	LDA #$00
	STA L0021 	;$4717
	LDX #$00
	STX L0022 	;$475D
L0026	LDA L0021,X 	;$4717
	CLC 
	ADC #$5D
	CMP #$B4
	BCC L0023 	;$44AF
	SEC 
	SBC #$B4
L0023	STA L0024,X 	;$4718
	LDA L0022,X 	;$475D
	CLC 
	ADC #$10
	STA L0025,X 	;$475E
	INX 
	CPX #$0A
	BNE L0026 	;$44A2
	LDA # <DLIST
	STA 560
	LDA # >DLIST
	STA 561
	LDA # <DLI
	STA 512
	LDA # >DLI
	STA 513
	LDA #34
	STA 559
	LDA #192
	STA NMIEN 	;$D40E
	LDA #$06
	LDX # >VBI
	LDY # <VBI
	JSR SETVBV 	;$E45C
	JSR $42CC 	;MUSIC ON
L0035	JMP L0035
VBI
	DEC DUMMY
	LDA DUMMY
	STA $D404
	BPL CONTVBI
	LDA #3
	STA $D404
	STA DUMMY
	INC LOTEXT
	BNE A1
	INC HITEXT
A1	LDA HITEXT
	CMP # >ENDTEXT
	BNE CONTVBI
	LDA LOTEXT
	CMP # <ENDTEXT
	BNE CONTVBI
	LDA # <TEXT
	STA LOTEXT
	LDA # >TEXT
	STA HITEXT
CONTVBI	LDX #$8F
	LDA #$00
L0045	STA L0044,X 	;$4853
	DEX 
	BNE L0045 	;$45C4
	LDX #$0A
L0057	LDA L0022,X 	;$475D
	STA Z0046 	;$00D1
	DEC L0021,X 	;$4717
	LDA L0021,X 	;$4717
	CMP #$FF
	BNE L0047 	;$45E0
	LDA #$B3
	STA L0021,X 	;$4717
L0047	STX Z0048 	;$00D0
	CMP #$2D
	BEQ L0049 	;$45EA
	CMP #$87
	BNE L0050 	;$4602
L0049	TAY 
	CPX #$00
	BNE L0051 	;$45F6
	SEC 
	LDA Z0001 	;$00D5
	SBC #$10
	STA Z0001 	;$00D5
L0051	CLC 
	LDA Z0001 	;$00D5
	ADC L0052,X 	;$47A3
	STA L0022,X 	;$475D
	STA Z0046 	;$00D1
	TYA 
L0050	TAX 
	LDA L0053,X 	;$5000
	TAX 
	LDY #$0E
L0056	LDA L0054,Y 	;$47C3
	ORA Z0046 	;$00D1
	STA L0055,X 	;$4854
	INX 
	DEY 
	BPL L0056 	;$4609
	LDX Z0048 	;$00D0
	DEX 
	BPL L0057 	;$45CC
	JMP SYSVBV 	;$E45F
DLI	PHA 
	TXA 
	PHA 
	LDX #$00
L0060	LDA L0055,X 	;$4854
	STA WSYNC 	;$D40A
	STA $D018 	;COLBK
	INX 
	CPX #$8F
	BNE L0060 	;$462F
	LDA #10
	STA $D017
	PLA 
	TAX 
	PLA 
	RTI 
DUMMY	.BYTE 0
;   Mode E Dlist
DLIST
	.BYTE 112,112
	.BYTE $4E,$50,$81
	.BYTE "!!!!!!!!!!!!!!!!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE $80
	.BYTE "!!!!!!!!!!!!!!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE "!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE $4E,$00,$90
	.BYTE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE "!!!!!"	;!!!!!!!! SPECIAL CHARS !!!!!!!!
	.BYTE 82
LOTEXT	.BYTE TEXT&255
HITEXT	.BYTE TEXT/256
	.BYTE $41
	.WORD DLIST
L0021	.BYTE $32
L0024	.BYTE $3A
	.BYTE $42,$4A,$52,$5A,$62,$6A,$72,$7A 	.$82
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00
L0025	.BYTE $00
L0022	.BYTE $30,$40,$50,$60,$70,$80,$90,$A0,$B0,$D0
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
	.BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00
L0052	.BYTE $00,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$F0
	.BYTE $00,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$F0
L0054	.BYTE $04,$06,$08,$0A,$0C,$0E,$0C,$0A,$08,$06,$04,$02,$00
;
	.BYTE $00,$00
L0044	.BYTE 0
L0055	.BYTE 0
;--------------------------
L0053	= $5000
	*= $5000
	*= $5000
	.BYTE $40,$42,$44,$47,$49,$4B,$4D,$4F,$51,$53,$56,$58,$5A,$5C,$5E,$5F,$61,$63,$65,$67,$68
	.BYTE $6A,$6C,$6D,$6F,$70,$72,$73,$74,$75,$77,$78,$79,$7A,$7A,$7B,$7C,$7D,$7D,$7E,$7E,$7E
	.BYTE $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7E,$7E,$7E,$7D,$7D,$7C,$7B,$7A,$7A,$79,$78,$77,$75,$74
	.BYTE $73,$72,$70,$6F,$6D,$6C,$6A,$68,$67,$65,$63,$61,$60,$5E,$5C,$5A,$58,$56,$53,$51,$4F
	.BYTE $4D,$4B,$49,$47,$44,$42,$40,$3E,$3C,$39,$37,$35,$33,$31,$2F,$2D,$2A,$28,$26,$24,$22
	.BYTE $21,$1F,$1D,$1B,$19,$18,$16,$14,$13,$11,$10,$0E,$0D,$0C,$0B,$09,$08,$07,$06,$06,$05
	.BYTE $04,$03,$03,$02,$02,$02,$01,$01,$01,$01,$01,$01,$01,$02,$02,$02,$03,$03,$04,$05,$06
	.BYTE $06,$07,$08,$09,$0B,$0C,$0D,$0E,$10,$11,$13,$14,$16,$18,$19,$1B,$1D,$1F,$20,$22,$24
	.BYTE $26,$28,$2A,$2D,$2F,$31,$33,$35,$37,$39,$3C,$3E
TEXT	.SBYTE "                                     "
	.SBYTE "                                     "
	.SBYTE "                                     "
	.SBYTE "                                     "
	.SBYTE "                  Greetinx to all 8-bit atari users    this will be our opening demo-screen "
	.SBYTE "   it was written by DENON from IACT.                                      "
ENDTEXT
	.SBYTE "                                                        "
	*= $02E2
	.WORD $4600
