Remove intermediates from repo.
This commit is contained in:
Oliver Schmidt
parent
20ac156014
commit
a3d8e9e790
Binary file not shown.
|
|
@ -1,195 +0,0 @@
|
|||
ca65 V2.18 - Raspbian 2.19-1
|
||||
Main file : CommandFirmware.asm
|
||||
Current file: CommandFirmware.asm
|
||||
|
||||
000000r 1 ; Copyright Terence J. Boldt (c)2020-2022
|
||||
000000r 1 ; Use of this source code is governed by an MIT
|
||||
000000r 1 ; license that can be found in the LICENSE file.
|
||||
000000r 1
|
||||
000000r 1 ; This file contains the source for the firmware
|
||||
000000r 1 ; that was formerly used to act as a pseudo-shell
|
||||
000000r 1
|
||||
000000r 1 ;ProDOS Zero Page
|
||||
000000r 1 Command = $42 ;ProDOS Command
|
||||
000000r 1 Unit = $43 ;ProDOS unit (SDDD0000)
|
||||
000000r 1 BufferLo = $44
|
||||
000000r 1 BufferHi = $45
|
||||
000000r 1 BlockLo = $46
|
||||
000000r 1 BlockHi = $47
|
||||
000000r 1
|
||||
000000r 1 ; ProDOS Error Codes
|
||||
000000r 1 IOError = $27
|
||||
000000r 1 NoDevice = $28
|
||||
000000r 1 WriteProtect = $2B
|
||||
000000r 1
|
||||
000000r 1 InputByte = $c08e+SLOT*$10
|
||||
000000r 1 OutputByte = $c08d+SLOT*$10
|
||||
000000r 1 InputFlags = $c08b+SLOT*$10
|
||||
000000r 1 OutputFlags = $c087+SLOT*$10
|
||||
000000r 1
|
||||
000000r 1 ReadBlockCommand = $01
|
||||
000000r 1 WriteBlockCommand = $02
|
||||
000000r 1 GetTimeCommand = $03
|
||||
000000r 1 ChangeDriveCommand = $04
|
||||
000000r 1 ExecCommand = $05
|
||||
000000r 1 LoadFileCommand = $06
|
||||
000000r 1 SaveFileCommand = $07
|
||||
000000r 1 MenuCommand = $08
|
||||
000000r 1
|
||||
000000r 1 InputString = $fd67
|
||||
000000r 1 PrintChar = $fded
|
||||
000000r 1 Keyboard = $c000
|
||||
000000r 1 ClearKeyboard = $c010
|
||||
000000r 1 Wait = $fca8
|
||||
000000r 1
|
||||
000000r 1 .org SLOT*$100 + $C000
|
||||
00C700 1 ;ID bytes for booting and drive detection
|
||||
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
|
||||
00C702 1 E0 00 cpx #$00 ; Apple Autostart ROM
|
||||
00C704 1 E0 03 cpx #$03 ;
|
||||
00C706 1
|
||||
00C706 1 A2 70 ldx #SLOT*$10
|
||||
00C708 1 86 2B stx $2b
|
||||
00C70A 1 86 43 stx Unit
|
||||
00C70C 1
|
||||
00C70C 1 ;force EPROM to second page on boot
|
||||
00C70C 1 A9 3F lda #$3f ;set all flags high and page 3 of EPROM for menu
|
||||
00C70E 1 PageJump:
|
||||
00C70E 1 8D F7 C0 sta OutputFlags
|
||||
00C711 1 4C 19 C7 jmp Start ;this jump is only called if coming in from PageJump with A=$2f
|
||||
00C714 1
|
||||
00C714 1 ;entry points for ProDOS
|
||||
00C714 1 DriverEntry:
|
||||
00C714 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM
|
||||
00C716 1 8D F7 C0 sta OutputFlags
|
||||
00C719 1
|
||||
00C719 1 Start:
|
||||
00C719 1 20 00 C3 jsr $c300 ;enable 80 columns
|
||||
00C71C 1 A9 05 lda #$05 ;execute command
|
||||
00C71E 1 20 95 C7 jsr SendByte
|
||||
00C721 1 A0 00 ldy #$00
|
||||
00C723 1 sendHelp:
|
||||
00C723 1 B9 8E C7 lda HelpCommand,y
|
||||
00C726 1 F0 06 beq endSendHelp
|
||||
00C728 1 20 95 C7 jsr SendByte
|
||||
00C72B 1 C8 iny
|
||||
00C72C 1 D0 F5 bne sendHelp
|
||||
00C72E 1 endSendHelp:
|
||||
00C72E 1 A9 00 lda #$00
|
||||
00C730 1 20 95 C7 jsr SendByte
|
||||
00C733 1 20 6B C7 jsr DumpOutput
|
||||
00C736 1
|
||||
00C736 1 A5 33 lda $33
|
||||
00C738 1 48 pha
|
||||
00C739 1 A9 A4 lda #$a4
|
||||
00C73B 1 85 33 sta $33
|
||||
00C73D 1 GetCommand:
|
||||
00C73D 1 20 67 FD jsr InputString
|
||||
00C740 1 AD 00 02 lda $0200
|
||||
00C743 1 C9 8D cmp #$8d ;skip when return found
|
||||
00C745 1 F0 F6 beq GetCommand
|
||||
00C747 1 20 4D C7 jsr SendCommand
|
||||
00C74A 1 18 clc
|
||||
00C74B 1 90 F0 bcc GetCommand
|
||||
00C74D 1
|
||||
00C74D 1 SendCommand:
|
||||
00C74D 1 2C 10 C0 bit ClearKeyboard
|
||||
00C750 1 A9 05 lda #$05 ;send command 5 = exec
|
||||
00C752 1 20 95 C7 jsr SendByte
|
||||
00C755 1 A0 00 ldy #$00
|
||||
00C757 1 getInput:
|
||||
00C757 1 B9 00 02 lda $0200,y
|
||||
00C75A 1 C9 8D cmp #$8d
|
||||
00C75C 1 F0 08 beq sendNullTerminator
|
||||
00C75E 1 29 7F and #$7f
|
||||
00C760 1 20 95 C7 jsr SendByte
|
||||
00C763 1 C8 iny
|
||||
00C764 1 D0 F1 bne getInput
|
||||
00C766 1 sendNullTerminator:
|
||||
00C766 1 A9 00 lda #$00
|
||||
00C768 1 20 95 C7 jsr SendByte
|
||||
00C76B 1 DumpOutput:
|
||||
00C76B 1 20 B3 C7 jsr GetByte
|
||||
00C76E 1 B0 07 bcs skipOutput
|
||||
00C770 1 C9 00 cmp #$00
|
||||
00C772 1 F0 19 beq endOutput
|
||||
00C774 1 20 ED FD jsr PrintChar
|
||||
00C777 1 skipOutput:
|
||||
00C777 1 2C 00 C0 bit Keyboard ;check for keypress
|
||||
00C77A 1 10 EF bpl DumpOutput ;keep dumping output if no keypress
|
||||
00C77C 1 AD 00 C0 lda Keyboard ;send keypress to RPi
|
||||
00C77F 1 20 ED FD jsr PrintChar
|
||||
00C782 1 29 7F and #$7f
|
||||
00C784 1 20 95 C7 jsr SendByte
|
||||
00C787 1 2C 10 C0 bit ClearKeyboard
|
||||
00C78A 1 18 clc
|
||||
00C78B 1 90 DE bcc DumpOutput
|
||||
00C78D 1 endOutput:
|
||||
00C78D 1 60 rts
|
||||
00C78E 1
|
||||
00C78E 1 HelpCommand:
|
||||
00C78E 1 61 32 68 65 .byte "a2help",$00
|
||||
00C792 1 6C 70 00
|
||||
00C795 1
|
||||
00C795 1 SendByte:
|
||||
00C795 1 48 pha
|
||||
00C796 1 waitWrite:
|
||||
00C796 1 AD FB C0 lda InputFlags
|
||||
00C799 1 2A rol
|
||||
00C79A 1 2A rol
|
||||
00C79B 1 B0 F9 bcs waitWrite
|
||||
00C79D 1 68 pla
|
||||
00C79E 1 8D FD C0 sta OutputByte
|
||||
00C7A1 1 A9 1E lda #$1e ; set bit 0 low to indicate write started
|
||||
00C7A3 1 8D F7 C0 sta OutputFlags
|
||||
00C7A6 1 finishWrite:
|
||||
00C7A6 1 AD FB C0 lda InputFlags
|
||||
00C7A9 1 2A rol
|
||||
00C7AA 1 2A rol
|
||||
00C7AB 1 90 F9 bcc finishWrite
|
||||
00C7AD 1 A9 1F lda #$1f
|
||||
00C7AF 1 8D F7 C0 sta OutputFlags
|
||||
00C7B2 1 60 rts
|
||||
00C7B3 1
|
||||
00C7B3 1 GetByte:
|
||||
00C7B3 1 A9 1D lda #$1d ;set read flag low
|
||||
00C7B5 1 8D F7 C0 sta OutputFlags
|
||||
00C7B8 1 waitRead:
|
||||
00C7B8 1 AD FB C0 lda InputFlags
|
||||
00C7BB 1 2A rol
|
||||
00C7BC 1 90 0C bcc readByte
|
||||
00C7BE 1 2C 00 C0 bit Keyboard ;keypress will abort waiting to read
|
||||
00C7C1 1 10 F5 bpl waitRead
|
||||
00C7C3 1 A9 1F lda #$1f ;set all flags high and exit
|
||||
00C7C5 1 8D F7 C0 sta OutputFlags
|
||||
00C7C8 1 38 sec ;failure
|
||||
00C7C9 1 60 rts
|
||||
00C7CA 1 readByte:
|
||||
00C7CA 1 AD FE C0 lda InputByte
|
||||
00C7CD 1 48 pha
|
||||
00C7CE 1 A9 1F lda #$1f ;set all flags high
|
||||
00C7D0 1 8D F7 C0 sta OutputFlags
|
||||
00C7D3 1 finishRead:
|
||||
00C7D3 1 AD FB C0 lda InputFlags
|
||||
00C7D6 1 2A rol
|
||||
00C7D7 1 90 FA bcc finishRead
|
||||
00C7D9 1 68 pla
|
||||
00C7DA 1 18 clc ;success
|
||||
00C7DB 1 end:
|
||||
00C7DB 1 60 rts
|
||||
00C7DC 1
|
||||
00C7DC 1 00 00 00 00 .repeat 251-<end
|
||||
00C7E0 1 00 00 00 00
|
||||
00C7E4 1 00 00 00 00
|
||||
00C7E8 1 00 00 00 00
|
||||
00C7EC 1 00 00 00 00
|
||||
00C7F0 1 00 00 00 00
|
||||
00C7F4 1 00 00 00 00
|
||||
00C7F8 1 00 00 00 00
|
||||
00C7FC 1 .byte 0
|
||||
00C7FC 1 .endrepeat
|
||||
00C7FC 1
|
||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||
00C7FE 1 07 .byte 7 ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
|
||||
00C7FF 1 14 .byte DriverEntry&$00FF ;low byte of entry
|
||||
00C7FF 1
|
||||
|
|
@ -1,214 +0,0 @@
|
|||
ca65 V2.18 - Raspbian 2.19-1
|
||||
Main file : DriveFirmware.asm
|
||||
Current file: DriveFirmware.asm
|
||||
|
||||
000000r 1 ; Copyright Terence J. Boldt (c)2020-2022
|
||||
000000r 1 ; Use of this source code is governed by an MIT
|
||||
000000r 1 ; license that can be found in the LICENSE file.
|
||||
000000r 1
|
||||
000000r 1 ; This file contains the source for the firmware
|
||||
000000r 1 ; that allows the Apple II to boot from the card
|
||||
000000r 1 ; and for ProDOS to recognize the card as two
|
||||
000000r 1 ; hard drivers
|
||||
000000r 1
|
||||
000000r 1 ;ProDOS Zero Page
|
||||
000000r 1 Command = $42 ;ProDOS Command
|
||||
000000r 1 Unit = $43 ;ProDOS unit (SDDD0000)
|
||||
000000r 1 BufferLo = $44
|
||||
000000r 1 BufferHi = $45
|
||||
000000r 1 BlockLo = $46
|
||||
000000r 1 BlockHi = $47
|
||||
000000r 1
|
||||
000000r 1 ; ProDOS Error Codes
|
||||
000000r 1 IOError = $27
|
||||
000000r 1 NoDevice = $28
|
||||
000000r 1 WriteProtect = $2B
|
||||
000000r 1
|
||||
000000r 1 InputByte = $c08e+SLOT*$10
|
||||
000000r 1 OutputByte = $c08d+SLOT*$10
|
||||
000000r 1 InputFlags = $c08b+SLOT*$10
|
||||
000000r 1 OutputFlags = $c087+SLOT*$10
|
||||
000000r 1
|
||||
000000r 1 ReadBlockCommand = $01
|
||||
000000r 1 WriteBlockCommand = $02
|
||||
000000r 1 GetTimeCommand = $03
|
||||
000000r 1 ChangeDriveCommand = $04
|
||||
000000r 1 ExecCommand = $05
|
||||
000000r 1 LoadFileCommand = $06
|
||||
000000r 1 SaveFileCommand = $07
|
||||
000000r 1 MenuCommand = $08
|
||||
000000r 1
|
||||
000000r 1 .org SLOT*$100 + $C000
|
||||
00C700 1 ;ID bytes for booting and drive detection
|
||||
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
|
||||
00C702 1 E0 00 cpx #$00 ; Apple Autostart ROM
|
||||
00C704 1 E0 03 cpx #$03 ;
|
||||
00C706 1
|
||||
00C706 1 A2 70 ldx #SLOT*$10
|
||||
00C708 1 86 2B stx $2b
|
||||
00C70A 1 86 43 stx Unit
|
||||
00C70C 1
|
||||
00C70C 1 ;force EPROM to second page on boot
|
||||
00C70C 1 A9 3F lda #$3f ;set all flags high and page 3 of EPROM for menu
|
||||
00C70E 1 PageJump:
|
||||
00C70E 1 8D F7 C0 sta OutputFlags
|
||||
00C711 1 4C 1C C7 jmp Start ;this jump is only called if coming in from PageJump with A=$0f
|
||||
00C714 1
|
||||
00C714 1 ;entry points for ProDOS
|
||||
00C714 1 DriverEntry:
|
||||
00C714 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM
|
||||
00C716 1 8D F7 C0 sta OutputFlags
|
||||
00C719 1 4C 32 C7 jmp Driver
|
||||
00C71C 1
|
||||
00C71C 1 ;load first two blocks and execute to boot
|
||||
00C71C 1 Start:
|
||||
00C71C 1 A9 01 lda #$01 ;set read command
|
||||
00C71E 1 85 42 sta Command
|
||||
00C720 1
|
||||
00C720 1 A9 00 lda #$00 ;block 0
|
||||
00C722 1 85 46 sta BlockLo
|
||||
00C724 1 85 47 sta BlockHi
|
||||
00C726 1 85 44 sta BufferLo ;buffer at $800
|
||||
00C728 1 A9 08 lda #$08
|
||||
00C72A 1 85 45 sta BufferHi
|
||||
00C72C 1 20 32 C7 jsr Driver ;get the block
|
||||
00C72F 1
|
||||
00C72F 1 4C 01 08 jmp $801 ;execute the block
|
||||
00C732 1
|
||||
00C732 1 ; ProDOS Driver code
|
||||
00C732 1 ; First check that this is the right drive
|
||||
00C732 1 Driver:
|
||||
00C732 1 A6 43 ldx Unit
|
||||
00C734 1 A5 42 lda Command; Check which command is being requested
|
||||
00C736 1 F0 0C beq GetStatus ;0 = Status command
|
||||
00C738 1 C9 01 cmp #ReadBlockCommand
|
||||
00C73A 1 F0 10 beq ReadBlockAndSetTime
|
||||
00C73C 1 C9 02 cmp #WriteBlockCommand
|
||||
00C73E 1 F0 54 beq WriteBlock
|
||||
00C740 1 38 sec ;set carry as we don't support any other commands
|
||||
00C741 1 A9 53 lda #$53 ;Invalid parameter error
|
||||
00C743 1 60 rts
|
||||
00C744 1
|
||||
00C744 1 ; ProDOS Status Command Handler
|
||||
00C744 1 GetStatus:
|
||||
00C744 1 A2 FF ldx #$ff ;low byte number of blocks
|
||||
00C746 1 A0 FF ldy #$ff ;high byte number of blocks
|
||||
00C748 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
||||
00C74A 1 18 clc
|
||||
00C74B 1 60 rts
|
||||
00C74C 1
|
||||
00C74C 1 ; ProDOS Read Block Command
|
||||
00C74C 1 ReadBlockAndSetTime:
|
||||
00C74C 1 A5 47 lda BlockHi ; only get the time if block 0002
|
||||
00C74E 1 D0 18 bne readBlock
|
||||
00C750 1 A5 46 lda BlockLo
|
||||
00C752 1 C9 02 cmp #$02
|
||||
00C754 1 D0 12 bne readBlock
|
||||
00C756 1 A0 00 ldy #$00 ;Get the current time on each block read for now
|
||||
00C758 1 A9 03 lda #GetTimeCommand
|
||||
00C75A 1 20 C0 C7 jsr SendByte
|
||||
00C75D 1 getTimeByte:
|
||||
00C75D 1 20 DE C7 jsr GetByte
|
||||
00C760 1 99 90 BF sta $bf90,y
|
||||
00C763 1 C8 iny
|
||||
00C764 1 C0 04 cpy #$04
|
||||
00C766 1 D0 F5 bne getTimeByte
|
||||
00C768 1 readBlock:
|
||||
00C768 1 A9 01 lda #ReadBlockCommand ;read the block after setting the clock
|
||||
00C76A 1 20 C0 C7 jsr SendByte
|
||||
00C76D 1 A5 46 lda BlockLo
|
||||
00C76F 1 20 C0 C7 jsr SendByte
|
||||
00C772 1 A5 47 lda BlockHi
|
||||
00C774 1 20 C0 C7 jsr SendByte
|
||||
00C777 1 8A txa
|
||||
00C778 1 20 C0 C7 jsr SendByte
|
||||
00C77B 1 A0 00 ldy #$0
|
||||
00C77D 1 20 8B C7 jsr read256
|
||||
00C780 1 E6 45 inc BufferHi
|
||||
00C782 1 20 8B C7 jsr read256
|
||||
00C785 1 C6 45 dec BufferHi
|
||||
00C787 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
||||
00C789 1 18 clc
|
||||
00C78A 1 60 rts
|
||||
00C78B 1
|
||||
00C78B 1 read256:
|
||||
00C78B 1 20 DE C7 jsr GetByte
|
||||
00C78E 1 91 44 sta (BufferLo),y
|
||||
00C790 1 C8 iny
|
||||
00C791 1 D0 F8 bne read256
|
||||
00C793 1 60 rts
|
||||
00C794 1
|
||||
00C794 1 ; ProDOS Write Block Command
|
||||
00C794 1 WriteBlock:
|
||||
00C794 1 A9 02 lda #WriteBlockCommand
|
||||
00C796 1 20 C0 C7 jsr SendByte
|
||||
00C799 1 A5 46 lda BlockLo
|
||||
00C79B 1 20 C0 C7 jsr SendByte
|
||||
00C79E 1 A5 47 lda BlockHi
|
||||
00C7A0 1 20 C0 C7 jsr SendByte
|
||||
00C7A3 1 8A txa
|
||||
00C7A4 1 20 C0 C7 jsr SendByte
|
||||
00C7A7 1 A0 00 ldy #$0
|
||||
00C7A9 1 20 B7 C7 jsr write256
|
||||
00C7AC 1 E6 45 inc BufferHi
|
||||
00C7AE 1 20 B7 C7 jsr write256
|
||||
00C7B1 1 C6 45 dec BufferHi
|
||||
00C7B3 1 A9 00 lda #$0 ;zero accumulator and clear carry for success
|
||||
00C7B5 1 18 clc
|
||||
00C7B6 1 60 rts
|
||||
00C7B7 1
|
||||
00C7B7 1 write256:
|
||||
00C7B7 1 B1 44 lda (BufferLo),y
|
||||
00C7B9 1 20 C0 C7 jsr SendByte
|
||||
00C7BC 1 C8 iny
|
||||
00C7BD 1 D0 F8 bne write256
|
||||
00C7BF 1 60 rts
|
||||
00C7C0 1
|
||||
00C7C0 1 SendByte:
|
||||
00C7C0 1 48 pha
|
||||
00C7C1 1 waitWrite:
|
||||
00C7C1 1 AD FB C0 lda InputFlags
|
||||
00C7C4 1 2A rol
|
||||
00C7C5 1 2A rol
|
||||
00C7C6 1 B0 F9 bcs waitWrite
|
||||
00C7C8 1 68 pla
|
||||
00C7C9 1 8D FD C0 sta OutputByte
|
||||
00C7CC 1 A9 0E lda #$0e ; set bit 0 low to indicate write started
|
||||
00C7CE 1 8D F7 C0 sta OutputFlags
|
||||
00C7D1 1 finishWrite:
|
||||
00C7D1 1 AD FB C0 lda InputFlags
|
||||
00C7D4 1 2A rol
|
||||
00C7D5 1 2A rol
|
||||
00C7D6 1 90 F9 bcc finishWrite
|
||||
00C7D8 1 A9 0F lda #$0f
|
||||
00C7DA 1 8D F7 C0 sta OutputFlags
|
||||
00C7DD 1 60 rts
|
||||
00C7DE 1
|
||||
00C7DE 1 GetByte:
|
||||
00C7DE 1 A9 0D lda #$0d ;set read flag low
|
||||
00C7E0 1 8D F7 C0 sta OutputFlags
|
||||
00C7E3 1 waitRead:
|
||||
00C7E3 1 AD FB C0 lda InputFlags
|
||||
00C7E6 1 2A rol
|
||||
00C7E7 1 B0 FA bcs waitRead
|
||||
00C7E9 1 AD FE C0 lda InputByte
|
||||
00C7EC 1 48 pha
|
||||
00C7ED 1 A9 0F lda #$0f ;set all flags high
|
||||
00C7EF 1 8D F7 C0 sta OutputFlags
|
||||
00C7F2 1 finishRead:
|
||||
00C7F2 1 AD FB C0 lda InputFlags
|
||||
00C7F5 1 2A rol
|
||||
00C7F6 1 90 FA bcc finishRead
|
||||
00C7F8 1 68 pla
|
||||
00C7F9 1 end:
|
||||
00C7F9 1 60 rts
|
||||
00C7FA 1
|
||||
00C7FA 1 00 00 .repeat 251-<end
|
||||
00C7FC 1 .byte 0
|
||||
00C7FC 1 .endrepeat
|
||||
00C7FC 1
|
||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||
00C7FE 1 17 .byte 23 ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
|
||||
00C7FF 1 14 .byte DriverEntry&$00FF ;low byte of entry
|
||||
00C800 1
|
||||
00C800 1
|
||||
|
|
@ -1,186 +0,0 @@
|
|||
ca65 V2.18 - Raspbian 2.19-1
|
||||
Main file : FileAccessFirmware.asm
|
||||
Current file: FileAccessFirmware.asm
|
||||
|
||||
000000r 1 ; Copyright Terence J. Boldt (c)2020-2022
|
||||
000000r 1 ; Use of this source code is governed by an MIT
|
||||
000000r 1 ; license that can be found in the LICENSE file.
|
||||
000000r 1
|
||||
000000r 1 ; This file contains the source for the firmware
|
||||
000000r 1 ; that was formerly used to copy files from RPi
|
||||
000000r 1 ; to Apple II RAM
|
||||
000000r 1
|
||||
000000r 1 ;ProDOS Zero Page
|
||||
000000r 1 Command = $42 ;ProDOS Command
|
||||
000000r 1 Unit = $43 ;ProDOS unit (SDDD0000)
|
||||
000000r 1 BufferLo = $44
|
||||
000000r 1 BufferHi = $45
|
||||
000000r 1 BlockLo = $46
|
||||
000000r 1 BlockHi = $47
|
||||
000000r 1
|
||||
000000r 1 ; ProDOS Error Codes
|
||||
000000r 1 IOError = $27
|
||||
000000r 1 NoDevice = $28
|
||||
000000r 1 WriteProtect = $2B
|
||||
000000r 1
|
||||
000000r 1 InputByte = $c08e+SLOT*$10
|
||||
000000r 1 OutputByte = $c08d+SLOT*$10
|
||||
000000r 1 InputFlags = $c08b+SLOT*$10
|
||||
000000r 1 OutputFlags = $c087+SLOT*$10
|
||||
000000r 1
|
||||
000000r 1 ReadBlockCommand = $01
|
||||
000000r 1 WriteBlockCommand = $02
|
||||
000000r 1 GetTimeCommand = $03
|
||||
000000r 1 ChangeDriveCommand = $04
|
||||
000000r 1 ExecCommand = $05
|
||||
000000r 1 LoadFileCommand = $06
|
||||
000000r 1 SaveFileCommand = $07
|
||||
000000r 1 MenuCommand = $08
|
||||
000000r 1
|
||||
000000r 1 InputString = $fd67
|
||||
000000r 1 Monitor = $ff59
|
||||
000000r 1
|
||||
000000r 1 .org SLOT*$100 + $C000
|
||||
00C700 1 ;ID bytes for booting and drive detection
|
||||
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
|
||||
00C702 1 E0 00 cpx #$00 ; Apple Autostart ROM
|
||||
00C704 1 E0 03 cpx #$03 ;
|
||||
00C706 1
|
||||
00C706 1 A2 70 ldx #SLOT*$10
|
||||
00C708 1 86 2B stx $2b
|
||||
00C70A 1 86 43 stx Unit
|
||||
00C70C 1
|
||||
00C70C 1 ;force EPROM to second page on boot
|
||||
00C70C 1 A9 3F lda #$3f ;set all flags high and page 3 of EPROM for menu
|
||||
00C70E 1 PageJump:
|
||||
00C70E 1 8D F7 C0 sta OutputFlags
|
||||
00C711 1 4C 19 C7 jmp Start ;this jump is only called if coming in from PageJump with A=$2f
|
||||
00C714 1
|
||||
00C714 1 ;entry points for ProDOS
|
||||
00C714 1 DriverEntry:
|
||||
00C714 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM
|
||||
00C716 1 8D F7 C0 sta OutputFlags
|
||||
00C719 1
|
||||
00C719 1 Start:
|
||||
00C719 1 A9 A4 lda #$a4
|
||||
00C71B 1 85 33 sta $33
|
||||
00C71D 1
|
||||
00C71D 1 GetFilename:
|
||||
00C71D 1 20 67 FD jsr InputString
|
||||
00C720 1
|
||||
00C720 1 LoadFile:
|
||||
00C720 1 A9 00 lda #$00
|
||||
00C722 1 85 44 sta BufferLo
|
||||
00C724 1 A9 20 lda #$20
|
||||
00C726 1 85 45 sta BufferHi
|
||||
00C728 1 A9 06 lda #$06 ; send command 6 = load
|
||||
00C72A 1 20 74 C7 jsr SendByte
|
||||
00C72D 1 A0 00 ldy #$00
|
||||
00C72F 1 sendFilename:
|
||||
00C72F 1 B9 00 02 lda $0200,y
|
||||
00C732 1 C9 8D cmp #$8d
|
||||
00C734 1 F0 08 beq sendNullTerminator
|
||||
00C736 1 29 7F and #$7f
|
||||
00C738 1 20 74 C7 jsr SendByte
|
||||
00C73B 1 C8 iny
|
||||
00C73C 1 D0 F1 bne sendFilename
|
||||
00C73E 1 sendNullTerminator:
|
||||
00C73E 1 A9 00 lda #$00
|
||||
00C740 1 20 74 C7 jsr SendByte
|
||||
00C743 1
|
||||
00C743 1 20 92 C7 jsr GetByte
|
||||
00C746 1 85 46 sta BlockLo ; not really a block, just using the memory space
|
||||
00C748 1 20 92 C7 jsr GetByte
|
||||
00C74B 1 85 47 sta BlockHi
|
||||
00C74D 1 NextPage:
|
||||
00C74D 1 A5 47 lda BlockHi
|
||||
00C74F 1 F0 10 beq ReadFinalPage
|
||||
00C751 1 A0 00 ldy #$00
|
||||
00C753 1 NextByte:
|
||||
00C753 1 20 92 C7 jsr GetByte
|
||||
00C756 1 91 44 sta (BufferLo),y
|
||||
00C758 1 C8 iny
|
||||
00C759 1 D0 F8 bne NextByte
|
||||
00C75B 1 E6 45 inc BufferHi
|
||||
00C75D 1 C6 47 dec BlockHi
|
||||
00C75F 1 D0 EC bne NextPage
|
||||
00C761 1 ReadFinalPage:
|
||||
00C761 1 A5 46 lda BlockLo
|
||||
00C763 1 F0 0C beq ExitToMonitor
|
||||
00C765 1 A0 00 ldy #$00
|
||||
00C767 1 NextByteFinal:
|
||||
00C767 1 20 92 C7 jsr GetByte
|
||||
00C76A 1 91 44 sta (BufferLo),y
|
||||
00C76C 1 C8 iny
|
||||
00C76D 1 C4 46 cpy BlockLo
|
||||
00C76F 1 D0 F6 bne NextByteFinal
|
||||
00C771 1 ExitToMonitor:
|
||||
00C771 1 20 59 FF jsr Monitor
|
||||
00C774 1
|
||||
00C774 1 SendByte:
|
||||
00C774 1 48 pha
|
||||
00C775 1 waitWrite:
|
||||
00C775 1 AD FB C0 lda InputFlags
|
||||
00C778 1 2A rol
|
||||
00C779 1 2A rol
|
||||
00C77A 1 B0 F9 bcs waitWrite
|
||||
00C77C 1 68 pla
|
||||
00C77D 1 8D FD C0 sta OutputByte
|
||||
00C780 1 A9 2E lda #$2e ; set bit 0 low to indicate write started
|
||||
00C782 1 8D F7 C0 sta OutputFlags
|
||||
00C785 1 finishWrite:
|
||||
00C785 1 AD FB C0 lda InputFlags
|
||||
00C788 1 2A rol
|
||||
00C789 1 2A rol
|
||||
00C78A 1 90 F9 bcc finishWrite
|
||||
00C78C 1 A9 2F lda #$2f
|
||||
00C78E 1 8D F7 C0 sta OutputFlags
|
||||
00C791 1 60 rts
|
||||
00C792 1
|
||||
00C792 1 GetByte:
|
||||
00C792 1 A9 2D lda #$2d ;set read flag low
|
||||
00C794 1 8D F7 C0 sta OutputFlags
|
||||
00C797 1 waitRead:
|
||||
00C797 1 AD FB C0 lda InputFlags
|
||||
00C79A 1 2A rol
|
||||
00C79B 1 B0 FA bcs waitRead
|
||||
00C79D 1 AD FE C0 lda InputByte
|
||||
00C7A0 1 48 pha
|
||||
00C7A1 1 A9 2F lda #$2f ;set all flags high
|
||||
00C7A3 1 8D F7 C0 sta OutputFlags
|
||||
00C7A6 1 finishRead:
|
||||
00C7A6 1 AD FB C0 lda InputFlags
|
||||
00C7A9 1 2A rol
|
||||
00C7AA 1 90 FA bcc finishRead
|
||||
00C7AC 1 68 pla
|
||||
00C7AD 1 end:
|
||||
00C7AD 1 60 rts
|
||||
00C7AE 1
|
||||
00C7AE 1 00 00 00 00 .repeat 251-<end
|
||||
00C7B2 1 00 00 00 00
|
||||
00C7B6 1 00 00 00 00
|
||||
00C7BA 1 00 00 00 00
|
||||
00C7BE 1 00 00 00 00
|
||||
00C7C2 1 00 00 00 00
|
||||
00C7C6 1 00 00 00 00
|
||||
00C7CA 1 00 00 00 00
|
||||
00C7CE 1 00 00 00 00
|
||||
00C7D2 1 00 00 00 00
|
||||
00C7D6 1 00 00 00 00
|
||||
00C7DA 1 00 00 00 00
|
||||
00C7DE 1 00 00 00 00
|
||||
00C7E2 1 00 00 00 00
|
||||
00C7E6 1 00 00 00 00
|
||||
00C7EA 1 00 00 00 00
|
||||
00C7EE 1 00 00 00 00
|
||||
00C7F2 1 00 00 00 00
|
||||
00C7F6 1 00 00 00 00
|
||||
00C7FA 1 00 00
|
||||
00C7FC 1 .byte 0
|
||||
00C7FC 1 .endrepeat
|
||||
00C7FC 1
|
||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||
00C7FE 1 07 .byte 7 ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
|
||||
00C7FF 1 14 .byte DriverEntry&$00FF ;low byte of entry
|
||||
00C800 1
|
||||
00C800 1
|
||||
|
|
@ -1,193 +0,0 @@
|
|||
ca65 V2.18 - Raspbian 2.19-1
|
||||
Main file : MenuFirmware.asm
|
||||
Current file: MenuFirmware.asm
|
||||
|
||||
000000r 1 ; Copyright Terence J. Boldt (c)2020-2022
|
||||
000000r 1 ; Use of this source code is governed by an MIT
|
||||
000000r 1 ; license that can be found in the LICENSE file.
|
||||
000000r 1
|
||||
000000r 1 ; This file contains the source for the firmware
|
||||
000000r 1 ; that displays the copyright message on boot
|
||||
000000r 1 ; and checks for the RPi status to be ready before
|
||||
000000r 1 ; attempting to boot
|
||||
000000r 1
|
||||
000000r 1 ;ProDOS Zero Page
|
||||
000000r 1 Command = $42 ;ProDOS Command
|
||||
000000r 1 Unit = $43 ;ProDOS unit (SDDD0000)
|
||||
000000r 1 BufferLo = $44
|
||||
000000r 1 BufferHi = $45
|
||||
000000r 1 BlockLo = $46
|
||||
000000r 1 BlockHi = $47
|
||||
000000r 1
|
||||
000000r 1 ; ProDOS Error Codes
|
||||
000000r 1 IOError = $27
|
||||
000000r 1 NoDevice = $28
|
||||
000000r 1 WriteProtect = $2B
|
||||
000000r 1
|
||||
000000r 1 InputByte = $c08e+SLOT*$10
|
||||
000000r 1 OutputByte = $c08d+SLOT*$10
|
||||
000000r 1 InputFlags = $c08b+SLOT*$10
|
||||
000000r 1 OutputFlags = $c087+SLOT*$10
|
||||
000000r 1
|
||||
000000r 1 ResetCommand = $00
|
||||
000000r 1 ReadBlockCommand = $01
|
||||
000000r 1 WriteBlockCommand = $02
|
||||
000000r 1 GetTimeCommand = $03
|
||||
000000r 1 ChangeDriveCommand = $04
|
||||
000000r 1 ExecCommand = $05
|
||||
000000r 1 LoadFileCommand = $06
|
||||
000000r 1 SaveFileCommand = $07
|
||||
000000r 1 MenuCommand = $08
|
||||
000000r 1
|
||||
000000r 1 Wait = $fca8
|
||||
000000r 1 PrintChar = $fded
|
||||
000000r 1 Home = $fc58
|
||||
000000r 1 ReadChar = $fd0c
|
||||
000000r 1 BasCalc = $fbc1
|
||||
000000r 1 htab = $24
|
||||
000000r 1 vtab = $25
|
||||
000000r 1 BasL = $28
|
||||
000000r 1 htab80 = $057b
|
||||
000000r 1
|
||||
000000r 1 .org SLOT*$100 + $C000
|
||||
00C700 1 ;ID bytes for booting and drive detection
|
||||
00C700 1 E0 20 cpx #$20 ;ID bytes for ProDOS and the
|
||||
00C702 1 E0 00 cpx #$00 ; Apple Autostart ROM
|
||||
00C704 1 E0 03 cpx #$03 ;
|
||||
00C706 1
|
||||
00C706 1 A2 70 ldx #SLOT*$10
|
||||
00C708 1 86 2B stx $2b
|
||||
00C70A 1 86 43 stx Unit
|
||||
00C70C 1
|
||||
00C70C 1 ;force EPROM to second page on boot
|
||||
00C70C 1 A9 3F lda #$3f ;set all flags high and page 1 of EPROMi
|
||||
00C70E 1 PageJump:
|
||||
00C70E 1 8D F7 C0 sta OutputFlags
|
||||
00C711 1 4C 19 C7 jmp Start
|
||||
00C714 1
|
||||
00C714 1 ;entry points for ProDOS
|
||||
00C714 1 DriverEntry:
|
||||
00C714 1 A9 0F lda #$0f ;set all flags high and page 0 of EPROM
|
||||
00C716 1 8D F7 C0 sta OutputFlags
|
||||
00C719 1 ;since the firmware page changes to 0, this falls through to the driver
|
||||
00C719 1
|
||||
00C719 1 Start:
|
||||
00C719 1 A9 F0 lda #$f0 ;restore COUT after PR# called
|
||||
00C71B 1 85 36 sta $36
|
||||
00C71D 1 A9 FD lda #$fd
|
||||
00C71F 1 85 37 sta $37
|
||||
00C721 1 ;jsr Home ;clear screen and show menu options
|
||||
00C721 1 A9 10 lda #$10
|
||||
00C723 1 85 25 sta vtab
|
||||
00C725 1 20 C1 FB jsr BasCalc
|
||||
00C728 1 A0 00 ldy #$00
|
||||
00C72A 1 PrintString:
|
||||
00C72A 1 B9 B4 C7 lda Text,y
|
||||
00C72D 1 F0 08 beq WaitForRPi
|
||||
00C72F 1 09 80 ora #$80
|
||||
00C731 1 20 ED FD jsr PrintChar
|
||||
00C734 1 C8 iny
|
||||
00C735 1 D0 F3 bne PrintString
|
||||
00C737 1
|
||||
00C737 1 WaitForRPi:
|
||||
00C737 1 AD FB C0 lda InputFlags
|
||||
00C73A 1 2A rol
|
||||
00C73B 1 B0 0D bcs Reset
|
||||
00C73D 1 A9 FF lda #$ff
|
||||
00C73F 1 20 A8 FC jsr Wait
|
||||
00C742 1 A9 AE lda #'.'+$80
|
||||
00C744 1 20 ED FD jsr PrintChar
|
||||
00C747 1 4C 37 C7 jmp WaitForRPi
|
||||
00C74A 1
|
||||
00C74A 1 Reset:
|
||||
00C74A 1 A9 DF lda #'_'|$80
|
||||
00C74C 1 20 ED FD jsr PrintChar
|
||||
00C74F 1 A9 00 lda #ResetCommand
|
||||
00C751 1 20 7A C7 jsr SendByte
|
||||
00C754 1 A9 88 lda #$88
|
||||
00C756 1 20 ED FD jsr PrintChar
|
||||
00C759 1 A9 AE lda #'.'|$80
|
||||
00C75B 1 20 ED FD jsr PrintChar
|
||||
00C75E 1 20 98 C7 jsr GetByte
|
||||
00C761 1 F0 03 beq Ok
|
||||
00C763 1 4C 4A C7 jmp Reset
|
||||
00C766 1
|
||||
00C766 1 Ok:
|
||||
00C766 1 A9 8D lda #$8D
|
||||
00C768 1 20 ED FD jsr PrintChar
|
||||
00C76B 1 A9 CF lda #'O'|$80
|
||||
00C76D 1 20 ED FD jsr PrintChar
|
||||
00C770 1 A9 CB lda #'K'|$80
|
||||
00C772 1 20 ED FD jsr PrintChar
|
||||
00C775 1
|
||||
00C775 1 Boot:
|
||||
00C775 1 A9 0F lda #$0f
|
||||
00C777 1 4C 0E C7 jmp PageJump
|
||||
00C77A 1
|
||||
00C77A 1 SendByte:
|
||||
00C77A 1 48 pha
|
||||
00C77B 1 waitWrite:
|
||||
00C77B 1 AD FB C0 lda InputFlags
|
||||
00C77E 1 2A rol
|
||||
00C77F 1 2A rol
|
||||
00C780 1 B0 F9 bcs waitWrite
|
||||
00C782 1 68 pla
|
||||
00C783 1 8D FD C0 sta OutputByte
|
||||
00C786 1 A9 3E lda #$3e ; set bit 0 low to indicate write started
|
||||
00C788 1 8D F7 C0 sta OutputFlags
|
||||
00C78B 1 finishWrite:
|
||||
00C78B 1 AD FB C0 lda InputFlags
|
||||
00C78E 1 2A rol
|
||||
00C78F 1 2A rol
|
||||
00C790 1 90 F9 bcc finishWrite
|
||||
00C792 1 A9 3F lda #$3f
|
||||
00C794 1 8D F7 C0 sta OutputFlags
|
||||
00C797 1 60 rts
|
||||
00C798 1
|
||||
00C798 1 GetByte:
|
||||
00C798 1 A9 3D lda #$3d ;set read flag low
|
||||
00C79A 1 8D F7 C0 sta OutputFlags
|
||||
00C79D 1 waitRead:
|
||||
00C79D 1 AD FB C0 lda InputFlags
|
||||
00C7A0 1 2A rol
|
||||
00C7A1 1 B0 FA bcs waitRead
|
||||
00C7A3 1 AD FE C0 lda InputByte
|
||||
00C7A6 1 48 pha
|
||||
00C7A7 1 A9 3F lda #$3f ;set all flags high
|
||||
00C7A9 1 8D F7 C0 sta OutputFlags
|
||||
00C7AC 1 finishRead:
|
||||
00C7AC 1 AD FB C0 lda InputFlags
|
||||
00C7AF 1 2A rol
|
||||
00C7B0 1 90 FA bcc finishRead
|
||||
00C7B2 1 68 pla
|
||||
00C7B3 1 end:
|
||||
00C7B3 1 60 rts
|
||||
00C7B4 1
|
||||
00C7B4 1 ; NOTE: The text below exactly fills the remaining 256 bytes of firmware
|
||||
00C7B4 1 Text:
|
||||
00C7B4 1 41 70 70 6C .byte "Apple2-IO-RPi",$8d
|
||||
00C7B8 1 65 32 2D 49
|
||||
00C7BC 1 4F 2D 52 50
|
||||
00C7C0 1 69 8D
|
||||
00C7C2 1 28 63 29 32 .byte "(c)2020-2022 Terence J. Boldt",$8d
|
||||
00C7C6 1 30 32 30 2D
|
||||
00C7CA 1 32 30 32 32
|
||||
00C7CE 1 20 54 65 72
|
||||
00C7D2 1 65 6E 63 65
|
||||
00C7D6 1 20 4A 2E 20
|
||||
00C7DA 1 42 6F 6C 64
|
||||
00C7DE 1 74 8D
|
||||
00C7E0 1 8D .byte $8d
|
||||
00C7E1 1 57 61 69 74 .byte "Waiting for RPi FW:000F...",$00
|
||||
00C7E5 1 69 6E 67 20
|
||||
00C7E9 1 66 6F 72 20
|
||||
00C7ED 1 52 50 69 20
|
||||
00C7F1 1 46 57 3A 30
|
||||
00C7F5 1 30 30 46 2E
|
||||
00C7F9 1 2E 2E 00
|
||||
00C7FC 1
|
||||
00C7FC 1 00 00 .byte 0,0 ;0000 blocks = check status
|
||||
00C7FE 1 07 .byte 7 ;bit set(0=status 1=read 2=write) unset(3=format, 4/5=number of volumes, 6=interruptable, 7=removable)
|
||||
00C7FF 1 14 .byte DriverEntry&$00FF ;low byte of entry
|
||||
00C800 1
|
||||
00C800 1
|
||||
Binary file not shown.
|
|
@ -1,274 +0,0 @@
|
|||
ca65 V2.18 - Raspbian 2.19-1
|
||||
Main file : RPi.Command.asm
|
||||
Current file: RPi.Command.asm
|
||||
|
||||
000000r 1 ; Copyright Terence J. Boldt (c)2021-2022
|
||||
000000r 1 ; Use of this source code is governed by an MIT
|
||||
000000r 1 ; license that can be found in the LICENSE file.
|
||||
000000r 1
|
||||
000000r 1 ; This file contains the source for the RPI.COMMAND
|
||||
000000r 1 ; application that runs on the Apple II and extends
|
||||
000000r 1 ; ProDOS BASIC.SYSTEM to add the RPI command which
|
||||
000000r 1 ; allows commands to be executed on the Raspberry Pi
|
||||
000000r 1
|
||||
000000r 1 .ORG $300
|
||||
000300 1 INBUF = $200 ;GETLN input buffer.
|
||||
000300 1 WAIT = $FCA8 ;Monitor wait routine.
|
||||
000300 1 BELL = $FF3A ;Monitor bell routine.
|
||||
000300 1 EXTRNCMD = $BE06 ;External cmd JMP vector.
|
||||
000300 1 XTRNADDR = $BE50 ;Ext cmd implementation addr.
|
||||
000300 1 XLEN = $BE52 ;length of command string-1.
|
||||
000300 1 XCNUM = $BE53 ;CI cmd no. (ext cmd - 0).
|
||||
000300 1 PBITS = $BE54 ;Command parameter bits.
|
||||
000300 1 XRETURN = $FF58 ;Known RTS instruction.
|
||||
000300 1 InputByte = $c08e
|
||||
000300 1 OutputByte = $c08d
|
||||
000300 1 InputFlags = $c08b
|
||||
000300 1 OutputFlags = $c087
|
||||
000300 1
|
||||
000300 1 ReadBlockCommand = $01
|
||||
000300 1 WriteBlockCommand = $02
|
||||
000300 1 GetTimeCommand = $03
|
||||
000300 1 ChangeDriveCommand = $04
|
||||
000300 1 ExecCommand = $05
|
||||
000300 1 LoadFileCommand = $06
|
||||
000300 1 SaveFileCommand = $07
|
||||
000300 1 MenuCommand = $08
|
||||
000300 1
|
||||
000300 1 InputString = $fd67
|
||||
000300 1 PrintChar = $fded
|
||||
000300 1 Keyboard = $c000
|
||||
000300 1 ClearKeyboard = $c010
|
||||
000300 1 Wait = $fca8
|
||||
000300 1
|
||||
000300 1 LastChar = $06
|
||||
000300 1 SlotL = $fe
|
||||
000300 1 SlotH = $ff
|
||||
000300 1 ESC = $9b
|
||||
000300 1
|
||||
000300 1 ;macro for string with high-bit set
|
||||
000300 1 .macro aschi str
|
||||
000300 1 .repeat .strlen (str), c
|
||||
000300 1 .byte .strat (str, c) | $80
|
||||
000300 1 .endrep
|
||||
000300 1 .endmacro
|
||||
000300 1
|
||||
000300 1 .org $2000
|
||||
002000 1 A2 07 ldx #$07 ; start at slot 7
|
||||
002002 1 DetectSlot:
|
||||
002002 1 A0 00 ldy #$00
|
||||
002004 1 A9 FC lda #$fc
|
||||
002006 1 85 FE sta SlotL
|
||||
002008 1 8A txa
|
||||
002009 1 09 C0 ora #$c0
|
||||
00200B 1 85 FF sta SlotH
|
||||
00200D 1 B1 FE lda (SlotL),y
|
||||
00200F 1 D0 1C bne nextSlot
|
||||
002011 1 C8 iny
|
||||
002012 1 B1 FE lda (SlotL),y
|
||||
002014 1 D0 17 bne nextSlot
|
||||
002016 1 C8 iny
|
||||
002017 1 B1 FE lda (SlotL),y
|
||||
002019 1 C9 17 cmp #$17
|
||||
00201B 1 D0 10 bne nextSlot
|
||||
00201D 1 C8 iny
|
||||
00201E 1 B1 FE lda (SlotL),y
|
||||
002020 1 C9 14 cmp #$14
|
||||
002022 1 D0 09 bne nextSlot
|
||||
002024 1 8A txa
|
||||
002025 1 0A asl
|
||||
002026 1 0A asl
|
||||
002027 1 0A asl
|
||||
002028 1 0A asl
|
||||
002029 1 AA tax
|
||||
00202A 1 18 clc
|
||||
00202B 1 90 04 bcc Start
|
||||
00202D 1 nextSlot:
|
||||
00202D 1 CA dex
|
||||
00202E 1 D0 D2 bne DetectSlot
|
||||
002030 1 60 rts
|
||||
002031 1 Start:
|
||||
002031 1 8E 31 21 stx slotx + $1e01 ;set the slot for the driver
|
||||
002034 1 A0 00 ldy #$00
|
||||
002036 1 PrintString:
|
||||
002036 1 B9 93 20 lda Text,y
|
||||
002039 1 F0 08 beq copyDriver
|
||||
00203B 1 09 80 ora #$80
|
||||
00203D 1 20 ED FD jsr PrintChar
|
||||
002040 1 C8 iny
|
||||
002041 1 D0 F3 bne PrintString
|
||||
002043 1 copyDriver:
|
||||
002043 1 A0 00 ldy #$00
|
||||
002045 1 copyDriverByte:
|
||||
002045 1 B9 00 21 lda $2100,y
|
||||
002048 1 99 00 03 sta $0300,y
|
||||
00204B 1 C8 iny
|
||||
00204C 1 C0 E6 cpy #$e6
|
||||
00204E 1 D0 F5 bne copyDriverByte
|
||||
002050 1 ;
|
||||
002050 1 ; FIRST SAVE THE EXTERNAL COMMAND ADDRESS SO YOU WON'T
|
||||
002050 1 ; DISCONNECT ANY PREVIOUSLY CONNECTED COMMAND.
|
||||
002050 1 ;
|
||||
002050 1 AD 07 BE LDA EXTRNCMD+1
|
||||
002053 1 8D AD 03 STA NXTCMD
|
||||
002056 1 AD 08 BE LDA EXTRNCMD+2
|
||||
002059 1 8D AE 03 STA NXTCMD+1
|
||||
00205C 1 ;
|
||||
00205C 1 A9 00 LDA #<RPI ;Install the address of our
|
||||
00205E 1 8D 07 BE STA EXTRNCMD+1 ; command handler in the
|
||||
002061 1 A9 03 LDA #>RPI ; external command JMP
|
||||
002063 1 8D 08 BE STA EXTRNCMD+2 ; vector.
|
||||
002066 1
|
||||
002066 1 A9 05 lda #ExecCommand
|
||||
002068 1 20 6F 03 jsr SendByte
|
||||
00206B 1 A0 00 ldy #$00
|
||||
00206D 1 nextCommandByte:
|
||||
00206D 1 B9 8C 20 lda a2help, y
|
||||
002070 1 F0 07 beq finishCommand
|
||||
002072 1 20 6F 03 jsr SendByte
|
||||
002075 1 C8 iny
|
||||
002076 1 4C 6D 20 jmp nextCommandByte
|
||||
002079 1 finishCommand:
|
||||
002079 1 A9 00 lda #$00
|
||||
00207B 1 20 6F 03 jsr SendByte
|
||||
00207E 1 showVersion:
|
||||
00207E 1 20 8D 03 jsr GetByte
|
||||
002081 1 C9 00 cmp #$00
|
||||
002083 1 F0 06 beq FinishDriver
|
||||
002085 1 20 ED FD jsr PrintChar
|
||||
002088 1 4C 7E 20 jmp showVersion
|
||||
00208B 1 FinishDriver:
|
||||
00208B 1 60 rts
|
||||
00208C 1
|
||||
00208C 1 a2help:
|
||||
00208C 1 61 32 68 65 .byte "a2help", $00
|
||||
002090 1 6C 70 00
|
||||
002093 1
|
||||
002093 1 Text:
|
||||
002093 1 D2 D0 C9 A0 aschi "RPI command version: 000E"
|
||||
002097 1 E3 EF ED ED
|
||||
00209B 1 E1 EE E4 A0
|
||||
0020AC 1 8D .byte $8d
|
||||
0020AD 1 end:
|
||||
0020AD 1 00 .byte $00
|
||||
0020AE 1
|
||||
0020AE 1 00 00 00 00 .repeat 255-<end
|
||||
0020B2 1 00 00 00 00
|
||||
0020B6 1 00 00 00 00
|
||||
002100 1 .byte 0
|
||||
002100 1 .endrepeat
|
||||
002100 1
|
||||
002100 1 .org $0300
|
||||
000300 1 A2 00 RPI: LDX #0 ;Check for our command.
|
||||
000302 1 BD 00 02 NXTCHR: LDA INBUF,X ;Get first character.
|
||||
000305 1 09 20 ora #$20 ;Make it lower case
|
||||
000307 1 DD AA 03 CMP CMD,X ;Does it match?
|
||||
00030A 1 D0 29 BNE NOTOURS ;No, back to CI.
|
||||
00030C 1 E8 INX ;Next character
|
||||
00030D 1 E0 03 CPX #CMDLEN ;All characters yet?
|
||||
00030F 1 D0 F1 BNE NXTCHR ;No, read next one.
|
||||
000311 1 ;
|
||||
000311 1 A9 02 LDA #CMDLEN-1 ;Our cmd! Put cmd length-1
|
||||
000313 1 ;lda #$8d
|
||||
000313 1 ;sta $02ff
|
||||
000313 1 ;lda #$fe
|
||||
000313 1 8D 52 BE STA XLEN ; in CI global XLEN.
|
||||
000316 1 A9 58 LDA #<XRETURN ;Point XTRNADDR to a known
|
||||
000318 1 8D 50 BE STA XTRNADDR ; RTS since we'll handle
|
||||
00031B 1 A9 FF LDA #>XRETURN ; at the time we intercept
|
||||
00031D 1
|
||||
00031D 1 8D 51 BE STA XTRNADDR+1 ; our command.
|
||||
000320 1 A9 00 LDA #0 ;Mark the cmd number as
|
||||
000322 1 8D 53 BE STA XCNUM ; zero (external).
|
||||
000325 1 8D 54 BE STA PBITS ;And indicate no parameters
|
||||
000328 1 8D 55 BE STA PBITS+1 ; to be parsed.
|
||||
00032B 1 A9 8D lda #$8d
|
||||
00032D 1 20 ED FD jsr $fded
|
||||
000330 1 A2 70 slotx: ldx #$70 ; set x to slot # in high nibble
|
||||
000332 1 18 clc
|
||||
000333 1 90 04 bcc SendCommand
|
||||
000335 1 ;
|
||||
000335 1 38 NOTOURS: SEC ; ALWAYS SET CARRY IF NOT YOUR
|
||||
000336 1 6C AD 03 JMP (NXTCMD) ; CMD AND LET NEXT COMMAND TRY
|
||||
000339 1 ; ; TO CLAIM IT.
|
||||
000339 1
|
||||
000339 1 SendCommand:
|
||||
000339 1 2C 10 C0 bit ClearKeyboard
|
||||
00033C 1 A9 05 lda #$05 ;send command 5 = exec
|
||||
00033E 1 20 6F 03 jsr SendByte
|
||||
000341 1 A0 03 ldy #$03 ;skip over "RPI"
|
||||
000343 1 getInput:
|
||||
000343 1 B9 00 02 lda $0200,y
|
||||
000346 1 C9 8D cmp #$8d
|
||||
000348 1 F0 08 beq sendNullTerminator
|
||||
00034A 1 29 7F and #$7f
|
||||
00034C 1 20 6F 03 jsr SendByte
|
||||
00034F 1 C8 iny
|
||||
000350 1 D0 F1 bne getInput
|
||||
000352 1 sendNullTerminator:
|
||||
000352 1 A9 00 lda #$00
|
||||
000354 1 20 6F 03 jsr SendByte
|
||||
000357 1 DumpOutput:
|
||||
000357 1 20 8D 03 jsr GetByte
|
||||
00035A 1 C9 00 cmp #$00
|
||||
00035C 1 F0 06 beq endOutput
|
||||
00035E 1 20 ED FD jsr PrintChar
|
||||
000361 1 18 clc
|
||||
000362 1 90 F3 bcc DumpOutput
|
||||
000364 1 endOutput:
|
||||
000364 1 18 clc
|
||||
000365 1 6C AD 03 jmp (NXTCMD)
|
||||
000368 1
|
||||
000368 1 HelpCommand:
|
||||
000368 1 61 32 68 65 .byte "a2help",$00
|
||||
00036C 1 6C 70 00
|
||||
00036F 1
|
||||
00036F 1 SendByte:
|
||||
00036F 1 48 pha
|
||||
000370 1 waitWrite:
|
||||
000370 1 BD 8B C0 lda InputFlags,x
|
||||
000373 1 2A rol
|
||||
000374 1 2A rol
|
||||
000375 1 B0 F9 bcs waitWrite
|
||||
000377 1 68 pla
|
||||
000378 1 9D 8D C0 sta OutputByte,x
|
||||
00037B 1 A9 1E lda #$1e ; set bit 0 low to indicate write started
|
||||
00037D 1 9D 87 C0 sta OutputFlags,x
|
||||
000380 1 finishWrite:
|
||||
000380 1 BD 8B C0 lda InputFlags,x
|
||||
000383 1 2A rol
|
||||
000384 1 2A rol
|
||||
000385 1 90 F9 bcc finishWrite
|
||||
000387 1 A9 1F lda #$1f
|
||||
000389 1 9D 87 C0 sta OutputFlags,x
|
||||
00038C 1 60 rts
|
||||
00038D 1
|
||||
00038D 1 GetByte:
|
||||
00038D 1 A9 1D lda #$1d ;set read flag low
|
||||
00038F 1 9D 87 C0 sta OutputFlags,x
|
||||
000392 1 waitRead:
|
||||
000392 1 BD 8B C0 lda InputFlags,x
|
||||
000395 1 2A rol
|
||||
000396 1 B0 FA bcs waitRead
|
||||
000398 1 readByte:
|
||||
000398 1 BD 8E C0 lda InputByte,x
|
||||
00039B 1 48 pha
|
||||
00039C 1 A9 1F lda #$1f ;set all flags high
|
||||
00039E 1 9D 87 C0 sta OutputFlags,x
|
||||
0003A1 1 finishRead:
|
||||
0003A1 1 BD 8B C0 lda InputFlags,x
|
||||
0003A4 1 2A rol
|
||||
0003A5 1 90 FA bcc finishRead
|
||||
0003A7 1 68 pla
|
||||
0003A8 1 18 clc ;success
|
||||
0003A9 1 60 rts
|
||||
0003AA 1
|
||||
0003AA 1
|
||||
0003AA 1 F2 F0 E9 CMD: aschi "rpi"
|
||||
0003AD 1 CMDLEN = 3 ;Our command length
|
||||
0003AD 1 ;
|
||||
0003AD 1 00 00 NXTCMD: .byte 0,0 ; STORE THE NEXT EXT CMD'S
|
||||
0003AF 1 ; ADDRESS HERE.
|
||||
0003AF 1
|
||||
0003AF 1
|
||||
0003AF 1
|
||||
BIN
Apple2/Shell.bin
BIN
Apple2/Shell.bin
Binary file not shown.
295
Apple2/Shell.lst
295
Apple2/Shell.lst
|
|
@ -1,295 +0,0 @@
|
|||
ca65 V2.18 - Raspbian 2.19-1
|
||||
Main file : Shell.asm
|
||||
Current file: Shell.asm
|
||||
|
||||
000000r 1 ; Copyright Terence J. Boldt (c)2021-2022
|
||||
000000r 1 ; Use of this source code is governed by an MIT
|
||||
000000r 1 ; license that can be found in the LICENSE file.
|
||||
000000r 1
|
||||
000000r 1 ; This file contains the source for the SHELL
|
||||
000000r 1 ; application that runs on the Apple II to talk
|
||||
000000r 1 ; to the Raspberry Pi
|
||||
000000r 1
|
||||
000000r 1 ;ProDOS Zero Page
|
||||
000000r 1 Command = $42 ;ProDOS Command
|
||||
000000r 1 Unit = $43 ;ProDOS unit (SDDD0000)
|
||||
000000r 1 BufferLo = $44
|
||||
000000r 1 BufferHi = $45
|
||||
000000r 1 BlockLo = $46
|
||||
000000r 1 BlockHi = $47
|
||||
000000r 1
|
||||
000000r 1 ; ProDOS Error Codes
|
||||
000000r 1 IOError = $27
|
||||
000000r 1 NoDevice = $28
|
||||
000000r 1 WriteProtect = $2B
|
||||
000000r 1
|
||||
000000r 1 InputByte = $c08e
|
||||
000000r 1 OutputByte = $c08d
|
||||
000000r 1 InputFlags = $c08b
|
||||
000000r 1 OutputFlags = $c087
|
||||
000000r 1
|
||||
000000r 1 ResetCommand = $00
|
||||
000000r 1 ReadBlockCommand = $01
|
||||
000000r 1 WriteBlockCommand = $02
|
||||
000000r 1 GetTimeCommand = $03
|
||||
000000r 1 ChangeDriveCommand = $04
|
||||
000000r 1 ExecCommand = $05
|
||||
000000r 1 LoadFileCommand = $06
|
||||
000000r 1 SaveFileCommand = $07
|
||||
000000r 1 MenuCommand = $08
|
||||
000000r 1 ShellCommand = $09
|
||||
000000r 1
|
||||
000000r 1 InputString = $fd6a
|
||||
000000r 1 StringBuffer = $0200
|
||||
000000r 1 PrintChar = $fded
|
||||
000000r 1 Keyboard = $c000
|
||||
000000r 1 ClearKeyboard = $c010
|
||||
000000r 1 Home = $fc58
|
||||
000000r 1 Wait = $fca8
|
||||
000000r 1 PromptChar = $33
|
||||
000000r 1 Read80Col = $c01f
|
||||
000000r 1 TextPage1 = $c054
|
||||
000000r 1 TextPage2 = $c055
|
||||
000000r 1
|
||||
000000r 1 htab = $24
|
||||
000000r 1 vtab = $25
|
||||
000000r 1 BasL = $28
|
||||
000000r 1 htab80 = $057b
|
||||
000000r 1 BasCalc = $fbc1
|
||||
000000r 1
|
||||
000000r 1 LastChar = $06
|
||||
000000r 1 SlotL = $fe
|
||||
000000r 1 SlotH = $ff
|
||||
000000r 1 ESC = $9b
|
||||
000000r 1
|
||||
000000r 1 .org $2000
|
||||
002000 1 A2 07 ldx #$07 ; start at slot 7
|
||||
002002 1 DetectSlot:
|
||||
002002 1 A0 00 ldy #$00
|
||||
002004 1 A9 FC lda #$fc
|
||||
002006 1 85 FE sta SlotL
|
||||
002008 1 8A txa
|
||||
002009 1 09 C0 ora #$c0
|
||||
00200B 1 85 FF sta SlotH
|
||||
00200D 1 B1 FE lda (SlotL),y
|
||||
00200F 1 D0 1C bne nextSlot
|
||||
002011 1 C8 iny
|
||||
002012 1 B1 FE lda (SlotL),y
|
||||
002014 1 D0 17 bne nextSlot
|
||||
002016 1 C8 iny
|
||||
002017 1 B1 FE lda (SlotL),y
|
||||
002019 1 C9 17 cmp #$17
|
||||
00201B 1 D0 10 bne nextSlot
|
||||
00201D 1 C8 iny
|
||||
00201E 1 B1 FE lda (SlotL),y
|
||||
002020 1 C9 14 cmp #$14
|
||||
002022 1 D0 09 bne nextSlot
|
||||
002024 1 8A txa
|
||||
002025 1 0A asl
|
||||
002026 1 0A asl
|
||||
002027 1 0A asl
|
||||
002028 1 0A asl
|
||||
002029 1 AA tax
|
||||
00202A 1 18 clc
|
||||
00202B 1 90 04 bcc Init
|
||||
00202D 1 nextSlot:
|
||||
00202D 1 CA dex
|
||||
00202E 1 D0 D2 bne DetectSlot
|
||||
002030 1 60 rts
|
||||
002031 1
|
||||
002031 1 Init:
|
||||
002031 1 A9 8D lda #$8d
|
||||
002033 1 20 00 C3 jsr $c300 ; force 80 columns
|
||||
002036 1
|
||||
002036 1 A0 00 ldy #$00
|
||||
002038 1 PrintString:
|
||||
002038 1 B9 76 21 lda Text,y
|
||||
00203B 1 F0 08 beq Start
|
||||
00203D 1 09 80 ora #$80
|
||||
00203F 1 20 ED FD jsr PrintChar
|
||||
002042 1 C8 iny
|
||||
002043 1 D0 F3 bne PrintString
|
||||
002045 1
|
||||
002045 1 Start:
|
||||
002045 1 A5 06 lda LastChar
|
||||
002047 1 48 pha
|
||||
002048 1 2C 10 C0 bit ClearKeyboard
|
||||
00204B 1 A9 00 lda #ResetCommand
|
||||
00204D 1 20 D1 20 jsr SendByte
|
||||
002050 1 A9 09 lda #ShellCommand
|
||||
002052 1 20 D1 20 jsr SendByte
|
||||
002055 1 20 61 20 jsr DumpOutput
|
||||
002058 1 A9 00 lda #ResetCommand
|
||||
00205A 1 20 D1 20 jsr SendByte
|
||||
00205D 1 68 pla
|
||||
00205E 1 85 06 sta LastChar
|
||||
002060 1 60 rts
|
||||
002061 1
|
||||
002061 1 DumpOutput:
|
||||
002061 1 20 EF 20 jsr GetByte
|
||||
002064 1 C9 00 cmp #$00
|
||||
002066 1 F0 26 beq endOutput
|
||||
002068 1 48 pha
|
||||
002069 1 20 61 21 jsr ClearCursor
|
||||
00206C 1 68 pla
|
||||
00206D 1 C9 48 cmp #'H'
|
||||
00206F 1 F0 27 beq setColumn
|
||||
002071 1 C9 56 cmp #'V'
|
||||
002073 1 F0 31 beq setRow
|
||||
002075 1 C9 43 cmp #'C'
|
||||
002077 1 F0 16 beq clearScreen
|
||||
002079 1 C9 54 cmp #'T'
|
||||
00207B 1 F0 37 beq setTop
|
||||
00207D 1 C9 42 cmp #'B'
|
||||
00207F 1 F0 3B beq setBottom
|
||||
002081 1 C9 55 cmp #'U'
|
||||
002083 1 F0 3F beq moveUp
|
||||
002085 1 20 ED FD jsr PrintChar
|
||||
002088 1 20 30 21 jsr SetCursor
|
||||
00208B 1 4C 61 20 jmp DumpOutput
|
||||
00208E 1 endOutput:
|
||||
00208E 1 60 rts
|
||||
00208F 1 clearScreen:
|
||||
00208F 1 20 58 FC jsr Home
|
||||
002092 1 20 30 21 jsr SetCursor
|
||||
002095 1 4C 61 20 jmp DumpOutput
|
||||
002098 1 setColumn:
|
||||
002098 1 20 EF 20 jsr GetByte
|
||||
00209B 1 85 24 sta htab
|
||||
00209D 1 8D 7B 05 sta htab80
|
||||
0020A0 1 20 30 21 jsr SetCursor
|
||||
0020A3 1 4C 61 20 jmp DumpOutput
|
||||
0020A6 1 setRow:
|
||||
0020A6 1 20 EF 20 jsr GetByte
|
||||
0020A9 1 85 25 sta vtab
|
||||
0020AB 1 20 C1 FB jsr BasCalc
|
||||
0020AE 1 20 30 21 jsr SetCursor
|
||||
0020B1 1 4C 61 20 jmp DumpOutput
|
||||
0020B4 1 setTop:
|
||||
0020B4 1 20 EF 20 jsr GetByte
|
||||
0020B7 1 85 22 sta $22
|
||||
0020B9 1 4C 61 20 jmp DumpOutput
|
||||
0020BC 1 setBottom:
|
||||
0020BC 1 20 EF 20 jsr GetByte
|
||||
0020BF 1 85 23 sta $23
|
||||
0020C1 1 4C 61 20 jmp DumpOutput
|
||||
0020C4 1 moveUp:
|
||||
0020C4 1 C6 25 dec vtab
|
||||
0020C6 1 A5 25 lda vtab
|
||||
0020C8 1 20 C1 FB jsr BasCalc
|
||||
0020CB 1 20 30 21 jsr SetCursor
|
||||
0020CE 1 4C 61 20 jmp DumpOutput
|
||||
0020D1 1
|
||||
0020D1 1 SendByte:
|
||||
0020D1 1 48 pha
|
||||
0020D2 1 waitWrite:
|
||||
0020D2 1 BD 8B C0 lda InputFlags,x
|
||||
0020D5 1 2A rol
|
||||
0020D6 1 2A rol
|
||||
0020D7 1 B0 F9 bcs waitWrite
|
||||
0020D9 1 68 pla
|
||||
0020DA 1 9D 8D C0 sta OutputByte,x
|
||||
0020DD 1 A9 1E lda #$1e ; set bit 0 low to indicate write started
|
||||
0020DF 1 9D 87 C0 sta OutputFlags,x
|
||||
0020E2 1 finishWrite:
|
||||
0020E2 1 BD 8B C0 lda InputFlags,x
|
||||
0020E5 1 2A rol
|
||||
0020E6 1 2A rol
|
||||
0020E7 1 90 F9 bcc finishWrite
|
||||
0020E9 1 A9 1F lda #$1f
|
||||
0020EB 1 9D 87 C0 sta OutputFlags,x
|
||||
0020EE 1 60 rts
|
||||
0020EF 1
|
||||
0020EF 1 GetByte:
|
||||
0020EF 1 A9 1D lda #$1d ;set read flag low
|
||||
0020F1 1 9D 87 C0 sta OutputFlags,x
|
||||
0020F4 1 waitRead:
|
||||
0020F4 1 BD 8B C0 lda InputFlags,x
|
||||
0020F7 1 2A rol
|
||||
0020F8 1 90 24 bcc readByte
|
||||
0020FA 1 2C 00 C0 bit Keyboard ;keypress will abort waiting to read
|
||||
0020FD 1 10 F5 bpl waitRead
|
||||
0020FF 1 keyPressed:
|
||||
0020FF 1 AD 00 C0 lda Keyboard ;send keypress to RPi
|
||||
002102 1 29 7F and #$7f
|
||||
002104 1 9D 8D C0 sta OutputByte,x
|
||||
002107 1 2C 10 C0 bit ClearKeyboard
|
||||
00210A 1 A9 1C lda #$1c ;set write flag low too
|
||||
00210C 1 9D 87 C0 sta OutputFlags,x
|
||||
00210F 1 finishKeyPress:
|
||||
00210F 1 BD 8B C0 lda InputFlags,x
|
||||
002112 1 2A rol
|
||||
002113 1 2A rol
|
||||
002114 1 90 F9 bcc finishKeyPress
|
||||
002116 1 A9 1D lda #$1d ;set flags back for reading
|
||||
002118 1 9D 87 C0 sta OutputFlags,x
|
||||
00211B 1 4C F4 20 jmp waitRead
|
||||
00211E 1 readByte:
|
||||
00211E 1 BD 8E C0 lda InputByte,x
|
||||
002121 1 48 pha
|
||||
002122 1 A9 1F lda #$1f ;set all flags high
|
||||
002124 1 9D 87 C0 sta OutputFlags,x
|
||||
002127 1 finishRead:
|
||||
002127 1 BD 8B C0 lda InputFlags,x
|
||||
00212A 1 2A rol
|
||||
00212B 1 90 FA bcc finishRead
|
||||
00212D 1 68 pla
|
||||
00212E 1 18 clc ;success
|
||||
00212F 1 end:
|
||||
00212F 1 60 rts
|
||||
002130 1
|
||||
002130 1 SetCursor:
|
||||
002130 1 AD 7B 05 lda htab80 ;get horizontal location / 2
|
||||
002133 1 4A lsr
|
||||
002134 1 A8 tay
|
||||
002135 1 AD 55 C0 lda TextPage2
|
||||
002138 1 90 03 bcc setChar
|
||||
00213A 1 AD 54 C0 lda TextPage1
|
||||
00213D 1 setChar:
|
||||
00213D 1 B1 28 lda (BasL),y
|
||||
00213F 1 85 06 sta LastChar ; save so ClearCursor will pick it up
|
||||
002141 1 C9 E0 cmp #$e0
|
||||
002143 1 10 0C bpl lowerCase
|
||||
002145 1 C9 C0 cmp #$c0
|
||||
002147 1 10 0D bpl upperCase
|
||||
002149 1 C9 A0 cmp #$a0
|
||||
00214B 1 10 04 bpl symbol
|
||||
00214D 1 C9 80 cmp #$80
|
||||
00214F 1 10 0A bpl noop
|
||||
002151 1 symbol:
|
||||
002151 1 lowerCase:
|
||||
002151 1 invert:
|
||||
002151 1 49 80 eor #$80
|
||||
002153 1 4C 5B 21 jmp storeChar
|
||||
002156 1 upperCase:
|
||||
002156 1 29 1F and #$1f
|
||||
002158 1 4C 5B 21 jmp storeChar
|
||||
00215B 1 noop:
|
||||
00215B 1 storeChar:
|
||||
00215B 1 91 28 sta (BasL),y
|
||||
00215D 1 AD 54 C0 lda TextPage1
|
||||
002160 1 60 rts
|
||||
002161 1
|
||||
002161 1 ClearCursor:
|
||||
002161 1 AD 7B 05 lda htab80 ;get horizontal location / 2
|
||||
002164 1 4A lsr
|
||||
002165 1 A8 tay
|
||||
002166 1 AD 55 C0 lda TextPage2
|
||||
002169 1 90 03 bcc restoreChar
|
||||
00216B 1 AD 54 C0 lda TextPage1
|
||||
00216E 1 restoreChar:
|
||||
00216E 1 A5 06 lda LastChar
|
||||
002170 1 91 28 sta (BasL),y
|
||||
002172 1 AD 54 C0 lda TextPage1
|
||||
002175 1 60 rts
|
||||
002176 1
|
||||
002176 1 Text:
|
||||
002176 1 41 70 70 6C .byte "Apple2-IO-RPi Shell Version 000D",$8d
|
||||
00217A 1 65 32 2D 49
|
||||
00217E 1 4F 2D 52 50
|
||||
002197 1 28 63 29 32 .byte "(c)2020-2022 Terence J. Boldt",$8d
|
||||
00219B 1 30 32 30 2D
|
||||
00219F 1 32 30 32 32
|
||||
0021B5 1 8D .byte $8d
|
||||
0021B6 1 00 .byte $00
|
||||
0021B6 1
|
||||
Loading…
Reference in New Issue