Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-05-28 12:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.9 : fix in ATLK module to prevent initial crash (i hope!)

Browse Source
This commit is contained in:
Rémy GIBERT 2017-04-26 16:54:24 +02:00
parent d71c265058
commit f2a899c776
5 changed files with 29 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Floppies/A2OSX.BOOT.po
View File

Binary file not shown.

BIN
Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
Floppies/A2OSX.SRC.po
View File

Binary file not shown.

8
SYS/KM.APPLETALK.S.txt
View File

@ -79,10 +79,10 @@ AT.INIT >LDAXI MSG.INIT
>STYA MLI+1
>LDAXI MSG.ATINIT
.5 >LDAXI MSG.ATINIT
jsr PrintCStrAX
.5 jsr GO.WSCARD
jsr GO.WSCARD
.DA #MLIATALK
.DA MLIATALK.PARAMS
bcs .9
@ -125,8 +125,8 @@ MSG.INIT >CSTR "AppleTalk Driver For A2osX\n"
MSG.FAILED >CSTR "AppleTalk Workstation Card Failed Power Up Diagnostics : EC=%h.\n"
MSG.NOHW >CSTR "AppleTalk Workstation Card Not Found.\n"
MSG.HWOK >CSTR "AppleTalk Workstation Card Type #%d Found In Slot #%d.\n"
MSG.ATINIT >CSTR "Calling ATINIT..."
MSG.PRODOS >CSTR "Registering Into ProDOS..."
MSG.ATINIT >CSTR "Calling ATINIT...\n"
MSG.PRODOS >CSTR "Registering Into ProDOS...\n"
MSG.OK >CSTR "AppleTalk Driver Successfully Installed.\n"
MSG.KO >CSTR "AppleTalk Driver Install Failed : EC=%h.\n"
*--------------------------------------

45
X.PRINTF.S.txt
View File

@ -20,25 +20,24 @@ PrintPStrAX >STAX TmpPtr1
.9 rts
*--------------------------------------
PrintCStrAX >STAX TmpPtr1
PrintCStrAX >STAX PrintCStrAX.Next+1
pla
sta .91+1
pla
sta .9+1
ldy #0
.1 stz X.b0Flag
stz X.DigitCount
lda (TmpPtr1),y
jsr PrintCStrAX.Next
beq .9
cmp #'%'
bne .5
.11 iny
lda (TmpPtr1),y
.11 jsr PrintCStrAX.Next
beq .9
cmp #'0'
bne .22
ror X.b0Flag beq -> CS
@ -55,20 +54,20 @@ PrintCStrAX >STAX TmpPtr1
bne .2
pla
jsr PrintADec
bra .8
bra .1
.2 cmp #'D'
bne .3
plx
pla
jsr PrintAXDec
bra .8
bra .1
.3 cmp #'h'
bne .4
pla
jsr $FDDA PRBYTE
bra .8
bra .1
.4 cmp #'H'
bne .5
@ -76,21 +75,21 @@ PrintCStrAX >STAX TmpPtr1
jsr $FDDA PRBYTE
pla
jsr $FDDA PRBYTE
bra .8
bra .1
.5 cmp #'\'
bne .7
iny
lda (TmpPtr1),y
jsr PrintCStrAX.Next
beq .9
cmp #'n'
bne .9
lda #$0D
.7 ora #$80
jsr $FDED COUT
.8 iny
bne .1
bra .1
.9 lda #$ff Self modified RTS HI
pha
@ -98,20 +97,29 @@ PrintCStrAX >STAX TmpPtr1
pha
rts
*--------------------------------------
PrintCStrAX.Next
lda $ffff
beq .8
inc PrintCStrAX.Next+1
bne .8
inc PrintCStrAX.Next+2 Always !=0
.8 rts
*--------------------------------------
PrintADec ldx #0
PrintAXDec >STAX X.HexBuffer
stz X.BCDBuffer
stz X.BCDBuffer+1
stz X.BCDBuffer+2
phy
ldx #16 let's roll 16 bits
sed
.2 asl X.HexBuffer
rol X.HexBuffer+1
php cpy will disturb carry while BCD adc
ldy #0
.3 plp
lda X.BCDBuffer,y
adc X.BCDBuffer,y
@ -172,10 +180,7 @@ PrintAXDec >STAX X.HexBuffer
cpy #6
bne .6
.9 ply
rts
*--------------------------------------
.9 rts
*--------------------------------------
X.HexBuffer .BS 2
X.BCDBuffer .BS 3