forked from Apple-2-HW/Apple2-IO-RPi
Remove hard coded Rpi.Command as it's in firmware now
This commit is contained in:
parent
d74c8452f1
commit
e9b2964d88
@ -1,63 +0,0 @@
|
||||
;Translation of code written in mini-assembler on Apple //e
|
||||
;Currently only works if card is in slot 5
|
||||
|
||||
.org $1000
|
||||
lda $33
|
||||
pha
|
||||
lda #$a4
|
||||
sta $33
|
||||
GetCommand:
|
||||
jsr $fd6a
|
||||
lda $0200
|
||||
cmp #$8d ;stop when return found
|
||||
beq ExitApp
|
||||
jsr DumpOutput
|
||||
clc
|
||||
bcc GetCommand
|
||||
ExitApp:
|
||||
pla
|
||||
sta $33
|
||||
lda #$00
|
||||
sty $34
|
||||
rts
|
||||
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
brk
|
||||
|
||||
DumpOutput:
|
||||
ldx #$50
|
||||
lda #$05 ;send command 5 = exec
|
||||
jsr $c5aa
|
||||
ldy #$00
|
||||
getInput:
|
||||
lda $0200,y
|
||||
cmp #$8d
|
||||
beq sendNullTerminator
|
||||
and #$7f
|
||||
jsr $c5aa
|
||||
iny
|
||||
bne getInput
|
||||
sendNullTerminator:
|
||||
lda #$00
|
||||
jsr $c5aa ;send byte
|
||||
getOutput:
|
||||
jsr $c5c8 ;get byte
|
||||
cmp #$00
|
||||
beq endOutput
|
||||
jsr $fded
|
||||
clc
|
||||
bcc getOutput
|
||||
endOutput:
|
||||
rts
|
||||
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user