Advertisement
MCS-96
MACRO
ASSEMBLER
EV96
ERR LOC
OBJECT
809D
809D
3A3807
80AO A301222030
80A7
80A7 A21830
80AC
80AC
C301222030
80B3
8083
4504001830
80BA
80BA CO1830
80BD
E78DlC
8OCO
0000
0001
0002
8OCO
A1010030
8OC4
323802274A
8OC9 A1020030
8OcD
3138022741
80D2 A1000030
80D8
LINE
Y56
La5 1
Y58
959
960
961
962
963
966
967
968
971
972
973
974
975
976
977
980
981
982
983
984
985
986
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1012
1013
01/24/89
13:55:41
PAGE
27
SOURCE
STATEMENT
READ
PSW:
;
RISM-DATA:=user-psw
bbs
RISM-STAT,
RUN-FLAG,
rpsw-running
Id
RISM-DATA,
USER-PSW
i user
is not
running
EXIT-RISM
rpsw-running:
Id
RISM-DATA,
[spl
;-user
is running
EXIT-RISM
WRITE-PSW:
i --------
; user-psw:=RISM-DATA
(Assumes
user
is not running)
;
st
RISM-DATA,
USER-PSW
; user
is not
running
EXIT-RISM
READ-sP:
. ------
,
; RISM-DATA:=user-sp
;
add
RISM-DATA,
sp, t4
EXIT-RISM
i
WRITE-SP:
. - - - - - - - -
,
; add
four to account
for PC and PSW...
; on the stack
during
this
interrupt
: user-sp:=RISM-DATA.
(Assumes
user
is not running)
st
RISM-DATA,
sp
br
set-rism-idle
REPORT-STATUS:
;
Report
user
status:
stopped
equ
0
running
equ
1
trapped
equ 2
;
Id
RISM
DATA,
#running
bbs
RISM-STAT,
RUN FLAG,
exit
Id
RISM-DATA,
#trapped
bbs
RISM-STAT,
TRAP-FLAG,
exit
Id
RISMIDATA,
#stopped
EXIT-RISM
i else
report
stopped
end
Advertisement
