Advertisement
MCS-96
MACRO
ASSEMBLER
EV96
ERR LOC
OBJECT
8032
8035
SO35
OD0830
8038
803630
803D
8042
8047
OCO830
804A
0734
804E
804E
89010030
8052
D7BF
8054
FF
8055
27FE
LINE
'98
199
BOO
I301
803
804
805
806
807
808
809
812
813
814
815
816
817
819
822
823
824
825
826
827
828
829
831
832
833
836
837
838
839
840
841
842
843
844
845
846
01/24/89
13:55:41
PAGE
24
WURCE
STATEMENT
force-load-data:
;------ --------
CLR-BIT
RISM-STAT,
DLE-FLAG
load-data:
. --------
,
shll
RISM-DATA,
f8
ldb
RISM-DATA,
char
EXIT-RISM
;
SET-DLE-FLAG:
;-----------
; RISM-STAT.O:=SET
;
SET-BIT
RISM-STAT,
DLE-FLAG
EXIT-RISM
TRANSMIT:
; -------
; utxd:=RISM_DATA[7..0]
; RISM-DATA:=RISM-DATA
>> 8
; RISM-ADDR:=RISM-ADDR+l
SEND-DATA-BYTE
shrl
RISM-DATA,
X8
inc
RISM-ADDR
EXIT-RISM
;
MONITOR-ESCAPE:
; if RISM-DATA=1
then
execute
reset
i
cmp
RISM-DATA,
#Ol
bne
exit
rst
br
s
:
Seject
; make
room
for new byte
; Execute
a reset
instruction
; and
loop until
reset
takes
effect
Advertisement
