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

Show tip about skipping copy to RAMCard. Resolves #140

Browse Source
This commit is contained in:
Joshua Bell 2019-03-17 18:35:39 -07:00
parent 36439b1219
commit 45576a0a88
2 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
RELEASE-NOTES.md
View File

@ -25,6 +25,7 @@ https://github.com/inexorabletash/a2d/issues
* Icons for volumes positioned more predictably and sensibly. (#94) * Icons for volumes positioned more predictably and sensibly. (#94)
* GS/OS filenames (supported by ProDOS 2.5) are shown with correct case. (#64) * GS/OS filenames (supported by ProDOS 2.5) are shown with correct case. (#64)
* Desk accessory files can be executed directly. (#101) * Desk accessory files can be executed directly. (#101)
* Tip about skipping copy to RAMCard is shown during startup. (#140)
### Additional Desk Accessories ### Additional Desk Accessories

35
desktop.system/desktop.system.s
View File

@ -130,6 +130,9 @@ num_filenames = 8
str_copying_to_ramcard: str_copying_to_ramcard:
PASCAL_STRING "Copying Apple II DeskTop into RAMCard" PASCAL_STRING "Copying Apple II DeskTop into RAMCard"
str_tip_skip_copying:
PASCAL_STRING {"Tip: To skip copying to RAMCard, hold down ",15,27,65,24,14," when launching."}
;; Signature of block storage devices ($Cn0x) ;; Signature of block storage devices ($Cn0x)
sig_bytes: sig_bytes:
.byte $20,$00,$03,$00 .byte $20,$00,$03,$00
@ -563,12 +566,32 @@ done: dex
sta CV sta CV
jsr VTAB jsr VTAB
ldy #0 ldy #0
loop: iny : iny
lda str_copying_to_ramcard,y lda str_copying_to_ramcard,y
ora #$80 ora #$80
jsr COUT jsr COUT
cpy str_copying_to_ramcard cpy str_copying_to_ramcard
bne loop bne :-
;; Center string
lda #80
sec
sbc str_tip_skip_copying
clc
adc #4 ; 4 control characters (for MouseText)
lsr a ; / 2 to center
sta CH
lda #23
sta CV
jsr VTAB
ldy #0
: iny
lda str_tip_skip_copying,y
ora #$80
jsr COUT
cpy str_tip_skip_copying
bne :-
rts rts
.endproc .endproc
@ -905,19 +928,19 @@ slot: .byte 0
DEFINE_WRITE_BLOCK_PARAMS write_block2_params, prodos_loader_blocks + 512, 1 DEFINE_WRITE_BLOCK_PARAMS write_block2_params, prodos_loader_blocks + 512, 1
write_block2_params_unit_num := write_block2_params::unit_num write_block2_params_unit_num := write_block2_params::unit_num
PAD_TO $2C00 PAD_TO $2D00
;;; ============================================================ ;;; ============================================================
prodos_loader_blocks: prodos_loader_blocks:
.assert * = $2C00, error, "Segment length mismatch" .assert * = $2D00, error, "Segment length mismatch"
.incbin "../inc/pdload.dat" .incbin "../inc/pdload.dat"
.endproc ; copy_desktop_to_ramcard .endproc ; copy_desktop_to_ramcard
;;; ============================================================ ;;; ============================================================
.assert * = $3000, error, "Segment length mismatch" .assert * = $3100, error, "Segment length mismatch"
;;; SPECULATION: This copies Selector entries marked ;;; SPECULATION: This copies Selector entries marked
;;; "Down load" / "At boot" to the RAMCard as well ;;; "Down load" / "At boot" to the RAMCard as well
@ -2052,8 +2075,6 @@ done: rts
.endproc ; copy_selector_entries_to_ramcard .endproc ; copy_selector_entries_to_ramcard
.assert * = $3AD8, error, "Segment size mismatch"
;;; ============================================================ ;;; ============================================================
;;; Loaded at $1000 by DeskTop2 on Quit, and copies $1100-$13FF ;;; Loaded at $1000 by DeskTop2 on Quit, and copies $1100-$13FF
;;; to Language Card Bank 2 $D100-$D3FF, to restore saved quit ;;; to Language Card Bank 2 $D100-$D3FF, to restore saved quit