From 2973d0c78e9b8eed3c5af239927c6bd36af64604 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Wed, 13 Mar 2019 02:50:42 -0400 Subject: initial commit --- src/loadmenu.dasm | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) create mode 100644 src/loadmenu.dasm (limited to 'src/loadmenu.dasm') diff --git a/src/loadmenu.dasm b/src/loadmenu.dasm new file mode 100644 index 0000000..71cbdfc --- /dev/null +++ b/src/loadmenu.dasm @@ -0,0 +1,69 @@ + +; Load MENU.COM + +; This will be part of AUTORUN.SYS on the disk. Without it, +; I'd have to make AUTORUN.SYS a copy of MENU.COM :( + + processor 6502 + include "equates.inc" + +atari_exec = $0600 +main = $2E00 ; same place as cc65 + +; segment header + org main-6 + word $FFFF + word main + word endmain-1 + + org main + +; do this so pressing Reset give us DOS +; ldx #1 +; stx BOOTQ +; dex +; stx COLDST + +; remove later: see if FujiChat can work with only 44K +;; lda #$B0 +;; sta RAMTOP +;; lda #12 ; CIO CLOSE +;; sta ICCOM +;; ldx #0 +;; jsr CIOV +;; +;; +;; lda #3 ; Command 3=OPEN +;; sta ICCOM +;; lda #12 ; 12=R/W access +;; sta ICAX1 +;; lda #0 +;; sta ICAX2 +;; lda #e_dev +;; sta ICBAH +;; lda #e_dev_len +;; sta ICBLL +;; lda #0 +;; tax +;; sta ICBLH +;; jsr CIOV ; call CIO + + +; our raison d'etre... + lda #menu_filename + jmp atari_exec + +menu_filename .byte "D:FUJIMENU.COM", 0 + +e_dev byte "E:",0 +e_dev_len equ *-e_dev+1 + +endmain + +; segment header + word RUNAD + word RUNAD+1 + word main -- cgit v1.2.3