| Atom Nieuws jaargang 1999 nummer 2 |
|
pagina 11 |
Remote Atom biedt ons de overbodige luxe om de Atom-in-PC via een "Remote Atom Server" en een seriële verbinding te benaderen vanaf een pc of notebook. We kunnen dus wel gebruik maken van het terminal programma, zonder dat de Atomkaart fysiek in het systeem aanwezig is.
Is dat leuk? Ja, ik vind van wel. Is dat nuttig? Nee, gezien de korte afstand tussen het "client" systeem en de server is er niets nuttigs aan. Waarom dan dit programma?
Dit programma is geschreven met het doel op een nieuwe functie voor het terminal programma. Vanaf versie 4.25 is de source, die toch bijna niemand heeft, gesplitst in twee functionele groepen. De eerste groep van files neemt de afhandeling van de terminal programma commando’s voor haar rekening; de twee groep zorgt voor de communicatie tussen de Atom en het terminal programma. Zo ziet u in onderstaande listing de lees en zendroutine voor de "normale" terminal:
LEESBYTE PROC
NEAR
PUSH DX
; SAVE GEBRUIKTE REGISTERS
LEESBYTE1: MOV
DX,PPI_ADDR ; LAADT STATUSREGISTER ADRES
ADD DX,2
IN AL,DX
; LEES STATUSREGISTER
TEST AL,00100000B ; TEST OP INPUT BUFFER
FULL
JNZ LEESBYTE2
; SPRING INDIEN EEN BYTE ONTVANGEN
JMP SHORT LEESBYTE1
LEESBYTE2: SUB
DX,2
; POORTADRES VERLAGEN
IN AL,DX
; LEES DATA
POP DX
; HERSTEL DX REGISTER
RET
; EINDE ROUTINE
LEESBYTE ENDP
ZENDBYTE PROC
NEAR
PUSH DX
; SAVE GEBRUIKTE REGISTERS
PUSH AX
MOV DX,PPI_ADDR ; LAADT
ADRES STATUSREGISTER
ADD DX,2
ZENDBYTE1: IN
AL,DX ; LEES
STATUSREGISTER
TEST AL,00000010B ; TEST OP OUTPUT
BUFFER EMPTY
JZ ZENDBYTE1
; SPRING ALS VORIG TEKEN NIET GELEZEN
DEC DX
; POORTADRES VERLAGEN
POP AX
; HAAL DATA VAN STACK
OUT DX,AL
; VERSTUUR DATA
POP DX
; HERSTEL DX
RET
; EINDE ROUTINE
ZENDBYTE ENDP
De volgende listing toont de routines voor de remote atom terminal:
LEESBYTE PROC
NEAR
LEESBYTE1: MOV
AL,5
; LAADT SERVER COMMANDO
CALL SERVER
; VOER COMMANDO UIT
TEST AL,00100000B ; TEST OP INPUT BUFFER
FULL
JNZ LEESBYTE2
; SPRING INDIEN EEN BYTE ONTVANGEN
JMP SHORT LEESBYTE1
LEESBYTE2: MOV
AL,1
; LAADT SERVER COMMANDO
CALL SERVER
; STUUR NAAR COMMANDO
RET
; EINDE ROUTINE
LEESBYTE ENDP
ZENDBYTE PROC
NEAR
PUSH AX
ZENDBYTE1: MOV
AL,5
; LAADT SERVER COMMANDO
CALL SERVER
; STUUR NAAR SERVER
TEST AL,00000010B ; TEST OP OUTPUT
BUFFER EMPTY
JZ ZENDBYTE1
; SPRING ALS VORIG TEKEN NIET GELEZEN
MOV AL,2
; LAADT SERVER COMMANDO
CALL SERVER
; STUUR NAAR SERVER
POP AX
; HAAL DATA VAN STACK
PUSH AX
; NOG EVEN BEWAREN
CALL SERVER
; STUUR DATA NAAR SERVER
POP AX
; HERSTEL AX
RET
; EINDE ROUTINE
ZENDBYTE ENDP
SERVER PROC
NEAR
PUSH DX
; BEWAAR GEBRUIKTE REGISTERS
PUSH AX
MOV DX,PPI_ADDR ; LAADT
ADRES VAN COMPOORT
ADD DX,5
; LINE STATUS REGISTER
ATOMTX1: IN
AL,DX ; LEES
STATUS
TEST AL,20H
; CONTROLEER OP THRE
JZ ATOMTX1
; SPRING INDIEN NIET GEREED
SUB DX,5
; DATA REGISTER
POP AX
; HERSTEL COMMANDO (in al)
OUT DX,AL
; VERSTUUR COMMANDO
ADD DX,5
; LINE STATUS REGISTER
ATOMTX2: IN
AL,DX ; LEES
STATUS
TEST AL,01H
; TEST OF BYTE ONTVANGEN IS
JZ ATOMTX2
; NEE, DAN NOG FF WACHTEN
SUB DX,5
; RECEIVE BUFFER
IN AL,DX
; LEES DATA
POP DX
; HERSTEL DX REGISTER
RET
; EINDE ROUTINE
SERVER ENDP
In het laaste stuk wordt de communicatie op geheel andere wijze geregeld.
Daar waar de normale terminal een register van de Atomkaart rechtstreeks
vanaf de I/O bus leest, stuurt de remote terminal een opdracht via de seriële
poort naar de server. Deze opdrachten zijn:
| Schrijf | Lees | Offset |
| 0 | 1 | 0 |
| 2 | 3 | 1 |
| 4 | 5 | 2 |
| 6 | 7 | 3 |
Indien de kaart geplaatst is op adres 31C zal het commando 5 dus adres 31E uitlezen, dit is het statusregister van de 8255. Een andere vergelijking die het verschil en toch de overeenkomst laat zien zijn de reset routines. De eerste listing is wederom de normale terminal, direct daarop volgend staat de remote terminal client afgedrukt.
HW_RESET PROC
NEAR ; normale Atom-in-PC terminal
MOV DX,PPI_ADDR ; LAADT
ADRES COMMAND REGISTER 8255
ADD DX,3
MOV AL,0EH
; GEEF RESETPULS
OUT DX,AL
; PC7 LAAG
MOV CX,00FFH
; WACHT KORTE TIJD
RESETPAUSE: LOOP RESETPAUSE
MOV AL,0FH
;
OUT DX,AL
; PC7 HOOG
RET
HW_RESET ENDP
HW_RESET PROC
NEAR
; remote atom terminal
MOV AL,6
; LAADT SERVER COMMANDO
CALL SERVER
; STUUR NAAR SERVER
MOV AL,0EH
; LAADT DATA
CALL SERVER
; STUUR NAAR SERVER
MOV AL,6
; LAADT SERVER COMMANDO
CALL SERVER
; STUUR NAAR SERVER
MOV AL,0FH
; LAADT DATA
CALL SERVER
; STUUR NAAR SERVER
RET
; EINDE RESET OPDRACHT
HW_RESET ENDP
De assembler include file waarin de communicatie routines staan moet de volgende routines hebben:
; **************************************************************************
;
A T O M I S A . I N C
; **************************************************************************
; Use this module if your Atom-in-PC board is plugged into your
workstation.
; All entries are supported, although some routines have No Operation.
; Entries: AUTO_DETECT tries to find your Atom-in-PC
within the address
;
range 300h-31Ch. The address must be placed in
;
PPI_ADDR. If auto-detect fails or no Atom-in-PC
;
is installed then PPI_ADDR should be 0000h.
; NEW_ADDRESS
changes the auto-detected address into the
;
address passed by the DX register. The address must
;
be placed in PPI_ADDR.
; HW_INIT
initializes the hardware
; HW_RESET
resets the hardware
; LEESBYTE
reads a byte from the Atom-in-PC board
; ZENDBYTE
sends a byte to the Atom-in-PC board
; SW_VERSION
returns the version to the Atom-in-PC board
; INFOPAR
is the routine used by the /? parameter
; error0
holds your copyright line and textual version info
; SHUTDOWN
unused by ATOMISA but should be used by RemoteAtom
; **************************************************************************
; Author: Roland Leurs
; Date: july 10th, 1999
; **************************************************************************
Bovenstaande routines moeten dus in de file opgenomen worden. Indien ze niet gebruikt worden is een RET instructie voldoende. Als voorbeeld zie je hier de SHUTDOWN routine staan die in de normale terminal niet nodig is, maar wel in remote atom gebruikt wordt om de DTR/RTS signalen te doven zodat de server weet dat er geen client connectie meer is.
SHUTDOWN PROC
NEAR
RET
; DOET NIETS BIJ ISABUS
SHUTDOWN ENDP
SHUTDOWN PROC
NEAR
MOV DX,PPI_ADDR ; LAADT
ADRES VAN SERIELE POORT
ADD DX,4
; MODEM CONTROL REGISTER
MOV AL,00H
; CLEAR DTR EN RTS
OUT DX,AL
; SCHRIJF NAAR MCR
RET
; GEEN FUNCTIE
SHUTDOWN ENDP
Je zal nu wel denken: inderdaad, leuk. Maar wat moet ik er nu mee? Enkele
meer serieuze toepassingen zijn:
· module voor AIC koppeling met Atom
· module voor koppeling met Electron of BBC computer
· module voor koppeling met welk ander (zelfgemaakt) processorsysteem
dan ook
· module voor netwerk koppeling (dus Netbios over TCP/IP i.p.v.
seriële kabel)
We kunnen nu dus andere systemen koppelen met een PC, het enige dat we moeten verzorgen is de communicatie tussen het terminal programma en het processor systeem. We zijn hierin helemaal vrij. Guido kan dus via een eenvoudige manier zijn versterker koppelen aan een PC. Alle instellingen kunnen dan op zijn PC scherm weergegeven en/of gewijzigd worden. Hoever gaat je fantasie?
De 8-bits werkgroep van de Big Ben Club kan een seriële koppeling tussen BBC en PC maken en vervolgens PcDFS (van BBC Basic op Atom-in-PC) aanpassen zodat een BBC gebruik maakt van de PC harddisk (en de muis, en de printer, en ... en ... en ...)
Twee mogelijkheden die ik zelf nog wil uitwerken zijn de netwerk koppeling,
zodat ik de volgende zomer met de klaptop in de tuin kan zitten en toch
gebruik maken van de Atomkaart die op zolder in een PC draait. Daarnaast
ga ik de mogelijkheden bekijken om een interface print te maken die de
mogelijkheid biedt om de Atom-in-PC kaart, zonder wijziging van de hardware,
geschikt maakt voor communicatie via de seriële poort.
Hierbij denk ik aan een ISA-slot waarop alle noodzakelijke signalen
gegenereerd worden door een 16F84 PIC. Op deze mini-ISA komen dan de Atom-in-PC
kaart en een 8250 te zitten. Op die manier wil ik de koppeling tussen Atom-in-PC
en notebook realizeren. Dat scheelt een halve verhuizing als er weer eens
een landdag bezocht wordt....
De voornaamste reden van de splitsing van functionaliteit en communicatie
in het terminal programma is dus het beschikbaar maken van een terminal
programma voor welk (nog te bouwen) processor systeem dan ook. Bij het
uitbreiden van de commando-set hoeven niet steeds weer alle varianten aangepast
te worden. Updaten is dan een kwestie van opnieuw assembleren met de juiste
include-file.
Voor de I/O liefhebbers staat hieronder nog even de Remote Atom Server listing:
PAGE ,132
TITLE
REMOTE ATOM SERVER V2.xx
; --------------- versie 1.xx ----------------- augustus 1999 ---------------
; Initiele versie met basis-support.
; --------------- versie 2.xx ----------------- augustus 1999 ---------------
; Geheel herziene versie met basis-support.
; --------------------------------------------------------------------------
CSEG
SEGMENT PARA PUBLIC 'CODE'
ASSUME CS:CSEG, DS:CSEG, ES:CSEG, SS:CSEG
ORG 100H
REMATOM: JMP
SERIAL_INIT
; --------------------------------------------------------------------------
; CONSTANTEN, VARIABELEN EN TABELLEN
; --------------------------------------------------------------------------
COM_ADDR EQU
3F8H
; COM1
PPI_ADDR EQU
31CH
; BASISADRES VAN ATOMKAART
DELAY
EQU 3000H
; VERTRAGING VOOR "LED"
STATUS DB ? ; STATUSVLAG
; --------------------------------------------------------------------------
; Initialisatie van seriele poort
; --------------------------------------------------------------------------
SERIAL_INIT: MOV DX,COM_ADDR
; LAADT ADRES COMPOORT
ADD DX,3
; LINE CONTROL REGISTER
MOV AL,80H
; ZET DLAB OP '1'
OUT DX,AL
; SCHRIJF NAAR LCR
SUB DL,3
; DIVISOR LATCH
MOV AX,0001H
; LAADT WAARDE VAN DEELTAL
OUT DX,AX
; SCHRIJF NAAR LATCH
ADD DX,3
; TERUG NAAR LINE CONTROL REGISTER
MOV AL,03H
; NO PARITY, 1 STOPBIT
OUT DX,AL
; SCHRIJF NAAR LCR
INC DX
; MODEM CONTROL REGISTER
MOV AL,03H
; SET DTR EN RTS
OUT DX,AL
; SCHRIJF NAAR MCR
; --------------------------------------------------------------------------
; Scherm opbouw
; --------------------------------------------------------------------------
MESSAGE: MOV
AX,0003H ; LAADT CODE VOOR TEKSTMODE
INT 10H
; WIS SCHERM
MOV BX,0B000H
; SEGMENT ADRES VAN VIDEO GEHEUGEN
PUSH BX
; OP STACK ZETTEN
POP ES
; TERUGHALEN IN ES
MOV BX,8001H
; OFFSET ADRES VAN VIDEO GEHEUGEN
MOV AL,0EH
; SCHERMKLEUR GEEL
ATTRIB: MOV
ES:BX,AL ; ZET ATTRIBUUT
INC BX
; VERHOOG POINTER
INC BX
; VERHOOG POINTER
CMP BX,9001
; VOLDOENDE ADRESSEN GEDAAN
JNE ATTRIB
; NEE, DAN VOLGENDE
LEA DX,TEKST
; LAADT POINTER NAAR TEKST
MOV AH,9
; LAADT DOS FUNCTIE CODE
INT 21H
INITIALIZE: MOV
AL,08H ; LAADT ATTRIBUUT
VOOR DISCONNECT
CALL CONNECT
; KLEUR CONNECT TEKST
MOV ES:829DH,BYTE PTR 08H
; "RX LED" UIT
MOV ES:82CFH,BYTE PTR 08H
; "TX LED" UIT
WAIT4CLIENT: MOV DX,COM_ADDR
; LEES BASISADRES COMPOORT
ADD DX,6
; MODEM STATUS REGISTER
IN AL,DX
; LEES STATUS
AND AL,0A0H
; TEST OP RTS/DTR
CMP AL,0A0H
JE CONNECTED
; SPRING INDIEN VERBONDEN
MOV AH,01H
; BIOS FUNCTIE: KB SCAN
INT 16H
JZ WAIT4CLIENT ;
SPRING INDIEN GEEN TOETS
MOV AH,00H
; BIOS FUNCTIE: KB LEES
INT 16H
CMP AL,27
; TEST OP ESCAPE
JNE WAIT4CLIENT ; SPRING
INDIEN GEEN ESCAPE
SERVER_STOPPED: RET
; EINDE PROGRAMMA
CONNECTED: MOV
AL,0AH ; LAADT ATTRIBUUT
CALL CONNECT
; GEEFT CONNECTIE AAN
MOV STATUS,0FFH ; STATUS:
CLIENT CONNECTED
; --------------------------------------------------------------------------
; Hoofdlus
; --------------------------------------------------------------------------
SERVER: MOV
DX,PPI_ADDR ; ZET BASISADRES VAN ATOM IN DX
CALL GET_DATA
; LEES BYTE VAN CLIENT
CMP STATUS,27
; ESCAPE GEDRUKT?
JE SERVER_STOPPED ; JA, EINDE PROGRAMMA
CMP STATUS,00
; CLIENT VERBINDING VERBROKEN?
JE INITIALIZE
; JA, OPNIEUW BEGINNEN
XOR AH,AH
; MAAK AH 0
SHR AL,1
; SCHUIF EEN POSITIE NAAR RECHTS
JC REG_READ
; INDIEN CARRY DAN NAAR LEESROUTINE
REG_WRITE: CALL
PUT_DATA ; STUUR ACK1
ADD DX,AX
; TEL OFFSET OP BIJ BASISADRES ATOM
CALL GET_DATA
; LEES DATA
CALL PUT_DATA
; STUUR ACK2
OUT DX,AL
; SCHRIJF DATA NAAR REGISTER
JMP SHORT SERVER ; LEES VOLGENDE
OPDRACHT
REG_READ: ADD
DX,AX ; TEL
OFFSET OP BIJ BASISADRES ATOM
IN AL,DX
; LEES REGISTER
CALL PUT_DATA
; STUUR NAAR CLIENT
JMP SHORT SERVER ; LEES VOLGENDE
OPDRACHT
; --------------------------------------------------------------------------
; Stuur byte naar client
; --------------------------------------------------------------------------
PUT_DATA PROC
NEAR
PUSH DX
; BEWAAR DX REGISTER
PUSH AX
; BEWAAR DATA
MOV DX,COM_ADDR ; LEES
ADRES VAN COMPOORT
ADD DX,5
; LINE STATUS REGISTER
PUT1:
IN AL,DX
; LEES STATUS
TEST AL,20H
; TEST OP THRE
JNZ PUT2
; GA DATA LEZEN
CALL LED_UIT
; MAAK "LEDS" UIT
JMP SHORT PUT1 ;
PROBEER OPNIEUW
PUT2:
POP AX
; HERSTEL DATA
SUB DX,5
; TRANSMIT DATA REGISTER
OUT DX,AL
; VERSTUUR DATA
MOV ES:82CFH,BYTE PTR 0AH
; "TX LED" AAN
MOV CX,DELAY
; LAADT VERTRAGING VOOR "LED"
POP DX
; HERSTEL DX REGISTER
RET
; EINDE ROUTINE
PUT_DATA ENDP
; --------------------------------------------------------------------------
; Lees byte van client
; --------------------------------------------------------------------------
GET_DATA PROC
NEAR
PUSH DX
; BEWAAR DX REGISTER
MOV DX,COM_ADDR ; LEES
ADRES VAN COMPOORT
ADD DX,5
; LINE STATUS REGISTER
GET1:
IN AL,DX
; LEES STATUS
TEST AL,01H
; TEST OF DATA ONTVANGEN IS
JNZ GET3
; JA, DAN VERDER
CALL LED_UIT
; MAAK "LEDS" UIT
INC DX
; MODEM STATUS REGISTER
IN AL,DX
; LEES MODEM STATUS
DEC DX
; LINE STATUS REGISTER
AND AL,0A0H
; TEST OP DTR/RTS
CMP AL,0A0H
; TEST OF BEIDE ACTIEF
JNE GET5
; SPRING INDIEN NIET GELIJK
MOV AH,01
; BIOS FUNCTIE: KB SCAN
INT 16H
JZ GET2
MOV AH,00
; BIOS FUNCTIE: KB LEZEN
INT 16H
CMP AL,27
; TEST OP ESCAPE
JNE GET1
; GA OPNIEUW LEZEN
MOV STATUS,27
; ZET STATUS: ESCAPE GEDRUKT
JMP SHORT GET4 ;
GA OPNIEUW LEZEN
GET5:
MOV STATUS,00
; STATUS: CLIENT DISCONNECTED
JMP SHORT GET4
GET2:
JMP SHORT GET1 ;
GA OPNIEUW LEZEN
GET3:
SUB DX,5
; RECEIVE DATA BUFFER
IN AL,DX
; LEES ONTVANGEN DATA
MOV CX,DELAY
; LAADT VERTRAGING VOOR "LED"
MOV ES:829DH,BYTE PTR 0AH
; "RX LED" AAN
CLC
; CLEAR CARRY VOOR DATA ONTVANGEN
GET4:
POP DX
; HERSTEL DX REGISTER
RET
; EINDE ROUTINE
GET_DATA ENDP
CONNECT PROC
NEAR
MOV BX,82E1H
; OFFSET ADRES VAN CONNECT-TEKST
CONNECT1: MOV
ES:BX,AL ; SCHRIJF ATTRIBUUT
NAAR VIDEO
INC BX
; VERHOOG POINTER
INC BX
; VERHOOG POINTER
CMP BX,831FH
; TEST OP EINDE REGEL
JNE CONNECT1
; SPRING INDIEN NOG KARAKTERS VOLGEN
RET
; EINDE ROUTINE
CONNECT ENDP
LED_UIT PROC
NEAR
DEC CX
; VERLAAG TIMER
CMP CX,0
; TIJD VERSTREKEN?
JNE LED_BLIJFT_AAN ; NEE, DAN LEDS NIET UITMAKEN
MOV ES:829DH,BYTE PTR 08H
; "RX LED" UIT
MOV ES:82CFH,BYTE PTR 08H
; "TX LED" UIT
LED_BLIJFT_AAN: RET
; EINDE ROUTINE
LED_UIT ENDP
TEKST: DB
"**************************************************",10,13
DB "* Remote Atom Server V2.0 (c) 1999 Roland Leurs *",10,13
DB "**************************************************",10,13
DB "Receive Data * Transmit Data *
Client connected on COM1",10,10,13
DB "Press escape to stop server . . . $"
CSEG
ENDS
END REMATOM
Deze files komen binnenkort op de AtomWare CD te staan.
Roland Leurs