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

Migrated SHR vars into zero page/direct page

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-07 21:00:36 -05:00
parent 8f23468837
commit e18df1d337
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

16
mainmem.shr.s
View File

@ -15,7 +15,7 @@ SHRFONTXPLD EQU $A000 ; Explode SHR font to $E1:A000
******************************************************************************
* 33 bytes of persistent storage
* 21 bytes of persistent storage, also accessed by mainmem code
* TODO: Move to SHRZP maybe
SHRPIXELS DB $00 ; Main memory copy of VDUPIXELS
SHRVDUQ DS 16 ; Main memory copy of VDUQ
@ -23,12 +23,14 @@ SHRGFXFGMASK DB $00 ; Foreground colour mask
SHRGFXFGMSK2 DB $00 ; Copy of foreground colour mask
SHRGFXBGMASK DB $00 ; Background colour mask
SHRGFXACTION DB $00 ; GCOL action for point plotting
SHRXPIXEL DW $0000 ; Previous point in screen coords
SHRYPIXEL DW $0000 ; Previous point in screen coords
SHRWINLFT DW $0000 ; Graphics window - left (0-639)
SHRWINRGT DW $0000 ; Graphics window - right (0-639)
SHRWINTOP DW $0000 ; Graphics window - top (0-199)
SHRWINBTM DW $0000 ; Graphics window - bottom (0-199)
* These are all persistent locals
SHRXPIXEL EQU SHRZP+0 ; Prev point in screen coords (word)
SHRYPIXEL EQU SHRZP+2 ; Prev point in screen coords (word)
SHRWINLFT EQU SHRZP+4 ; Gfx window - left (0-639) (word)
SHRWINRGT EQU SHRZP+6 ; Gfx window - right (0-639) (word)
SHRWINTOP EQU SHRZP+8 ; Gfx window - top (0-199) (word)
SHRWINBTM EQU SHRZP+10 ; Gfx window - bottom (0-199) (word)
* Explode font to generate SHRFONTXPLD table