mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 16:55:31 +00:00
Implemented OSBYTE1/2/3 (no-ops mostly)
This commit is contained in:
parent
4ad57d2ac4
commit
0da35a493f
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -8,9 +8,9 @@
|
|||||||
*************************
|
*************************
|
||||||
|
|
||||||
BYTWRDADDR DW BYTE00 ; OSBYTE 0 - Machine host
|
BYTWRDADDR DW BYTE00 ; OSBYTE 0 - Machine host
|
||||||
* DW BYTE01 ; OSBYTE 1 - User flag
|
DW BYTE01 ; OSBYTE 1 - User flag
|
||||||
* DW BYTE02 ; OSBYTE 2 - OSRDCH source
|
DW BYTE02 ; OSBYTE 2 - OSRDCH source
|
||||||
* DW BYTE03 ; OSBYTE 3 - OSWRCH dest
|
DW BYTE03 ; OSBYTE 3 - OSWRCH dest
|
||||||
* DW BYTE04 ; OSBYTE 4 - Cursor keys
|
* DW BYTE04 ; OSBYTE 4 - Cursor keys
|
||||||
BYTWRDLOW
|
BYTWRDLOW
|
||||||
BYTESZLO EQU BYTWRDLOW-BYTWRDADDR
|
BYTESZLO EQU BYTWRDLOW-BYTWRDADDR
|
||||||
@ -314,6 +314,13 @@ GETADDR STA OSINTWS+0 ; (OSINTWS)=>byte to read/write
|
|||||||
BYTE00 LDX #$0A ; $00 = identify Host
|
BYTE00 LDX #$0A ; $00 = identify Host
|
||||||
RTS
|
RTS
|
||||||
|
|
||||||
|
BYTE01 LDA #$F1 ; $01 = read/write user flag
|
||||||
|
JMP BYTEHND
|
||||||
|
|
||||||
|
BYTE02 RTS ; $02 = select input stream
|
||||||
|
|
||||||
|
BYTE03 RTS ; $03 = select output stream
|
||||||
|
|
||||||
BYTE7C LDA ESCFLAG ; $7C = clear escape condition
|
BYTE7C LDA ESCFLAG ; $7C = clear escape condition
|
||||||
AND #$7F ; Clear MSbit
|
AND #$7F ; Clear MSbit
|
||||||
STA ESCFLAG
|
STA ESCFLAG
|
||||||
|
Loading…
Reference in New Issue
Block a user