mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-08-15 08:27:29 +00:00
Merge JGH PR 'VDU workspace completed'.
This commit is contained in:
Bobbi Webber-Manners
121
auxmem.vdu.s
121
auxmem.vdu.s
@@ -12,6 +12,7 @@
|
|||||||
* 05-Sep-2021 Starting to prepare VDU workspace.
|
* 05-Sep-2021 Starting to prepare VDU workspace.
|
||||||
* 09-Sep-2021 New dispatch routine.
|
* 09-Sep-2021 New dispatch routine.
|
||||||
* 22-Sep-2021 More VDU workspace, started MODE definitions.
|
* 22-Sep-2021 More VDU workspace, started MODE definitions.
|
||||||
|
* 23-Sep-2021 More or less sorted VDU workspace.
|
||||||
|
|
||||||
|
|
||||||
**********************************
|
**********************************
|
||||||
@@ -22,7 +23,7 @@
|
|||||||
* VDU DRIVER ZERO PAGE
|
* VDU DRIVER ZERO PAGE
|
||||||
**********************
|
**********************
|
||||||
* $00D0-$00DF VDU driver zero page workspace
|
* $00D0-$00DF VDU driver zero page workspace
|
||||||
VDUSTATUS EQU $D0 ; $D0 # VDU status
|
VDUSTATUS EQU $D0 ; $D0 # VDU status
|
||||||
* bit 7 = VDU 21 VDU disabled
|
* bit 7 = VDU 21 VDU disabled
|
||||||
* bit 6 = COPY cursor active
|
* bit 6 = COPY cursor active
|
||||||
* bit 5 = VDU 5 Text at graphics cursor
|
* bit 5 = VDU 5 Text at graphics cursor
|
||||||
@@ -32,58 +33,78 @@ VDUSTATUS EQU $D0 ; $D0 # VDU status
|
|||||||
* bit 1 = Don't scroll (COPY cursor or VDU 5 mode)
|
* bit 1 = Don't scroll (COPY cursor or VDU 5 mode)
|
||||||
* bit 0 = VDU 2 printer echo active
|
* bit 0 = VDU 2 printer echo active
|
||||||
*
|
*
|
||||||
VDUCHAR EQU VDUSTATUS+1 ; $D1
|
VDUCHAR EQU VDUSTATUS+1 ; $D1
|
||||||
VDUADDR EQU VDUSTATUS+4 ; $D4 address of current char cell
|
VDUADDR EQU VDUSTATUS+4 ; $D4 address of current char cell
|
||||||
OLDCHAR EQU OSKBD1 ; *TEMP* character under cursor
|
OLDCHAR EQU OSKBD1 ; *TEMP* character under cursor
|
||||||
COPYCHAR EQU OSKBD2 ; *TEMP* character under copy cursor
|
COPYCHAR EQU OSKBD2 ; *TEMP* character under copy cursor
|
||||||
|
|
||||||
|
|
||||||
* VDU DRIVER MAIN WORKSPACE
|
* VDU DRIVER MAIN WORKSPACE
|
||||||
***************************
|
***************************
|
||||||
FXLINES EQU BYTEVARBASE+217 ; Paged scrolling line counter
|
FXLINES EQU BYTEVARBASE+217 ; Paged scrolling line counter
|
||||||
FXVDUQLEN EQU BYTEVARBASE+218 ; Length of pending VDU queue
|
FXVDUQLEN EQU BYTEVARBASE+218 ; Length of pending VDU queue
|
||||||
VDUVARS EQU $290
|
VDUVARS EQU $290
|
||||||
VDUVAREND EQU $2DF
|
VDUVAREND EQU $2ED
|
||||||
|
|
||||||
GFXWINLFT EQU VDUVARS+$00 ; # graphics window left
|
GFXWINLFT EQU VDUVARS+$00 ; # graphics window left
|
||||||
GFXWINBOT EQU VDUVARS+$02 ; # graphics window bottom \ window
|
GFXWINBOT EQU VDUVARS+$02 ; # graphics window bottom \ window
|
||||||
GFXWINRGT EQU VDUVARS+$04 ; # graphics window right / size
|
GFXWINRGT EQU VDUVARS+$04 ; # graphics window right / size
|
||||||
GFXWINTOP EQU VDUVARS+$06 ; # graphics window top
|
GFXWINTOP EQU VDUVARS+$06 ; # graphics window top
|
||||||
TXTWINLFT EQU VDUVARS+$08 ; # text window left
|
TXTWINLFT EQU VDUVARS+$08 ; # text window left
|
||||||
TXTWINBOT EQU VDUVARS+$09 ; # text window bottom \ window
|
TXTWINBOT EQU VDUVARS+$09 ; # text window bottom \ window
|
||||||
TXTWINRGT EQU VDUVARS+$0A ; # text window right / size
|
TXTWINRGT EQU VDUVARS+$0A ; # text window right / size
|
||||||
TXTWINTOP EQU VDUVARS+$0B ; # text window top
|
TXTWINTOP EQU VDUVARS+$0B ; # text window top
|
||||||
GFXORIGX EQU VDUVARS+$0C ; graphics X origin
|
GFXORIGX EQU VDUVARS+$0C ; graphics X origin
|
||||||
GFXORIGY EQU VDUVARS+$0E ; graphics Y origin
|
GFXORIGY EQU VDUVARS+$0E ; graphics Y origin
|
||||||
*
|
*
|
||||||
GFXPOSNX EQU VDUVARS+$10 ; current graphics X posn
|
GFXPOSNX EQU VDUVARS+$10 ; current graphics X posn
|
||||||
GFXPOSNY EQU VDUVARS+$12 ; current graphics Y posn
|
GFXPOSNY EQU VDUVARS+$12 ; current graphics Y posn
|
||||||
GFXLASTX EQU VDUVARS+$14 ; last graphics X posn
|
GFXLASTX EQU VDUVARS+$14 ; last graphics X posn
|
||||||
GFXLASTY EQU VDUVARS+$16 ; last graphics Y posn
|
GFXLASTY EQU VDUVARS+$16 ; last graphics Y posn
|
||||||
VDUTEXTX EQU VDUVARS+$18 ; absolute text X posn = POS+WINLFT
|
VDUTEXTX EQU VDUVARS+$18 ; # absolute text X posn = POS+WINLFT
|
||||||
VDUTEXTY EQU VDUVARS+$19 ; absolute text Y posn = VPOS+WINTOP
|
VDUTEXTY EQU VDUVARS+$19 ; # absolute text Y posn = VPOS+WINTOP
|
||||||
VDUCOPYX EQU VDUVARS+$1A ; absolute COPY text X posn
|
VDUCOPYX EQU VDUVARS+$1A ; absolute COPY text X posn
|
||||||
VDUCOPYY EQU VDUVARS+$1B ; absolute COPY text Y posn
|
VDUCOPYY EQU VDUVARS+$1B ; absolute COPY text Y posn
|
||||||
*
|
*
|
||||||
VDUQ EQU VDUVARS+$27 ; *TEMP* $27.$2F
|
PIXELPLOTX EQU VDUVARS+$1C ; PLOT graphics X in pixels
|
||||||
CURSOR EQU VDUVARS+$30 ; *TEMP* character used for cursor
|
PIXELPLOTY EQU VDUVARS+$1E ; PLOT graphics Y in pixels
|
||||||
CURSORED EQU VDUVARS+$31 ; *TEMP* character used for edit cursor
|
PIXELPOSNX EQU VDUVARS+$20 ; current graphics X in pixels
|
||||||
CURSORCP EQU VDUVARS+$32 ; *TEMP* character used for copy cursor
|
PIXELPOSNY EQU VDUVARS+$22 ; current graphics Y in pixels
|
||||||
|
PIXELLASTX EQU VDUVARS+$24 ; last graphics X in pixels
|
||||||
|
PIXELLASTY EQU VDUVARS+$26 ; last graphics Y in pixels
|
||||||
*
|
*
|
||||||
VDUPIXELS EQU VDUVARS+$33 ; *TEMP* pixels per byte
|
CURSOR EQU VDUVARS+$28 ; character used for cursor
|
||||||
VDUBYTES EQU VDUVARS+$34 ; *TEMP* bytes per char, 1=text only
|
CURSORED EQU VDUVARS+$29 ; character used for edit cursor
|
||||||
VDUMODE EQU VDUVARS+$35 ; *TEMP* current MODE
|
CURSORCP EQU VDUVARS+$2A ; character used for copy cursor
|
||||||
VDUSCREEN EQU VDUVARS+$36 ; *TEMP* MODE type
|
*
|
||||||
VDUCOLOURS EQU VDUVARS+$37 ; *TEMP* colours-1
|
VDUQ EQU VDUVARS+$2B ; $2B..$33
|
||||||
|
VDUQLAST EQU VDUQ+1 ; Neatly becomes VDUVARS+$2C
|
||||||
|
VDUQPLOT EQU VDUQ+5 ; Neatly becomes VDUVARS+$30
|
||||||
|
*
|
||||||
|
VDUBORDER EQU VDUVARS+$34 ; Border colour
|
||||||
|
VDUMODE EQU VDUVARS+$35 ; # current MODE
|
||||||
|
VDUSCREEN EQU VDUVARS+$36 ; # MODE type
|
||||||
|
TXTFGD EQU VDUVARS+$37 ; # Text foreground
|
||||||
|
TXTBGD EQU VDUVARS+$38 ; # Text background
|
||||||
|
GFXFGD EQU VDUVARS+$39 ; # Graphics foreground
|
||||||
|
GFXBGD EQU VDUVARS+$3A ; # Graphics background
|
||||||
|
GFXPLOTFGD EQU VDUVARS+$3B ; # Foreground GCOL action
|
||||||
|
GFXPLOTBGD EQU VDUVARS+$3C ; # Background GCOL action
|
||||||
|
VDUVAR3D EQU VDUVARS+$3D
|
||||||
|
VDUVAR3E EQU VDUVARS+$3E
|
||||||
|
VDUBYTES EQU VDUVARS+$3F ; # bytes per char, 1=text only
|
||||||
|
VDUCOLOURS EQU VDUVARS+$40 ; # colours-1
|
||||||
|
VDUPIXELS EQU VDUVARS+$41 ; # pixels per byte
|
||||||
|
VDUWORKSP EQU VDUVARS+$42 ; 28 bytes of general workspace
|
||||||
|
VDUWORKSZ EQU VDUVAREND-VDUWORKSP+1
|
||||||
*
|
*
|
||||||
|
|
||||||
* Screen definitions
|
* Screen definitions
|
||||||
* 3 6 7
|
* 3 6 7
|
||||||
SCNTXTMAXX DB 79,39,19,79,39,19,39,39 ; Max text column
|
SCNTXTMAXX DB 79,39,19,79,39,19,39,39 ; Max text column
|
||||||
SCNTXTMAXY DB 23,23,23,23,23,23,23,23 ; Max text row
|
SCNTXTMAXY DB 23,23,23,23,23,23,23,23 ; Max text row
|
||||||
SCNBYTES DB 1,1
|
SCNBYTES DB 1, 1, 1, 1, 1, 1, 1, 1 ; Bytes per character
|
||||||
SCNCOLOURS DB 1,1
|
SCNCOLOURS DB 1, 1, 1, 1, 1, 1, 1, 1 ; Colours-1
|
||||||
SCNTYPE DB 1,0,128,1
|
SCNTYPE DB 1, 0,128,1, 0, 0, 0,64 ; Screen type
|
||||||
* b7=FastDraw
|
* b7=FastDraw
|
||||||
* b6=Teletext
|
* b6=Teletext
|
||||||
* b0=40COL/80COL
|
* b0=40COL/80COL
|
||||||
@@ -339,11 +360,8 @@ GETCHR6 LDA (VDUADDR),Y ; Get character
|
|||||||
TAY
|
TAY
|
||||||
GETCHR7 TYA
|
GETCHR7 TYA
|
||||||
EOR #$80
|
EOR #$80
|
||||||
TAX ; X=char for OSBYTE
|
LDY VDUMODE ; Y=MODE
|
||||||
LDY #$00
|
TAX ; X=char
|
||||||
BIT $C01F
|
|
||||||
BMI GETCHROK
|
|
||||||
INY ; Y=MODE
|
|
||||||
GETCHROK RTS
|
GETCHROK RTS
|
||||||
GETCHRSOFT RTS ; *TODO* Jump to gfx
|
GETCHRSOFT RTS ; *TODO* Jump to gfx
|
||||||
|
|
||||||
@@ -496,7 +514,7 @@ VDU22 LDA VDUQ+8
|
|||||||
BMI VDU22G ; b7=1, graphics mode
|
BMI VDU22G ; b7=1, graphics mode
|
||||||
* TEMP
|
* TEMP
|
||||||
CPX #2
|
CPX #2
|
||||||
BEQ VDU22G ; Jump out for MODE 2
|
BEQ VDU22G ; Jump out for MODE 2
|
||||||
* TEMP
|
* TEMP
|
||||||
*
|
*
|
||||||
AND #$01 ; 40col/80col bit
|
AND #$01 ; 40col/80col bit
|
||||||
@@ -508,7 +526,7 @@ VDU22 LDA VDUQ+8
|
|||||||
STA $C00F ; Enable alt charset
|
STA $C00F ; Enable alt charset
|
||||||
BRA VDU22CLR
|
BRA VDU22CLR
|
||||||
|
|
||||||
|
|
||||||
VDU22G STA $C050 ; Enable Graphics
|
VDU22G STA $C050 ; Enable Graphics
|
||||||
STA $C057 ; Hi-Res
|
STA $C057 ; Hi-Res
|
||||||
STA $C054 ; PAGE1
|
STA $C054 ; PAGE1
|
||||||
@@ -539,7 +557,7 @@ CLEAR STZ VDUTEXTY ; ROW
|
|||||||
:S3 STZ VDUTEXTY ; ROW
|
:S3 STZ VDUTEXTY ; ROW
|
||||||
STZ VDUTEXTX ; COL
|
STZ VDUTEXTX ; COL
|
||||||
RTS
|
RTS
|
||||||
VDU12SOFT JMP VDU16 ; *TEMP*
|
VDU12SOFT JMP VDU16 ; *TEMP*
|
||||||
|
|
||||||
|
|
||||||
* Clear to EOL
|
* Clear to EOL
|
||||||
@@ -735,7 +753,12 @@ VDU29 RTS
|
|||||||
|
|
||||||
* OSBYTE &A0 - Read VDU variable
|
* OSBYTE &A0 - Read VDU variable
|
||||||
********************************
|
********************************
|
||||||
BYTEA0 LDY VDUVARS+1,X
|
BYTEA0 CPX #$40 ; Index into VDU variables
|
||||||
|
BCC BYTEA02
|
||||||
|
TXA
|
||||||
|
SBC #$20
|
||||||
|
TAX
|
||||||
|
BYTEA02 LDY VDUVARS+1,X
|
||||||
LDA VDUVARS+0,X
|
LDA VDUVARS+0,X
|
||||||
TAX
|
TAX
|
||||||
RTS
|
RTS
|
||||||
|
|||||||
Reference in New Issue
Block a user