From 6225082ec68713956a537aa8e286bb8c15397b42 Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Mon, 19 Feb 2018 21:32:47 -0800
Subject: [PATCH] start work on overlay 5

---
 desktop/Makefile           |   3 +-
 desktop/orig/DESKTOP2_ovl1 | Bin 0 -> 512 bytes
 desktop/orig/DESKTOP2_ovl5 | Bin 0 -> 2048 bytes
 desktop/ovl5.s             | 312 +++++++++++++++++++++++++++++++++++++
 desktop/res/go.sh          |   2 +-
 mgtk.inc                   |   6 +-
 6 files changed, 318 insertions(+), 5 deletions(-)
 create mode 100644 desktop/orig/DESKTOP2_ovl1
 create mode 100644 desktop/orig/DESKTOP2_ovl5
 create mode 100644 desktop/ovl5.s

diff --git a/desktop/Makefile b/desktop/Makefile
index 623f644..d2c4d57 100644
--- a/desktop/Makefile
+++ b/desktop/Makefile
@@ -3,7 +3,8 @@ CC65 = ~/dev/cc65/bin
 CAFLAGS = --target apple2enh --list-bytes 0
 CCFLAGS = --config asm.cfg
 
-TARGETS = loader.built mgtk.built desktop.built invoker.built ovl1.built
+TARGETS = loader.built mgtk.built desktop.built invoker.built \
+	ovl1.built ovl5.built
 
 .PHONY: clean all
 all: $(TARGETS)
diff --git a/desktop/orig/DESKTOP2_ovl1 b/desktop/orig/DESKTOP2_ovl1
new file mode 100644
index 0000000000000000000000000000000000000000..ef445c10220407c7b4e2299100aa43ba6b70bf55
GIT binary patch
literal 512
zcmeZC;9z86WRSYTcZC5A7$Fppw7Md%00AzU#n}qU`302<WvNBQnfZANhI)oTDVCtj
z)I8>J4h9(pCWZ%wj4TWc5<nKvJPw!C;_Q(80;81;t!xX}Rx&JNP;j`gzzWP@xUfKK
zB^ywL;ld*Oz04eQ8LpfX_`bjZD0u}WCc2VgZsh(`0>2iVSn0HgL*X*VT6d0KKaO5c
zjs@pddVob1oLcD%VVqeR3TE_j99Y|Qz=uJi=Q&633y!{*92^x8F$ISGK<}*T<vg&q
Q8-z5vF8oV?dvjzn0Hsz_UjP6A

literal 0
HcmV?d00001

diff --git a/desktop/orig/DESKTOP2_ovl5 b/desktop/orig/DESKTOP2_ovl5
new file mode 100644
index 0000000000000000000000000000000000000000..bb722bcffc7877002c13ebeca0736f6436f56ff8
GIT binary patch
literal 2048
zcmeH_ziSg=7{{MpOIjT?I7vZy>R=KOtYfx9T!f$(MHH0uQk$r`T)lMZQqUnm9d0TP
z{)mK3eTsMJR1mU=)b^%B-ohLI0*9b?MJP`3$z4z@UES`6`+j-eU(fgRzPNuIubTL{
zh_~jkRKj;9G&DSG;;exwg9cV#<`V_yrP+ODwoV)FNZjOidSp!$2rNZdPJza(hM<Ji
z6q>!ci`xryxAO&$7HNg$Mv<PdJSes&N$Gq>@Y*NnHCIBj5t(tyMne-Lqh%m4LDpfd
z43{hL!2r*IQ%kUQA5K=`S{2?@VN8dMI><@}p4Q=K9sDw^Rba;eVZenYSk~dA4g(!-
z*1)cTUxO?6qE3-J<$TVT+5HsdiX_Ulu5u(Bd)7>k31IIZJWg8erqxzXxXFFWbp&Qg
zfATwu@XvG=k$Jdt-XC|pA8p0$bM4qyE<SIFZw;}XFW32S+m}`#?LBGvQUfL<aCOm7
z&>YUrY2m)Bi(b&qQqb8QqRP@{XqfrB%D=wE_t!~jCP*|VDc780J>qPrF9<X^bXm9}
zoH5W2ayaaMe_v^I;1C2m2E%>tNjn(!&1pGSE3GmLyflB#m&s|SMS!V=11~CN<ex3u
mY1KRa*DwvdDW3JVZ_o6GnD30<p9b+46Nm}K1Y!dJnZPflIx@=u

literal 0
HcmV?d00001

diff --git a/desktop/ovl5.s b/desktop/ovl5.s
new file mode 100644
index 0000000..d010644
--- /dev/null
+++ b/desktop/ovl5.s
@@ -0,0 +1,312 @@
+        .setcpu "6502"
+
+        .include "apple2.inc"
+        .include "../inc/apple2.inc"
+        .include "../inc/auxmem.inc"
+        .include "../inc/prodos.inc"
+        .include "../mgtk.inc"
+        .include "../desktop.inc"
+        .include "../macros.inc"
+
+MGTK_RELAY       := $D000
+DESKTOP_RELAY   := $D040
+
+;;; ==================================================
+;;; Overlay for File Copy
+;;; ==================================================
+
+.proc file_copy_overlay
+        .org $7000
+
+        winfo12 := $D5B7
+        winfo15 := $D5F1
+
+        path_buf0 := $D402
+        path_buf1 := $D443
+        path_buf2 := $D484
+
+L4030           := $4030
+
+;;; Routines in common overlay segment ($5000-$6FFF)
+L5106           := $5106
+L55BA           := $55BA
+L5CF7           := $5CF7
+L5E0A           := $5E0A
+L5E57           := $5E57
+L5E6F           := $5E6F
+L5E87           := $5E87
+L5F49           := $5F49
+L5F5B           := $5F5B
+L606D           := $606D
+L6129           := $6129
+L6161           := $6161
+L6163           := $6163
+L61B1           := $61B1
+L6227           := $6227
+L62C8           := $62C8
+L647C           := $647C
+L6D27           := $6D27
+L6D30           := $6D30
+
+        jsr     L5CF7
+        jsr     L7052
+        jsr     L5E87
+        jsr     L5F5B
+        jsr     L6161
+        jsr     L61B1
+        jsr     L606D
+        jsr     L7026
+        jsr     L6D30
+        jsr     L6D27
+        lda     #$FF
+        sta     $D8EC
+        jmp     L5106
+
+L7026:  ldx     L709B
+L7029:  lda     L709B+1,x
+        sta     $6D1E,x
+        dex
+        lda     L709B+1,x
+        sta     $6D1E,x
+        dex
+        dex
+        bpl     L7029
+        lda     #$80
+        sta     $5104
+        lda     #$00
+        sta     path_buf0
+        sta     $51AE
+        lda     #$01
+        sta     path_buf2
+        lda     #$06
+        sta     $D485
+        rts
+
+L7052:  lda     winfo12
+        jsr     L62C8
+        addr_call L5E0A, $DA67  ; "Copy a File ..."
+        addr_call L5E57, $DA77  ; "Source filename:"
+        addr_call L5E6F, $DA88  ; "Destination filename:"
+        yax_call MGTK_RELAY, MGTK::SetPenMode, $D202 ; penXOR
+        yax_call MGTK_RELAY, MGTK::FrameRect, $DA9E
+        yax_call MGTK_RELAY, MGTK::FrameRect, $DAAA
+        yax_call MGTK_RELAY, MGTK::InitPort, $D239 ; grafport3
+        yax_call MGTK_RELAY, MGTK::SetPort, $D239
+        rts
+
+.macro entry arg1, arg2
+        .byte   arg1
+        .addr   arg2
+.endmacro
+
+L709B:  .byte   $29             ; length of following data block
+        entry   0, L70F1
+        entry   0, L71D8
+
+        entry   0, $6593
+        entry   0, $664E
+        entry   0, $6DC2
+        entry   0, $6DD0
+        entry   0, $6E1D
+        entry   0, $69C6
+        entry   0, $6A18
+        entry   0, $6A53
+        entry   0, $6AAC
+        entry   0, $6B01
+        entry   0, $6B44
+        entry   0, $66D8
+
+L70C6:  .byte   $29             ; length of following data block
+        entry   0, L7189
+        entry   0, L71F9
+
+        entry   0, $65F0
+        entry   0, $6693
+        entry   0, $6DC9
+        entry   0, $6DD4
+        entry   0, $6E31
+        entry   0, $6B72
+        entry   0, $6BC4
+        entry   0, $6BFF
+        entry   0, $6C58
+        entry   0, $6CAD
+        entry   0, $6CF0
+        entry   0, $684F
+
+;;; ==================================================
+
+L70F1:  lda     #1
+        sta     path_buf2
+        lda     #$20
+        sta     $D485
+        jsr     L6D27
+
+        ldx     L70C6
+:       lda     L70C6+1,x
+        sta     $6D1E,x
+        dex
+        lda     L70C6+1,x
+        sta     $6D1E,x
+        dex
+        dex
+        bpl     :-
+
+        lda     #$80
+        sta     $50A8
+        sta     $51AE
+        lda     $D920
+        sta     $D921
+        lda     #$FF
+        sta     $D920
+        jsr     L5E87
+        jsr     L5F5B
+        jsr     L6161
+        jsr     L61B1
+
+        jsr     L606D
+        ldx     $5028
+L7137:  lda     $5028,x
+        sta     path_buf1,x
+        dex
+        bpl     L7137
+        addr_call L6129, path_buf1  ; path_buf1
+        lda     #$01
+        sta     path_buf2           ; path_buf2
+        lda     #$06
+        sta     $D485
+        ldx     path_buf0
+        beq     L7178
+L7156:  lda     path_buf0,x
+        and     #$7F
+        cmp     #'/'
+        beq     L7162
+        dex
+        bne     L7156
+L7162:  ldy     #$02
+        dex
+L7165:  cpx     path_buf0
+        beq     L7178
+        inx
+        lda     path_buf0,x
+        sta     path_buf2,y
+        inc     path_buf2
+        iny
+        jmp     L7165
+
+L7178:  jsr     L6D27
+        lda     $D8F0
+        sta     $D8F1
+        lda     $D8F2
+        sta     $D8F0
+        rts
+
+        .byte   0
+
+;;; ==================================================
+
+L7189:  addr_call L647C, path_buf0
+        beq     L7198
+L7192:  lda     #$40
+        jsr     L4030
+        rts
+
+L7198:  addr_call L647C, path_buf1
+        bne     L7192
+        yax_call MGTK_RELAY, MGTK::CloseWindow, winfo15
+        yax_call MGTK_RELAY, MGTK::CloseWindow, winfo12
+        lda     #0
+        sta     $50A8
+        lda     #0
+        sta     $D8EC
+        jsr     L55BA
+
+L71C0:  copy16  #path_buf0, $6
+        copy16  #path_buf1, $8
+        ldx     $50AA
+        txs
+        lda     #$00
+        rts
+
+        .byte   0
+
+;;; ==================================================
+
+L71D8:  yax_call MGTK_RELAY, MGTK::CloseWindow, winfo15
+        yax_call MGTK_RELAY, MGTK::CloseWindow, winfo12
+        lda     #0
+        sta     $D8EC
+        jsr     L55BA
+        ldx     $50AA
+        txs
+        lda     #$FF
+        rts
+
+;;; ==================================================
+
+L71F9:  lda     #1
+        sta     path_buf2
+        lda     #' '
+L7200:  sta     $D485
+        jsr     L6D27
+        ldx     L709B
+L7209:  lda     L709B+1,x
+        sta     $6D1E,x
+        dex
+        lda     L709B+1,x
+        sta     $6D1E,x
+        dex
+        dex
+        bpl     L7209
+        lda     #$01
+        sta     path_buf2
+        lda     #$06
+        sta     $D485
+        lda     #$00
+        sta     $50A8
+        lda     #$FF
+        sta     $D920
+        lda     #$00
+        sta     $51AE
+        lda     $D8F0
+        sta     $D8F2
+        lda     $D8F1
+        sta     $D8F0
+
+        ldx     path_buf0
+:       lda     path_buf0,x
+        sta     $5028,x
+        dex
+        bpl     :-
+
+        jsr     L5F49
+        bit     $D8F0
+        bpl     L726D
+        jsr     L5E87
+        lda     #$00
+        jsr     L6227
+        jsr     L5F5B
+        jsr     L6161
+        jsr     L61B1
+        jsr     L606D
+        jsr     L6D27
+        jmp     L7295
+
+L726D:  lda     $5028
+        bne     L7281
+L7272:  jsr     L5E87
+        lda     #$00
+        jsr     L6227
+        jsr     L5F5B
+        lda     #$FF
+        bne     L7289
+L7281:  jsr     L5F5B
+        bcs     L7272
+        lda     $D921
+L7289:  sta     $D920
+        jsr     L6163
+        jsr     L61B1
+        jsr     L606D
+L7295:  rts
+
+        PAD_TO $7800
+.endproc
diff --git a/desktop/res/go.sh b/desktop/res/go.sh
index 2951726..a01338c 100755
--- a/desktop/res/go.sh
+++ b/desktop/res/go.sh
@@ -31,7 +31,7 @@ function stats {
 #do_make clean
 do_make all
 
-TARGETS="loader mgtk desktop invoker ovl1"
+TARGETS="loader mgtk desktop invoker ovl1 ovl5"
 
 # Verify original and output match
 echo "Verifying diffs:"
diff --git a/mgtk.inc b/mgtk.inc
index a79dc1e..0df6428 100644
--- a/mgtk.inc
+++ b/mgtk.inc
@@ -63,7 +63,7 @@ MLI     := $4000
 ;;; .res N      row0right       bits (double-width only)
 ;;; ...
 
-NoOp            := $00  ; No-op
+NoOp            := $00          ; No-op
         ;; (input length 0 bytes)
 
 ;;; --------------------------------------------------
@@ -163,8 +163,8 @@ DrawText        := $19          ; Drawn at last SET_POS as left, baseline
 ;;; --------------------------------------------------
 ;;; Utility Commands
 
-SetZP1          := $1A  ; Configure lower half of ZP usage by API (speed vs. convenience)
-SetZP2          := $1B  ; Configure upper half ZP usage by API (speed vs. convenience)
+SetZP1          := $1A          ; Configure lower half of ZP usage by API (speed vs. convenience)
+SetZP2          := $1B          ; Configure upper half ZP usage by API (speed vs. convenience)
 ;;; .byte       preserve        0=stash/no auto restore; 1=restore now and onward
 
 Version         := $1C          ; Get toolkit version