Skip to content

Commit de0d797

Browse files
committed
removed all remaining RS232 code.
commented out some CIA registers in declare. I've left the rest of the I/O intact from the original C64 code, just in case any of it is applicable to cassette, tape, or printer access.
1 parent c08070c commit de0d797

File tree

14 files changed

+17
-996
lines changed

14 files changed

+17
-996
lines changed

kernal/channelio

Lines changed: 6 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -18,13 +18,10 @@ NGETIN LDA DFLTN ;CHECK DEVICE
1818
SEI
1919
JMP LP2 ;GO REMOVE A CHARACTER
2020
;
21-
GN10 CMP #2 ;IS IT RS-232
22-
BNE BN10 ;NO...USE BASIN
21+
GN10 ; removed CMP #2 for RS-232
22+
JMP BN10 ;USE BASIN
2323
;
24-
GN232 STY XSAV ;SAVE .Y, USED IN RS232
25-
JSR BSI232
26-
LDY XSAV ;RESTORE .Y
27-
GN20 CLC ;GOOD RETURN
24+
GN20 CLC ; good return
2825
RTS
2926

3027
;***************************************
@@ -62,8 +59,8 @@ BN10 CMP #3 ;IS INPUT FROM SCREEN?
6259
JMP LOOP5 ;PICK UP CHARACTERS
6360
;
6461
BN20 BCS BN30 ;DEVICES >3
65-
CMP #2 ;RS232?
66-
BEQ BN50
62+
;CMP #2 removed with RS232
63+
;BN50 code removed
6764
;
6865
;INPUT FROM CASSETTE BUFFERS
6966
;
@@ -113,17 +110,6 @@ BN33 RTS
113110
;
114111
BN35 JMP ACPTR ;GOOD...HANDSHAKE
115112
;
116-
;INPUT FROM RS232
117-
;
118-
BN50 JSR GN232 ;GET INFO
119-
BCS BN33 ;ERROR RETURN
120-
CMP #00
121-
BNE BN32 ;GOOD DATA...EXIT
122-
LDA RSSTAT ;CHECK FOR DSR OR DCD ERROR
123-
AND #$60
124-
BNE BN31 ;AN ERROR...EXIT WITH C/R
125-
BEQ BN50 ;NO ERROR...STAY IN LOOP
126-
127113
;***************************************
128114
;* BSOUT -- OUT CHARACTER TO CHANNEL *
129115
;* DETERMINED BY VARIABLE DFLTO: *
@@ -200,7 +186,7 @@ RSTOR1 RTS
200186
;
201187
;OUTPUT TO RS232
202188
;
203-
BO50 JSR BSO232 ;PASS DATA THROUGH VARIABLE T1
189+
BO50 ;JSR BSO232 ;PASS DATA THROUGH VARIABLE T1
204190
JMP RSTOA ;GO RESTORE ALL..ALWAYS GOOD
205191

206192
; RSR 5/12/82 FIX BSOUT FOR NO REG AFFECT BUT ERRORS

kernal/close

Lines changed: 1 addition & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -29,31 +29,7 @@ JX050 JSR JZ100 ;EXTRACT TABLE DATA
2929
CMP #3
3030
BEQ JX150 ;IS SCREEN...DONE
3131
BCS JX120 ;IS SERIAL...PROCESS
32-
CMP #2 ;RS232?
33-
BNE JX115 ;NO...
34-
;
35-
; RS-232 CLOSE
36-
;
37-
; REMOVE FILE FROM TABLES
38-
PLA
39-
JSR JXRMV
40-
;
41-
JSR CLN232 ;CLEAN UP RS232 FOR CLOSE
42-
;
43-
; DEALLOCATE BUFFERS
44-
;
45-
JSR GETTOP ;GET MEMSIZ
46-
LDA RIBUF+1 ;CHECK INPUT ALLOCATION
47-
BEQ CLS010 ;NOT...ALLOCATED
48-
INY
49-
CLS010 LDA ROBUF+1 ;CHECK OUTPUT ALLOCATION
50-
BEQ CLS020
51-
INY
52-
CLS020 LDA #00 ;DEALLOCATE
53-
STA RIBUF+1
54-
STA ROBUF+1
55-
; FLAG TOP OF MEMORY CHANGE
56-
JMP MEMTCF ;GO SET NEW TOP
32+
;CMP #2 removed with rs232
5733
;
5834
;CLOSE CASSETTE FILE
5935
;

kernal/declare

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -269,7 +269,7 @@ D1CRB DS.B 1
269269

270270
ORG $DD00 ;DEVICE2 6526 (PAGE2 NMI)
271271
D2PRA DS.B 1
272-
D2PRB DS.B 1
272+
;D2PRB DS.B 1 ; only for rs232
273273
D2DDRA DS.B 1
274274
D2DDRB DS.B 1
275275
D2T1L DS.B 1
@@ -281,7 +281,7 @@ D2TODS DS.B 1
281281
D2TODM DS.B 1
282282
D2TODH DS.B 1
283283
D2SDR DS.B 1
284-
D2ICR DS.B 1
284+
;D2ICR DS.B 1 ; only for rs232
285285
D2CRA DS.B 1
286286
D2CRB DS.B 1
287287

kernal/open

Lines changed: 1 addition & 111 deletions
Original file line numberDiff line numberDiff line change
@@ -52,10 +52,8 @@ OP110 INC LDTND ;NEW FILE
5252
;
5353
;PERFORM TAPE OPEN STUFF
5454
;
55-
OP150 CMP #2
56-
BNE OP152
55+
OP150 ; CMP #2 removed with rs232 stuff
5756
;
58-
JMP OPN232
5957
;
6058
OP152 JSR ZZZ ;SEE IF TAPE BUFFER
6159
BCS OP155 ;YES
@@ -155,114 +153,6 @@ OP40 LDA (FNADR),Y
155153
;
156154
OP45 JMP CUNLSN ;JSR UNLSN: CLC: RTS
157155

158-
; OPN232 - OPEN AN RS-232 OR PARALLEL PORT FILE
159-
;
160-
; VARIABLES INITILIZED
161-
; BITNUM - # OF BITS TO BE SENT CALC FROM M51CTR
162-
; BAUDOF - BAUD RATE FULL
163-
; RSSTAT - RS-232 STATUS REG
164-
; M51CTR - 6551 CONTROL REG
165-
; M51CDR - 6551 COMMAND REG
166-
; M51AJB - USER BAUD RATE (CLOCK/BAUD/2-100)
167-
; ENABL - 6526 NMI ENABLES (1-NMI BIT ON)
168-
;
169-
OPN232 JSR CLN232 ;SET UP RS232, .Y= 0 ON RETURN
170-
;
171-
; PASS PRAMS TO M51REGS
172-
;
173-
STY RSSTAT ;CLEAR STATUS
174-
;
175-
OPN020 CPY FNLEN ;CHECK IF AT END OF FILENAME
176-
BEQ OPN025 ;YES...
177-
;
178-
LDA (FNADR),Y ;MOVE DATA
179-
STA M51CTR,Y ;TO M51REGS
180-
INY
181-
CPY #4 ;ONLY 4 POSSIBLE PRAMS
182-
BNE OPN020
183-
;
184-
; CALC # OF BITS
185-
;
186-
OPN025 JSR BITCNT
187-
STX BITNUM
188-
;
189-
; CALC BAUD RATE
190-
;
191-
LDA M51CTR
192-
AND #$0F
193-
BEQ OPN028
194-
;
195-
; CALCULATE START-TEST RATE...
196-
; DIFFERENT THAN ORIGINAL RELEASE 901227-01
197-
;
198-
ASL ;GET OFFSET INTO TABLES
199-
TAX
200-
LDA PALNTS ;GET TV STANDARD
201-
BNE OPN026
202-
LDY BAUDO-1,X ;NTSC STANDARD
203-
LDA BAUDO-2,X
204-
JMP OPN027
205-
;
206-
OPN026 LDY BAUDOP-1,X ;PAL STANDARD
207-
LDA BAUDOP-2,X
208-
OPN027 STY M51AJB+1 ;HOLD START RATE IN M51AJB
209-
STA M51AJB
210-
OPN028 LDA M51AJB ;CALCULATE BAUD RATE
211-
ASL
212-
JSR POPEN ;GOTO PATCH AREA
213-
;
214-
; CHECK FOR 3/X LINE RESPONSE
215-
;
216-
OPN030 LDA M51CDR ;BIT 0 OF M51CDR
217-
LSR
218-
BCC OPN050 ;...3 LINE
219-
;
220-
; CHECK FOR X LINE PROPER STATES
221-
;
222-
LDA D2PRB
223-
ASL
224-
BCS OPN050
225-
JSR CKDSRX ;CHANGE FROM JMP TO PREVENT SYSTEM DAMAGE (901227-02)
226-
;
227-
; SET UP BUFFER POINTERS (DBE= DBS)
228-
;
229-
OPN050 LDA RIDBE
230-
STA RIDBS
231-
LDA RODBE
232-
STA RODBS
233-
;
234-
; ALLOCATE BUFFERS
235-
;
236-
OPN055 JSR GETTOP ;GET MEMSIZ
237-
LDA RIBUF+1 ;IN ALLOCATION...
238-
BNE OPN060 ;ALREADY
239-
DEY ;THERE GOES 256 BYTES
240-
STY RIBUF+1
241-
STX RIBUF
242-
OPN060 LDA ROBUF+1 ;OUT ALLOCATION...
243-
BNE MEMTCF ;ALREAY
244-
DEY ;THERE GOES 256 BYTES
245-
STY ROBUF+1
246-
STX ROBUF
247-
MEMTCF SEC ;SIGNAL TOP OF MEMORY CHANGE
248-
LDA #$F0
249-
JMP SETTOP ;TOP CHANGED
250-
;
251-
; CLN232 - CLEAN UP 232 SYSTEM FOR OPEN/CLOSE
252-
; SET UP DDRB AND CB2 FOR RS-232
253-
;
254-
CLN232 LDA #$7F ;CLEAR NMI'S
255-
STA D2ICR
256-
LDA #%00000110 ;DDRB
257-
STA D2DDRB
258-
STA D2PRB ;DTR,RTS HIGH
259-
LDA #$04 ;OUTPUT HIGH PA2
260-
ORA D2PRA
261-
STA D2PRA
262-
LDY #00
263-
STY ENABL ;CLEAR ENABLS
264-
RTS
265-
266156
; RSR 8/25/80 - ADD RS-232 CODE
267157
; RSR 8/26/80 - TOP OF MEMORY HANDLER
268158
; RSR 8/29/80 - ADD FILENAME TO M51REGS

kernal/openchannel

Lines changed: 2 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -30,10 +30,7 @@ JX310 JSR JZ100 ;EXTRACT FILE INFO
3030
CMP #3
3131
BEQ JX320 ;IS SCREEN...DONE.
3232
BCS JX330 ;IS SERIAL...ADDRESS IT
33-
CMP #2 ;RS232?
34-
BNE JX315 ;NO...
35-
;
36-
JMP CKI232
33+
;CMP #2 removed, no rs232
3734
;
3835
;SOME EXTRA CHECKS FOR TAPE
3936
;
@@ -99,11 +96,7 @@ CK20 JMP ERROR7 ;YES...NOT OUTPUT FILE
9996
CK10 CMP #3
10097
BEQ CK30 ;IS SCREEN...DONE
10198
BCS CK40 ;IS SERIAL...ADDRESS IT
102-
CMP #2 ;RS232?
103-
BNE CK15
104-
;
105-
JMP CKO232
106-
;
99+
; CMP #2 removed with RS232
107100
;
108101
;SPECIAL TAPE CHANNEL HANDLING
109102
;

kernal/patch

Lines changed: 2 additions & 25 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,4 @@
1-
ORG $E500-45 ;(38-7)
2-
; PRTYP - RS232 PARITY PATCH...ADDED 901227-03
3-
;
4-
PRTYP STA RINONE ;GOOD RECEIVER START...DISABLE FLAG
5-
LDA #1 ;SET PARITY TO 1 ALWAYS
6-
STA RIPRTY
7-
RTS
8-
9-
10-
ORG $E500-32 ;(20-12)
1+
ORG $E500-12
112
; FPATCH - TAPE FILENAME TIMEOUT
123
;
134
FPATCH ADC #2 ;TIME IS (8 TO 13 SEC OF DISPLAY)
@@ -18,18 +9,4 @@ FPAT00 LDY STKEY ;CHECK FOR KEY DOWN ON LAST ROW...
189
BNE FPAT00
1910
FPAT01 RTS
2011

21-
ORG $E500-20
22-
;
23-
; BAUDOP - BAUD RATE TABLE FOR PAL
24-
; .985248E6/BAUD-RATE/2-100
25-
;
26-
BAUDOP .WORD 9853-CBIT ;50 BAUD
27-
.WORD 6568-CBIT ;75 BAUD
28-
.WORD 4478-CBIT ;110 BAUD
29-
.WORD 3660-CBIT ;134.6 BAUD
30-
.WORD 3284-CBIT ;150 BAUD
31-
.WORD 1642-CBIT ;300 BAUD
32-
.WORD 821-CBIT ;600 BAUD
33-
.WORD 411-CBIT ;1200 BAUD
34-
.WORD 274-CBIT ;1800 BAUD
35-
.WORD 205-CBIT ;2400 BAUD
12+
ORG $E500

0 commit comments

Comments
 (0)