2017-01-23 07:16:06 +00:00
|
|
|
|
NEW
|
2018-11-17 17:17:13 +00:00
|
|
|
|
PREFIX
|
2018-08-08 15:13:37 +00:00
|
|
|
|
AUTO 4,1
|
2017-01-23 07:16:06 +00:00
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2019-10-21 14:25:37 +00:00
|
|
|
|
.TF SYS/KM/KM.APPLETALK
|
2017-01-23 07:16:06 +00:00
|
|
|
|
*--------------------------------------
|
2018-07-23 15:28:42 +00:00
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/IO.I
|
|
|
|
|
.INB INC/MONITOR.I
|
2018-10-02 15:52:30 +00:00
|
|
|
|
.INB INC/MLI.I
|
2017-01-23 07:16:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
TmpPtr1 .EQ $0
|
|
|
|
|
*--------------------------------------
|
2018-08-24 10:20:23 +00:00
|
|
|
|
BUF.PREFIX .EQ $300
|
|
|
|
|
*--------------------------------------
|
2018-07-12 15:20:39 +00:00
|
|
|
|
AT.INIT >LDYAI MSG.INIT
|
|
|
|
|
jsr PrintFYA
|
2017-01-23 07:16:06 +00:00
|
|
|
|
lda #$F9
|
|
|
|
|
sta TmpPtr1
|
|
|
|
|
lda #$C7
|
|
|
|
|
sta TmpPtr1+1
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
.1 ldy #3
|
|
|
|
|
|
|
|
|
|
.2 lda (TmpPtr1),y
|
|
|
|
|
cmp SIG.ATLK,y
|
|
|
|
|
bne .3
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
dey
|
|
|
|
|
bpl .2
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
ldy #4
|
|
|
|
|
lda (TmpPtr1),y
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
ldx #0
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
cmp #1
|
|
|
|
|
beq .4
|
|
|
|
|
ldx #$80
|
|
|
|
|
cmp #2
|
|
|
|
|
beq .4
|
|
|
|
|
|
|
|
|
|
pha
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.FAILED
|
|
|
|
|
jsr PrintFYA
|
2017-01-23 07:16:06 +00:00
|
|
|
|
rts
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
.3 dec TmpPtr1+1
|
|
|
|
|
lda TmpPtr1+1
|
|
|
|
|
cmp #$C0
|
|
|
|
|
bne .1
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.NOHW
|
|
|
|
|
jsr PrintFYA
|
2017-01-23 07:16:06 +00:00
|
|
|
|
rts
|
2019-10-23 15:12:58 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
.4 stx WC.Flag
|
|
|
|
|
tay
|
|
|
|
|
lda TmpPtr1+1
|
|
|
|
|
and #$0f
|
|
|
|
|
pha Push slot #
|
|
|
|
|
phy Push Type #
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.HWOK
|
|
|
|
|
jsr PrintFYA
|
2017-01-23 07:16:06 +00:00
|
|
|
|
|
|
|
|
|
>LDYA MLI+1
|
|
|
|
|
>STYA GO.OLDMLI+1
|
2017-11-05 21:23:21 +00:00
|
|
|
|
>STYA MLIATALK.PARAMS.OLDMLI
|
2017-01-23 07:16:06 +00:00
|
|
|
|
ldy #$14
|
|
|
|
|
lda TmpPtr1+1 Cn
|
|
|
|
|
sta MLIALLOCIRQ.PARAMS.SLOT
|
|
|
|
|
>STYA GO.WSCARD+1
|
|
|
|
|
bit WC.Flag
|
|
|
|
|
bmi .5
|
|
|
|
|
>STYA MLI+1
|
2017-04-17 19:36:00 +00:00
|
|
|
|
|
2018-07-12 15:20:39 +00:00
|
|
|
|
.5 >LDYAI MSG.ATINIT
|
|
|
|
|
jsr PrintFYA
|
2017-04-26 14:54:24 +00:00
|
|
|
|
jsr GO.WSCARD
|
2017-01-23 07:16:06 +00:00
|
|
|
|
.DA #MLIATALK
|
|
|
|
|
.DA MLIATALK.PARAMS
|
|
|
|
|
bcs .9
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.IRQ
|
|
|
|
|
jsr PrintFYA
|
2017-04-17 19:36:00 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
jsr MLI
|
|
|
|
|
.DA #MLIALLOCIRQ
|
|
|
|
|
.DA MLIALLOCIRQ.PARAMS
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
cli
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.PREFIX1
|
|
|
|
|
jsr PrintFYA
|
2017-04-29 12:34:16 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
jsr GO.OLDMLI
|
|
|
|
|
.DA #MLIGETPREFIX
|
|
|
|
|
.DA MLIGETPREFIX.PARAMS
|
|
|
|
|
bcs .9
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.PREFIX2
|
|
|
|
|
jsr PrintFYA
|
2017-04-29 12:34:16 +00:00
|
|
|
|
|
2017-01-23 07:16:06 +00:00
|
|
|
|
jsr GO.WSCARD
|
2017-02-07 07:27:27 +00:00
|
|
|
|
.DA #MLISETPREFIX
|
2017-01-23 07:16:06 +00:00
|
|
|
|
.DA MLIGETPREFIX.PARAMS
|
|
|
|
|
bcs .9
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.OK
|
|
|
|
|
jsr PrintFYA
|
2017-01-23 07:16:06 +00:00
|
|
|
|
rts
|
|
|
|
|
.9 pha
|
2018-07-12 15:20:39 +00:00
|
|
|
|
>LDYAI MSG.KO
|
|
|
|
|
jsr PrintFYA
|
2017-01-23 07:16:06 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2018-11-19 07:43:00 +00:00
|
|
|
|
GO.WSCARD jmp $ffff SELF MODIFIED
|
|
|
|
|
GO.OLDMLI jmp $ffff SELF MODIFIED
|
2017-01-23 07:16:06 +00:00
|
|
|
|
*--------------------------------------
|
2019-10-21 14:25:37 +00:00
|
|
|
|
.INB USR/SRC/SHARED/X.PRINTF.S
|
2017-01-23 07:16:06 +00:00
|
|
|
|
*--------------------------------------
|
2018-04-11 15:35:51 +00:00
|
|
|
|
MSG.INIT .AZ "AppleTalk Driver For A2osX\n"
|
|
|
|
|
MSG.FAILED .AZ "AppleTalk Workstation Card Failed Power Up Diagnostics : EC=%h.\n"
|
|
|
|
|
MSG.NOHW .AZ "AppleTalk Workstation Card Not Found.\n"
|
|
|
|
|
MSG.HWOK .AZ "AppleTalk Workstation Card Type #%d Found In Slot #%d.\n"
|
|
|
|
|
MSG.ATINIT .AZ "Calling ATInit...\n"
|
|
|
|
|
MSG.IRQ .AZ "Setting Up IRQ Vector...\n"
|
|
|
|
|
MSG.PREFIX1 .AZ "Getting ProDOS Prefix...\n"
|
|
|
|
|
MSG.PREFIX2 .AZ "Setting AppleTalk Prefix...\n"
|
|
|
|
|
MSG.OK .AZ "AppleTalk Driver Successfully Installed.\n"
|
|
|
|
|
MSG.KO .AZ "AppleTalk Driver Install Failed : EC=%h.\n"
|
2017-01-23 07:16:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
SIG.ATLK .AS "ATLK"
|
|
|
|
|
WC.Flag .BS 1
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MLIATALK.PARAMS .DA #0 Sync
|
|
|
|
|
.DA #1 INIT
|
|
|
|
|
.BS 2 RC
|
2017-02-07 07:27:27 +00:00
|
|
|
|
.DA #$40 ??? from ATINIT disassembly
|
2017-11-05 21:23:21 +00:00
|
|
|
|
MLIATALK.PARAMS.OLDMLI
|
|
|
|
|
.BS 2 ??? from ATINIT disassembly
|
|
|
|
|
.BS 5 ??? from ATINIT disassembly
|
2017-01-23 07:16:06 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MLIALLOCIRQ.PARAMS
|
|
|
|
|
.DA #2 Param Count
|
|
|
|
|
.BS 1 Int Num returned
|
|
|
|
|
.DA #$19 Lo byte always $19 for WS Card
|
|
|
|
|
MLIALLOCIRQ.PARAMS.SLOT
|
|
|
|
|
.BS 1 hi byte : $Cn
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MLIGETPREFIX.PARAMS
|
|
|
|
|
.DA #1
|
|
|
|
|
.DA BUF.PREFIX
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2018-11-30 16:00:36 +00:00
|
|
|
|
SAVE USR/SRC/SYS/KM.APPLETALK.S
|
2017-01-23 07:16:06 +00:00
|
|
|
|
ASM
|