Neaten up terrible DrawBeepScreen disassembly

This commit is contained in:
Elliot Nunn 2018-01-22 11:21:49 +08:00
parent a71d9d38d8
commit 6788160911

View File

@ -2863,7 +2863,7 @@ LoadDrivers
MoveA.L A7, A0 MoveA.L A7, A0
Clr.B $1B(A0) Clr.B $1B(A0)
Bsr (* + $128) Bsr FROVideo
Lea.L $32(A7), A7 Lea.L $32(A7), A7
BTst.B #$6, ($2409) BTst.B #$6, ($2409)
BEQ.B @skipALine BEQ.B @skipALine
@ -2988,22 +2988,33 @@ DrawBeepScreen
BSR.L LCDScreenChk ; is this an LCD screen ? <SM16><SM68> BSR.L LCDScreenChk ; is this an LCD screen ? <SM16><SM68>
BEQ.B @DoNormalBeepScreen ; -> no, do the normal stuff <SM16><SM68> BEQ.B @DoNormalBeepScreen ; -> no, do the normal stuff <SM16><SM68>
Clr.B ($B3E) CLR.B ntsc
Pea.L -$74(A2)
Clr.B -(A7) PEA ScreenBits+bounds(A2) ; screen rectangle <SM84>
Jsr (* + $204A) CLR.B -(SP)
Tst.B (A7)+ IMPORT INTERC_2B20_GRAYPAGE
BNE.B (* + $8) JSR INTERC_2B20_GRAYPAGE
Pea.L -$18(A2) TST.B (SP)+
Bra.B (* + $14) BNZ.B @graypage_returned_nonzero
MoveA.L ($2b6), A0
ST.B $341(A0) ;graypage_returned_zero
Pea.L (* + $62) PEA gray(A2) ; fill pattern
_RGBForeColor BRA.B @graypage_endif
Pea.L -$10(A2)
_FillRect @graypage_returned_nonzero
MoveQ.L #$5, D0 MOVE.L ExpandMem,A0
DC.W $ABE0 ST.B $341(A0)
PEA @GrayColor
_RGBForeColor
PEA black(A2)
@graypage_endif
_FillRect
MOVEQ #5,D0
DC.W $ABE0 ; QDExtensions2, ?showCursor selector
RTS RTS
@DoNormalBeepScreen @DoNormalBeepScreen
ENDIF ; <SM81> ENDIF ; <SM81>
@ -3029,19 +3040,27 @@ DrawBeepScreen
_PenNormal ; restore the pen _PenNormal ; restore the pen
Pea.L (* + $24) PEA @GrayColor
_RGBForeColor _RGBForeColor
Move.L #$100010, -(A7)
Pea.L -$10(A2) MOVE.L #$00100010, -(SP) ; rounding factor
Bra.B (* + $C) PEA black(A2) ; fill pattern
DC.L $2F3C0010 ; '/< ' BRA.B @skipOldPatternSelection
DC.L $0010486A ; ' Hj'
DC.W $FFE8 ; ' ' MOVE.L #$00100010, -(SP) ; rounding factor
_FillRoundRect PEA gray(A2) ; fill pattern
MoveQ.L #$5, D0 @skipOldPatternSelection
DC.W $ABE0 _FillRoundRect ; fill the screen with 50% gray
MOVEQ #5,D0
DC.W $ABE0 ; QDExtensions2, ?showCursor selector
RTS RTS
@GrayColor
DC.W $8888, $8888, $8888
;________________________________________________________________________________________ ;________________________________________________________________________________________
; ;
@ -3056,8 +3075,6 @@ DrawBeepScreen
; Function: finds, reads parameters for, and opens the driver for a video sRsrc ; Function: finds, reads parameters for, and opens the driver for a video sRsrc
;________________________________________________________________________________________ ;________________________________________________________________________________________
DC.W $8888, $8888, $8888
WITH spBlock,seBlock,vpBlock WITH spBlock,seBlock,vpBlock
FROVideo MOVE.L A0,A1 ; save the param block pointer for _Open FROVideo MOVE.L A0,A1 ; save the param block pointer for _Open