mirror of
https://github.com/cc65/cc65.git
synced 2024-08-19 02:29:33 +00:00
Rename tgi_setup to tgi_install. Make tgi_install and tgi_deinstall user callable. More cosmetic changes. git-svn-id: svn://svn.cc65.org/cc65/trunk@1966 b7a2c559-68d2-44c3-8de9-860c34a00d81
81 lines
1.2 KiB
ArmAsm
81 lines
1.2 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 22.06.2002
|
|
;
|
|
; Emulation for tgi_bar.
|
|
;
|
|
|
|
.include "tgi-kernel.inc"
|
|
|
|
.importzp ptr1, ptr2, ptr3, ptr4
|
|
|
|
.proc tgi_emu_bar
|
|
|
|
lda ptr4
|
|
sta Y2
|
|
lda ptr4+1
|
|
sta Y2+1
|
|
|
|
lda ptr3
|
|
sta X2
|
|
lda ptr3+1
|
|
sta X2+1
|
|
|
|
lda ptr2
|
|
sta ptr4
|
|
sta Y1
|
|
lda ptr2+1
|
|
sta ptr4+1
|
|
sta Y1+1
|
|
|
|
lda ptr1
|
|
sta X1
|
|
lda ptr1+1
|
|
sta X1+1
|
|
|
|
@L1: jsr tgi_horline
|
|
|
|
lda Y1
|
|
cmp Y2
|
|
bne @L2
|
|
lda Y1
|
|
cmp Y2
|
|
beq @L4
|
|
|
|
@L2: inc Y1
|
|
bne @L3
|
|
inc Y1+1
|
|
|
|
@L3: lda Y1
|
|
sta ptr2
|
|
lda Y1+1
|
|
sta ptr2+1
|
|
|
|
lda X1
|
|
sta ptr1
|
|
lda X1+1
|
|
sta ptr1+1
|
|
|
|
lda X2
|
|
sta ptr3
|
|
lda X2+1
|
|
sta ptr3+1
|
|
jmp @L1
|
|
|
|
@L4: rts
|
|
|
|
.endproc
|
|
|
|
;-----------------------------------------------------------------------------
|
|
; Data
|
|
|
|
.bss
|
|
|
|
DY: .res 2
|
|
X1: .res 2
|
|
X2: .res 2
|
|
Y1: .res 2
|
|
Y2: .res 2
|
|
|
|
|
|
|