[an error occurred while processing this directive]
[an error occurred while processing this directive]
|
GET_PLAY CALL GETPLAY00
MOVWF PLAY_UNIT
MOVLW H'02'; - 2 это pclath вызвавшей процедуры, иначе вернётесь чёрте-куда:))
MOVWF PCLATH
MOVF PLAY_UNIT,W
RETURNGETPLAY00 MOVF PLAY_PAGE,W
MOVWF PCLATH
INCF PLAY_PTR,F
BTFSC STATUS,Z
INCF PLAY_PAGE,F
DECF PLAY_PTR,W
MOVWF PCLDEMO_FILE
INCLUDE DEMO.LPC
Ну и эта, инициализировать не забудьте вначале:))
MOVLW HIGH DEMO_FILE
MOVWF PLAY_PAGE
MOVLW LOW DEMO_FILE
MOVWF PLAY_PTR
Удачи.
PS: естественно размер и пересечение XXff тут побоку.
E-mail: info@telesys.ru