Added library reference tgi_libref to TGI interface.
This commit is contained in:
@@ -4,12 +4,13 @@
|
||||
; Common functions of the tgi graphics kernel.
|
||||
;
|
||||
|
||||
.include "tgi-kernel.inc"
|
||||
.include "tgi-error.inc"
|
||||
|
||||
.import tgi_libref
|
||||
.importzp ptr1
|
||||
.interruptor tgi_irq ; Export as IRQ handler
|
||||
|
||||
.include "tgi-kernel.inc"
|
||||
.include "tgi-error.inc"
|
||||
|
||||
|
||||
;----------------------------------------------------------------------------
|
||||
; Variables
|
||||
@@ -108,6 +109,15 @@ _tgi_install:
|
||||
dey
|
||||
bpl @L0
|
||||
|
||||
; Set the library reference
|
||||
|
||||
ldy #TGI_HDR::LIBREF
|
||||
lda #<tgi_libref
|
||||
sta (ptr1),y
|
||||
iny
|
||||
lda #>tgi_libref
|
||||
sta (ptr1),y
|
||||
|
||||
; Copy the jump vectors
|
||||
|
||||
ldy #TGI_HDR::JUMPTAB
|
||||
|
||||
Reference in New Issue
Block a user