mirror of
https://github.com/mist64/msbasic.git
synced 2024-12-12 03:29:52 +00:00
split up ISCNTC
This commit is contained in:
parent
f2d1bbf497
commit
5bf0b4466b
10
apple_iscntc.s
Normal file
10
apple_iscntc.s
Normal 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
1
cbm_iscntc.s
Normal file
@ -0,0 +1 @@
|
||||
; nothing - ISCNTC is a KERNAL function
|
46
iscntc.s
46
iscntc.s
@ -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
10
kbd_iscntc.s
Normal 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
10
kim_iscntc.s
Normal 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
12
microtan_iscntc.s
Normal 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"
|
@ -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
12
osi_iscntc.s
Normal 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"
|
Loading…
Reference in New Issue
Block a user