home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
RiscOS
/
APP
/
DEVS
/
LIB
/
GSTOBJ.ZIP
/
GstObjects
/
message
/
Example
/
Message
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1994-09-11
|
638b
|
31 lines
Author: George Taylor, george@tardis.ed.ac.uk
_AssembleRequests_message
b,p,P%,requestBlock,pairsStart,pairsEnd,branchStart,branchEnd
b 256
p=0
[ OPT p
.requestBlock
; Adhesive request block
EQUD 148
EQUD 0
EQUD 0
EQUD 0
# EQUD (branchEnd-branchStart)/4
! EQUD (pairsEnd-pairsStart)/8
; pairs themselves
.pairsStart
EQUD 0
EQUD 2
.pairsEnd
; branch table
.branchStart
.message_Open%
MOVS PC,R14
.message_Close%
MOVS PC,R14
.message_Lookup%
MOVS PC,R14
.branchEnd
EQUD 0
= requestBlock