#83 TCPIPReadTCP and rrMoreFlag

[Kelvin Sherlock]

I.TCP.S, READTCP:NORETURN

 LDY #rrMoreFlag
 LDA :WORKLEN
 STA [tcRESPONSEBUFFPTR],Y
 INY
 INY
 LDA :WORKLEN+2
 STA [tcRESPONSEBUFFPTR],Y
 ```

 This is attempting to use the `:WORKLEN` (which is the handle size) to set the `rrMoreFlag` field.  However, `rrMoreFlag` is 16-bit so it overflows into `rrPushFlag`.

I would expect something like:

LDY #rrMoreFlag
LDA :WORKLEN
ORA :WORKLEN+2
STA [tcRESPONSEBUFFPTR],Y
```

[Andrew Roughan]

Ouch.
https://sourceforge.net/p/marinetti/code/HEAD/tree/trunk/MOSP/Marinetti/Init/I.TCP.S#l1194

[Andrew Roughan]

Duplicate? or regression?
https://sourceforge.net/p/marinetti/bugs/61/

[Kelvin Sherlock]

It is a duplicate :)