mirror of
https://github.com/KrisKennaway/ii-vision.git
synced 2024-06-09 06:29:32 +00:00
Remove old player
This commit is contained in:
kris
parent
065d9dddf8
commit
8f6aa019b6
|
|
@ -1,253 +0,0 @@
|
|||
#
|
||||
# Makefile
|
||||
# Apple2BuildPipelineSample
|
||||
#
|
||||
# Part of a sample build pipeline for Apple II software development
|
||||
#
|
||||
# Created by Quinn Dunki on 8/15/14.
|
||||
# One Girl, One Laptop Productions
|
||||
# http://www.quinndunki.com
|
||||
# http://www.quinndunki.com/blondihacks
|
||||
#
|
||||
|
||||
include make/head.mk
|
||||
|
||||
# Customize this file to control what gets built, what machines to
|
||||
# target, where in memory to put it, etc.
|
||||
|
||||
# The name of your system or binary file to build goes here:
|
||||
PGM=ethernet
|
||||
|
||||
# Uncomment the one you want below (the first one is the default):
|
||||
# MACHINE = apple2
|
||||
# MACHINE = apple2-dos33
|
||||
# MACHINE = apple2-system
|
||||
# MACHINE = apple2-loader
|
||||
# MACHINE = apple2-reboot
|
||||
MACHINE = apple2enh
|
||||
# MACHINE = apple2enh-dos33
|
||||
# MACHINE = apple2enh-system
|
||||
# MACHINE = apple2enh-loader
|
||||
# MACHINE = apple2enh-reboot
|
||||
|
||||
# Uncomment the appropriate project type. If your entry point is
|
||||
# main() in a .c file, then your project type is cc65. If your
|
||||
# entry point is in an assembly file, then you project type is
|
||||
# ca65:
|
||||
# PROJECT_TYPE = cc65
|
||||
PROJECT_TYPE = ca65
|
||||
|
||||
# Uncomment and set this to your starting address in Apple II memory
|
||||
# if necessary:
|
||||
START_ADDR = 8000
|
||||
|
||||
# Set the default CPU to assemble for. You can change this in the
|
||||
# body of a .s file using control commands like ".PC02". Uncomment
|
||||
# the one you want below (the first one is the default):
|
||||
# CPU = 6502
|
||||
# CPU = 65SC02
|
||||
CPU = 65C02
|
||||
# CPU = 65816
|
||||
# Note: You can assemble for 65816 in 16-bit mode but the C compiler
|
||||
# will only produce 8-bit code.
|
||||
|
||||
# Add any other directories where you are putting C or assembly source
|
||||
# files to this list:
|
||||
SRCDIRS+=
|
||||
|
||||
# If you have a non-standard cc65 install, you may need to change
|
||||
# some of these. Uncomment the following line and change it to the
|
||||
# correct path to CC65_HOME if the default is not correct. If you
|
||||
# are using cc65 v2.13.3, the default is:
|
||||
# /usr/local/lib/cc65
|
||||
# If you are using cc65 v2.17, the default is:
|
||||
# /usr/local/share/cc65
|
||||
# export CC65_HOME := /path/to/your/cc65/directory
|
||||
#
|
||||
# If the path to the cc65 binaries is not correct, uncomment this
|
||||
# line and change it:
|
||||
# CC65_BIN = /usr/local/bin
|
||||
|
||||
# If you want to add arguments to the compile commandline, add them
|
||||
# to this variable:
|
||||
# CFLAGS += -Os
|
||||
|
||||
# If you want to add arguments to the assembly commandline, add them
|
||||
# to this variable:
|
||||
# ASMFLAGS += -g
|
||||
|
||||
# If you want to add arguments to the link commandline, add them to
|
||||
# this variable:
|
||||
#
|
||||
# Write out a debug file containing symbol table, so we can parse the opcode
|
||||
# offsets in the video encoder.
|
||||
LDFLAGS += -Wl --dbgfile,ethernet.dbg
|
||||
|
||||
# If you want to add arguments to the BASIC tokenizer commandline,
|
||||
# add them to this valiable:
|
||||
# BASICFLAGS += --optimize
|
||||
|
||||
# If you want to link the lores graphics driver with your executable,
|
||||
# uncomment the next line.
|
||||
# DRIVERS += loresgr
|
||||
#
|
||||
# To use the lores driver, add code which looks like this to your
|
||||
# project:
|
||||
#
|
||||
# #include "drivers/a2_lores_drv.h"
|
||||
# int main(void)
|
||||
# {
|
||||
# tgi_install(&a2_lores_drv);
|
||||
# tgi_init();
|
||||
# // Use the graphics driver
|
||||
# tgi_uninstall();
|
||||
# }
|
||||
#
|
||||
# Read the $CC65_HOME/include/tgi.h file to see what the
|
||||
# driver interface provides. Also check out
|
||||
# $CC65_HOME/include/apple2.h to see the colour definitions.
|
||||
|
||||
# If you want to link the hires graphics driver with your executable,
|
||||
# uncomment the next line.
|
||||
# DRIVERS += hiresgr
|
||||
#
|
||||
# To use the hires driver, add code which looks like this to your
|
||||
# project:
|
||||
#
|
||||
# #include "drivers/a2_hires_drv.h"
|
||||
# int main(void)
|
||||
# {
|
||||
# tgi_install(&a2_hires_drv);
|
||||
# tgi_init();
|
||||
# // Use the graphics driver
|
||||
# tgi_uninstall();
|
||||
# }
|
||||
#
|
||||
# Read the $CC65_HOME/cc65/include/tgi.h file to see what the
|
||||
# driver interface provides. Also check out
|
||||
# $CC65_HOME/include/apple2.h to see the colour definitions.
|
||||
|
||||
# If you want to link the extended memory driver with your executable,
|
||||
# uncomment the next line.
|
||||
# DRIVERS += auxmem
|
||||
#
|
||||
# To use the auxmem driver, add code which looks like this to your
|
||||
# project:
|
||||
#
|
||||
# #include "drivers/a2_auxmem_drv.h"
|
||||
# int main(void)
|
||||
# {
|
||||
# em_install(&a2_auxmem_drv);
|
||||
# // Use the auxmem driver
|
||||
# em_uninstall();
|
||||
# }
|
||||
#
|
||||
# Read the $CC65_HOME/include/em.h file to see what the
|
||||
# driver interface provides.
|
||||
|
||||
# If you want to link the joystick driver with your executable,
|
||||
# uncomment the next line.
|
||||
# DRIVERS += joystick
|
||||
#
|
||||
# To use the joystick driver, add code which looks like this to your
|
||||
# project:
|
||||
#
|
||||
# #include "drivers/a2_joystick_drv.h"
|
||||
# int main(void)
|
||||
# {
|
||||
# joy_install(&a2_joystick_drv);
|
||||
# // Use the joystick driver
|
||||
# joy_uninstall();
|
||||
# }
|
||||
#
|
||||
# Read the $CC65_HOME/include/joystick.h file to see what the
|
||||
# driver interface provides.
|
||||
|
||||
# If you want to link the mouse driver with your executable,
|
||||
# uncomment the next line.
|
||||
# DRIVERS += mouse
|
||||
#
|
||||
# To use the mouse driver, add code which looks like this to your
|
||||
# project:
|
||||
#
|
||||
# #include "drivers/a2_mouse_drv.h"
|
||||
# int main(void)
|
||||
# {
|
||||
# mouse_install(&mouse_def_callbacks, &a2_mouse_drv);
|
||||
# // Use the mouse driver
|
||||
# mouse_uninstall();
|
||||
# }
|
||||
#
|
||||
# Read the $CC65_HOME/include/mouse.h file to see what the
|
||||
# driver interface provides.
|
||||
|
||||
# If you want to link the serial driver with your executable,
|
||||
# uncomment the next line.
|
||||
# DRIVERS += serial
|
||||
#
|
||||
# To use the serial driver, add code which looks like this to your
|
||||
# project:
|
||||
#
|
||||
# #include "drivers/a2_serial_drv.h"
|
||||
# int main(void)
|
||||
# {
|
||||
# ser_install(&a2_serial_drv);
|
||||
# // Use the serial driver
|
||||
# ser_uninstall();
|
||||
# }
|
||||
#
|
||||
# Read the $CC65_HOME/include/serial.h file to see what the
|
||||
# driver interface provides.
|
||||
|
||||
# If you have java installed in a non-standard location, you can set
|
||||
# the path to it by uncommenting the following line:
|
||||
# export JAVA=/usr/bin/java
|
||||
|
||||
# If you want to copy one or more files or directories to the target disk
|
||||
# image, add the root directory to this variable. All files will be
|
||||
# copied from the source to the target using the same path from the source.
|
||||
#
|
||||
# For example, if you set COPYDIRS to dir and in your project you have
|
||||
# the following files:
|
||||
# dir/mySystemFile
|
||||
# dir/newDir/anotherFile
|
||||
#
|
||||
# Then, during the copy phase, mySystemFile will be copied into the root
|
||||
# of the disk and anotherFile will be copied into a directory named
|
||||
# newDir. The newDir directory will be created if it does not already
|
||||
# exist.
|
||||
#
|
||||
# The name of the file to copy is checked and if it ends in:
|
||||
# .as - It assumes the file is in AppleSingle format. The .as
|
||||
# suffix is stripped from the name when copied to the
|
||||
# disk image.
|
||||
# .<char> - If the file ends with a single character which matches
|
||||
# a DOS 3.3 file type (A, B, T, etc) it uses that value as
|
||||
# the file type of the file copied to the disk image. The
|
||||
# single character is removed from the file name.
|
||||
# .<TLA> - If the file ends with a three letter alpha extension, it
|
||||
# uses that TLA as the file type of the file copied to the
|
||||
# disk image. The TLA is removed from the file name.
|
||||
#
|
||||
# If you do not provide any type information for your filenames,
|
||||
# it will be copied as a binary.
|
||||
#
|
||||
COPYDIRS=
|
||||
|
||||
# Add any rules you want to execute before any compiles or assembly
|
||||
# commands are called here, if any. You can generate .c, .s or .h
|
||||
# files for example. You can generate data files. Whatever you
|
||||
# might need.
|
||||
#
|
||||
# All of your commands associated with a rule _must_ start with a tab
|
||||
# character. Xcode makes it a bit tough to type a tab character by
|
||||
# default. Press option-tab within Xcode to insert a tab character.
|
||||
gen:
|
||||
|
||||
# For any files you generated in the gen target above, you should
|
||||
# add rules in genclean to remove those generated files when you
|
||||
# clean your build.
|
||||
genclean:
|
||||
|
||||
# Do not change anything else below here...
|
||||
include make/tail.mk
|
||||
|
|
@ -1,528 +0,0 @@
|
|||
;
|
||||
; main.s
|
||||
; ethernet video decoder
|
||||
;
|
||||
; Created by Kris Kennaway on 03/01/2019.
|
||||
; Copyright © 2019 Kris Kennaway. All rights reserved.
|
||||
;
|
||||
|
||||
.include "apple2.inc"
|
||||
|
||||
; Write symbol table to object file
|
||||
.DEBUGINFO
|
||||
|
||||
.org $8000
|
||||
.proc main
|
||||
; TCP SOCKET DEMO FOR W5100/UTHERNET II
|
||||
; BY D. FINNIGAN
|
||||
; OCTOBER 2015
|
||||
;
|
||||
; UPDATED 09 JAN 2016 6*
|
||||
; UPDATED 13 FEB 2017, C. TORRENCE
|
||||
; -REMOVED SEPARATE PATH FOR WRAP, ADD DEBUG PRINT
|
||||
|
||||
; SLOT 1 I/O ADDRESSES FOR THE W5100
|
||||
WMODE = $C094
|
||||
WADRH = $C095
|
||||
WADRL = $C096
|
||||
WDATA = $C097
|
||||
|
||||
; W5100 LOCATIONS
|
||||
MACADDR = $0009 ; MAC ADDRESS
|
||||
SRCIP = $000F ; SOURCE IP ADDRESS
|
||||
RMSR = $001A ; RECEIVE BUFFER SIZE
|
||||
|
||||
; SOCKET 0 LOCATIONS
|
||||
|
||||
S0MR = $0400 ; SOCKET 0 MODE REGISTER
|
||||
S0CR = $0401 ; COMMAND REGISTER
|
||||
S0IR = $0402 ; INTERRUPT REGISTER
|
||||
S0SR = $0403 ; STATUS REGISTER
|
||||
S0LOCALPORT = $0404 ; LOCAL PORT
|
||||
S0FORADDR = $040C ; FOREIGN ADDRESS
|
||||
S0FORPORT = $0410 ; FOREIGN PORT
|
||||
S0MSS = $0412 ; MAX SEGMENT SIZE
|
||||
S0PROTO = $0414 ; IP PROTOCOL
|
||||
S0TOS = $0415 ; DS/ECN (FORMER TOS)
|
||||
S0TTL = $0416 ; IP TIME TO LIVE
|
||||
S0TXFSR = $0420 ; TX FREE SIZE REGISTER
|
||||
S0TXRR = $0422 ; TX READ POINTER REGISTER
|
||||
S0TXWR = $0424 ; TX WRITE POINTER REGISTER
|
||||
S0RXRSR = $0426 ; RX RECEIVED SIZE REGISTER
|
||||
S0RXRD = $0428 ; RX READ POINTER REGISTER
|
||||
|
||||
; SOCKET 0 PARAMETERS
|
||||
RXBASE = $6000 ; SOCKET 0 RX BASE ADDR
|
||||
RXMASK = $1FFF ; SOCKET 0 8KB ADDRESS MASK
|
||||
TXBASE = $4000 ; SOCKET 0 TX BASE ADDR
|
||||
TXMASK = RXMASK ; SOCKET 0 TX MASK
|
||||
|
||||
; SOCKET COMMANDS
|
||||
SCOPEN = $01 ; OPEN
|
||||
SCLISTEN = $02 ; LISTEN
|
||||
SCCONNECT = $04 ; CONNECT
|
||||
SCDISCON = $08 ; DISCONNECT
|
||||
SCCLOSE = $10 ; CLOSE
|
||||
SCSEND = $20 ; SEND
|
||||
SCSENDMAC = $21 ; SEND MAC
|
||||
SCSENDKEEP = $22 ; SEND KEEP ALIVE
|
||||
SCRECV = $40 ; RECV
|
||||
|
||||
; SOCKET STATUS
|
||||
STCLOSED = $00
|
||||
STINIT = $13
|
||||
STLISTEN = $14
|
||||
STESTABLISHED = $17
|
||||
STCLOSEWAIT = $1C
|
||||
STUDP = $22
|
||||
STIPRAW = $32
|
||||
STMAXRAW = $42
|
||||
STPPOE = $5F
|
||||
|
||||
; MONITOR SUBROUTINES
|
||||
KBD = $C000
|
||||
KBDSTRB = $C010
|
||||
COUT = $FDED
|
||||
PRBYTE = $FDDA
|
||||
PRNTAX = $F941
|
||||
|
||||
; ZERO-PAGE STORAGE
|
||||
PTR = $06 ; 2 BYTES FOR APPLE BUFFER
|
||||
GETSIZE = $08 ; 2 BYTES FOR RX_RSR
|
||||
GETOFFSET = $0A ; 2 BYTES FOR OFFSET ADDR
|
||||
GETSTARTADR = $0C ; 2 BYTES FOR PHYSICAL ADDR
|
||||
|
||||
hgr = $f3e2
|
||||
gr = $c050
|
||||
text = $c051
|
||||
fullscr = $c052
|
||||
tick = $c030
|
||||
|
||||
; RESET AND CONFIGURE W5100
|
||||
LDA #6 ; 5 RETRIES TO GET CONNECTION
|
||||
STA PTR ; NUMBER OF RETRIES
|
||||
BPL RESET ; ALWAYS TAKEN
|
||||
|
||||
SRCADDR: .byte $C0,$A8,$01,147 ; 192.168.2.5 W5100 IP
|
||||
FADDR: .byte $C0,$A8,$01,15 ; 192.168.2.1 FOREIGN IP
|
||||
FPORT: .byte $4E,$20 ; 20000 FOREIGN PORT
|
||||
MAC: .byte $00,$08,$DC,$01,$02,$03 ; W5100 MAC ADDRESS
|
||||
|
||||
RESET:
|
||||
LDA #$80 ; reset
|
||||
STA WMODE
|
||||
LDA #3 ; CONFIGURE WITH AUTO-INCREMENT
|
||||
STA WMODE
|
||||
|
||||
; ASSIGN MAC ADDRESS
|
||||
LDA #>MACADDR
|
||||
STA WADRH
|
||||
LDA #<MACADDR
|
||||
STA WADRL
|
||||
LDX #0
|
||||
@L1:
|
||||
LDA MAC,X
|
||||
STA WDATA ; USING AUTO-INCREMENT
|
||||
INX
|
||||
CPX #6 ;COMPLETED?
|
||||
BNE @L1
|
||||
|
||||
; ASSIGN A SOURCE IP ADDRESS
|
||||
LDA #<SRCIP
|
||||
STA WADRL
|
||||
LDX #0
|
||||
@L2:
|
||||
LDA SRCADDR,X
|
||||
STA WDATA
|
||||
INX
|
||||
CPX #4
|
||||
BNE @L2
|
||||
|
||||
;CONFIGURE BUFFER SIZES
|
||||
|
||||
LDA #<RMSR
|
||||
STA WADRL
|
||||
LDA #3 ; 8KB TO SOCKET 0
|
||||
STA WDATA ; SET RECEIVE BUFFER
|
||||
STA WDATA ; SET TRANSMIT BUFFER
|
||||
|
||||
; CONFIGRE SOCKET 0 FOR TCP
|
||||
|
||||
LDA #>S0MR
|
||||
STA WADRH
|
||||
LDA #<S0MR
|
||||
STA WADRL
|
||||
LDA #$21 ; TCP MODE | !DELAYED_ACK
|
||||
STA WDATA
|
||||
|
||||
; SET LOCAL PORT NUMBER
|
||||
|
||||
LDA #<S0LOCALPORT
|
||||
STA WADRL
|
||||
LDA #$C0 ; HIGH BYTE OF LOCAL PORT
|
||||
STA WDATA
|
||||
LDA #0 ; LOW BYTE
|
||||
STA WDATA
|
||||
|
||||
; SET FOREIGN ADDRESS
|
||||
LDA #<S0FORADDR
|
||||
STA WADRL
|
||||
LDX #0
|
||||
@L3:
|
||||
LDA FADDR,X
|
||||
STA WDATA
|
||||
INX
|
||||
CPX #4
|
||||
BNE @L3
|
||||
|
||||
; SET FOREIGN PORT
|
||||
LDA FPORT ; HIGH BYTE OF FOREIGN PORT
|
||||
STA WDATA ; ADDR PTR IS AT FOREIGN PORT
|
||||
LDA FPORT+1 ; LOW BYTE OF PORT
|
||||
STA WDATA
|
||||
|
||||
; OPEN SOCKET
|
||||
LDA #<S0CR
|
||||
STA WADRL
|
||||
LDA #SCOPEN ;OPEN COMMAND
|
||||
STA WDATA
|
||||
|
||||
; CHECK STATUS REGISTER TO SEE IF SUCCEEDED
|
||||
LDA #<S0SR
|
||||
STA WADRL
|
||||
LDA WDATA
|
||||
CMP #STINIT ; IS IT SOCK_INIT?
|
||||
BEQ OPENED
|
||||
LDY #0
|
||||
@L4:
|
||||
LDA @SOCKERR,Y
|
||||
BEQ @LDONE
|
||||
JSR COUT
|
||||
INY
|
||||
BNE @L4
|
||||
@LDONE: BRK
|
||||
@SOCKERR: .byte $d5,$d4,$c8,$c5,$d2,$ce,$c5,$d4,$a0,$c9,$c9,$ba,$a0,$c3,$cf,$d5,$cc,$c4,$a0,$ce,$cf,$d4,$a0,$cf,$d0,$c5,$ce,$a0,$d3,$cf,$c3,$cb,$c5,$d4,$a1
|
||||
; "UTHERNET II: COULD NOT OPEN SOCKET!"
|
||||
.byte $8D,$00 ; cr+null
|
||||
|
||||
; TCP SOCKET WAITING FOR NEXT COMMAND
|
||||
OPENED:
|
||||
LDA #<S0CR
|
||||
STA WADRL
|
||||
LDA #SCCONNECT
|
||||
STA WDATA
|
||||
|
||||
; WAIT FOR TCP TO CONNECT AND BECOME ESTABLISHED
|
||||
|
||||
CHECKTEST:
|
||||
LDA #<S0SR
|
||||
STA WADRL
|
||||
LDA WDATA ; GET SOCKET STATUS
|
||||
BEQ FAILED ; 0 = SOCKET CLOSED, ERROR
|
||||
CMP #STESTABLISHED
|
||||
BEQ SETUP ; SUCCESS
|
||||
BNE CHECKTEST
|
||||
|
||||
FAILED:
|
||||
DEC PTR
|
||||
BEQ ERRDONE ; TOO MANY FAILURES
|
||||
LDA #$AE ; "."
|
||||
JSR COUT
|
||||
JMP RESET ; TRY AGAIN
|
||||
|
||||
ERRDONE:
|
||||
LDY #0
|
||||
@L:
|
||||
LDA ERRMSG,Y
|
||||
BEQ @DONE
|
||||
JSR COUT
|
||||
INY
|
||||
BNE @L
|
||||
@DONE: BRK
|
||||
|
||||
ERRMSG: .byte $d3,$cf,$c3,$cb,$c5,$d4,$a0,$c3,$cf,$d5,$cc,$c4,$a0,$ce,$cf,$d4,$a0,$c3,$cf,$ce,$ce,$c5,$c3,$d4,$a0,$ad,$a0,$c3,$c8,$c5,$c3,$cb,$a0,$d2,$c5,$cd,$cf,$d4,$c5,$a0,$c8,$cf,$d3,$d4
|
||||
; "SOCKET COULD NOT CONNECT - CHECK REMOTE HOST"
|
||||
.byte $8D,$00
|
||||
|
||||
SETUP:
|
||||
|
||||
; SET BUFFER ADDRESS ON APPLE
|
||||
; LDA #0 ; LOW BYTE OF BUFFER
|
||||
; STA PTR
|
||||
; LDA #$50 ; HIGH BYTE
|
||||
; STA PTR+1
|
||||
|
||||
; init graphics
|
||||
LDA #$7f
|
||||
JSR hgr
|
||||
STA fullscr
|
||||
|
||||
; CHECK FOR ANY RECEIVED DATA
|
||||
|
||||
CHECKRECV:
|
||||
STA tick
|
||||
; BIT KBD ; KEYPRESS?
|
||||
; BPL @NEXT
|
||||
; LDA KBDSTRB
|
||||
; JMP CLOSECONN ; CLOSE CONNECTION
|
||||
|
||||
;@NEXT:
|
||||
LDA #<S0RXRSR ; S0 RECEIVED SIZE REGISTER
|
||||
STA WADRL
|
||||
LDA WDATA ; HIGH BYTE OF RECEIVED SIZE
|
||||
ORA WDATA ; LOW BYTE
|
||||
BEQ NORECV ; NO DATA TO READ
|
||||
JMP RECV ; THERE IS DATA
|
||||
|
||||
NORECV:
|
||||
; XXX needed?
|
||||
NOP ; LITTLE DELAY ...
|
||||
NOP
|
||||
JMP CHECKRECV ; CHECK AGAIN
|
||||
|
||||
; THERE IS DATA TO READ - COMPUTE THE PHYSICAL ADDRESS
|
||||
|
||||
RECV:
|
||||
LDA #<S0RXRSR ; GET RECEIVED SIZE AGAIN
|
||||
STA WADRL
|
||||
LDA WDATA
|
||||
CMP #$10 ; expect at least 4k
|
||||
bcc CHECKRECV ; not yet
|
||||
STA GETSIZE+1
|
||||
LDA WDATA
|
||||
STA GETSIZE ; low byte XXX should be 0
|
||||
;jsr DEBUG
|
||||
|
||||
; reset address pointer to socket buffer
|
||||
; CALCULATE OFFSET ADDRESS USING READ POINTER AND RX MASK
|
||||
LDA #<S0RXRD
|
||||
STA WADRL
|
||||
LDA WDATA ; HIGH BYTE
|
||||
AND #>RXMASK
|
||||
STA GETOFFSET+1
|
||||
LDA WDATA ; LOW BYTE
|
||||
; why is this not 0?
|
||||
;BEQ @L ; XXX assert 0
|
||||
;BRK
|
||||
@L:
|
||||
AND #<RXMASK
|
||||
STA GETOFFSET
|
||||
|
||||
; CALCULATE PHYSICAL ADDRESS WITHIN W5100 RX BUFFER
|
||||
CLC
|
||||
LDA GETOFFSET
|
||||
ADC #<RXBASE
|
||||
STA GETSTARTADR
|
||||
LDA GETOFFSET+1
|
||||
ADC #>RXBASE
|
||||
STA GETSTARTADR+1
|
||||
|
||||
; SET BUFFER ADDRESS ON W5100
|
||||
;JSR DEBUG ; UNCOMMENT FOR W5100 DEBUG INFO
|
||||
LDA GETSTARTADR+1 ; HIGH BYTE FIRST
|
||||
STA WADRH
|
||||
LDA GETSTARTADR
|
||||
STA WADRL
|
||||
|
||||
; restore content
|
||||
PLA
|
||||
; fall through
|
||||
|
||||
; MAIN VIDEO LOOP
|
||||
op_nop: ; 11
|
||||
LDY WDATA ; 4
|
||||
STY @D+1 ; 4
|
||||
@D:
|
||||
BRA op_terminate ; 3
|
||||
end_nop:
|
||||
|
||||
op_store: ; 20
|
||||
LDY WDATA ; 4
|
||||
store1:
|
||||
STA $2000,y ; 5
|
||||
LDY WDATA ; 4
|
||||
STY @D+1 ; 4
|
||||
@D:
|
||||
BRA op_terminate ; 3
|
||||
end_store:
|
||||
|
||||
op_set_content: ; 15
|
||||
LDA WDATA ; 4
|
||||
LDY WDATA ; 4
|
||||
STY @D+1 ; 4
|
||||
@D:
|
||||
BRA op_terminate ; 3
|
||||
end_set_content:
|
||||
|
||||
op_set_page: ; 27
|
||||
LDY WDATA ; 4
|
||||
STY store1+2 ; 4
|
||||
STY rle2+2 ; 4
|
||||
;STY batch_store1+2 ; 4
|
||||
LDY WDATA ; 4
|
||||
STY @D+1 ; 4
|
||||
@D:
|
||||
BRA op_terminate ; 3
|
||||
end_set_page:
|
||||
|
||||
op_rle: ; 12 + N (2 + 5 + 3) + (-1 + 4 + 4 + 3) = 22 + 10N
|
||||
LDY WDATA ; 4 start offset
|
||||
STY rle2+1 ; 4
|
||||
LDY WDATA ; 4 repeat count
|
||||
rle1:
|
||||
DEY ; 2
|
||||
rle2:
|
||||
STA $2000,y ; 5
|
||||
BNE rle1 ; 2/3
|
||||
LDY WDATA ; 4
|
||||
STY @D+1 ; 4
|
||||
@D:
|
||||
BRA op_terminate ; 3
|
||||
end_rle:
|
||||
|
||||
;op_batch_store: ; 4 + N(4 + 5 + 2 + 3) + -1 + 4 + 4 + 3 = 14 + 14 N
|
||||
; LDX WDATA ; 4 number of stores
|
||||
;@1:
|
||||
; LDY WDATA ; 4 offset
|
||||
;batch_store1:
|
||||
; STA $2000,y ; 5
|
||||
; DEY ; 2
|
||||
; BNE @1 ; 2/3
|
||||
; LDY WDATA ; 4
|
||||
; STY @D+1 ; 4
|
||||
;@D:
|
||||
; BRA op_terminate ; 3
|
||||
|
||||
; tick with cycle padding, 15 .. 35 duty cycle in increments of 2 cycles
|
||||
; 20 cycles of NOP
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
NOP ; 2
|
||||
op_tick:
|
||||
STY tick ; 4
|
||||
LDY WDATA ; 4
|
||||
STY @D+1 ; 4
|
||||
@D:
|
||||
BRA op_terminate ; 3
|
||||
end_tick:
|
||||
|
||||
op_terminate:
|
||||
RTS
|
||||
end_terminate:
|
||||
|
||||
op_ack:
|
||||
; MOVE ADDRESS POINTER 1 page further in socket buffer
|
||||
; LDX WADRH ; socket pointer
|
||||
; INX
|
||||
|
||||
; UPDATE REXRD TO REFLECT DATA WE JUST READ
|
||||
|
||||
; TODO: be careful about which registers we stomp here
|
||||
|
||||
; UPDATERXRD:
|
||||
PHA ; XXX
|
||||
|
||||
CLC
|
||||
LDA #>S0RXRD ; NEED HIGH BYTE HERE
|
||||
STA WADRH
|
||||
LDA #<S0RXRD
|
||||
STA WADRL
|
||||
LDA WDATA
|
||||
TAY ; SAVE
|
||||
LDA WDATA ; LOW BYTE ; needed? I don't think so
|
||||
BEQ @1
|
||||
BRK
|
||||
@1:
|
||||
ADC #$00 ; GETSIZE ; ADD LOW BYTE OF RECEIVED SIZE
|
||||
TAX ; SAVE
|
||||
TYA ; GET HIGH BYTE BACK
|
||||
ADC #$08 ;GETSIZE+1 ; ADD HIGH BYTE OF RECEIVED SIZE
|
||||
TAY ; SAVE
|
||||
|
||||
LDA #<S0RXRD
|
||||
STA WADRL ; XXX already there?
|
||||
STY WDATA ; SEND HIGH BYTE
|
||||
STX WDATA ; SEND LOW BYTE
|
||||
|
||||
; SEND THE RECV COMMAND
|
||||
LDA #<S0CR
|
||||
STA WADRL
|
||||
LDA #SCRECV
|
||||
STA WDATA
|
||||
|
||||
JMP CHECKRECV
|
||||
|
||||
; CLOSE TCP CONNECTION
|
||||
|
||||
CLOSECONN:
|
||||
LDA #>S0CR ; HIGH BYTE NEEDED
|
||||
STA WADRH
|
||||
LDA #<S0CR
|
||||
STA WADRL
|
||||
LDA #SCDISCON ; DISCONNECT
|
||||
STA WDATA ; SEND COMMAND
|
||||
|
||||
; CHECK FOR CLOSED STATUS
|
||||
|
||||
CHECKCLOSED:
|
||||
LDX #0
|
||||
@L:
|
||||
LDA #<S0SR
|
||||
STA WADRL
|
||||
LDA WDATA
|
||||
BEQ ISCLOSED
|
||||
NOP
|
||||
NOP
|
||||
NOP
|
||||
INX
|
||||
BNE @L ; DON'T WAIT FOREVER
|
||||
ISCLOSED:
|
||||
RTS ; SOCKET IS CLOSED
|
||||
|
||||
; SUPPORT SUBROUTINE: CLEANOUT
|
||||
; "CLEANS UP" OUTPUT FOR THE APPLE BY
|
||||
; SETTING THE HIGH BIT AND DOING SOME SUBSTITUTIONS
|
||||
CLEANOUT:
|
||||
ORA #%10000000 ; SET HIGH BIT
|
||||
CMP #$8A ; NEWLINE?
|
||||
BNE @OUT
|
||||
LDA #$8D ; CONVERT TO <CR>
|
||||
@OUT:
|
||||
JMP COUT ; THIS WILL DO THE RTS
|
||||
|
||||
; DEBUG - PRINT W5100 STARTADR AND SIZE
|
||||
DEBUG:
|
||||
LDA #$A0 ; " "
|
||||
JSR COUT
|
||||
LDA #$A4 ; "$"
|
||||
JSR COUT
|
||||
LDA GETOFFSET+1
|
||||
LDX GETOFFSET
|
||||
JSR PRNTAX
|
||||
|
||||
LDA #$A0 ; " "
|
||||
JSR COUT
|
||||
LDA #$A4 ; "$"
|
||||
JSR COUT
|
||||
LDA GETSTARTADR+1
|
||||
LDX GETSTARTADR
|
||||
JSR PRNTAX
|
||||
|
||||
LDA #$A0 ; " "
|
||||
JSR COUT
|
||||
LDA #$A4 ; "$"
|
||||
JSR COUT
|
||||
LDA GETSIZE+1
|
||||
LDX GETSIZE
|
||||
JSR PRNTAX
|
||||
LDA #$8D
|
||||
JMP COUT ; THIS WILL DO THE RTS
|
||||
|
||||
.endproc
|
||||
Loading…
Reference in New Issue
Block a user