mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 01:31:33 +00:00
Moved VERA Display Composer functions to veradisp.h02
This commit is contained in:
Curtis F Kaylor
parent
7674e11b61
commit
7645862022
@ -1,36 +1,5 @@
|
|||||||
; C02 module vera.h02 assembly language subroutines
|
; C02 module vera.h02 assembly language subroutines
|
||||||
|
|
||||||
;getvid() - Get Video Output Mode
|
|
||||||
;Returns: A = Video Mode
|
|
||||||
; Y = Chroma Disabled
|
|
||||||
; X = Current Field
|
|
||||||
GETVID: LDA #$00 ;Set Register Offset to Video Output
|
|
||||||
JSR GETDCR ;Read from Display Composer
|
|
||||||
LDY #$00 ;Set Chroma Disabled to FALSE
|
|
||||||
LDX #$00 ;Set Video Field to EVEN
|
|
||||||
BIT GETVIM ;Test Chroma Disabled Bit
|
|
||||||
BEQ GETVIE ;If Bit 3 is Set
|
|
||||||
DEY ; Set Chroma Disabled to TRUE
|
|
||||||
BIT GETVIM ;Test Chroma Disabled Bit
|
|
||||||
GETVIE: BCC GETVIF ;If Bit 7 is Set
|
|
||||||
DEX ; Set Video Field to ODD
|
|
||||||
GETVIF: AND #$03 ;Isolate Bits 0-2 (Video Output Mode)
|
|
||||||
RTS
|
|
||||||
GETVIM: .DC $04 ;Chroma Disable Bit Mask
|
|
||||||
|
|
||||||
;getbdr() - Get Get Border Color
|
|
||||||
;Returns: A = Border Color Palette Index
|
|
||||||
GETBDR: LDA #$03 ;Set Register Offset to Border Color
|
|
||||||
|
|
||||||
;getdcr() - Get Display Composer Register
|
|
||||||
;Args: A = Register Offset
|
|
||||||
;Affects: Y
|
|
||||||
;Returns: A = Contents of Register
|
|
||||||
; X = Current Data Port
|
|
||||||
GETDCR: LDY #$00 ;Set MSB to Display Composer Page
|
|
||||||
TAX ;Set LSB to Register Offset
|
|
||||||
JMP GETREG ;and Execute GETREG
|
|
||||||
|
|
||||||
;getmod() - Get Layer 0/1 Mode
|
;getmod() - Get Layer 0/1 Mode
|
||||||
;Args: A = Layer (0/1)
|
;Args: A = Layer (0/1)
|
||||||
;Affects: Y
|
;Affects: Y
|
||||||
@ -199,177 +168,6 @@ TILSIT: .DC $08,$10
|
|||||||
;Returns: A = Map Width Specifier
|
;Returns: A = Map Width Specifier
|
||||||
; Y = Map Height Specifier
|
; Y = Map Height Specifier
|
||||||
|
|
||||||
;getvsp() - Get Vertical Stop
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y,X = Vertical Stop
|
|
||||||
GETVSP: LDA #7 ;Set Reg Offset to Vertical Stop
|
|
||||||
JSR GETHVS ;Read Registers
|
|
||||||
LSR ;Shift Left One Bit
|
|
||||||
JMP GETVSS ;Then Four More Bits and Mask
|
|
||||||
|
|
||||||
;getvsr() - Get Vertical Start
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y,X = Vertical Start
|
|
||||||
GETVSR: LDA #6 ;Set Reg Offset to Vertical Start
|
|
||||||
JSR GETHVS ;Read Registers
|
|
||||||
GETVSS: LSR ;Shift Left Four Bit
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
LSR
|
|
||||||
AND #$01 ;Isolate Bit 0
|
|
||||||
TAY ;and Copy MSB to Y
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;gethsp() - Get Horizontal Stop
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y,X = Horizontal Stop
|
|
||||||
GETHSP: LDA #5 ;Set Lookup Index to Horizontal Start
|
|
||||||
JSR GETHVS ;Read Registers
|
|
||||||
LSR ;Shift Left Two Bits
|
|
||||||
LSR
|
|
||||||
JMP GETHSS ;then Mask and Return
|
|
||||||
|
|
||||||
;gethsr() - Get Horizontal Start
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y,X = Horizontal Start
|
|
||||||
GETHSR: LDA #4 ;Set Lookup Index to Horizontal Start
|
|
||||||
JSR GETHVS ;Read Registers
|
|
||||||
;.dc $ff ;debug
|
|
||||||
GETHSS: AND #$03 ;Isolate Bit 0
|
|
||||||
TAY ;and Copy MSB to Y
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;gethvs() - Get Start/Stop Low Byte and High Bits
|
|
||||||
;Args: X = Low Register
|
|
||||||
;Affects: Y
|
|
||||||
;Returns: A = High Bits
|
|
||||||
; X = Low Byte
|
|
||||||
GETHVS: JSR GETDCR ;Read LSB from Register
|
|
||||||
;.dc $ff ;debug
|
|
||||||
PHA ;and Save It
|
|
||||||
LDA #8 ;Load Register Offset for High Bits
|
|
||||||
STA $9F20 ;Set As Address LSB
|
|
||||||
LDA $9F23,X ;and Read High Bits into A
|
|
||||||
.DC $FA ;PLX ;Restore LSB into X
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;getiql() - Get Interrupt Line
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y,X = Interrupt Line#
|
|
||||||
GETIQL: LDA #9 ;Set Register Offset to Interrupt Line
|
|
||||||
.DC $2C ;Skip to SETDCX (BIT Absolute)
|
|
||||||
|
|
||||||
;getscl() - Get Horizontal and Vertical Scale
|
|
||||||
;Returns: A,X = Horizontal Scale
|
|
||||||
; Y = Vertical Scale
|
|
||||||
GETSCL: LDA #1 ;Set Register Offset to HSCALE,VSCALE
|
|
||||||
|
|
||||||
;getdci() - Get Display Composer Register Pair
|
|
||||||
;Args: A = Register Offset
|
|
||||||
;Affects: Y
|
|
||||||
;Returns: A,X = Integer LSB
|
|
||||||
; Y = Integer LSB
|
|
||||||
GETDCI: LDY #$00 ;Set MSB to Display Composer Page
|
|
||||||
TAX ;Set LSB to Register Offset
|
|
||||||
JMP GETREI ;Get Vera Register Pair
|
|
||||||
|
|
||||||
;setvsp() - Set Horizontal Stop
|
|
||||||
;Args: Y,X = Horizontal Stop
|
|
||||||
;Affects: A,X,Y
|
|
||||||
SETVSP: TYA ;Convert MSB to High Bit
|
|
||||||
AND #$01
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
STA TEMP1 ;and Save
|
|
||||||
TXA ;Copy LSB to Accumlator
|
|
||||||
LDX #7 ;Set Register Offset to Horizontal Start
|
|
||||||
LDY #$DF ;Set High Bits Mask
|
|
||||||
JMP SETHST ;OR in High Bits and Write Back
|
|
||||||
|
|
||||||
;setvsr() - Set Horizontal Start
|
|
||||||
;Args: Y,X = Horizontal Start
|
|
||||||
;Affects: A,X,Y
|
|
||||||
SETVSR: TYA ;Convert MSB to High Bit
|
|
||||||
AND #$01
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
STA TEMP1 ;and Save
|
|
||||||
TXA ;Copy LSB to Accumlator
|
|
||||||
LDX #6 ;Set Register Offset to Horizontal Start
|
|
||||||
LDY #$EF ;Set High Bits Mask
|
|
||||||
JMP SETHST ;OR in High Bits and Write Back
|
|
||||||
|
|
||||||
;sethsp() - Set Horizontal Stop
|
|
||||||
;Args: Y,X = Horizontal Stop
|
|
||||||
;Affects: A,X,Y
|
|
||||||
SETHSP: TYA ;Convert MSB to High Bits
|
|
||||||
AND #$03
|
|
||||||
ASL
|
|
||||||
ASL
|
|
||||||
STA TEMP1 ;and Save
|
|
||||||
TXA ;Copy LSB to Accumlator
|
|
||||||
LDX #5 ;Set Register Offset to Horizontal Start
|
|
||||||
LDY #$F3 ;Set High Bits Mask
|
|
||||||
JMP SETHST ;OR in High Bits and Write Back
|
|
||||||
|
|
||||||
;sethsr() - Set Horizontal St7art
|
|
||||||
;Args: Y,X = Horizontal Start
|
|
||||||
;Destroys TEMP0,TEMP1,TEMP2
|
|
||||||
;Affects: A,X,Y
|
|
||||||
SETHSR: TYA ;Convert MSB to High Bits
|
|
||||||
AND #$03
|
|
||||||
STA TEMP1 ;and Save
|
|
||||||
TXA ;Copy LSB to Accumlator
|
|
||||||
LDX #4 ;Set Register Offset to Horizontal Start
|
|
||||||
LDY #$FC ;Set High Bits Mask
|
|
||||||
SETHST: STY TEMP2 ;Save
|
|
||||||
JSR SETHVS ;Write LSB and Get High Bits
|
|
||||||
AND TEMP2 ;Mask Start Stop High
|
|
||||||
ORA TEMP1 ;OR in High Bits
|
|
||||||
STA $9F23,X ;and Write back to Register
|
|
||||||
RTS
|
|
||||||
|
|
||||||
|
|
||||||
SETHVS: JSR SETDCX ;Write LSB
|
|
||||||
LDA #8 ;Load Register Offset for High Bits
|
|
||||||
STA $9F20 ;Set As Address LSB
|
|
||||||
LDA $9F23,X ;and Read High Bits into A
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;setvid() - Set Video Output Mode
|
|
||||||
;Args: A = Video Mode
|
|
||||||
; Y = Chroma Disabled
|
|
||||||
;Destroys: TEMP0
|
|
||||||
SETVID: AND #3 ;Isolate Video Mode Bits
|
|
||||||
CPY #0 ;Set Chroma Mask to
|
|
||||||
BEQ SETVIF ; 0 if Y is Zero or
|
|
||||||
LDY #4 ; 4 if it is not
|
|
||||||
SETVIF: STY TEMP0 ;Save Chroma Bit
|
|
||||||
ORA TEMP0 ;Combine with Video Mode Bits
|
|
||||||
LDX #0 ;Set Register Offset to Video Mode
|
|
||||||
BEQ SETDCX ;Write to Register
|
|
||||||
|
|
||||||
;setbdr() - Set Border Color
|
|
||||||
;Args: A = Border Color Palette Index
|
|
||||||
SETBDR: LDX #3 ;Set Register Offset to Border Color
|
|
||||||
.DC $2C ;Skip to SETDCX (BIT Absolute)
|
|
||||||
|
|
||||||
;setdcr() - Set Display Composer Register
|
|
||||||
;Args: A = Register Offset
|
|
||||||
; Y = Value to Write
|
|
||||||
;Affects: Y
|
|
||||||
;Returns: A = Value Written
|
|
||||||
; X = Current Data Port
|
|
||||||
SETDCR: TAX ;Set LSB to Register Offset
|
|
||||||
TYA ;Move Write Value to Accumulator
|
|
||||||
SETDCX: LDY #$00 ;Set MSB to Display Composer Page
|
|
||||||
JMP SETREG ;Write to Register
|
|
||||||
|
|
||||||
;settbs() - Set Layer 0/1 Map Base
|
;settbs() - Set Layer 0/1 Map Base
|
||||||
;Args: A = Layer (0/1)
|
;Args: A = Layer (0/1)
|
||||||
; Y,X = Map Base
|
; Y,X = Map Base
|
||||||
@ -413,96 +211,4 @@ SETHSC: JSR SAVRXY ;Store Horizontal Scroll in TEMP1,TEMP2
|
|||||||
SETLRI: JSR GETLRP ;Get Layer Page in Y
|
SETLRI: JSR GETLRP ;Get Layer Page in Y
|
||||||
JMP SETREI ;and Write Integer to Register
|
JMP SETREI ;and Write Integer to Register
|
||||||
|
|
||||||
;setiql() - Set IRQ Line
|
|
||||||
;Args: Y,X = IRQ Line Number`
|
|
||||||
;Sets: TEMP1,TEMP2 = IRQ Line Number
|
|
||||||
;Affecta: A,Y,X
|
|
||||||
SETIQL: TXA ;Copy LSB to Accumulator
|
|
||||||
LDX #9 ;Set Register Offset to HSCALE,VSCALE
|
|
||||||
.DC $2C ;Skip to SETDCP (BIT Absolute)
|
|
||||||
|
|
||||||
;setscl() - Set Horizontal and Vertical Scale
|
|
||||||
;Args: A = Horizontal Scale
|
|
||||||
; Y = Vertical Scale
|
|
||||||
SETSCL: LDX #1 ;Set Register Offset to HSCALE,VSCALE
|
|
||||||
|
|
||||||
;setdcp() - Set Display Composer Register Pair
|
|
||||||
;Args: A = First Register Value
|
|
||||||
; Y = Second Register Value
|
|
||||||
; X = Register Offset
|
|
||||||
;Affects: A,Y
|
|
||||||
;Returns: X = Current Data Port
|
|
||||||
SETDCP: STA TEMP1 ;Store First Value as LSB
|
|
||||||
STY TEMP2 ;Store Second Value as MSB
|
|
||||||
LDY #$00 ;Set MSB to Display Composer Page
|
|
||||||
JMP SETREI ;Set Register to Integer
|
|
||||||
|
|
||||||
|
|
||||||
;rgbclr(r,g,b) - Convert RGB Values to Palette Color
|
|
||||||
;Args: A = Red Value (0-15)
|
|
||||||
; Y = Green Value (0-15)
|
|
||||||
; X = Blue Value (0-15)
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y = Color MSB (0000RRRR)
|
|
||||||
; X = Color LSB (GGGGBBBB)
|
|
||||||
RGBCLR: PHA ;Save Red Value
|
|
||||||
TYA ;Copy Green Value to Left Nybble
|
|
||||||
.DC $DA ;PHX Copy Blue Value
|
|
||||||
.DC $7A ;PLY to Right Nybble
|
|
||||||
JSR NYBCAT ;Concatanate Green and Blue
|
|
||||||
TAX ;and Return as LSB
|
|
||||||
.DC $7A ;PLY Return Red as MSB
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;clrrgb(c) - Convert Palette Color to RGB Values
|
|
||||||
;Args: Y = Color MSB (0000RRRR)
|
|
||||||
; X = Color LSB (GGGGBBBB)
|
|
||||||
;Returns: A = Red Value (0-15)
|
|
||||||
; Y = Green Value (0-15)
|
|
||||||
; X = Blue Value (0-15)
|
|
||||||
CLRRGB: .DC $5A ;PHY Save MSB
|
|
||||||
TXA ;Copy LSB into Accumulator
|
|
||||||
JSR NYBCUT ;and Split into Nybbles
|
|
||||||
.DC $5A ;PHY Return Blue Value
|
|
||||||
.DC $FA ;PLX in X Register
|
|
||||||
TAY ;Green Value in Y Register
|
|
||||||
PLA ;and Red Value in Accumulator
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;getclr(idx) - Get Color Entry idx from Palette
|
|
||||||
;Args: A = Color Entry Index
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y = Color MSB (0000RRRR)
|
|
||||||
; X = Color LSB (GGGGBBBB)
|
|
||||||
GETCLR: JSR SETIDX ;Set Vera Address to Palette Index
|
|
||||||
LDX $9F25 ;Get Current Data Port
|
|
||||||
LDA $9F23,X ;Read LSB from Data Port
|
|
||||||
LDY $9F23,X ;Read MSB from Data Port
|
|
||||||
TAX ;Copy LSB to X Register
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;setclr(idx) - Set Color Entry idx in Palette
|
|
||||||
;Args: A = Color Entry Index
|
|
||||||
; Y = Color MSB (0000RRRR)
|
|
||||||
; X = Color LSB (GGGGBBBB)
|
|
||||||
;Affects: A
|
|
||||||
;Returns: Y,X = Color Entry Address
|
|
||||||
SETCLR: JSR SAVRXY ;Save Color Value
|
|
||||||
JSR SETIDX ;Set Vera Address to Palette Index
|
|
||||||
LDX $9F25 ;Get Current Data Port
|
|
||||||
LDA TEMP1 ;Retrieve Color Value LSB
|
|
||||||
STA $9F23,X ;and Write to Data Port
|
|
||||||
LDA TEMP2 ;Retrieve Color Value MSB
|
|
||||||
STA $9F23,X ;Read MSB from Data Port
|
|
||||||
RTS
|
|
||||||
|
|
||||||
;setidx(idx) - Set Vera Address to Palette Index
|
|
||||||
;Args: A = Index
|
|
||||||
;Returns: A = Bank + Auto-Increment
|
|
||||||
; Y,X = Address
|
|
||||||
SETIDX: ASL ;Multiply Index by 2
|
|
||||||
TAX ;and Set as LSB
|
|
||||||
LDA #$10 ;Get Palette Page
|
|
||||||
ADC #$00 ;Add Carry from Multiply
|
|
||||||
TAY ;and Set as MSB
|
|
||||||
JMP REGADR ;and Set Address to Register
|
|
||||||
|
|||||||
@ -15,17 +15,6 @@ char clrrgb();
|
|||||||
* Returns: int c - Color Value */
|
* Returns: int c - Color Value */
|
||||||
char getclr();
|
char getclr();
|
||||||
|
|
||||||
/* Read Display Controller Register *
|
|
||||||
* Args: char r - Register Offset *
|
|
||||||
* Returns: char v - Register Value */
|
|
||||||
char getdcr();
|
|
||||||
|
|
||||||
/* Read Video Output Mode *
|
|
||||||
* Returns: m - Output Mode *
|
|
||||||
* c - Chroma Disabled *
|
|
||||||
* f - Current Field */
|
|
||||||
char getvid();
|
|
||||||
|
|
||||||
/* Convert R, G, and B Values *
|
/* Convert R, G, and B Values *
|
||||||
* to Palette Color Value *
|
* to Palette Color Value *
|
||||||
* Args: r - Red Value (0-15) *
|
* Args: r - Red Value (0-15) *
|
||||||
|
|||||||
99
x16/include/veraclr.a02
Normal file
99
x16/include/veraclr.a02
Normal file
@ -0,0 +1,99 @@
|
|||||||
|
; Vera Display Composer Assembly Language Routines for C02
|
||||||
|
; Requires External Routines NYBCAT, NYBCUT, REGADR, and SAVRXY
|
||||||
|
; and External Variables TEMP1 and TEMP2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;rgbclr(r,g,b) - Convert RGB Values to Palette Color
|
||||||
|
;Args: A = Red Value (0-15)
|
||||||
|
; Y = Green Value (0-15)
|
||||||
|
; X = Blue Value (0-15)
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y = Color MSB (0000RRRR)
|
||||||
|
; X = Color LSB (GGGGBBBB)
|
||||||
|
RGBCLR: PHA ;Save Red Value
|
||||||
|
TYA ;Copy Green Value to Left Nybble
|
||||||
|
.DC $DA ;PHX Copy Blue Value
|
||||||
|
.DC $7A ;PLY to Right Nybble
|
||||||
|
JSR NYBCAT ;Concatanate Green and Blue
|
||||||
|
TAX ;and Return as LSB
|
||||||
|
.DC $7A ;PLY Return Red as MSB
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;clrrgb(c) - Convert Palette Color to RGB Values
|
||||||
|
;Args: Y = Color MSB (0000RRRR)
|
||||||
|
; X = Color LSB (GGGGBBBB)
|
||||||
|
;Returns: A = Red Value (0-15)
|
||||||
|
; Y = Green Value (0-15)
|
||||||
|
; X = Blue Value (0-15)
|
||||||
|
CLRRGB: .DC $5A ;PHY Save MSB
|
||||||
|
TXA ;Copy LSB into Accumulator
|
||||||
|
JSR NYBCUT ;and Split into Nybbles
|
||||||
|
.DC $5A ;PHY Return Blue Value
|
||||||
|
.DC $FA ;PLX in X Register
|
||||||
|
TAY ;Green Value in Y Register
|
||||||
|
PLA ;and Red Value in Accumulator
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;getclr(idx) - Get Color Entry idx from Paleftte
|
||||||
|
;Args: A = Color Entry Index
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y = Color MSB (0000RRRR)
|
||||||
|
; X = Color LSB (GGGGBBBB)
|
||||||
|
GETCLR: JSR SETIDX ;Set Vera Address to Palette Index
|
||||||
|
LDX $9F25 ;Get Current Data Port
|
||||||
|
LDA $9F23,X ;Read LSB from Data Port
|
||||||
|
LDY $9F23,X ;Read MSB from Data Port
|
||||||
|
TAX ;Copy LSB to X Register
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;setclr(idx) - Set Color Entry idx in Palette
|
||||||
|
;Args: A = Color Entry Index
|
||||||
|
; Y = Color MSB (0000RRRR)
|
||||||
|
; X = Color LSB (GGGGBBBB)
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y,X = Color Entry Address
|
||||||
|
SETCLR: JSR SAVRXY ;Save Color Value
|
||||||
|
JSR SETIDX ;Set Vera Address to Palette Index
|
||||||
|
LDX $9F25 ;Get Current Data Port
|
||||||
|
LDA TEMP1 ;Retrieve Color Value LSB
|
||||||
|
STA $9F23,X ;and Write to Data Port
|
||||||
|
LDA TEMP2 ;Retrieve Color Value MSB
|
||||||
|
STA $9F23,X ;Read MSB from Data Port
|
||||||
|
RTS
|
||||||
|
|
||||||
|
|
||||||
|
;setidy(idx) - Set Palette Index and Entry Count
|
||||||
|
;Args: A = Palette Index
|
||||||
|
; Y = Number of Entries
|
||||||
|
;Returns: A = Bank + Auto-Increment
|
||||||
|
; Y,X = Address
|
||||||
|
SETIDY: STY TEMP0 ;Store Number of Colors
|
||||||
|
ASL TEMP0 ;and Multiply by 2
|
||||||
|
|
||||||
|
;setidx(idx) - Set Vera Address to Palette Index
|
||||||
|
;Args: A = Index
|
||||||
|
;Returns: A = Bank + Auto-Increment
|
||||||
|
; Y,X = Address
|
||||||
|
SETIDX: ASL ;Multiply Index by 2
|
||||||
|
TAX ;and Set as LSB
|
||||||
|
LDA #$10 ;Get Palette Page
|
||||||
|
ADC #$00 ;Add Carry from Multiply
|
||||||
|
TAY ;and Set as MSB
|
||||||
|
JMP REGADR ;and Set Address to Register
|
||||||
|
|
||||||
|
;getplt(idx,num) - Set Palette Colors
|
||||||
|
;Args: A = Starting Index
|
||||||
|
; Y = Number of Colors (1-128)
|
||||||
|
;Uses: DSTLO,DSTHI = Address of Destination Array
|
||||||
|
;Affects: A,X,Y
|
||||||
|
GETPLT: JSR SETIDY ;Set Vera Address and Entry Count
|
||||||
|
JMP GETMEA ;Read Color Entries from Vera Memory
|
||||||
|
|
||||||
|
;setplt(idx,num) - Set Palette Colors
|
||||||
|
;Args: A = Starting Index
|
||||||
|
; Y = Number of Colors (1-128)
|
||||||
|
;Uses: SRCLO,SRCHI = Address of Color Entries
|
||||||
|
;Affects: A,X,Y
|
||||||
|
SETPLT: JSR SETIDY ;Set Vera Address and Entry Count
|
||||||
|
JMP SETMEA ;Write Color Entries to Vera Memory
|
||||||
50
x16/include/veraclr.h02
Normal file
50
x16/include/veraclr.h02
Normal file
@ -0,0 +1,50 @@
|
|||||||
|
/***************************************************
|
||||||
|
* vera.h02 - Commander X16 Routines for Vera chip *
|
||||||
|
***************************************************/
|
||||||
|
|
||||||
|
/* Convert Palette Color Value *
|
||||||
|
* to R, G, and B Values *
|
||||||
|
* Args: int c - Color Value *
|
||||||
|
* Returns: Red Value (0-15) *
|
||||||
|
* Green Value (0-15) *
|
||||||
|
* Blue Value (0-15) */
|
||||||
|
char clrrgb();
|
||||||
|
|
||||||
|
/* Read Color Value from Palette *
|
||||||
|
* Args: char i - Palette Index *
|
||||||
|
* Returns: int c - Color Value */
|
||||||
|
char getclr();
|
||||||
|
|
||||||
|
/* Read Color Entries from Palette *
|
||||||
|
* Args: i - Index into Palette *
|
||||||
|
* n - Number of Entries *
|
||||||
|
* Requires: setdst(&array) */
|
||||||
|
char getplt();
|
||||||
|
|
||||||
|
/* Convert R, G, and B Values *
|
||||||
|
* to Palette Color Value *
|
||||||
|
* Args: r - Red Value (0-15) *
|
||||||
|
* g - Green Value (0-15) *
|
||||||
|
* b - Blue Value (0-15) *
|
||||||
|
* Returns: int c - Color Value */
|
||||||
|
char rgbclr();
|
||||||
|
|
||||||
|
/* Write Color Value to Palette *
|
||||||
|
* Args: i - Index into Palette *
|
||||||
|
* int c - Color Value *
|
||||||
|
* Returns: int d = Entry Address */
|
||||||
|
char setclr();
|
||||||
|
|
||||||
|
/* Set Vera Address to Palette Index *
|
||||||
|
* Args: i - Index into Palette *
|
||||||
|
* int c - Color Value *
|
||||||
|
* Returns: char b = Bank |Auto-Incr *
|
||||||
|
* int d = Entry Address */
|
||||||
|
char setidx();
|
||||||
|
|
||||||
|
/* Write Color Entries to Palette *
|
||||||
|
* Args: i - Index into Palette *
|
||||||
|
* n - Number of Entries *
|
||||||
|
* Requires: setsrc(&entries) */
|
||||||
|
char setplt();
|
||||||
|
|
||||||
234
x16/include/veradsp.a02
Normal file
234
x16/include/veradsp.a02
Normal file
@ -0,0 +1,234 @@
|
|||||||
|
; Vera Display Composer Assembly Language Routines for C02
|
||||||
|
; Requires External Routines GETDCR and SETDCX
|
||||||
|
; and External Variables TEMP0, TEMP1, and TEMP2
|
||||||
|
|
||||||
|
;getbdr() - Get Get Border Color
|
||||||
|
;Returns: A = Border Color Palette Index
|
||||||
|
GETBDR: LDA #$03 ;Set Register Offset to Border Color
|
||||||
|
|
||||||
|
;getdcr() - Get Display Composer Register
|
||||||
|
;Args: A = Register Offset
|
||||||
|
;Affects: Y
|
||||||
|
;Returns: A = Contents of Register
|
||||||
|
; X = Current Data Port
|
||||||
|
GETDCR: LDY #$00 ;Set MSB to Display Composer Page
|
||||||
|
TAX ;Set LSB to Register Offset
|
||||||
|
JMP GETREG ;and Execute GETREG
|
||||||
|
|
||||||
|
;getiql() - Get Interrupt Line
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y,X = Interrupt Line#
|
||||||
|
GETIQL: LDA #9 ;Set Register Offset to Interrupt Line
|
||||||
|
.DC $2C ;Skip to SETDCX (BIT Absolute)
|
||||||
|
|
||||||
|
;getscl() - Get Horizontal and Vertical Scale
|
||||||
|
;Returns: A,X = Horizontal Scale
|
||||||
|
; Y = Vertical Scale
|
||||||
|
GETSCL: LDA #1 ;Set Register Offset to HSCALE,VSCALE
|
||||||
|
|
||||||
|
;getdci() - Get Display Composer Register Pair
|
||||||
|
;Args: A = Register Offset
|
||||||
|
;Affects: Y
|
||||||
|
;Returns: A,X = Integer LSB
|
||||||
|
; Y = Integer LSB
|
||||||
|
GETDCI: LDY #$00 ;Set MSB to Display Composer Page
|
||||||
|
TAX ;Set LSB to Register Offset
|
||||||
|
JMP GETREI ;Get Vera Register Pair
|
||||||
|
|
||||||
|
;getvid() - Get Video Output Mode
|
||||||
|
;Returns: A = Video Mode
|
||||||
|
; Y = Chroma Disabled
|
||||||
|
; X = Current Field
|
||||||
|
GETVID: LDA #$00 ;Set Register Offset to Video Output
|
||||||
|
JSR GETDCR ;Read from Display Composer
|
||||||
|
LDY #$00 ;Set Chroma Disabled to FALSE
|
||||||
|
LDX #$00 ;Set Video Field to EVEN
|
||||||
|
BIT GETVIM ;Test Chroma Disabled Bit
|
||||||
|
BEQ GETVIE ;If Bit 3 is Set
|
||||||
|
DEY ; Set Chroma Disabled to TRUE
|
||||||
|
BIT GETVIM ;Test Chroma Disabled Bit
|
||||||
|
GETVIE: BCC GETVIF ;If Bit 7 is Set
|
||||||
|
DEX ; Set Video Field to ODD
|
||||||
|
GETVIF: AND #$03 ;Isolate Bits 0-2 (Video Output Mode)
|
||||||
|
RTS
|
||||||
|
GETVIM: .DC $04 ;Chroma Disable Bit Mask
|
||||||
|
|
||||||
|
;getvsp() - Get Vertical Stop
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y,X = Vertical Stop
|
||||||
|
GETVSP: LDA #7 ;Set Reg Offset to Vertical Stop
|
||||||
|
JSR GETHVS ;Read Registers
|
||||||
|
LSR ;Shift Left One Bit
|
||||||
|
JMP GETVSS ;Then Four More Bits and Mask
|
||||||
|
|
||||||
|
;getvsr() - Get Vertical Start
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y,X = Vertical Start
|
||||||
|
GETVSR: LDA #6 ;Set Reg Offset to Vertical Start
|
||||||
|
JSR GETHVS ;Read Registers
|
||||||
|
GETVSS: LSR ;Shift Left Four Bit
|
||||||
|
LSR
|
||||||
|
LSR
|
||||||
|
LSR
|
||||||
|
AND #$01 ;Isolate Bit 0
|
||||||
|
TAY ;and Copy MSB to Y
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;gethsp() - Get Horizontal Stop
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y,X = Horizontal Stop
|
||||||
|
GETHSP: LDA #5 ;Set Lookup Index to Horizontal Start
|
||||||
|
JSR GETHVS ;Read Registers
|
||||||
|
LSR ;Shift Left Two Bits
|
||||||
|
LSR
|
||||||
|
JMP GETHSS ;then Mask and Return
|
||||||
|
|
||||||
|
;gethsr() - Get Horizontal Start
|
||||||
|
;Affects: A
|
||||||
|
;Returns: Y,X = Horizontal Start
|
||||||
|
GETHSR: LDA #4 ;Set Lookup Index to Horizontal Start
|
||||||
|
JSR GETHVS ;Read Registers
|
||||||
|
GETHSS: AND #$03 ;Isolate Bit 0
|
||||||
|
TAY ;and Copy MSB to Y
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;gethvs() - Get Start/Stop Low Byte and High Bits
|
||||||
|
;Args: X = Low Register
|
||||||
|
;Affects: Y
|
||||||
|
;Returns: A = High Bits
|
||||||
|
; X = Low Byte
|
||||||
|
GETHVS: JSR GETDCR ;Read LSB from Register
|
||||||
|
PHA ;and Save It
|
||||||
|
LDA #8 ;Load Register Offset for High Bits
|
||||||
|
STA $9F20 ;Set As Address LSB
|
||||||
|
LDA $9F23,X ;and Read High Bits into A
|
||||||
|
.DC $FA ;PLX ;Restore LSB into X
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;setbdr() - Set Border Color
|
||||||
|
;Args: A = Border Color Palette Index
|
||||||
|
SETBDR: LDX #3 ;Set Register Offset to Border Color
|
||||||
|
.DC $2C ;Skip to SETDCX (BIT Absolute)
|
||||||
|
|
||||||
|
;setdcr() - Set Display Composer Register
|
||||||
|
;Args: A = Register Offset
|
||||||
|
; Y = Value to Write
|
||||||
|
;Affects: Y
|
||||||
|
;Returns: A = Value Written
|
||||||
|
; X = Current Data Port
|
||||||
|
SETDCR: TAX ;Set LSB to Register Offset
|
||||||
|
TYA ;Move Write Value to Accumulator
|
||||||
|
SETDCX: LDY #$00 ;Set MSB to Display Composer Page
|
||||||
|
JMP SETREG ;Write to Register
|
||||||
|
|
||||||
|
;setvid() - Set Video Output Mode
|
||||||
|
;Args: A = Video Mode
|
||||||
|
; Y = Chroma Disabled
|
||||||
|
;Destroys: TEMP0
|
||||||
|
SETVID: AND #3 ;Isolate Video Mode Bits
|
||||||
|
CPY #0 ;Set Chroma Mask to
|
||||||
|
BEQ SETVIF ; 0 if Y is Zero or
|
||||||
|
LDY #4 ; 4 if it is not
|
||||||
|
SETVIF: STY TEMP0 ;Save Chroma Bit
|
||||||
|
ORA TEMP0 ;Combine with Video Mode Bits
|
||||||
|
LDX #0 ;Set Register Offset to Video Mode
|
||||||
|
BEQ SETDCX ;Write to Register
|
||||||
|
|
||||||
|
;setiql() - Set IRQ Line
|
||||||
|
;Args: Y,X = IRQ Line Number`
|
||||||
|
;Sets: TEMP1,TEMP2 = IRQ Line Number
|
||||||
|
;Affecta: A,Y,X
|
||||||
|
SETIQL: TXA ;Copy LSB to Accumulator
|
||||||
|
LDX #9 ;Set Register Offset to HSCALE,VSCALE
|
||||||
|
.DC $2C ;Skip to SETDCP (BIT Absolute)
|
||||||
|
|
||||||
|
;setscl() - Set Horizontal and Vertical Scale
|
||||||
|
;Args: A = Horizontal Scale
|
||||||
|
; Y = Vertical Scale
|
||||||
|
SETSCL: LDX #1 ;Set Register Offset to HSCALE,VSCALE
|
||||||
|
|
||||||
|
;setdcp() - Set Display Composer Register Pair
|
||||||
|
;Args: A = First Register Value
|
||||||
|
; Y = Second Register Value
|
||||||
|
; X = Register Offset
|
||||||
|
;Affects: A,Y
|
||||||
|
;Returns: X = Current Data Port
|
||||||
|
SETDCP: STA TEMP1 ;Store First Value as LSB
|
||||||
|
STY TEMP2 ;Store Second Value as MSB
|
||||||
|
LDY #$00 ;Set MSB to Display Composer Page
|
||||||
|
JMP SETREI ;Set Register to Integer
|
||||||
|
|
||||||
|
;sethsp() - Set Horizontal Stop
|
||||||
|
;Args: Y,X = Horizontal Stop
|
||||||
|
;Destroys TEMP1,TEMP2
|
||||||
|
;Affects: A,X,Y
|
||||||
|
SETHSP: TYA ;Convert MSB to High Bits
|
||||||
|
AND #$03
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
STA TEMP1 ;and Save
|
||||||
|
TXA ;Copy LSB to Accumlator
|
||||||
|
LDX #5 ;Set Register Offset to Horizontal Start
|
||||||
|
LDY #$F3 ;Set High Bits Mask
|
||||||
|
BNE SETHVS ;OR in High Bits and Write Back
|
||||||
|
|
||||||
|
;sethsr() - Set Horizontal Start
|
||||||
|
;Args: Y,X = Horizontal Start
|
||||||
|
;Destroys TEMP1,TEMP2
|
||||||
|
;Affects: A,X,Y
|
||||||
|
SETHSR: TYA ;Convert MSB to High Bits
|
||||||
|
AND #$03
|
||||||
|
STA TEMP1 ;and Save
|
||||||
|
TXA ;Copy LSB to Accumlator
|
||||||
|
LDX #4 ;Set Register Offset to Horizontal Start
|
||||||
|
LDY #$FC ;Set High Bits Mask
|
||||||
|
|
||||||
|
;sethvs() - Set Horizontal/Vertial Start/Stop
|
||||||
|
;Args: A = Start/Stop LSB
|
||||||
|
; Y = High Bits and Mask
|
||||||
|
; X = LSB Register Offset
|
||||||
|
;Uses: TEMP1 = Start Stop High Bits
|
||||||
|
;Destroys: TEMP2
|
||||||
|
;Affects: A,X,Y
|
||||||
|
SETHVS: STY TEMP2 ;Save
|
||||||
|
JSR SETDCX ;Write LSB
|
||||||
|
LDA #8 ;Load Register Offset for High Bits
|
||||||
|
STA $9F20 ;Set As Address LSB
|
||||||
|
LDA $9F23,X ;and Read High Bits into A
|
||||||
|
AND TEMP2 ;Mask Start Stop High
|
||||||
|
ORA TEMP1 ;OR in High Bits
|
||||||
|
STA $9F23,X ;and Write back to Register
|
||||||
|
RTS
|
||||||
|
|
||||||
|
;setvsp() - Set Horizontal Stop
|
||||||
|
;Args: Y,X = Horizontal Stop
|
||||||
|
;Destroys TEMP1,TEMP2
|
||||||
|
;Affects: A,X,Y
|
||||||
|
SETVSP: TYA ;Convert MSB to High Bit
|
||||||
|
AND #$01
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
STA TEMP1 ;and Save
|
||||||
|
TXA ;Copy LSB to Accumlator
|
||||||
|
LDX #7 ;Set Register Offset to Horizontal Start
|
||||||
|
LDY #$DF ;Set High Bits Mask
|
||||||
|
BNE SETHVS ;OR in High Bits and Write Back
|
||||||
|
|
||||||
|
;setvsr() - Set Horizontal Start
|
||||||
|
;Args: Y,X = Horizontal Start
|
||||||
|
;Destroys TEMP1,TEMP2
|
||||||
|
;Affects: A,X,Y
|
||||||
|
SETVSR: TYA ;Convert MSB to High Bit
|
||||||
|
AND #$01
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
STA TEMP1 ;and Save
|
||||||
|
TXA ;Copy LSB to Accumlator
|
||||||
|
LDX #6 ;Set Register Offset to Horizontal Start
|
||||||
|
LDY #$EF ;Set High Bits Mask
|
||||||
|
BNE SETHVS ;OR in High Bits and Write Back
|
||||||
73
x16/include/veradsp.h02
Normal file
73
x16/include/veradsp.h02
Normal file
@ -0,0 +1,73 @@
|
|||||||
|
/*********************************************
|
||||||
|
* veradsp.h02 - Display Composer Functions *
|
||||||
|
* Commander X16 VERA Chip *
|
||||||
|
*********************************************/
|
||||||
|
|
||||||
|
/* Get Border Color *
|
||||||
|
* Returns: char i = Color Index */
|
||||||
|
char getbdr();
|
||||||
|
|
||||||
|
/* Get Horizontal Stop *
|
||||||
|
* Returns: int i = Horizontal Stop */
|
||||||
|
char gethsp();
|
||||||
|
|
||||||
|
/* Get Horizontal Start *
|
||||||
|
* Returns: int i = Horizontal Start */
|
||||||
|
char gethsr();
|
||||||
|
|
||||||
|
/* Get IRQ Line *
|
||||||
|
* Returns: int i = IRQ Line */
|
||||||
|
char getiql();
|
||||||
|
|
||||||
|
/* Get Horizontal and Vertical Scale *
|
||||||
|
* Returns: char h = Horizontal Scale *
|
||||||
|
* char v - Vertical Scale */
|
||||||
|
char getscl();
|
||||||
|
|
||||||
|
/* Get Video Output Mode *
|
||||||
|
* Returns: char m - Output Mode *
|
||||||
|
* char c - Chroma Disabled *
|
||||||
|
* char f - Current Field */
|
||||||
|
char getvid();
|
||||||
|
|
||||||
|
/* Get Vertical Stop *
|
||||||
|
* Returns: int i = Vertical Stop */
|
||||||
|
char getvsp();
|
||||||
|
|
||||||
|
/* Get Vertical Start *
|
||||||
|
* Returns: int i = Vertical Start */
|
||||||
|
char getvsr();
|
||||||
|
|
||||||
|
/* Set Border Color *
|
||||||
|
* Args: char i = Color Index */
|
||||||
|
char setbdr();
|
||||||
|
|
||||||
|
/* Set Horizontal Stop *
|
||||||
|
* Args: int i = Horizontal Stop */
|
||||||
|
char sethsp();
|
||||||
|
|
||||||
|
/* Set Horizontal Start *
|
||||||
|
* Args: int i = Horizontal Start */
|
||||||
|
char sethsr();
|
||||||
|
|
||||||
|
/* set IRQ Line *
|
||||||
|
* Args: int i = IRQ Line */
|
||||||
|
char setiql();
|
||||||
|
|
||||||
|
/* Set Horizontal and Vertical Scale *
|
||||||
|
* Args: char h = Horizontal Scale *
|
||||||
|
* char v - Vertical Scale */
|
||||||
|
char setscl();
|
||||||
|
|
||||||
|
/* Set Video Output Mode *
|
||||||
|
* Args: char m - Output Mode *
|
||||||
|
* char c - Chroma Disabled */
|
||||||
|
char setvid();
|
||||||
|
|
||||||
|
/* Set Vertical Stop *
|
||||||
|
* Args: int i = Vertical Stop */
|
||||||
|
char setvsp();
|
||||||
|
|
||||||
|
/* Set Vertical Start *
|
||||||
|
* Args: int i = Vertical Start */
|
||||||
|
char setvsr();
|
||||||
@ -143,7 +143,7 @@ SETINT: TXA ;Copy LSB to Accumlator
|
|||||||
; X = Current Data Port
|
; X = Current Data Port
|
||||||
SETMEM: STA TEMP0 ;Save Number of Bytes
|
SETMEM: STA TEMP0 ;Save Number of Bytes
|
||||||
JSR SETSRC ;Save Destination Address
|
JSR SETSRC ;Save Destination Address
|
||||||
LDX $9F25 ;Get Current Data Port
|
SETMEA: LDX $9F25 ;Get Current Data Port
|
||||||
LDY #0 ;Initialize Counter
|
LDY #0 ;Initialize Counter
|
||||||
SETMEL: LDA (SRCLO),Y ;Read Byte from Array
|
SETMEL: LDA (SRCLO),Y ;Read Byte from Array
|
||||||
STA $9F23,X ;Write Byte to Data Port
|
STA $9F23,X ;Write Byte to Data Port
|
||||||
|
|||||||
@ -21,17 +21,12 @@ char getbyt();
|
|||||||
char getint();
|
char getint();
|
||||||
|
|
||||||
/* Read from Vera Memory into Array *
|
/* Read from Vera Memory into Array *
|
||||||
* Args: char opts - Bank | Auto-Increment *
|
* Args: char n - Number of Bytes *
|
||||||
* int addr - Address Bits 0-15 *
|
* int d - Address of Array *
|
||||||
* Returns: char count - Bytes Written */
|
* Requires: setadr(bank,addr) *
|
||||||
|
* Returns: char count - Bytes Written */
|
||||||
char getmem();
|
char getmem();
|
||||||
|
|
||||||
/* Read Vera Internal Register Pair *
|
|
||||||
* Args: int addr - Register Address *
|
|
||||||
* Returns: char byte - Register LSB *
|
|
||||||
* int word - Register Contents */
|
|
||||||
char getrei();
|
|
||||||
|
|
||||||
/* Set Vera Memory Address *
|
/* Set Vera Memory Address *
|
||||||
* Args: char opts - Bank | Auto-Increment *
|
* Args: char opts - Bank | Auto-Increment *
|
||||||
* int addr - Address *
|
* int addr - Address *
|
||||||
@ -48,7 +43,8 @@ char setbyt();
|
|||||||
char setint();
|
char setint();
|
||||||
|
|
||||||
/* Write from Array to Vera Memory *
|
/* Write from Array to Vera Memory *
|
||||||
* Args: int word - Integer to Write *
|
* Args: char n - Number of Bytes *
|
||||||
|
* int d - Address of Array *
|
||||||
* Requires: setadr(bank,addr) *
|
* Requires: setadr(bank,addr) *
|
||||||
* Returns: char count - Bytes Written */
|
* Returns: char count - Bytes Written */
|
||||||
char setmem();
|
char setmem();
|
||||||
|
|||||||
@ -1,6 +1,5 @@
|
|||||||
/*****************************************************
|
/*****************************************************
|
||||||
* TESTVERA *
|
* TESTVERA *
|
||||||
* Prints "HELLO WORLD" and exits *
|
|
||||||
*****************************************************/
|
*****************************************************/
|
||||||
|
|
||||||
//Specify System Header using -H option
|
//Specify System Header using -H option
|
||||||
@ -12,6 +11,8 @@
|
|||||||
#include <memory.h02>
|
#include <memory.h02>
|
||||||
#include <nybble.h02>
|
#include <nybble.h02>
|
||||||
#include "include/veramem.h02"
|
#include "include/veramem.h02"
|
||||||
|
#include "include/veradsp.h02"
|
||||||
|
#include "include/veraclr.h02"
|
||||||
#include "include/vera.h02"
|
#include "include/vera.h02"
|
||||||
|
|
||||||
const char abcdef = {1,2,3,4,5,6};
|
const char abcdef = {1,2,3,4,5,6};
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user