mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-22 23:29:27 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
945 lines
31 KiB
Plaintext
945 lines
31 KiB
Plaintext
;__________________________________________________________________________________________________
|
|
;
|
|
; File: IntModemMgr.a
|
|
;
|
|
; Contains: Internal modem manager initialization code
|
|
;
|
|
; Written by: Steven Swenson
|
|
;
|
|
; Copyright © 1994-1994 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <SM2> 1/27/94 rab Removed padForOverpatch stuff from the end of this file
|
|
; (SuperMario does not use itÉ).
|
|
; <H4> 5/23/93 SES Made changes from code review, 5/19/93.
|
|
; <H3> 5/4/93 SES Removed machine primitives and replaced them with the dispatch
|
|
; functions in the IntModemMgr.a file.
|
|
; <H2> 4/27/93 SES Altered modem manager to enhance it somewhat per code review on
|
|
; 4/22/93. Added dispatcher in this file (from ImmgPrimitives.a).
|
|
; Split primitives into machine primitives and modem primitives.
|
|
; <1> 4/8/93 SES first checked in
|
|
;__________________________________________________________________________________________________
|
|
|
|
LOAD 'StandardEqu.d'
|
|
INCLUDE 'HardwarePrivateEqu.a'
|
|
INCLUDE 'UniversalEqu.a'
|
|
INCLUDE 'ROMEqu.a'
|
|
INCLUDE 'IntModemMgrEqu.a'
|
|
INCLUDE 'IntModemMgrPrivEqu.a'
|
|
|
|
MACHINE MC68020
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; ImmgInit
|
|
;
|
|
; Entry: none
|
|
;
|
|
; Exit: none
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Uses:
|
|
;
|
|
; A1: pointer to head of modem primitive table list
|
|
; A2: pointer to modem manager globals
|
|
; A3: pointer to machine primitives table
|
|
; A4: pointer to individual modem primitives tables
|
|
;
|
|
; Sets up the internal modem manager if it should be set up. The manager will not be
|
|
; installed if the pointer in the product info record is NULL. The manager will attempt to
|
|
; install any primitives that the root table points to (see IntModemMgrPrivEqu.a).
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
ImmgInit PROC EXPORT
|
|
@savedRegs REG d0-d2/a0-a4
|
|
|
|
movem.l @SavedRegs,-(sp) ; save away registers
|
|
|
|
; First check to see if the modem manager should be installed.
|
|
|
|
WITH ProductInfo
|
|
movea.l UnivInfoPtr,a0 ; get the product info table
|
|
move.l ImmgPrimPtr(a0),d0 ; get the internal modem manager primitives offset
|
|
beq.w @exit ; exit if null pointer
|
|
lea (a0,d0.l),a1 ; A1 -> immgMdmList: head of modem prim list
|
|
ENDWITH
|
|
|
|
; set up modem manager globals
|
|
|
|
move.l #immgGlobals.size,d0 ; size of globals
|
|
_NewPtr ,SYS,CLEAR ; pointer to globals -> A0
|
|
tst.w d0 ; check pointer for validity
|
|
bne.w @exit ; bad, bad, bad...
|
|
movea.l a0,a2 ; A2 -> globals pointer
|
|
|
|
; set up the machine dispatch table
|
|
|
|
WITH immgGlobals
|
|
move.l #immgDispTable.size,d0 ; size of dispatch table
|
|
_NewPtr ,SYS,CLEAR ; pointer to dispatch table -> A0
|
|
tst.w d0 ; check pointer for validity
|
|
bne.w @error1 ; bad, bad, bad...
|
|
move.l a0,dispTable(a2) ; store pointer to dispatch table in globals
|
|
movea.l a0,a3 ; A3 -> machine prim table ptr
|
|
ENDWITH
|
|
WITH immgDispTable
|
|
lea immgDispatchTable,a0 ; A0 -> pointer to ROM based dispatch table
|
|
move.l a0,d2 ; D2 -> ROM based dispatch table base for offset to absolute conversion
|
|
move.l (a0)+,(a3)+ ; copy flags and number of primitives
|
|
move.l #size,d0 ; D0 -> size of dispatch table, in bytes, including storage
|
|
sub.l #dispOffset,d0 ; D0 -> size of dispatch table in bytes ; <H4>
|
|
lsr.l #2,d0 ; D0 -> number of dispatch routines
|
|
move.w d0,-2(a3) ; put number of dispatch routines into RAM based table
|
|
bra.s @startLoop ; for DBRA loop ; <H4>
|
|
@machPrimLoop move.l (a0)+,d1 ; D1 -> offset to dispatch routine
|
|
add.l d2,d1 ; D1 -> absolute address of dispatch routine
|
|
move.l d1,(a3)+ ; copy absolute address into RAM based dispatch table
|
|
@startLoop dbra d0,@machPrimLoop ; copy all dispatch functions
|
|
ENDWITH
|
|
|
|
; set up the modem manager modem queue
|
|
|
|
WITH immgGlobals
|
|
moveq #qHeadSize,d0 ; size of a OS queue header
|
|
_NewPtr ,SYS,CLEAR ; A0 -> pointer to modem queue header
|
|
tst.w d0 ; check for valid pointer
|
|
bne.w @error2 ; bad, bad, bad...
|
|
move.l a0,mdmQ(a2) ; store pointer to modem queue in globals
|
|
ENDWITH
|
|
|
|
; save modem globals in expand mem
|
|
|
|
WITH ExpandMemRec
|
|
move.l a2,([ExpandMem],emIMdmMgrGlobs)
|
|
ENDWITH
|
|
|
|
; install the dispatcher
|
|
|
|
lea ImmgDispatch,a0 ; address of dispatcher for the trap
|
|
move.w #IntMdmMgrTrap,d0 ; internal modem manager trap number
|
|
_SetTrapAddress ,NEWTOOL
|
|
|
|
; call modem manager init to initialize any future modem manager specific things
|
|
|
|
_IModemInit
|
|
tst.w d0 ; check for modem manager init errors
|
|
bne.s @error3 ; bad, bad, bad...
|
|
|
|
; for each root table entry, attempt to install the modem primitives
|
|
|
|
WITH immgMdmList
|
|
moveq #0,d0 ; first time around, A1 is already a pointer
|
|
@modemInstall adda.l d0,a1 ; A1 -> pointer to next modem list element
|
|
move.l primTable(a1),d0 ; D0 -> offset to modem primitives table
|
|
beq.s @skipModemPrims ; no install if NULL
|
|
lea (a1,d0.l),a4 ; A4 -> pointer to modem primitives table
|
|
bsr CopyModemPrims ; copy modem primitives table into RAM
|
|
bne.s @error4 ; bad, bad, bad... ; <H4>
|
|
_IModemInstall ; install the primitives
|
|
@skipModemPrims move.l mdmListPtr(a1),d0 ; D0 -> offset to next modem list
|
|
bne.s @modemInstall ; continue installing modems until NULL pointer
|
|
ENDWITH
|
|
|
|
; install the gestalt trap
|
|
|
|
lea ImmgGestalt,a0 ; get address of gestalt code
|
|
move.l #gestaltIntModemType,d0 ; internal modem manager selector code
|
|
_NewGestalt ; install the selector
|
|
|
|
@exit movem.l (sp)+,@SavedRegs ; restore registers
|
|
rts
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; Error conditions from the modem init code above
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
; have allocated an unknown number of modem primitive queue blocks and modem primitive tables
|
|
; and also have done modem manager init
|
|
|
|
@error4 move.l immgGlobals.mdmQ(a2),a1 ; A1 -> pointer to modem queue header
|
|
movea.l qHead(a1),a1 ; A1 -> pointer to first modem queue element
|
|
tst.l a1 ; check if pointer is real
|
|
beq.s @error3 ; no more modem queue elements to deallocate
|
|
WITH immgQEl
|
|
@cleanUpMdms move.l qMdmPrimPtr(a1),d0 ; D0 -> pointer to modem primitives table
|
|
beq.s @nextMdmQEl ; no pointer to deallocate
|
|
movea.l d0,a0 ; A0 -> pointer to modem primitives table
|
|
_DisposPtr ; get rid of it
|
|
@nextMdmQEl movea.l a1,a0 ; A0 -> pointer to this modem queue element
|
|
move.l qLink(a1),a1 ; A1 -> pointer to next modem queue element
|
|
_DisposPtr ; get rid of previous modem queue element
|
|
tst.l a1 ; check if the end of the list
|
|
bne.s @cleanUpMdms ; no more modem queue elements to deallocate
|
|
|
|
; call modem manager close to clean up anything done in modem manager init
|
|
|
|
_IModemClose
|
|
|
|
; have already set trap address of modem manager
|
|
|
|
@error3 move.l #UnimplTrap,d0 ; D0 -> trap word of unimplemented trap
|
|
_GetTrapAddress ,NEWTOOL ; A0 -> address of unimplemented trap
|
|
move.l #IntMdmMgrTrap,d0 ; D0 -> trap word of internal modem manager
|
|
_SetTrapAddress ,NEWTOOL ; make modem manager unimplemented
|
|
|
|
; have already allocated machine primitive table pointer
|
|
|
|
@error2 movea.l a3,a0 ; A0 -> pointer to machine primitves table
|
|
_DisposPtr ; get rid of it
|
|
|
|
; have already allocated globals pointer
|
|
|
|
@error1 movea.l a2,a0 ; A0 -> pointer to globals
|
|
_DisposPtr ; get rid of it
|
|
bra.s @exit
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; CopyModemPrims
|
|
;
|
|
; Entry: A4: pointer to ROM based modem primitives table
|
|
;
|
|
; Exit: A0: pointer to RAM based copy of modem primitives table, with absolute addresses
|
|
; D0: zero if no error, -1 if error
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Copies ROM based modem primitives table into RAM, converting addresses to primitives
|
|
; into absolute addresses. Leaves the condition codes register set to ZERO on memory
|
|
; allocation error.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
CopyModemPrims
|
|
movem.l d1-d3,-(sp) ; save registers
|
|
|
|
WITH immgPrimTable
|
|
move.l #size,d0 ; size of modem primitives table
|
|
beq.s @errorExit ; if the size of the thing is ever zero ; <H4>
|
|
_NewPtr ,SYS,CLEAR ; pointer to machine primitives table -> A0
|
|
tst.w d0 ; check pointer for validity
|
|
bne.s @errorExit ; bad, bad, bad...
|
|
move.l a0,d2 ; D2 -> pointer to RAM based modem prim table
|
|
move.l a4,d3 ; D3 -> ROM based modem table base for offset to absolute conversion
|
|
move.l (a4)+,(a0)+ ; copy flags and number of primitives
|
|
move.l #size,d0 ; D0 -> size of modem primitives table, in bytes, including storage
|
|
sub.l #primOffset,d0 ; D0 -> size of modem primitives table in bytes ; <H4>
|
|
lsr.l #2,d0 ; D0 -> number of modem primtives
|
|
move.w d0,-2(a0) ; put number of primitives into RAM based table
|
|
bra.s @startLoop ; for DBRA loop ; <H4>
|
|
@mdmPrimLoop move.l (a4)+,d1 ; D1 -> offset to primitive
|
|
add.l d3,d1 ; D1 -> absolute address of primitive
|
|
move.l d1,(a0)+ ; copy absolute address into RAM based primtive table
|
|
@startLoop dbra d0,@mdmPrimLoop ; copy all primitives
|
|
ENDWITH
|
|
|
|
movea.l d2,a0 ; A0 -> pointer to RAM based modem prims
|
|
moveq #0,d0 ; indicate no error
|
|
|
|
@exit movem.l (sp)+,d1-d3 ; restore registers
|
|
rts
|
|
|
|
@errorExit move.b #$FF,d0 ; indicate an error occurred
|
|
bra.s @exit
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; ImmgDispatch
|
|
;
|
|
; Entry: D0: high word: modem ID; low word: trap selector
|
|
; A0: may hold a pointer or data
|
|
;
|
|
; Exit: D0: result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Uses:
|
|
;
|
|
; A1: pointer to modem manager globals
|
|
; A2: pointer to machine primitives table
|
|
;
|
|
; Handles a modem manager call. Jumps through the machine primitives table and returns
|
|
; the result code.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
ImmgDispatch
|
|
@saveRegs REG d1/a1-a2 ; registers to save in this routine
|
|
|
|
movem.l @saveRegs,-(sp) ; save registers
|
|
|
|
; Get machine primitives table
|
|
|
|
WITH ExpandMemRec
|
|
move.l ([ExpandMem],emIMdmMgrGlobs),a1
|
|
tst.l a1 ; check for valid pointer, this should never happen
|
|
beq.s @errorNoBoard ; bad, bad, bad...
|
|
ENDWITH
|
|
|
|
; range check trap selector
|
|
|
|
WITH immgGlobals
|
|
move.l dispTable(a1),a2 ; A2 -> pointer to machine primitives
|
|
tst.l a2 ; check for valid primitives pointer
|
|
beq.s @errorInvalid ; bad, bad, bad...
|
|
ENDWITH
|
|
WITH immgDispTable
|
|
cmp.w numDisp(a2),d0 ; is the selector < number of dispatch functions
|
|
bcc.s @errorInvalid ; invalid selector
|
|
adda.l #dispOffset,a2 ; A2 -> pointer to beginning of dispatch functions
|
|
ENDWITH
|
|
|
|
; call the dispatch function to do the work
|
|
|
|
move.w d0,d1 ; D1 -> trap selector
|
|
lsl.w #2,d1 ; D1 -> offset to dispatch function address
|
|
jsr ([a2,d1.w]) ; do dispatch function
|
|
|
|
|
|
@exit movem.l (sp)+,@saveRegs ; restore registers
|
|
rts
|
|
|
|
@errorNoBoard move.w #immgNoBoardErr,d0 ; D0 -> no board error result
|
|
bra.s @exit
|
|
|
|
@errorInvalid move.w #immgInvalidSelector,d0 ; D0 -> invalid selector error result
|
|
bra.s @exit
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; ImmgGestalt
|
|
;
|
|
; Entry: D0: gestaltIntModemType
|
|
; A0: pointer for return data
|
|
;
|
|
; Exit: D0: gestalt result code
|
|
;
|
|
; Trashes: A0
|
|
;
|
|
; Finds out about the internal modem manager by calling IModemInfo.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
ImmgGestalt
|
|
_IModemInfo ; get the modem mgr information (in d0)
|
|
move.l a0,d0 ; D0 -> num modems and version
|
|
movea.l 4(sp),a0 ; get a pointer to the response longword
|
|
move.l d0,(a0) ; return type of modem
|
|
move.l (sp)+,a0 ; get the return address
|
|
add.l #8,sp ; remove paramters
|
|
move.w #noErr,(sp) ; set return error code
|
|
jmp (a0) ; return
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; Dispatch table for internal modem manager.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
immgDispatchTable
|
|
DC.W 0 ; flags
|
|
DC.W 0 ; number of primitives (filled in at init time)
|
|
DC.L mdmInit-immgDispatchTable ; offset to modem manager init routine
|
|
DC.L mdmPower-immgDispatchTable ; offset to modem manager power routine
|
|
DC.L mdmWakeUp-immgDispatchTable ; offset to modem manager wake up routine
|
|
DC.L mdmStatus-immgDispatchTable ; offset to modem manager status routine
|
|
DC.L mdmPrime-immgDispatchTable ; offset to modem manager prime routine
|
|
DC.L mdmSndCtl-immgDispatchTable ; offset to modem manager sound control routine
|
|
DC.L mdmGetInd-immgDispatchTable ; offset to modem manager get indexed routine
|
|
DC.L mdmFind-immgDispatchTable ; offset to modem manager find routine
|
|
DC.L mdmInstall-immgDispatchTable ; offset to modem manager install routine
|
|
DC.L mdmRemove-immgDispatchTable ; offset to modem manager remove routine
|
|
DC.L mdmGetName-immgDispatchTable ; offset to modem manager get name routine
|
|
DC.L mdmInfo-immgDispatchTable ; offset to modem manager info routine
|
|
DC.L mdmClose-immgDispatchTable ; offset to modem manager close routine
|
|
DC.L mdmSndVol-immgDispatchTable ; offset to modem sound volume routine
|
|
DC.L mdmSndHW-immgDispatchTable ; offset to system sound HW arbitration routine
|
|
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmInit
|
|
;
|
|
; Entry: a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Sets up private storage for the machine primitives.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmInit
|
|
move.w #immgVersion,immgGlobals.version(a1) ; store modem manager version number
|
|
|
|
move.w #noErr,d0
|
|
@exit rts
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmPower
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls modem primitive for modem power.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmPower
|
|
move.w #selMPPower,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmWakeUp
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls modem primitive for wake up on ring.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmWakeUp
|
|
move.w #selMPWakeUp,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmStatus
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls modem primitive for status.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmStatus
|
|
move.w #selMPStatus,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmPrime
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls modem primitive for prime.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmPrime
|
|
move.w #selMPPrime,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmSndCtl
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: A0, A1
|
|
;
|
|
; Set machine up to be enable/disable sound, then Calls modem primitive for sound control.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmSndCtl
|
|
move.w #selMPSndCtl,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmGetInd
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = high word: modem ID; low word: result code
|
|
; a0 = modem type (longword)
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Checks to see if the modem with index given in the high word of D0 is installed. If it
|
|
; is, the mdmType primitive for the modem is called to get the modem type, and the modem
|
|
; ID, modem type, and result code are returned.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmGetInd
|
|
move.w d1,-(sp) ; save registers
|
|
|
|
swap d0 ; put modem index in low word
|
|
bsr GetIndMdm ; A0 -> pointer to the modem queue element
|
|
beq.s @noModem ; if no modem, report it
|
|
|
|
move.w immgQEl.qMdmId(a0),d0 ; D0 -> modem ID
|
|
move.w d0,d1 ; D1 -> modem ID
|
|
swap d0 ; D0: high word -> modem ID
|
|
move.w #selMPType,d0 ; select modem type primitive
|
|
bsr CallMdmPrim ; make the call, A0 -> modem type, D0 -> result code
|
|
swap d0
|
|
move.w d1,d0 ; D0 -> modem ID
|
|
swap d0 ; DO: high word -> modem ID, low word -> result code
|
|
|
|
@exit move.w (sp)+,d1 ; restore registers
|
|
rts
|
|
|
|
@noModem move.w #immgNoBoardErr,d0 ; report error
|
|
bra.s @exit
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmFind
|
|
;
|
|
; Entry: A0: pointer to modem primitives table
|
|
;
|
|
; Exit: D0: result code of modem primitive MdmExists
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls the modem primitive MdmExists to determine if the modem that the primitives
|
|
; apply to physically exists in the machine.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmFind
|
|
jsr ([immgPrimTable.mdmExists,a0]) ; call primitive
|
|
rts
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmInstall
|
|
;
|
|
; Entry: A0: pointer to modem primitives table
|
|
; A1: pointer to modem manager globals
|
|
;
|
|
; Exit: D0: high word: modem ID; low word: result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls mdmFind to ensure that the modem to be installed is in the machine. If the
|
|
; modem is physically present, a new queue element is allocated and enqueued in the
|
|
; modem queue. Finally, the modem setup primitive is called, the returned A1 is stored
|
|
; in the modem queue element, and the pointer to the queue element is returned in A1.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmInstall
|
|
@saveRegs REG d2/a1-a4 ; registers to save
|
|
|
|
movem.l @saveRegs,-(sp) ; save registers
|
|
|
|
movea.l a0,a2 ; A2 -> pointer to modem primitives
|
|
|
|
bsr mdmFind ; let primitives check if modem is in box
|
|
tst.w d0 ; check result
|
|
bne.s @noModem ; no modem found, report error
|
|
|
|
; create the new modem queue element
|
|
|
|
move.l #immgQEl.size,d0 ; D0 -> size of modem queue element
|
|
_NewPtr ,SYS,CLEAR ; A0 -> pointer to new modem queue element
|
|
tst.w d0 ; check pointer validity
|
|
bne.s @noModem ; no more memory, UNLUCKY!
|
|
movea.l a0,a4 ; A4 -> pointer to modem queue element
|
|
|
|
; fill in the fields of the modem queue element
|
|
|
|
WITH immgQEl ; type is already set up (from CLEAR)
|
|
bsr GetNewMdmID ; D0 -> new modem ID
|
|
move.w d0,qMdmID(a0) ; store modem ID
|
|
move.w d0,d2 ; save modem ID for mdmSetUp later
|
|
move.l a2,qMdmPrimPtr(a0) ; store modem primitives table pointer
|
|
ENDWITH ; optionalA1 will wait 'til after SetUp call
|
|
|
|
; install the modem queue element into the modem queue
|
|
|
|
movea.l a1,a3 ; A3 -> pointer to modem globals
|
|
move.l immgGlobals.mdmQ(a3),a1 ; A1 -> pointer to modem queue header
|
|
_Enqueue ; place new modem queue element into queue
|
|
|
|
; call the modem primitive MdmSetUp
|
|
|
|
move.w d2,d0 ; D0 -> modem ID
|
|
swap d0 ; put modem ID into high word
|
|
movea.l a3,a1 ; A1 -> pointer to modem manager globals
|
|
move.w #selMPSetUp,d0 ; call the MdmSetUp primitive
|
|
bsr CallMdmPrim ; this calls the modem primitive
|
|
tst.w d0 ; check returned error result
|
|
bne.s @primError ; there was an error in the primitive
|
|
|
|
; store the optional A1 pointer in the queue element
|
|
|
|
move.l a0,immgQEl.optionalA1(a4) ; save the value returned by the primitive
|
|
|
|
; return the modem ID in the high word of D0, and no error in low word
|
|
|
|
swap d0
|
|
move.w d2,d0 ; D0 -> modem ID
|
|
swap d0
|
|
|
|
@exit movem.l (sp)+,@saveRegs ; restore registers
|
|
rts
|
|
|
|
@noModem move.w #immgNoBoardErr,d0 ; report no board
|
|
bra.s @exit
|
|
|
|
@primError move.w d2,d0 ; D0 -> modem ID
|
|
swap d0 ; put modem ID into high word
|
|
bsr mdmRemove ; remove the modem from the queue
|
|
bra.s @exit
|
|
|
|
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmRemove
|
|
;
|
|
; Entry: D0: high word: modem ID
|
|
; A1: pointer to modem manager globals
|
|
;
|
|
; Exit: D0: noErr
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls FindInstalledMdm to get the modem queue element for the modem with the ID passed
|
|
; in the high word of D0. Calls the CallMdmPrim routine to call the mdmTearDown primitive.
|
|
; Dequeues the modem queue element and deallocates it.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmRemove
|
|
@saveRegs REG a1-a2 ; registers to save
|
|
|
|
movem.l @saveRegs,-(sp) ; save registers
|
|
|
|
; get the modem queue element to remove
|
|
|
|
movea.l a1,a2 ; A2 -> pointer to modem globals
|
|
bsr FindInstalledMdm ; A1 -> pointer to modem queue element
|
|
beq.s @noModem ; no modem found, report error
|
|
exg a1,a2 ; A1 -> modem globals, A2 -> modem Q El
|
|
|
|
; call the modem tear down primitive
|
|
|
|
move.w #selMPTearDown,d0 ; select modem tear down
|
|
bsr CallMdmPrim ; make the call, don't care about errors
|
|
|
|
; dequeue the modem
|
|
|
|
movea.l a2,a0 ; A0 -> modem queue element
|
|
movea.l immgGlobals.mdmQ(a1),a1 ; A1 -> pointer to modem queue header
|
|
_Dequeue ; don't care about errors
|
|
|
|
; deallocate the modem queue element
|
|
|
|
movea.l a2,a0 ; A0 -> modem queue element
|
|
_DisposPtr ; get rid of it
|
|
|
|
@noModem move.w #noErr,d0 ; D0 -> no error
|
|
|
|
@exit movem.l (sp)+,@saveRegs ; restore registers
|
|
rts
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmGetName
|
|
;
|
|
; Entry: a0 = pointer to string buffer
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
; a0 = pointer to null terminated c string
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Gets the name of an installed modem by calling the get modem name primitive.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmGetName
|
|
move.w #selMPName,d0 ; select mdmGetName primitive
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmInfo
|
|
;
|
|
; Entry: a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = valid gestalt result code
|
|
; a0 = high word: modem manager version; low word: number of modems
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Counts the number of installed modems, and returns the count and the modem manager
|
|
; version number.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmInfo
|
|
bsr CountMdms ; D0.L -> number of installed modems
|
|
|
|
swap d0
|
|
move.w immgGlobals.version(a1),d0 ; D0 -> modem manager version number
|
|
swap d0
|
|
move.l d0,a0 ; A0 -> return result
|
|
|
|
move.w #noErr,d0
|
|
@exit rts
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmClose
|
|
;
|
|
; Entry: a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Cleans up any initialization done by mdmInit.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmClose
|
|
move.w #noErr,d0
|
|
@exit rts
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmSndVol
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: A0, A1
|
|
;
|
|
; Set machine up to set modem sound volume, then Calls modem primitive for sound control.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmSndVol
|
|
move.w #selMPSndVol,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; mdmSndHW
|
|
;
|
|
; Entry: d0 = high word: modem ID
|
|
; a0 = pointer to modem parameter block
|
|
; a1 = modem manager global pointer
|
|
;
|
|
; Exit: d0 = result code
|
|
;
|
|
; Trashes: A0, A1
|
|
;
|
|
; Arbitrate for the system sound hardware via the appropriate primitive.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
mdmSndHW
|
|
move.w #selMPSndHW,d0 ; select modem power
|
|
bra.w CallMdmPrim ; make the call
|
|
|
|
|
|
; ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
|
|
; Useful utility routines
|
|
; ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; FindInstalledMdm
|
|
;
|
|
; Entry: D0: high word: modem ID
|
|
; A1: pointer to modem manager globals
|
|
;
|
|
; Exit: A1: pointer to modem queue element for modem with ID passed in D0
|
|
; Condition codes set to zero if modem not found, otherwise not zero
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Looks up the modem with ID given in high word of D0 and returns the modem queue
|
|
; element.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
FindInstalledMdm
|
|
move.l immgGlobals.mdmQ(a1),a1 ; A1 -> pointer to modem Q header
|
|
swap d0 ; D0: low word -> modem ID
|
|
|
|
move.l qHead(a1),a1 ; A1 -> first modem queue element
|
|
WITH immgQEl
|
|
@nextModem tst.l a1 ; check pointer for validity
|
|
beq.s @exit ; Oops! out of modems and not found!
|
|
cmp.w qMdmID(a1),d0 ; check modem ID against the one we want
|
|
beq.s @exit ; found it!
|
|
move.l qLink(a1),a1 ; A1 -> pointer to next modem queue element
|
|
bra.s @nextModem ; keep checking...
|
|
ENDWITH
|
|
|
|
@exit swap d0 ; put things back the way they were
|
|
tst.l a1 ; set condition codes
|
|
rts
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; CallMdmPrim
|
|
;
|
|
; Entry: D0: high word: modem ID; low word: primitive selector
|
|
; A1: pointer to modem manager globals
|
|
;
|
|
; Exit: A0: whatever is returned by the modem primitive
|
|
; D0: result code returned by modem primitive, or no board found err
|
|
; if the modem ID was not valid.
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Calls FindInstalledMdm to get the modem queue element desired, then calls the modem
|
|
; primitive selected by the low word of D0.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
CallMdmPrim
|
|
@saveRegs REG d1/a1-a2 ; registers to save over routine
|
|
|
|
movem.l @saveRegs,-(sp) ; save registers
|
|
|
|
bsr FindInstalledMdm ; A1 -> pointer to modem queue element
|
|
beq.s @noModem ; no modem found, report error
|
|
|
|
; get data from the queue element that will be used
|
|
|
|
WITH immgQEl
|
|
move.l qMdmPrimPtr(a1),a2 ; A2 -> pointer to modem primitives
|
|
move.l optionalA1(a1),a1 ; A1 -> pointer to optional A1 parameter
|
|
ENDWITH
|
|
|
|
; range check the primitive selector against the number of prims in the prim table
|
|
|
|
WITH immgPrimTable
|
|
cmp.w numPrims(a2),d0 ; is the prim selector < num prims?
|
|
bcc.s @invalidSel ; nope, report error...
|
|
adda.l #primOffset,a2 ; A2 -> pointer to primitives
|
|
move.w d0,d1 ; D1 -> primitive selector
|
|
lsl.w #2,d1 ; D1 -> offset to primitive
|
|
jsr ([a2,d1.w]) ; do the primitive
|
|
ENDWITH
|
|
|
|
@exit movem.l (sp)+,@saveRegs ; restore registers
|
|
rts
|
|
|
|
@noModem move.w #immgNoBoardErr,d0 ; report no board
|
|
bra.s @exit
|
|
|
|
@invalidSel move.w #immgInvalidSelector,d0 ; report invalid primitive selector
|
|
bra.s @exit
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; GetIndMdm
|
|
;
|
|
; Entry: D0: index of modem to retrieve (zero based)
|
|
; A1: pointer to modem manager globals
|
|
;
|
|
; Exit: A0: pointer to modem queue element for modem at index in D0
|
|
; Condition codes set to zero if modem not found, otherwise not zero
|
|
;
|
|
; Trashes: D0, A0
|
|
;
|
|
; Looks up the modem with index given in D0 and returns a pointer to the modem queue
|
|
; element.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
GetIndMdm
|
|
move.l immgGlobals.mdmQ(a1),a0 ; A0 -> pointer to modem Q header
|
|
|
|
move.l qHead(a0),a0 ; A0 -> first modem queue element
|
|
tst.l a0 ; check pointer for validity
|
|
beq.s @exit ; Oops! out of modems and not found!
|
|
tst.w d0 ; check if we want first (0) modem
|
|
beq.s @exit ; yep! leave...
|
|
|
|
WITH immgQEl
|
|
subq #1,d0 ; for dbeq loop
|
|
@nextModem move.l qLink(a0),a0 ; A1 -> pointer to next modem queue element
|
|
tst.l a0 ; set condition codes
|
|
dbeq d0,@nextModem ; keep checking...
|
|
ENDWITH
|
|
|
|
@exit tst.l a0 ; set condition codes
|
|
rts
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; CountMdms
|
|
;
|
|
; Entry: A1: pointer to modem manager globals
|
|
;
|
|
; Exit: D0: number of modems
|
|
;
|
|
; Trashes: A0
|
|
;
|
|
; Counts the number of installed modems in the modem queue.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
CountMdms
|
|
moveq #0,d0 ; clear counter
|
|
move.l immgGlobals.mdmQ(a1),a0 ; A0 -> pointer to modem Q header
|
|
|
|
move.l qHead(a0),a0 ; A0 -> first modem queue element
|
|
tst.l a0 ; check pointer for validity
|
|
beq.s @exit ; Zero modems
|
|
|
|
WITH immgQEl
|
|
@nextModem addq #1,d0 ; counting...
|
|
move.l qLink(a0),a0 ; A1 -> pointer to next modem queue element
|
|
tst.l a0 ; set condition codes
|
|
bne.s @nextModem ; keep counting...
|
|
ENDWITH
|
|
|
|
@exit rts
|
|
|
|
|
|
|
|
;----------------------------------------------------------------------------------------
|
|
; GetNewMdmID
|
|
;
|
|
; Entry: A1: pointer to modem globals
|
|
;
|
|
; Exit: D0: modem ID
|
|
;
|
|
; Trashes: none
|
|
;
|
|
; Comes up with a new modem ID. Right now, all it does is increment the number in the
|
|
; modem manager globals and returns it.
|
|
;----------------------------------------------------------------------------------------
|
|
|
|
GetNewMdmID
|
|
WITH immgGlobals
|
|
add.w #1,lastMdmID(a1) ; increment last modem ID
|
|
move.w lastMdmID(a1),d0 ; get the modem ID
|
|
ENDWITH
|
|
|
|
rts
|
|
|
|
|
|
End |