From 5823ba3b17a6b65b910fe248c7dff1354bee1b18 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sat, 6 Feb 2016 14:43:39 -0500
Subject: rearrage logic in checkmem.s slightly

---
 checkmem.s | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'checkmem.s')

diff --git a/checkmem.s b/checkmem.s
index b48c12b..06c7917 100644
--- a/checkmem.s
+++ b/checkmem.s
@@ -42,9 +42,14 @@ init:
 
  lda RAMTOP
  cmp #$c0
- bcs done ; if ramtop is $c000, we're OK
+ bcc have_cart
 
- ; if ramtop is below $c000, we have a cartridge (or XL BASIC)
+ ; if ramtop is $c000 or higher, we're OK, just exit.
+ rts
+
+have_cart:
+ ; if ramtop is below $c000, we have a cartridge (or XL BASIC).
+ ; print the "remove cart" message...
  lda #<msg
  sta FR0
  lda #>msg
@@ -57,14 +62,14 @@ msgloop:
  dey
  bpl msgloop
 
+ ; ...wait for a keystroke...
 wait4key:
  lda CH
  cmp #$ff
  beq wait4key
- jmp WARMSV
 
-done:
- rts
+ ; ...and do a warmstart.
+ jmp WARMSV
 
 end:
  .word INITAD
-- 
cgit v1.2.3