home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
103.lha
/
ColRequest
/
screens.asm
< prev
Wrap
Assembly Source File
|
1986-11-21
|
1KB
|
80 lines
XREF ColourReq
LINKLIB MACRO
move.l \2,a6
jsr \1(a6)
ENDM
WBENCHSCREEN EQU $00000001
CUSTOMSCREEN EQU $F
V_HIRES EQU $8000
* Forget about linking with amiga.lib
_LVOOpenLibrary EQU $fffffdd8
_LVOCloseLibrary EQU $fffffe62
_AbsExecBase EQU $00000004
_LVOCloseScreen EQU $ffffffbe
_LVOOpenScreen EQU $ffffff3a
* my definitions
* none today
_main:
lea INTUIT.NAME,a1 Open Intuition
clr.l d0
LINKLIB _LVOOpenLibrary,_AbsExecBase Macro, save typing
move.l d0,Intuitionx.Ptr
lea.l NScreen,a0
LINKLIB _LVOOpenScreen,Intuitionx.Ptr Open the custom screen
move.l d0,Screen.Ptr
cmp.l #0,d0
beq NoScreen
jsr ColourReq
move.l Screen.Ptr,a0
LINKLIB _LVOCloseScreen,Intuitionx.Ptr
move.l Intuitionx.Ptr,a1
LINKLIB _LVOCloseLibrary,_AbsExecBase
NoScreen:
rts
CNOP 0,4
Intuitionx.Ptr:
dc.l 0
Screen.Ptr:
dc.l 0
NScreen ;NewScreen structure
* Lo-Res 5 deep
DC.W 0,0,320,200,2 LeftEdge,TopEdge,Width,Height,Depth
DC.B 0,1 DetailPen,BlockPen
DC.W V_HIRES ViewModes
DC.W CUSTOMSCREEN Type
DC.L 0 *Font
DC.L 0 *DefaultTitle
DC.L 0 *Gadgets
DC.L 0 *CustomBitMap
INTUIT.NAME:
dc.b 'intuition.library',0
END