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:
@@ -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 :+
|
||||||
|
@@ -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
|
||||||
|
@@ -13,8 +13,6 @@
|
|||||||
.include "joy-error.inc"
|
.include "joy-error.inc"
|
||||||
.include "apple2.inc"
|
.include "apple2.inc"
|
||||||
|
|
||||||
.macpack generic
|
|
||||||
|
|
||||||
; ------------------------------------------------------------------------
|
; ------------------------------------------------------------------------
|
||||||
|
|
||||||
; Constants
|
; Constants
|
||||||
|
Reference in New Issue
Block a user