.

2008-10-18 07:45:30 +00:00 · 2008-10-18 07:45:30 +00:00 · f2d1bbf497
parent e8a3a5418f
commit f2d1bbf497
4 changed files with 60 additions and 57 deletions
--- 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
 ; ----------------------------------------------------------------------------
--- a/flow3.s
+++ b/flow3.s
--- a/iscntc.s
+++ 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"
--- 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"