Kernel version 0.9 : CR/LF migration (Telnet)

This commit is contained in:
Rémy GIBERT 2017-02-28 17:58:36 +01:00
parent e54b6e59dc
commit fceb9a7c08
36 changed files with 244 additions and 180 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -187,9 +187,9 @@ Wait.TimeOut sec
CS.END CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
SSCANF.IP >PSTR "%d.%d.%d.%d" SSCANF.IP >PSTR "%d.%d.%d.%d"
MSG0 >CSTR "STS TTL MAC Address IP Address\n" MSG0 >CSTR "STS TTL MAC Address IP Address\r\n"
MSG1 >CSTR "$%h %5D %h:%h:%h:%h:%h:%h %d.%d.%d.%d\n" MSG1 >CSTR "$%h %5D %h:%h:%h:%h:%h:%h %d.%d.%d.%d\r\n"
MSG2 >CSTR "%d.%d.%d.%d is at %h:%h:%h:%h:%h:%h\n" MSG2 >CSTR "%d.%d.%d.%d is at %h:%h:%h:%h:%h:%h\r\n"
*-------------------------------------- *--------------------------------------
DS.START DS.START
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1

View File

@ -10,7 +10,7 @@ AUTO 6
*-------------------------------------- *--------------------------------------
.INB /A2OSX.DEV/INC/MACROS.I .INB /A2OSX.DEV/INC/MACROS.I
.INB /A2OSX.DEV/INC/A2OSX.I .INB /A2OSX.DEV/INC/A2OSX.I
.INB /A2OSX.DEV/INC/PRODOS.I .INB /A2OSX.DEV/INC/MLI.ERR.I
*-------------------------------------- *--------------------------------------
ZPPTR1 .EQ ZPBIN ZPPTR1 .EQ ZPBIN
*-------------------------------------- *--------------------------------------
@ -333,7 +333,7 @@ CS.END
OptionList >PSTR "ANS" OptionList >PSTR "ANS"
OptionVars .DA #bPrintAll,#bLineNum,#bSuppress OptionVars .DA #bPrintAll,#bLineNum,#bSuppress
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : CAT File1 [File2...]\n -A : Show All non printable caracters\n -N : Number all output lines\n -S : Suppress repeated empty output lines\n" MSG.USAGE >CSTR "Usage : CAT File1 [File2...]\r\n -A : Show All non printable caracters\r\n -N : Number all output lines\r\n -S : Suppress repeated empty output lines\r\n"
MSG.LINENUM >CSTR "%5D:" MSG.LINENUM >CSTR "%5D:"
MSG.CTRLCHAR >CSTR "[%S]" MSG.CTRLCHAR >CSTR "[%S]"
*-------------------------------------- *--------------------------------------

View File

@ -23,12 +23,12 @@ CS.END
OptionList >PSTR "CRY" OptionList >PSTR "CRY"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm OptionVars .DA #bContinue,#bRecurse,#bNoConfirm
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : CP [Src File/Dir, *,? wildcards allowed]\n -C : Continue on error\n -R : Recurse subdirectories\n -Y : Dont't prompt for override\n" MSG.USAGE >CSTR "Usage : CP [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
MSG.DIR >CSTR "CP Dir :%S%S to %S%S..." MSG.DIR >CSTR "CP Dir :%S%S to %S%S..."
MSG.FILE >CSTR "CP File:%S%S to %S%S..." MSG.FILE >CSTR "CP File:%S%S to %S%S..."
MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?" MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?"
MSG.OK >CSTR "[OK]\n" MSG.OK >CSTR "[OK]\r\n"
MSG.ERR >CSTR "[%h]\n" MSG.ERR >CSTR "[%h]\r\n"
*-------------------------------------- *--------------------------------------
STAT .BS S.STAT STAT .BS S.STAT
ArgCount .BS 1 ArgCount .BS 1

View File

@ -145,8 +145,8 @@ CS.QUIT lda hLIBTCPIP
CS.END CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
SSCANF.IP >PSTR "%d.%d.%d.%d" SSCANF.IP >PSTR "%d.%d.%d.%d"
MSG0 >CSTR "STS TR.ID Hostname IP Address TTL\n" MSG0 >CSTR "STS TR.ID Hostname IP Address TTL\r\n"
MSG1 >CSTR "$%h $%H %32S %03d.%03d.%03d.%03d %L\n" MSG1 >CSTR "$%h $%H %32S %03d.%03d.%03d.%03d %L\r\n"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
IP .BS 4 IP .BS 4

View File

@ -264,27 +264,27 @@ CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
*-------------------------------------- *--------------------------------------
MSG0 >CSTR "TCP/IP Status : " MSG0 >CSTR "TCP/IP Status : "
MSG0.L >CSTR "Loaded\n" MSG0.L >CSTR "Loaded\r\n"
MSG0.NL >CSTR "Not Loaded\n" MSG0.NL >CSTR "Not Loaded\r\n"
*-------------------------------------- *--------------------------------------
MSG1.DEV >CSTR "\nDevice Configuration :\n DevID : $%h\n Device Name : %s\n HW Address : %02h:%02h:%02h:%02h:%02h:%02h\n" MSG1.DEV >CSTR "\r\nDevice Configuration :\r\n DevID : $%h\r\n Device Name : %s\r\n HW Address : %02h:%02h:%02h:%02h:%02h:%02h\r\n"
MSG1.DEV.ARP >CSTR " ARP Offload : %d\n" MSG1.DEV.ARP >CSTR " ARP Offload : %d\r\n"
MSG1.DEV.IP >CSTR " IP Offload : %d\n" MSG1.DEV.IP >CSTR " IP Offload : %d\r\n"
MSG1.LINK >CSTR " Link Status : %s\n" MSG1.LINK >CSTR " Link Status : %s\r\n"
MSG1.LINK.OK >CSTR "OK" MSG1.LINK.OK >CSTR "OK"
MSG1.LINK.KO >CSTR "Media Disconnected" MSG1.LINK.KO >CSTR "Media Disconnected"
MSG1.LINKSPEED >CSTR " Link Speed : 1" MSG1.LINKSPEED >CSTR " Link Speed : 1"
MSG1.DPLX.FD >CSTR " Mbit/s,Full Duplex\n" MSG1.DPLX.FD >CSTR " Mbit/s,Full Duplex\r\n"
MSG1.DPLX.HD >CSTR " Mbit/s,Half Duplex\n" MSG1.DPLX.HD >CSTR " Mbit/s,Half Duplex\r\n"
*-------------------------------------- *--------------------------------------
MSG2 >CSTR "\nIP Configuration : " MSG2 >CSTR "\r\nIP Configuration : "
MSG2.C >CSTR "Configured\n" MSG2.C >CSTR "Configured\r\n"
MSG2.U >CSTR "Not Configured\n" MSG2.U >CSTR "Not Configured\r\n"
MSG2.DHCPSRVR >CSTR " DHCP Server : %d.%d.%d.%d\n" MSG2.DHCPSRVR >CSTR " DHCP Server : %d.%d.%d.%d\r\n"
MSG2.IP >CSTR " IP/Mask : %d.%d.%d.%d/%d.%d.%d.%d\n" MSG2.IP >CSTR " IP/Mask : %d.%d.%d.%d/%d.%d.%d.%d\r\n"
MSG2.GW >CSTR " Gateway : %d.%d.%d.%d\n" MSG2.GW >CSTR " Gateway : %d.%d.%d.%d\r\n"
MSG2.DNS >CSTR " DNS : %d.%d.%d.%d,%d.%d.%d.%d\n" MSG2.DNS >CSTR " DNS : %d.%d.%d.%d,%d.%d.%d.%d\r\n"
MSG2.HOSTNAME >CSTR " Hostname : %S.%S\n" MSG2.HOSTNAME >CSTR " Hostname : %S.%S\r\n"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
DevID .BS 1 DevID .BS 1
DevName .BS 5 DevName .BS 5

View File

@ -390,6 +390,8 @@ CS.RUN.NewLine ldy #ColCount
CS.RUN.NewLine.1 CS.RUN.NewLine.1
lda #13 lda #13
>SYSCALL PutCA >SYSCALL PutCA
lda #10
>SYSCALL PutCA
rts rts
CS.RUN.NewLine.8 CS.RUN.NewLine.8
clc clc
@ -458,12 +460,12 @@ CS.END
OptionList >PSTR "ALR" OptionList >PSTR "ALR"
OptionVars .DA #bAllmostAll,#bLong,#bRecurse OptionVars .DA #bAllmostAll,#bLong,#bRecurse
*-------------------------------------- *--------------------------------------
MSG.DEVEXT >CSTR "%15S S%d,D%d Blocks Used:%5D,Total:%5D\n" MSG.DEVEXT >CSTR "%15S S%d,D%d Blocks Used:%5D,Total:%5D\r\n"
MSG.DIR >CSTR "%S/" MSG.DIR >CSTR "%S/"
MSG.ENTER >CSTR "Directory:%S\n" MSG.ENTER >CSTR "Directory:%S\r\n"
MSG.DIREXT >CSTR "%16S <dir> %a %S %S\n" MSG.DIREXT >CSTR "%16S <dir> %a %S %S\r\n"
MSG.FILE >CSTR "%19S" MSG.FILE >CSTR "%19S"
MSG.FILEEXT >CSTR "%15S %S $%H %a %10u %S %S\n" MSG.FILEEXT >CSTR "%15S %S $%H %a %10u %S %S\r\n"
*-------------------------------------- *--------------------------------------
PRODOS.FT.HEX .HS 0406FAFCFDE2FF PRODOS.FT.HEX .HS 0406FAFCFDE2FF
PRODOS.FT.TXT >PSTR "TXT" PRODOS.FT.TXT >PSTR "TXT"

View File

@ -116,11 +116,11 @@ CS.QUIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.Main >CSTR "--- Main Memory ---------------\n" MSG.Main >CSTR "--- Main Memory ---------------\r\n"
MSG.Aux >CSTR "--- Aux Memory ----------------\n" MSG.Aux >CSTR "--- Aux Memory ----------------\r\n"
MSG.Kernel >CSTR "--- Kernel (Drivers) Memory ---\n" MSG.Kernel >CSTR "--- Kernel (Drivers) Memory ---\r\n"
MSG.Stat >CSTR " Low : $%H\n Free Ptr : $%H\n High : $%H\n Available Memory : %05D Bytes\n" MSG.Stat >CSTR " Low : $%H\r\n Free Ptr : $%H\r\n High : $%H\r\n Available Memory : %05D Bytes\r\n"
MSG.End >CSTR "-------------------------------\n" MSG.End >CSTR "-------------------------------\r\n"
MemStat .BS S.MEMSTAT MemStat .BS S.MEMSTAT
*-------------------------------------- *--------------------------------------
.DUMMY .DUMMY

View File

@ -271,16 +271,16 @@ CS.QUIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG0 >CSTR " # Flags PID REF PTR LEN BINPATH/DATA\n" MSG0 >CSTR " # Flags PID REF PTR LEN BINPATH/DATA\r\n"
MSG1 >CSTR "%03d %b %03d %03d $%H %05D " MSG1 >CSTR "%03d %b %03d %03d $%H %05D "
MSG1.BIN >CSTR "!BIN:%41S\n" MSG1.BIN >CSTR "!BIN:%41S\r\n"
MSG1.STR >CSTR "[%02h]:%41S\n" MSG1.STR >CSTR "[%02h]:%41S\r\n"
MSG1.HEX >CSTR "?HEX:%h%h%h%h.%h%h%h%h.%h%h%h%h.%h%h%h%h\n" MSG1.HEX >CSTR "?HEX:%h%h%h%h.%h%h%h%h.%h%h%h%h.%h%h%h%h\r\n"
MSG2 >CSTR "\nAllocated hMem:%d, Total:%d\n" MSG2 >CSTR "\r\nAllocated hMem:%d, Total:%d\r\n"
MSG3 >CSTR "High Memory: $%H\n" MSG3 >CSTR "High Memory: $%H\r\n"
MSG4 >CSTR "Free ULimit: $%H\n" MSG4 >CSTR "Free ULimit: $%H\r\n"
MSG5 >CSTR "Low Memory: $%H\n" MSG5 >CSTR "Low Memory: $%H\r\n"
MSG6 >CSTR "\nFree Memory: %D Bytes.\n" MSG6 >CSTR "\r\nFree Memory: %D Bytes.\r\n"
*-------------------------------------- *--------------------------------------
.DUMMY .DUMMY
.OR 0 .OR 0

View File

@ -23,12 +23,12 @@ CS.END
OptionList >PSTR "CRY" OptionList >PSTR "CRY"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm OptionVars .DA #bContinue,#bRecurse,#bNoConfirm
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\n -C : Continue on error\n -R : Recurse subdirectories\n -Y : Dont't prompt for override\n" MSG.USAGE >CSTR "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
MSG.DIR >CSTR "MV Dir :%S%S to %S%S..." MSG.DIR >CSTR "MV Dir :%S%S to %S%S..."
MSG.FILE >CSTR "MV File:%S%S to %S%S..." MSG.FILE >CSTR "MV File:%S%S to %S%S..."
MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?" MSG.OVERWRTE >CSTR "Overwrite [Yes,No,All]?"
MSG.OK >CSTR "[OK]\n" MSG.OK >CSTR "[OK]\r\n"
MSG.ERR >CSTR "[%h]\n" MSG.ERR >CSTR "[%h]\r\n"
*-------------------------------------- *--------------------------------------
STAT .BS S.STAT STAT .BS S.STAT
ArgCount .BS 1 ArgCount .BS 1

View File

@ -126,8 +126,8 @@ CS.QUIT lda hLIBTCPIP
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
MSG0 >CSTR "Proto Local Remote Options Status\n" MSG0 >CSTR "Proto Local Remote Options Status\r\n"
MSG1 >CSTR "%s %03d.%03d.%03d.%03d:%05D %03d.%03d.%03d.%03d:%05D %b %s\n" MSG1 >CSTR "%s %03d.%03d.%03d.%03d:%05D %03d.%03d.%03d.%03d:%05D %b %s\r\n"
MSG1.UDP >CSTR "UDP" MSG1.UDP >CSTR "UDP"
MSG1.TCP >CSTR "TCP" MSG1.TCP >CSTR "TCP"
MSG1.RAW >CSTR "RAW" MSG1.RAW >CSTR "RAW"

View File

@ -363,13 +363,13 @@ IsDigit cmp #'0'
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.READ.KO >CSTR "DS1216E Not Detected.\n" MSG.READ.KO >CSTR "DS1216E Not Detected.\r\n"
MSG.READ.OK1 >CSTR "DS1216E Detected:/OSC=%d,/RST=%d,mode=" MSG.READ.OK1 >CSTR "DS1216E Detected:/OSC=%d,/RST=%d,mode="
MSG.READ.OK2.12 >CSTR "am/pm" MSG.READ.OK2.12 >CSTR "am/pm"
MSG.READ.OK2.24 >CSTR "24h" MSG.READ.OK2.24 >CSTR "24h"
MSG.READ.OK3 >CSTR "\nDate:" MSG.READ.OK3 >CSTR "\r\nDate:"
MSG.READ.OK4 >CSTR "\nTime:" MSG.READ.OK4 >CSTR "\r\nTime:"
MSG.USAGE >CSTR "\n\nTo Reset the chip and set clock, type:\nNSCUTIL DD/MM/YY hh:mm:ss\n" MSG.USAGE >CSTR "\r\n\r\nTo Reset the chip and set clock, type:\r\nNSCUTIL DD/MM/YY hh:mm:ss\r\n"
TmpByte .BS 1 TmpByte .BS 1
DS1216E.PATTERN .HS 5CA33AC55CA33AC5 Reverted 7->0 DS1216E.PATTERN .HS 5CA33AC55CA33AC5 Reverted 7->0
DS1216E.DETECT .BS 8 DS1216E.DETECT .BS 8

View File

@ -322,13 +322,13 @@ Wait.TimeOut sec
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
MSG.IPKO >CSTR "TCP/IP Not Loaded/Configured.\n" MSG.IPKO >CSTR "TCP/IP Not Loaded/Configured.\r\n"
MSG.USAGE >CSTR "Usage : PING <ip|host>\n" MSG.USAGE >CSTR "Usage : PING <ip|host>\r\n"
MSG.UNKNOWN >CSTR "%S: Unknown host\n" MSG.UNKNOWN >CSTR "%S: Unknown host\r\n"
MSG.HOSTOK >CSTR "PING %d.%d.%d.%d (%S)\n" MSG.HOSTOK >CSTR "PING %d.%d.%d.%d (%S)\r\n"
MSG.SKTKO >CSTR "Failed to Open Socket.\n" MSG.SKTKO >CSTR "Failed to Open Socket.\r\n"
MSG.UNREACH >CSTR "%d.%d.%d.%d: TimeOut/Host unreachable\n" MSG.UNREACH >CSTR "%d.%d.%d.%d: TimeOut/Host unreachable\r\n"
MSG.REPLY >CSTR "32 bytes from %d.%d.%d.%d, icmp_seq=%D, ttl=%d, time=%D ms\n" MSG.REPLY >CSTR "32 bytes from %d.%d.%d.%d, icmp_seq=%D, ttl=%d, time=%D ms\r\n"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
TimeOut.ms .BS 2 TimeOut.ms .BS 2
Socket .DA #S.SOCKET.SOCK.RAW Socket .DA #S.SOCKET.SOCK.RAW

View File

@ -92,8 +92,8 @@ CS.QUIT clc
*-------------------------------------- *--------------------------------------
CS.END CS.END
PS.COUNT .BS 1 PS.COUNT .BS 1
MSG0 >CSTR "ID Flags PID Command Line\n" MSG0 >CSTR "ID Flags PID Command Line\r\n"
MSG1 >CSTR "%03d %b %03d %S\n" MSG1 >CSTR "%03d %b %03d %S\r\n"
MAN MAN
SAVE BIN/PS.S SAVE BIN/PS.S
ASM ASM

View File

@ -23,11 +23,11 @@ CS.END
OptionList >PSTR "CRY" OptionList >PSTR "CRY"
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm OptionVars .DA #bContinue,#bRecurse,#bNoConfirm
*-------------------------------------- *--------------------------------------
MSG.USAGE >CSTR "Usage : RM [File/Dir, *,? wildcards allowed]\n -C : Continue on error\n -R : Recurse subdirectories\n" MSG.USAGE >CSTR "Usage : RM [File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -R : Recurse subdirectories\r\n"
MSG.DIR >CSTR "RM Dir :%S%S..." MSG.DIR >CSTR "RM Dir :%S%S..."
MSG.FILE >CSTR "RM File:%S%S..." MSG.FILE >CSTR "RM File:%S%S..."
MSG.OK >CSTR "[OK]\n" MSG.OK >CSTR "[OK]\r\n"
MSG.ERR >CSTR "[%h]\n" MSG.ERR >CSTR "[%h]\r\n"
*-------------------------------------- *--------------------------------------
STAT .BS S.STAT STAT .BS S.STAT
ArgCount .BS 1 ArgCount .BS 1

View File

@ -236,11 +236,11 @@ DumpRPCFrame lda #S.UDP+24
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
MSG.USAGE >CSTR "Usage : RPCDUMP <ip|host>\n" MSG.USAGE >CSTR "Usage : RPCDUMP <ip|host>\r\n"
MSG.UNKNOWN >CSTR "%S: Unknown host\n" MSG.UNKNOWN >CSTR "%S: Unknown host\r\n"
MSG.TIMEOUT >CSTR "No response from %S\n" MSG.TIMEOUT >CSTR "No response from %S\r\n"
MSG.DUMP0 >CSTR "Program Ver Proto:Port\n" MSG.DUMP0 >CSTR "Program Ver Proto:Port\r\n"
MSG.DUMP1 >CSTR "%10L %2d %2d:%D\n" MSG.DUMP1 >CSTR "%10L %2d %2d:%D\r\n"
Socket .DA #S.SOCKET.SOCK.DGRAM Socket .DA #S.SOCKET.SOCK.DGRAM
.BS 3 .BS 3
Socket.Src.Addr .BS 4 Socket.Src.Addr .BS 4

View File

@ -11,7 +11,7 @@ AUTO 6
.INB /A2OSX.DEV/INC/MACROS.I .INB /A2OSX.DEV/INC/MACROS.I
.INB /A2OSX.DEV/INC/A2OSX.I .INB /A2OSX.DEV/INC/A2OSX.I
.INB /A2OSX.DEV/INC/IO.I .INB /A2OSX.DEV/INC/IO.I
.INB /A2OSX.DEV/INC/PRODOS.I .INB /A2OSX.DEV/INC/MLI.ERR.I
*-------------------------------------- *--------------------------------------
CURSOR.BLINK.SPEED .EQ 8 CURSOR.BLINK.SPEED .EQ 8
ESCSEQ.MAXLEN .EQ 16 ESCSEQ.MAXLEN .EQ 16
@ -42,7 +42,7 @@ Dev.Detect >LDYA L.MSG.DETECT
clc clc
rts rts
CS.END CS.END
MSG.DETECT >CSTR "Apple IIe/IIc 80 Col Driver.\n" MSG.DETECT >CSTR "Apple IIe/IIc 80 Col Driver.\r\n"
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) * Device Header (16 Bytes)
*-------------------------------------- *--------------------------------------
@ -183,20 +183,19 @@ WRITE bit bEscMode
jsr SetCharAtXY jsr SetCharAtXY
jmp FSOUT jmp FSOUT
*-------------------------------------- *--------------------------------------
COUT.Ctrl ldy #0 COUT.Ctrl ldx #CtrlChars.Cnt-1
ldx #0
.2 iny .1 cmp CtrlChars,x
cmp CtrlChars,y beq .2
beq .3 dex
inx bpl .1
inx
cpy CtrlChars
bne .2
clc clc
rts rts
.3 jmp (J.CtrlChars,x) .2 txa
asl
tax
jmp (J.CtrlChars,x)
*-------------------------------------- *--------------------------------------
COUT.EscMode bit bEscModeCSI COUT.EscMode bit bEscModeCSI
bmi COUT.EscModeCSI bmi COUT.EscModeCSI
@ -397,13 +396,20 @@ HOME stz CH
*-------------------------------------- *--------------------------------------
FSOUT ldx CH FSOUT ldx CH
cpx #79 cpx #79
beq CROUT1 bne .1
inc CH
stz CH
bra LF
.1 inc CH
clc clc
rts rts
*-------------------------------------- *--------------------------------------
CROUT jsr CLREOL CROUT jsr CLREOL
CROUT1 stz CH stz CH
clc
rts
*--------------------------------------
LF ldy CV LF ldy CV
cpy #23 cpy #23
beq SCROLL.UP beq SCROLL.UP
@ -805,7 +811,8 @@ KeyRemappedUP .HS 1B5B4100 esc[A
KeyRemappedCR .HS 0D0A00 crlf KeyRemappedCR .HS 0D0A00 crlf
KeyRemappedRGHT .HS 1B5B4300 esc[C KeyRemappedRGHT .HS 1B5B4300 esc[C
*-------------------------------------- *--------------------------------------
CtrlChars .HS 0605080A0C0D1B CtrlChars.Cnt .EQ 6
CtrlChars .HS 05080A0C0D1B
bEscMode .BS 1 bEscMode .BS 1
bEscModeCSI .BS 1 bEscModeCSI .BS 1
bEscSeqInNum .BS 1 bEscSeqInNum .BS 1

View File

@ -10,7 +10,7 @@ AUTO 6
*-------------------------------------- *--------------------------------------
.INB /A2OSX.DEV/INC/MACROS.I .INB /A2OSX.DEV/INC/MACROS.I
.INB /A2OSX.DEV/INC/A2OSX.I .INB /A2OSX.DEV/INC/A2OSX.I
.INB /A2OSX.DEV/INC/PRODOS.I .INB /A2OSX.DEV/INC/MLI.ERR.I
*-------------------------------------- *--------------------------------------
ZPGoMouse .EQ ZPDRV ZPGoMouse .EQ ZPDRV
ZPTmpPtr1 .EQ ZPDRV+2 ZPTmpPtr1 .EQ ZPDRV+2
@ -121,9 +121,9 @@ Dev.Detect >LDYA L.MSG.DETECT
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.DETECT >CSTR "Apple Mouse Card/IIc Mouse Driver.\n" MSG.DETECT >CSTR "Apple Mouse Card/IIc Mouse Driver.\r\n"
MSG.DETECT.OK >CSTR "Mouse Installed As Device : %S\n" MSG.DETECT.OK >CSTR "Mouse Installed As Device : %S\r\n"
MSG.DETECT.KO >CSTR "No Mouse Found.\n" MSG.DETECT.KO >CSTR "No Mouse Found.\r\n"
DEVSIG.Offset .HS 05070B0CFB DEVSIG.Offset .HS 05070B0CFB
DEVSIG.Value .HS 38180120D6 DEVSIG.Value .HS 38180120D6
*-------------------------------------- *--------------------------------------

View File

@ -10,7 +10,7 @@ AUTO 6
*-------------------------------------- *--------------------------------------
.INB /A2OSX.DEV/INC/MACROS.I .INB /A2OSX.DEV/INC/MACROS.I
.INB /A2OSX.DEV/INC/A2OSX.I .INB /A2OSX.DEV/INC/A2OSX.I
.INB /A2OSX.DEV/INC/PRODOS.I .INB /A2OSX.DEV/INC/MLI.ERR.I
.INB /A2OSX.DEV/INC/COM.6551.I .INB /A2OSX.DEV/INC/COM.6551.I
*-------------------------------------- *--------------------------------------
ZPTmpPtr1 .EQ ZPDRV ZPTmpPtr1 .EQ ZPDRV
@ -85,9 +85,9 @@ CS.END
DEVSIG.Offset .HS 05070B0C DEVSIG.Offset .HS 05070B0C
DEVSIG.Value .HS 38180131 DEVSIG.Value .HS 38180131
DEVSIG.Length .EQ DEVSIG.Value-DEVSIG.Offset DEVSIG.Length .EQ DEVSIG.Value-DEVSIG.Offset
MSG.DETECT >CSTR "Apple SSC (Super Serial Card,//c Serial Port) Driver.\n" MSG.DETECT >CSTR "Apple SSC (Super Serial Card,//c Serial Port) Driver.\r\n"
MSG.DETECT.OK >CSTR "SSC Installed As Device : %S\n" MSG.DETECT.OK >CSTR "SSC Installed As Device : %S\r\n"
MSG.DETECT.KO >CSTR "No SSC Found.\n" MSG.DETECT.KO >CSTR "No SSC Found.\r\n"
hArgs .BS 1 hArgs .BS 1
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) * Device Header (16 Bytes)

View File

@ -10,7 +10,7 @@ AUTO 6
*-------------------------------------- *--------------------------------------
.INB /A2OSX.DEV/INC/MACROS.I .INB /A2OSX.DEV/INC/MACROS.I
.INB /A2OSX.DEV/INC/A2OSX.I .INB /A2OSX.DEV/INC/A2OSX.I
.INB /A2OSX.DEV/INC/PRODOS.I .INB /A2OSX.DEV/INC/MLI.ERR.I
.INB /A2OSX.DEV/INC/COM.6551.I .INB /A2OSX.DEV/INC/COM.6551.I
*-------------------------------------- *--------------------------------------
BUF.SIZE .EQ $40 BUF.SIZE .EQ $40
@ -88,9 +88,9 @@ CS.END
DEVSIG.Offset .HS 05070B0C DEVSIG.Offset .HS 05070B0C
DEVSIG.Value .HS 38180131 DEVSIG.Value .HS 38180131
DEVSIG.Length .EQ DEVSIG.Value-DEVSIG.Offset DEVSIG.Length .EQ DEVSIG.Value-DEVSIG.Offset
MSG.DETECT >CSTR "Apple SSC (Super Serial Card,//c Serial Port) Driver (IRQ Enabled).\n" MSG.DETECT >CSTR "Apple SSC (Super Serial Card,//c Serial Port) Driver (IRQ Enabled).\r\n"
MSG.DETECT.OK >CSTR "SSC Installed As Device : %S\n" MSG.DETECT.OK >CSTR "SSC Installed As Device : %S\r\n"
MSG.DETECT.KO >CSTR "No SSC Found.\n" MSG.DETECT.KO >CSTR "No SSC Found.\r\n"
hArgs .BS 1 hArgs .BS 1
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) * Device Header (16 Bytes)
@ -167,7 +167,7 @@ READ php
beq .9 beq .9
lda INBUF,x lda INBUF,x
jsr READ.DEBUG jsr READ.DEBUG
inx inx
cpx #BUF.SIZE cpx #BUF.SIZE
bne .1 bne .1

View File

@ -123,9 +123,9 @@ Dev.Detect >STYA ARGS
.INB DRV/X.NET.DRV.S .INB DRV/X.NET.DRV.S
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.DETECT >CSTR "UtherNet/CS8900A Driver.\n" MSG.DETECT >CSTR "UtherNet/CS8900A Driver.\r\n"
MSG.DETECT.OK >CSTR "UtherNet/CS8900A Installed As Device : %S\n" MSG.DETECT.OK >CSTR "UtherNet/CS8900A Installed As Device : %S\r\n"
MSG.DETECT.KO >CSTR "Hardware Not Found.\n" MSG.DETECT.KO >CSTR "Hardware Not Found.\r\n"
ARGS .BS 2 ARGS .BS 2
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) * Device Header (16 Bytes)

View File

@ -137,9 +137,9 @@ Dev.Detect >STYA Args
.INB DRV/X.NET.DRV.S .INB DRV/X.NET.DRV.S
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.DETECT >CSTR "UtherNet2/W5100 Driver.\n" MSG.DETECT >CSTR "UtherNet2/W5100 Driver.\r\n"
MSG.DETECT.OK >CSTR "UtherNet2/W5100 Installed As Device : %S\n" MSG.DETECT.OK >CSTR "UtherNet2/W5100 Installed As Device : %S\r\n"
MSG.DETECT.KO >CSTR "Hardware Not Found.\n" MSG.DETECT.KO >CSTR "Hardware Not Found.\r\n"
Args .BS 2 Args .BS 2
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) * Device Header (16 Bytes)

View File

@ -5,17 +5,55 @@ INC 1
AUTO 6 AUTO 6
*-------------------------------------- *--------------------------------------
* https://android.googlesource.com/platform/prebuilts/gcc/linux-x86/host/x86_64-linux-glibc2.7-4.6/+/jb-dev/sysroot/usr/include/arpa/telnet.h * https://android.googlesource.com/platform/prebuilts/gcc/linux-x86/host/x86_64-linux-glibc2.7-4.6/+/jb-dev/sysroot/usr/include/arpa/telnet.h
SE .EQ 240
SB .EQ 250 SB .EQ 250
WILL .EQ 251 WILL .EQ 251 $FB
WONT .EQ 252 WONT .EQ 252 $FC
DO .EQ 253 DO .EQ 253 $FD
DONT .EQ 254 DONT .EQ 254 $FE
IAC .EQ 255 IAC .EQ 255 $FF
*-------------------------------------- *--------------------------------------
TELOPT.ECHO .EQ 1 TELOPT.BINARY .EQ 0 8-bit data path
TELOPT.SGA .EQ 3 TELOPT.ECHO .EQ 1 echo
TELOPT.NAWS .EQ 31 TELOPT.RCP .EQ 2 prepare to reconnect
TELOPT.LINEMODE .EQ 34 TELOPT.SGA .EQ 3 suppress go ahead
TELOPT.NAMS .EQ 4 approximate message size
TELOPT.STATUS .EQ 5 give status
TELOPT.TM .EQ 6 timing mark
TELOPT.RCTE .EQ 7 remote controlled transmission and echo
TELOPT.NAOL .EQ 8 negotiate about output line width
TELOPT.NAOP .EQ 9 negotiate about output page size
TELOPT.NAOCRD .EQ 10 negotiate about CR disposition
TELOPT.NAOHTS .EQ 11 negotiate about horizontal tabstops
TELOPT.NAOHTD .EQ 12 negotiate about horizontal tab disposition
TELOPT.NAOFFD .EQ 13 negotiate about formfeed disposition
TELOPT.NAOVTS .EQ 14 negotiate about vertical tab stops
TELOPT.NAOVTD .EQ 15 negotiate about vertical tab disposition
TELOPT.NAOLFD .EQ 16 negotiate about output LF disposition
TELOPT.XASCII .EQ 17 extended ascii character set
TELOPT.LOGOUT .EQ 18 force logout
TELOPT.BM .EQ 19 byte macro
TELOPT.DET .EQ 20 data entry terminal
TELOPT.SUPDUP .EQ 21 supdup protocol
TELOPT.SUPDUPOUTPUT .EQ 22 supdup output
TELOPT.SNDLOC .EQ 23 send location
TELOPT.TTYPE .EQ 24 terminal type
TELOPT.EOR .EQ 25 end or record
TELOPT.TUID .EQ 26 TACACS user identification
TELOPT.OUTMRK .EQ 27 output marking
TELOPT.TTYLOC .EQ 28 terminal location number
TELOPT.3270REGIME .EQ 29 3270 regime
TELOPT.X3PAD .EQ 30 X.3 PAD
TELOPT.NAWS .EQ 31 window size
TELOPT.TSPEED .EQ 32 terminal speed
TELOPT.LFLOW .EQ 33 remote flow control
TELOPT.LINEMODE .EQ 34 Linemode option
TELOPT.XDISPLOC .EQ 35 X Display Location
TELOPT.OLDENVIRON .EQ 36 Old - Environment variables
TELOPT.AUTHENTICATION .EQ 37 Authenticate
TELOPT.ENCRYPT .EQ 38 Encryption option
TELOPT.NEWENVIRON .EQ 39 New - Environment variables
TELOPT.EXOPL .EQ 255 extended-options-list
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE /A2OSX.DEV/INC/NET.TELNET.I SAVE /A2OSX.DEV/INC/NET.TELNET.I

View File

@ -430,12 +430,12 @@ Wait.TimeOut sec
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
MSG.CFG1 >CSTR "DHCPCLNT:Searching for DHCP servers...\n" MSG.CFG1 >CSTR "DHCPCLNT:Searching for DHCP servers...\r\n"
MSG.CFG2 >CSTR "DHCPCLNT:Reply from DHCP Server at %d.%d.%d.%d, requesting...\n" MSG.CFG2 >CSTR "DHCPCLNT:Reply from DHCP Server at %d.%d.%d.%d, requesting...\r\n"
MSG.CFG.KO >CSTR "DHCPCLNT:Time Out [%h].\n" MSG.CFG.KO >CSTR "DHCPCLNT:Time Out [%h].\r\n"
MSG.CFG.OK >CSTR "DHCPCLNT:Success:[IP=%d.%d.%d.%d/%d.%d.%d.%d]\n" MSG.CFG.OK >CSTR "DHCPCLNT:Success:[IP=%d.%d.%d.%d/%d.%d.%d.%d]\r\n"
MSG.CFG.ND >CSTR "DHCPCLNT:No Device, exiting.\n" MSG.CFG.ND >CSTR "DHCPCLNT:No Device, exiting.\r\n"
MSG.CFG.NA >CSTR "DHCPCLNT:TCPIP Already configured, exiting.\n" MSG.CFG.NA >CSTR "DHCPCLNT:TCPIP Already configured, exiting.\r\n"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
IPCFG .BS S.IPCFG IPCFG .BS S.IPCFG
FrameLen .BS 2 FrameLen .BS 2

View File

@ -76,17 +76,19 @@ CS.INIT >SYSCALL GetArgC
clc clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.RUN >LDYA L.MSG.TELNETOPT CS.RUN
>LDYA L.MSG.TELNETOPT
>SYSCALL CPrintFYA >SYSCALL CPrintFYA
bcs .8 bcs .8
.10 >SYSCALL GetC *.10 >SYSCALL GetC
bcc .10 * bcc .10
bra .3
lda #5 Ctrl-E * lda #5 Ctrl-E
>SYSCALL PutCA * >SYSCALL PutCA
bcs .8 * bcs .8
.1 >SYSCALL Sleep .1 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetC
@ -138,13 +140,16 @@ CS.QUIT ldy #hBinName
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.USAGE >CSTR "GETTY <DEV> <PROGRAM>" MSG.USAGE >CSTR "GETTY <DEV> <PROGRAM>\r\n"
MSG.TELNETOPT .DA #IAC,#WILL,#TELOPT.ECHO MSG.TELNETOPT
.DA #IAC,#WILL,#TELOPT.SGA * .DA #IAC,#DO,#TELOPT.LINEMODE
.DA #IAC,#DONT,#TELOPT.LINEMODE * .DA #IAC,#SB,#TELOPT.LINEMODE,#1,#0,#IAC,#SE
.DA #IAC,#DO,#TELOPT.NAWS .DA #IAC,#WILL,#TELOPT.BINARY
.DA #0 .DA #IAC,#WILL,#TELOPT.ECHO
MSG.GREETINGS >CSTR "\nA2osX-GeTTY\n" * .DA #IAC,#WILL,#TELOPT.SGA
* .DA #IAC,#DO,#TELOPT.NAWS
.DA #13,#10,#0
MSG.GREETINGS >CSTR "\r\nA2osX-GeTTY\r\n"
TERM >PSTR "TERM" TERM >PSTR "TERM"
* \e[12h * \e[12h
*-------------------------------------- *--------------------------------------

View File

@ -70,8 +70,8 @@ CS.QUIT clc
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.HELP >CSTR "Usage: insdrv file.drv <args>\n" MSG.HELP >CSTR "Usage: insdrv file.drv <args>\r\n"
MSG.LOAD >CSTR "INSDRV:Loading %S...\n" MSG.LOAD >CSTR "INSDRV:Loading %S...\r\n"
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE SBIN/INSDRV.S SAVE SBIN/INSDRV.S

View File

@ -81,6 +81,9 @@ CS.RUN lda #0
lda #13 lda #13
>SYSCALL PutCA >SYSCALL PutCA
bcs .9 bcs .9
lda #10
>SYSCALL PutCA
bcs .9
>LDYA L.SHELL >LDYA L.SHELL
>SYSCALL ExpandPStrYA >SYSCALL ExpandPStrYA
@ -185,8 +188,8 @@ INPUT.LINEIN ldy #INPUT.Status
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
MSG.LOGIN >CSTR "\nlogin:" MSG.LOGIN >CSTR "\r\nlogin:"
MSG.PASSWORD >CSTR "\npassword:" MSG.PASSWORD >CSTR "\r\npassword:"
SHELL >PSTR "${A2OSX}SBIN/SHELL" SHELL >PSTR "${A2OSX}SBIN/SHELL"
.DUMMY .DUMMY
.OR 0 .OR 0

View File

@ -311,6 +311,9 @@ CS.CHARIN.CTRL cpx #13 CR
bne .10 bne .10
txa txa
>SYSCALL PutCA >SYSCALL PutCA
lda #10
>SYSCALL PutCA
lda (pData) CmdBuffer lda (pData) CmdBuffer
ora #$80 ora #$80
sta (pData) sta (pData)
@ -492,13 +495,13 @@ CMDS >PSTR "CD"
>PSTR "TIME" >PSTR "TIME"
.HS 00 .HS 00
*-------------------------------------- *--------------------------------------
MSG.GREETINGS >CSTR "\nA2osX-Shell\n\n" MSG.GREETINGS >CSTR "\r\nA2osX-Shell\r\n\r\n"
MSG.PROMPT >CSTR "%S$ " MSG.PROMPT >CSTR "%S$ "
MSG.ECHO >CSTR ">%S\n" MSG.ECHO >CSTR ">%S\r\n"
MSG.ERROR >CSTR "Err:%S [%h]\n" MSG.ERROR >CSTR "Err:%S [%h]\r\n"
FMT.DATE >PSTR "%A, %B %d %Y" FMT.DATE >PSTR "%A, %B %d %Y"
FMT.TIME >PSTR "%H:%M:%S (%I:%M:%S%p)" FMT.TIME >PSTR "%H:%M:%S (%I:%M:%S%p)"
MSG.PRINTENV >CSTR "%S=%S\n" MSG.PRINTENV >CSTR "%S=%S\r\n"
*-------------------------------------- *--------------------------------------
.INB X.ERRORS.S .INB X.ERRORS.S
*-------------------------------------- *--------------------------------------

View File

@ -197,11 +197,11 @@ CS.END
*-------------------------------------- *--------------------------------------
LIBTCPIP >PSTR "libtcpip.o" LIBTCPIP >PSTR "libtcpip.o"
DEVNAME >PSTR "ETH1" DEVNAME >PSTR "ETH1"
MSG.DEV.KO >CSTR "TCPIP:No Device Found, exiting.\n" MSG.DEV.KO >CSTR "TCPIP:No Device Found, exiting.\r\n"
MSG.DEV.OK >CSTR "TCPIP:Bound To Device : %S\n" MSG.DEV.OK >CSTR "TCPIP:Bound To Device : %S\r\n"
MSG.CFG >CSTR "TCPIP:Reading %S..." MSG.CFG >CSTR "TCPIP:Reading %S..."
MSG.CFG.KO >CSTR "Failed!!! [%h]\n" MSG.CFG.KO >CSTR "Failed!!! [%h]\r\n"
MSG.CFG.OK >CSTR "OK.\n" MSG.CFG.OK >CSTR "OK.\r\n"
*-------------------------------------- *--------------------------------------
HOSTNAME >PSTR "${A2OSX}ETC/HOSTNAME" HOSTNAME >PSTR "${A2OSX}ETC/HOSTNAME"
TCPIP.CONF >PSTR "${A2OSX}ETC/TCPIP.CONF" TCPIP.CONF >PSTR "${A2OSX}ETC/TCPIP.CONF"

View File

@ -1,6 +1,6 @@
PR#3 PR#3
PREFIX /A2OSX.SRC PREFIX /A2OSX.SRC
LOMEM $A00 LOMEM $900
INC 1 INC 1
AUTO 6 AUTO 6
.LIST OFF .LIST OFF
@ -127,7 +127,8 @@ K.SScanF.IsDigit
* \b : Print 'BS' (08) * \b : Print 'BS' (08)
* \e : Print 'ESC' ($1B,27) * \e : Print 'ESC' ($1B,27)
* \f : Print 'FF' ($0C,12) * \f : Print 'FF' ($0C,12)
* \n : Print 'CR' ($0D,13) * \n : Print 'LF' ($0A,10)
* \r : Print 'CR' ($0D,13)
* \\\\ : Print \ * \\\\ : Print \
* \% : Print % * \% : Print %
* Modifiers for len and padding : * Modifiers for len and padding :
@ -226,9 +227,9 @@ PrintFESC jmp (PrintFJMP,x)
*-------------------------------------- *--------------------------------------
PrintFTBL1 .AS "abBdDuefhHiILnNsS" PrintFTBL1 .AS "abBdDuefhHiILnNsS"
PrintFTBL1.END PrintFTBL1.END
PrintFTBL2 .AS "befn\%" PrintFTBL2 .AS "befnr\%"
PrintFTBL2.END PrintFTBL2.END
PrintFTBL2.OUT .HS 08.1B.0C.0D \b\e\f\n PrintFTBL2.OUT .HS 08.1B.0C.0A.0D \b\e\f\n\r
.DA #'\' \\ .DA #'\' \\
.DA #'%' \% .DA #'%' \%
PrintFJMP .DA PrintF.A PrintFJMP .DA PrintF.A

View File

@ -136,7 +136,7 @@ DevMgr.SYS.Write
.2 cmp #13 .2 cmp #13
bne .3 bne .3
jsr DevMgr.SYS.CROut jsr DevMgr.SYS.CR
bra .8 bra .8
.3 ora #$20 .3 ora #$20
@ -151,14 +151,18 @@ DevMgr.SYS.Write
DevMgr.SYS.FSOut DevMgr.SYS.FSOut
lda DevMgr.SYS.CH lda DevMgr.SYS.CH
cmp #79 cmp #79
beq DevMgr.SYS.LF1 bne .1
inc DevMgr.SYS.CH
stz DevMgr.SYS.CH
bra DevMgr.SYS.LF
.1 inc DevMgr.SYS.CH
rts rts
*-------------------------------------- *--------------------------------------
DevMgr.SYS.CROut DevMgr.SYS.CR jsr DevMgr.SYS.ClrEOL
jsr DevMgr.SYS.ClrEOL stz DevMgr.SYS.CH
rts
*-------------------------------------- *--------------------------------------
DevMgr.SYS.LF1 stz DevMgr.SYS.CH
DevMgr.SYS.LF ldx DevMgr.SYS.CV DevMgr.SYS.LF ldx DevMgr.SYS.CV
cpx #23 cpx #23
beq DevMgr.SYS.Scroll beq DevMgr.SYS.Scroll

View File

@ -1,6 +1,6 @@
PR#3 PR#3
PREFIX /A2OSX.SRC PREFIX /A2OSX.SRC
NEW LOMEM $900
INC 1 INC 1
AUTO 6 AUTO 6
.LIST OFF .LIST OFF
@ -106,12 +106,12 @@ Kernel.Move ldy #0
bne .1 bne .1
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
MSG.Init2 >CSTR "A2osX[Stage2]:Init\nInstalling KERNEL...\n - Global Page...\n" MSG.Init2 >CSTR "A2osX[Stage2]:Init\r\nInstalling KERNEL...\r\n - Global Page...\r\n"
MSG.D000BNK1 >CSTR " - $D000 Bank1...\n" MSG.D000BNK1 >CSTR " - $D000 Bank1...\r\n"
MSG.D000BNK2 >CSTR " - $D000 Bank2...\n" MSG.D000BNK2 >CSTR " - $D000 Bank2...\r\n"
MSG.E000 >CSTR " - $E000...\n" MSG.E000 >CSTR " - $E000...\r\n"
MSG.HZ >CSTR "Kernel SYS Timer Set For %d0 hz Machine.\n" MSG.HZ >CSTR "Kernel SYS Timer Set For %d0 hz Machine.\r\n"
MSG.Init2.OK >CSTR "A2osX[Stage2]:Complete.\n" MSG.Init2.OK >CSTR "A2osX[Stage2]:Complete.\r\n"
*-------------------------------------- *--------------------------------------
CPU.Init >LDAXI MSG.CPU CPU.Init >LDAXI MSG.CPU
jsr PrintCStrAX jsr PrintCStrAX
@ -296,14 +296,14 @@ MSG.CPUTYPEH .DA /MSG.6502
.DA /MSG.65C02 .DA /MSG.65C02
.DA /MSG.65R02 .DA /MSG.65R02
.DA /MSG.65816 .DA /MSG.65816
MSG.6502 >CSTR "6502.\n" MSG.6502 >CSTR "6502.\r\n"
MSG.65C02 >CSTR "65C02.\n" MSG.65C02 >CSTR "65C02.\r\n"
MSG.65R02 >CSTR "65R02.\n" MSG.65R02 >CSTR "65R02.\r\n"
MSG.65816 >CSTR "65816.\n" MSG.65816 >CSTR "65816.\r\n"
MSG.CPU.SPEEDOK >CSTR "%d.%02d Mhz.\n" MSG.CPU.SPEEDOK >CSTR "%d.%02d Mhz.\r\n"
MSG.Z80 >CSTR "Detecting Z80 CPU..." MSG.Z80 >CSTR "Detecting Z80 CPU..."
MSG.Z80.OK >CSTR "Detected In Slot %d.\n" MSG.Z80.OK >CSTR "Detected In Slot %d.\r\n"
MSG.Z80.KO >CSTR "Not Detected.\n" MSG.Z80.KO >CSTR "Not Detected.\r\n"
MAN MAN
SAVE SYS/KERNEL.S.INIT2 SAVE SYS/KERNEL.S.INIT2
LOAD SYS/KERNEL.S LOAD SYS/KERNEL.S

View File

@ -471,16 +471,16 @@ I.ENV.LIB >PSTR "LIB=${A2OSX}LIB/"
I.ENV.DRV >PSTR "DRV=${A2OSX}DRV/" I.ENV.DRV >PSTR "DRV=${A2OSX}DRV/"
STARTUP.CMDLINE >PSTR "${A2OSX}SBIN/SHELL ${A2OSX}A2osX.STARTUP" STARTUP.CMDLINE >PSTR "${A2OSX}SBIN/SHELL ${A2OSX}A2osX.STARTUP"
*-------------------------------------- *--------------------------------------
MSG.Init3 >CSTR "A2osX[Stage3]:Init\n" MSG.Init3 >CSTR "A2osX[Stage3]:Init\r\n"
MSG.IRQ >CSTR "-Interrupt Manager...\n" MSG.IRQ >CSTR "-Interrupt Manager...\r\n"
MSG.DEV >CSTR "-Device Manager...\n" MSG.DEV >CSTR "-Device Manager...\r\n"
MSG.EVT >CSTR "-Event Manager...\n" MSG.EVT >CSTR "-Event Manager...\r\n"
MSG.FLT >CSTR "-Path Filter...\n" MSG.FLT >CSTR "-Path Filter...\r\n"
MSG.TSK >CSTR "-Task Manager...\n" MSG.TSK >CSTR "-Task Manager...\r\n"
MSG.Prefix >CSTR "Prefix:%S\n" MSG.Prefix >CSTR "Prefix:%S\r\n"
MSG.Startup >CSTR "Executing Kernel Startup Script...\nCmd:%S\n" MSG.Startup >CSTR "Executing Kernel Startup Script...\r\nCmd:%S\r\n"
MSG.StartupErr >CSTR "Failed : [$%h]\n" MSG.StartupErr >CSTR "Failed : [$%h]\r\n"
MSG.Init3.OK >CSTR "A2osX[Stage3]:Complete.\n" MSG.Init3.OK >CSTR "A2osX[Stage3]:Complete.\r\n"
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE SYS/KERNEL.S.INIT3 SAVE SYS/KERNEL.S.INIT3

View File

@ -113,7 +113,8 @@ Prints Pascal/C-Style String
+ \b : Print 'BS' (08) + \b : Print 'BS' (08)
+ \e : Print 'ESC' ($1B,27) + \e : Print 'ESC' ($1B,27)
+ \f : Print 'FF' ($0C,12) + \f : Print 'FF' ($0C,12)
+ \n : Print 'CR' ($0D,13) + \n : Print 'LF' ($0A,10)
+ \r : Print 'CR' ($0D,13)
+ \\\\ : Print \ + \\\\ : Print \
+ \% : Print % + \% : Print %
+ Modifiers for len and padding : + Modifiers for len and padding :