mirror of
https://github.com/KrisKennaway/ii-vision.git
synced 2024-12-21 05:30:20 +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