eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Debug turned off for now until I finish debugging Zmodem later

This commit is contained in:
mysticbbs 2012-08-13 18:54:19 -04:00
parent c91a1c93cb
commit fea713a7a9
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mdl/m_ops.pas
View File

@ -28,8 +28,8 @@
------------------------------------------------------------------------- -------------------------------------------------------------------------
} }
{$DEFINE DEBUG} {.$DEFINE DEBUG}
{.$DEFINE RELEASE} {$DEFINE RELEASE}
{.$DEFINE LOGGING} {.$DEFINE LOGGING}
{ ------------------------------------------------------------------------- } { ------------------------------------------------------------------------- }

17
mdl/m_protocol_zmodem.pas
View File

@ -2,7 +2,7 @@ Unit m_Protocol_Zmodem;
{$I M_OPS.PAS} {$I M_OPS.PAS}
{$DEFINE ZDEBUG} {.$DEFINE ZDEBUG}
Interface Interface
@ -196,7 +196,7 @@ Begin
Status.Protocol := 'Zmodem'; Status.Protocol := 'Zmodem';
LastSent := 0; LastSent := 0;
EscapeAll := False; EscapeAll := True;
Attn := ''; Attn := '';
End; End;
@ -304,11 +304,12 @@ Begin
ZRUB0 : Result := $007F; ZRUB0 : Result := $007F;
ZRUB1 : Result := $00FF; ZRUB1 : Result := $00FF;
Else Else
If Result >= 0 Then If ((Result AND $60) = $40) Then
If ((Result AND $60) = $40) Then Result := Result XOR $40
Result := Result XOR $40 Else Begin
Else Result := ZERROR;
Result := ZERROR; {$IFDEF ZDEBUG} ZLog('ZDLRead -> Got ZERROR'); {$ENDIF}
End;
End; End;
End; End;
@ -1399,7 +1400,7 @@ ErrorCRC16:
End; End;
End; End;
{$IFDEF ZDEBUG} ZLog('ZReceiveData -> Long packet (frameidx=' + strI2S(RxFrameIdx) + '; rxcount=' + strI2S(RxCount) + ')'); {$ENDIF} {$IFDEF ZDEBUG} ZLog('ZReceiveData -> Long packet (frameidx=' + HeaderType(RxFrameIdx) + '; rxcount=' + strI2S(RxCount) + ')'); {$ENDIF}
ZReceiveData := ZERROR; ZReceiveData := ZERROR;
End; End;