Compare commits
46 Commits
v0.53-beta
...
main
Author | SHA1 | Date |
---|---|---|
Bobbi Webber-Manners | fb180a625c | |
jgharston | 6b6c5ec95a | |
jgharston | 2b257d95c5 | |
jgharston | 189d6ff9e1 | |
jgharston | 72f6b794c5 | |
jgharston | 807c1db74b | |
jgharston | d923d07cce | |
jgharston | 68c6293e38 | |
jgharston | 01fbd66c79 | |
jgharston | bfc5ac7e71 | |
jgharston | ca507c3ae0 | |
jgharston | 056bf98715 | |
jgharston | 88425758b5 | |
jgharston | 919da45100 | |
jgharston | eb03fac973 | |
jgharston | 699c6ed83a | |
jgharston | d1ad501f02 | |
jgharston | 379fc35240 | |
jgharston | bf37cc7b9f | |
jgharston | fab0c1c1c3 | |
jgharston | de40e76fc7 | |
jgharston | 9086c0a501 | |
jgharston | 89d2feaa4d | |
jgharston | 1fc6c32cb4 | |
jgharston | ce338dabb0 | |
jgharston | 1113a55ce9 | |
jgharston | 216a1cbd21 | |
jgharston | 8d756963f9 | |
jgharston | da412d6b8a | |
Bobbi Webber-Manners | 0e36d483be | |
jgharston | 6739f65d7f | |
jgharston | d3f3d2e267 | |
jgharston | 34ed8b02ca | |
jgharston | 7d58b3aa6a | |
jgharston | 4174fe86ee | |
jgharston | 5ecf53b3ba | |
jgharston | 6906a0d90e | |
jgharston | a6c5479985 | |
Bobbi Webber-Manners | d2090e24f5 | |
Bobbi Webber-Manners | f197d427ba | |
Bobbi Webber-Manners | 3325769e5f | |
Bobbi Webber-Manners | da3e1272b8 | |
Bobbi Webber-Manners | 52115342e3 | |
Bobbi Webber-Manners | 88c40b3d1c | |
Bobbi Webber-Manners | c7d39ee8c6 | |
jgharston | 7fa3e66712 |
|
@ -1 +0,0 @@
|
|||
auxmem.vers.s
|
Binary file not shown.
Binary file not shown.
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
43
auxmem.vdu.s
43
auxmem.vdu.s
|
@ -112,16 +112,18 @@ VDUWORKSZ EQU VDUVAREND-VDUWORKSP+1
|
|||
*
|
||||
|
||||
* Screen definitions
|
||||
* 0 1 2 3 6 7 ; MODEs sort-of completed
|
||||
* 0 1 3 4 6 7 ; MODEs sort-of completed
|
||||
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 04, 02, 07, 00, 00, 00, 00, 00 ; Pixels per byte
|
||||
SCNTYPE DB 65, 64,128, 01, 00, 00, 00, 32 ; Screen type
|
||||
SCNBYTES DB 08, 08, 08, 01, 08, 01, 01, 01 ; Bytes per character
|
||||
SCNCOLOURS DB 03, 15, 15, 01, 07, 01, 01, 01 ; Colours-1
|
||||
SCNPIXELS DB 04, 02, 02, 00, 07, 00, 00, 00 ; Pixels per byte
|
||||
SCNFALLBACK DB 03, 04, 05, 03, 04, 05, 06, 07 ; Fall back if unsupported
|
||||
SCNTYPE DB 65, 64, 66, 01,128, 02, 00, 32 ; Screen type
|
||||
* b7=FastDraw -> HGR mode
|
||||
* b6=SHR mode on Apple IIgs
|
||||
* b5=Teletext
|
||||
* b1=40COL/20COL
|
||||
* b0=40COL/80COL
|
||||
|
||||
* Colour table
|
||||
|
@ -704,15 +706,16 @@ VDUINIT STA VDUQ+8
|
|||
* MODEs available:
|
||||
* MODE 0 - 640x200 SHR graphics, 80x24 bitmap text (GS only)
|
||||
* MODE 1 - 320x200 SHR graphics, 40x24 bitmap text (GS only)
|
||||
* MODE 2 - 280x192 HGR graphics, 40x24 bitmap text
|
||||
* MODE 2 --> MODE 1
|
||||
* MODE 3 - 80x24 text
|
||||
* MODE 4 --> MODE 6
|
||||
* MODE 4 - 280x192 HGR graphics, 40x24 bitmap text
|
||||
* MODE 5 --> MODE 6
|
||||
* MODE 6 - 40x24 text
|
||||
* MODE 7 - 40x24 with $80-$9F converted to spaces
|
||||
*
|
||||
* On //e, MODE 0 -> MODE 3
|
||||
* MODE 1 -> MODE 6
|
||||
* MODE 1 -> MODE 4
|
||||
* MODE 2 -> MODE 5
|
||||
*
|
||||
VDU22 JSR NEGCALL ; Find machine type
|
||||
AND #$0F
|
||||
|
@ -721,16 +724,22 @@ VDU22 JSR NEGCALL ; Find machine type
|
|||
:NOTGS STA VDUBANK
|
||||
LDA VDUQ+8
|
||||
AND #$07
|
||||
|
||||
; jgh
|
||||
BIT VDUBANK
|
||||
BMI :INIT ; Skip if GS
|
||||
CMP #$00 ; Mode 0?
|
||||
BNE :S1
|
||||
LDA #$03 ; --> Mode 3 instead
|
||||
BRA :INIT
|
||||
:S1 CMP #$01 ; Mode 1?
|
||||
BNE :INIT
|
||||
LDA #$06 ; --> Mode 6 instead
|
||||
BMI :INIT ; All MODEs supported
|
||||
CMP #$03
|
||||
BCS :INIT
|
||||
ADC #$03 ; Fall back to replacement MODE
|
||||
|
||||
; BIT VDUBANK
|
||||
; BMI :INIT ; Skip if GS
|
||||
; CMP #$00 ; Mode 0?
|
||||
; BNE :S1
|
||||
; LDA #$03 ; --> Mode 3 instead
|
||||
; BRA :INIT
|
||||
;:S1 CMP #$01 ; Mode 1?
|
||||
; BNE :INIT
|
||||
; LDA #$06 ; --> Mode 6 instead
|
||||
|
||||
:INIT TAX ; Set up MODE
|
||||
STX VDUMODE ; Screen MODE
|
||||
|
|
|
@ -0,0 +1,3 @@
|
|||
* Auto-generated by .git/hooks/pre-commit
|
||||
HELLO ASC 'Applecorn v0.54-beta-0-g3325769'
|
||||
DB $00
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -92,7 +92,6 @@ SHRXPLDFONT >>> ENTMAIN
|
|||
BNE :L1
|
||||
JSR SHRCLR24 ; Clear row 24
|
||||
>>> XF2AUX,SHRV22RET
|
||||
RTS
|
||||
|
||||
|
||||
* Explode one character to location pointed to by A3L
|
||||
|
@ -1093,7 +1092,7 @@ SHRLINELO MX %00 ; Tell merlin 16 bit M & X
|
|||
STA :D ; D = D + 2 * dy
|
||||
:S3 INX
|
||||
CPX :LIM ; Compare with x1
|
||||
BNE :L1
|
||||
BCC :L1
|
||||
|
||||
SEC ; 65816 emulation mode
|
||||
XCE
|
||||
|
@ -1169,7 +1168,7 @@ SHRLINEHI MX %00 ; Tell Merlin 16 bit M & X
|
|||
STA :D ; D = D + 2 * dx
|
||||
:S3 INX
|
||||
CPX :LIM ; Compare with y1
|
||||
BNE :L1
|
||||
BCC :L1
|
||||
|
||||
SEC ; 65816 emulation mode
|
||||
XCE
|
||||
|
@ -1568,7 +1567,7 @@ SHRPALCHANGE >>> ENTMAIN
|
|||
STAL $E19E00+9,X
|
||||
STAL $E19E00+17,X
|
||||
STAL $E19E00+25,X
|
||||
RTS
|
||||
BRA :DONE
|
||||
:MODE320 TXA
|
||||
AND #%00011110 ; Has already been shifted
|
||||
TAX
|
||||
|
@ -1576,7 +1575,7 @@ SHRPALCHANGE >>> ENTMAIN
|
|||
STAL $E19E00,X ; Store in logical slot
|
||||
LDA PALETTE320+1,Y ; Byte 2 of physical colour
|
||||
STAL $E19E00+1,X ; Store in logical slot
|
||||
>>> XF2AUX,VDUXXRET
|
||||
:DONE >>> XF2AUX,VDUXXRET
|
||||
|
||||
|
||||
* Assign a custom RGB colour to a 'logical' colour
|
||||
|
@ -1600,7 +1599,7 @@ SHRPALCUSTOM >>> ENTMAIN
|
|||
STAL $E19E00+9,X
|
||||
STAL $E19E00+17,X
|
||||
STAL $E19E00+25,X
|
||||
RTS
|
||||
BRA :DONE
|
||||
:MODE320 TXA
|
||||
AND #%00011110 ; Has already been shifted
|
||||
TAX
|
||||
|
@ -1608,7 +1607,7 @@ SHRPALCUSTOM >>> ENTMAIN
|
|||
STAL $E19E00,X ; Store in logical slot
|
||||
TYA ; R component
|
||||
STAL $E19E00+1,X ; Store in logical slot
|
||||
>>> XF2AUX,VDUXXRET
|
||||
:DONE >>> XF2AUX,VDUXXRET
|
||||
|
||||
|
||||
* Table of addresses of SHR rows (in reverse order)
|
||||
|
|
|
@ -1,2 +1,2 @@
|
|||
#mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po
|
||||
mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/JGHMusic2.po
|
||||
mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/acrn*po # tests/Creat*po
|
||||
|
|
BIN
tests/KBDTest
BIN
tests/KBDTest
Binary file not shown.
BIN
tests/Pixels
BIN
tests/Pixels
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue