*= $1000

         JSR SETUP

;---------------------------------------

BACK
         LDA #0
         STA 2
         TAX
CLOOP1   LDY $0C00,X
         STY 3
         LDY $0E00,X
         STA (2),Y
         INX
         BNE CLOOP1

         INC YV1+1
         INC YV2+1

         LDY #0
         LDX #0
         CLC
DPLOOP   LDA $0B00,X
YV1      ADC $0800,X
         STA 2
         STA $0E00,X
         LDA $0C00,X
         STA 3
         LDA $0A00,X
         ORA (2),Y
         STA (2),Y
         INX
         BNE DPLOOP

         LDA #24
         STA $D018

         LDA #0
         STA 2
         TAX
CLOOP2   LDY $0D00,X
         STY 3
         LDY $0F00,X
         STA (2),Y
         INX
         BNE CLOOP2

         INC YV1+1
         INC YV2+1

         LDY #0
         LDX #0
         CLC
DPLOOP2  LDA $0B00,X
YV2      ADC $0800,X
         STA 2
         STA $0F00,X
         LDA $0D00,X
         STA 3
         LDA $0A00,X
         ORA (2),Y
         STA (2),Y
         INX
         BNE DPLOOP2

         LDA #26
         STA $D018

         JMP BACK

;---------------------------------------

SETUP
         LDX #0
BLOOP    LDA #$20
         STA $0400,X
         STA $0500,X
         STA $0600,X
         STA $06E8,X
         LDA #0
         STA $D800,X
         STA $D900,X
         STA $DA00,X
         STA $DAE8,X
         STA $2000,X
         STA $2100,X
         STA $2200,X
         STA $2300,X
         STA $2400,X
         STA $2500,X
         STA $2600,X
         STA $2700,X
         STA $2800,X
         STA $2900,X
         STA $2A00,X
         STA $2B00,X
         STA $2C00,X
         STA $2D00,X
         STA $2E00,X
         STA $2F00,X
         LDA YSINE,X
         STA $0800,X
         STA $0900,X
         LDY XSINE,X
         LDA ORTAB,Y
         STA $0A00,X
         LDA LLOC,Y
         STA $0B00,X
         LDA HLOC,Y
         CLC
         ADC #$20
         STA $0C00,X
         CLC
         ADC #$08
         STA $0D00,X
         LDA #0
         STA $0E00,X
         STA $0F00,X
         INX
         BNE BLOOP

         LDX #0
MPLOOP   LDA MATRIX,X
         STA $0400,X
         LDA MATRIX+$0100,X
         STA $0500,X
         LDA MATRIX+$0180,X
         STA $0580,X
         INX
         BNE MPLOOP

         LDX #0
         LDA #1
CPLOOP   STA $D800,X
         STA $D828,X
         STA $D850,X
         STA $D878,X
         STA $D8A0,X
         STA $D8C8,X
         STA $D8F0,X
         STA $D918,X
         STA $D940,X
         STA $D968,X
         STA $D990,X
         STA $D9B8,X
         STA $D9E0,X
         STA $DA08,X
         STA $DA30,X
         STA $DA58,X
         INX
         CPX #$10
         BNE CPLOOP
         RTS

;---------------------------------------

XSINE    ; дон'т HAVE TO BE THE SAME,
YSINE    ; OF COZ.

         .BYTE $3F,$41,$42,$44,$45,$47
         .BYTE $48,$49,$4A,$4C,$4D,$4E
         .BYTE $4E,$4F,$50,$50,$50,$50
         .BYTE $50,$50,$50,$4F,$4E,$4E
         .BYTE $4D,$4B,$4A,$48,$47,$45
         .BYTE $43,$41,$3F,$3D,$3A,$38
         .BYTE $35,$33,$30,$2E,$2B,$28
         .BYTE $25,$23,$20,$1D,$1B,$18
         .BYTE $16,$13,$11,$0F,$0C,$0B
         .BYTE $09,$07,$05,$04,$03,$02
         .BYTE $01,$00,$00,$00,$00,$00
         .BYTE $00,$00,$01,$02,$03,$04
         .BYTE $05,$07,$09,$0B,$0C,$0F
         .BYTE $11,$13,$16,$18,$1B,$1D
         .BYTE $20,$23,$25,$28,$2B,$2E
         .BYTE $30,$33,$35,$38,$3A,$3D
         .BYTE $3F,$41,$43,$45,$47,$48
         .BYTE $4A,$4B,$4D,$4E,$4E,$4F
         .BYTE $50,$50,$50,$50,$50,$50
         .BYTE $50,$4F,$4E,$4E,$4D,$4C
         .BYTE $4A,$49,$48,$47,$45,$44
         .BYTE $42,$41,$3F,$3D,$3C,$3A
         .BYTE $39,$37,$36,$35,$34,$32
         .BYTE $31,$30,$30,$2F,$2E,$2E
         .BYTE $2E,$2E,$2E,$2E,$2E,$2F
         .BYTE $30,$30,$31,$33,$34,$36
         .BYTE $37,$39,$3B,$3D,$3F,$41
         .BYTE $44,$46,$49,$4B,$4E,$50
         .BYTE $53,$56,$59,$5B,$5E,$61
         .BYTE $63,$66,$68,$6B,$6D,$6F
         .BYTE $72,$73,$75,$77,$79,$7A
         .BYTE $7B,$7C,$7D,$7E,$7E,$7E
         .BYTE $7E,$7E,$7E,$7E,$7D,$7C
         .BYTE $7B,$7A,$79,$77,$75,$73
         .BYTE $72,$6F,$6D,$6B,$68,$66
         .BYTE $63,$61,$5E,$5B,$59,$56
         .BYTE $53,$50,$4E,$4B,$49,$46
         .BYTE $44,$41,$3F,$3D,$3B,$39
         .BYTE $37,$36,$34,$33,$31,$30
         .BYTE $30,$2F,$2E,$2E,$2E,$2E
         .BYTE $2E,$2E,$2E,$2F,$30,$30
         .BYTE $31,$32,$34,$35,$36,$37
         .BYTE $39,$3A,$3C,$3D
ORTAB
         .BYTE $80,$40,$20,$10,$08,$04
         .BYTE $02,$01,$80,$40,$20,$10
         .BYTE $08,$04,$02,$01,$80,$40
         .BYTE $20,$10,$08,$04,$02,$01
         .BYTE $80,$40,$20,$10,$08,$04
         .BYTE $02,$01,$80,$40,$20,$10
         .BYTE $08,$04,$02,$01,$80,$40
         .BYTE $20,$10,$08,$04,$02,$01
         .BYTE $80,$40,$20,$10,$08,$04
         .BYTE $02,$01,$80,$40,$20,$10
         .BYTE $08,$04,$02,$01,$80,$40
         .BYTE $20,$10,$08,$04,$02,$01
         .BYTE $80,$40,$20,$10,$08,$04
         .BYTE $02,$01,$80,$40,$20,$10
         .BYTE $08,$04,$02,$01,$80,$40
         .BYTE $20,$10,$08,$04,$02,$01
         .BYTE $80,$40,$20,$10,$08,$04
         .BYTE $02,$01,$80,$40,$20,$10
         .BYTE $08,$04,$02,$01,$80,$40
         .BYTE $20,$10,$08,$04,$02,$01
         .BYTE $80,$40,$20,$10,$08,$04
         .BYTE $02,$01

LLOC
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$80,$80,$80,$80
         .BYTE $80,$80,$80,$80,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $80,$80,$80,$80,$80,$80
         .BYTE $80,$80,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$80,$80
         .BYTE $80,$80,$80,$80,$80,$80
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$80,$80,$80,$80
         .BYTE $80,$80,$80,$80,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $80,$80,$80,$80,$80,$80
         .BYTE $80,$80,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$80,$80
         .BYTE $80,$80,$80,$80,$80,$80
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$80,$80,$80,$80
         .BYTE $80,$80,$80,$80,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $80,$80,$80,$80,$80,$80
         .BYTE $80,$80

HLOC
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$00,$00
         .BYTE $00,$00,$00,$00,$01,$01
         .BYTE $01,$01,$01,$01,$01,$01
         .BYTE $01,$01,$01,$01,$01,$01
         .BYTE $01,$01,$02,$02,$02,$02
         .BYTE $02,$02,$02,$02,$02,$02
         .BYTE $02,$02,$02,$02,$02,$02
         .BYTE $03,$03,$03,$03,$03,$03
         .BYTE $03,$03,$03,$03,$03,$03
         .BYTE $03,$03,$03,$03,$04,$04
         .BYTE $04,$04,$04,$04,$04,$04
         .BYTE $04,$04,$04,$04,$04,$04
         .BYTE $04,$04,$05,$05,$05,$05
         .BYTE $05,$05,$05,$05,$05,$05
         .BYTE $05,$05,$05,$05,$05,$05
         .BYTE $06,$06,$06,$06,$06,$06
         .BYTE $06,$06,$06,$06,$06,$06
         .BYTE $06,$06,$06,$06,$07,$07
         .BYTE $07,$07,$07,$07,$07,$07
         .BYTE $07,$07,$07,$07,$07,$07
         .BYTE $07,$07

MATRIX
         .BYTE $00,$10,$20,$30,$40,$50
         .BYTE $60,$70,$80,$90,$A0,$B0
         .BYTE $C0,$D0,$E0,$F0,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$01,$11
         .BYTE $21,$31,$41,$51,$61,$71
         .BYTE $81,$91,$A1,$B1,$C1,$D1
         .BYTE $E1,$F1,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$02,$12,$22,$32
         .BYTE $42,$52,$62,$72,$82,$92
         .BYTE $A2,$B2,$C2,$D2,$E2,$F2
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $03,$13,$23,$33,$43,$53
         .BYTE $63,$73,$83,$93,$A3,$B3
         .BYTE $C3,$D3,$E3,$F3,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$04,$14
         .BYTE $24,$34,$44,$54,$64,$74
         .BYTE $84,$94,$A4,$B4,$C4,$D4
         .BYTE $E4,$F4,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$05,$15,$25,$35
         .BYTE $45,$55,$65,$75,$85,$95
         .BYTE $A5,$B5,$C5,$D5,$E5,$F5
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $06,$16,$26,$36,$46,$56
         .BYTE $66,$76,$86,$96,$A6,$B6
         .BYTE $C6,$D6,$E6,$F6,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$07,$17
         .BYTE $27,$37,$47,$57,$67,$77
         .BYTE $87,$97,$A7,$B7,$C7,$D7
         .BYTE $E7,$F7,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$08,$18,$28,$38
         .BYTE $48,$58,$68,$78,$88,$98
         .BYTE $A8,$B8,$C8,$D8,$E8,$F8
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $09,$19,$29,$39,$49,$59
         .BYTE $69,$79,$89,$99,$A9,$B9
         .BYTE $C9,$D9,$E9,$F9,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$0A,$1A
         .BYTE $2A,$3A,$4A,$5A,$6A,$7A
         .BYTE $8A,$9A,$AA,$BA,$CA,$DA
         .BYTE $EA,$FA,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$0B,$1B,$2B,$3B
         .BYTE $4B,$5B,$6B,$7B,$8B,$9B
         .BYTE $AB,$BB,$CB,$DB,$EB,$FB
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $0C,$1C,$2C,$3C,$4C,$5C
         .BYTE $6C,$7C,$8C,$9C,$AC,$BC
         .BYTE $CC,$DC,$EC,$FC,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$0D,$1D
         .BYTE $2D,$3D,$4D,$5D,$6D,$7D
         .BYTE $8D,$9D,$AD,$BD,$CD,$DD
         .BYTE $ED,$FD,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$0E,$1E,$2E,$3E
         .BYTE $4E,$5E,$6E,$7E,$8E,$9E
         .BYTE $AE,$BE,$CE,$DE,$EE,$FE
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $0F,$1F,$2F,$3F,$4F,$5F
         .BYTE $6F,$7F,$8F,$9F,$AF,$BF
         .BYTE $CF,$DF,$EF,$FF,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20,$20,$20
         .BYTE $20,$20,$20,$20