mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 19:29:37 +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:
parent
4b601bea40
commit
2fcb498f58
@ -12,8 +12,6 @@
|
||||
.include "tgi-error.inc"
|
||||
.include "apple2.inc"
|
||||
|
||||
.macpack generic
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
; Zero page stuff
|
||||
@ -284,8 +282,9 @@ GETPIXEL:
|
||||
; Must set an error code: NO
|
||||
LINE:
|
||||
; nx = abs (x2 - x1)
|
||||
sec
|
||||
lda X2
|
||||
sub X1
|
||||
sbc X1
|
||||
sta NX
|
||||
lda X2+1
|
||||
sbc X1+1
|
||||
@ -296,8 +295,9 @@ LINE:
|
||||
sty NX+1
|
||||
|
||||
; ny = abs (y2 - y1)
|
||||
sec
|
||||
lda Y2
|
||||
sub Y1
|
||||
sbc Y1
|
||||
sta NY
|
||||
lda Y2+1
|
||||
sbc Y1+1
|
||||
@ -397,8 +397,9 @@ for: lda COUNT ; count > 0
|
||||
: jsr SETPIXEL
|
||||
|
||||
; pb = err + ny
|
||||
clc
|
||||
lda ERR
|
||||
add NY
|
||||
adc NY
|
||||
sta PB
|
||||
lda ERR+1
|
||||
adc NY+1
|
||||
@ -406,8 +407,9 @@ for: lda COUNT ; count > 0
|
||||
tax
|
||||
|
||||
; ub = pb + nx
|
||||
clc
|
||||
lda PB
|
||||
add NX
|
||||
adc NX
|
||||
sta UB
|
||||
txa
|
||||
adc NX+1
|
||||
@ -418,7 +420,8 @@ for: lda COUNT ; count > 0
|
||||
lda DX
|
||||
bpl :+
|
||||
dex
|
||||
: add X1
|
||||
: clc
|
||||
adc X1
|
||||
sta X1
|
||||
txa
|
||||
adc X1+1
|
||||
@ -429,7 +432,8 @@ for: lda COUNT ; count > 0
|
||||
lda AY
|
||||
bpl :+
|
||||
dex
|
||||
: add Y1
|
||||
: clc
|
||||
adc Y1
|
||||
sta Y1
|
||||
txa
|
||||
adc Y1+1
|
||||
@ -458,7 +462,8 @@ for: lda COUNT ; count > 0
|
||||
lda AX
|
||||
bpl :+
|
||||
dex
|
||||
: add X1
|
||||
: clc
|
||||
adc X1
|
||||
sta X1
|
||||
txa
|
||||
adc X1+1
|
||||
@ -469,7 +474,8 @@ for: lda COUNT ; count > 0
|
||||
lda DY
|
||||
bpl :+
|
||||
dex
|
||||
: add Y1
|
||||
: clc
|
||||
adc Y1
|
||||
sta Y1
|
||||
txa
|
||||
adc Y1+1
|
||||
@ -483,7 +489,8 @@ next: sta ERR
|
||||
|
||||
; } (--count)
|
||||
lda COUNT
|
||||
sub #$01
|
||||
sec
|
||||
sbc #$01
|
||||
sta COUNT
|
||||
bcc :+
|
||||
jmp for
|
||||
@ -548,7 +555,8 @@ icmp:
|
||||
tax
|
||||
tya ; X/A - arg1 (a = high)
|
||||
|
||||
sub TEMP2
|
||||
sec
|
||||
sbc TEMP2
|
||||
bne :++
|
||||
cpx TEMP
|
||||
beq :+
|
||||
|
@ -10,10 +10,6 @@
|
||||
.include "em-kernel.inc"
|
||||
.include "em-error.inc"
|
||||
|
||||
|
||||
.macpack generic
|
||||
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
; Header. Includes jump table
|
||||
|
||||
@ -98,7 +94,8 @@ PAGECOUNT:
|
||||
|
||||
MAP: sta curpage ; Remember the new page
|
||||
|
||||
add #>BASE
|
||||
clc
|
||||
adc #>BASE
|
||||
sta ptr1+1
|
||||
ldy #$00
|
||||
sty ptr1
|
||||
@ -137,7 +134,8 @@ COMMIT: lda curpage ; Get the current page
|
||||
cmp #$FF
|
||||
beq done ; Jump if no page mapped
|
||||
|
||||
add #>BASE
|
||||
clc
|
||||
adc #>BASE
|
||||
sta ptr2+1
|
||||
ldy #$00
|
||||
sty ptr2
|
||||
@ -156,9 +154,10 @@ COMMIT: lda curpage ; Get the current page
|
||||
|
||||
transfer:
|
||||
php
|
||||
clc
|
||||
lda ptr1
|
||||
sta $3C
|
||||
add ptr4
|
||||
adc ptr4
|
||||
sta $3E
|
||||
lda ptr1+1
|
||||
sta $3D
|
||||
@ -186,7 +185,8 @@ COPYFROM:
|
||||
sta ptr1
|
||||
ldy #EM_COPY::PAGE
|
||||
lda (ptr3),y
|
||||
add #>BASE
|
||||
clc
|
||||
adc #>BASE
|
||||
sta ptr1+1 ; From
|
||||
|
||||
ldy #EM_COPY::BUF
|
||||
@ -220,7 +220,8 @@ COPYTO: sta ptr3
|
||||
sta ptr2
|
||||
ldy #EM_COPY::PAGE
|
||||
lda (ptr3),y
|
||||
add #>BASE
|
||||
clc
|
||||
adc #>BASE
|
||||
sta ptr2+1 ; To
|
||||
|
||||
ldy #EM_COPY::BUF
|
||||
|
@ -13,8 +13,6 @@
|
||||
.include "joy-error.inc"
|
||||
.include "apple2.inc"
|
||||
|
||||
.macpack generic
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
|
||||
; Constants
|
||||
|
Loading…
Reference in New Issue
Block a user