mirror of
https://github.com/tjboldt/Apple2-IO-RPi.git
synced 2024-11-22 17:33:22 +00:00
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