RAM    equ 0000h
THIS   equ 0010h
END    equ 0020h
SCSR   equ 2Eh
PORTB  equ 1004h      ; address of PORTB register