; --------------------------------------------------------------------- ; CH16-1.s code example ; --------------------------------------------------------------------- include exec/memory.i include intuition/intuition.i include libraries/dos.i include libraries/asl.i include libraries/gadtools.i include exec/exec_lib.i include intuition/intuition_lib.i include libraries/dos_lib.i include libraries/asl_lib.i include libraries/gadtools_lib.i XDEF _main NULL EQU 0 TRUE EQU 1 _AbsExecBase EQU 4 ; --------------------------------------------------------------------- CALLSYS MACRO LINKLIB _LVO\1,\2 ENDM ; --------------------------------------------------------------------- _main movem.l d3/a2-a3/a5,-(sp) preserve registers move.l _AbsExecBase,_SysBase copy of exec library base lea function_stack,a5 for alloc/dealloc operations lea lib_names,a2 lea lib_base_start,a3 move.w #LIBRARY_COUNT-1,d3 loop counter .loop movea.l (a2)+,a1 library name pointer moveq #0,d0 any version will do CALLSYS OpenLibrary,_SysBase move.l d0,(a3)+ store returned base dbeq d3,.loop beq.s lib_error_exit ; all libraries are open and available for use. jsr LockScreen beq.s closedown jsr GetVisInfo beq.s closedown jsr OpenWindow beq.s closedown jsr CreateMenu beq.s closedown jsr LayoutMenu beq.s closedown jsr InstallMenu beq.s closedown jsr AllocFileReq beq.s closedown ; now everything is set up we call the event handler! movea.l window_p,a1 movea.l wd_UserPort(a1),a2 user port address jsr EventHandler handle user actions closedown move.l (a5)+,d0 retrieve function pointer beq.s lib_normal_exit move.l d0,a0 jsr (a0) and execute routine if it exists! bra.s closedown lib_normal_exit lea lib_base_end,a3 moveq #LIBRARY_COUNT,d2 library count jsr CloseLibs close libraries moveq #0,d0 clear d0 for O/S movem.l (sp)+,d3/a2-a3/a5 restore registers rts and terminate program lib_error_exit moveq #LIBRARY_COUNT-1,d2 sub d3,d2 jsr CloseLibs close libraries moveq #0,d0 clear d0 for O/S movem.l (sp)+,d3/a2-a3/a5 restore registers rts and terminate program ; --------------------------------------------------------------------- ; CloseLibs() On entry... ; a3 should hold address of the longword location just past ; that of the first library to close (this is because the ; routine uses a backward reading loop). ; d2 should hold count of the number of libraries to close CloseLibs tst.b d2 test counter beq.s .loop_end movea.l -(a3),a1 get library base CALLSYS CloseLibrary,_SysBase subq.b #1,d2 bra.s CloseLibs .loop_end rts ; --------------------------------------------------------------------- ; LockScreen() and UnlkScreen() on entry... need no register parameters! LockScreen lea workbench_name,a0 pointer to screen name CALLSYS LockPubScreen,_IntuitionBase move.l d0,workbench_p save returned pointer beq.s .error move.l #UnlkScreen,-(a5) push deallocation routine address .error rts UnlkScreen movea.w #NULL,a0 screen name not needed movea.l workbench_p,a1 screen to unlock CALLSYS UnlockPubScreen,_IntuitionBase rts ; --------------------------------------------------------------------- ; OpenWindow() and ShutWindow() on entry... need no register parameters! OpenWindow movea.w #NULL,a0 lea window_tags,a1 start of tag list CALLSYS OpenWindowTagList,_IntuitionBase move.l d0,window_p save returned pointer beq.s .error move.l #ShutWindow,-(a5) push deallocation routine address .error rts ShutWindow movea.l window_p,a0 window to close CALLSYS CloseWindow,_IntuitionBase rts ; --------------------------------------------------------------------- ; GetVisInfo() and FreeVisInfo() on entry... need no register parameters! GetVisInfo movea.l workbench_p,a0 movea.w #TAG_END,a1 no tags CALLSYS GetVisualInfoA,_GadToolsBase move.l d0,visual_info_p save returned pointer beq.s .error move.l #FreeVisInfo,-(a5) push deallocation routine address .error rts FreeVisInfo movea.l visual_info_p,a0 CALLSYS FreeVisualInfo,_GadToolsBase rts ; -------------------------------------------------------------------- ; CreateMenu() and FreeMenu() on entry... need no register parameters! CreateMenu lea menu,a0 movea.w #TAG_END,a1 no tags CALLSYS CreateMenusA,_GadToolsBase move.l d0,menu_p save returned pointer beq.s .error move.l #FreeMenu,-(a5) push deallocation routine address .error rts FreeMenu movea.l menu_p,a0 menu to free CALLSYS FreeMenus,_GadToolsBase rts ; --------------------------------------------------------------------- ; LayoutMenu() on entry... needs no register parameters! LayoutMenu movea.l menu_p,a0 movea.l visual_info_p,a1 movea.w #TAG_END,a2 no tags CALLSYS LayoutMenusA,_GadToolsBase tst.l d0 nothing to deallocate rts ; -------------------------------------------------------------------- ; InstallMenu() and RemoveMenu() on entry... need no register parameters! InstallMenu movea.l window_p,a0 movea.l menu_p,a1 CALLSYS SetMenuStrip,_IntuitionBase tst.l d0 beq.s .error move.l #RemoveMenu,-(a5) push deallocation routine address .error rts RemoveMenu movea.l window_p,a0 target window CALLSYS ClearMenuStrip,_IntuitionBase rts ; --------------------------------------------------------------------- ; AllocFileReq() and FreeFileReq() on entry... need no register parameters! AllocFileReq CALLSYS AllocFileRequest,_AslBase move.l d0,file_request_p save returned pointer beq.s .error move.l #FreeFileReq,-(a5) push deallocation routine address .error rts FreeFileReq movea.l file_request_p,a0 requester to close CALLSYS FreeFileRequest,_AslBase rts ; --------------------------------------------------------------------- ; Function name: EventHandler() ; Purpose: Handles Intuition events ; Input Parameters: Address of IDCMP user-port should be in a2. ; Output parameters: None ; Register Usage: a0: Used by WaitPort() and GetMsg() ; a1: Used by ReplyMsg() ; a2: Holds user-port address ; d0: Used by WaitPort() and GetMsg() ; d1: Unused but possibly altered by system functions ; d2: Used as an exit flag (quit when non-zero) ; d3: Used to hold message class field ; d4: Used to hold message code field ; Other Notes: Within EventHandler() all registers are preserved ; --------------------------------------------------------------------- EventHandler movem.l d0-d4/a0-a2,-(a7) preserve registers clr.l d2 clear exit flag EventHandler2 movea.l a2,a0 port address CALLSYS WaitPort,_SysBase jsr GetMessage cmpi.l #TRUE,d2 exit flag set? bne.s EventHandler2 move.l buffer_p,a1 beq.s .no_buffer is a buffer still allocated? move.l buffer_size,d0 CALLSYS FreeMem,_SysBase .no_buffer movem.l (a7)+,d0-d4/a0-a2 restore registers rts logical end of routine ; --------------------------------------------------------------------- GetMessage movea.l a2,a0 get port address in a0 CALLSYS GetMsg,_SysBase get the message tst.l d0 beq.s GetMessageExit did it exist? movea.l d0,a1 copy pointer to a1 move.l im_Class(a1),d3 copy message class move.w im_Code(a1),d4 copy message code CALLSYS ReplyMsg,_SysBase then send message back cmpi.l #IDCMP_CLOSEWINDOW,d3 bne.s MenuMessage moveq #TRUE,d2 set QUIT signal to exit routine bra.s GetMessage MenuMessage cmpi.l #IDCMP_MENUPICK,d3 check message class bne.s GetMessage ignore other message types cmpi.w #MENUNULL,d4 beq.s GetMessage ignore if MENUNULL lsr.w #5,d4 extract menu item number andi.b #$3F,d4 (will be either 0 or 1) beq.s SelectFile moveq #TRUE,d2 set QUIT signal to exit routine bra.s GetMessage SelectFile jsr FileHandler bra.s GetMessage check for more messages! GetMessageExit rts d2 holds exit flag ; --------------------------------------------------------------------- ; Function name: FileHandler() ; Purpose: Handles the identification and loading of file ; Input Parameters: None ; Output parameters: None ; Register Usage: a0-a1/d0-d3: Used by various system calls ; d4: Used to hold pointer to FileInfoBlock ; d5: Used to hold file handle ; Other Notes: All registers are preserved ; --------------------------------------------------------------------- FileHandler movem.l d0-d5/a0-a1,-(a7) preserve registers movea.l file_request_p,a0 asl requester address movea.w #NULL,a1 no tags are used CALLSYS AslRequest,_AslBase bring up the requester ; clear filename buffer (notice ;loop stops when a NULL is found)... clear_filename move.l #filename_SIZEOF-1,d0 filename buffer size less 1 move.l #filename,a0 our filename buffer .clear_loop move.b #NULL,(a0)+ tst.b (a0) have we reached a NULL? dbeq d0,.clear_loop ; now copy the ASL requester directory ; entry to our file name buffer... move.l #filename_SIZEOF-1,d0 filename buffer size less 1 movea.l file_request_p,a0 ASL requester address movea.l rf_Dir(a0),a0 get start of directory entry move.l #filename,a1 our filename buffer .copy_loop move.b (a0)+,(a1)+ tst.b (a0) have we reached a NULL? dbeq d0,.copy_loop ; finally add the filename to the ; filename buffer... movea.l file_request_p,a0 ASL requester address move.l #filename,d1 our filename buffer move.l rf_File(a0),d2 ASL filename entry move.l #filename_SIZEOF,d3 filename buffer size CALLSYS AddPart,_DOSBase .alloc_fib moveq #DOS_FIB,d1 object type moveq #NULL,d2 no tags CALLSYS AllocDosObject,_DOSBase move.l d0,d4 save pointer to fib beq .error0 move.l #filename,d1 filename start address move.l #MODE_OLDFILE,d2 CALLSYS Open,_DOSBase move.l d0,d5 save file handle for closing beq .error1 move.l d5,d1 move.l d4,d2 CALLSYS ExamineFH,_DOSBase tst.l d0 ExamineFH() OK? beq .error2 move.l buffer_p,a1 beq.s .no_buffer is a buffer still allocated? move.l buffer_size,d0 CALLSYS FreeMem,_SysBase free allocated buffer memory move.l #NULL,buffer_p clear buffer pointer .no_buffer move.l d4,a0 file info block address move.l fib_Size(a0),d0 size of selected file move.l d0,buffer_size store identified size move.l d0,d3 needed for Read() call moveq #MEMF_ANY,d1 any memory will do CALLSYS AllocMem,_SysBase move.l d0,buffer_p did we get any memory? beq.s .error2 move.l d5,d1 file handle pointer move.l d0,d2 buffer_p from AllocMem() CALLSYS Read,_DOSBase copy file into memory .normal_exit move.l d5,d1 file handle pointer CALLSYS Close,_DOSBase close file moveq #DOS_FIB,d1 object type move.l d4,d2 fib pointer CALLSYS FreeDosObject,_DOSBase free fib movem.l (a7)+,d0-d5/a0-a1 restore registers rts normal exit .error2 move.l d5,d1 CALLSYS Close,_DOSBase close file .error1 moveq #DOS_FIB,d1 object type move.l d4,d2 fib pointer CALLSYS FreeDosObject,_DOSBase free fib .error0 move.w #NULL,a0 flash screen to show error! CALLSYS DisplayBeep,_IntuitionBase movem.l (a7)+,d0-d5/a0-a1 restore registers rts error exit ; --------------------------------------------------------------------- LIBRARY_COUNT EQU 4 lib_base_start _DOSBase ds.l 1 _IntuitionBase ds.l 1 _GadToolsBase ds.l 1 _AslBase ds.l 1 lib_base_end ;end of library base variables _SysBase ds.l 1 visual_info_p ds.l 1 window_p ds.l 1 menu_p ds.l 1 file_request_p ds.l 1 buffer_size ds.l 1 buffer_p ds.l 1 stack_space ds.l 8 space set as required function_stack dc.l NULL top of function stack window_tags dc.l WA_PubScreen workbench_p ds.l 1 dc.l WA_Left,50 dc.l WA_Top,50 dc.l WA_Width,340 dc.l WA_Height,100 dc.l WA_DragBar,TRUE dc.l WA_DepthGadget,TRUE dc.l WA_CloseGadget,TRUE dc.l WA_SizeGadget,TRUE dc.l WA_MinWidth,100 dc.l WA_MinHeight,50 dc.l WA_MaxWidth,640 dc.l WA_MaxHeight,256 dc.l WA_IDCMP,IDCMP_MENUPICK|IDCMP_CLOSEWINDOW dc.l WA_Title,window_name dc.l TAG_DONE,NULL menu dc.b NM_TITLE,0 dc.l menu_title,NULL dc.w 0 dc.l 0,NULL dc.b NM_ITEM,0 dc.l item0,commkey0 dc.w 0 dc.l 0,NULL dc.b NM_ITEM,0 dc.l item1,commkey1 dc.w 0 dc.l 0,NULL dc.b NM_END,0 dc.l NULL,NULL dc.w 0 dc.l 0,NULL lib_names dc.l lib1,lib2,lib3,lib4 lib1 dc.b 'dos.library',NULL lib2 dc.b 'intuition.library',NULL lib3 dc.b 'gadtools.library',NULL lib4 dc.b 'asl.library',NULL workbench_name dc.b 'Workbench',NULL window_name dc.b 'Example CH16-1',NULL menu_title dc.b 'PROJECT',NULL item0 dc.b 'Select File...',NULL commkey0 dc.b 'S',NULL item1 dc.b 'Quit to Workbench!',NULL commkey1 dc.b 'Q',NULL filename ds.b 256 filename_SIZEOF EQU *-filename END ; ---------------------------------------------------------------------