Commodore Amiga A500 Technical Reference Manual page 146

APTR ja-IntHandlers
;
base of array of int server
ptrs
STRUCT
ja-lntServer,lS-SIZE
;
INTB-PORTS server
STRUCT ja-ReadHandler,lS-SIZE
;
JSERV-READAMIGA
handler
LABEL JanusAmigaSlZEOF
;
Hide a byte quantity in the lib-pad field
jaSpuriousMask EQU LIB-pad
;
Magic constants for memory allocation:
MEM-TYPEMASK EQU $OOff
;
8 memory areas
BITDEF MEM,PARAMETER.O
;
parameter memory
BITDEF MEM,BUFFER,I
;
buffer memory
MEMACCESSMASK EQU $3000
;
bits that participate in
access types
MEM-BYTEACCESS EQU $0000
;
return base suitable for byte
access
MEM-WORDACCESS EQU $1 000
;
return base suitable for
word access
MEM-GRAPHICACCESS EQU $2000
;
return base suitable for
graphic access
MEM-IOACCESS EQU $3000
;
return base suitable for
io access
TYPEACCESSTOADDR EQU S
;
#
of bits t o change access
mask into addr
;
Macro to lock access to janus data structures from PC side:
LOCK
MACRO
;
(
1
-
effective address of lock byte
)
begin@
tas 1
beq.s exit@
noP
"OP
bra.s begin@
exit@
:
endm
UNLOCK MACRO
;
(
1
-
effective address of lock
byte )
m0ve.b #O. 1
ENDM
JANUSNAME MACRO
dc.b 'janus.library',O
ENDM
janusreg.i --janus hardware registers (from amiga point of view)
Copyright
O
1986. Commodore-Amiga Inc., All rights reserved.