From 6f2d18e4e801fd834e4b3f15a03cf049c4eba6d7 Mon Sep 17 00:00:00 2001
From: Joshua Bell <inexorabletash@gmail.com>
Date: Wed, 21 Nov 2018 00:09:11 -0800
Subject: [PATCH] disasm: More padding with BS1.1

---
 desktop.system/inc/README.md |   2 +-
 desktop/inc/README.md        |   7 +--
 desktop/inc/bs.dat           | Bin 0 -> 223 bytes
 desktop/ovl1a.s              | 118 +----------------------------------
 4 files changed, 7 insertions(+), 120 deletions(-)
 create mode 100644 desktop/inc/bs.dat

diff --git a/desktop.system/inc/README.md b/desktop.system/inc/README.md
index 9fc540c..b07f6dd 100644
--- a/desktop.system/inc/README.md
+++ b/desktop.system/inc/README.md
@@ -1,4 +1,4 @@
 ## `bs.dat`
 
 A chunk of BASIC.SYSTEM 1.1, inexplicably found padding out the end of
-DESKTOP.SYSTEM.SYS.
+DESKTOP.SYSTEM.SYS. (ends up in memory at $B0D8, file offset TBD)
diff --git a/desktop/inc/README.md b/desktop/inc/README.md
index 61ede2c..c61f8c7 100644
--- a/desktop/inc/README.md
+++ b/desktop/inc/README.md
@@ -1,6 +1,5 @@
-## `desktoplc.inc`
+## `bs.dat`
 
-Header defining various resources in the language card area, used by
-overlays.
+Chunk of BASIC.SYSTEM 1.1 found padding out the binary.
 
-TODO: Make the linker take care of this, use exports/imports instead.
+(Loaded at: $A721 - $A7FF; file offset $1120)
diff --git a/desktop/inc/bs.dat b/desktop/inc/bs.dat
new file mode 100644
index 0000000000000000000000000000000000000000..e5343791f9751ef987abdcf3b3c87d2ba4910db9
GIT binary patch
literal 223
zcmZ2=fn!3^+K_!-8_awxSF8=*carVGH=h~H6{J^vcz4qAgO`H&>YlZG76|vO+q1x-
zCv2ZW!paR?YqR&A<d|T*lF1^$Yl4!3)v6DNPOWU}UAbogqXNUKj*gxNrj^XSVf#)2
zr7kR=AP7>iK;gxT4HrNH(>A<co4D`8!IK;t_O4CZ_hH9L<_%kbZqQWp`oOu?Y2O8w
zmHZY76CBot?$c!XV7WF7=sHf2{Dcn~0$OYL?(x+Bz`AzU{tuFC!$B&<Hwdg`=-soY
WckiB+jJ#p{fEFv*uGnA)^bG*s9B#4z

literal 0
HcmV?d00001

diff --git a/desktop/ovl1a.s b/desktop/ovl1a.s
index bd89207..7c747b2 100644
--- a/desktop/ovl1a.s
+++ b/desktop/ovl1a.s
@@ -7,18 +7,6 @@
 
         jmp     start
 
-L1A39           := $1A39
-L1A3B           := $1A3B
-LA798           := $A798
-LA839           := $A839
-LA83D           := $A83D
-LA8E8           := $A8E8
-LA960           := $A960
-LAA00           := $AA00
-LAA1B           := $AA1B
-LAA3A           := $AA3A
-LAB37           := $AB37
-
 ;;; ============================================================
 
         DEFINE_OPEN_PARAMS open_params, filename, $1C00
@@ -145,110 +133,10 @@ self:   bne     self            ; hang if fails
 
 ;;; ============================================================
 
-        tax
-        bne     L192C
-        bcc     L1998
-        lda     $BE54
-        lsr     a
-        bcs     L1962
-L192C:  jmp     LA839
+;;; Padded with a chunk of BASIC.SYSTEM 1.1
+;;; (Loaded at: $A721 - $A7FF; file offset $1120)
 
-        lda     $BE53
-        cmp     #$06
-        bne     L192C
-        jmp     LA798
-
-        jsr     LAA1B
-        beq     L192C
-        cmp     #$41
-        beq     L198C
-        jsr     LAB37
-        sty     $BCAD
-        ldy     #$13
-        sty     $BCAE
-        ldy     #$40
-        sty     $BE56
-        jsr     LA960
-        bcs     L1961
-        lda     $BE6B
-        cmp     #$08
-        bcc     L1991
-L195E:  lda     #$02
-        sec
-L1961:  rts
-
-L1962:  lsr     a
-        bcc     L1987
-        jsr     LAA3A
-        beq     L192C
-        dex
-        lda     #$82
-        sta     $BCA9
-        ldy     #$01
-        jsr     LAA00
-        dey
-        dey
-        sty     $0280
-        lda     #$03
-        sta     $BE56
-        dex
-        jsr     LAA3A
-        bne     L192C
-        bcc     L1998
-L1987:  jsr     LAA3A
-        beq     L192C
-L198C:  jsr     LA8E8
-        bcs     L1961
-L1991:  jsr     LAA3A
-        bne     L192C
-        bcs     L1987
-L1998:  lda     $BE61
-        beq     L195E
-        cmp     #$08
-        bcs     L195E
-        lda     $BE62
-        beq     L195E
-        cmp     #$03
-        bcs     L195E
-        lda     $BE54
-        and     #$21
-        lsr     a
-        beq     L19BB
-        lda     $BE42
-        bne     L19BB
-        lda     #$0F
-        sec
-        rts
-
-L19BB:  bcc     L19FD
-        lda     $BE55
-        and     #$04
-        beq     L19FD
-        lda     $BE56
-        lsr     a
-        bcs     L19D3
-        lda     $BE54
-        and     #$90
-        beq     L1A39
-        bpl     L19FD
-L19D3:  lda     $BCBD
-        eor     #$2F
-        beq     L19DF
-        lda     $BF9A
-        beq     L19F8
-L19DF:  lda     $BE57
-        and     #$04
-        beq     L19FD
-        bcs     L19F8
-        lda     #$00
-        sta     $BCBC
-        sta     $BCBD
-        lda     #$01
-        ora     $BE56
-        sta     $BE56
-L19F8:  jsr     LA83D
-        bcs     L1A3B
-L19FD:  lda     $BE53
+        .incbin "inc/bs.dat"
 
 ;;; ============================================================