6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-07 15:25:31 +00:00
Code Issues Projects Releases Wiki Activity

New code from Karri

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3316 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2004-11-29 16:03:00 +00:00
parent 18b154e6b1
commit e506719f43
3 changed files with 75 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
libsrc/lynx/extzp.inc
View File

@@ -12,5 +12,19 @@
.global __iodir: zp
.global __viddma: zp
.global __sprsys: zp
.global _abc_score_ptr0: zp
.global _abc_score_ptr1: zp
.global _abc_score_ptr2: zp
.global _abc_score_ptr3: zp
.global _FileEntry: zp
.global _FileStartBlock: zp
.global _FileBlockOffset: zp
.global _FileExecFlag: zp
.global _FileDestAddr: zp
.global _FileFileLen: zp
.global _FileCurrBlock: zp
.global _FileBlockByte: zp
.global _FileDestPtr: zp

19
libsrc/lynx/extzp.s
View File

@@ -16,4 +16,23 @@ __iodir: .res 1
__viddma: .res 1
__sprsys: .res 1
; ------------------------------------------------------------------------
; sound effect pointers for multitimbral Lynx music hardware
_abc_score_ptr0: .res 2
_abc_score_ptr1: .res 2
_abc_score_ptr2: .res 2
_abc_score_ptr3: .res 2
; ------------------------------------------------------------------------
; Filesystem variables needed for reading stuff from the Lynx cart
_FileEntry: ; The file directory entry is 8 bytes
_FileStartBlock: .res 1
_FileBlockOffset: .res 2
_FileExecFlag: .res 1
_FileDestAddr: .res 2
_FileFileLen: .res 2
_FileCurrBlock: .res 1
_FileBlockByte: .res 2
_FileDestPtr: .res 2

21
libsrc/lynx/lynx-160-102-16.s
View File

@@ -13,17 +13,16 @@
;
.include "zeropage.inc"
.include "extzp.inc"
.include "tgi-kernel.inc"
.include "tgi-mode.inc"
.include "tgi-error.inc"
.include "lynx.inc"
.include "extzp.inc"
.macpack generic
; ------------------------------------------------------------------------
; Header. Includes jump table and constants.
@@ -42,8 +41,11 @@
.byte 8 ; System font Y size
.res 4, $00 ; Reserved for future extensions
; Next comes the jump table. All entries must be valid and may point to an RTS
; for test versions (function not implemented).
; Next comes the jump table. Currently all entries must be valid and may point
; to an RTS for test versions (function not implemented). A future version may
; allow for emulation: In this case the vector will be zero. Emulation means
; that the graphics kernel will emulate the function by using lower level
; primitives - for example ploting a line by using calls to SETPIXEL.
.addr INSTALL
.addr UNINSTALL
@@ -67,6 +69,7 @@
.addr OUTTEXT
.addr 0 ; IRQ entry is unused
; ------------------------------------------------------------------------
; Data.
@@ -323,6 +326,7 @@ CLEAR: lda #<cls_sprite
; from the new buffer. This is usually noticed by the user.
SETVIEWPAGE:
cmp #1
beq @L1 ; page == maxpages-1
ldy #<$de20 ; page 0
ldx #>$de20
@@ -357,6 +361,7 @@ SETVIEWPAGE:
;
SETDRAWPAGE:
cmp #1
beq @L1 ; page == maxpages-1
lda #<$de20 ; page 0
ldx #>$de20
@@ -487,7 +492,13 @@ GETPIXEL:
sta ptr1+1
ldx #0
lda #15
sta MAPCTL
lda (ptr1),y
tay
lda #$0c
sta MAPCTL
tya
plp
bcc @L1
and #$f
@@ -507,7 +518,6 @@ GETPIXEL:
;
.data
line_sprite:
.byte 0 ; Will be replaced by the code
.byte %00110000
@@ -527,6 +537,7 @@ line_tilt:
line_c:
.byte $e
.code
LINE:
lda DRAWINDEX
sta line_c