Radio Shack TRS-80 Model II Reference Manual page 246

Model II TRSDOS
;
----
--
----------
-------------~
------------ ------ ---- --
--
----
----
ERROR MSG
GET LENGTH FROM FRONT
HL => TEXT ITSELF
01 SPLAy LI NE SVC
PERFORM THE SVC
ERROR MESSAGE
GET LENGT1-j OF MESSAGE FROM FRnNT
GET HL
~>
TEXT ITSELF
DISPLAY LINE SVC
PERFnRM THE SVC
RETURN TO TRSDOS
'UNKNClV'\I\I
ERQ]~
USING CHANNEL A CONTQOL FUNCTION·
HL,MSG2
B, (HL)
HL
A,9
8
LO
A,Q7
TqA~SIy1IT Tll CH A ~IN~~L A ":-~vC
RST 8
PEr:;>FOMM
THE SVC
JP
NZ, XMIT "UST BE BUSY, TPY
AGAIN
JP
STAPT
GUnD,
KEEP LnnPI NG
WE HAVE A CHARACTf=:R i="l(nlvl THE KEYBOARD (I"J 6);
TRANSMIT IT
LOST DATA CARflIER - DISPLAY A MESSAGE, WAIT FOR CARRIER
TO RETURN, AND START BACK AT TOP OF LOOP
ERROR HA\JDU':RS HERE
DEFT
LlJ
LD
INC
LD
RST
LO HL,MSGI
LO 8, (111_)
INC HL
LD A,.9
PST 8
RET
1
1
1
XII.! T:
MSG 1:
PAGE: 2
CLDOP:
LD
0,0 FUNCT I ON FOR GETTI NG STATUS
LD
A,100 CH A CONTROL SVC
RST 8 PERFORM THE SVC
JR
!\JZ ,EI:<ROR ERROR (BAD FUNCT ION
])
BIT 3,8 SEE IF CARRIER BIT STI LL ON
JP \JZ ,CLooP IF ON ( IE
-
CARRIER NOT THERE) • WAIT
JR START
IF CARRIER THERE, RETURN TO MAIN LOOP
MSG21
DEFT
.. LOST DATA CARRI:':R ON CHM"'lEL A'
END STAPT
TRANSFER CONTROL TO ·
II
STARTJI
1----------------------------------------------------------------
1
1
I
1
LOSTC:
r
1 U
Sep 4,
1980
15:38.45
55
650
56
660
57
"70
'....,8
3'.119
3E6 I
"'30
59 3015 CF 690
00 301C 20FB 700
01 110
b2 301E 18E':I 720
c,]
/30
04 14':1
05 7'00
r,6 760
07 770
08 3020 212930 780
hq
3023 40
790
1'6 3024 23 B00
/1
3025 3E09 dl0
72 3027 CF 820
13 3028 C9 830
74 840
,5 3029 2E 850
10 800
77 870
18 880
79 890
80 900
<31 910
02 3058 216030 920
iD 3056 46 930
84
3"'5C
23
94'"
85 3050 3E09 950
d6 305F CF 960
d7 970
·-38
3060
0""0
9'l0
h9
3062 3E04 990
90 3064 CF 1000
91 3065 2009
1"10
92 1020
93 3067 CB58 1030
94
30b9 20F5
1040
95 306B
J
8'13 1050
96 1060
97 3060 IE 1070
'18 1080
99
1090
1':10 3000 1100
0,!000
Assembly Errors
282