Apple-2-SW
/
Applecorn
mirror of https://github.com/bobbimanners/Applecorn.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Update .PO disk image. Verify Merlin-16 is happy!

This commit is contained in:
Bobbi Webber-Manners 2021-09-29 10:21:04 -04:00
parent b7d76e056b
commit 9e6256100a
21 changed files with 52 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
applecorn.s
View File

@ -225,6 +225,8 @@ MAINZP MAC

2
auxmem.bytwrd.s
View File

@ -485,6 +485,8 @@ OSBM2 ASC ').'

2
auxmem.chario.s
View File

@ -463,3 +463,5 @@ BYTE76 LDX #$00 ; Update LEDs and return X=SHIFT

2
auxmem.gfx.s
View File

@ -248,3 +248,5 @@ RELCOORD CLC

2
auxmem.hostfs.s
View File

@ -993,3 +993,5 @@ ERROR2E DW $C800

2
auxmem.init.s
View File

@ -190,3 +190,5 @@ HELLO ASC 'Applecorn MOS 2021-09-26'

2
auxmem.misc.s
View File

@ -546,3 +546,5 @@ AUXBLK ASC '**ENDOFCODE**'

2
auxmem.mosequ.s
View File

@ -85,3 +85,5 @@ OSFILECB EQU $2EE ; OSFILE control block

2
auxmem.oscli.s
View File

@ -513,3 +513,5 @@ ECHOLP1 JSR GSREAD

26
auxmem.vdu.s
View File

@ -109,20 +109,20 @@ VDUWORKSZ EQU VDUVAREND-VDUWORKSP+1
* Screen definitions
* 1 3 6 7 ; MODEs sort-of completed
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
SCNBYTES DB 01,08,01,01,01,01,01,01 ; Bytes per character
SCNCOLOURS DB 15,15,15,15,15,15,15,15 ; Colours-1
SCNPIXELS DB 00,07,00,00,00,00,00,00 ; Pixels per byte
SCNTYPE DB 01,128,0,01,00,00,00,64 ; Screen type
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
SCNBYTES DB 01,08,01,01,01,01,01,01 ; Bytes per character
SCNCOLOURS DB 15,15,15,15,15,15,15,15 ; Colours-1
SCNPIXELS DB 00,07,00,00,00,00,00,00 ; Pixels per byte
SCNTYPE DB 01,128,0,01,00,00,00,64 ; Screen type
* b7=FastDraw
* b6=Teletext
* b0=40COL/80COL
* Colour table
CLRTRANS16 DB 00,01,04,08,02,14,11,10
DB 05,09,12,13,06,03,07,15
CLRTRANS8 DB 00,05,01,01,06,02,02,07
CLRTRANS16 DB 00,01,04,08,02,14,11,10
DB 05,09,12,13,06,03,07,15
CLRTRANS8 DB 00,05,01,01,06,02,02,07
********************************************************************
* Note that we use PAGE2 80 column mode ($800-$BFF in main and aux)
@ -352,11 +352,11 @@ PRCHR3 TXA
PRCHR4 JSR CHARADDR ; Find character address
TXA ; Get character back
BIT VDUBANK
BPL PRCHR5 ; Not AppleGS, use short write
BPL PRCHR5 ; Not AppleGS, use short write
>>> WRTMAIN
STA [VDUADDR],Y
>>> WRTAUX
BRA PRCHR8
BRA PRCHR8
PRCHR5 PHP ; Disable IRQs while
SEI ; toggling memory
BCC PRCHR6 ; Aux memory
@ -652,7 +652,7 @@ VDU22G STA $C050 ; Enable Graphics
CLRLINE
CLREOL JSR CHARADDR ; Set VDUADDR=>start of line
BIT VDUBANK
BMI CLREOLGS ; AppleGS
BMI CLREOLGS ; AppleGS
LDY #39
LDA #$A0
:L1 STA (VDUADDR),Y
@ -848,3 +848,5 @@ BYTEA02 LDY VDUVARS+1,X
* VDU 1 - Send one character to printer
VDU01 RTS

2
mainmem.fsequ.s
View File

@ -75,6 +75,8 @@ GEOFCMD EQU $D1

2
mainmem.gfx.s
View File

@ -184,3 +184,5 @@ MHGRTAB DW $2000,$2080,$2100,$2180,$2200,$2280,$2300,$2380

2
mainmem.init.s
View File

@ -121,6 +121,8 @@ RESET TSX

2
mainmem.ldr.s
View File

@ -168,3 +168,5 @@ LOADCODE PHP ; Save carry flag

2
mainmem.lists.s
View File

@ -139,6 +139,8 @@ QUITPL HEX 04 ; Number of parameters

2
mainmem.menu.s
View File

@ -156,6 +156,8 @@ ROM8 STR "USERROM2.ROM"

2
mainmem.misc.s
View File

@ -225,6 +225,8 @@ FILEREFS DB $00,$00,$00,$00

2
mainmem.path.s
View File

@ -320,6 +320,8 @@ PREFIX DS 65 ; Buffer for ProDOS prefix

2
mainmem.svc.s
View File

@ -1065,3 +1065,5 @@ MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS

2
mainmem.wild.s
View File

@ -397,6 +397,8 @@ MATCHBUF DS 65 ; For storing match results (Pascal str)