mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-01-16 16:30:54 +00:00
Minor bugfixes
ROMINIT sets ROMID to 'unknown', allows ROMSELECT optimisation to work. Bugfix to BUFREM in audio.s
This commit is contained in:
parent
e9ef2f2e27
commit
9d55776cb3
@ -371,7 +371,9 @@ ROMINIT STZ MAXROM ; One sideways ROM only
|
|||||||
:X1 CMP #7
|
:X1 CMP #7
|
||||||
BNE :X2
|
BNE :X2
|
||||||
STA MAXROM
|
STA MAXROM
|
||||||
:X2 RTS
|
:X2 LDA #$FF
|
||||||
|
STA ROMID ; Ensure invalid initial value
|
||||||
|
RTS
|
||||||
|
|
||||||
|
|
||||||
**********************************************************
|
**********************************************************
|
||||||
|
@ -176,9 +176,10 @@ MAININS >>> ENTMAIN
|
|||||||
|
|
||||||
|
|
||||||
* Remove value from buffer or examine buffer (API same as Acorn MOS REMV)
|
* Remove value from buffer or examine buffer (API same as Acorn MOS REMV)
|
||||||
|
* NOTE OS1.20 has a bug in the EXAMINE path
|
||||||
* On entry: X is buffer number, V=1 if only examination is requested
|
* On entry: X is buffer number, V=1 if only examination is requested
|
||||||
* On exit: If examination, A next byte, X preserved, Y=offset to next char
|
* On exit: If examination, A next byte, X preserved, Y=next byte
|
||||||
* If removal, A undef, X preserved, Y value of byte removed
|
* If removal, A undef, X preserved, Y=value of byte removed
|
||||||
* If buffer already empty C=1, else C=0
|
* If buffer already empty C=1, else C=0
|
||||||
REM PHP ; Save flags, turn off interrupts
|
REM PHP ; Save flags, turn off interrupts
|
||||||
SEI
|
SEI
|
||||||
@ -201,6 +202,7 @@ REM PHP ; Save flags, turn off interrupts
|
|||||||
CLC ; Success
|
CLC ; Success
|
||||||
RTS
|
RTS
|
||||||
:EXAM PLA ; Char read from buffer
|
:EXAM PLA ; Char read from buffer
|
||||||
|
TAY ; BUGFIX: Omitted on OS1.20
|
||||||
PLP
|
PLP
|
||||||
CLC ; Success
|
CLC ; Success
|
||||||
RTS
|
RTS
|
||||||
|
Loading…
x
Reference in New Issue
Block a user