godzil/sd2snes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SuperCIC: basic featureset complete

Browse Source
This commit is contained in:
ikari 2010-05-05 00:30:14 +02:00
parent 22a2ad5716
commit d77ba9c928
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cic/supercic/supercic-lock.asm
View File

@ -114,7 +114,6 @@ rst_loop
clrf 0x53 clrf 0x53
clrf 0x54 ; clear user mode clrf 0x54 ; clear user mode
clrf 0x57 ; clear key mode clrf 0x57 ; clear key mode
clrf 0x58 ; clear forced mode
banksel EEADR ; fetch current mode from EEPROM banksel EEADR ; fetch current mode from EEPROM
clrf EEADR ; address 0 clrf EEADR ; address 0
bsf EECON1, RD ; bsf EECON1, RD ;
@ -122,10 +121,16 @@ rst_loop
banksel PORTA banksel PORTA
movwf 0x55 ; store saved mode in mode var movwf 0x55 ; store saved mode in mode var
movwf 0x56 ; and temp LED movwf 0x56 ; and temp LED
movwf 0x58
movwf 0x50 ; and final LED movwf 0x50 ; and final LED
movlw 0x3 ; mask movlw 0x3 ; mask
andwf 0x50, f ; andwf 0x50, f ;
swapf 0x50, f ; and nibbleswap for actual output swapf 0x50, f ; and nibbleswap for actual output
movlw 0x2
andwf 0x58, f
clrf PIR1 ; reset overflow bit clrf PIR1 ; reset overflow bit
clrf TMR1L ; reset counter clrf TMR1L ; reset counter
clrf TMR1H clrf TMR1H
@ -305,7 +310,7 @@ loop1
movf 0x20, w movf 0x20, w
andlw 0x33 ; mask out anything unwanted andlw 0x33 ; mask out anything unwanted
movwf PORTC movwf PORTC
nop nop
movf PORTC, w ; read input movf PORTC, w ; read input
movwf 0x42 ; store input movwf 0x42 ; store input
movf 0x50, w ; get LED state movf 0x50, w ; get LED state
@ -321,7 +326,7 @@ nop
xorwf 0x42, f ; xor received + calculated xorwf 0x42, f ; xor received + calculated
bcf FSR, 4 ; back to our own stream bcf FSR, 4 ; back to our own stream
btfsc 0x42, 0 ; equal? then continue btfsc 0x42, 0 ; equal? then continue
goto trap ; bsf 0x43, 1 ; else mark key invalid bsf 0x43, 1 ; else mark key invalid
btfsc 0x43, 1 ; if key invalid: btfsc 0x43, 1 ; if key invalid:
bcf 0x57, 1 ; set det.region=60Hz bcf 0x57, 1 ; set det.region=60Hz
; btfsc 0x43, 1 ; if key invalid: ; btfsc 0x43, 1 ; if key invalid:
@ -805,7 +810,7 @@ checkrst_1 ; 4
btfsc 0x51, 0 btfsc 0x51, 0
goto checkrst_1_1 goto checkrst_1_1
nop nop
checkrst_1_0 ; 24 checkrst_1_0 ; 26
; if modechange flag is set: clear modechange flag, set mode, save, restart timer ; if modechange flag is set: clear modechange flag, set mode, save, restart timer
; else reset ; else reset
btfss 0x52, 0 btfss 0x52, 0
@ -813,8 +818,8 @@ checkrst_1_0 ; 24
clrf 0x52 ; clear modechange flag clrf 0x52 ; clear modechange flag
movf 0x56, w ; get temp mode movf 0x56, w ; get temp mode
movwf 0x55 ; set final mode movwf 0x55 ; set final mode
movwf 0x58 movwf 0x58 ; set forced mode
banksel EEADR ; save to EEPROM banksel EEADR ; save to EEPROM. this somehow takes 2 extra cycles!!!
movwf EEDAT movwf EEDAT
bsf EECON1,WREN bsf EECON1,WREN
movlw 0x55 movlw 0x55
@ -830,7 +835,7 @@ checkrst_1_0 ; 24
clrf TMR1L ; reset counter clrf TMR1L ; reset counter
clrf TMR1H clrf TMR1H
bsf T1CON, 0 ; restart the timer bsf T1CON, 0 ; restart the timer
goto checkrst_end return ; shortcut (no goto checkrst_end)
checkrst_1_1 ; 24 checkrst_1_1 ; 24
; check TMR overflow ; check TMR overflow
; if overflow, change LED, reset TMR+overflow, set modechange flag ; if overflow, change LED, reset TMR+overflow, set modechange flag
@ -879,7 +884,7 @@ checkrst_0_0 ; 24
clrf PIR1 clrf PIR1
incf 0x53, f ; increment overflow counter incf 0x53, f ; increment overflow counter
btfss 0x53, 4 ; 0x10 reached? btfss 0x53, 4 ; 0x10 reached?
goto checkrst_end ; 9 goto checkrst_end_plus9 ; 9
checkrst_0_0_setregion ; 10 checkrst_0_0_setregion ; 10
movlw 0x3 movlw 0x3
xorwf 0x55, w ; mode=auto? xorwf 0x55, w ; mode=auto?