1
0
mirror of https://github.com/cc65/cc65.git synced 2025-08-13 08:25:28 +00:00

Removed generic macpack

git-svn-id: svn://svn.cc65.org/cc65/trunk@4429 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
2009-11-02 21:54:51 +00:00
parent 4b601bea40
commit 2fcb498f58
3 changed files with 30 additions and 23 deletions

View File

@@ -12,8 +12,6 @@
.include "tgi-error.inc" .include "tgi-error.inc"
.include "apple2.inc" .include "apple2.inc"
.macpack generic
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; Zero page stuff ; Zero page stuff
@@ -284,8 +282,9 @@ GETPIXEL:
; Must set an error code: NO ; Must set an error code: NO
LINE: LINE:
; nx = abs (x2 - x1) ; nx = abs (x2 - x1)
sec
lda X2 lda X2
sub X1 sbc X1
sta NX sta NX
lda X2+1 lda X2+1
sbc X1+1 sbc X1+1
@@ -296,8 +295,9 @@ LINE:
sty NX+1 sty NX+1
; ny = abs (y2 - y1) ; ny = abs (y2 - y1)
sec
lda Y2 lda Y2
sub Y1 sbc Y1
sta NY sta NY
lda Y2+1 lda Y2+1
sbc Y1+1 sbc Y1+1
@@ -397,8 +397,9 @@ for: lda COUNT ; count > 0
: jsr SETPIXEL : jsr SETPIXEL
; pb = err + ny ; pb = err + ny
clc
lda ERR lda ERR
add NY adc NY
sta PB sta PB
lda ERR+1 lda ERR+1
adc NY+1 adc NY+1
@@ -406,8 +407,9 @@ for: lda COUNT ; count > 0
tax tax
; ub = pb + nx ; ub = pb + nx
clc
lda PB lda PB
add NX adc NX
sta UB sta UB
txa txa
adc NX+1 adc NX+1
@@ -418,7 +420,8 @@ for: lda COUNT ; count > 0
lda DX lda DX
bpl :+ bpl :+
dex dex
: add X1 : clc
adc X1
sta X1 sta X1
txa txa
adc X1+1 adc X1+1
@@ -429,7 +432,8 @@ for: lda COUNT ; count > 0
lda AY lda AY
bpl :+ bpl :+
dex dex
: add Y1 : clc
adc Y1
sta Y1 sta Y1
txa txa
adc Y1+1 adc Y1+1
@@ -458,7 +462,8 @@ for: lda COUNT ; count > 0
lda AX lda AX
bpl :+ bpl :+
dex dex
: add X1 : clc
adc X1
sta X1 sta X1
txa txa
adc X1+1 adc X1+1
@@ -469,7 +474,8 @@ for: lda COUNT ; count > 0
lda DY lda DY
bpl :+ bpl :+
dex dex
: add Y1 : clc
adc Y1
sta Y1 sta Y1
txa txa
adc Y1+1 adc Y1+1
@@ -483,7 +489,8 @@ next: sta ERR
; } (--count) ; } (--count)
lda COUNT lda COUNT
sub #$01 sec
sbc #$01
sta COUNT sta COUNT
bcc :+ bcc :+
jmp for jmp for
@@ -548,7 +555,8 @@ icmp:
tax tax
tya ; X/A - arg1 (a = high) tya ; X/A - arg1 (a = high)
sub TEMP2 sec
sbc TEMP2
bne :++ bne :++
cpx TEMP cpx TEMP
beq :+ beq :+

View File

@@ -10,10 +10,6 @@
.include "em-kernel.inc" .include "em-kernel.inc"
.include "em-error.inc" .include "em-error.inc"
.macpack generic
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; Header. Includes jump table ; Header. Includes jump table
@@ -98,7 +94,8 @@ PAGECOUNT:
MAP: sta curpage ; Remember the new page MAP: sta curpage ; Remember the new page
add #>BASE clc
adc #>BASE
sta ptr1+1 sta ptr1+1
ldy #$00 ldy #$00
sty ptr1 sty ptr1
@@ -137,7 +134,8 @@ COMMIT: lda curpage ; Get the current page
cmp #$FF cmp #$FF
beq done ; Jump if no page mapped beq done ; Jump if no page mapped
add #>BASE clc
adc #>BASE
sta ptr2+1 sta ptr2+1
ldy #$00 ldy #$00
sty ptr2 sty ptr2
@@ -156,9 +154,10 @@ COMMIT: lda curpage ; Get the current page
transfer: transfer:
php php
clc
lda ptr1 lda ptr1
sta $3C sta $3C
add ptr4 adc ptr4
sta $3E sta $3E
lda ptr1+1 lda ptr1+1
sta $3D sta $3D
@@ -186,7 +185,8 @@ COPYFROM:
sta ptr1 sta ptr1
ldy #EM_COPY::PAGE ldy #EM_COPY::PAGE
lda (ptr3),y lda (ptr3),y
add #>BASE clc
adc #>BASE
sta ptr1+1 ; From sta ptr1+1 ; From
ldy #EM_COPY::BUF ldy #EM_COPY::BUF
@@ -220,7 +220,8 @@ COPYTO: sta ptr3
sta ptr2 sta ptr2
ldy #EM_COPY::PAGE ldy #EM_COPY::PAGE
lda (ptr3),y lda (ptr3),y
add #>BASE clc
adc #>BASE
sta ptr2+1 ; To sta ptr2+1 ; To
ldy #EM_COPY::BUF ldy #EM_COPY::BUF

View File

@@ -13,8 +13,6 @@
.include "joy-error.inc" .include "joy-error.inc"
.include "apple2.inc" .include "apple2.inc"
.macpack generic
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; Constants ; Constants