Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-02-13 01:30:33 +00:00
Code Issues Projects Releases Wiki Activity

Beginnings of SHR support (just mode selection for now)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-22 13:44:40 -05:00
parent 336654560b
commit 79278f124d
6 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

1
applecorn.s
View File

@ -95,6 +95,7 @@ RD80VID EQU $C01F
TBCOLOR EQU $C022 ; GS-specific, used but commented out
KEYMOD EQU $C025 ; GS-specific
NEWVIDEO EQU $C029 ; GS-specific, new video register
SPKR EQU $C030
CLOCKCTL EQU $C034 ; GS-specific, Clock control register

2
auxmem.hgr.s
View File

@ -19,6 +19,8 @@ HGRVDU22 JSR VDU12 ; Clear text and HGR screen
STA GRON ; Enable Graphics
STA PAGE1 ; PAGE1
STA CLR80VID ; Select 40col text
LDA #$80 ; Most significant bit
TRB NEWVIDEO ; Turn off SHR
RTS

2
auxmem.init.s
View File

@ -218,6 +218,6 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK
DB $F7
HELLO ASC 'Applecorn MOS 2022-12-21'
HELLO ASC 'Applecorn MOS 2022-12-22'
DB $00 ; Unify MOS messages

7
auxmem.shr.s
View File

@ -2,7 +2,12 @@
* (c) Bobbi 2022 GPLv3
*
* Routines for drawing bitmapped text and graphics in SHR mode
* on Apple IIGS (640x200 4 colour, or 320x200 16 colour.
* on Apple IIGS (640x200 4 colour, or 320x200 16 colour.)
*
* Enable SHR mode
SHRVDU22 JSR VDU12 ; Clear text and HGR screen
LDA #$80 ; Most significant bit
TSB NEWVIDEO ; Enable SHR mode
RTS

22
auxmem.vdu.s
View File

@ -117,11 +117,11 @@ SCNTXTMAXX DB 79, 39, 39, 79, 39, 39, 39, 39 ; Max text column
SCNTXTMAXY DB 23, 23, 23, 23, 23, 23, 23, 23 ; Max text row
SCNBYTES DB 08, 08, 08, 01, 01, 01, 01, 01 ; Bytes per character
SCNCOLOURS DB 03, 15, 07, 01, 01, 01, 01, 01 ; Colours-1
SCNPIXELS DB 08, 08, 07, 00, 00, 00, 00, 00 ; Pixels per byte
SCNTYPE DB 32, 32,128, 01, 00, 00, 00, 64 ; Screen type
SCNPIXELS DB 04, 02, 07, 00, 00, 00, 00, 00 ; Pixels per byte
SCNTYPE DB 65, 64,128, 01, 00, 00, 00, 32 ; Screen type
* b7=FastDraw -> HGR mode
* b6=Teletext -> No-op
* b5=SHR mode on Apple IIgs
* b6=SHR mode on Apple IIgs
* b5=Teletext
* b0=40COL/80COL
* Colour table
@ -361,8 +361,9 @@ PUTCHRC PHA
BNE PRCHR4
CPX #$20
BCS PRCHR3 ; Not $80-$9F
LDA #$20
BIT VDUSCREEN
BVC PRCHR3 ; Not teletext
BEQ PRCHR3 ; Not teletext
LDX #$E0 ; Convert $80-$9F to space
PRCHR3 TXA
EOR #$40
@ -593,15 +594,20 @@ VDU22 LDA VDUQ+8
JSR VDU20 ; Default colours
JSR VDU26 ; Default windows
STA FULLGR ; Clear MIXED mode
LDA VDUSCREEN
BIT VDUSCREEN
BPL :NOTHGR
JMP HGRVDU22 ; b7=1, graphics mode
:NOTHGR AND #$01 ; 40col/80col bit
JMP HGRVDU22 ; b7=1, HGR mode
:NOTHGR BVC :NOTSHR
JMP SHRVDU22 ; b6=1, SHR mode
:NOTSHR LDA VDUSCREEN
AND #$01 ; 40col/80col bit
TAX
STA CLR80VID,X ; Select 40col/80col
STA TEXTON ; Enable Text
STA PAGE2 ; PAGE2
STA SETALTCHAR ; Enable alt charset
LDA #$80 ; Most significant bit
TRB NEWVIDEO ; Turn off SHR
* Fall through into CLS