Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-15 08:27:29 +00:00
Code Issues Projects Releases Wiki Activity

Merge JGH PR 'VDU workspace completed'.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2021-09-23 12:18:29 -04:00
parent ae4511bac5
commit 5eceff7e82
1 changed files with 72 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
auxmem.vdu.s
View File

@@ -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.
********************************** **********************************
@@ -37,13 +38,12 @@ 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
@@ -60,30 +60,51 @@ 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
@@ -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