 | Код: PP0 = 0
PP0H = 1
PP0HH = 2
PP0HHH = 3
PP2 = 4
PP2H = 5
PP2HH = 6
PP2HHH = 7
PP3 = 8
PPZ = 9
PPZH = 10
PPZHH = 11
PPZHHH = 12
_A = 13
_AH = 14
_B = 15
_BH = 16
_C = 17
_CH = 18
_CHH = 19
_CHHH = 20
proton#code#start
org 0
goto proton#main#start
org 8
AL@MUL
movff 3,12
movff 2,11
movff 1,10
movff 0,9
movf 11,W,0
mulwf 4,0
movff 4083,2
movff 4084,3
movf 10,W,0
mulwf 5,0
movf 4083,W,0
addwf 2,F,0
movf 4084,W,0
addwfc 3,F,0
movf 9,W,0
mulwf 6,0
movf 4083,W,0
addwf 2,F,0
movf 4084,W,0
addwfc 3,F,0
movf 12,W,0
mulwf 4,0
movf 4083,W,0
addwf 3,F,0
movf 11,W,0
mulwf 5,0
movf 4083,W,0
addwf 3,F,0
movf 10,W,0
mulwf 6,0
movf 4083,W,0
addwf 3,F,0
movf 9,W,0
mulwf 7,0
movf 4083,W,0
addwf 3,F,0
movf 9,W,0
mulwf 4,0
movff 4083,0
movff 4084,1
movf 10,W,0
mulwf 4,0
movf 4083,W,0
addwf 1,F,0
movf 4084,W,0
addwfc 2,F,0
movlw 0
addwfc 3,F,0
movf 9,W,0
mulwf 5,0
movf 4083,W,0
addwf 1,F,0
movf 4084,W,0
addwfc 2,F,0
movlw 0
addwfc 3,F,0
return
proton#main#start
clrf 4088,0
clrf 4011,0
movlb 0
F2_SOF equ $ ; MULTEST.PRP
F2_EOF equ $ ; MULTEST.PRP
F1_SOF equ $ ; MULTEST.BAS
main
F1_000021 equ $ ; IN [MULTEST.BAS] C=A * B
movff _A,PP0
movff _AH,PP0H
clrf PP0HH,0
clrf PP0HHH,0
movff _B,PP2
movff _BH,PP2H
clrf PP2HH,0
clrf PP2HHH,0
f@call AL@MUL
movff PP0HHH,_CHHH
movff PP0HH,_CHH
movff PP0H,_CH
movff PP0,_C
F1_000023 equ $ ; IN [MULTEST.BAS] GOTO MAIN
F@JUMP main
F1_EOF equ $ ; MULTEST.BAS
PB@LB2
bra PB@LB2 | |
на PIC12,16 и 18 сериите, да мине направо на PIC24 примерно. Явно е писал за AVR и ги е разбрал и сега му е трудно да възприеме 8-битовите пикове. 
