mirror of
https://github.com/a2geek/basic-system-cmd.git
synced 2026-04-20 00:20:14 +00:00
Fixed primary loop and error message. Routine works now, but BASIC.SYSTEM integration does not yet. May split out to separate command files.
This commit is contained in:
@@ -158,8 +158,6 @@ online:
|
||||
jsr gosystem
|
||||
bcc @continue
|
||||
rts
|
||||
@exit:
|
||||
jmp crout
|
||||
|
||||
@continue:
|
||||
ldx #0
|
||||
@@ -167,23 +165,32 @@ online:
|
||||
ldy buffer,x
|
||||
beq @exit
|
||||
jsr printsd
|
||||
lda #' '|$80
|
||||
jsr cout
|
||||
tya
|
||||
and #$0f
|
||||
beq @deverr
|
||||
tay
|
||||
: inx
|
||||
lda #'/'|$80
|
||||
: jsr cout
|
||||
inx
|
||||
lda buffer,x
|
||||
ora #$80
|
||||
jsr cout
|
||||
dey
|
||||
bne :-
|
||||
bpl :-
|
||||
@adjust:
|
||||
jsr crout
|
||||
txa
|
||||
clc
|
||||
adc #$0f
|
||||
and #$0f ; Check if we advanced past this buffer
|
||||
beq @loop
|
||||
txa
|
||||
and #$f0
|
||||
bra @loop
|
||||
clc
|
||||
adc #$10
|
||||
tax
|
||||
bne @loop
|
||||
@exit:
|
||||
jmp crout
|
||||
; A device error message
|
||||
@deverr:
|
||||
lda #'E'|$80
|
||||
@@ -222,7 +229,7 @@ printsd:
|
||||
lsr
|
||||
ora #'0'|$80
|
||||
jsr cout
|
||||
lda #' '|$80
|
||||
lda #','|$80
|
||||
jsr cout
|
||||
lda #'D'|$80
|
||||
jsr cout
|
||||
|
||||
Reference in New Issue
Block a user