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.

Author: unbibium

kernal/channelio

@@ -18,13 +18,10 @@ NGETIN	LDA DFLTN       ;CHECK DEVICE
 	SEI
 	JMP LP2         ;GO REMOVE A CHARACTER
 ;
-GN10	CMP #2          ;IS IT RS-232
-	BNE BN10        ;NO...USE BASIN
+GN10	; removed CMP #2 for RS-232 
+	JMP BN10        ;USE BASIN
 ;
-GN232	STY XSAV        ;SAVE .Y, USED IN RS232
-	JSR BSI232
-	LDY XSAV        ;RESTORE .Y
-GN20	CLC             ;GOOD RETURN
+GN20	CLC  ; good return
 	RTS
 
 ;***************************************
@@ -62,8 +59,8 @@ BN10	CMP #3          ;IS INPUT FROM SCREEN?
 	JMP LOOP5       ;PICK UP CHARACTERS
 ;
 BN20	BCS BN30        ;DEVICES >3
-	CMP #2          ;RS232?
-	BEQ BN50
+	;CMP #2 removed with RS232
+	;BN50 code removed
 ;
 ;INPUT FROM CASSETTE BUFFERS
 ;
@@ -113,17 +110,6 @@ BN33	RTS
 ;
 BN35	JMP ACPTR       ;GOOD...HANDSHAKE
 ;
-;INPUT FROM RS232
-;
-BN50	JSR GN232       ;GET INFO
-	BCS BN33        ;ERROR RETURN
-	CMP #00
-	BNE BN32        ;GOOD DATA...EXIT
-	LDA RSSTAT      ;CHECK FOR DSR OR DCD ERROR
-	AND #$60
-	BNE BN31        ;AN ERROR...EXIT WITH C/R
-	BEQ BN50        ;NO ERROR...STAY IN LOOP
-
 ;***************************************
 ;* BSOUT -- OUT CHARACTER TO CHANNEL   *
 ;*     DETERMINED BY VARIABLE DFLTO:   *
@@ -200,7 +186,7 @@ RSTOR1	RTS
 ;
 ;OUTPUT TO RS232
 ;
-BO50	JSR BSO232      ;PASS DATA THROUGH VARIABLE T1
+BO50	;JSR BSO232      ;PASS DATA THROUGH VARIABLE T1
 	JMP RSTOA       ;GO RESTORE ALL..ALWAYS GOOD
 
 ; RSR 5/12/82 FIX BSOUT FOR NO REG AFFECT BUT ERRORS

kernal/close

@@ -29,31 +29,7 @@ JX050	JSR JZ100       ;EXTRACT TABLE DATA
 	CMP #3
 	BEQ JX150       ;IS SCREEN...DONE
 	BCS JX120       ;IS SERIAL...PROCESS
-	CMP #2          ;RS232?
-	BNE JX115       ;NO...
-;
-; RS-232 CLOSE
-;
-; REMOVE FILE FROM TABLES
-	PLA
-	JSR JXRMV
-;
-	JSR CLN232      ;CLEAN UP RS232 FOR CLOSE
-;
-; DEALLOCATE BUFFERS
-;
-	JSR GETTOP      ;GET MEMSIZ
-	LDA RIBUF+1     ;CHECK INPUT ALLOCATION
-	BEQ CLS010      ;NOT...ALLOCATED
-	INY
-CLS010	LDA ROBUF+1     ;CHECK OUTPUT ALLOCATION
-	BEQ CLS020
-	INY
-CLS020	LDA #00         ;DEALLOCATE
-	STA RIBUF+1
-	STA ROBUF+1
-; FLAG TOP OF MEMORY CHANGE
-	JMP MEMTCF      ;GO SET NEW TOP
+	;CMP #2 removed with rs232
 ;
 ;CLOSE CASSETTE FILE
 ;

kernal/declare

@@ -269,7 +269,7 @@ D1CRB	DS.B 1
 
 	ORG $DD00        ;DEVICE2 6526 (PAGE2 NMI)
 D2PRA	DS.B 1
-D2PRB	DS.B 1
+;D2PRB	DS.B 1  ; only for rs232
 D2DDRA	DS.B 1
 D2DDRB	DS.B 1
 D2T1L	DS.B 1
@@ -281,7 +281,7 @@ D2TODS	DS.B 1
 D2TODM	DS.B 1
 D2TODH	DS.B 1
 D2SDR	DS.B 1
-D2ICR	DS.B 1
+;D2ICR	DS.B 1  ; only for rs232
 D2CRA	DS.B 1
 D2CRB	DS.B 1
 

kernal/open

@@ -52,10 +52,8 @@ OP110	INC LDTND       ;NEW FILE
 ;
 ;PERFORM TAPE OPEN STUFF
 ;
-OP150	CMP #2
-	BNE OP152
+OP150	; CMP #2 removed with rs232 stuff
 ;
-	JMP OPN232
 ;
 OP152	JSR ZZZ         ;SEE IF TAPE BUFFER
 	BCS OP155       ;YES
@@ -155,114 +153,6 @@ OP40	LDA (FNADR),Y
 ;
 OP45	JMP CUNLSN      ;JSR UNLSN: CLC: RTS
 
-; OPN232 - OPEN AN RS-232 OR PARALLEL PORT FILE
-;
-; VARIABLES INITILIZED
-;   BITNUM - # OF BITS TO BE SENT CALC FROM M51CTR
-;   BAUDOF - BAUD RATE FULL
-;   RSSTAT - RS-232 STATUS REG
-;   M51CTR - 6551 CONTROL REG
-;   M51CDR - 6551 COMMAND REG
-;   M51AJB - USER BAUD RATE (CLOCK/BAUD/2-100)
-;   ENABL  - 6526 NMI ENABLES (1-NMI BIT ON)
-;
-OPN232	JSR CLN232      ;SET UP RS232, .Y= 0 ON RETURN
-;
-; PASS PRAMS TO M51REGS
-;
-	STY RSSTAT      ;CLEAR STATUS
-;
-OPN020	CPY FNLEN       ;CHECK IF AT END OF FILENAME
-	BEQ OPN025      ;YES...
-;
-	LDA (FNADR),Y    ;MOVE DATA
-	STA M51CTR,Y    ;TO M51REGS
-	INY
-	CPY #4          ;ONLY 4 POSSIBLE PRAMS
-	BNE OPN020
-;
-; CALC # OF BITS
-;
-OPN025	JSR BITCNT
-	STX BITNUM
-;
-; CALC BAUD RATE
-;
-	LDA M51CTR
-	AND #$0F
-	BEQ OPN028
-;
-; CALCULATE START-TEST RATE...
-;  DIFFERENT THAN ORIGINAL RELEASE 901227-01
-;
-	ASL           ;GET OFFSET INTO TABLES
-	TAX
-	LDA PALNTS      ;GET TV STANDARD
-	BNE OPN026
-	LDY BAUDO-1,X   ;NTSC STANDARD
-	LDA BAUDO-2,X
-	JMP OPN027
-;
-OPN026	LDY BAUDOP-1,X  ;PAL STANDARD
-	LDA BAUDOP-2,X
-OPN027	STY M51AJB+1    ;HOLD START RATE IN M51AJB
-	STA M51AJB
-OPN028	LDA M51AJB      ;CALCULATE BAUD RATE
-	ASL
-	JSR POPEN       ;GOTO PATCH AREA
-;
-; CHECK FOR 3/X LINE RESPONSE
-;
-OPN030	LDA M51CDR      ;BIT 0 OF M51CDR
-	LSR
-	BCC OPN050      ;...3 LINE
-;
-; CHECK FOR X LINE PROPER STATES
-;
-	LDA D2PRB
-	ASL
-	BCS OPN050
-	JSR CKDSRX      ;CHANGE FROM JMP TO PREVENT SYSTEM DAMAGE (901227-02)
-;
-; SET UP BUFFER POINTERS (DBE= DBS)
-;
-OPN050	LDA RIDBE
-	STA RIDBS
-	LDA RODBE
-	STA RODBS
-;
-; ALLOCATE BUFFERS
-;
-OPN055	JSR GETTOP      ;GET MEMSIZ
-	LDA RIBUF+1     ;IN ALLOCATION...
-	BNE OPN060      ;ALREADY
-	DEY             ;THERE GOES 256 BYTES
-	STY RIBUF+1
-	STX RIBUF
-OPN060	LDA ROBUF+1     ;OUT ALLOCATION...
-	BNE MEMTCF      ;ALREAY
-	DEY             ;THERE GOES 256 BYTES
-	STY ROBUF+1
-	STX ROBUF
-MEMTCF	SEC             ;SIGNAL TOP OF MEMORY CHANGE
-	LDA #$F0
-	JMP SETTOP      ;TOP CHANGED
-;
-; CLN232 - CLEAN UP 232 SYSTEM FOR OPEN/CLOSE
-;  SET UP DDRB AND CB2 FOR RS-232
-;
-CLN232	LDA #$7F        ;CLEAR NMI'S
-	STA D2ICR
-	LDA #%00000110  ;DDRB
-	STA D2DDRB
-	STA D2PRB       ;DTR,RTS HIGH
-	LDA #$04        ;OUTPUT HIGH PA2
-	ORA D2PRA
-	STA D2PRA
-	LDY #00
-	STY ENABL       ;CLEAR ENABLS
-	RTS
-
 ; RSR  8/25/80 - ADD RS-232 CODE
 ; RSR  8/26/80 - TOP OF MEMORY HANDLER
 ; RSR  8/29/80 - ADD FILENAME TO M51REGS

kernal/openchannel

@@ -30,10 +30,7 @@ JX310	JSR JZ100       ;EXTRACT FILE INFO
 	CMP #3
 	BEQ JX320       ;IS SCREEN...DONE.
 	BCS JX330       ;IS SERIAL...ADDRESS IT
-	CMP #2          ;RS232?
-	BNE JX315       ;NO...
-;
-	JMP CKI232
+	;CMP #2 removed, no rs232
 ;
 ;SOME EXTRA CHECKS FOR TAPE
 ;
@@ -99,11 +96,7 @@ CK20	JMP ERROR7      ;YES...NOT OUTPUT FILE
 CK10	CMP #3
 	BEQ CK30        ;IS SCREEN...DONE
 	BCS CK40        ;IS SERIAL...ADDRESS IT
-	CMP #2          ;RS232?
-	BNE CK15
-;
-	JMP CKO232
-;
+	; CMP #2 removed with RS232
 ;
 ;SPECIAL TAPE CHANNEL HANDLING
 ;

kernal/patch

@@ -1,13 +1,4 @@
-	ORG $E500-45      ;(38-7)
-; PRTYP - RS232 PARITY PATCH...ADDED 901227-03
-;
-PRTYP	STA RINONE      ;GOOD RECEIVER START...DISABLE FLAG
-	LDA #1          ;SET PARITY TO 1 ALWAYS
-	STA RIPRTY
-	RTS
-
-
-	ORG $E500-32      ;(20-12)
+	ORG $E500-12
 ; FPATCH - TAPE FILENAME TIMEOUT
 ;
 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...
 	BNE FPAT00
 FPAT01	RTS
 
-	ORG $E500-20
-;
-; BAUDOP - BAUD RATE TABLE FOR PAL
-;   .985248E6/BAUD-RATE/2-100
-;
-BAUDOP	.WORD 9853-CBIT  ;50 BAUD
-	.WORD 6568-CBIT  ;75 BAUD
-	.WORD 4478-CBIT  ;110 BAUD
-	.WORD 3660-CBIT  ;134.6 BAUD
-	.WORD 3284-CBIT  ;150 BAUD
-	.WORD 1642-CBIT  ;300 BAUD
-	.WORD 821-CBIT   ;600 BAUD
-	.WORD 411-CBIT   ;1200 BAUD
-	.WORD 274-CBIT   ;1800 BAUD
-	.WORD 205-CBIT   ;2400 BAUD
+	ORG $E500