Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-12-30 17:29:40 +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
; ----------------------------------------------------------------------------
.ifndef CONFIG_CBM_ALL
ISCNTC:
.include "cbm_iscntc.s"
.endif
.ifdef KBD
jsr LE8F3
bcc RET1
LE633:
jsr LDE7F
beq STOP
cmp #$03
bne LE633
.include "kbd_iscntc.s"
.endif
.ifdef OSI
jmp MONISCNTC
nop
nop
nop
nop
lsr a
bcc RET2
jsr GETLN
cmp #$03
.include "osi_iscntc.s"
.endif
.ifdef APPLE
lda $C000
cmp #$83
beq L0ECC
rts
L0ECC:
jsr RDKEY
cmp #$03
.include "apple_iscntc.s"
.endif
.ifdef KIM
lda #$01
bit $1740
bmi RET2
ldx #$08
lda #$03
clc
cmp #$03
.include "kim_iscntc.s"
.endif
.ifdef MICROTAN
lda $01
cmp #$03
beq LC6EF
lda #$01
rts
LC6EF:
nop
nop
cmp #$03
.include "microtan_iscntc.s"
.endif
;!!! 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 "flow1.s"
.include "loadsave.s"
.include "flow3.s"
.include "flow2.s"
.include "misc1.s"
.include "print.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"