Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +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
: lda get_info_params::type
cmp #FT_S16
bne L031D
bne not_s16
jsr update_bitmap
jmp quit_call
not_s16:
L031D: cmp #FT_BINARY
bne L0345
: cmp #FT_BINARY
bne not_binary
lda get_info_params::auxtype
sta jmp_addr
sta read_params::buffer
lda get_info_params::auxtype+1
sta jmp_addr+1
sta read_params::buffer+1
cmp #$0C
bcs L033E
lda #$BB
cmp #$0C ; If loading at page < $0C
bcs :+
lda #$BB ; ... use a high address buffer ($BB)
sta open_params::buffer+1
bne load_target
L033E: lda #$08
bne load_target ; always
: lda #$08 ; ... otherwise a low address buffer ($08)
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
;; Invoke BASIC.SYSTEM as path instead.
@ -182,7 +184,7 @@ do_read:
MLI_CALL CLOSE, close_params
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
cmp #FT_BASIC
bne update_stack

6
desktop/loader.s
View File

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