[T.....X]

#programowanie

Mirki, w jakim języku programowania to napisane? Poniżej fragmenty:

\ #bits SAVEBIT
\NUMBER OF BITS IN THE CHARACTER
: #bits ( --n)
databits parity @ if 1+ then ( parity )
strict @ if sbits @ + then ( stop ) ;

:GETBIT ( -- bit )
seekhalf high?
dup if (get second half cycle )
seekhalf high? not if badpattern then
then
negate ;

: ?STOPBIT ( -- )
strict @ if
1 databits + parity @ if 1+ then
sbits @ 0 do
dup bits c@ 1- if s" stopbit" missing then
1+
loop drop
then ;

[rrobot]

@TeslaX: klik

[T.....X]

@rrobot: O cholera ( ͡° ʖ̯ ͡°) ciężko będzie przepisać na coś współczesnego