what the name of this programming language
org 0x00
movf 0 * 20 w;w=X
movwf 0 * 26 ;y=x-w
clr 0x27
movf 0 * 20 ;w=x btfsc 0x20,7
sublw 0x00 ; w = - x = 0 - w
bsf STATUS,RP1;BANK2[0x122] movwf 0 * 122 ;a-abs(x)
b=a<<3;
movf 0x122,w
bsf STATUS,RP1 bef STATUS,RPO
movwf OxA2
clr 0xA3
rlf 0xA2,f
rlf OxA3,f
rlf 0xA2,f
rlf 0xA3,f
rlf OxA2,f
rlf OxA3,f
movlw b'11111000'
andwf OxA2,f
movlw OxB6
addwf OxA2, w
c=b+950;
bsf STATUS,RP1
bcf STATUS,RPO
movwf Ox150
bsf STATUS,RPO
bcf STATUS,RP1 
movlw 0x03 
addwf OxA3,w 
bsf STATUS,RP1 
bcf STATUS,RPO 
movwf Ox151 
end