mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-01-19 05:30:35 +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
|
||||
* DW BYTE01 ; OSBYTE 1 - User flag
|
||||
* DW BYTE02 ; OSBYTE 2 - OSRDCH source
|
||||
* DW BYTE03 ; OSBYTE 3 - OSWRCH dest
|
||||
DW BYTE01 ; OSBYTE 1 - User flag
|
||||
DW BYTE02 ; OSBYTE 2 - OSRDCH source
|
||||
DW BYTE03 ; OSBYTE 3 - OSWRCH dest
|
||||
* DW BYTE04 ; OSBYTE 4 - Cursor keys
|
||||
BYTWRDLOW
|
||||
BYTESZLO EQU BYTWRDLOW-BYTWRDADDR
|
||||
@ -314,6 +314,13 @@ GETADDR STA OSINTWS+0 ; (OSINTWS)=>byte to read/write
|
||||
BYTE00 LDX #$0A ; $00 = identify Host
|
||||
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
|
||||
AND #$7F ; Clear MSbit
|
||||
STA ESCFLAG
|
||||
|
Loading…
x
Reference in New Issue
Block a user