blob: b2e87f236d3f27c040b4ce90fc6e3827ea07c7c4 [file] [log] [blame]
;; -----------------------------------------------------------------------
;; Copyright 1994-2008 H. Peter Anvin - All Rights Reserved
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, Inc., 53 Temple Place Ste 330,
;; Boston MA 02111-1307, USA; either version 2 of the License, or
;; (at your option) any later version; incorporated herein by reference.
;; -----------------------------------------------------------------------
;; Load a file into high memory
section .text
; load_high: loads (the remainder of) a file into high memory.
; This routine prints dots for each 64K transferred, and
; calls abort_check periodically.
; The xfer_buf_seg is used as a bounce buffer.
; The input address (EDI) should be dword aligned, and the final
; stretch is padded with zeroes if necessary.
; Inputs: SI = file handle/cluster pointer
; EDI = target address in high memory
; EAX = size of remaining file in bytes
; DX = zero-padding mask (e.g. 0003h for pad to dword)
; BX = subroutine to call at the top of each loop
; (to print status and check for abort)
; Outputs: SI = file handle/cluster pointer
; EDI = first untouched address (not including padding)
push es ; <AAA> ES
mov cx,xfer_buf_seg
mov es,cx
and si,si ; If SI == 0 then we have end of file
jz .eof
call bx
push bx ; <AA> Pausebird function
push eax ; <A> Total bytes to transfer
cmp eax,(1 << 16) ; Max 64K in one transfer
jna .size_ok
mov eax,(1 << 16)
push eax ; <B> Bytes transferred this chunk
add eax,SECTOR_SIZE-1
shr eax,SECTOR_SHIFT ; Convert to sectors
; Now (e)ax contains the number of sectors to get
push edi ; <C> Target buffer
mov cx,ax
xor bx,bx ; ES:0
call getfssec ; Load the data into xfer_buf_seg
pop edi ; <C> Target buffer
pop ecx ; <B> Byte count this round
push ecx ; <B> Byte count this round
push edi ; <C> Target buffer
test cx,dx
jz .noslop
; The last dword fractional - pad with zeroes
; Zero-padding is critical for multi-file initramfs.
mov byte [es:ecx],0
inc ecx
jmp short .fix_slop
push esi ; <D> File handle/cluster pointer
mov esi,(xfer_buf_seg << 4) ; Source address
call bcopy ; Copy to high memory
pop esi ; <D> File handle/cluster pointer
pop edi ; <C> Target buffer
pop ecx ; <B> Byte count this round
pop eax ; <A> Total bytes to transfer
add edi,ecx
sub eax,ecx
pop bx ; <AA> Pausebird function
jnz .read_loop ; More to read...
pop es ; <AAA> ES
push ax
mov al,'.'
call writechr
pop ax
jmp abort_check ; Handles the return