Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-09-29 16:54:56 +00:00
Code Issues Projects Releases Wiki Activity

AUXMOVE params

Browse Source
This commit is contained in:
Joshua Bell 2017-08-31 18:20:36 -07:00
parent 516cc7c6bb
commit 4106152327
4 changed files with 42 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
desk.acc/show.text.file/auxmem.inc
View File

@ -12,4 +12,11 @@ ALTZPON := $C009
LCBANK1 := $C08B LCBANK1 := $C08B
;;; Routines ;;; Routines
AUXMOVE := $C311 AUXMOVE := $C311 ; carry set main>aux, carry clear aux>main
STARTLO := $3C
STARTHI := $3D
ENDLO := $3E
ENDHI := $3F
DESTINATIONLO := $42
DESTINATIONHI := $43

33
desk.acc/show.text.file/stf.list
View File

@ -65,7 +65,14 @@ Current file: stf.s
000800 2 LCBANK1 := $C08B 000800 2 LCBANK1 := $C08B
000800 2 000800 2
000800 2 ;;; Routines 000800 2 ;;; Routines
000800 2 AUXMOVE := $C311 000800 2 AUXMOVE := $C311 ; carry set main>aux, carry clear aux>main
000800 2
000800 2 STARTLO := $3C
000800 2 STARTHI := $3D
000800 2 ENDLO := $3E
000800 2 ENDHI := $3F
000800 2 DESTINATIONLO := $42
000800 2 DESTINATIONHI := $43
000800 2 000800 2
000800 1 .include "a2d.inc" 000800 1 .include "a2d.inc"
000800 2 ;;; ------------------------------ 000800 2 ;;; ------------------------------
@ -1225,14 +1232,14 @@ Current file: stf.s
00105F 1 20 76 08 jsr read_file 00105F 1 20 76 08 jsr read_file
001062 1 48 pha 001062 1 48 pha
001063 1 A9 00 lda #$00 001063 1 A9 00 lda #$00
001065 1 85 3C sta $3C 001065 1 85 3C sta STARTLO
001067 1 85 42 sta $42 001067 1 85 42 sta DESTINATIONLO
001069 1 A9 FF lda #$FF 001069 1 A9 FF lda #$FF
00106B 1 85 3E sta $3E 00106B 1 85 3E sta ENDLO
00106D 1 AD F3 08 lda read_params::db+1 00106D 1 AD F3 08 lda read_params::db+1
001070 1 85 43 sta $43 001070 1 85 43 sta DESTINATIONHI
001072 1 85 3D sta $3D 001072 1 85 3D sta STARTHI
001074 1 85 3F sta $3F 001074 1 85 3F sta ENDHI
001076 1 38 sec 001076 1 38 sec
001077 1 20 11 C3 jsr AUXMOVE 001077 1 20 11 C3 jsr AUXMOVE
00107A 1 68 pla 00107A 1 68 pla
@ -1311,16 +1318,16 @@ Current file: stf.s
001109 1 AD 6F 09 L1109: lda fixed_mode_flag 001109 1 AD 6F 09 L1109: lda fixed_mode_flag
00110C 1 F0 1A beq L1128 00110C 1 F0 1A beq L1128
00110E 1 A9 00 lda #$00 00110E 1 A9 00 lda #$00
001110 1 85 3C sta $3C 001110 1 85 3C sta STARTLO
001112 1 A9 7E lda #$7E 001112 1 A9 7E lda #$7E
001114 1 85 3E sta $3E 001114 1 85 3E sta ENDLO
001116 1 A9 11 lda #$11 001116 1 A9 11 lda #$11
001118 1 85 3D sta $3D 001118 1 85 3D sta STARTHI
00111A 1 85 3F sta $3F 00111A 1 85 3F sta ENDHI
00111C 1 A9 88 lda #$88 00111C 1 A9 88 lda #$88
00111E 1 85 43 sta $43 00111E 1 85 43 sta DESTINATIONHI
001120 1 A9 03 lda #$03 001120 1 A9 03 lda #$03
001122 1 85 42 sta $42 001122 1 85 42 sta DESTINATIONLO
001124 1 38 sec 001124 1 38 sec
001125 1 20 11 C3 jsr AUXMOVE 001125 1 20 11 C3 jsr AUXMOVE
001128 1 60 L1128: rts 001128 1 60 L1128: rts

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

28
desk.acc/show.text.file/stf.s
View File

@ -1060,15 +1060,15 @@ store: sta $1200,x ; self-modified
jsr read_file jsr read_file
pha pha
lda #$00 lda #$00
sta $3C sta STARTLO
sta $42 sta DESTINATIONLO
lda #$FF lda #$FF
sta $3E sta ENDLO
lda read_params::db+1 lda read_params::db+1
sta $43 sta DESTINATIONHI
sta $3D sta STARTHI
sta $3F sta ENDHI
sec sec ; main>aux
jsr AUXMOVE jsr AUXMOVE
pla pla
beq end beq end
@ -1146,17 +1146,17 @@ L10FF: sta $27
L1109: lda fixed_mode_flag L1109: lda fixed_mode_flag
beq L1128 beq L1128
lda #$00 lda #$00
sta $3C sta STARTLO
lda #$7E lda #$7E
sta $3E sta ENDLO
lda #$11 lda #$11
sta $3D sta STARTHI
sta $3F sta ENDHI
lda #$88 lda #$88
sta $43 sta DESTINATIONHI
lda #$03 lda #$03
sta $42 sta DESTINATIONLO
sec sec ; main>aux
jsr AUXMOVE jsr AUXMOVE
L1128: rts L1128: rts