please dont rip this site
previous | start


Appendix: Program listings

The following programs are intended as illustrative of the use of the commands discussed. They are certainly trivial, and probably not paragons of programming technique! In each, I have added a section called simulator: this section is a suggestion for things you might like to do during the simulation of your program. For instance, you might need to have a watch window open showing the W register and portb, as well as having the stack open too. Of course, it’s up to you how you design and code these programs, and how you experiment with them in the simulator.

"...tried to build it i got a cannot find .hex message when i looked closer... lines needed altering H'10' H'15' and H'08' needed changing to 0010h 0015h and 0008h then it worked perfectly. "

Program 2: moves.asm

;moves.asm to show how MOVF, MOVWF & MOVLW work
;*********************************** simulator ***
;watch window: reg1, w, pcl
;*********************************** setup     ***
processor 16c84
reg1    equ  h'10'
;*********************************** program   ***
start:  movlw h'05'     ;load w
    movwf reg1  ;move (w) to reg1
    movlw h'82' ;change w
    movf reg1,0 ;restore w
    end
          

Program 3: clears . asm

    ;clears.asm to show how clrf & clrw work
    ;based on moves.asm
    ;*********************************** simulator
    ;watch window: reg1, w, pcl
    ;*********************************** setup
    processor 16c84
    reg1 equ h'10'
    ;*********************************** program
    start: 
    movlw h'05' ;load w
        movwf reg1  ;move (w) to reg1
        movlw h'82'     ;change w
        movf reg1,0     ;restore w
    clear: 
    clrf reg1   ;clear reg1
        clrw        ;clear w
        end

Program 4: arith . asm

;arith.asm to show using ADDWF, SUBWF, ADDLW, SUBLW
;************************************* simulator
;watch window: reg1,reg2,status,w,pcl
;************************************* setup
    processor 16c84
    reg1 equ h'10'
    reg2 equ h'12'
;************************************* program
loads: 
    movlw d'20'     ;load w
    movwf reg1      ;load reg1
    movlw d'80'     ;load w anew
    movwf reg2      ;load reg2
arith:
    addlw d'05'     ;add d'05' to w
    sublw d'100'    ;sub w from d'100'
    addwf reg1,1    ;add w to reg1, into reg1
    subwf reg2,1    ;sub w from reg2, into reg2
    end



Program 5: inter1.asm

;inter1.asm is a simple interrupt handler-
; it does not save the state of the machine
; nor does it determine the kind of interrupt.
;
;*********************************************simulator
;watch window: intcon, pcl
;stack: have this open too- see the return address come & go
;asynch stimulus: have a toggle on rb4
;********************************************* setup
    processor 16c84
    movlw h'0'
    movwf h'0b'     ;clear intcon
    goto main       ;hop over the isr
;********************************************** isr start
isr: 
    org h'0004'     ;interrupts always vector to here
    nop         ;here we actually do the stuff
    nop         ; of the interrupt
    bcf h'0b',0     ;clear int before going back
    retfie      ;this re-sets intcon gie
;*********************************************** isr ends
;
;*********************************************** main start
main: 
    org h'0020'     ; leave enough room for the isr!
    bsf h'0b',7     ; set global int enable
    bsf h'0b',3     ; set change on b int enable
payrol:
    nop         ; loop here until interrupted,
    nop         ; doing payroll stuff
    goto payrol     ;
    nop
    nop
    end

Program 6: inter2.asm

;inter2.asm does save the state of the machine
; but does not determine the kind of interrupt.
;
;****************************************************simulator
;watch window: intcon, pcl, portb, w, w_saved
;stack: have this open too- see the return address come & go
;asynch stimulus: have a toggle on rb4
;**************************************************** setup
    processor 16c84
    w_saved equ h'10'   ;a place to keep w
    movlw h'0'
    movwf h'0b'     ;clear intcon
    goto main       ;hop over the isr at the beginning
;**************************************************** isr start
isr:
    org h'0004'     ;interrupts always vector to here
    movwf w_saved   ;save w as it was in main
    movlw h'65'     ;do something to change w
    nop         ;do more isr stuff
    ;now, restore w: there is
    ; no "movfw"- 2 swapf's seems to be
    ; the way to do this....
    swapf w_saved,1     ; first, swap w_saved into itself
    swapf w_saved,0     ; then, swap it into w
    bcf h'0b',0     ;clear int on b before going back
    retfie      ;this re-sets intcon gie
;***************************************************** isr ends
;
;****************************************************** main start
main: 
    org h'0020'     ; leave room for the isr!
    bsf h'0b',7     ; set global int enable
    bsf h'0b',3     ; set change on b int enable
payrol: 
    nop         ; loop here until interrupted,
    nop         ; doing payroll stuff
    movlw h'0f'     ; simulate a calc by loading w
    goto payrol     ;
    nop
    nop
    end

Program 7: inter3.asm

;inter3.asm saves the state of the machine
; and determines the kind of interrupt.
;
;**************************************************simulator
;watch window: intcon, pcl, portb, w_saved, w
;stack: have this open too- see the return address come & go
;asynch stimulus: have a toggle on rb4(for rbi) and rb0(int)
;************************************************* setup
    processor 16c84
    w_saved equ h'10'   ;a place to keep w
    movlw h'0'
    movwf h'0b'     ;clear intcon
    goto main       ;hop over the isr at the beginning
;*************************************************** isr start
isr:
    org h'0004'     ;interrupts always vector to here
    movwf w_saved   ;save w as it was in main
    ;find out what kind of interrupt
    btfsc h'0b',0   ; is it an rbi?
    call _rbi       ; yes- call the rbi 'sub-handler'
    btfsc h'0b',1   ; is it an int?
    call _int       ; yes- call the int 'sub-handler'
    ;end up here after sub-handler
    ;now, restore w
    swapf w_saved,1     ; first, swap w_saved into itself
    swapf w_saved,0     ; then, swap it into w
    bcf h'0b',0     ;clear rbif before going back
    bcf h'0b',1     ;clear intf before going back
    retfie      ; this re-sets intcon gie
_rbi: 
    movlw h'65'     ;do something to change w
    return
_int: 
    movlw h'24'     ;do something different to w
    return
;***************************************************** isr ends
;
;**************************************************** main start
main:
    org h'0020'     ; leave room for the isr!
    bsf h'0b',7     ; set global int enable
    bsf h'0b',3     ; set change on b int enable
    bsf h'0b',4     ; set ext int on pin6 enable
    ; we've got 2 types of int!
payrol:
    nop         ; loop here until interrupted,
    nop         ; doing payroll stuff
    movlw h'0f'     ;simulate a calc by loading w
    goto payrol     ;
    nop
    nop
    end

Program 8: time0.asm

;time0.asm to see how timer0 works
;
;************************************ setup
    processor 16c84
    STATUS EQU H'03'
    OPTIO EQU H'81'
    tmr0 EQU H'01'
    BANK_ EQU H'05'
    T0CS EQU H'05'
    PSA EQU H'03'
    clocked equ h'10'
    INTCON equ h'0B'
    T0IE equ h'05'
    GIE EQU H'07'
    goto top
;************************************ isr
isr: 
    ORG h'0004'
    incf clocked    ;clocked is the 'wall clock'
    BCF INTCON,2
    retfie

;************************************ program
top:
    org h'0010'
    clrf tmr0       ;clear the tmr0 register
    clrf clocked
mode:
    bsf STATUS,BANK_    ;switch to page 1
    bcf OPTIO,T0CS  ;go from counter to timer
    bsf OPTIO,PSA   ;no prescaler yet
    bsf INTCON,GIE
    bsf INTCON,T0IE
loop:
    nop
    nop
    goto loop
    END


previous | start

Questions:


file: /Techref/microchip/intro/slide9.htm, 9KB, , updated: 2011/7/21 09:31, local time: 2024/12/8 19:44, owner: size111-hotmail-,
TOP NEW HELP FIND: 
18.97.14.82:LOG IN

 ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://www.piclist.com/techref/microchip/intro/slide9.htm"> begin</A>

After you find an appropriate page, you are invited to your to this massmind site! (posts will be visible only to you before review) Just type a nice message (short messages are blocked as spam) in the box and press the Post button. (HTML welcomed, but not the <A tag: Instead, use the link box to link to another page. A tutorial is available Members can login to post directly, become page editors, and be credited for their posts.


Link? Put it here: 
if you want a response, please enter your email address: 
Attn spammers: All posts are reviewed before being made visible to anyone other than the poster.
Did you find what you needed?

  PICList 2024 contributors:
o List host: MIT, Site host massmind.org, Top posters @none found
- Page Editors: James Newton, David Cary, and YOU!
* Roman Black of Black Robotics donates from sales of Linistep stepper controller kits.
* Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters.
* Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated!
* Contributors: Richard Seriani, Sr.
 

Welcome to www.piclist.com!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  .