asm file

[rashid]

if i take an asm file and insert it into editor window and i start line with asm and end with end asm.
after compiling i get errors.

errors are 108 and 118

can anybody shed some light on this

regards

rashid

Hi, its great to see you visiting our forum. Why not try Proton Compiler for FREE? Download the FREE version of Proton Compiler, Its called Amicus18 and its available from HERE Already using proton Compiler??? Get rid of these pesky messages... get LICENSED USER STATUS

[analogdevice]

Post the asm code.

[rashid]

;----------------------------------------------------------
; Code Produced by the Proton 3.5.0.6
; Copyright Rosetta Technologies/Crownhill Associates Ltd
; Written by Les Johnson. June 2010
;----------------------------------------------------------
;
LIST P = 16F877, F = INHX8M, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255
INDF EQU 0X0000
TMR0 EQU 0X0001
PCL EQU 0X0002
STATUS EQU 0X0003
FSR EQU 0X0004
PORTA EQU 0X0005
PORTB EQU 0X0006
PORTC EQU 0X0007
PORTD EQU 0X0008
PORTE EQU 0X0009
PCLATH EQU 0X000A
INTCON EQU 0X000B
PIR1 EQU 0X000C
PIR2 EQU 0X000D
TMR1L EQU 0X000E
TMR1LH EQU 0X000F
TMR1H EQU 0X000F
T1CON EQU 0X0010
TMR2 EQU 0X0011
T2CON EQU 0X0012
SSPBUF EQU 0X0013
SSPCON EQU 0X0014
CCPR1L EQU 0X0015
CCPR1LH EQU 0X0016
CCPR1H EQU 0X0016
CCP1CON EQU 0X0017
RCSTA EQU 0X0018
TXREG EQU 0X0019
RCREG EQU 0X001A
CCPR2L EQU 0X001B
CCPR2LH EQU 0X001C
CCPR2H EQU 0X001C
CCP2CON EQU 0X001D
ADRESLH EQU 0X001E
ADRESH EQU 0X001E
ADCON0 EQU 0X001F
OPTION_REG EQU 0X0081
TRISA EQU 0X0085
TRISB EQU 0X0086
TRISC EQU 0X0087
TRISD EQU 0X0088
TRISE EQU 0X0089
PIE1 EQU 0X008C
PIE2 EQU 0X008D
PCON EQU 0X008E
SSPCON2 EQU 0X0091
PR2 EQU 0X0092
SSPADD EQU 0X0093
SSPSTAT EQU 0X0094
TXSTA EQU 0X0098
SPBRG EQU 0X0099
ADRESL EQU 0X009E
ADCON1 EQU 0X009F
EEDATL EQU 0X010C
EEDATA EQU 0X010C
EEDAT EQU 0X010C
EEADR EQU 0X010D
EEDATLH EQU 0X010E
EEDATH EQU 0X010E
EEADRH EQU 0X010F
EECON1 EQU 0X018C
EECON2 EQU 0X018D
_I2C_SCL_PORT = TRISC
_I2C_SCL_PIN = 3
_I2C_SDA_PORT = TRISC
_I2C_SDA_PIN = 4
IRP=7
RP1=6
RP0=5
NOT_TO=4
NOT_PD=3
Z=2
DC=1
C=0
GIE=7
PEIE=6
T0IE=5
INTE=4
RBIE=3
T0IF=2
INTF=1
RBIF=0
PSPIF=7
ADIF=6
RCIF=5
PP_RCIF=5
TXIF=4
PP_TXIF=4
SSPIF=3
CCP1IF=2
TMR2IF=1
TMR1IF=0
EEIF=4
BCLIF=3
CCP2IF=0
T1CKPS1=5
T1CKPS0=4
T1OSCEN=3
NOT_T1SYNC=2
T1INSYNC=2
T1SYNC=2
TMR1CS=1
TMR1ON=0
TOUTPS3=6
TOUTPS2=5
TOUTPS1=4
TOUTPS0=3
TMR2ON=2
PP_TMR2ON=2
T2CKPS1=1
PP_T2CKPS1=1
T2CKPS0=0
PP_T2CKPS0=0
WCOL=7
SSPOV=6
SSPEN=5
CKP=4
SSPM3=3
SSPM2=2
SSPM1=1
SSPM0=0
CCP1X=5
CCP1Y=4
CCP1M3=3
CCP1M2=2
CCP1M1=1
CCP1M0=0
SPEN=7
RX9=6
RC9=6
NOT_RC8=6
RC8_9=6
SREN=5
CREN=4
PP_CREN=4
ADDEN=3
FERR=2
OERR=1
PP_OERR=1
RX9D=0
RCD8=0
CCP2X=5
CCP2Y=4
CCP2M3=3
CCP2M2=2
CCP2M1=1
CCP2M0=0
ADCS1=7
ADCS0=6
CHS2=5
CHS1=4
CHS0=3
GO=2
NOT_DONE=2
GO_DONE=2
PP_GO_DONE=2
ADON=0
NOT_RBPU=7
INTEDG=6
T0CS=5
T0SE=4
PSA=3
PS2=2
PS1=1
PS0=0
IBF=7
OBF=6
IBOV=5
PSPMODE=4
TRISE2=2
TRISE1=1
TRISE0=0
PSPIE=7
ADIE=6
RCIE=5
TXIE=4
SSPIE=3
CCP1IE=2
TMR2IE=1
TMR1IE=0
EEIE=4
BCLIE=3
CCP2IE=0
NOT_POR=1
NOT_BO=0
NOT_BOR=0
GCEN=7
ACKSTAT=6
PP_ACKSTAT=6
ACKDT=5
PP_ACKDT=5
ACKEN=4
PP_ACKEN=4
RCEN=3
PP_RCEN=3
PEN=2
PP_PEN=2
RSEN=1
PP_RSEN=1
SEN=0
PP_SEN=0
SMP=7
CKE=6
D=5
I2C_DATA=5
NOT_A=5
NOT_ADDRESS=5
D_A=5
DATA_ADDRESS=5
P=4
I2C_STOP=4
S=3
I2C_START=3
R=2
I2C_READ=2
NOT_W=2
NOT_WRITE=2
R_W=2
PP_R_W=2
READ_WRITE=2
UA=1
BF=0
PP_BF=0
CSRC=7
TX9=6
NOT_TX8=6
TX8_9=6
TXEN=5
SYNC=4
BRGH=2
TRMT=1
TX9D=0
TXD8=0
ADFM=7
PCFG3=3
PCFG2=2
PCFG1=1
PCFG0=0
EEPGD=7
PP_EEPGD=7
WRERR=3
WREN=2
PP_WREN=2
WR=1
PP_WR=1
RD=0
PP_RD=0
__MAXRAM 0X1FF
__BADRAM 0X8F-0X90, 0X95-0X97, 0X9A-0X9D
__BADRAM 0X105, 0X107-0X109
__BADRAM 0X185, 0X187-0X189, 0X18E-0X18F
CP_ALL EQU 0X0FCF
CP_HALF EQU 0X1FDF
CP_UPPER_256 EQU 0X2FEF
CP_OFF EQU 0X3FFF
DEBUG_ON EQU 0X37FF
DEBUG_OFF EQU 0X3FFF
WRTE_ON EQU 0X3FFF
WRT_ENABLE_ON EQU 0X3FFF
WRTE_OFF EQU 0X3DFF
WRT_ENABLE_OFF EQU 0X3DFF
CPD_ON EQU 0X3EFF
CPD_OFF EQU 0X3FFF
LVP_ON EQU 0X3FFF
LVP_OFF EQU 0X3F7F
BODEN_ON EQU 0X3FFF
BODEN_OFF EQU 0X3FBF
PWRTE_OFF EQU 0X3FFF
PWRTE_ON EQU 0X3FF7
WDT_ON EQU 0X3FFF
WDT_OFF EQU 0X3FFB
LP_OSC EQU 0X3FFC
XT_OSC EQU 0X3FFD
HS_OSC EQU 0X3FFE
RC_OSC EQU 0X3FFF
#DEFINE __16F877 1
#DEFINE XTAL 4
#DEFINE _CORE 14
#DEFINE _MAXRAM 368
#DEFINE _RAM_END 368
#DEFINE _MAXMEM 8192
#DEFINE _ADC 8
#DEFINE _ADC_RES 10
#DEFINE _EEPROM 256
#DEFINE _PAGES 4
#DEFINE _BANKS 3
#DEFINE RAM_BANKS 4
#DEFINE _USART 1
#DEFINE _USB 0
#DEFINE _FLASH 1
#DEFINE _CWRITE_BLOCK 1
#DEFINE BANK0_START 32
#DEFINE BANK0_END 127
#DEFINE BANK1_START 160
#DEFINE BANK1_END 239
#DEFINE BANK2_START 272
#DEFINE BANK2_END 367
#DEFINE BANK3_START 400
#DEFINE BANK3_END 495
#DEFINE _SYSTEM_VARIABLE_COUNT 14
RAM_BANK = 0
CURRENT@PAGE = 0
DEST@PAGE = 0
#DEFINE LCD#DTPORT PORTD
#DEFINE LCD#DTPIN 4
#DEFINE LCD#RSPORT PORTE
#DEFINE LCD#RSPIN 0
#DEFINE LCD#ENPORT PORTE
#DEFINE LCD#ENPIN 1
#DEFINE LCD#INTERFACE 4
#DEFINE LCD#LINES 2
#DEFINE LCD#TYPE 0
F@CALL MACRO DEST
IF (DEST < 1)
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ELSE
IF (DEST > $)
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ELSE
IF ((DEST & 6144) == 0)
CLRF 10
ELSE
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ENDIF
ENDIF
ENDIF
CALL DEST
ENDM
F@JUMP MACRO DEST
IF (DEST < 1)
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ELSE
IF (DEST > $)
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ELSE
IF ((DEST & 6144) == 0)
CLRF 10
ELSE
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ENDIF
ENDIF
ENDIF
GOTO DEST
ENDM
SET@PAGE MACRO DEST
IF ((DEST & 2048) == 0)
BCF 10,3
ELSE
BSF 10,3
ENDIF
IF ((DEST & 4096) == 0)
BCF 10,4
ELSE
BSF 10,4
ENDIF
ENDM
S@B MACRO VARIN
IF((VARIN & 384) == 0)
IF(RAM_BANK == 1)
BCF 3,5
ENDIF
IF(RAM_BANK == 2)
BCF 3,6
ENDIF
IF(RAM_BANK == 3)
BCF 3,5
BCF 3,6
ENDIF
RAM_BANK = 0
ENDIF
IF((VARIN & 384) == 128)
IF(RAM_BANK == 0)
BSF 3,5
ENDIF
IF(RAM_BANK == 2)
BSF 3,5
BCF 3,6
ENDIF
IF(RAM_BANK == 3)
BCF 3,6
ENDIF
RAM_BANK = 1
ENDIF
IF((VARIN & 384) == 256)
IF(RAM_BANK == 0)
BSF 3,6
ENDIF
IF(RAM_BANK == 1)
BCF 3,5
BSF 3,6
ENDIF
IF(RAM_BANK == 3)
BCF 3,5
ENDIF
RAM_BANK = 2
ENDIF
IF((VARIN & 384) == 384)
IF(RAM_BANK == 0)
BSF 3,5
BSF 3,6
ENDIF
IF(RAM_BANK == 1)
BSF 3,6
ENDIF
IF(RAM_BANK == 2)
BSF 3,5
ENDIF
RAM_BANK = 3
ENDIF
ENDM
R@B MACRO
IF((RAM_BANK & 1) != 0)
BCF 3,5
ENDIF
IF((RAM_BANK & 2) != 0)
BCF 3,6
ENDIF
RAM_BANK = 0
ENDM
JUMP MACRO PLABEL
GOTO PLABEL
ENDM
WREG_BYTE MACRO PBYTEOUT
S@B PBYTEOUT
MOVWF PBYTEOUT
R@B
ENDM
WREG_BIT MACRO PVAROUT,PBITOUT
S@B PVAROUT
ANDLW 1
BTFSC STATUS,2
BCF PVAROUT,PBITOUT
BTFSS STATUS,2
BSF PVAROUT,PBITOUT
R@B
ENDM
WREG_WORD MACRO PWORDOUT
S@B PWORDOUT
MOVWF PWORDOUT
S@B PWORDOUT+1
CLRF PWORDOUT+1
R@B
ENDM
WREG_DWORD MACRO PDWORDOUT
S@B PDWORDOUT+3
CLRF PDWORDOUT+3
S@B PDWORDOUT+2
CLRF PDWORDOUT+2
S@B PDWORDOUT+1
CLRF PDWORDOUT+1
S@B PDWORDOUT
MOVWF PDWORDOUT
R@B
ENDM
BYTE_WREG MACRO PBYTEIN
S@B PBYTEIN
MOVF PBYTEIN,W
R@B
ENDM
NUM_WREG MACRO PNUMIN
MOVLW (PNUMIN & 255)
ENDM
NUM_BYTE MACRO PNUMIN,PBYTEOUT
S@B PBYTEOUT
IF(PNUMIN == 0)
CLRF PBYTEOUT
ELSE
MOVLW (PNUMIN & 255)
MOVWF PBYTEOUT
ENDIF
R@B
ENDM
NUM_BIT MACRO PNUMIN,PVAROUT,PBITOUT
S@B PVAROUT
IF((PNUMIN & 1) == 1)
BSF PVAROUT,PBITOUT
ELSE
BCF PVAROUT,PBITOUT
ENDIF
R@B
ENDM
NUM_WORD MACRO PNUMIN,PWORDOUT
IF((PNUMIN & 255) == 0)
S@B PWORDOUT
CLRF PWORDOUT
ELSE
S@B PWORDOUT
MOVLW LOW (PNUMIN)
MOVWF PWORDOUT
ENDIF
IF(((PNUMIN >> 8) & 255) == 0)
S@B PWORDOUT+1
CLRF PWORDOUT+1
ELSE
S@B PWORDOUT+1
MOVLW HIGH (PNUMIN)
MOVWF PWORDOUT+1
ENDIF
R@B
ENDM
NUM_DWORD MACRO PNUMIN,PDWORDOUT
IF ((PNUMIN >> 24 & 255) == 0)
S@B PDWORDOUT+3
CLRF PDWORDOUT+3
ELSE
S@B PDWORDOUT+3
MOVLW ((PNUMIN >> 24) & 255)
MOVWF PDWORDOUT+3
ENDIF
IF( ((PNUMIN >> 16) & 255) == 0)
S@B PDWORDOUT+2
CLRF PDWORDOUT+2
ELSE
S@B PDWORDOUT+2
MOVLW ((PNUMIN >> 16) & 255)
MOVWF PDWORDOUT+2
ENDIF
IF( ((PNUMIN >> 8) & 255) == 0)
S@B PDWORDOUT+1
CLRF PDWORDOUT+1
ELSE
S@B PDWORDOUT+1
MOVLW HIGH (PNUMIN)
MOVWF PDWORDOUT+1
ENDIF
IF((PNUMIN & 255) == 0)
S@B PDWORDOUT
CLRF PDWORDOUT
ELSE
S@B PDWORDOUT
MOVLW LOW (PNUMIN)
MOVWF PDWORDOUT
ENDIF
R@B
ENDM
BIT_WREG MACRO PVARIN,PBITIN
S@B PVARIN
CLRW
BTFSC PVARIN,PBITIN
MOVLW 1
R@B
ENDM
BIT_BYTE MACRO PVARIN,PBITIN,PBYTEOUT
S@B PVARIN
CLRW
BTFSC PVARIN,PBITIN
MOVLW 1
S@B PBYTEOUT
MOVWF PBYTEOUT
R@B
ENDM
BIT_BIT MACRO PVARIN,PBITIN,PVAROUT,PBITOUT
IF((PVARIN & 65408) == (PVAROUT & 65408))
S@B PVAROUT
BTFSC PVARIN,PBITIN
BSF PVAROUT,PBITOUT
BTFSS PVARIN,PBITIN
BCF PVAROUT,PBITOUT
ELSE
S@B PVARIN
CLRDC
BTFSC PVARIN,PBITIN
SETDC
S@B PVAROUT
SKPNDC
BSF PVAROUT,PBITOUT
SKPDC
BCF PVAROUT,PBITOUT
ENDIF
ENDM
BIT_WORD MACRO PVARIN,PBITIN,PWORDOUT
S@B PWORDOUT+1
CLRF PWORDOUT+1
BIT_BYTE PVARIN,PBITIN,PWORDOUT
ENDM
BIT_DWORD MACRO PVARIN,PBITIN,PDWORDOUT
S@B PDWORDOUT+3
CLRF PDWORDOUT+3
S@B PDWORDOUT+2
CLRF PDWORDOUT+2
S@B PDWORDOUT+1
CLRF PDWORDOUT+1
BIT_BYTE PVARIN,PBITIN,PDWORDOUT
ENDM
WORD_WREG MACRO PWORDIN
BYTE_WREG PWORDIN
ENDM
WORD_BYTE MACRO PWORDIN,PBYTEOUT
BYTE_BYTE PWORDIN,PBYTEOUT
ENDM
WORD_BIT MACRO PWORDIN,PVAROUT,PBITOUT
BYTE_BIT PWORDIN, PVAROUT, PBITOUT
ENDM
WORD_WORD MACRO PWORDIN,PWORDOUT
S@B PWORDIN+1
MOVF PWORDIN+1,W
S@B PWORDOUT+1
MOVWF PWORDOUT+1
BYTE_BYTE PWORDIN,PWORDOUT
ENDM
WORD_DWORD MACRO PWORDIN,PDWORDOUT
S@B PDWORDOUT+3
CLRF PDWORDOUT+3
S@B PDWORDOUT+2
CLRF PDWORDOUT+2
BYTE_BYTE PWORDIN+1,PDWORDOUT+1
BYTE_BYTE PWORDIN,PDWORDOUT
ENDM
BYTE_BYTE MACRO PBYTEIN,PBYTEOUT
S@B PBYTEIN
MOVF PBYTEIN,W
S@B PBYTEOUT
MOVWF PBYTEOUT
R@B
ENDM
BYTE_WORD MACRO PBYTEIN,PWORDOUT
S@B PWORDOUT+1
CLRF PWORDOUT+1
BYTE_BYTE PBYTEIN,PWORDOUT
ENDM
BYTE_DWORD MACRO PBYTEIN,PDWORDOUT
S@B PDWORDOUT+3
CLRF PDWORDOUT+3
S@B PDWORDOUT+2
CLRF PDWORDOUT+2
S@B PDWORDOUT+1
CLRF PDWORDOUT+1
BYTE_BYTE PBYTEIN,PDWORDOUT
ENDM
BYTE_BIT MACRO PBYTEIN,PVAROUT,PBITOUT
IF((PBYTEIN & 65408) == (PVAROUT & 65408))
S@B PBYTEIN
BTFSC PBYTEIN,0
BSF PVAROUT,PBITOUT
BTFSS PBYTEIN,0
BCF PVAROUT,PBITOUT
ELSE
S@B PBYTEIN
RRF PBYTEIN,W
S@B PVAROUT
SKPNC
BSF PVAROUT,PBITOUT
SKPC
BCF PVAROUT,PBITOUT
ENDIF
R@B
ENDM
DWORD_WREG MACRO PDWORDIN
BYTE_WREG PDWORDIN
ENDM
DWORD_BYTE MACRO PDWORDIN,PBYTEOUT
BYTE_BYTE PDWORDIN,PBYTEOUT
ENDM
DWORD_WORD MACRO PDWORDIN,PWORDOUT
S@B PDWORDIN+1
MOVF PDWORDIN+1,W
S@B PWORDOUT+1
MOVWF PWORDOUT+1
BYTE_BYTE PDWORDIN,PWORDOUT
ENDM
DWORD_DWORD MACRO PDWORDIN,PDWORDOUT
BYTE_BYTE PDWORDIN+3,PDWORDOUT+3
BYTE_BYTE PDWORDIN+2,PDWORDOUT+2
BYTE_BYTE PDWORDIN+1,PDWORDOUT+1
BYTE_BYTE PDWORDIN,PDWORDOUT
ENDM
DWORD_BIT MACRO PDWORDIN,PVAROUT,PBITOUT
BYTE_BIT PDWORDIN,PVAROUT,PBITOUT
ENDM
VARIABLE CURRENT@PAGE = 0
VARIABLE PDESTINATION@PAGE = 0
FIND@PAGE MACRO PLABELIN
LOCAL CURRENT_ADDR = $
LOCAL DEST_ADDR = PLABELIN
IF((CURRENT_ADDR >= 0X1800) && (CURRENT_ADDR <= 0X2000))
CURRENT@PAGE = 3
ENDIF
IF((CURRENT_ADDR >= 0X1000) && (CURRENT_ADDR <= 0X1800))
CURRENT@PAGE = 2
ENDIF
IF((CURRENT_ADDR >= 0X0800) && (CURRENT_ADDR <= 0X1000))
CURRENT@PAGE = 1
ENDIF
IF((CURRENT_ADDR >= 0) && (CURRENT_ADDR <= 0X0800))
CURRENT@PAGE = 0
ENDIF
IF((DEST_ADDR >= 0X1800) && (DEST_ADDR <= 0X2000))
PDESTINATION@PAGE = 3
ENDIF
IF((DEST_ADDR >= 0X1000) && (DEST_ADDR <= 0X1800))
PDESTINATION@PAGE = 2
ENDIF
IF((DEST_ADDR >= 0X0800) && (DEST_ADDR <= 0X1000))
PDESTINATION@PAGE = 1
ENDIF
IF((DEST_ADDR >= 0) && (DEST_ADDR <= 0X0800))
PDESTINATION@PAGE = 0
ENDIF
ENDM
NUM_FSR MACRO PNUMIN
NUM_BYTE PNUMIN, FSR
IF (((PNUMIN >> 8) & 255) == 1)
BSF STATUS,7
ELSE
BCF STATUS,7
ENDIF
ENDM
LABEL_WORD MACRO PLABELIN,PWORDOUT
MOVLW LOW (PLABELIN)
S@B PWORDOUT
MOVWF PWORDOUT
MOVLW HIGH (PLABELIN)
S@B PWORDOUT
MOVWF PWORDOUT+1
R@B
ENDM
BPF = 32
BPFH = 33
CSTR#CT = 34
GEN4 = 35
GEN4H = 36
PP0 = 37
PP0H = 38
PP1 = 39
PP1H = 40
PP2 = 41
PP2H = 42
PP3 = 43
PP3H = 44
PP4 = 45
COMMAND = 46
_I = 47
TEMP = 48
TEMPH = 49
#DEFINE __LCD_DTPORT PORTD
#DEFINE __LCD_RSPORT PORTE
#DEFINE __LCD_ENPORT PORTE
#DEFINE __SCL_PORT PORTC
#DEFINE __SDA_PORT PORTC
#DEFINE __RSOUT_PORT PORTC
#DEFINE __RSIN_PORT PORTC
#DEFINE __KEYPAD_PORT PORTB
#DEFINE __CCP1_PIN PORTC,2
#DEFINE __CCP2_PIN PORTC,1
#DEFINE DQ PORTC,0
#DEFINE DQ_DIR TRISC,0
#DEFINE __XTAL 4
#DEFINE __LCD_DTPIN 4
#DEFINE __LCD_RSPIN 0
#DEFINE __LCD_ENPIN 1
#DEFINE __LCD_INTERFACE 4
#DEFINE __LCD_LINES 2
#DEFINE __LCD_TYPE 0
#DEFINE __LCD_COMMANDUS 2000
#DEFINE __LCD_DATAUS 50
#DEFINE __SCL_PIN 3
#DEFINE __SDA_PIN 4
#DEFINE __SERIAL_BAUD 9600
#DEFINE __RSOUT_PIN 6
#DEFINE __RSOUT_MODE 0
#DEFINE __RSOUT_PACE 1
#DEFINE __RSIN_PIN 7
#DEFINE __RSIN_MODE 0
#DEFINE __HSERIAL_BAUD 9600
#DEFINE __HSERIAL_RCSTA 144
#DEFINE __HSERIAL_TXSTA 36
#DEFINE T300 3313
#DEFINE T300H 12
#DEFINE N300 19697
#DEFINE N300H 76
#DEFINE T600 1646
#DEFINE T600H 6
#DEFINE N600 18030
#DEFINE N600H 70
#DEFINE T1200 813
#DEFINE T1200H 3
#DEFINE N1200 17197
#DEFINE N1200H 67
#DEFINE T2400 396
#DEFINE T2400H 1
#DEFINE N2400 16780
#DEFINE N2400H 65
#DEFINE T4800 188
#DEFINE N4800 16572
#DEFINE N4800H 64
#DEFINE T9600 84
#DEFINE N9600 16468
#DEFINE N9600H 64
#DEFINE OT2400 33164
#DEFINE OT2400H 129
#DEFINE OT1200 33581
#DEFINE OT1200H 131
#DEFINE OT9600 32852
#DEFINE OT9600H 128
#DEFINE OT300 36081
#DEFINE OT300H 140
#DEFINE ON2400 49548
#DEFINE ON2400H 193
#DEFINE ON1200 49965
#DEFINE ON1200H 195
#DEFINE ON9600 49236
#DEFINE ON9600H 192
#DEFINE ON300 52465
#DEFINE ON300H 204
#DEFINE HOME 1
#DEFINE BELL 7
#DEFINE BKSP 8
#DEFINE TAB 9
#DEFINE CR 13
PROTON#CODE#START
ORG 0
NOP
MOVLW HIGH (PROTON#MAIN#START)
MOVWF 10
GOTO PROTON#MAIN#START
ORG 4
OUT@DEC
BCF 32,3
MOVF 36,W
SKPNZ
BSF 32,3
MOVLW 5
MOVWF 35
MOVLW 39
MOVWF 40
MOVLW 16
CALL D@DIG
MOVLW 3
MOVWF 40
MOVLW 232
CALL D@DIG
CLRF 40
MOVLW 100
CALL D@DIG
CLRF 40
MOVLW 10
CALL D@DIG
MOVF 41,W
GOTO SEND@IT
D@DIG
MOVWF 39
MOVF 42,W
MOVWF 38
MOVF 41,W
MOVWF 37
CALL D@VD
MOVF 37,W
SEND@IT
MOVWF 37
DECF 35,F
SKPNZ
BCF 32,3
MOVF 36,W
SKPNZ
GOTO $ + 4
SUBWF 35,W
SKPNC
GOTO EX@SEND@IT
MOVF 37,W
SKPZ
BCF 32,3
BTFSC 32,3
GOTO EX@SEND@IT
ADDLW '0'
GOTO CH@SND
EX@SEND@IT
RETURN
PRINT
MOVWF 44
BCF PORTE,1
BCF PORTE,0
BSF 3,5
BCF PORTE,1
BCF PORTE,0
MOVLW 15
ANDWF PORTD,F
BCF 3,5
MOVF 44,W
BTFSC 32,1
GOTO PRT@1
MOVLW 62
MOVWF 38
MOVLW 128
CALL DLUS@W
MOVLW 51
MOVWF 43
CALL PR@LP
MOVLW 19
MOVWF 38
MOVLW 136
CALL DLUS@W
CALL PR@LP
MOVLW 100
CALL DL@US
CALL PR@LP
MOVLW 100
CALL DL@US
MOVLW 34
MOVWF 43
CALL PR@LP
MOVLW 40
CALL PRT@C
MOVLW 12
CALL PRT@C
MOVLW 6
CALL PRT@C
BSF 32,1
MOVF 44,W
GOTO PRT@1
PRT@C
BSF 32,0
PRT@1
MOVWF 43
BTFSS 32,0
GOTO PRIT@SKP
BCF PORTE,0
SUBLW 3
SKPC
GOTO PRT@S
CALL PRT@S
MOVLW 7
MOVWF 38
MOVLW 208
CALL DLUS@W
BSF 3,0
RETURN
PRIT@SKP
BSF 32,0
SUBLW 254
SKPNZ
GOTO PR@EX
BSF PORTE,0
PRT@S
BTFSS 32,0
PR@LP
BCF 32,0
BSF PORTE,1
MOVLW 15
ANDWF PORTD,F
MOVF 43,W
ANDLW 240
IORWF PORTD,F
BCF PORTE,1
SWAPF 43,F
BTFSC 32,0
GOTO PR@LP
MOVLW 50
CALL DL@US
PR@EX
MOVF 44,W
GOTO I@NT
CH@SND
BTFSC 33,7
GOTO PRINT
RETURN
C@STROUT
MOVWF 35
C@STROUTW
CLRF 34
C@STROUTLP
MOVF 35,W
BSF 3,6
MOVWF 269
BCF 3,6
MOVF 36,W
BSF 3,6
MOVWF 271
CALL C@READ
SKPNZ
GOTO I@NT
CALL CH@SND
INCF 35,F
SKPNZ
INCF 36,F
INCFSZ 34,F
GOTO C@STROUTLP
GOTO I@NT
C@READ
BSF 3,5
BSF 3,6
BSF 396,PP_EEPGD
BSF 396,PP_RD
NOP
NOP
BCF 3,5
MOVF 268,W
GOTO I@NT
DL@MS
CLRF 40
DLY@W
MOVWF 39
DLY@P
MOVLW 255
ADDWF 39,F
SKPC
ADDWF 40,F
SKPC
GOTO I@NT
MOVLW 3
MOVWF 38
MOVLW 223
CALL DLUS@W
GOTO DLY@P
DL@US
CLRF 38
DLUS@W
ADDLW 232
MOVWF 37
COMF 38,F
MOVLW 252
SKPC
GOTO $ + 4
ADDWF 37,F
SKPNC
GOTO $ - 2
ADDWF 37,F
NOP
INCFSZ 38,F
GOTO $ - 6
BTFSC 37,0
GOTO $ + 1
BTFSS 37,1
GOTO $ + 3
NOP
GOTO $ + 1
RETURN
D@VD
CLRF 42
CLRF 41
D@VD2
MOVLW 16
MOVWF 43
RLF 38,W
RLF 41,F
RLF 42,F
MOVF 39,W
SUBWF 41,F
MOVF 40,W
SKPC
INCFSZ 40,W
SUBWF 42,F
SKPNC
GOTO $ + 8
MOVF 39,W
ADDWF 41,F
MOVF 40,W
SKPNC
INCFSZ 40,W
ADDWF 42,F
BCF 3,0
RLF 37,F
RLF 38,F
DECFSZ 43,F
GOTO $ - 21
MOVF 37,W
GOTO I@NT
I@NT
BCF 3,7
I@NT2
BCF 3,5
BCF 3,6
RETURN
PROTON#MAIN#START
CLRF 32
F2_SOF EQU $ ; DS1820.PRP
F2_EOF EQU $ ; DS1820.PRP
F1_SOF EQU $ ; DS1820.BAS
F3_SOF EQU $ ; PROTON_4.INC
F3_000070 EQU $ ; IN [PROTON_4.INC] ALL_DIGITAL = TRUE
MOVLW 7
BSF STATUS,5
RAM_BANK = 1
MOVWF ADCON1
F3_EOF EQU $ ; PROTON_4.INC
F1_000015 EQU $ ; IN [DS1820.BAS] PRINT $FE, 1, "TEMP IN DEGREES C"
MOVLW 254
BCF STATUS,5
RAM_BANK = 0
F@CALL PRINT
MOVLW 1
F@CALL PRINT
MOVLW 128
MOVWF BPFH
MOVLW HIGH (STR@LB1)
MOVWF GEN4H
MOVLW LOW (STR@LB1)
F@CALL C@STROUT
MAINLOOP
F1_000020 EQU $ ; IN [DS1820.BAS] GOSUB INIT1820
F@CALL INIT1820
F1_000022 EQU $ ; IN [DS1820.BAS] COMMAND = $CC
MOVLW 204
MOVWF COMMAND
F1_000023 EQU $ ; IN [DS1820.BAS] GOSUB WRITE1820
F@CALL WRITE1820
F1_000025 EQU $ ; IN [DS1820.BAS] COMMAND = $44
MOVLW 68
MOVWF COMMAND
F1_000026 EQU $ ; IN [DS1820.BAS] GOSUB WRITE1820
F@CALL WRITE1820
F1_000028 EQU $ ; IN [DS1820.BAS] DELAYMS 2000
MOVLW 7
MOVWF PP1H
MOVLW 208
F@CALL DLY@W
F1_000030 EQU $ ; IN [DS1820.BAS] GOSUB INIT1820
F@CALL INIT1820
F1_000032 EQU $ ; IN [DS1820.BAS] COMMAND = $CC
MOVLW 204
MOVWF COMMAND
F1_000033 EQU $ ; IN [DS1820.BAS] GOSUB WRITE1820
F@CALL WRITE1820
F1_000035 EQU $ ; IN [DS1820.BAS] COMMAND = $BE
MOVLW 190
MOVWF COMMAND
F1_000036 EQU $ ; IN [DS1820.BAS] GOSUB WRITE1820
F@CALL WRITE1820
F1_000037 EQU $ ; IN [DS1820.BAS] GOSUB READ1820
F@CALL READ1820
F1_000040 EQU $ ; IN [DS1820.BAS] PRINT $FE, 1, DEC (TEMP >> 1), ".", DEC (TEMP.0 * 5), " DEGREES C"
MOVLW 254
F@CALL PRINT
MOVLW 1
F@CALL PRINT
MOVLW 128
MOVWF BPFH
CLRF GEN4H
BCF STATUS,0
RRF TEMPH,W
MOVWF PP2H
RRF TEMP,W
MOVWF PP2
F@CALL OUT@DEC
MOVLW 46
F@CALL PRINT
CLRF GEN4H
MOVLW 5
BTFSS TEMP,0
CLRW
MOVWF PP2
MOVLW 0
BTFSS TEMP,0
CLRW
MOVWF PP2H
F@CALL OUT@DEC
MOVLW HIGH (STR@LB2)
MOVWF GEN4H
MOVLW LOW (STR@LB2)
F@CALL C@STROUT
F1_000042 EQU $ ; IN [DS1820.BAS] GOTO MAINLOOP
F@JUMP MAINLOOP
INIT1820
F1_000047 EQU $ ; IN [DS1820.BAS] LOW DQ
BSF STATUS,5
RAM_BANK = 1
BCF TRISC,0
BCF STATUS,5
RAM_BANK = 0
BCF PORTC,0
F1_000048 EQU $ ; IN [DS1820.BAS] DELAYUS 500
MOVLW 1
MOVWF PP0H
MOVLW 244
F@CALL DLUS@W
F1_000049 EQU $ ; IN [DS1820.BAS] DQ_DIR = 1
BSF STATUS,5
RAM_BANK = 1
BSF TRISC,0
F1_000051 EQU $ ; IN [DS1820.BAS] DELAYUS 100
MOVLW 100
BCF STATUS,5
RAM_BANK = 0
F@CALL DL@US
F1_000052 EQU $ ; IN [DS1820.BAS] IF DQ = 1 THEN
SET@PAGE BC@LL2
BTFSS PORTC,0
GOTO BC@LL2
F1_000053 EQU $ ; IN [DS1820.BAS] PRINT $FE, 1, "DS1820 NOT PRESENT"
MOVLW 254
F@CALL PRINT
MOVLW 1
F@CALL PRINT
MOVLW 128
MOVWF BPFH
MOVLW HIGH (STR@LB3)
MOVWF GEN4H
MOVLW LOW (STR@LB3)
F@CALL C@STROUT
F1_000054 EQU $ ; IN [DS1820.BAS] DELAYMS 500
MOVLW 1
MOVWF PP1H
MOVLW 244
F@CALL DLY@W
F1_000055 EQU $ ; IN [DS1820.BAS] GOTO MAINLOOP
F@JUMP MAINLOOP
F1_000056 EQU $ ; IN [DS1820.BAS] ENDIF
BC@LL2
F1_000057 EQU $ ; IN [DS1820.BAS] DELAYUS 400
MOVLW 1
MOVWF PP0H
MOVLW 144
F@CALL DLUS@W
F1_000058 EQU $ ; IN [DS1820.BAS] RETURN
RETURN
WRITE1820
F1_000063 EQU $ ; IN [DS1820.BAS] FOR I = 1 TO 8
MOVLW 1
MOVWF _I
FR@LB4
MOVLW 9
SUBWF _I,W
SET@PAGE NX@LB5
BTFSC STATUS,0
GOTO NX@LB5
F1_000064 EQU $ ; IN [DS1820.BAS] IF COMMAND.0 = 0 THEN
SET@PAGE BC@LL6
BTFSC COMMAND,0
GOTO BC@LL6
F1_000065 EQU $ ; IN [DS1820.BAS] GOSUB WRITE0
F@CALL WRITE0
F@JUMP BC@LL7
BC@LL6
F1_000066 EQU $ ; IN [DS1820.BAS] ELSE
F1_000067 EQU $ ; IN [DS1820.BAS] GOSUB WRITE1
F@CALL WRITE1
F1_000068 EQU $ ; IN [DS1820.BAS] ENDIF
BC@LL7
F1_000069 EQU $ ; IN [DS1820.BAS] COMMAND = COMMAND >> 1
BCF STATUS,0
RRF COMMAND,F
F1_000070 EQU $ ; IN [DS1820.BAS] NEXT
INCF _I,F
SET@PAGE FR@LB4
BTFSS STATUS,2
GOTO FR@LB4
NX@LB5
F1_000071 EQU $ ; IN [DS1820.BAS] RETURN
RETURN
WRITE0
F1_000075 EQU $ ; IN [DS1820.BAS] LOW DQ
BSF STATUS,5
RAM_BANK = 1
BCF TRISC,0
BCF STATUS,5
RAM_BANK = 0
BCF PORTC,0
F1_000076 EQU $ ; IN [DS1820.BAS] DELAYUS 60
MOVLW 60
F@CALL DL@US
F1_000077 EQU $ ; IN [DS1820.BAS] DQ_DIR = 1
BSF STATUS,5
RAM_BANK = 1
BSF TRISC,0
F1_000078 EQU $ ; IN [DS1820.BAS] RETURN
BCF STATUS,5
RAM_BANK = 0
RETURN
WRITE1
F1_000082 EQU $ ; IN [DS1820.BAS] LOW DQ
BSF STATUS,5
RAM_BANK = 1
BCF TRISC,0
BCF STATUS,5
RAM_BANK = 0
BCF PORTC,0
F1_000083 EQU $ ; IN [DS1820.BAS] NOP
NOP
F1_000084 EQU $ ; IN [DS1820.BAS] DQ_DIR = 1
BSF STATUS,5
RAM_BANK = 1
BSF TRISC,0
F1_000085 EQU $ ; IN [DS1820.BAS] DELAYUS 60
MOVLW 60
BCF STATUS,5
RAM_BANK = 0
F@CALL DL@US
F1_000086 EQU $ ; IN [DS1820.BAS] RETURN
RETURN
READ1820
F1_000091 EQU $ ; IN [DS1820.BAS] FOR I = 1 TO 16
MOVLW 1
MOVWF _I
FR@LB9
MOVLW 17
SUBWF _I,W
SET@PAGE NX@LB10
BTFSC STATUS,0
GOTO NX@LB10
F1_000092 EQU $ ; IN [DS1820.BAS] TEMP = TEMP >> 1
BCF STATUS,0
RRF TEMPH,F
RRF TEMP,F
F1_000093 EQU $ ; IN [DS1820.BAS] GOSUB READBIT
F@CALL READBIT
F1_000094 EQU $ ; IN [DS1820.BAS] NEXT
INCF _I,F
SET@PAGE FR@LB9
BTFSS STATUS,2
GOTO FR@LB9
NX@LB10
F1_000095 EQU $ ; IN [DS1820.BAS] RETURN
RETURN
READBIT
F1_000099 EQU $ ; IN [DS1820.BAS] TEMP.15 = 1
BSF TEMPH,7
F1_000100 EQU $ ; IN [DS1820.BAS] LOW DQ
BSF STATUS,5
RAM_BANK = 1
BCF TRISC,0
BCF STATUS,5
RAM_BANK = 0
BCF PORTC,0
F1_000101 EQU $ ; IN [DS1820.BAS] NOP
NOP
F1_000102 EQU $ ; IN [DS1820.BAS] DQ_DIR = 1
BSF STATUS,5
RAM_BANK = 1
BSF TRISC,0
F1_000103 EQU $ ; IN [DS1820.BAS] IF DQ = 0 THEN
SET@PAGE BC@LL11
BCF STATUS,5
RAM_BANK = 0
BTFSC PORTC,0
GOTO BC@LL11
F1_000104 EQU $ ; IN [DS1820.BAS] TEMP.15 = 0
BCF TEMPH,7
F1_000105 EQU $ ; IN [DS1820.BAS] ENDIF
BC@LL11
F1_000106 EQU $ ; IN [DS1820.BAS] DELAYUS 60
MOVLW 60
F@CALL DL@US
F1_000107 EQU $ ; IN [DS1820.BAS] RETURN
RETURN
F1_000109 EQU $ ; IN [DS1820.BAS] END
PB@LB13
SLEEP
F@JUMP PB@LB13
F1_EOF EQU $ ; DS1820.BAS
PB@LB14
F@JUMP PB@LB14
STR@LB1
DE 84,101,109,112,32,105,110,32,100,101,103,114,101,1 01,115,32,67,0
STR@LB2
DE 32,100,101,103,114,101,101,115,32,67,0
STR@LB3
DE 68,83,49,56,50,48,32,110,111,116,32,112,114,101,11 5,101,110,116,0
__EOF
__CONFIG HS_OSC & WDT_OFF & PWRTE_ON & BODEN_OFF & LVP_OFF & WRTE_ON & CP_OFF & DEBUG_OFF
END

[captainslarty]

if i take an asm file and insert it into editor window and i start line with asm and end with end asm.
after compiling i get errors.

errors are 108 and 118

can anybody shed some light on this

regards

rashid

Hi Rashid my friend.
I dont know what this has to do with tips n tricks... ?
Also, the asm you post is unreadable to most humans ?, we have absolutely no idea what you are doing or why ?
Sorry Sir, but it is not possible, for me at least , to deduce your intent or even WHY you want so much asm... IF you want to code in such a long format ASM then use MPASM...

[Tim]

Can you be clearer with what you are doing. Post the basic code that produces the error

[rashid]

Can you be clearer with what you are doing. Post the basic code that produces the error

hi tim

i was just playing around with an asm file which i got from an mplab application. so after insering it in pds and inserting the asm command in the beginning and ending it off with endasm.

then try to compile errors come up.

try any file

regards

rashid

[rashid]

Hi Rashid my friend.
I dont know what this has to do with tips n tricks... ?
Also, the asm you post is unreadable to most humans ?, we have absolutely no idea what you are doing or why ?
Sorry Sir, but it is not possible, for me at least , to deduce your intent or even WHY you want so much asm... IF you want to code in such a long format ASM then use MPASM...

hi joe

sorry i did not know that i posted this in the tips and tricks section

regards

rashid

[rashid]

Can you be clearer with what you are doing. Post the basic code that produces the error

hi tim

i was just curious to see how pds reacts with this excercise. and it did not compile in pds editor
i just copied and pasted any asm file found in mplab.

hope this clarifies the matter