sta $94
sty $95
- ; Call into the Applesoft Block Transfer Utility -- which handles zero-
+ ; Call into Applesoft Block Transfer Up -- which handles zero-
; sized blocks well -- to move the content of the LC memory area.
- jsr $D396 ; BLTU + 3
+ jsr $D39A ; BLTU2
; Set the source start address.
lda #<__ZPSAVE_RUN__
sta $94
sty $95
- ; Call into the Applesoft Block Transfer Utility -- which handles moving
+ ; Call into Applesoft Block Transfer Up -- which handles moving
; overlapping blocks upwards well -- to move the INIT segment.
- jsr $D396 ; BLTU + 3
+ jsr $D39A ; BLTU2
; Delegate all further processing, to keep the STARTUP segment small.
jsr init