mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 00:55:55 +00:00
Fixed *DIR to work with new OSCLI handler.
This commit is contained in:
parent
d603dda13d
commit
027f33f60e
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -444,8 +444,6 @@ PRONEENT TAX
|
||||
* Handle *DIR (directory change) command
|
||||
* On entry, ZP1 points to command line
|
||||
STARDIR JSR EATSPC ; Eat leading spaces
|
||||
BCC :S1 ; If no space found
|
||||
RTS ; No argument
|
||||
:S1 LDX #$01
|
||||
:L3 LDA (ZP1),Y
|
||||
CMP #$0D
|
||||
|
@ -285,8 +285,12 @@ STARDRIVE
|
||||
STARBASIC
|
||||
STARKEY RTS
|
||||
|
||||
STARCHDIR STX ZP1+0 ; TEMP
|
||||
STY ZP1+1 ; TEMP
|
||||
STARCHDIR
|
||||
LDA OSLPTR ; TEMP
|
||||
STA ZP1 ; TEMP
|
||||
LDA OSLPTR+1 ; TEMP
|
||||
STA ZP1+1 ; TEMP
|
||||
JSR ADDZP1Y ; TEMP
|
||||
LDY #$00 ; TEMP
|
||||
JMP STARDIR ; TEMP
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user