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

more procs, and 65816 quit code

Browse Source
This commit is contained in:
Joshua Bell 2018-01-19 21:57:58 -08:00
parent 2d979db830
commit 7c7985b488
1 changed files with 55 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
desktop/desktop.s
View File

@ -6537,10 +6537,10 @@ L477F: lda $D345,x
addr_call L4842, $220 addr_call L4842, $220
jsr L48BE jsr L48BE
lda #<INVOKER lda #<INVOKER
sta L5B19 sta reset_and_invoke_target
lda #>INVOKER lda #>INVOKER
sta L5B19+1 sta reset_and_invoke_target+1
jmp L5AEE jmp reset_and_invoke
.endproc .endproc
;;; ================================================== ;;; ==================================================
@ -6691,7 +6691,9 @@ L4904: A2D_RELAY_CALL A2D_SET_FILL_MODE, const0
;;; ================================================== ;;; ==================================================
cmd_noop: rts .proc cmd_noop
rts
.endproc
;;; ================================================== ;;; ==================================================
@ -7034,9 +7036,10 @@ L4BB1: .byte 0
;;; ================================================== ;;; ==================================================
cmd_about: .proc cmd_about
yax_call LA500, $0000, $00 yax_call LA500, $0000, $00
jmp L4523 jmp L4523
.endproc
;;; ================================================== ;;; ==================================================
@ -7241,9 +7244,11 @@ L4D4E: stx $E04B
lda #dynamic_routine_common lda #dynamic_routine_common
jsr load_dynamic_routine jsr load_dynamic_routine
bmi L4D9D bmi L4D9D
lda #dynamic_routine_file_delete lda #dynamic_routine_file_delete
jsr load_dynamic_routine jsr load_dynamic_routine
bmi L4D9D bmi L4D9D
jsr set_pointer_cursor jsr set_pointer_cursor
lda #$01 lda #$01
jsr dynamic_routine_5000 jsr dynamic_routine_5000
@ -7463,12 +7468,11 @@ L4F3C: lda #$00
;;; ================================================== ;;; ==================================================
.proc cmd_close_all .proc cmd_close_all
lda desktop_winid lda desktop_winid ; current window
beq L4F5B beq done ; nope, done!
jsr cmd_close jsr cmd_close ; close it...
jmp cmd_close_all jmp cmd_close_all ; and try again
done: rts
L4F5B: rts
.endproc .endproc
;;; ================================================== ;;; ==================================================
@ -7476,10 +7480,10 @@ L4F5B: rts
.proc cmd_disk_copy .proc cmd_disk_copy
lda #dynamic_routine_disk_copy lda #dynamic_routine_disk_copy
jsr load_dynamic_routine jsr load_dynamic_routine
bmi L4F66 bmi fail
jmp dynamic_routine_800 jmp dynamic_routine_800
L4F66: rts fail: rts
.endproc .endproc
;;; ================================================== ;;; ==================================================
@ -7610,6 +7614,10 @@ stack_data:
quit_code: quit_code:
.byte $18,$FB,$5C,$04,$D0,$E0 .byte $18,$FB,$5C,$04,$D0,$E0
;; 65816 code:
;; 18 clc ; clear carry
;; FB xce ; exchange carry/emulation (i.e. turn on 16 bit)
;; 5C 04 D0 E0 jmp $E0D004 ; long jump
.proc quit_params .proc quit_params
params: .byte 4 params: .byte 4
@ -7942,16 +7950,17 @@ L533F: .byte 0
.proc cmd_format_disk .proc cmd_format_disk
lda #dynamic_routine_format_erase lda #dynamic_routine_format_erase
jsr load_dynamic_routine jsr load_dynamic_routine
bmi L535A bmi fail
lda #$04 lda #$04
jsr dynamic_routine_800 jsr dynamic_routine_800
bne L5357 bne :+
stx L533F stx L533F
jsr L4523 jsr L4523
jsr L59A4 jsr L59A4
L5357: jmp L4523 : jmp L4523
L535A: rts fail: rts
.endproc .endproc
;;; ================================================== ;;; ==================================================
@ -7959,14 +7968,16 @@ L535A: rts
.proc cmd_erase_disk .proc cmd_erase_disk
lda #dynamic_routine_format_erase lda #dynamic_routine_format_erase
jsr load_dynamic_routine jsr load_dynamic_routine
bmi L5372 bmi done
lda #$05 lda #$05
jsr dynamic_routine_800 jsr dynamic_routine_800
bne L5372 bne done
stx L533F stx L533F
jsr L4523 jsr L4523
jsr L59A4 jsr L59A4
L5372: jmp L4523 done: jmp L4523
.endproc .endproc
;;; ================================================== ;;; ==================================================
@ -8333,7 +8344,7 @@ L5661: rts
;;; ================================================== ;;; ==================================================
cmd_select_all: .proc cmd_select_all
lda is_file_selected lda is_file_selected
beq L566A beq L566A
jsr L6D2B jsr L6D2B
@ -8393,6 +8404,10 @@ L56F0: lda #$00
jmp DESKTOP_COPY_TO_BUF jmp DESKTOP_COPY_TO_BUF
L56F8: .byte 0 L56F8: .byte 0
.endproc
;;; ==================================================
L56F9: sta query_state_params2::id L56F9: sta query_state_params2::id
jsr L4505 jsr L4505
jmp L6E8E jmp L6E8E
@ -8649,7 +8664,7 @@ L58E2: lda desktop_winid
;;; ================================================== ;;; ==================================================
cmd_check_drives: .proc cmd_check_drives
lda #$00 lda #$00
sta L599F sta L599F
sta bufnum sta bufnum
@ -8714,6 +8729,9 @@ L5998: pla
tax tax
inx inx
jmp L5976 jmp L5976
.endproc
;;; ==================================================
L599E: .byte 0 L599E: .byte 0
L599F: .byte 0 L599F: .byte 0
@ -8843,12 +8861,12 @@ L5AA9: lda buf3len
L5AC0: jsr DESKTOP_COPY_FROM_BUF L5AC0: jsr DESKTOP_COPY_FROM_BUF
jmp L4523 jmp L4523
;;; ==================================================
L5AC6: .res 10, 0 L5AC6: .res 10, 0
L5AD0: .byte 0 L5AD0: .byte 0
cmd_startup_item: ;;; ==================================================
.proc cmd_startup_item
ldx $E25B ldx $E25B
dex dex
txa txa
@ -8862,13 +8880,16 @@ cmd_startup_item:
sec sec
sbc #$30 sbc #$30
clc clc
adc #$C0 adc #>$C000 ; compute $Cn00
sta L5B19+1 sta reset_and_invoke_target+1
lda #$00 lda #<$0000
sta L5B19 sta reset_and_invoke_target
;; fall through
.endproc
;; also invoked by launcher code ;; also invoked by launcher code
L5AEE: sta ALTZPOFF .proc reset_and_invoke
sta ALTZPOFF
lda ROMIN2 lda ROMIN2
jsr SETVID jsr SETVID
jsr SETKBD jsr SETKBD
@ -8884,8 +8905,11 @@ L5AEE: sta ALTZPOFF
sta CLR80COL sta CLR80COL
;; also used by launcher code ;; also used by launcher code
L5B19 := *+1 target := *+1
jmp dummy0000 ; self-modified jmp dummy0000 ; self-modified
.endproc
reset_and_invoke_target := reset_and_invoke::target
;;; ================================================== ;;; ==================================================