微算機Lab3

tags: microcontroller lab

題目
連結可能失效！！！

1-1

List p=18f4520
#include<p18f4520.inc>
    CONFIG OSC = INTIO67
    CONFIG WDT = OFF
    org 0x00
    
start:
    clrf WREG
    movlw B'11011111'
    movwf LATA
    movlw B'10011110'
    andwf LATA, 1
    movlw B'11111111'
    xorwf LATA, 1
end

1-2

List p=18f4520
#include<p18f4520.inc>
    CONFIG OSC = INTIO67
    CONFIG WDT = OFF
    org 0x00
    
start:
    movlw B'01011011'
    movwf LATB
    movlw B'11000100'
    iorwf LATB, 1
    movlw B'11111111'
    xorwf LATB, 1
end

2

List p=18f4520
#include<p18f4520.inc>
    CONFIG OSC = INTIO67
    CONFIG WDT = OFF
    org 0x00
    
init:
    clrf TRISA
    movlw 0x08
    movwf TRISC
    movlw 0x0B
    movwf TRISB

moveright:
    clrf WREG
    rlcf WREG
    rrncf TRISA	;move left the result bit
    rrcf TRISC
    BC add
    BZ result
    BNC moveright
add:
    movff TRISB, WREG
    movff TRISA, TRISD   
    xorwf TRISA, 1
    andwf TRISD, 0
    BZ moveright
    
addcarry:
    rlncf WREG
    movff TRISA, TRISD
    xorwf TRISA, 1
    andwf TRISD, 0
    BNZ addcarry
    BZ moveright   
    
result: 
    rlncf TRISA
    rlncf TRISA
    rlncf TRISA
    rlncf TRISA
    
end