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 to 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.
To Next Page
Loading...
