Macintosh-SW/NetBoot
1
0
Fork 0
mirror of https://github.com/elliotnunn/NetBoot.git synced 2025-01-03 01:29:52 +00:00
Code Issues Projects Releases Wiki Activity

Stuff button handlers in refCon!

Browse Source
This commit is contained in:
Elliot Nunn 2021-03-24 09:18:15 +08:00
parent 3c7935cd7f
commit 602c48b6da
1 changed files with 49 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
ServerDA.a
View File

@ -97,7 +97,7 @@ DAOpen
clr.w -(SP) ; min clr.w -(SP) ; min
clr.w -(SP) ; max clr.w -(SP) ; max
clr.w -(SP) ; procID = push button clr.w -(SP) ; procID = push button
move.l #-1,-(SP) ; refCon move.l #OpenBtn-DAEntry,-(SP) ; refCon
dc.w $A954 ; _NewControl dc.w $A954 ; _NewControl
addq #4,SP addq #4,SP
endif endif
@ -251,43 +251,12 @@ CtlEvtMouse
move.w (SP)+,D0 move.w (SP)+,D0
beq.s .noControlClicked beq.s .noControlClicked
link A6,#0 move.l D3,A0 ; Use the low bits of rfCon as a routine offset
bsr GetFile move.l (A0),A0
tst.b (SP) move.l $24(A0),D0
beq.s .cancelOpen lea DAEntry,A0
add.w D0,A0
sub #50,SP ; push IOPB for Open jsr (A0)
lea 50+10(SP),A0 ; SFReply.fName...
move.l A0,18(SP) ; ...IONamePtr
move.w 50+6(SP),22(SP) ; SFReply.vRefNum...IOVRefNum
clr.b 17(SP) ; IOPermssn
move.l SP,A0
dc.w $A000 ; _Open
tst.w 16(SP)
bne.s .cancelOpen ; maybe we should complain louder?
; Create and fill a new queue entry
clr.l D0
move.b 50+10(SP),D0
add.l #feFileName+1,D0
dc.w $A71E ; _NewPtrSysClear
move.l A0,D0
beq.s .cancelOpen
move.w 24(SP),feRefNum(A0) ; IORefNum...feRefNum
move.b 17(SP),fePermssn(A0) ; IOPermssn...fePermssn
moveq.l #1,D0
add.b 50+10(SP),D0
lea feFileName(A0),A1
lea 50+10(SP),A0
dc.w $A22E ; _BlockMoveData the name
lea -feFileName(A1),A0 ; hack to get our register back
; And append it to the interrupt-time-accessible queue
move.l gBackendQHdr,A1
dc.w $A96F ; _Enqueue
.cancelOpen
unlk A6
.noControlClicked .noControlClicked
DC.W $A873 ; _SetPort to restore the GrafPort DC.W $A873 ; _SetPort to restore the GrafPort
@ -439,6 +408,48 @@ kgbcnt equ 3
rts rts
***************************** CONTROLS ****************************
OpenBtn
link A6,#0
bsr GetFile
tst.b (SP)
beq.s .cancelOpen
sub #50,SP ; push IOPB for Open
lea 50+10(SP),A0 ; SFReply.fName...
move.l A0,18(SP) ; ...IONamePtr
move.w 50+6(SP),22(SP) ; SFReply.vRefNum...IOVRefNum
clr.b 17(SP) ; IOPermssn
move.l SP,A0
dc.w $A000 ; _Open
tst.w 16(SP)
bne.s .cancelOpen ; maybe we should complain louder?
; Create and fill a new queue entry
clr.l D0
move.b 50+10(SP),D0
add.l #feFileName+1,D0
dc.w $A71E ; _NewPtrSysClear
move.l A0,D0
beq.s .cancelOpen
move.w 24(SP),feRefNum(A0) ; IORefNum...feRefNum
move.b 17(SP),fePermssn(A0) ; IOPermssn...fePermssn
moveq.l #1,D0
add.b 50+10(SP),D0
lea feFileName(A0),A1
lea 50+10(SP),A0
dc.w $A22E ; _BlockMoveData the name
lea -feFileName(A1),A0 ; hack to get our register back
; And append it to the interrupt-time-accessible queue
move.l gBackendQHdr,A1
dc.w $A96F ; _Enqueue
.cancelOpen
unlk A6
rts
******************************* DATA AREA ********************************** ******************************* DATA AREA **********************************
s1 dc.b 9, 'AppHeap: ' s1 dc.b 9, 'AppHeap: '