From 2973d0c78e9b8eed3c5af239927c6bd36af64604 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Wed, 13 Mar 2019 02:50:42 -0400
Subject: initial commit

---
 src/col80_modified/cruft/col80_entry.s | 61 ++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 src/col80_modified/cruft/col80_entry.s

(limited to 'src/col80_modified/cruft/col80_entry.s')

diff --git a/src/col80_modified/cruft/col80_entry.s b/src/col80_modified/cruft/col80_entry.s
new file mode 100644
index 0000000..edf0d96
--- /dev/null
+++ b/src/col80_modified/cruft/col80_entry.s
@@ -0,0 +1,61 @@
+; ----------------------------------------------------------------------------
+; The OS jumps here on warmstart (also, this is the run address in our
+; binary load file)
+
+dosini_entry_point:
+ .ifndef FUJICHAT
+        nop
+        nop
+        nop
+ .endif
+
+main_entry_point:
+        jsr     col80_init
+ .ifndef FUJICHAT
+        lda     CONSOL
+        and     #$04
+        beq     no_e_handler
+ .endif
+        lda     #$0C
+        sta     ICCOM
+        ldx     #$00
+        jsr     CIOV
+        lda     #$58
+        sta     font_ptr_lo
+        lda     #$03
+        sta     ICCOM
+        lda     #font_ptr_lo
+        sta     ICBAL
+        lda     #$00
+        sta     ICBAH
+        ldx     #$00
+        jsr     CIOV
+        ldy     #$07
+        lda     #<col80_vector_tab
+        sta     HATABS,y
+        lda     #>col80_vector_tab
+        iny
+        sta     HATABS,y
+no_e_handler:
+        lda     #<START_ADDRESS
+        sta     MEMTOP
+        lda     #>START_ADDRESS
+        sta     MEMTOP+1
+ .ifdef FUJICHAT
+        ldy #$01
+		  rts
+ .else
+        jmp     return_success
+ .endif
+
+; ----------------------------------------------------------------------------
+; (when does this actually get called? da65 can't find any references
+; to it, and it's not a run or init address in the binary load file)
+ .ifndef FUJICHAT
+        lda     #<dosini_entry_point
+        sta     DOSINI
+        lda     #>dosini_entry_point
+        sta     DOSINI+1
+        jmp     main_entry_point
+ .endif
+
-- 
cgit v1.2.3