2017-01-23 18:20:33 +00:00
|
|
|
; Frees the CDG images in all slots.
|
|
|
|
|
2019-09-15 16:23:33 +00:00
|
|
|
; void pascal cdg_freeall(void);
|
|
|
|
public CDG_FREEALL
|
2019-09-15 14:22:36 +00:00
|
|
|
cdg_freeall proc near
|
2017-01-23 18:20:33 +00:00
|
|
|
push bp
|
|
|
|
mov bp, sp
|
|
|
|
push si
|
|
|
|
xor si, si
|
|
|
|
jmp short @@done?
|
|
|
|
|
|
|
|
@@loop:
|
2019-09-15 14:22:36 +00:00
|
|
|
call cdg_free pascal, si
|
2017-01-23 18:20:33 +00:00
|
|
|
inc si
|
|
|
|
|
|
|
|
@@done?:
|
|
|
|
cmp si, CDG_SLOT_COUNT
|
|
|
|
jl short @@loop
|
|
|
|
pop si
|
|
|
|
pop bp
|
|
|
|
retn
|
2019-09-15 14:22:36 +00:00
|
|
|
cdg_freeall endp
|