From f2d1bbf497c33cf916155d0f253307ad809f3121 Mon Sep 17 00:00:00 2001
From: Michael Steil <mist64@mac.com>
Date: Sat, 18 Oct 2008 07:45:30 +0000
Subject: [PATCH] .

---
 flow1.s            | 58 ++--------------------------------------------
 flow2.s => flow3.s |  0
 iscntc.s           | 57 +++++++++++++++++++++++++++++++++++++++++++++
 msbasic.s          |  2 +-
 4 files changed, 60 insertions(+), 57 deletions(-)
 rename flow2.s => flow3.s (100%)
 create mode 100644 iscntc.s

diff --git a/flow1.s b/flow1.s
index 0f0c37c..49f07b9 100644
--- a/flow1.s
+++ b/flow1.s
@@ -203,62 +203,8 @@ SETDA:
 RET2:
         rts
 
-; ----------------------------------------------------------------------------
-; SEE IF CONTROL-C TYPED
-; ----------------------------------------------------------------------------
-.ifndef CONFIG_CBM_ALL
-ISCNTC:
-.endif
-.ifdef KBD
-        jsr     LE8F3
-        bcc     RET1
-LE633:
-        jsr     LDE7F
-        beq     STOP
-        cmp     #$03
-        bne     LE633
-.endif
-.ifdef OSI
-        jmp     MONISCNTC
-        nop
-        nop
-        nop
-        nop
-        lsr     a
-        bcc     RET2
-        jsr     GETLN
-        cmp     #$03
-.endif
-.ifdef APPLE
-        lda     $C000
-        cmp     #$83
-        beq     L0ECC
-        rts
-L0ECC:
-        jsr     RDKEY
-        cmp     #$03
-.endif
-.ifdef KIM
-        lda     #$01
-        bit     $1740
-        bmi     RET2
-        ldx     #$08
-        lda     #$03
-        clc
-        cmp     #$03
-.endif
-.ifdef MICROTAN
-        lda     $01
-        cmp     #$03
-        beq     LC6EF
-        lda     #$01
-        rts
-LC6EF:
-        nop
-        nop
-        cmp     #$03
-.endif
-
+.include "iscntc.s"
+;!!! runs into "STOP"
 ; ----------------------------------------------------------------------------
 ; "STOP" STATEMENT
 ; ----------------------------------------------------------------------------
diff --git a/flow2.s b/flow3.s
similarity index 100%
rename from flow2.s
rename to flow3.s
diff --git a/iscntc.s b/iscntc.s
new file mode 100644
index 0000000..c57ce23
--- /dev/null
+++ b/iscntc.s
@@ -0,0 +1,57 @@
+.segment "CODE"
+; ----------------------------------------------------------------------------
+; SEE IF CONTROL-C TYPED
+; ----------------------------------------------------------------------------
+.ifndef CONFIG_CBM_ALL
+ISCNTC:
+.endif
+.ifdef KBD
+        jsr     LE8F3
+        bcc     RET1
+LE633:
+        jsr     LDE7F
+        beq     STOP
+        cmp     #$03
+        bne     LE633
+.endif
+.ifdef OSI
+        jmp     MONISCNTC
+        nop
+        nop
+        nop
+        nop
+        lsr     a
+        bcc     RET2
+        jsr     GETLN
+        cmp     #$03
+.endif
+.ifdef APPLE
+        lda     $C000
+        cmp     #$83
+        beq     L0ECC
+        rts
+L0ECC:
+        jsr     RDKEY
+        cmp     #$03
+.endif
+.ifdef KIM
+        lda     #$01
+        bit     $1740
+        bmi     RET2
+        ldx     #$08
+        lda     #$03
+        clc
+        cmp     #$03
+.endif
+.ifdef MICROTAN
+        lda     $01
+        cmp     #$03
+        beq     LC6EF
+        lda     #$01
+        rts
+LC6EF:
+        nop
+        nop
+        cmp     #$03
+.endif
+;!!! runs into "STOP"
\ No newline at end of file
diff --git a/msbasic.s b/msbasic.s
index fb2011d..c0fa319 100644
--- a/msbasic.s
+++ b/msbasic.s
@@ -17,7 +17,7 @@
 .include "program.s"
 .include "flow1.s"
 .include "loadsave.s"
-.include "flow2.s"
+.include "flow3.s"
 .include "misc1.s"
 .include "print.s"
 .include "input.s"