Radio Shack 26-1145 - Page 27

Term
Program
Listing (Continued)
00023 5012 CD4F50 INS. CALL
SIN
00024 5ol5
B7
OR
A
00025 50
1
.;.
2812
JR Z,
OUTS
0002
c 50 IS
E67F
AND 7FH
0002 7 501 A FE60
CF' cOH
00028 50 1
C
FA2
1 50 ;
..IP
M,
*
+
5
00029 50 IF
E65F AND 5FH
oOO6u 5o2 1
FEoa LP OAH
00031 5023 2SED
JR Z.
INS
00032 5025 CD3300
CALL
DSP*
00033 5o2S
18ES
•JR INS
00035
502A CD2B00 OUTS CALL CUD*
0003c*
50 2D B7
OR A
0003
/'
502E
28E2
JR
I,
INS
0OO38 5o30
FE05
CP
05H
OOOS":-' 50 32 F23D50 :
..IP
P,
NOSPEC
00040 5035 2 1 BS50 :
LD
HL,
SPECTB-1
0004
i 5o3S
4F LD C. A
00042 5039 0600
LD B,
00043 503B 09
ADD HL, BO
00044 503C 7E LD A,
(HL)
00045 503D
FE1A NOSPEC
CF' 1 AH
00046 50
3
F 2SD1
.JR Z, INS
00047 5o4 1 CD4e-50
CALL 30UT
00048 5044 18CC
OR I MS
00050
RS-2
32-C
DRIVER CALL S
EQUENCE
00052 504o 116150 :
SOU
T
LD
DE, SUCB
0O053
5049 C'5
PUSH BC
00054
504A
Oo20
LD B, 2
OH
00055 5040 C34600
JP CIO*
00057 50 4F 1 It. 150 SIN LD
DE, SUCB
00058 5052 C5
PUSH BC
00059 5053 *j<r-4<j LD
B, 40H
OoOC'O 5055 C34c-00
JP CIO*
oO' >c2 5058 1 1 e. 1 50 MRU
ART
LD DE,
SUCB
0006-3 505B C5
PUSH
BC
OOOc-4 505C Oc-80
LD B. SOH
0006.5
505E C34600
•JP CIO*
SEE IF
NEW
MART
INPUT
IF NO I,
LOOK AT KB
STRIP
PARITY FROM ASCII.
CONV, LOWER TO
UPPER
CASE
IGNORE
"LF".
DISPLAY
DISPLAiABLE CHAR.
ON CRT
SPECIAL
CODES TABLE
; HL
=1.
SELECTED
SPEC CODE
,
GET
SPECIAL CODE
IGNORE
SHIFT
DOWN-ARROW
OUTPUT KB
INPUT TO RS-232-C
.OUTPUT
ByTE.
INPUT ByTE
IF
AMY
;
RESET UART.
RS-232-C
UNIT CONTROL
BLOCK
X'Oc.9 50c. 1 EO
: ;UCB BYTE
OEOH
i
x>07o 50c.
2 c-950 >
WORD RS232
;
J0071 50c4 00
BrTE
J0072 5065 00
ByTE
X'iO
7
3
506.6
00 B
Y I E
J00
7 4
50c
7 00
ByTE
0o075 50C.S 00
BYTE
J00
7
7
RS-232-C
DRIVER
00078
000
7
9
ENTRy: IX =o
UCB+O
00080
C
=
PARAMETER
0008 1
B
=
FCT
CODE
000£2
00083
EXIT: A
=
STATUS
OR DATA
00085 5069 78
RS232 LD
A, B
0008c-
50cA 17
RLA
00087 506B
3821
.JR C,
I UART
00088 50oD
17
RLA
00089 506E 3805
JR C,
RSRD
00090 50 70 1 7
RLA
00091 507 1 330E
JR C,
RSWR
00092 5073
AF
RSX
XOR A
OOOV3 5074 C9
RET
00095 5075
DBEA
RSRD IN
A, (CTRL)
00096
5077 DD7
7 05
LD
(IX+5>,A
00097 507A CB7F
BIT
7, A
FUNCI
IONS MASK
DRIVER ADDRESS
TERM
SWITCH
CONFK
BAUD
RATE
CODE
UART
STATUS
MODEM
STATUS
CTRL REO
IMAGE
EXAMINE
FCT
POST
REG
GET UART
ST
ATI.
IMAGE TO
HOP
IS
RCVD
BYTE
AVAIL
24