And another sample which is quite sensitive to a bad player routine.
Assembple with 0 for digitest and you see color switches where the soundplayer is located. Needs to be every second line. Little speed gain: a multiplier table by 208 at _mul208:master
Georges Kesseler
parent
25a84c62f6
commit
3dd7b21ded
361
PARADIST.S
361
PARADIST.S
|
|
@ -4,11 +4,11 @@ overscan:equ 0
|
||||||
|
|
||||||
|
|
||||||
test equ 10
|
test equ 10
|
||||||
parallax equ 10
|
|
||||||
parallay equ 10
|
|
||||||
|
|
||||||
|
parallax equ 0
|
||||||
|
parallay equ 0
|
||||||
bus equ 10
|
bus equ 10
|
||||||
|
digitest equ 10
|
||||||
|
|
||||||
|
|
||||||
pea start
|
pea start
|
||||||
|
|
@ -23,13 +23,17 @@ bus equ 10
|
||||||
; dc.w 138*4
|
; dc.w 138*4
|
||||||
; dc.w 195*4
|
; dc.w 195*4
|
||||||
; dc.w 167*4
|
; dc.w 167*4
|
||||||
dc.w 197*4
|
; dc.w 197*4
|
||||||
|
; dc.w 167*4
|
||||||
|
dc.w 255*4
|
||||||
digisound:
|
digisound:
|
||||||
; incbin "includes\telgraph.dmn"
|
; incbin "includes\telgraph.dmn"
|
||||||
; incbin "includes\jasy75.dmn"
|
; incbin "includes\jasy75.dmn"
|
||||||
; incbin "includes\senn_l1.dmn"
|
; incbin "includes\senn_l1.dmn"
|
||||||
; incbin "includes\senn_l2.dmn"
|
; incbin "includes\senn_l2.dmn"
|
||||||
incbin "includes\luna.dmn"
|
; incbin "includes\luna.dmn"
|
||||||
|
; incbin "includes\luna2.dmn"
|
||||||
|
incbin "includes\infinity.dmn"
|
||||||
digiend:
|
digiend:
|
||||||
even
|
even
|
||||||
|
|
||||||
|
|
@ -44,7 +48,6 @@ noswreset:
|
||||||
rts
|
rts
|
||||||
start:
|
start:
|
||||||
move #$2700,sr
|
move #$2700,sr
|
||||||
move.l #noswreset,$46e.w
|
|
||||||
bsr waitvbl
|
bsr waitvbl
|
||||||
|
|
||||||
lea $ffff8240.w,a2
|
lea $ffff8240.w,a2
|
||||||
|
|
@ -73,7 +76,7 @@ start:
|
||||||
move.l a2,-(sp)
|
move.l a2,-(sp)
|
||||||
move.l a2,-(sp)
|
move.l a2,-(sp)
|
||||||
move.w #5,-(sp)
|
move.w #5,-(sp)
|
||||||
trap #14
|
; trap #14
|
||||||
lea 12(sp),sp
|
lea 12(sp),sp
|
||||||
|
|
||||||
move.l screenad2,d0
|
move.l screenad2,d0
|
||||||
|
|
@ -136,7 +139,7 @@ alles:
|
||||||
move.b #8,$fffffc02.w
|
move.b #8,$fffffc02.w
|
||||||
|
|
||||||
bsr.s waitvbl
|
bsr.s waitvbl
|
||||||
move.b #2,$ffff820a.w
|
move.b #0,$ffff820a.w
|
||||||
bsr.s waitvbl
|
bsr.s waitvbl
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
move.b oldres,$ffff8260.w
|
move.b oldres,$ffff8260.w
|
||||||
|
|
@ -150,7 +153,7 @@ alles:
|
||||||
move.l d0,-(sp)
|
move.l d0,-(sp)
|
||||||
move.l d0,-(sp)
|
move.l d0,-(sp)
|
||||||
move.w #5,-(sp)
|
move.w #5,-(sp)
|
||||||
trap #14
|
; trap #14
|
||||||
lea 12(sp),sp
|
lea 12(sp),sp
|
||||||
|
|
||||||
bsr.s psginit
|
bsr.s psginit
|
||||||
|
|
@ -259,12 +262,16 @@ digi1 MACRO
|
||||||
; bne.s *+4
|
; bne.s *+4
|
||||||
; illegal
|
; illegal
|
||||||
|
|
||||||
|
ifne digitest
|
||||||
moveq #-1,d6 ;~1
|
moveq #-1,d6 ;~1
|
||||||
move.b (a6),d6 ;~2
|
move.b (a6),d6 ;~2
|
||||||
add.w d6,d6 ;~1
|
add.w d6,d6 ;~1
|
||||||
add.w (a7,d6),d7 ;~4
|
add.w (a7,d6),d7 ;~4
|
||||||
; move.w #$700,$ffff8240.w
|
endc
|
||||||
; move.w #$007,$ffff8240.w
|
ifeq digitest
|
||||||
|
move.w #$700,$ffff8240.w
|
||||||
|
move.w #$200,$ffff8240.w
|
||||||
|
endc
|
||||||
andi.w #$ff*4,d7 ;~2
|
andi.w #$ff*4,d7 ;~2
|
||||||
|
|
||||||
move.l (a7,d7),d6
|
move.l (a7,d7),d6
|
||||||
|
|
@ -278,12 +285,16 @@ digi2 MACRO
|
||||||
; beq.s *+4
|
; beq.s *+4
|
||||||
; illegal
|
; illegal
|
||||||
|
|
||||||
|
ifne digitest
|
||||||
moveq #-1,d6 ;~1
|
moveq #-1,d6 ;~1
|
||||||
move.b (a6)+,d6 ;~2
|
move.b (a6)+,d6 ;~2
|
||||||
add.w d6,d6 ;~1
|
add.w d6,d6 ;~1
|
||||||
add.w 2(a7,d6),d7 ;~4
|
add.w 2(a7,d6),d7 ;~4
|
||||||
; move.w #$070,$ffff8240.w
|
endc
|
||||||
; move.w #$007,$ffff8240.w
|
ifeq digitest
|
||||||
|
move.w #$070,$ffff8240.w
|
||||||
|
move.w #$020,$ffff8240.w
|
||||||
|
endc
|
||||||
andi.w #$ff*4,d7 ;~2
|
andi.w #$ff*4,d7 ;~2
|
||||||
|
|
||||||
move.l (a7,d7),d6 ;~5
|
move.l (a7,d7),d6 ;~5
|
||||||
|
|
@ -505,7 +516,17 @@ opentopwait:
|
||||||
dcb $4e71,90+122-16-blaf
|
dcb $4e71,90+122-16-blaf
|
||||||
|
|
||||||
loop:
|
loop:
|
||||||
dcb $4e71,blaf-4-1
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
|
move.l (a6)+,d1 ;~3
|
||||||
|
movep.l d1,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
|
dcb $4e71,blaf-4-1-20
|
||||||
move.w d7,digswitch
|
move.w d7,digswitch
|
||||||
movem.l hwpalette,d2-d7/a1-a2
|
movem.l hwpalette,d2-d7/a1-a2
|
||||||
move.l a1,usp
|
move.l a1,usp
|
||||||
|
|
@ -514,8 +535,19 @@ loop:
|
||||||
movea.l tabentry,a0 ;get back tablepos
|
movea.l tabentry,a0 ;get back tablepos
|
||||||
; move.w #$007,$ffff8240.w
|
; move.w #$007,$ffff8240.w
|
||||||
|
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
|
move.l (a6)+,d0 ;~3
|
||||||
|
movep.l d0,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
|
|
||||||
move.b #0,$ffff820a.w
|
move.b #0,$ffff820a.w
|
||||||
|
|
||||||
not.w $ffff8240.w
|
not.w $ffff8240.w
|
||||||
|
|
||||||
move.b #0,$fffffa19.w ;stop timer
|
move.b #0,$fffffa19.w ;stop timer
|
||||||
|
|
@ -573,8 +605,16 @@ mitte:
|
||||||
move.b #0,$ffff8260.w
|
move.b #0,$ffff8260.w
|
||||||
cont3:
|
cont3:
|
||||||
move.b #asd,$fffffa19.w
|
move.b #asd,$fffffa19.w
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
move.l (a6)+,d1 ;~3
|
move.l (a6)+,d1 ;~3
|
||||||
movep.l d1,$ffff8800-512-downthere(a7) ;~7
|
movep.l d1,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
dcb $4e71,28-10
|
dcb $4e71,28-10
|
||||||
tst.b (a0)+
|
tst.b (a0)+
|
||||||
bne.s rechts1
|
bne.s rechts1
|
||||||
|
|
@ -686,8 +726,16 @@ disthigh equ 20
|
||||||
move.l disttable+distspeed*2+7*4,disttable+7*4
|
move.l disttable+distspeed*2+7*4,disttable+7*4
|
||||||
dcb $4e71,25-5-10
|
dcb $4e71,25-5-10
|
||||||
|
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
move.l (a6)+,d6 ;~3
|
move.l (a6)+,d6 ;~3
|
||||||
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
calc_mdist
|
calc_mdist
|
||||||
|
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
|
@ -713,9 +761,18 @@ distwaveread:
|
||||||
dcb $4e71,25-10-2 ;digi
|
dcb $4e71,25-10-2 ;digi
|
||||||
; digi1
|
; digi1
|
||||||
move.l usp,a2 ;~1
|
move.l usp,a2 ;~1
|
||||||
|
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
move.l (a2)+,d6 ;~3
|
move.l (a2)+,d6 ;~3
|
||||||
move.l a2,usp ;~1
|
|
||||||
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
|
move.l a2,usp ;~1
|
||||||
|
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
|
@ -754,11 +811,19 @@ _notnextwavetab:
|
||||||
|
|
||||||
;free: d1-d2/d4-d7/a0-a7/usp
|
;free: d1-d2/d4-d7/a0-a7/usp
|
||||||
; digi2
|
; digi2
|
||||||
move.l usp,a2 ;~1
|
|
||||||
dcb $4e71,24-10-1-1
|
dcb $4e71,24-10-1-1
|
||||||
|
move.l usp,a2 ;~1
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
move.l (a2)+,d6 ;~3
|
move.l (a2)+,d6 ;~3
|
||||||
move.l a2,usp
|
|
||||||
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
|
move.l a2,usp
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1461,12 +1526,10 @@ vorwaerts2:
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
_nottextend2:
|
_nottextend2:
|
||||||
; clr.b d_1 ;~4 C
|
|
||||||
lsl.w #3,d_1 ;~8
|
lsl.w #3,d_1 ;~8
|
||||||
nop
|
nop
|
||||||
calc_mdist
|
calc_mdist
|
||||||
|
|
||||||
|
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
bra.s cont22
|
bra.s cont22
|
||||||
|
|
@ -1475,10 +1538,8 @@ nottextend2: ;~12
|
||||||
bra _nottextend2 ;~12
|
bra _nottextend2 ;~12
|
||||||
cont22:
|
cont22:
|
||||||
dcb $4e71,5-2
|
dcb $4e71,5-2
|
||||||
; clr.b d_2 ;~4 K
|
|
||||||
do_mdist
|
do_mdist
|
||||||
|
|
||||||
|
|
||||||
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
|
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
|
||||||
lsl.w #3,d_2 ;~8
|
lsl.w #3,d_2 ;~8
|
||||||
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
||||||
|
|
@ -1514,8 +1575,6 @@ vorbufok2:
|
||||||
vorbufnok2:
|
vorbufnok2:
|
||||||
dcb $4e71,5
|
dcb $4e71,5
|
||||||
dcb $4e71,2
|
dcb $4e71,2
|
||||||
|
|
||||||
|
|
||||||
call_shifter2:
|
call_shifter2:
|
||||||
;write first buffer
|
;write first buffer
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1) ;~24
|
movem.w d_0/d_1/d_2/d_3,(a_1) ;~24
|
||||||
|
|
@ -1753,9 +1812,7 @@ cont52:
|
||||||
move.b -26(a_1),d_2 ;~16 act letter : A
|
move.b -26(a_1),d_2 ;~16 act letter : A
|
||||||
lea -1(a_1),a_1 ;~8
|
lea -1(a_1),a_1 ;~8
|
||||||
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
|
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
|
||||||
; clr.b d_1 ;~4 E
|
|
||||||
lsl.w #3,d_1 ;~8
|
lsl.w #3,d_1 ;~8
|
||||||
; clr.b d_2 ;~4 A
|
|
||||||
lsl.w #3,d_2 ;~8
|
lsl.w #3,d_2 ;~8
|
||||||
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
||||||
add.w count,a_1 ;~20
|
add.w count,a_1 ;~20
|
||||||
|
|
@ -2122,20 +2179,7 @@ vorwaerts4:
|
||||||
move.w d_2,(a_0)
|
move.w d_2,(a_0)
|
||||||
move.l textptr-shift(a_0),a_1
|
move.l textptr-shift(a_0),a_1
|
||||||
dcb $4e71,2
|
dcb $4e71,2
|
||||||
dcb $4e71,25-22
|
dcb $4e71,25-17-3-1-1
|
||||||
digi1
|
|
||||||
calc_mdist
|
|
||||||
|
|
||||||
|
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
|
||||||
move.b #2,$ffff820a.w
|
|
||||||
bra.s cont24
|
|
||||||
nottextend4: ;~12
|
|
||||||
addq.w #1,a_1 ;~8
|
|
||||||
bra _nottextend4 ;~12
|
|
||||||
cont24:
|
|
||||||
dcb $4e71,5-2
|
|
||||||
do_mdist
|
|
||||||
|
|
||||||
moveq #0,d_1
|
moveq #0,d_1
|
||||||
moveq #0,d_2
|
moveq #0,d_2
|
||||||
|
|
@ -2148,9 +2192,21 @@ cont24:
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
_nottextend4:
|
_nottextend4:
|
||||||
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
|
|
||||||
lsl.w #3,d_1 ;~8
|
lsl.w #3,d_1 ;~8
|
||||||
dcb $4e71,6-2-2-1
|
nop
|
||||||
|
calc_mdist
|
||||||
|
|
||||||
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
move.b #2,$ffff820a.w
|
||||||
|
bra.s cont24
|
||||||
|
nottextend4: ;~12
|
||||||
|
addq.w #1,a_1 ;~8
|
||||||
|
bra _nottextend4 ;~12
|
||||||
|
cont24:
|
||||||
|
dcb $4e71,5-2
|
||||||
|
do_mdist
|
||||||
|
|
||||||
|
move.l a_1,textptr-shift(a_0) ;~16 textptr points to K
|
||||||
lsl.w #3,d_2 ;~8
|
lsl.w #3,d_2 ;~8
|
||||||
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
||||||
add.w count,a_1 ;~20
|
add.w count,a_1 ;~20
|
||||||
|
|
@ -2165,6 +2221,8 @@ _nottextend4:
|
||||||
move.w (a_2)+,d_1 ;~8
|
move.w (a_2)+,d_1 ;~8
|
||||||
move.w (a_2)+,d_2 ;~8
|
move.w (a_2)+,d_2 ;~8
|
||||||
move.w (a_2)+,d_3 ;~8
|
move.w (a_2)+,d_3 ;~8
|
||||||
|
dcb $4e71,23-22-1
|
||||||
|
digi1
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
|
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
|
@ -2185,10 +2243,50 @@ vorbufnok4:
|
||||||
dcb $4e71,2
|
dcb $4e71,2
|
||||||
call_shifter4:
|
call_shifter4:
|
||||||
;write first buffer
|
;write first buffer
|
||||||
|
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1) ;~24
|
movem.w d_0/d_1/d_2/d_3,(a_1) ;~24
|
||||||
lea 26*8(a_1),a_1 ;~8
|
lea 26*8(a_1),a_1 ;~8
|
||||||
|
|
||||||
|
swap d_1
|
||||||
|
addx.w d1,d1
|
||||||
|
swap d_1
|
||||||
|
addx.l d0,d0
|
||||||
|
addx.l d3,d3
|
||||||
|
addx.l d2,d2
|
||||||
|
addx.w d1,d1
|
||||||
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
|
lea 26*8(a_1),a_1
|
||||||
|
|
||||||
dcb $4e71,5
|
dcb $4e71,5
|
||||||
dcb $4e71,25-22
|
dcb $4e71,25-18
|
||||||
|
calc_mdist2
|
||||||
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
move.b #2,$ffff820a.w
|
||||||
|
dcb $4e71,8-2
|
||||||
|
do_mdist2
|
||||||
|
|
||||||
|
swap d_1
|
||||||
|
addx.w d1,d1
|
||||||
|
swap d_1
|
||||||
|
addx.l d0,d0
|
||||||
|
addx.l d3,d3
|
||||||
|
addx.l d2,d2
|
||||||
|
addx.w d1,d1
|
||||||
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
|
lea 26*8(a_1),a_1
|
||||||
|
|
||||||
|
swap d_1
|
||||||
|
addx.w d1,d1
|
||||||
|
swap d_1
|
||||||
|
addx.l d0,d0
|
||||||
|
addx.l d3,d3
|
||||||
|
addx.l d2,d2
|
||||||
|
addx.w d1,d1
|
||||||
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
|
lea 26*8(a_1),a_1
|
||||||
|
|
||||||
|
|
||||||
|
dcb $4e71,25-13+18-22
|
||||||
digi2
|
digi2
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
|
@ -2225,9 +2323,8 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
|
dcb $4e71,8-3
|
||||||
|
dcb $4e71,25-18
|
||||||
dcb $4e71,25-13
|
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
|
|
@ -2253,9 +2350,8 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
dcb $4e71,8-3
|
|
||||||
|
|
||||||
dcb $4e71,25-22
|
dcb $4e71,25-13+18-22
|
||||||
digi1
|
digi1
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
|
|
@ -2292,12 +2388,15 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
dcb $4e71,25-13
|
dcb $4e71,8-3
|
||||||
|
|
||||||
|
dcb $4e71,25-18
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
move.b #0,$ffff820a.w
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
dcb $4e71,8-2
|
dcb $4e71,8-2
|
||||||
do_mdist2
|
do_mdist2
|
||||||
|
|
||||||
swap d_1
|
swap d_1
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
swap d_1
|
swap d_1
|
||||||
|
|
@ -2307,6 +2406,7 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
|
|
||||||
swap d_1
|
swap d_1
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
swap d_1
|
swap d_1
|
||||||
|
|
@ -2316,47 +2416,15 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
dcb $4e71,8-3
|
|
||||||
dcb $4e71,25-22
|
dcb $4e71,25-13+18-22
|
||||||
digi2
|
digi2
|
||||||
calc_mdist2
|
calc_mdist2
|
||||||
move.b #0,$ffff820a.w
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
move.b #2,$ffff820a.w
|
|
||||||
dcb $4e71,8-2
|
|
||||||
do_mdist2
|
|
||||||
swap d_1
|
|
||||||
addx.w d1,d1
|
|
||||||
swap d_1
|
|
||||||
addx.l d0,d0
|
|
||||||
addx.l d3,d3
|
|
||||||
addx.l d2,d2
|
|
||||||
addx.w d1,d1
|
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
|
||||||
lea 26*8(a_1),a_1
|
|
||||||
swap d_1
|
|
||||||
addx.w d1,d1
|
|
||||||
swap d_1
|
|
||||||
addx.l d0,d0
|
|
||||||
addx.l d3,d3
|
|
||||||
addx.l d2,d2
|
|
||||||
addx.w d1,d1
|
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
|
||||||
lea 26*8(a_1),a_1
|
|
||||||
swap d_1
|
|
||||||
addx.w d1,d1
|
|
||||||
swap d_1
|
|
||||||
addx.l d0,d0
|
|
||||||
addx.l d3,d3
|
|
||||||
addx.l d2,d2
|
|
||||||
addx.w d1,d1
|
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
|
||||||
lea 26*8(a_1),a_1
|
|
||||||
dcb $4e71,25-13
|
|
||||||
calc_mdist2
|
|
||||||
move.b #0,$ffff820a.w
|
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
dcb $4e71,8-2
|
dcb $4e71,8-2
|
||||||
do_mdist2
|
do_mdist2
|
||||||
|
|
||||||
swap d_1
|
swap d_1
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
swap d_1
|
swap d_1
|
||||||
|
|
@ -2366,6 +2434,7 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
|
|
||||||
swap d_1
|
swap d_1
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
swap d_1
|
swap d_1
|
||||||
|
|
@ -2375,17 +2444,21 @@ call_shifter4:
|
||||||
addx.w d1,d1
|
addx.w d1,d1
|
||||||
movem.w d_0/d_1/d_2/d_3,(a_1)
|
movem.w d_0/d_1/d_2/d_3,(a_1)
|
||||||
lea 26*8(a_1),a_1
|
lea 26*8(a_1),a_1
|
||||||
|
|
||||||
dcb $4e71,2
|
dcb $4e71,2
|
||||||
bra indistcalcloop4 ;~12 26 nops before right borde
|
bra indistcalcloop4 ;~12 26 nops before right borde
|
||||||
rueckwaerts4:
|
rueckwaerts4:
|
||||||
add.w #16,d_2 ;~8
|
add.w #16,d_2 ;~8
|
||||||
move.w d_2,(a_0) ;~8 write back new shift
|
move.w d_2,(a_0) ;~8 write back new shift
|
||||||
dcb $4e71,2+7
|
dcb $4e71,2+7
|
||||||
dcb $4e71,25-22 ;digi
|
dcb $4e71,25-18-4 ;digi
|
||||||
digi1
|
subq.w #4,bufcnt-shift(a_0) ;~12
|
||||||
|
bhs.s rueckbufok4 ;~8
|
||||||
|
move.w #25*4,bufcnt-shift(a_0) ;~16 screenwidth = 26 words
|
||||||
|
add.l #25*8,bufptr-shift(a_0) ;~32
|
||||||
|
_rueckbufok4:
|
||||||
|
move.l textptr-shift(a_0),a_1 ;~16
|
||||||
calc_mdist
|
calc_mdist
|
||||||
|
|
||||||
|
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
bra.s cont54
|
bra.s cont54
|
||||||
|
|
@ -2397,13 +2470,6 @@ cont54:
|
||||||
dcb $4e71,5-2
|
dcb $4e71,5-2
|
||||||
do_mdist
|
do_mdist
|
||||||
|
|
||||||
|
|
||||||
subq.w #4,bufcnt-shift(a_0) ;~12
|
|
||||||
bhs.s rueckbufok4 ;~8
|
|
||||||
move.w #25*4,bufcnt-shift(a_0) ;~16 screenwidth = 26 words
|
|
||||||
add.l #25*8,bufptr-shift(a_0) ;~32
|
|
||||||
_rueckbufok4:
|
|
||||||
move.l textptr-shift(a_0),a_1 ;~16
|
|
||||||
moveq #0,d_1
|
moveq #0,d_1
|
||||||
moveq #0,d_2
|
moveq #0,d_2
|
||||||
move.b -27(a_1),d_1 ;~16 previous letter : E
|
move.b -27(a_1),d_1 ;~16 previous letter : E
|
||||||
|
|
@ -2411,12 +2477,14 @@ _rueckbufok4:
|
||||||
lea -1(a_1),a_1 ;~8
|
lea -1(a_1),a_1 ;~8
|
||||||
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
|
move.l a_1,textptr-shift(a_0) ;~16 textptr points to I
|
||||||
lsl.w #3,d_1 ;~8
|
lsl.w #3,d_1 ;~8
|
||||||
dcb $4e71,7-2-2
|
|
||||||
lsl.w #3,d_2 ;~8
|
lsl.w #3,d_2 ;~8
|
||||||
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
lea font-8+(scrhigh*fontpartlen),a_1 ;~8
|
||||||
add.w count,a_1 ;~20
|
add.w count,a_1 ;~20
|
||||||
lea (a_1,d_1),a_2 ;~12 E
|
lea (a_1,d_1),a_2 ;~12 E
|
||||||
movem.l (a_1,d_2),d_1/d_3 ;~36 A
|
movem.l (a_1,d_2),d_1/d_3 ;~36 A
|
||||||
|
|
||||||
|
dcb $4e71,7+18-22
|
||||||
|
digi1
|
||||||
calc_mdist02
|
calc_mdist02
|
||||||
move.b #0,$ffff820a.w ;Open right border
|
move.b #0,$ffff820a.w ;Open right border
|
||||||
move.b #2,$ffff820a.w
|
move.b #2,$ffff820a.w
|
||||||
|
|
@ -2575,17 +2643,22 @@ c10 equr a1
|
||||||
move.w #7,count
|
move.w #7,count
|
||||||
scrollcpy2:
|
scrollcpy2:
|
||||||
move.w shift-buffer(a7),d1
|
move.w shift-buffer(a7),d1
|
||||||
mulu #208,d1
|
add.w d1,d1
|
||||||
|
move.w _mul208(pc,d1),d1
|
||||||
lea (a7,d1),a2
|
lea (a7,d1),a2
|
||||||
move.w bufcnt-buffer(a7),d1
|
move.w bufcnt-buffer(a7),d1
|
||||||
lea cpyjsr2,a1
|
lea cpyjsr2(pc),a1
|
||||||
move.l (a1,d1),a1
|
move.l (a1,d1),a1
|
||||||
|
|
||||||
lea downthere+512,a7 ;voltab (.w ?)
|
lea downthere+512.w,a7 ;voltab (.w)
|
||||||
not.w digswitch
|
not.w digswitch
|
||||||
bne.s cpy_d2
|
bne.s cpy_d2
|
||||||
digi1
|
digi1
|
||||||
jmp (a1) ;(a2)+ -> (a0) uses d1-a1
|
jmp (a1) ;(a2)+ -> (a0) uses d1-a1
|
||||||
|
_mul208:
|
||||||
|
dc.w 0,208,208*2,208*3,208*4,208*5,208*6,208*7,208*8
|
||||||
|
dc.w 208*9,208*10,208*11,208*12,208*13,208*14,208*15
|
||||||
|
|
||||||
cpy_d2:
|
cpy_d2:
|
||||||
digi2
|
digi2
|
||||||
jmp (a1) ;(a2)+ -> (a0) uses d1-a1
|
jmp (a1) ;(a2)+ -> (a0) uses d1-a1
|
||||||
|
|
@ -2597,7 +2670,7 @@ endcpy2:
|
||||||
subq.w #1,count
|
subq.w #1,count
|
||||||
bne scrollcpy2
|
bne scrollcpy2
|
||||||
|
|
||||||
lea downthere+512,a7 ;voltab (.w ?)
|
lea downthere+512.w,a7 ;voltab (.w ?)
|
||||||
|
|
||||||
;**********************************************************
|
;**********************************************************
|
||||||
;buffercopy
|
;buffercopy
|
||||||
|
|
@ -2897,8 +2970,16 @@ calcpredigi:
|
||||||
move.l (a7,d7),(a0)+
|
move.l (a7,d7),(a0)+
|
||||||
move.l (a7,d7),(a0)+
|
move.l (a7,d7),(a0)+
|
||||||
endr
|
endr
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
move.l (a1)+,d6
|
move.l (a1)+,d6
|
||||||
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
dbf d0,calcpredigi
|
dbf d0,calcpredigi
|
||||||
;digi2
|
;digi2
|
||||||
moveq #-1,d6 ;~1
|
moveq #-1,d6 ;~1
|
||||||
|
|
@ -2908,12 +2989,40 @@ calcpredigi:
|
||||||
andi.w #$ff*4,d7 ;~2
|
andi.w #$ff*4,d7 ;~2
|
||||||
move.l (a7,d7),(a0)+
|
move.l (a7,d7),(a0)+
|
||||||
move.l (a7,d7),(a0)+
|
move.l (a7,d7),(a0)+
|
||||||
|
|
||||||
|
;digi1
|
||||||
|
moveq #-1,d6
|
||||||
|
move.b (a6),d6
|
||||||
|
add.w d6,d6
|
||||||
|
add.w (a7,d6),d7
|
||||||
|
andi.w #$ff*4,d7
|
||||||
|
move.l (a7,d7),(a0)+
|
||||||
|
move.l (a7,d7),(a0)+
|
||||||
|
;digi2
|
||||||
|
moveq #-1,d6 ;~1
|
||||||
|
move.b (a6)+,d6 ;~2
|
||||||
|
add.w d6,d6 ;~1
|
||||||
|
add.w 2(a7,d6),d7 ;~4
|
||||||
|
andi.w #$ff*4,d7 ;~2
|
||||||
|
move.l (a7,d7),(a0)+
|
||||||
|
move.l (a7,d7),(a0)+
|
||||||
|
|
||||||
|
dcb $4e71,70
|
||||||
|
|
||||||
move.l a6,digiptr
|
move.l a6,digiptr
|
||||||
; endc
|
; endc
|
||||||
dcb $4e71,150
|
dcb $4e71,150
|
||||||
move.l a1,a6
|
move.l a1,a6
|
||||||
|
ifeq digitest
|
||||||
|
move.w #$777,$ffff8240.w
|
||||||
|
move.w #$333,$ffff8240.w
|
||||||
|
nop
|
||||||
|
nop
|
||||||
|
endc
|
||||||
|
ifne digitest
|
||||||
move.l (a6)+,d6 ;~3
|
move.l (a6)+,d6 ;~3
|
||||||
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
movep.l d6,$ffff8800-512-downthere(a7) ;~7
|
||||||
|
endc
|
||||||
|
|
||||||
move.w #911,$ffff8240.w
|
move.w #911,$ffff8240.w
|
||||||
move.b #0,$fffffa0b.w ;clr pending
|
move.b #0,$fffffa0b.w ;clr pending
|
||||||
|
|
@ -5995,28 +6104,11 @@ openlowtab:
|
||||||
even
|
even
|
||||||
wavetab:
|
wavetab:
|
||||||
; dc.l byteschief,0
|
; dc.l byteschief,0
|
||||||
dc.l wordschief
|
|
||||||
dc.l wordschief
|
|
||||||
dc.l wordschief
|
|
||||||
dc.l wordschief
|
|
||||||
dc.l wordschief
|
|
||||||
dc.l wordschief
|
|
||||||
dc.l wordschief
|
dc.l wordschief
|
||||||
dc.l wordschief
|
dc.l wordschief
|
||||||
dc.l wordschief
|
dc.l wordschief
|
||||||
dc.l byteschief
|
dc.l byteschief
|
||||||
dc.l nix
|
dc.l nix
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix
|
|
||||||
dc.l nix,nix,nix,nix,nix,nix,nix,0
|
|
||||||
dc.l wordhinher
|
dc.l wordhinher
|
||||||
dc.l nix
|
dc.l nix
|
||||||
dc.l nix
|
dc.l nix
|
||||||
|
|
@ -6316,10 +6408,12 @@ space equ 87
|
||||||
;Panic buffer for scrolltext
|
;Panic buffer for scrolltext
|
||||||
dc.b 01,0,0,0,0,0,0,0,0,01,0,0,01,0,0,01,0,0,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
|
dc.b 01,0,0,0,0,0,0,0,0,01,0,0,01,0,0,01,0,0,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01
|
||||||
|
|
||||||
dc.b space,az,az+1,az,az+1,space,space,space,n,n+1,o,o+1,b,b+1,o,o+1,d,d+1,y,y+1
|
dc.b r,r+1,e,e+1,s,s+1,p,p+1,e,e+1,c,c+1,t,t+1,a,a+1,b,b+1,l,l+1,e,e+1,s,s+1,space,ka,ka+1,h,h+1,a,a+1,v,v+1,e,e+1,space,i,i+1,space
|
||||||
dc.b space,space,c,c+1,a,a+1,n,n+1,space,space,b,b+1,e,e+1,a,a+1,t,t+1
|
dc.b g,g+1,o,o+1,t,t+1,space,t,t+1,h,h+1,e,e+1,space,n,n+1,a,a+1,m,m+1,e,e+1,space,r,r+1,i,i+1,g,g+1,h,h+1,t,t+1,fz,fz+1,kz,kz+1,space
|
||||||
dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1
|
dc.b e,e+1,n,n+1,o,o+1,u,u+1,g,g+1,h,h+1,space,f,f+1,o,o+1,r,r+1,space,n,n+1,o,o+1,w,w+1,space,space,space,space
|
||||||
dc.b space,space
|
dc.b b,b+1,y,y+1,e,e+1,space,az,az+1
|
||||||
|
|
||||||
|
dc.b space,space,space
|
||||||
scrolltext:
|
scrolltext:
|
||||||
; dc.b zero,zero,zero,zero,zero,zero,zero,zero,0
|
; dc.b zero,zero,zero,zero,zero,zero,zero,zero,0
|
||||||
dc.b space,space,space,h,h+1,e,e+1,l,l+1,l,l+1,o,o+1,space,space
|
dc.b space,space,space,h,h+1,e,e+1,l,l+1,l,l+1,o,o+1,space,space
|
||||||
|
|
@ -6332,6 +6426,27 @@ scrolltext:
|
||||||
dc.b n,n+1,o,o+1,b,b+1,o,o+1,d,d+1,y,y+1
|
dc.b n,n+1,o,o+1,b,b+1,o,o+1,d,d+1,y,y+1
|
||||||
dc.b space,space,c,c+1,a,a+1,n,n+1,space,space,b,b+1,e,e+1,a,a+1,t,t+1
|
dc.b space,space,c,c+1,a,a+1,n,n+1,space,space,b,b+1,e,e+1,a,a+1,t,t+1
|
||||||
dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1
|
dc.b space,space,u,u+1,space,l,l+1,space,m,m+1,space,az,az+1,az,az+1,az,az+1
|
||||||
|
dc.b t,t+1,h,h+1,i,i+1,s,s+1,space,s,s+1,c,c+1,r,r+1,e,e+1,e,e+1,n,n+1,space,n,n+1,e,e+1,e,e+1,d,d+1,e,e+1,d,d+1,space
|
||||||
|
dc.b o,o+1,v,v+1,e,e+1,r,r+1,space,one,one+1,space,m,m+1,o,o+1,n,n+1,t,t+1,h,h+1,space
|
||||||
|
dc.b f,f+1,u,u+1,l,l+1,l,l+1,t,t+1,i,i+1,m,m+1,e,e+1,space,c,c+1,o,o+1,d,d+1,i,i+1,n,n+1,g,g+1,az,az+1,space
|
||||||
|
dc.b b,b+1,u,u+1,t,t+1,space,b,b+1,e,e+1,c,c+1,a,a+1,u,u+1,s,s+1,e,e+1,space,o,o+1,f,f+1,space
|
||||||
|
dc.b t,t+1,h,h+1,e,e+1,space,s,s+1,c,c+1,h,h+1,o,o+1,o,o+1,l,l+1,space,i,i+1,t,t+1,space
|
||||||
|
dc.b t,t+1,o,o+1,o,o+1,k,k+1,space,m,m+1,e,e+1,space,h,h+1,a,a+1,l,l+1,f,f+1,space
|
||||||
|
dc.b a,a+1,space,y,y+1,e,e+1,a,a+1,r,r+1,az,az+1,space,i,i+1,space,h,h+1,o,o+1,p,p+1,e,e+1,space
|
||||||
|
dc.b i,i+1,t,t+1,space,w,w+1,i,i+1,l,l+1,l,l+1,space,b,b+1,e,e+1,space,t,t+1,h,h+1,e,e+1,space
|
||||||
|
dc.b b,b+1,e,e+1,s,s+1,t,t+1,space,f,f+1,u,u+1,l,l+1,l,l+1,s,s+1,c,c+1,e,e+1,n,n+1,space
|
||||||
|
dc.b d,d+1,i,i+1,s,s+1,t,t+1,o,o+1,r,r+1,t,t+1,e,e+1,r,r+1,space,e,e+1,v,v+1,e,e+1,r,r+1,space,d,d+1,o,o+1,n,n+1,e,e+1,space,az,az+1,space,space
|
||||||
|
dc.b g,g+1,r,r+1,e,e+1,e,e+1,t,t+1,i,i+1,n,n+1,g,g+1,s,s+1,space,t,t+1,o,o+1,space,m,m+1,y,y+1,space
|
||||||
|
dc.b b,b+1,e,e+1,s,s+1,t,t+1,space,f,f+1,r,r+1,i,i+1,e,e+1,n,n+1,d,d+1,s,s+1,dp,dp+1,space
|
||||||
|
dc.b t,t+1,h,h+1,e,e+1,space,l,l+1,o,o+1,s,s+1,t,t+1,space,b,b+1,o,o+1,y,y+1,s,s+1,space
|
||||||
|
dc.b ka,ka+1,g,g+1,i,i+1,v,v+1,e,e+1,space,m,m+1,e,e+1,space,a,a+1,l,l+1,l,l+1,space
|
||||||
|
dc.b y,y+1,o,o+1,u,u+1,r,r+1,space,s,s+1,l,l+1,o,o+1,w,w+1,space,r,r+1,o,o+1,u,u+1,t,t+1,i,i+1,n,n+1,e,e+1,s,s+1,space
|
||||||
|
dc.b i,i+1,space,w,w+1,i,i+1,l,l+1,l,l+1,space,o,o+1,p,p+1,t,t+1,i,i+1,m,m+1,i,i+1,z,z+1,e,e+1,space,t,t+1,h,h+1,e,e+1,m,m+1,kz,kz+1,space
|
||||||
|
dc.b r,r+1,e,e+1,s,s+1,p,p+1,e,e+1,c,c+1,t,t+1,a,a+1,b,b+1,l,l+1,e,e+1,s,s+1,space,ka,ka+1,h,h+1,a,a+1,v,v+1,e,e+1,space,i,i+1,space
|
||||||
|
dc.b g,g+1,o,o+1,t,t+1,space,t,t+1,h,h+1,e,e+1,space,n,n+1,a,a+1,m,m+1,e,e+1,space,r,r+1,i,i+1,g,g+1,h,h+1,t,t+1,fz,fz+1,kz,kz+1,space
|
||||||
|
dc.b e,e+1,n,n+1,o,o+1,u,u+1,g,g+1,h,h+1,space,f,f+1,o,o+1,r,r+1,space,n,n+1,o,o+1,w,w+1,space,space,space,space
|
||||||
|
dc.b b,b+1,y,y+1,e,e+1,space,az,az+1
|
||||||
|
|
||||||
dc.b space,space,space
|
dc.b space,space,space
|
||||||
dc.b 0
|
dc.b 0
|
||||||
dc.b 87,87
|
dc.b 87,87
|
||||||
|
|
@ -6409,7 +6524,7 @@ disttable:
|
||||||
digiptr:
|
digiptr:
|
||||||
ds.l 1 ;ptr to begin digi after vbl
|
ds.l 1 ;ptr to begin digi after vbl
|
||||||
predigi:
|
predigi:
|
||||||
ds.l 20 ;20 lines predigitized (10*2 values)
|
ds.l 40 ;40 lines predigitized (20*2 values)
|
||||||
mactcurv:
|
mactcurv:
|
||||||
ds.l 1 ;ptr in active curve
|
ds.l 1 ;ptr in active curve
|
||||||
mnextcurv:
|
mnextcurv:
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue