Color Computers

The technology of tomorrow, available today!

User Tools

Site Tools

Trace:
communications:remote

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

communications:remote [2024/10/02 19:21] – created cococommunications:remote [2024/10/02 19:27] (current) – removed coco
Line 1: Line 1:
-====== REMOTE ====== 
- 
-<code assembly> 
-00100 ******************************* 
-00110 *            REMOTE           * 
-00120 *A REMOTE TERMINAL DRIVER     * 
-00130 *FOR THE COCO                 * 
-00140 *DAN DOWNARD  RAINBOW  11/83  * 
-00150 ******************************* 
-00160         ORG     $3F00 
-00165 *EQUATES FOR ROM AND RAM ADDRESSES 
-00170 IHOOK   EQU     $016A 
-00180 OHOOK   EQU     $0167 
-00190 PIA     EQU     $FF22 
-00200 POLCAT  EQU     $A000 
-00210 RSOUT   EQU     $8E0C 
-00220 BAUD    EQU     $E6 
-00225 BAUDR   EQU     $C9 
-00230 DEV     EQU     $6F 
-00240 FLAG    EQU     $70 
-00245 *INITIALIZE RAM HOOKS 
-00250 START   LDA     #BAUDR 
-00260         STA     <BAUD 
-00270         LDX     1+OHOOK 
-00280         STX     1+ORET2,PCR 
-00290         LDX     1+IHOOK 
-00300         STX     1+IRET2,PCR 
-00310         LDA     #$7E 
-00320         STA     IHOOK 
-00330         STA     OHOOK 
-00340         LEAX    OUT,PCR 
-00350         STX     1+OHOOK 
-00360         LEAX    IN,PCR 
-00370         STX     1+IHOOK 
-00380 RET     RTS 
-00385 *OUTPUT CHARACTER IF DEV=0 
-00386 *INSERT LINE FEEDS TO REMOTE DEVICE 
-00387 *USE ROM SUBROUTINE 
-00390 OUT     PSHS    A 
-00400         TST     <DEV 
-00410         BNE     ORET1 
-00420         CMPA    #$0D 
-00430         BNE     REMOUT 
-00440         LDA     #$0A 
-00450         JSR     RSOUT 
-00460         LDA     #$0D 
-00470 REMOUT  JSR     RSOUT 
-00480 ORET1   PULS    A 
-00490 ORET2   JMP     RET 
-00495 *INPUT FROM KEYBOARD OR RS-232 
-00496 *IF DEV=0 
-00497 *USE RSIN FOR REMOTE INPUT 
-00500 IN      CLR     <FLAG 
-00510         TST     <DEV 
-00520         BNE     IRET2 
-00530         LEAS    2,S 
-00540         PSHS    B,CC,X 
-00550 IN1     JSR     [POLCAT] 
-00560         BEQ     REMIN 
-00570         BRA     IRET1 
-00575 *CHECK FOR REMOTE INPUT 
-00580 REMIN   LDB     $FF22 
-00590         RORB 
-00600         BCS     IN1 
-00605 *RS-232 INPUT ROUTINE 
-00606 *BYTE INTO A REGISTER 
-00610 RSIN    BSR     HALF 
-00620         LDB     #1 
-00630         PSHS    B 
-00640         CLRA 
-00650 RSIN1   BSR     FULL 
-00660         LDB     PIA 
-00670         RORB 
-00680         BCC     RSIN2 
-00690         ORA     0,S 
-00700 RSIN2   ASL     0,S 
-00710         BCC     RSIN1 
-00720         LEAS    1,S 
-00730         ANDA    #$7F 
-00740 IRET1   PULS    B,CC,X,PC 
-00750 IRET2   JMP     RET 
-00755 *BAUD RATE DELAYS 
-00760 FULL    BSR     HALF 
-00770 HALF    PSHS    A 
-00780         LDA     <BAUD 
-00790 HALF1   BRN     HALF1 
-00800         DECA 
-00810         BNE     HALF1 
-00820         PULS    PC,A 
-00830         END     START 
-</code> 
- 
-<code assembly> 
-  
-             00001         00100 ******************************* 
-             00002         00110 *            REMOTE           * 
-             00003         00120 *A REMOTE TERMINAL DRIVER     * 
-             00004         00130 *FOR THE COCO                 * 
-             00005         00140 *DAN DOWNARD  RAINBOW  11/83  * 
-             00006         00150 ******************************* 
-             00007         00160         ORG     $3F00 
-             00008         00165 *EQUATES FOR ROM AND RAM ADDRESSES 
-     016A    00009         00170 IHOOK   EQU     $016A 
-     0167    00010         00180 OHOOK   EQU     $0167 
-     FF22    00011         00190 PIA     EQU     $FF22 
-     A000    00012         00200 POLCAT  EQU     $A000 
-     8E0C    00013         00210 RSOUT   EQU     $8E0C 
-     00E6    00014         00220 BAUD    EQU     $E6 
-     00C9    00015         00225 BAUDR   EQU     $C9 
-     006F    00016         00230 DEV     EQU     $6F 
-     0070    00017         00240 FLAG    EQU     $70 
-             00018         00245 *INITIALIZE RAM HOOKS 
-3F00 86C9    00019         00250 START   LDA     #BAUDR 
-3F02 97E6    00020         00260         STA     <BAUD 
-3F04 BE0168  00021         00270         LDX     1+OHOOK 
-3F07 AF8D003500022         00280         STX     1+ORET2,PCR 
-3F0B BE016B  00023         00290         LDX     1+IHOOK 
-3F0E AF8D006400024         00300         STX     1+IRET2,PCR 
-3F12 867E    00025         00310         LDA     #$7E 
-3F14 B7016A  00026         00320         STA     IHOOK 
-3F17 B70167  00027         00330         STA     OHOOK 
-3F1A 308D000B00028         00340         LEAX    OUT,PCR 
-3F1E BF0168  00029         00350         STX     1+OHOOK 
-3F21 308D001D00030         00360         LEAX    IN,PCR 
-3F25 BF016B  00031         00370         STX     1+IHOOK 
-3F28 39      00032         00380 RET     RTS 
-             00033         00385 *OUTPUT CHARACTER IF DEV=0 
-             00034         00386 *INSERT LINE FEEDS TO REMOTE DEVICE 
-             00035         00387 *USE ROM SUBROUTINE 
-3F29 3402    00036         00390 OUT     PSHS    A 
-3F2B 0D6F    00037         00400         TST     <DEV 
-3F2D 260E    00038         00410         BNE     ORET1 
-3F2F 810D    00039         00420         CMPA    #$0D 
-3F31 2607    00040         00430         BNE     REMOUT 
-3F33 860A    00041         00440         LDA     #$0A 
-3F35 BD8E0C  00042         00450         JSR     RSOUT 
-3F38 860D    00043         00460         LDA     #$0D 
-3F3A BD8E0C  00044         00470 REMOUT  JSR     RSOUT 
-3F3D 3502    00045         00480 ORET1   PULS    A 
-3F3F 7E3F28  00046         00490 ORET2   JMP     RET 
-             00047         00495 *INPUT FROM KEYBOARD OR RS-232 
-             00048         00496 *IF DEV=0 
-             00049         00497 *USE RSIN FOR REMOTE INPUT 
-3F42 0F70    00050         00500 IN      CLR     <FLAG 
-3F44 0D6F    00051         00510         TST     <DEV 
-3F46 262D    00052         00520         BNE     IRET2 
-3F48 3262    00053         00530         LEAS    2,S 
-3F4A 3415    00054         00540         PSHS    B,CC,X 
-3F4C AD9FA00000055         00550 IN1     JSR     [POLCAT] 
-3F50 2702    00056         00560         BEQ     REMIN 
-3F52 201F    00057         00570         BRA     IRET1 
-             00058         00575 *CHECK FOR REMOTE INPUT 
-3F54 F6FF22  00059         00580 REMIN   LDB     $FF22 
-3F57 56      00060         00590         RORB 
-3F58 25F2    00061         00600         BCS     IN1 
-             00062         00605 *RS-232 INPUT ROUTINE 
-             00063         00606 *BYTE INTO A REGISTER 
-3F5A 8D1E    00064         00610 RSIN    BSR     HALF 
-3F5C C601    00065         00620         LDB     #1 
-3F5E 3404    00066         00630         PSHS    B 
-3F60 4F      00067         00640         CLRA 
-3F61 8D15    00068         00650 RSIN1   BSR     FULL 
-3F63 F6FF22  00069         00660         LDB     PIA 
-3F66 56      00070         00670         RORB 
-3F67 2402    00071         00680         BCC     RSIN2 
-3F69 AA60    00072         00690         ORA     0,S 
-3F6B 6860    00073         00700 RSIN2   ASL     0,S 
-3F6D 24F2    00074         00710         BCC     RSIN1 
-3F6F 3261    00075         00720         LEAS    1,S 
-3F71 847F    00076         00730         ANDA    #$7F 
-3F73 3595    00077         00740 IRET1   PULS    B,CC,X,PC 
-3F75 7E3F28  00078         00750 IRET2   JMP     RET 
-             00079         00755 *BAUD RATE DELAYS 
-3F78 8D00    00080         00760 FULL    BSR     HALF 
-3F7A 3402    00081         00770 HALF    PSHS    A 
-3F7C 96E6    00082         00780         LDA     <BAUD 
-3F7E 21FE    00083         00790 HALF1   BRN     HALF1 
-3F80 4A      00084         00800         DECA 
-3F81 26FB    00085         00810         BNE     HALF1 
-3F83 3582    00086         00820         PULS    PC,A 
-             00087         00830         END     START 
-</code> 
  
communications/remote.1727914910.txt.bz2 · Last modified: 2024/10/02 19:21 by coco

Page Tools

Except where otherwise noted, content on this wiki is licensed under the following license: Copyright © 2024-2025 CoCo and the ColorComputers.com contributors. All Rights Reserved.
Valid HTML5 Valid CSS Driven by DokuWiki