Advertisement
WCS-96
MACRO
ASSEMBLER
ERR LOC
OBJECT
9D2?
9D28 C701041E38
9D2D
65040018
9D31 CB012020
VD35 CB012220
9D3B
9D3F
373803374804
VD45
9D45 CF012220
VD49 CFO12020
VD4D
9D4D
C9201D
VDSO C90000
9D56 C701041E38
EV96
01/24/89
13:55:41
PAGE
21
I.iNE
688
689
690
691
692
693
695
697
698
699
700
701
702
705
706
707
708
709
710
711
713
715
716
717
718
719
720
721
722
723
724
725
726
727
729
730
733
734
SOURCE
STATEWF,NT
START
USER:
; Flush
the pause
routine
off the stack
SET-BIT
RISM-STAT,
RUN-FLAG
CLR BIT RISM-STAT,
TRAP-FLAG
stb-
RISM-STAT,
modem-contr[O]
; update
running
signal
to host
;
add
sp.#4
; reset
sp to overwrite
RISM
pc 6 psw,
push
USER
PC
push
lJSER:PSW
EXIT-RISH
; with
user
pc h
; user
psw values
break:
. ----
I
; This
routine
is invoked
by a TRAP
instruction
used
for breakpointing,
; it operates
somewhat
like
a STOP-USER
instruction.
ENTER-RI%
SET-BIT
RISM-STAT,
TRAP-FLAG
!
bbs
RISM-STAT,
DIAGNOSTIC-FLAG,
dSTOP_user
STOP-USER:
. ----
,
; Stops
"user"
execution
by setting
up the stack
to return
to pause
with
; all interrupts
but
serial
i/o locked
out.
POP
USER-PSW
; remove
users
psw
6 pc from
stack
POP
USER-PC
; and save
set
rism
idle:
-
push
#(monitor-pause-offset)
; the new program
counter
6 psw
push
trismgsw
CLR-BIT
RISM-STAT,
RUN-FLAG
stb
RISM-STAT,
modem-contr[Ol
;
update
running
signal
to host
EXIT
RISM
-
Seject
Advertisement
