1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 14:58:06 +11:00

avra: add CBR instruction

This commit is contained in:
Virgil Dupras 2019-12-22 14:45:10 -05:00
parent c968995ec0
commit a9dcba5793
3 changed files with 21 additions and 9 deletions

View File

@ -94,16 +94,17 @@ instrNames:
.db "XCH", 0 .db "XCH", 0
.equ I_ANDI 77 .equ I_ANDI 77
.db "ANDI", 0 .db "ANDI", 0
.db "CBR", 0
.db "CPI", 0 .db "CPI", 0
.db "LDI", 0 .db "LDI", 0
.db "ORI", 0 .db "ORI", 0
.db "SBCI", 0 .db "SBCI", 0
.db "SBR", 0 .db "SBR", 0
.db "SUBI", 0 .db "SUBI", 0
.equ I_RCALL 84 .equ I_RCALL 85
.db "RCALL", 0 .db "RCALL", 0
.db "RJMP", 0 .db "RJMP", 0
.equ I_CBI 86 .equ I_CBI 87
.db "CBI", 0 .db "CBI", 0
.db "SBI", 0 .db "SBI", 0
.db 0xff .db 0xff
@ -127,6 +128,7 @@ instrNames:
; allow this kind of syntactic sugar with minimal complexity. ; allow this kind of syntactic sugar with minimal complexity.
; ;
; Bit 6: Second arg is a copy of the first ; Bit 6: Second arg is a copy of the first
; Bit 5: Second arg is inverted (complement)
; In the same order as in instrNames ; In the same order as in instrNames
instrTbl: instrTbl:
@ -193,13 +195,14 @@ instrTbl:
.db 0x00, 0b10010101, 0b10101000 ; WDR .db 0x00, 0b10010101, 0b10101000 ; WDR
.db 0x01, 0b10010010, 0b00000100 ; XCH Rd .db 0x01, 0b10010010, 0b00000100 ; XCH Rd
; Rd(4) + K(8): XXXXKKKK ddddKKKK ; Rd(4) + K(8): XXXXKKKK ddddKKKK
.db 0x04, 0b01110000, 0x00 ; ANDI .db 0x04, 0b01110000, 0x00 ; ANDI Rd, K
.db 0x04, 0b00110000, 0x00 ; CPI .db 0x24, 0b01110000, 0x00 ; CBR Rd, K (Bit 5)
.db 0x04, 0b11100000, 0x00 ; LDI .db 0x04, 0b00110000, 0x00 ; CPI Rd, K
.db 0x04, 0b01100000, 0x00 ; ORI .db 0x04, 0b11100000, 0x00 ; LDI Rd, K
.db 0x04, 0b01000000, 0x00 ; SBCI .db 0x04, 0b01100000, 0x00 ; ORI Rd, K
.db 0x04, 0b01100000, 0x00 ; SBR .db 0x04, 0b01000000, 0x00 ; SBCI Rd, K
.db 0x04, 0b01010000, 0x00 ; SUBI .db 0x04, 0b01100000, 0x00 ; SBR Rd, K
.db 0x04, 0b01010000, 0x00 ; SUBI Rd, K
; k(12): XXXXkkkk kkkkkkkk ; k(12): XXXXkkkk kkkkkkkk
.db 0x08, 0b11010000, 0x00 ; RCALL k .db 0x08, 0b11010000, 0x00 ; RCALL k
.db 0x08, 0b11000000, 0x00 ; RJMP k .db 0x08, 0b11000000, 0x00 ; RJMP k
@ -290,6 +293,8 @@ parseInstruction:
call nz, .swapHL ; Bit 7 set, swap H and L again! call nz, .swapHL ; Bit 7 set, swap H and L again!
bit 6, (ix) bit 6, (ix)
call nz, .cpHintoL ; Bit 6 set, copy H into L call nz, .cpHintoL ; Bit 6 set, copy H into L
bit 5, (ix)
call nz, .invL ; Bit 5 set, invert L
ld a, e ; InstrID ld a, e ; InstrID
cp I_ANDI cp I_ANDI
jr c, .spitRegular jr c, .spitRegular
@ -441,6 +446,12 @@ parseInstruction:
ld l, h ld l, h
ret ret
.invL:
ld a, l
cpl
ld l, a
ret
; Argspecs: two bytes describing the arguments that are accepted. Possible ; Argspecs: two bytes describing the arguments that are accepted. Possible
; values: ; values:
; ;

View File

@ -14,3 +14,4 @@ rcall baz
baz: baz:
out 0x2e, r12 out 0x2e, r12
in r0, 0x9 in r0, 0x9
cbr r31, 0xff

Binary file not shown.