a2d/desk.acc/show_image_file.s

624 lines
14 KiB
ArmAsm
Raw Normal View History

2017-09-04 23:00:09 +00:00
.setcpu "65C02"
2017-09-06 05:19:45 +00:00
.include "apple2.inc"
.include "../inc/apple2.inc"
2017-09-04 23:00:09 +00:00
.include "../inc/prodos.inc"
.include "../inc/auxmem.inc"
2018-01-29 05:18:00 +00:00
.include "../mgtk.inc"
.include "../desktop.inc" ; get selection, font
2018-02-07 02:42:00 +00:00
.include "../macros.inc"
.org $800
2017-09-04 23:00:09 +00:00
start: jmp copy2aux
save_stack:.byte 0
;;; Copy $800 through $13FF (the DA) to aux
.proc copy2aux
tsx
stx save_stack
sta RAMWRTON
ldy #0
src: lda start,y ; self-modified
dst: sta start,y ; self-modified
dey
bne src
sta RAMWRTOFF
inc src+2
inc dst+2
sta RAMWRTON
lda dst+2
cmp #$14
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
sta RAMRDON
ldx #sizeof_routine
loop: lda routine,x
sta call_main_trampoline,x
dex
bpl loop
jmp call_init
.endscope
.proc routine
sta RAMRDOFF
sta RAMWRTOFF
jsr $1000 ; overwritten (in zp version)
sta RAMRDON
sta RAMWRTON
rts
.endproc
sizeof_routine := * - routine ; can't .sizeof(proc) before declaration
;; https://github.com/cc65/cc
2017-09-04 23:00:09 +00:00
.proc call_init
;; run the DA
jsr init
;; tear down/exit
sta ALTZPON
lda LCBANK1
lda LCBANK1
sta RAMRDOFF
sta RAMWRTOFF
ldx save_stack
txs
rts
.endproc
;;; ==================================================
;;; ProDOS MLI calls
.proc open_file
jsr copy_params_aux_to_main
sta ALTZPOFF
MLI_CALL OPEN, open_params
sta ALTZPON
jsr copy_params_main_to_aux
rts
.endproc
2017-09-05 02:44:55 +00:00
.proc get_file_eof
jsr copy_params_aux_to_main
sta ALTZPOFF
MLI_CALL GET_EOF, get_eof_params
sta ALTZPON
jsr copy_params_main_to_aux
rts
.endproc
2017-09-04 23:00:09 +00:00
.proc read_file
jsr copy_params_aux_to_main
sta ALTZPOFF
MLI_CALL READ, read_params
sta ALTZPON
jsr copy_params_main_to_aux
rts
.endproc
.proc close_file
jsr copy_params_aux_to_main
sta ALTZPOFF
MLI_CALL CLOSE, close_params
sta ALTZPON
jsr copy_params_main_to_aux
rts
.endproc
;;; ==================================================
;;; Copies param blocks from Aux to Main
.proc copy_params_aux_to_main
ldy #(params_end - params_start + 1)
sta RAMWRTOFF
loop: lda params_start - 1,y
sta params_start - 1,y
dey
bne loop
sta RAMRDOFF
rts
.endproc
;;; Copies param blocks from Main to Aux
.proc copy_params_main_to_aux
pha
php
sta RAMWRTON
ldy #(params_end - params_start + 1)
loop: lda params_start - 1,y
sta params_start - 1,y
dey
bne loop
sta RAMRDON
plp
pla
rts
.endproc
;;; ----------------------------------------
params_start:
;;; This block gets copied between main/aux
;;; ProDOS MLI param blocks
.proc open_params
.byte 3 ; param_count
.addr pathname ; pathname
.addr $0C00 ; io_buffer
ref_num:.byte 0 ; ref_num
2017-09-05 02:44:55 +00:00
.endproc
.proc get_eof_params
.byte 2 ; param_count
ref_num:.byte 0 ; ref_num
length: .byte 0,0,0 ; EOF (lo, mid, hi)
2017-09-04 23:00:09 +00:00
.endproc
hires := $2000
hires_size := $2000
.proc read_params
.byte 4 ; param_count
ref_num:.byte 0 ; ref_num
buffer: .addr hires ; data_buffer
request:.word hires_size ; request_count
.word 0 ; trans_count
.endproc
.proc close_params
.byte 1 ; param_count
ref_num:.byte 0 ; ref_num
.endproc
.proc pathname ; 1st byte is length, rest is full path
length: .byte $00
data: .res 64, 0
2017-09-04 23:00:09 +00:00
.endproc
params_end:
;;; ----------------------------------------
2018-02-05 16:03:31 +00:00
da_window_id := 100
2017-09-04 23:00:09 +00:00
.proc line_pos
left: .word 0
base: .word 0
.endproc
2018-01-30 04:14:34 +00:00
.proc event_params ; queried to track mouse-up
2018-01-30 05:11:32 +00:00
kind: .byte $00
2018-02-03 04:10:19 +00:00
;;; if state is MGTK::event_kind_key_down
key := *
modifiers := *+1
;;; otherwise
xcoord := *
ycoord := *+2
.res 4 ; space for both
2017-09-04 23:00:09 +00:00
.endproc
default_width := 560
default_height := 192
default_left := 0
default_top := 0
.proc window_title
.byte 0 ; length
.endproc
2018-01-30 05:11:32 +00:00
.proc winfo
2018-02-05 16:03:31 +00:00
window_id: .byte da_window_id ; window identifier
2018-01-30 05:11:32 +00:00
options: .byte MGTK::option_dialog_box
2017-09-04 23:00:09 +00:00
title: .addr window_title
2018-01-29 05:18:00 +00:00
hscroll:.byte MGTK::scroll_option_none
vscroll:.byte MGTK::scroll_option_none
2018-01-30 04:49:42 +00:00
hthumbmax: .byte 32
hthumbpos: .byte 0
vthumbmax: .byte 32
vthumbpos: .byte 0
2018-01-30 05:11:32 +00:00
status: .byte 0
reserved: .byte 0
2018-01-30 04:49:42 +00:00
mincontwidth: .word default_width
mincontlength: .word default_height
maxcontwidth: .word default_width
maxcontlength: .word default_height
2017-09-04 23:00:09 +00:00
2018-01-30 04:49:42 +00:00
.proc port
2018-02-05 16:03:31 +00:00
viewloc: DEFINE_POINT default_left, default_top
2018-01-30 04:49:42 +00:00
mapbits: .addr MGTK::screen_mapbits
mapwidth: .word MGTK::screen_mapwidth
2018-02-05 16:03:31 +00:00
maprect: DEFINE_RECT 0, 0, default_width, default_height
2017-09-04 23:00:09 +00:00
.endproc
2017-09-15 08:02:38 +00:00
pattern:.res 8, 0
2018-01-30 05:11:32 +00:00
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
2018-02-05 16:03:31 +00:00
penloc: DEFINE_POINT 0, 0
2018-01-30 05:11:32 +00:00
penwidth: .byte 1
penheight: .byte 1
penmode: .byte 0
textback: .byte $7F
textfont: .addr DEFAULT_FONT
nextwinfo: .addr 0
.endproc
2017-09-04 23:00:09 +00:00
.proc init
sta ALTZPON
lda LCBANK1
lda LCBANK1
;; Get filename by checking DeskTop selected window/icon
;; Check that an icon is selected
lda #0
sta pathname::length
lda file_selected
beq abort ; some file properties?
lda path_index ; prefix index in table
bne :+
abort: rts
;; Copy path (prefix) into pathname buffer.
: src := $06
dst := $08
asl a ; (since address table is 2 bytes wide)
tax
2018-02-07 02:42:00 +00:00
copy16 path_table,x, src
2017-09-04 23:00:09 +00:00
ldy #0
lda (src),y
tax
inc src
bne :+
inc src+1
2018-02-07 02:42:00 +00:00
: copy16 #(pathname::data), dst
2017-09-04 23:00:09 +00:00
jsr copy_pathname ; copy x bytes (src) to (dst)
;; Append separator.
lda #'/'
ldy #0
sta (dst),y
inc pathname::length
inc dst
bne :+
inc dst+1
;; Get file entry.
: lda file_index ; file index in table
asl a ; (since table is 2 bytes wide)
tax
2018-02-07 02:42:00 +00:00
copy16 file_table,x, src
2017-09-04 23:00:09 +00:00
;; Exit if a directory.
ldy #2 ; 2nd byte of entry
lda (src),y
and #$70 ; check that one of bits 4,5,6 is set ???
;; some vague patterns, but unclear
;; basic = $32,$33, text = $52, sys = $11,$14,??, bin = $23,$24,$33
;; dir = $01 (so not shown)
bne :+
rts ; abort ???
;; Append filename to path.
: ldy #9
lda (src),y ; grab length
tax ; name has spaces before/after
dex ; so subtract 2 to get actual length
dex
clc
lda src
adc #11 ; 9 = length, 10 = space, 11 = name
sta src
bcc :+
inc src+1
: jsr copy_pathname ; copy x bytes (src) to (dst)
jmp open_file_and_init_window
.proc copy_pathname ; copy x bytes from src to dst
ldy #0 ; incrementing path length and dst
loop: lda (src),y
sta (dst),y
iny
inc pathname::length
dex
bne loop
tya
clc
adc dst
sta dst
bcc end
inc dst+1
end: rts
.endproc
.endproc
.proc open_file_and_init_window
jsr open_file
lda open_params::ref_num
2017-09-05 02:44:55 +00:00
sta get_eof_params::ref_num
2017-09-04 23:00:09 +00:00
sta read_params::ref_num
sta close_params::ref_num
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::HideCursor
2017-09-04 23:00:09 +00:00
jsr stash_menu
2018-01-30 05:11:32 +00:00
MGTK_CALL MGTK::OpenWindow, winfo
MGTK_CALL MGTK::SetPort, winfo::port
2017-09-04 23:00:09 +00:00
jsr show_file
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::ShowCursor
2017-09-04 23:00:09 +00:00
2018-01-29 16:38:23 +00:00
MGTK_CALL MGTK::FlushEvents
2018-01-31 08:05:54 +00:00
MGTK_CALL MGTK::ObscureCursor
2017-09-04 23:00:09 +00:00
;; fall through
.endproc
;;; ==================================================
;;; Main Input Loop
.proc input_loop
2018-01-30 04:14:34 +00:00
MGTK_CALL MGTK::GetEvent, event_params
2018-01-30 05:11:32 +00:00
lda event_params::kind
2018-02-03 04:10:19 +00:00
cmp #MGTK::event_kind_button_down ; was clicked?
beq exit
2018-02-03 04:10:19 +00:00
cmp #MGTK::event_kind_key_down ; any key?
beq on_key
bne input_loop
on_key:
2018-01-30 04:14:34 +00:00
lda event_params::modifiers
bne input_loop
2018-01-30 04:14:34 +00:00
lda event_params::key
cmp #KEY_ESCAPE
beq exit
bne input_loop
exit:
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::HideCursor
2018-01-30 05:11:32 +00:00
MGTK_CALL MGTK::CloseWindow, winfo
2018-02-05 03:13:21 +00:00
DESKTOP_CALL DT_REDRAW_ICONS
2017-09-04 23:00:09 +00:00
jsr unstash_menu
2018-01-29 05:18:00 +00:00
MGTK_CALL MGTK::ShowCursor
2017-09-04 23:00:09 +00:00
rts ; exits input loop
.endproc
.proc show_file
2017-09-05 02:44:55 +00:00
jsr get_file_eof
;; If bigger than $2000, assume DHR
lda get_eof_params::length ; fancy 3-byte unsigned compare
cmp #<(hires_size+1)
2017-09-05 02:44:55 +00:00
lda get_eof_params::length+1
sbc #>(hires_size+1)
2017-09-05 02:44:55 +00:00
lda get_eof_params::length+2
sbc #^(hires_size+1)
2017-09-05 02:44:55 +00:00
bcs dhr
jsr show_hr_file
2017-09-05 02:44:55 +00:00
jmp close
dhr: jsr show_dhr_file
close: jsr close_file
rts
.endproc
.proc show_hr_file
2017-09-04 23:00:09 +00:00
sta PAGE2OFF
jsr read_file
jsr close_file
jsr hr_to_dhr
2017-09-04 23:47:11 +00:00
rts
.endproc
2017-09-05 02:44:55 +00:00
.proc show_dhr_file
;; AUX memory half
sta PAGE2ON
jsr read_file
;; MAIN memory half
sta PAGE2OFF
jsr read_file
;; TODO: Restore PAGE2 state?
rts
.endproc
;;; ==================================================
;;; Convert single hires to double hires
;;; Assumes the image is loaded to MAIN $2000 and
;;; relies on the hr_to_dhr.inc table.
2017-09-04 23:47:11 +00:00
.proc hr_to_dhr
2017-09-04 23:00:09 +00:00
ptr := $06
2017-09-04 23:47:11 +00:00
rows := 192
cols := 40
spill := $08 ; spill-over
2017-09-04 23:00:09 +00:00
2017-09-04 23:47:11 +00:00
lda #0 ; row
rloop: pha
tax
lda hires_table_lo,x
2017-09-04 23:00:09 +00:00
sta ptr
2017-09-04 23:47:11 +00:00
lda hires_table_hi,x
2017-09-04 23:00:09 +00:00
sta ptr+1
2017-09-05 02:18:37 +00:00
ldy #cols-1 ; col
lda #0
sta spill ; spill-over
cloop: lda (ptr),y
2017-09-04 23:00:09 +00:00
tax
2017-09-05 02:18:37 +00:00
bmi hibitset
;; complex case - need to spill in bit from prev col and store
lda hr_to_dhr_aux,x
2017-09-04 23:00:09 +00:00
sta PAGE2ON
sta (ptr),y
lda hr_to_dhr_main,x
2017-09-05 02:18:37 +00:00
ora spill ; apply previous spill bit (to bit 6)
2017-09-04 23:00:09 +00:00
sta PAGE2OFF
sta (ptr),y
2017-09-04 23:47:11 +00:00
2017-09-05 02:18:37 +00:00
ror ; move high bit to bit 6
and #(1 << 6)
sta spill
2017-09-04 23:47:11 +00:00
2017-09-05 02:18:37 +00:00
jmp next
hibitset:
;; simple case - no bit spillage
lda hr_to_dhr_aux,x
2017-09-05 02:18:37 +00:00
sta PAGE2ON
sta (ptr),y
lda hr_to_dhr_main,x
2017-09-05 02:18:37 +00:00
sta PAGE2OFF
sta (ptr),y
lda #0 ; no spill bit
sta spill
next:
dey
bpl cloop
2017-09-04 23:00:09 +00:00
pla
2017-09-04 23:47:11 +00:00
inc
cmp #rows
bne rloop
2017-09-04 23:00:09 +00:00
;; TODO: Restore PAGE2 state?
done: sta PAGE2OFF
rts
.endproc
2017-09-05 02:44:55 +00:00
;;; ==================================================
;;; Stash/Unstash Menu Bar
;;; Have not yet figured out how to force the menu to
;;; redraw, so instead we save the top 13 rows of the
;;; screen to a scratch buffer and restore after
;;; destroying the window.
2017-09-04 23:00:09 +00:00
stash := $1200 ; Past DA code
rows = 13
cols = 40
.proc stash_menu
src := $08
dst := $06
2018-02-07 02:42:00 +00:00
copy16 #stash, dst
2017-09-04 23:00:09 +00:00
sta PAGE2ON
jsr inner
sta PAGE2OFF
inner:
lda #0 ; row #
rloop: pha
tax
2017-09-04 23:47:11 +00:00
lda hires_table_lo,x
2017-09-04 23:00:09 +00:00
sta src
2017-09-04 23:47:11 +00:00
lda hires_table_hi,x
2017-09-04 23:00:09 +00:00
sta src+1
ldy #cols-1
cloop: lda (src),y
sta (dst),y
dey
bpl cloop
clc ; src += cols
lda src
adc #<cols
sta src
lda src+1
adc #>cols
sta src+1
clc ; dst += cols
lda dst
adc #<cols
sta dst
lda dst+1
adc #>cols
sta dst+1
pla
inc
cmp #rows
bcc rloop
rts
.endproc
.proc unstash_menu
src := $08
dst := $06
2018-02-07 02:42:00 +00:00
copy16 #stash, src
2017-09-04 23:00:09 +00:00
sta PAGE2ON
jsr inner
sta PAGE2OFF
inner:
lda #0 ; row #
rloop: pha
tax
2017-09-04 23:47:11 +00:00
lda hires_table_lo,x
2017-09-04 23:00:09 +00:00
sta dst
2017-09-04 23:47:11 +00:00
lda hires_table_hi,x
2017-09-04 23:00:09 +00:00
sta dst+1
ldy #cols-1
cloop: lda (src),y
sta (dst),y
dey
bpl cloop
clc ; src += cols
lda src
adc #<cols
sta src
lda src+1
adc #>cols
sta src+1
clc ; dst += cols
lda dst
adc #<cols
sta dst
lda dst+1
adc #>cols
sta dst+1
pla
inc
cmp #rows
bcc rloop
rts
.endproc
.include "inc/hires_table.inc"
.include "inc/hr_to_dhr.inc"