Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-18 02:30:50 +00:00
Code Issues Projects Releases Wiki Activity

Filed cc65 bugs

Browse Source
This commit is contained in:
Joshua Bell 2017-09-01 19:35:50 -07:00
parent 0a721739f8
commit 49fb0e5ed7
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -185,7 +185,7 @@ Current file: stf.s
000800 2
000800 1
000800 1 call_main_trampoline := $0020 ; installed on ZP, turns off auxmem and calls...
000800 1 call_main_addr := $0027 ; address patched in here
000800 1 call_main_addr := call_main_trampoline+7 ; address patched in here
000800 1
000800 1 4C 04 08 start: jmp copy2aux
000803 1
@ -1507,7 +1507,7 @@ Current file: stf.s
001129 1 AD 6F 09 lda fixed_mode_flag ; if not fixed (i.e. proportional)
00112C 1 F0 0B beq end ; then exit
00112E 1 AE 01 88 ldx $8801
001131 1 A9 07 lda #$07
001131 1 A9 07 lda #7 ; 7 pixels/character
001133 1 9D 02 88 loop: sta $8802,x
001136 1 CA dex
001137 1 D0 FA bne loop

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

Binary file not shown.

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

@ -5,9 +5,6 @@
.include "auxmem.inc"
.include "a2d.inc"
call_main_trampoline := $0020 ; installed on ZP, turns off auxmem and calls...
call_main_addr := $0027 ; address patched in here
start: jmp copy2aux
save_stack:.byte 0
@ -31,6 +28,9 @@ dst: sta start,y ; self-modified
bne src
.endproc
call_main_trampoline := $20 ; installed on ZP, turns off auxmem and calls...
call_main_addr := call_main_trampoline+7 ; address patched in here
;;; Copy the following "call_main_template" routine to $20
.scope
sta RAMWRTON
@ -51,7 +51,8 @@ loop: lda call_main_template,x
sta RAMWRTON
rts
.endproc
call_main_template_end:
call_main_template_end: ; can't .sizeof(proc) before declaration
;; https://github.com/cc65/cc65/issues/478
.proc call_init
;; run the DA
@ -1290,7 +1291,7 @@ end: rts
lda fixed_mode_flag ; if not fixed (i.e. proportional)
beq end ; then exit
ldx $8801
lda #$07
lda #7 ; 7 pixels/character
loop: sta $8802,x
dex
bne loop
@ -1338,6 +1339,7 @@ width: .word 80
height: .word 10
.endproc
mode_box_left := mode_box::left ; forward refs to mode_box::left don't work?
;; https://github.com/cc65/cc65/issues/479
.proc mode_pos
left: .word 0 ; horizontal text offset