netlib/CARD.ASM at master · sixofdloc/netlib · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175

;CARD LAYER===================================================================
;                                                       _,.-------.,_
;                                                   ,;~'             '~;,
;                                                 ,;                     ;,
;                                                ;                         ;
;                                               ,'        Style2006        ',
;                                              ,;                           ;,
;                                              ; ;      .           .      ; ;
;                                              | ;   ______       ______   ; |
;                                              |  `/~"     ~" . "~     "~\'  |
;                                              |  ~  ,-~~~^~, | ,~^~~~-,  ~  |
; Last Edits 1/26/2006                          |   |        }:{        |   |
; Six of Style                                  |   !       / | \       !   |
;                                               .~  (__,.--" .^. "--.,__)  ~.
;                                               |     ---;' / | \ `;---     |
;                                                \__.       \/^\/       .__/
;                                                 V| \                 / |V
;                                                  | |T~\___!___!___/~T| |
;                                                  | |`IIII_I_I_I_IIII'| |
;                                                  |  \,III I I I III,/  |
;                                                   \   `~~~~~~~~~~'    /
;                                                     \   .       .   /
;                                                       \.    ^    ./
;                                                         ^~~~^~~~^
;
CARD_STATUS_IDLE = 0;
CARD_STATUS_READING = 1;
CARD_STATUS_WRITING = 2;


;DETECT CARD==================================================================
;Detects net card installed, sets card type, sets carry on error, clears on
;good
CARD_DETECT
	;Check for ETH64
	clc
	lda ETH64_BANK+1
	cmp #$33
	beq ETH_64_FOUND

	;Check for RRNET
	;switch on accessory connector
	lda $de01
	and #%10111000
	ora #%00000001
	sta $de01
	;check for the first 2 magic bytes
	ldy #0
	jsr RRNET_READPAGE
	cmp #<RRNET_MAGIC
	bne NO_CARD_FOUND
	cpx #>RRNET_MAGIC
	;RR-Net found
	lda #$02
	sta CARD_TYPE
	clc
	rts
NO_CARD_FOUND
	lda #$00
	sta CARD_TYPE
	sec
	rts
ETH_64_FOUND
	lda #$01
	sta CARD_TYPE
	clc
	rts

;INITIALIZE CARD==============================================================
;Initializes detected card, carry set on error
CARD_INIT
	lda CARD_TYPE
	cmp #$01
	bne CARD_I0
	jmp ETH64_INIT
CARD_I0
	cmp #$02
	bne CARD_IE
	jmp RRNET_INIT
CARD_IE
	sec
	rts


;POLL FOR PACKET==============================================================
;Polls for packet, returns a=1 if packet available, a=0 if not, carry on error
CARD_POLL
	lda CARD_TYPE
	cmp #$01
	bne CARD_P0
	jmp ETH64_POLL
CARD_P0
	cmp #$02
	bne CARD_PE
	jmp RRNET_POLL
CARD_PE
	sec
	rts

;READ PACKET==================================================================
;Reads packet into INPACKET and puts length in IN_PACKET_LENGTH
CARD_READ
	lda CARD_TYPE
	cmp #$01
	bne CARD_R0
	jmp ETH64_READ
CARD_R0
	cmp #$02
	bne CARD_RE
	jmp RRNET_READ
CARD_RE
	sec
	rts


;SEND PACKET==================================================================
CARD_SEND
;	PRINT 13,"card send called",13
	lda CARD_TYPE
	cmp #$01
	bne CARD_S0
	jmp ETH64_SEND
CARD_S0
	cmp #$02
	bne CARD_SE
	jmp RRNET_SEND
CARD_SE
	sec
	rts

CARD_MANUAL
	jsr CARD_POLL
	beq CMPOLLx
	jsr CARD_READ
	jsr MAC_PROCESS
CMPOLLx
	rts

;DATA=========================================================================
;CARD_STATUS	dc.b $00
;
CONFIGURATION
;
;CFG_LOADED	dc.b $00
;CARD_TYPE	dc.b $02    ; 0=None, 1=ETH64, 2=RR-Net
;CARD_AUTO	dc.b $01    ; 0=auto, 1=static
;CARD_MAC	dc.b $00,$80,$10,$0c,$64,$00
;CARD_IP		dc.b 192,168,1,66
;CARD_MASK	dc.b 255,255,255,0
;CARD_GATE	dc.b 192,168,1,1
;CARD_NS1	dc.b 0,0,0,0
CONFIG_END
;;end configuration file
;
;CARD_BCAST_IP	dc.b 255,255,255,255
;CARD_BCAST_MAC	dc.b 255,255,255,255,255,255
;CARD_NOMAC	dc.b 0,0,0,0,0,0
;CARD_GATE_MAC	dc.b 0,0,0,0,0,0
CARD_STATUS	dc.b $00
CARD_TYPE	dc.b $00 		     ; 0=None, 1=ETH64, 2=RR-Net
CARD_MAC	dc.b $00,$80,$10,$0c,$64,$06

CARD_IP		dc.b 192,168,2,128

CARD_MASK	dc.b 255,255,255,0

CARD_GATE	dc.b 192,168,2,1
CARD_NS1	dc.b 216,68,4,10
CARD_BCAST_IP	dc.b 255,255,255,255

CARD_BCAST_MAC	dc.b 255,255,255,255,255,255
CARD_NOMAC	dc.b 0,0,0,0,0,0

CARD_GATE_MAC	dc.b $00,$00,$00,$00,$00,$00