First steps towards a native server
It can advertise a DDP socket, then crash in the socket listener.
This commit is contained in:
Elliot Nunn
parent
0bcfa71f10
commit
53b5ef68b8
|
|
@ -4,3 +4,4 @@ edit.rom
|
|||
BootstrapFloppy/System.rdump
|
||||
Bootstrap.bin
|
||||
BootstrapFloppy.dsk
|
||||
BootServer.INIT*
|
||||
|
|
|
|||
|
|
@ -0,0 +1,200 @@
|
|||
DrvrBase
|
||||
dc.w $4C00 ; dCtlEnable dStatEnable dNeedLock
|
||||
dc.w 0 ; delay
|
||||
dc.w 0 ; evt mask
|
||||
dc.w 0 ; menu
|
||||
|
||||
dc.w DrvrOpen-DrvrBase
|
||||
dc.w 0 ; no Prime routine
|
||||
dc.w DrvrControl-DrvrBase
|
||||
dc.w DrvrStatus-DrvrBase
|
||||
dc.w DrvrClose-DrvrBase
|
||||
dc.b 11, '.BootServer'
|
||||
|
||||
; a0=iopb, a1=dce on entry to all of these...
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
DrvrOpen
|
||||
; TODO: Move this somewhere that it can respond to AppleTalk going up/down
|
||||
|
||||
; Don't care about the caller PB, so use A0 for our AppleTalk PB instead
|
||||
move.l A0,-(SP)
|
||||
lea PB,A0
|
||||
|
||||
; Open .MPP
|
||||
; TODO: check globals on old ROMs before trying
|
||||
clr.b $1B(A0) ; IOPermssn = whatever is allowed
|
||||
lea MPPString,A1 ; IOFileName = .MPP
|
||||
move.l A1,$12(A0)
|
||||
dc.w $A000 ; _Open
|
||||
bne.s openFail
|
||||
|
||||
; Open a DDP socket: "POpenSkt" via direct call to .MPP
|
||||
move.w #248,$1A(A0) ; csCode = openSkt
|
||||
clr.b $1C(A0) ; socket = auto-assign
|
||||
lea SocketListener,A1
|
||||
move.l A1,$1E(A0) ; listener
|
||||
dc.w $A004 ; _Control
|
||||
bne.s openFail
|
||||
|
||||
; Prepare a Name Table Entry for NBP
|
||||
; TODO: replace with static Name Table Entry struct below
|
||||
pea NTE
|
||||
pea ObjStr
|
||||
pea TypStr
|
||||
pea ZonStr
|
||||
clr.w D0
|
||||
move.b $1C(A0),D0
|
||||
move.w D0,-(SP)
|
||||
bsr NBPSetNTE
|
||||
|
||||
; Advertise our socket via NBP: "PRegisterName"
|
||||
move.w #253,$1A(A0) ; csCode = registerName
|
||||
move.b #7,$1C(A0) ; interval = ~1sec
|
||||
move.b #5,$1D(A0) ; count = 5
|
||||
lea NTE,A1
|
||||
move.l A1,$1E(A0) ; entityPtr = our NTE
|
||||
move.b #0,$22(A0) ; verifyFlag = don't
|
||||
dc.w $A004 ; _Control
|
||||
|
||||
openFail
|
||||
move.w $10(A0),D0 ; Just return whatever error we got
|
||||
move.l (SP)+,A0
|
||||
move.w D0,$10(A0)
|
||||
rts
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
DrvrClose
|
||||
move.w #0,$10(A0) ; ioResult
|
||||
rts
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
DrvrControl
|
||||
move.w #-18,$10(A0) ; ioResult
|
||||
bra DrvrFinish
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
DrvrStatus
|
||||
move.w #-18,$10(A0) ; ioResult
|
||||
bra DrvrFinish
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
; Elliot: this can probably be cleaned up, because all our calls are synchronous
|
||||
DrvrFinish
|
||||
move.w 6(A0),D1 ; iopb.ioTrap
|
||||
btst #9,D1 ; noQueueBit
|
||||
bne.s DrvrNoIoDone
|
||||
move.l $8FC,-(SP) ; jIODone
|
||||
DrvrNoIoDone
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
SocketListener
|
||||
dc.w $A9FF
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
MPPString dc.b 4, ".MPP", 0
|
||||
|
||||
ObjStr dc.b 4, "0000", 0
|
||||
TypStr dc.b 10, "BootServer", 0
|
||||
ZonStr dc.b 1, "*"
|
||||
|
||||
|
||||
|
||||
; Names table entry for NBP
|
||||
PB
|
||||
dcb.b 108
|
||||
|
||||
NTE
|
||||
dcb.b 108
|
||||
|
||||
|
||||
|
||||
; AddrBlock is Net(w)/Node(b)/Socket(b)
|
||||
|
||||
|
||||
; NTElement RECORD 0
|
||||
; nteAddress ds AddrBlock ; offset: $0 (0) ; network address of entity
|
||||
; filler ds.b 1 ; offset: $4 (4)
|
||||
; entityData ds.b 99 ; offset: $5 (5) ; Object, Type & Zone
|
||||
; sizeof EQU * ; size: $68 (104)
|
||||
; ENDR
|
||||
|
||||
; NamesTableEntry RECORD 0
|
||||
; qNext ds.l 1 ; offset: $0 (0) ; ptr to next NTE
|
||||
; nt ds NTElement ; offset: $4 (4)
|
||||
; sizeof EQU * ; size: $6C (108)
|
||||
; ENDR
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; PROCEDURE NBPSetNTE( NTEptr:Ptr;NBPObject,NBPType,NBPZone:STRING[32];Socket:INTEGER);
|
||||
|
||||
; Builds an Names Table Entry using the parms. Calls NBPSetEntity to fill in the strings.
|
||||
; This clears the next entry pointer in the NTE. Only LSB 8 bits of Socket are used.
|
||||
|
||||
NBPSetNTE
|
||||
MOVEM.L A0-A3/D0,-(SP)
|
||||
MOVE.W 24(SP),D0 ;D0=Socket
|
||||
MOVEM.L 26(SP),A0-A3 ;A0->Zone,A1->Type,A2->Object,A3->NTE
|
||||
CLR.L (A3)+ ;clear next ptr
|
||||
MOVE.B D0,3(A3) ;set socket [TupleSkt]
|
||||
|
||||
PEA 5(A3) ;set Buffer ptr [TupleName]
|
||||
PEA (A2) ;Object
|
||||
PEA (A1) ;Type
|
||||
PEA (A0) ;Zone
|
||||
JSR NBPSetEntity ;fill in the strings
|
||||
|
||||
MOVEM.L (SP)+,A0-A3/D0
|
||||
MOVE.L (SP),18(SP)
|
||||
ADDA.L #18,SP
|
||||
RTS
|
||||
|
||||
|
||||
; PROCEDURE NBPSetEntity(Buffer:Ptr;NBPObject,NBPType,NBPZone:STRING[32])
|
||||
; Concatenates the strings Object,Type, & Zone in Buffer
|
||||
|
||||
NBPSetEntity
|
||||
MOVEM.L A0/A1/D0,-(SP)
|
||||
MOVEQ #28,D0
|
||||
BSR.S MoveAstring ;move the Object
|
||||
MOVE.W #24,D0
|
||||
BSR.S MoveAstring ;move the Type
|
||||
MOVE.W #20,D0
|
||||
BSR.S MoveAstring ;move the Zone
|
||||
MOVEM.L (SP)+,A0/A1/D0
|
||||
MOVE.L (SP),16(SP)
|
||||
ADDA.L #16,SP
|
||||
RTS
|
||||
MoveAstring
|
||||
MOVEA.L (SP,D0.W),A0 ;get source string addr
|
||||
CLR.L D0
|
||||
MOVE.B (A0),D0 ;setup len and adjust source addr
|
||||
ADDQ.L #1,D0 ;adj for str len byte
|
||||
MOVEA.L 32(SP),A1 ;setup dest addr
|
||||
ADD.L D0,32(SP) ;update dest addr
|
||||
DC.W $A22E ; _BlockMoveData
|
||||
RTS
|
||||
|
||||
|
|
@ -0,0 +1,85 @@
|
|||
myUnitNum equ 53
|
||||
myDRefNum equ ~myUnitNum
|
||||
|
||||
; Get our DRVR resource
|
||||
subq #4,SP
|
||||
move.l #'DRVR',-(SP)
|
||||
move.w #128,-(SP)
|
||||
dc.w $A81F ; _Get1Resource
|
||||
move.l (SP)+,A3
|
||||
|
||||
move.l A3,D0
|
||||
bne.s noGetResErr
|
||||
dc.w $A9FF ; _Debugger
|
||||
noGetResErr
|
||||
|
||||
; Size it for the copy
|
||||
move.l A3,A0
|
||||
dc.w $A025 ; _GetHandleSize
|
||||
move.l D0,D4
|
||||
|
||||
; Create a nonrelocatable block in the system heap
|
||||
dc.w $A51E ; _NewPtrSys
|
||||
move.l A0,A4
|
||||
|
||||
move.l A4,D0
|
||||
bne.s noNewPtrErr
|
||||
dc.w $A9FF ; _Debugger
|
||||
noNewPtrErr
|
||||
|
||||
; Copy it there
|
||||
move.l (A3),A0
|
||||
move.l A4,A1
|
||||
move.l D4,D0
|
||||
dc.w $A02E ; _BlockMove (yes, of code)
|
||||
|
||||
; No further use for our resource
|
||||
move.l A3,-(SP)
|
||||
dc.w $A9A3 ; _ReleaseResource
|
||||
|
||||
; Install the driver in the unit table
|
||||
move.l A4,A0
|
||||
move.l #myDRefNum,D0
|
||||
dc.w $A43D ; _DrvrInstall ReserveMem
|
||||
|
||||
beq.s noDrvrInstallErr
|
||||
dc.w $A9FF ; _Debugger
|
||||
noDrvrInstallErr
|
||||
|
||||
; Get DCE handle of installed driver
|
||||
move.l $11C,A0 ; UTableBase
|
||||
add.l #myUnitNum*4,A0
|
||||
move.l (A0),A3
|
||||
|
||||
; Lock it down
|
||||
move.l A3,A0
|
||||
dc.w $A029 ; _HLock
|
||||
|
||||
; Populate the empty DCE that DrvrInstall left us
|
||||
move.l (A3),A0 ; A0 = dce ptr
|
||||
|
||||
move.l A4,0(A0) ; dCtlDriver is pointer (not hdl)
|
||||
|
||||
move.w 0(A4),D0 ; drvrFlags
|
||||
and.w #~$0040,D0 ; Clear dRAMBased bit (to treat dCtlDriver as a pointer)
|
||||
move.w D0,4(A0) ; dCtlFlags
|
||||
|
||||
; Copy these other values that apparently the Device Mgr forgets
|
||||
move.w 2(A4),$22(A0) ; drvrDelay to dCtlDelay
|
||||
move.w 4(A4),$24(A0) ; drvrEMask to dCtlEMask
|
||||
move.w 6(A4),$26(A0) ; drvrMenu to dCtlMenu
|
||||
|
||||
; Open the driver
|
||||
lea -$32(SP),SP
|
||||
move.l SP,A0
|
||||
clr.b $1B(A0) ; IOPermssn = whatever is allowed
|
||||
lea $12(A4),A1 ; IOFileName = directly from the DRVR
|
||||
move.l A1,$12(A0)
|
||||
dc.w $A000 ; _Open
|
||||
lea $32(SP),SP
|
||||
|
||||
beq.s noDrvrOpenErr
|
||||
dc.w $A9FF ; _Debugger
|
||||
noDrvrOpenErr
|
||||
|
||||
rts
|
||||
24
Makefile
24
Makefile
|
|
@ -33,3 +33,27 @@ BootstrapFloppy.dsk: BootstrapFloppy/System.rdump
|
|||
|
||||
testflop: BootstrapFloppy.dsk
|
||||
Mini\ vMac\ Classic.app/Co*/Ma*/* xo.rom $<
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
BootServer.INIT: FORCE
|
||||
./buildapp.bash BootServer
|
||||
|
||||
testserver: BootServer.INIT
|
||||
rm -rf /tmp/bootserv; mkdir /tmp/bootserv
|
||||
cp systools607.dsk bootserv.tmp
|
||||
DumpHFS systools607.dsk /tmp/bootserv
|
||||
cp MacsBug\ 6.2.2/* /tmp/bootserv/System\ Folder
|
||||
cp BootServer.INIT* /tmp/bootserv/System\ Folder
|
||||
MakeHFS -i /tmp/bootserv -s 1440k bootserv.tmp
|
||||
Mini\ vMac\ Classic.app/Co*/Ma*/* xo.rom bootserv.tmp
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
FORCE:
|
||||
|
|
|
|||
|
|
@ -0,0 +1,18 @@
|
|||
#!/bin/bash
|
||||
|
||||
set -e
|
||||
|
||||
EXT=.INIT
|
||||
|
||||
for x; do
|
||||
touch "$x$EXT"
|
||||
echo -n 'INIT????' >"$x$EXT.idump"
|
||||
echo -n '' >"$x$EXT.rdump"
|
||||
|
||||
for subfile in "$x"/*; do
|
||||
./vasm-1/vasmm68k_mot -quiet -Fbin -pic -o /tmp/mytmp "$subfile"
|
||||
rspec="${subfile%.*}"
|
||||
rspec="$(basename "$rspec" | sed -E 's!([-[:digit:]])!/\1!')"
|
||||
rfx cp /tmp/mytmp "$x$EXT.rdump//$rspec"
|
||||
done
|
||||
done
|
||||
|
|
@ -4,4 +4,4 @@ trap "trap - SIGTERM && kill -- -$$" SIGINT SIGTERM EXIT
|
|||
|
||||
make BootstrapFloppy.dsk
|
||||
|
||||
./NetBoot.py & Mini\ vMac\ Classic.app/Contents/MacOS/minivmac xo.rom BootstrapFloppy.dsk && kill %1
|
||||
Mini\ vMac\ Classic.app/Contents/MacOS/minivmac xo.rom BootstrapFloppy.dsk && kill %1
|
||||
|
|
|
|||
Loading…
Reference in New Issue