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

Image: Use hat operator to get 3rd byte; more symbols for STF

Browse Source
This commit is contained in:
Joshua Bell 2017-09-15 19:08:20 -07:00
parent 326760e6bc
commit df3ad2054c
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
desk.acc/show_image_file.s
View File

@ -394,11 +394,11 @@ end: rts
;; If bigger than $2000, assume DHR
lda get_eof_params::length ; fancy 3-byte unsigned compare
cmp #<hires_size+1
cmp #<(hires_size+1)
lda get_eof_params::length+1
sbc #>hires_size+1
sbc #>(hires_size+1)
lda get_eof_params::length+2
sbc #0
sbc #^(hires_size+1)
bcs dhr
jsr show_shr_file

21
desk.acc/show_text_file.s
View File

@ -1031,9 +1031,9 @@ L0E7E: A2D_CALL A2D_SET_POS, line_pos
cmp L0969
beq L0ED7
: inc L096C
bne L0ED4
bne :+
inc L096D
L0ED4: jmp L0E68
: jmp L0E68
L0ED7: jsr L1109
rts
@ -1321,24 +1321,27 @@ loop: clc
;;; if fixed mode, do a main->aux copy of a code block ???
.proc L1109
lda fixed_mode_flag ; if not fixed (i.e. proportional)
beq end ; then exit
beq done ; then exit
lda #$00 ; start := $1100
start := $1100
end := $117E
dest := $8803
lda #<start
sta STARTLO
lda #$7E
sta ENDLO ; end := $117E
lda #$11
lda #<end
sta ENDLO
lda #>start
sta STARTHI
sta ENDHI
dest := $8803
lda #>dest
sta DESTINATIONHI
lda #<dest
sta DESTINATIONLO
sec ; main>aux
jsr AUXMOVE
end: rts
done: rts
.endproc
.proc L1129 ; ???