186 lines
6.0 KiB
ArmAsm
186 lines
6.0 KiB
ArmAsm
|
;---------------------------------------------------------------------
|
|||
|
|
; ** ** ** *** *** **** ** *** ** ****
|
|||
|
|
; **** *** *** ** ** ** ** ** **** ** ** ** **
|
|||
|
|
; ** ** ** * ** ** ** *** ***** ** ** *** ** **
|
|||
|
|
; ****** ** ** ** ** ** ** ** ****** ** ** **
|
|||
|
|
; ** ** ** ** ** ** * ** ** ** ** ** * ** ** ** **
|
|||
|
|
; ** ** ** ** *** *** ***** ** ** *** ** ****
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
; AMOS Requester handler 2.0
|
|||
|
|
; By Fran<61>ois Lionet
|
|||
|
|
; AMOS - AMOS Pro - AMOS Compiler (c) Europress Software 1990-1992
|
|||
|
|
; To be used with AMOS Pro 2.0 and over
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
;
|
|||
|
|
; Published under the MIT Licence
|
|||
|
|
;
|
|||
|
|
; Copyright (c) 1992 Europress Software
|
|||
|
|
; Copyright (c) 2020 Francois Lionet
|
|||
|
|
;
|
|||
|
|
; Permission is hereby granted, free of charge, to any person
|
|||
|
|
; obtaining a copy of this software and associated documentation
|
|||
|
|
; files (the "Software"), to deal in the Software without
|
|||
|
|
; restriction, including without limitation the rights to use,
|
|||
|
|
; copy, modify, merge, publish, distribute, sublicense, and/or
|
|||
|
|
; sell copies of the Software, and to permit persons to whom the
|
|||
|
|
; Software is furnished to do so, subject to the following
|
|||
|
|
; conditions:
|
|||
|
|
;
|
|||
|
|
; The above copyright notice and this permission notice shall be
|
|||
|
|
; included in all copies or substantial portions of the Software.
|
|||
|
|
;
|
|||
|
|
; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|||
|
|
; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
|
|||
|
|
; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|||
|
|
; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
|||
|
|
; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
|||
|
|
; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
|
|||
|
|
; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
|
|||
|
|
; THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|||
|
|
;
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
; Please refer to the +Music.s file for more informations
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
|
|||
|
|
ExtNb equ 3-1
|
|||
|
|
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
; Include the files automatically calculated by
|
|||
|
|
; Library_Digest.AMOS
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
Include "+Request_Size.s"
|
|||
|
|
Include "+Request_Labels.s"
|
|||
|
|
Include "+AMOS_Includes.s"
|
|||
|
|
Include "+Version.s"
|
|||
|
|
|
|||
|
|
Start dc.l C_Tk-C_Off
|
|||
|
|
dc.l C_Lib-C_Tk
|
|||
|
|
dc.l C_Title-C_Lib
|
|||
|
|
dc.l C_End-C_Title
|
|||
|
|
dc.w 0
|
|||
|
|
dc.b "AP20"
|
|||
|
|
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
; Creates the pointers to functions
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
MCInit
|
|||
|
|
C_Off
|
|||
|
|
REPT Lib_Size
|
|||
|
|
MC
|
|||
|
|
ENDR
|
|||
|
|
|
|||
|
|
******************************************************************
|
|||
|
|
* TOKEN TABLE + Addresses
|
|||
|
|
|
|||
|
|
; TOKEN_START
|
|||
|
|
C_Tk dc.w 1,0
|
|||
|
|
dc.b $80,-1
|
|||
|
|
dc.w L_InRequestOn,L_Nul
|
|||
|
|
dc.b "request o","n"+$80,"I",-1
|
|||
|
|
dc.w L_InRequestOff,L_Nul
|
|||
|
|
dc.b "request of","f"+$80,"I",-1
|
|||
|
|
dc.w L_InRequestWb,L_Nul
|
|||
|
|
dc.b "request w","b"+$80,"I",-1
|
|||
|
|
; TOKEN_END
|
|||
|
|
dc.w 0
|
|||
|
|
dc.l 0 Important!
|
|||
|
|
|
|||
|
|
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
Lib_Ini 0
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
C_Lib
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; COLD START
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_Def Cold
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
cmp.l #"APex",d1 Version 1.10 or over?
|
|||
|
|
bne.s BadVer
|
|||
|
|
movem.l a3-a6,-(sp)
|
|||
|
|
lea Warm(pc),a0
|
|||
|
|
move.l a0,ExtAdr+ExtNb*16+4(a5)
|
|||
|
|
movem.l (sp)+,a3-a6
|
|||
|
|
moveq #ExtNb,d0 * NO ERRORS
|
|||
|
|
move.w #VerNumber,d1 * Current version
|
|||
|
|
rts
|
|||
|
|
; In case this extension is runned on AMOSPro V1.00
|
|||
|
|
BadVer moveq #-1,d0 * Bad version number
|
|||
|
|
sub.l a0,a0
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; SCREEN RESET: back to AMOS requester (Called by AMOSPro)
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Warm
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
Rbra L_InRequestOn
|
|||
|
|
|
|||
|
|
;--------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; Leave one empty routine here!
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_Empty
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; REQUEST WB
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_Par InRequestWb
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
moveq #1,d0
|
|||
|
|
SyCall Request_OnOff
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; REQUEST ON
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_Par InRequestOn
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
moveq #-1,d0
|
|||
|
|
SyCall Request_OnOff
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; REQUEST OFF
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_Par InRequestOff
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
moveq #0,d0
|
|||
|
|
SyCall Request_OnOff
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; Even if you do not have error messages, you MUST
|
|||
|
|
; leave TWO routines empty at the end...
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_Empty
|
|||
|
|
Lib_Empty
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; Finish the library
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
Lib_End
|
|||
|
|
; - - - - - - - - - - - - -
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; TITLE OF THE EXTENSION
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
C_Title dc.b "AMOSPro Requester V "
|
|||
|
|
Version
|
|||
|
|
dc.b 0,"$VER: "
|
|||
|
|
Version
|
|||
|
|
dc.b 0
|
|||
|
|
Even
|
|||
|
|
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
; END OF THE EXTENSION
|
|||
|
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|||
|
|
C_End dc.w 0
|
|||
|
|
even
|