10 ; ›20 ; UNPACKING DATA›30 ;›40 PKDBYT=$C0›50 LONYB=$C1›60 HINYB=$C2›70 ;›80  *=$0600›90 ;›0100  LDA #$45; OR ANYTHING ELSE›0110  STA PKDBYT›0120  LDA #0; CLEAR LONYB AND HINYB›0130  STA LONYB›0140  STA HINYB›0150 ;›0160  LDA PKDBYT›0165  PHA; SAVE IT ON THE STACK›0170  AND #$0F; BINARY 0000 1111›0180  STA LONYB; LOW NYBBLE›0190  PLA; PULL PKDBYT OFF THE STACK›0200  LSR A›0210  LSR A›0220  LSR A›0230  LSR A›0240  STA HINYB; HIGH NYBBLE›0250  RTS››