diff --git a/Floppies/A2OSX.BOOT.po b/Floppies/A2OSX.BOOT.po index d93048d1..7aa01240 100644 Binary files a/Floppies/A2OSX.BOOT.po and b/Floppies/A2OSX.BOOT.po differ diff --git a/Floppies/A2OSX.BUILD.po b/Floppies/A2OSX.BUILD.po index 6f612ae6..214d9052 100644 Binary files a/Floppies/A2OSX.BUILD.po and b/Floppies/A2OSX.BUILD.po differ diff --git a/Floppies/A2OSX.SRC.po b/Floppies/A2OSX.SRC.po index d067544b..59704d64 100644 Binary files a/Floppies/A2OSX.SRC.po and b/Floppies/A2OSX.SRC.po differ diff --git a/SYS/KM.APPLETALK.S.txt b/SYS/KM.APPLETALK.S.txt index 2d438691..6e0197b4 100644 --- a/SYS/KM.APPLETALK.S.txt +++ b/SYS/KM.APPLETALK.S.txt @@ -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" *-------------------------------------- diff --git a/X.PRINTF.S.txt b/X.PRINTF.S.txt index 4f14f651..06c2df65 100644 --- a/X.PRINTF.S.txt +++ b/X.PRINTF.S.txt @@ -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