Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[Reverse-engineering] [th04/th05] Non-alpha CDG display

This commit is contained in:
nmlgc 2017-01-22 22:23:15 +01:00
parent bfef793805
commit aa47bb33d9
6 changed files with 142 additions and 431 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
th04/formats/cdg_put_noalpha.asm Normal file
View File

@ -0,0 +1,67 @@
; Displays the CDG image in the given [slot] at (⌊x/8⌋*8, y), disregarding its
; alpha plane.
; void pascal _cdg_put_noalpha(int x, int y, int slot);
public _cdg_put_noalpha
_cdg_put_noalpha proc far
@@slot = word ptr 6
@@y = word ptr 8
@@x = word ptr 10
push bp
mov bp, sp
push si
push di
push ds
mov ax, [bp+@@y]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
add ax, 3800h
push ax
sub ax, 2800h
push ax
sub ax, 800h
push ax
mov si, [bp+@@slot]
shl si, 4
add si, offset _cdg_slots
mov bx, [bp+@@x]
sar bx, 3
add bx, [si+CDGSlot.vram_byte_at_bottom_left]
mov ax, [si+CDGSlot.width_divided_by_32]
mov bp, ax
shl ax, 2
add ax, (640 / 8)
mov dx, ax
mov ax, [si+CDGSlot.sgm_colors]
mov ds, ax
xor si, si
mov al, 4
cld
nop
@@plane:
mov di, bx
@@row:
mov cx, bp
rep movsd
sub di, dx
jns short @@row
dec al
jz short @@ret
pop es
jmp short @@plane
@@ret:
pop ds
pop di
pop si
pop bp
retf 6
_cdg_put_noalpha endp
align 2

110
th04_main.asm
View File

@ -1371,9 +1371,9 @@ loc_B64C:
loc_B65A:
mov PaletteTone, 0
call far ptr palette_show
push 200070h
push (32 shl 16) or 112
push 31
call sub_136B4
call _cdg_put_noalpha
call _cdg_free pascal, 31
push 1
call palette_black_in
@ -11677,9 +11677,9 @@ var_1 = byte ptr -1
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 200038h
push (32 shl 16) or 56
push 0
call sub_136B4
call _cdg_put_noalpha
cmp byte_256A9, 50h ; 'P'
ja short loc_10096
mov byte_25592, 9
@ -11756,9 +11756,9 @@ var_2 = word ptr -2
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 200038h
push (32 shl 16) or 56
push 0
call sub_136B4
call _cdg_put_noalpha
cmp byte_256A9, 50h ; 'P'
ja short loc_1015E
mov byte_25592, 0Fh
@ -15754,15 +15754,12 @@ sub_12124 endp
sub_12157 proc near
arg_0 = byte ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
@@y = word ptr 6
@@x = word ptr 8
push bp
mov bp, sp
push [bp+arg_4]
push [bp+arg_2]
push 10h
call sub_136B4
call _cdg_put_noalpha pascal, [bp+@@x], [bp+@@y], 16
call sub_C15C
mov ah, [bp+arg_0]
call sub_C162
@ -16012,9 +16009,9 @@ loc_12309:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 600048h
push 10h
call sub_136B4
push (96 shl 16) or 72
push 16
call _cdg_put_noalpha
loc_12327:
mov ax, word_2D02E
@ -16094,9 +16091,9 @@ loc_12396:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 800080h
push 10h
call sub_136B4
push (128 shl 16) or 128
push 16
call _cdg_put_noalpha
loc_123B4:
mov ax, word_2D02E
@ -16895,9 +16892,9 @@ loc_129B4:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 200010h
push 10h
call sub_136B4
push (32 shl 16) or 16
push 16
call _cdg_put_noalpha
loc_129D2:
mov ax, word_2D02E
@ -18120,76 +18117,7 @@ sub_13666 endp
; ---------------------------------------------------------------------------
db 0
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_136B4 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
push ds
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
add ax, 3800h
push ax
sub ax, 2800h
push ax
sub ax, 800h
push ax
mov si, [bp+arg_0]
shl si, 4
add si, 3978h
mov bx, [bp+arg_4]
sar bx, 3
add bx, [si+6]
mov ax, [si+8]
mov bp, ax
shl ax, 2
add ax, 50h ; 'P'
mov dx, ax
mov ax, [si+0Eh]
mov ds, ax
xor si, si
mov al, 4
cld
nop
loc_13700:
mov di, bx
loc_13702:
mov cx, bp
rep movsd
sub di, dx
jns short loc_13702
dec al
jz short loc_13712
pop es
jmp short loc_13700
; ---------------------------------------------------------------------------
loc_13712:
pop ds
pop di
pop si
pop bp
retf 6
sub_136B4 endp
; ---------------------------------------------------------------------------
nop
include th04/formats/cdg_put_noalpha.asm
loc_1371A:
push bp
mov bp, sp

105
th04_op.asm
View File

@ -4760,14 +4760,14 @@ sub_D3A2 proc near
mov bp, sp
cmp byte_132B8, 0
jnz short loc_D407
push 28002Ch
push 28h ; '('
call sub_E176
push (40 shl 16) or 44
push 40
call _cdg_put_noalpha
push 1
call sub_D0FF
push 1500034h
push 29h ; ')'
call sub_E176
push (336 shl 16) or 52
push 41
call _cdg_put_noalpha
push 1
call sub_D20A
call grcg_setcolor pascal, (GC_RMW shl 16) + 1
@ -4785,14 +4785,14 @@ sub_D3A2 proc near
; ---------------------------------------------------------------------------
loc_D407:
push 148002Ch
push 29h ; ')'
call sub_E176
push (328 shl 16) or 44
push 41
call _cdg_put_noalpha
push 0
call sub_D0FF
push 300034h
push 28h ; '('
call sub_E176
push (48 shl 16) or 52
push 40
call _cdg_put_noalpha
push 0
call sub_D20A
call grcg_setcolor pascal, (GC_RMW shl 16) + 1
@ -5054,17 +5054,17 @@ sub_D650 proc near
mov bp, sp
cmp byte_132B8, 0
jnz short loc_D664
push 0B8002Ch
push 28h ; '('
push (184 shl 16) or 44
push 40
jmp short loc_D66C
; ---------------------------------------------------------------------------
loc_D664:
push 0B8002Ch
push 29h ; ')'
push (184 shl 16) or 44
push 41
loc_D66C:
call sub_E176
call _cdg_put_noalpha
call grcg_setcolor pascal, (GC_RMW shl 16) + 1
push 370034h
push 37011Fh
@ -5916,76 +5916,7 @@ sub_E0F4 endp
; ---------------------------------------------------------------------------
db 0
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_E176 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
push ds
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
add ax, 3800h
push ax
sub ax, 2800h
push ax
sub ax, 800h
push ax
mov si, [bp+arg_0]
shl si, 4
add si, 2716h
mov bx, [bp+arg_4]
sar bx, 3
add bx, [si+6]
mov ax, [si+8]
mov bp, ax
shl ax, 2
add ax, 50h ; 'P'
mov dx, ax
mov ax, [si+0Eh]
mov ds, ax
xor si, si
mov al, 4
cld
nop
loc_E1C2:
mov di, bx
loc_E1C4:
mov cx, bp
rep movsd
sub di, dx
jns short loc_E1C4
dec al
jz short loc_E1D4
pop es
jmp short loc_E1C2
; ---------------------------------------------------------------------------
loc_E1D4:
pop ds
pop di
pop si
pop bp
retf 6
sub_E176 endp
; ---------------------------------------------------------------------------
nop
include th04/formats/cdg_put_noalpha.asm
include th04/hardware/input_sense.asm
include th04/snd/se.asm

124
th05_main.asm
View File

@ -1640,9 +1640,9 @@ loc_BA9C:
loc_BAAA:
mov PaletteTone, 0
call far ptr palette_show
push 500070h
push (80 shl 16) or 112
push 31
call sub_14C7C
call _cdg_put_noalpha
call _cdg_free pascal, 31
push 1
call palette_black_in
@ -3453,9 +3453,9 @@ sub_C567 endp
sub_C73A proc near
push bp
mov bp, sp
push 500010h
push (80 shl 16) or 16
push 0
call sub_14C7C
call _cdg_put_noalpha
call sub_CEC2
call sub_C567
mov byte_2C92C, 9
@ -3737,9 +3737,9 @@ sub_C84F endp
sub_C99E proc near
push bp
mov bp, sp
push 700010h
push (112 shl 16) or 16
push 0
call sub_14C7C
call _cdg_put_noalpha
call sub_CEF2
cmp byte_2429B, 10h
jnb short loc_C9D0
@ -3935,9 +3935,9 @@ sub_CB30 proc near
push bp
mov bp, sp
push si
push 400040h
push (64 shl 16) or 64
push 0
call sub_14C7C
call _cdg_put_noalpha
call sub_CF50
call grcg_setcolor pascal, (GC_RMW shl 16) + 7
push 0D10010h
@ -4131,9 +4131,9 @@ sub_CC9E endp
sub_CD1C proc near
push bp
mov bp, sp
push 600010h
push (96 shl 16) or 16
push 0
call sub_14C7C
call _cdg_put_noalpha
call sub_CFBA
call sub_CC9E
mov byte_2C92C, 9
@ -4647,10 +4647,7 @@ arg_4 = word ptr 8
push bp
mov bp, sp
push [bp+arg_4]
push [bp+arg_2]
push 10h
call sub_14C7C
call _cdg_put_noalpha pascal, [bp+arg_4], [bp+arg_2], 16
call sub_E6E8
mov ah, [bp+arg_0]
call sub_E6EE
@ -4762,9 +4759,9 @@ loc_D124:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 200010h
push 10h
call sub_14C7C
push (32 shl 16) or 16
push 16
call _cdg_put_noalpha
loc_D142:
mov byte_24498, 0
@ -4842,9 +4839,9 @@ loc_D1B0:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 2000DDh
push 10h
call sub_14C7C
push (32 shl 16) or 221
push 16
call _cdg_put_noalpha
loc_D1CE:
mov byte_24498, 0Fh
@ -4923,9 +4920,9 @@ loc_D23E:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 600048h
push 10h
call sub_14C7C
push (96 shl 16) or 72
push 16
call _cdg_put_noalpha
loc_D25C:
mov byte_24498, 9
@ -5000,9 +4997,9 @@ loc_D2C7:
mov dx, 7Ch
mov al, GC_OFF
out dx, al
push 200010h
push 10h
call sub_14C7C
push (32 shl 16) or 16
push 16
call _cdg_put_noalpha
loc_D2E5:
mov byte_24498, 0Fh
@ -6132,9 +6129,9 @@ loc_DAFB:
; ---------------------------------------------------------------------------
loc_DB0A:
push 200100h
push 11h
call sub_14C7C
push (32 shl 16) or 256
push 17
call _cdg_put_noalpha
call sub_E950
call sub_DA25
call grcg_setcolor pascal, (GC_RMW shl 16) + 6
@ -20864,74 +20861,7 @@ include th03/formats/hfliplut.asm
include th04/snd/pmd_res.asm
include th02/snd/mmd_res.asm
include th04/snd/detmodes.asm
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_14C7C proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
push ds
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
add ax, 3800h
push ax
sub ax, 2800h
push ax
sub ax, 800h
push ax
mov si, [bp+arg_0]
shl si, 4
add si, 307Eh
mov bx, [bp+arg_4]
sar bx, 3
add bx, [si+6]
mov ax, [si+8]
mov bp, ax
shl ax, 2
add ax, 50h ; 'P'
mov dx, ax
mov ax, [si+0Eh]
mov ds, ax
xor si, si
mov al, 4
cld
nop
loc_14CC8:
mov di, bx
loc_14CCA:
mov cx, bp
rep movsd
sub di, dx
jns short loc_14CCA
dec al
jz short loc_14CDA
pop es
jmp short loc_14CC8
; ---------------------------------------------------------------------------
loc_14CDA:
pop ds
pop di
pop si
pop bp
retf 6
sub_14C7C endp
include th04/formats/cdg_put_noalpha.asm
include th04/snd/se.asm
include th04/formats/cdg_put.asm

87
th05_maine.asm
View File

@ -7050,7 +7050,7 @@ sub_DCFC proc near
var_4 = word ptr -4
var_2 = word ptr -2
arg_0 = word ptr 4
arg_2 = word ptr 6
@@slot = word ptr 6
arg_4 = word ptr 8
arg_6 = word ptr 0Ah
@ -7082,10 +7082,7 @@ arg_6 = word ptr 0Ah
mov word_151C4, ax
mov word_151C6, 0
inc word_11848
push [bp+arg_6]
push di
push [bp+arg_2]
call sub_EA6E
call _cdg_put_noalpha pascal, [bp+arg_6], di, [bp+@@slot]
mov [bp+var_2], 0
jmp short loc_DDB1
; ---------------------------------------------------------------------------
@ -7237,7 +7234,7 @@ sub_DE74 proc near
var_4 = word ptr -4
var_2 = word ptr -2
arg_0 = word ptr 4
arg_2 = word ptr 6
@@slot = word ptr 6
arg_4 = word ptr 8
arg_6 = word ptr 0Ah
@ -7269,10 +7266,7 @@ arg_6 = word ptr 0Ah
mov word_151C8, ax
mov word_151CA, 0
inc word_1184A
push [bp+arg_6]
push di
push [bp+arg_2]
call sub_EA6E
call _cdg_put_noalpha pascal, [bp+arg_6], di, [bp+@@slot]
mov [bp+var_2], 0
jmp short loc_DF29
; ---------------------------------------------------------------------------
@ -8516,78 +8510,7 @@ loc_EA68:
retn
sub_EA5E endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_EA6E proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
push ds
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
assume es:nothing
add ax, 3800h
push ax
sub ax, 2800h
push ax
sub ax, 800h
push ax
mov si, [bp+arg_0]
shl si, 4
add si, 29FEh
mov bx, [bp+arg_4]
sar bx, 3
add bx, [si+6]
mov ax, [si+8]
mov bp, ax
shl ax, 2
add ax, 50h ; 'P'
mov dx, ax
mov ax, [si+0Eh]
mov ds, ax
xor si, si
mov al, 4
cld
nop
loc_EABA:
mov di, bx
loc_EABC:
mov cx, bp
rep movsd
sub di, dx
jns short loc_EABC
dec al
jz short loc_EACC
pop es
jmp short loc_EABA
; ---------------------------------------------------------------------------
loc_EACC:
pop ds
pop di
pop si
pop bp
retf 6
sub_EA6E endp
; ---------------------------------------------------------------------------
nop
include th04/formats/cdg_put_noalpha.asm
include th04/snd/se.asm
; =============== S U B R O U T I N E =======================================

80
th05_op.asm
View File

@ -4707,7 +4707,7 @@ loc_CF59:
push ax
mov al, byte ptr word_14118
mov ah, 0
add ax, 28h ; '('
add ax, 40
push ax
jmp short loc_CF8C
; ---------------------------------------------------------------------------
@ -4717,10 +4717,10 @@ loc_CF82:
push ax
lea ax, [di-8]
push ax
push 2Dh ; '-'
push 45
loc_CF8C:
call sub_D590
call _cdg_put_noalpha
call grcg_setcolor pascal, (GC_RMW shl 16) + 1
lea ax, [si+0D8h]
mov bx, 8
@ -4801,10 +4801,10 @@ loc_D012:
loc_D050:
push si
push di
push 2Dh ; '-'
push 45
loc_D054:
call sub_D590
call _cdg_put_noalpha
mov al, byte ptr word_14118
mov ah, 0
imul ax, 5
@ -5360,75 +5360,7 @@ loc_D58A:
retn
sub_D580 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_D590 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
push ds
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
assume es:nothing
add ax, 3800h
push ax
sub ax, 2800h
push ax
sub ax, 800h
push ax
mov si, [bp+arg_0]
shl si, 4
add si, 3A96h
mov bx, [bp+arg_4]
sar bx, 3
add bx, [si+6]
mov ax, [si+8]
mov bp, ax
shl ax, 2
add ax, 50h ; 'P'
mov dx, ax
mov ax, [si+0Eh]
mov ds, ax
xor si, si
mov al, 4
cld
nop
loc_D5DC:
mov di, bx
loc_D5DE:
mov cx, bp
rep movsd
sub di, dx
jns short loc_D5DE
dec al
jz short loc_D5EE
pop es
jmp short loc_D5DC
; ---------------------------------------------------------------------------
loc_D5EE:
pop ds
pop di
pop si
pop bp
retf 6
sub_D590 endp
include th04/formats/cdg_put_noalpha.asm
include th04/snd/se.asm
; =============== S U B R O U T I N E =======================================