Radio Shack 26-1145 - Page 31

7F25 4F
88386
LD Cfi ; PUT
OFFSET IN C
7F26
89
88398
HDD HLBC
; ADO OFFSET TO HL
7F27
7E 88488
LD fc <HL> ; LORD POINTED VALUE
7F28 D3E9
88418
OUT (SWITCH),
fl ; LORD BRG W/TABLE
VALUE
7F2A Fl 88428 RESTOR
POP
AF
7F2B CI 88438
POP
BC
7F2C
Ei 88448
POP
HL ; RESTORE REG
86456
,
THIS SECTION
OF
CODE DOES THE ACTUAL OUTPUT OF
THE
CHAR. TO
THE
UART FOR SERIAL
XHIT.
86452
; IT FIRST CHECKS THE UfiRT
TO SEE IF IT'S
HOLDING REGISTER
IS EHPTV, LOOPS UNTIL IT IS
86453 ; ft*
LOADS
THE CHARACTER TO
BE
TRANSMITTED
TO THE HOLDING
REGISTER.
IF THE CHAR HAS A CARRIAGE
88454
; RETURN A LINE
FEED
IS ALSO OUTPUT.
7F2D DBEA 86498 STATIN
IN fl, (CNTREG) ; LOAD
UfiRT STATUS
7F2F CB77 88588
BIT 6,
A ; TEST THRE
FOR HIGH
7F31 28FA
88518 JR
Z,
STATIN ;
LOOP
IF
NOT
7F33
79
88528
LD A,C
; LOAD A HrtHAR TO BE OUTPUT
7F34
D3EB
68538 OUT (DTAREG),A
; LOAD HOLDING REG H/CHAR
7F36
FE8D
68548 CP 8DH
;
IS
IT
A CARRIAGE RET ?
7F38 2864 88556
JR
NZ,RETRN ; RETURN
IF NOT
7F3R 6E6A
88568
LD C8AH ; IF SO OUTPUT A
LINE FEED ALSO
7F3C
18EF 88578
JR
STATIN ;
OUTPUT
TO
UART
7F3E
C9 88588 RETRN RET
;
RETURN TO CALLING
CODE
68598
;
THE FOLLOWING
TABLE DEFINES THE BAUD RATE SELECTED
BV
THE
SENSE
SNITCHES IN THE INTERFACE
7F3F 22 88668 BDTABL DEFB 22H i 116
BAUD
7F46 44
86618 DEFB 44H ; 158 BAUD
7F41
55 88628 DEFB
55H ; 388 BAUD
7F42 66 88638 DEFB 66H ; 688 BAUD
7F43 77 88648 DEFB 77H ; 1288 BAUD
7F44 AA 88658 DEFB 8AAH > 2488 BAUD
7F45 CC 88668 DEFB
8CCH ; 4886 BAUD
7F46 EE 88678 DEFB BEEH ;
9688
BAUD
7F47 86
86688
SHT1MG DEFB 86H
;
IMAGE
OF HANDSHAKE LATCH
7F48 66 86698 FLAG DEFB 86H ; FLAG TO INDICATE INITIALIZATION
8886 86788 END
88888 TOTAL ERRORS
RETRN 7F3E
STATIN 7F2D
BDTABL
7F3F
BAUDST 7F1C
SHTIMG 7F47
RESTOR
7F2A
FLAG 7F48
INIT 7F88
DTAREG 86EB
CNTREG 88EA
SWITCH
68E9
RESURT 86E8
28