|
@@ -479,14 +479,14 @@ end;
|
|
If ((amount >= 4) and
|
|
If ((amount >= 4) and
|
|
((offs and 3) = 0)) or
|
|
((offs and 3) = 0)) or
|
|
(amount >= 4+4-(offs and 3)) Then
|
|
(amount >= 4+4-(offs and 3)) Then
|
|
- { allign target }
|
|
|
|
|
|
+ { align target }
|
|
Begin
|
|
Begin
|
|
If (offs and 3) <> 0 then
|
|
If (offs and 3) <> 0 then
|
|
{ this cannot go past a window boundary bacause the }
|
|
{ this cannot go past a window boundary bacause the }
|
|
{ size of a window is always a multiple of 4 }
|
|
{ size of a window is always a multiple of 4 }
|
|
Begin
|
|
Begin
|
|
{$ifdef logging}
|
|
{$ifdef logging}
|
|
- LogLn('Alligning by reading '+strf(4-(offs and 3))+' pixels');
|
|
|
|
|
|
+ LogLn('Aligning by reading '+strf(4-(offs and 3))+' pixels');
|
|
{$endif logging}
|
|
{$endif logging}
|
|
for l := 1 to 4-(offs and 3) do
|
|
for l := 1 to 4-(offs and 3) do
|
|
WordArray(Data)[index+l-1] :=
|
|
WordArray(Data)[index+l-1] :=
|
|
@@ -498,7 +498,7 @@ end;
|
|
{$ifdef logging}
|
|
{$ifdef logging}
|
|
LogLn('Offset is now '+hexstr(offs,8)+', amount left: '+strf(amount));
|
|
LogLn('Offset is now '+hexstr(offs,8)+', amount left: '+strf(amount));
|
|
{$endif logging}
|
|
{$endif logging}
|
|
- { offs is now 4-bytes alligned }
|
|
|
|
|
|
+ { offs is now 4-bytes aligned }
|
|
If amount <= ($10000-(Offs and $ffff)) Then
|
|
If amount <= ($10000-(Offs and $ffff)) Then
|
|
bankrest := amount
|
|
bankrest := amount
|
|
else {the rest won't fit anymore in the current window }
|
|
else {the rest won't fit anymore in the current window }
|
|
@@ -605,7 +605,7 @@ end;
|
|
{ size of a window is always a multiple of 4 }
|
|
{ size of a window is always a multiple of 4 }
|
|
Begin
|
|
Begin
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
- LogLn('Alligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
|
|
|
|
+ LogLn('Aligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
{$endif logging2}
|
|
{$endif logging2}
|
|
for l := 1 to 4-(offs and 3) do
|
|
for l := 1 to 4-(offs and 3) do
|
|
Mem[WinWriteSeg:word(offs)+l-1] :=
|
|
Mem[WinWriteSeg:word(offs)+l-1] :=
|
|
@@ -616,7 +616,7 @@ end;
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
{$endif logging}
|
|
{$endif logging}
|
|
- { offs is now 4-bytes alligned }
|
|
|
|
|
|
+ { offs is now 4-bytes aligned }
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
bankrest := HLength
|
|
bankrest := HLength
|
|
else {the rest won't fit anymore in the current window }
|
|
else {the rest won't fit anymore in the current window }
|
|
@@ -669,7 +669,7 @@ end;
|
|
If ((HLength >= 4) and
|
|
If ((HLength >= 4) and
|
|
((offs and 3) = 0)) or
|
|
((offs and 3) = 0)) or
|
|
(HLength >= 4+4-(offs and 3)) Then
|
|
(HLength >= 4+4-(offs and 3)) Then
|
|
- { allign target }
|
|
|
|
|
|
+ { align target }
|
|
Begin
|
|
Begin
|
|
l := 0;
|
|
l := 0;
|
|
If (offs and 3) <> 0 then
|
|
If (offs and 3) <> 0 then
|
|
@@ -677,7 +677,7 @@ end;
|
|
{ size of a window is always a multiple of 4 }
|
|
{ size of a window is always a multiple of 4 }
|
|
Begin
|
|
Begin
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
- LogLn('Alligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
|
|
|
|
+ LogLn('Aligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
{$endif logging}
|
|
{$endif logging}
|
|
for l := 1 to 4-(offs and 3) do
|
|
for l := 1 to 4-(offs and 3) do
|
|
Mem[WinWriteSeg:word(offs)+l-1] :=
|
|
Mem[WinWriteSeg:word(offs)+l-1] :=
|
|
@@ -688,7 +688,7 @@ end;
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
{$endif logging}
|
|
{$endif logging}
|
|
- { offs is now 4-bytes alligned }
|
|
|
|
|
|
+ { offs is now 4-bytes aligned }
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
bankrest := HLength
|
|
bankrest := HLength
|
|
else {the rest won't fit anymore in the current window }
|
|
else {the rest won't fit anymore in the current window }
|
|
@@ -741,7 +741,7 @@ end;
|
|
If ((HLength >= 4) and
|
|
If ((HLength >= 4) and
|
|
((offs and 3) = 0)) or
|
|
((offs and 3) = 0)) or
|
|
(HLength >= 4+4-(offs and 3)) Then
|
|
(HLength >= 4+4-(offs and 3)) Then
|
|
- { allign target }
|
|
|
|
|
|
+ { align target }
|
|
Begin
|
|
Begin
|
|
l := 0;
|
|
l := 0;
|
|
If (offs and 3) <> 0 then
|
|
If (offs and 3) <> 0 then
|
|
@@ -749,7 +749,7 @@ end;
|
|
{ size of a window is always a multiple of 4 }
|
|
{ size of a window is always a multiple of 4 }
|
|
Begin
|
|
Begin
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
- LogLn('Alligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
|
|
|
|
+ LogLn('Aligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
{$endif logging}
|
|
{$endif logging}
|
|
for l := 1 to 4-(offs and 3) do
|
|
for l := 1 to 4-(offs and 3) do
|
|
Mem[WinWriteSeg:word(offs)+l-1] :=
|
|
Mem[WinWriteSeg:word(offs)+l-1] :=
|
|
@@ -764,7 +764,7 @@ end;
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
{$endif logging}
|
|
{$endif logging}
|
|
- { offs is now 4-bytes alligned }
|
|
|
|
|
|
+ { offs is now 4-bytes aligned }
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
bankrest := HLength
|
|
bankrest := HLength
|
|
else {the rest won't fit anymore in the current window }
|
|
else {the rest won't fit anymore in the current window }
|
|
@@ -814,7 +814,7 @@ end;
|
|
If ((HLength >= 4) and
|
|
If ((HLength >= 4) and
|
|
((offs and 3) = 0)) or
|
|
((offs and 3) = 0)) or
|
|
(HLength >= 4+4-(offs and 3)) Then
|
|
(HLength >= 4+4-(offs and 3)) Then
|
|
- { allign target }
|
|
|
|
|
|
+ { align target }
|
|
Begin
|
|
Begin
|
|
l := 0;
|
|
l := 0;
|
|
If (offs and 3) <> 0 then
|
|
If (offs and 3) <> 0 then
|
|
@@ -822,7 +822,7 @@ end;
|
|
{ size of a window is always a multiple of 4 }
|
|
{ size of a window is always a multiple of 4 }
|
|
Begin
|
|
Begin
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
- LogLn('Alligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
|
|
|
|
+ LogLn('Aligning by drawing '+strf(4-(offs and 3))+' pixels');
|
|
{$endif logging}
|
|
{$endif logging}
|
|
for l := 1 to 4-(offs and 3) do
|
|
for l := 1 to 4-(offs and 3) do
|
|
Mem[WinWriteSeg:word(offs)+l-1] := Byte(Mask);
|
|
Mem[WinWriteSeg:word(offs)+l-1] := Byte(Mask);
|
|
@@ -832,7 +832,7 @@ end;
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(hlength));
|
|
{$endif logging}
|
|
{$endif logging}
|
|
- { offs is now 4-bytes alligned }
|
|
|
|
|
|
+ { offs is now 4-bytes aligned }
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
If HLength <= ($10000-(Offs and $ffff)) Then
|
|
bankrest := HLength
|
|
bankrest := HLength
|
|
else {the rest won't fit anymore in the current window }
|
|
else {the rest won't fit anymore in the current window }
|
|
@@ -1113,7 +1113,7 @@ end;
|
|
{$ifdef logging2}
|
|
{$ifdef logging2}
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(amount));
|
|
LogLn('Offset is now '+hexstr(offs,8)+', length left: '+strf(amount));
|
|
{$endif logging2}
|
|
{$endif logging2}
|
|
- { offs is now 8-bytes alligned }
|
|
|
|
|
|
+ { offs is now 8-bytes aligned }
|
|
If amount <= ($10000-(Offs and $ffff)) Then
|
|
If amount <= ($10000-(Offs and $ffff)) Then
|
|
bankrest := amount
|
|
bankrest := amount
|
|
else {the rest won't fit anymore in the current window }
|
|
else {the rest won't fit anymore in the current window }
|