org   4084
3a 83 40   ld    a, (4083)
47         ld    b, a
3a 82 40   ld    a, (4082)
a0         and   b
00         nop            ; negate and shift instructions take 2 bytes
06 00      ld    b, 0
4f         ld    c, a     ; value in BC reg pair is returned to BASIC
c9         ret