Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2025-01-02 22:33:24 +00:00
Code Issues Projects Releases Wiki Activity

split up ISCNTC

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 07:50:47 +00:00
parent f2d1bbf497
commit 5bf0b4466b
9 changed files with 62 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
apple_iscntc.s Normal file
View File

@ -0,0 +1,10 @@
.segment "CODE"
ISCNTC:
lda $C000
cmp #$83
beq L0ECC
rts
L0ECC:
jsr RDKEY
cmp #$03
;!!! runs into "STOP"

1
cbm_iscntc.s Normal file
View File

@ -0,0 +1 @@
; nothing - ISCNTC is a KERNAL function

0
flow3.s → flow2.s
View File

46
iscntc.s
View File

@ -3,55 +3,21 @@
; SEE IF CONTROL-C TYPED ; SEE IF CONTROL-C TYPED
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_CBM_ALL
ISCNTC: .include "cbm_iscntc.s"
.endif .endif
.ifdef KBD .ifdef KBD
jsr LE8F3 .include "kbd_iscntc.s"
bcc RET1
LE633:
jsr LDE7F
beq STOP
cmp #$03
bne LE633
.endif .endif
.ifdef OSI .ifdef OSI
jmp MONISCNTC .include "osi_iscntc.s"
nop
nop
nop
nop
lsr a
bcc RET2
jsr GETLN
cmp #$03
.endif .endif
.ifdef APPLE .ifdef APPLE
lda $C000 .include "apple_iscntc.s"
cmp #$83
beq L0ECC
rts
L0ECC:
jsr RDKEY
cmp #$03
.endif .endif
.ifdef KIM .ifdef KIM
lda #$01 .include "kim_iscntc.s"
bit $1740
bmi RET2
ldx #$08
lda #$03
clc
cmp #$03
.endif .endif
.ifdef MICROTAN .ifdef MICROTAN
lda $01 .include "microtan_iscntc.s"
cmp #$03
beq LC6EF
lda #$01
rts
LC6EF:
nop
nop
cmp #$03
.endif .endif
;!!! runs into "STOP" ;!!! runs into "STOP"

10
kbd_iscntc.s Normal file
View File

@ -0,0 +1,10 @@
.segment "CODE"
ISCNTC:
jsr LE8F3
bcc RET1
LE633:
jsr LDE7F
beq STOP
cmp #$03
bne LE633
;!!! runs into "STOP"

10
kim_iscntc.s Normal file
View File

@ -0,0 +1,10 @@
.segment "CODE"
ISCNTC:
lda #$01
bit $1740
bmi RET2
ldx #$08
lda #$03
clc
cmp #$03
;!!! runs into "STOP"

12
microtan_iscntc.s Normal file
View File

@ -0,0 +1,12 @@
.segment "CODE"
ISCNTC:
lda $01
cmp #$03
beq LC6EF
lda #$01
rts
LC6EF:
nop
nop
cmp #$03
;!!! runs into "STOP"

2
msbasic.s
View File

@ -17,7 +17,7 @@
.include "program.s" .include "program.s"
.include "flow1.s" .include "flow1.s"
.include "loadsave.s" .include "loadsave.s"
.include "flow3.s" .include "flow2.s"
.include "misc1.s" .include "misc1.s"
.include "print.s" .include "print.s"
.include "input.s" .include "input.s"

12
osi_iscntc.s Normal file
View File

@ -0,0 +1,12 @@
.segment "CODE"
ISCNTC:
jmp MONISCNTC
nop
nop
nop
nop
lsr a
bcc RET2
jsr GETLN
cmp #$03
;!!! runs into "STOP"