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

DeskTop: Remove some placeholder symbols

Browse Source
This commit is contained in:
Joshua Bell 2018-01-07 21:53:39 -08:00
parent 351b28d769
commit fb23100ff4
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
desktop/invoker.s
View File

@ -117,28 +117,30 @@ begin: lda ROMIN2
jmp exit jmp exit
: lda get_info_params::type : lda get_info_params::type
cmp #FT_S16 cmp #FT_S16
bne L031D bne not_s16
jsr update_bitmap jsr update_bitmap
jmp quit_call jmp quit_call
not_s16:
L031D: cmp #FT_BINARY : cmp #FT_BINARY
bne L0345 bne not_binary
lda get_info_params::auxtype lda get_info_params::auxtype
sta jmp_addr sta jmp_addr
sta read_params::buffer sta read_params::buffer
lda get_info_params::auxtype+1 lda get_info_params::auxtype+1
sta jmp_addr+1 sta jmp_addr+1
sta read_params::buffer+1 sta read_params::buffer+1
cmp #$0C cmp #$0C ; If loading at page < $0C
bcs L033E bcs :+
lda #$BB lda #$BB ; ... use a high address buffer ($BB)
sta open_params::buffer+1 sta open_params::buffer+1
bne load_target bne load_target ; always
L033E: lda #$08 : lda #$08 ; ... otherwise a low address buffer ($08)
sta open_params::buffer+1 sta open_params::buffer+1
bne load_target bne load_target ; always
not_binary:
L0345: cmp #FT_BASIC ; BASIC? cmp #FT_BASIC ; BASIC?
bne load_target bne load_target
;; Invoke BASIC.SYSTEM as path instead. ;; Invoke BASIC.SYSTEM as path instead.
@ -182,7 +184,7 @@ do_read:
MLI_CALL CLOSE, close_params MLI_CALL CLOSE, close_params
bne exit bne exit
;; If it's BASIC, copy prefix to interpreter buffer. ;; If it's BASIC, set prefix and copy filename to interpreter buffer.
lda get_info_params::type lda get_info_params::type
cmp #FT_BASIC cmp #FT_BASIC
bne update_stack bne update_stack

6
desktop/loader.s
View File

@ -134,9 +134,9 @@ start: lda ROMIN2
sta BITMAP,x sta BITMAP,x
dex dex
lda #$00 lda #$00
L109F: sta BITMAP,x : sta BITMAP,x
dex dex
bpl L109F bpl :-
lda #%11001111 ; Protect ZP, stack, Text Page 1 lda #%11001111 ; Protect ZP, stack, Text Page 1
sta BITMAP sta BITMAP
@ -144,7 +144,7 @@ L109F: sta BITMAP,x
bne no_reinstall bne no_reinstall
;; Re-install quit routine (with prefix memorized) ;; Re-install quit routine (with prefix memorized)
L10AF: MLI_CALL GET_PREFIX, prefix_params MLI_CALL GET_PREFIX, prefix_params
beq :+ beq :+
jmp crash jmp crash
: lda #$FF : lda #$FF