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

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

21
desktop/loader.s
View File

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