various character handling fixes
This commit is contained in:
1 parent
15021939ce
commit
f4db0f31c6
15 files changed
+43
-34
No files matched your search
@@ -55,9 +55,10 @@ wedge_dos_command:
|
||||
jsr JREADST ; retrieve errors
|
||||
;; XXX error in case of status != 0
|
||||
*
|
||||
;; XXX this loop does not seem to work, check it
|
||||
jsr basic_fetch_and_consume_character
|
||||
beq +
|
||||
jsr JCHROUT
|
||||
jsr via_IBSOUT
|
||||
;; XXX check errors here
|
||||
jmp -
|
||||
*
|
||||
@@ -100,13 +101,16 @@ wedge_dos_status:
|
||||
*
|
||||
jsr JREADST ; retrieve errors
|
||||
;; XXX error in case of status != 0
|
||||
*
|
||||
;; Print out everything retrieved from the drive
|
||||
bne +
|
||||
jsr JCHRIN
|
||||
jsr JCHROUT
|
||||
jsr via_IBASIN
|
||||
jsr via_IBSOUT
|
||||
jmp -
|
||||
*
|
||||
;; Print new line
|
||||
lda #$0D
|
||||
jsr via_IBSOUT
|
||||
|
||||
;; Clean-up and exit
|
||||
jmp wedge_dos_clean_exit
|
||||
|
||||
|
||||
Reference in new issue
Block a user