mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
Remove references to the Kernal variables InDev and OutDev which
are needed to implement BUSOFF via CLRCHN and which moved on X16 between r38 and r41 and will likely change again, and replace with own variables and calls to UNLSN and UNTLK.
This commit is contained in:
parent
cae5f7c94d
commit
2c86e4809f
|
@ -9,8 +9,6 @@ include vf-lbls-cbm.fth
|
||||||
0ff4c >label ConOut
|
0ff4c >label ConOut
|
||||||
090 >label IOStatus
|
090 >label IOStatus
|
||||||
09a >label MsgFlg
|
09a >label MsgFlg
|
||||||
099 >label OutDev
|
|
||||||
098 >label InDev
|
|
||||||
0ff19 >label BrdCol
|
0ff19 >label BrdCol
|
||||||
0ff15 >label BkgCol
|
0ff15 >label BkgCol
|
||||||
053b >label PenCol
|
053b >label PenCol
|
||||||
|
|
|
@ -9,8 +9,6 @@ include vf-lbls-cbm.fth
|
||||||
0E716 >label ConOut
|
0E716 >label ConOut
|
||||||
090 >label IOStatus
|
090 >label IOStatus
|
||||||
09d >label MsgFlg
|
09d >label MsgFlg
|
||||||
09a >label OutDev
|
|
||||||
099 >label InDev
|
|
||||||
0d020 >label BrdCol
|
0d020 >label BrdCol
|
||||||
0d021 >label BkgCol
|
0d021 >label BkgCol
|
||||||
0286 >label PenCol
|
0286 >label PenCol
|
||||||
|
|
|
@ -100,7 +100,7 @@ Output: display [ here output ! ]
|
||||||
87 fthpage
|
87 fthpage
|
||||||
|
|
||||||
Code i/o-status? ( -- n )
|
Code i/o-status? ( -- n )
|
||||||
IOStatus lda Push0A jmp end-code
|
READST jsr Push0A jmp end-code
|
||||||
|
|
||||||
\ b/blk drive >drive drvinit clv14:2x87
|
\ b/blk drive >drive drvinit clv14:2x87
|
||||||
|
|
||||||
|
@ -131,7 +131,12 @@ Variable (drv 0 (drv !
|
||||||
|
|
||||||
Variable i/o 0 i/o ! \ Semaphore
|
Variable i/o 0 i/o ! \ Semaphore
|
||||||
|
|
||||||
Code busoff ( --) CLRCHN jsr
|
Label LsnDev 0 c,
|
||||||
|
Label TlkDev 0 c,
|
||||||
|
|
||||||
|
Code busoff ( --)
|
||||||
|
LsnDev lda 0<> ?[ LsnDev stx UNLSN jsr ]?
|
||||||
|
TlkDev lda 0<> ?[ TlkDev stx UNTLK jsr ]?
|
||||||
Label unlocki/o 1 # ldy 0 # ldx
|
Label unlocki/o 1 # ldy 0 # ldx
|
||||||
;c: i/o unlock ;
|
;c: i/o unlock ;
|
||||||
|
|
||||||
|
@ -164,7 +169,7 @@ Label (?dev
|
||||||
N 2+ lda (?dev jsr
|
N 2+ lda (?dev jsr
|
||||||
N 2+ lda LISTEN jsr
|
N 2+ lda LISTEN jsr
|
||||||
N lda 60 # ora SECOND jsr
|
N lda 60 # ora SECOND jsr
|
||||||
N 2+ ldx OutDev stx
|
N 2+ ldx LsnDev stx
|
||||||
xyNext jmp end-code
|
xyNext jmp end-code
|
||||||
|
|
||||||
|
|
||||||
|
@ -188,8 +193,7 @@ Label (?dev
|
||||||
N 2+ lda TALK jsr
|
N 2+ lda TALK jsr
|
||||||
N lda 60 # ora (C16 $ad sta ( )
|
N lda 60 # ora (C16 $ad sta ( )
|
||||||
TKSA jsr
|
TKSA jsr
|
||||||
\ because of error in old C16 OS
|
N 2+ ldx TlkDev stx
|
||||||
N 2+ ldx InDev stx
|
|
||||||
xyNext jmp end-code
|
xyNext jmp end-code
|
||||||
|
|
||||||
: busin ( dev 2nd -- )
|
: busin ( dev 2nd -- )
|
||||||
|
|
|
@ -9,8 +9,6 @@ include vf-lbls-cbm.fth
|
||||||
0febd >label KbdbufPeek
|
0febd >label KbdbufPeek
|
||||||
0289 >label IOStatus
|
0289 >label IOStatus
|
||||||
028c >label MsgFlg
|
028c >label MsgFlg
|
||||||
028e >label OutDev
|
|
||||||
028d >label InDev
|
|
||||||
09f2c >label BrdCol
|
09f2c >label BrdCol
|
||||||
0266 >label BkgCol
|
0266 >label BkgCol
|
||||||
0284 >label PenCol
|
0284 >label PenCol
|
||||||
|
|
Loading…
Reference in New Issue
Block a user