the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Working

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1317 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2002-06-21 21:15:46 +00:00
parent 0ee967fe17
commit 74b9e4831a
5 changed files with 32 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
libsrc/tgi/tgi-kernel.s
View File

@@ -18,7 +18,9 @@
_tgi_drv: .res 2 ; Pointer to driver
_tgi_error: .res 1 ; Last error code
_tgi_mode: .res 1 ; Graphics mode or zero
_tgi_xres: .res 2 ; X resolution of the current mode
_tgi_yres: .res 2 ; Y resolution of the current mode
.data
@@ -51,17 +53,33 @@ copy: lda (ptr1),y
_tgi_setup:
jsr tgi_set_ptr
jsr tgi_set_ptr ; load _tgi_drv into ptr1
; Copy the jump vectors
ldy #TGI_HDR_JUMPTAB
ldx #0
@L1: inx ; Skip JMP opcode
jsr copy ; Copy one byte
jsr copy ; Copy one byte
cpx #(TGI_HDR_JUMPCOUNT*3)
bne @L1
; Copy the screen dimensions
ldy #TGI_HDR_XRES
lda (ptr1),y
sta _tgi_xres
iny
lda (ptr1),y
sta _tgi_xres+1
ldy #TGI_HDR_YRES
lda (ptr1),y
sta _tgi_yres
iny
lda (ptr1),y
sta _tgi_yres+1
; Initialize variables
lda #$00