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

macros for desktop helpers

Browse Source
This commit is contained in:
Joshua Bell 2018-02-06 18:42:20 -08:00
parent 77bda904ab
commit 305343b02a
2 changed files with 8 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
desktop/invoker.s
View File

@ -3,6 +3,7 @@
.include "apple2.inc"
.include "../inc/apple2.inc"
.include "../inc/prodos.inc"
.include "../macros.inc"
;;; ==================================================
;;; Segment loaded into MAIN $290-$3EF
@ -97,10 +98,7 @@ open: MLI_CALL OPEN, open_params
begin: lda ROMIN2
lda #<default_start_address
sta jmp_addr
lda #>default_start_address
sta jmp_addr+1
copy16 #default_start_address, jmp_addr
;; clear system memory bitmap
ldx #BITMAP_SIZE-2
@ -144,10 +142,7 @@ not_binary:
bne load_target
;; Invoke BASIC.SYSTEM as path instead.
lda #<bs_path
sta open_params::path
lda #>bs_path
sta open_params::path+1
copy16 #bs_path, open_params::path
;; Try opening BASIC.SYSTEM with current prefix.
check_for_bs:

21
desktop/loader.s
View File

@ -4,6 +4,7 @@
.include "../inc/apple2.inc"
.include "../inc/auxmem.inc"
.include "../inc/prodos.inc"
.include "../macros.inc"
DESKTOP_INIT := $0800 ; init location
L7ECA := $7ECA ; ???
@ -150,10 +151,7 @@ start: lda ROMIN2
: lda #$FF
sta reinstall_flag
lda IRQ_VECTOR
sta irq_saved
lda IRQ_VECTOR+1
sta irq_saved+1
copy16 IRQ_VECTOR, irq_saved
lda LCBANK2
lda LCBANK2
@ -169,10 +167,7 @@ start: lda ROMIN2
jmp done_reinstall
no_reinstall:
lda irq_saved
sta IRQ_VECTOR
lda irq_saved+1
sta IRQ_VECTOR+1
copy16 irq_saved, IRQ_VECTOR
done_reinstall:
;; Set the prefix, read the first $400 bytes of this system
@ -354,14 +349,8 @@ loop: lda segment_num
continue:
asl a
tax
lda segment_addr_table,x
sta read_params::buffer
lda segment_addr_table+1,x
sta read_params::buffer+1
lda segment_size_table,x
sta read_params::request
lda segment_size_table+1,x
sta read_params::request+1
copy16 segment_addr_table,x, read_params::buffer
copy16 segment_size_table,x, read_params::request
php
sei
MLI_CALL READ, read_params