Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

CC: wired to libgui 

SH: bugfix
BIN/*, DRV/*:bugfix, API change
This commit is contained in:
burniouf 2022-10-09 23:22:46 +02:00
parent 947764b71e
commit 127ebe266a
50 changed files with 731 additions and 696 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

26
BIN/ATBROWSE.S.txt
View File

@ -291,19 +291,19 @@ CS.QUIT lda hBuf
rts
*--------------------------------------
CS.END
MSG.NOATK .AZ "AppleTalk Not Loaded."
MSG.ATKERR .AZ "AppleTalk Call %h, ERR:%H\r\n"
MSG.GETINFO .AS "Network/Node:%H/%h\r\n"
.AS "Bridge : %h\r\n"
.AZ "HWID/ROMVER :%H/%h\r\n"
MSG.MYZONE .AZ "Zone Name :%S\r\n"
SEARCH.STRING >PSTR "="
>PSTR "="
>PSTR "*"
MSG.ZONES .AZ "Zone list :"
MSG.PSTR .AZ " %S\r\n"
MSG.DUMP0 .AZ "Net Nod SkT En# Object:Type@Zone"
MSG.DUMP .AZ "\e[?7l%H %h %h %h %S:%S@%S\r\n"
MSG.NOATK .CZ "AppleTalk Not Loaded."
MSG.ATKERR .CZ "AppleTalk Call %h, ERR:%H\r\n"
MSG.GETINFO .CS "Network/Node:%H/%h\r\n"
.CS "Bridge : %h\r\n"
.CZ "HWID/ROMVER :%H/%h\r\n"
MSG.MYZONE .CZ "Zone Name :%S\r\n"
SEARCH.STRING .PS "="
.PS "="
.PS "*"
MSG.ZONES .CZ "Zone list :"
MSG.PSTR .CZ " %S\r\n"
MSG.DUMP0 .CZ "Net Nod SkT En# Object:Type@Zone"
MSG.DUMP .CZ "\e[?7l%H %h %h %h %S:%S@%S\r\n"
*--------------------------------------
.DUMMY
.OR 0

40
BIN/ATLOGON.S.txt
View File

@ -511,34 +511,34 @@ CS.QUIT lda hReplyBuf
rts
*--------------------------------------
CS.END
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
MSG.NOATK .AZ "AppleTalk Not Loaded."
MSG.ATKERR .AZ "AppleTalk Call %h, ERR:%H\r\n"
MSG.GETINFO .AS "Network/Node:%H/%h\r\n"
.AS "Bridge : %h\r\n"
.AZ "HWID/ROMVER :%H/%h\r\n"
MSG.NETNODPORT .AZ "Server Address : %H/%h:%h\r\n"
MSG.NOTFOUND .AZ "Server not found"
MSG.SRVINFO1 .AS "Server Name : %S\r\n"
.AS "Server Type : %S\r\n"
.AZ "AFP Dialects :\r\n"
MSG.SRVINFO2 .AZ "Supported UAMs :"
MSG.PSTR .AZ " %S\r\n"
SEARCH.STRING >PSTR "AFPServer"
>PSTR "*"
MSG.USAGE .CZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
MSG.NOATK .CZ "AppleTalk Not Loaded."
MSG.ATKERR .CZ "AppleTalk Call %h, ERR:%H\r\n"
MSG.GETINFO .CS "Network/Node:%H/%h\r\n"
.CS "Bridge : %h\r\n"
.CZ "HWID/ROMVER :%H/%h\r\n"
MSG.NETNODPORT .CZ "Server Address : %H/%h:%h\r\n"
MSG.NOTFOUND .CZ "Server not found"
MSG.SRVINFO1 .CS "Server Name : %S\r\n"
.CS "Server Type : %S\r\n"
.CZ "AFP Dialects :\r\n"
MSG.SRVINFO2 .CZ "Supported UAMs :"
MSG.PSTR .CZ " %S\r\n"
SEARCH.STRING .PS "AFPServer"
.PS "*"
SEARCH.STRING.Len .EQ *-SEARCH.STRING
*--------------------------------------
FPLogin.Guest .DA #18
* .DA #0
>PSTR "AFPVersion 2.1"
>PSTR "No User Authent"
.PS "AFPVersion 2.1"
.PS "No User Authent"
FPLogin.Guest.Len .EQ *-FPLogin.Guest
*--------------------------------------
FPLogin.Auth .DA #18
* .DA #0
>PSTR "AFPVersion 2.1"
>PSTR "Cleartxt Passwrd"
* >PSTR "username"
.PS "AFPVersion 2.1"
.PS "Cleartxt Passwrd"
* .PS "username"
* .AS "password" 8 bytes, word aligned, 0 padded
FPLogin.Auth.Len .EQ *-FPLogin.Auth
*--------------------------------------

107
BIN/CAT.S.txt
View File

@ -61,8 +61,7 @@ L.ASCII .DA ASCII
CS.INIT clc
rts
*--------------------------------------
CS.RUN
.1 inc ArgCount
CS.RUN inc ArgCount
lda ArgCount
>SYSCALL ArgV
bcs .7
@ -75,8 +74,9 @@ CS.RUN
ldy #1
lda (ZPPtr1),y
beq .99
ldx #OptionList.Cnt-1
.1 ldx #OptionVars-OptionList-1
.2 cmp OptionList,x
beq .3
@ -84,20 +84,24 @@ CS.RUN
dex
bpl .2
.99 >PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
.99 >LDYA L.MSG.USAGE
>SYSCALL PutS
lda #E.SYN
sec
.9 rts
.3 ldy OptionVars,x
lda #$80
sta 0,y
bra .1
.3 lda OptionVars,x
tax
* sec
ror 0,x
iny
lda (ZPPtr1),y
bne .1
bra CS.RUN
.4 inc FileCount
bra .1 scan for any other args
bra CS.RUN scan for any other args
.7 lda FileCount
beq .99
@ -321,50 +325,49 @@ CS.DOEVENT sec
CS.END
*--------------------------------------
OptionList .AS "ANSans"
OptionList.Cnt .EQ *-OptionList
OptionVars .DA #bPrintAll,#bLineNum,#bSuppressBlankLine,#bPrintAll,#bLineNum,#bSuppressBlankLine
*--------------------------------------
MSG.USAGE .AS "Usage : CAT File1 [File2...]\r\n"
.AS " -A : Show All non printable characters\r\n"
.AS " -N : Number all output lines\r\n"
.AS " -S : Suppress repeated empty output lines"
MSG.CRLF .AZ "\r\n"
MSG.INIT .AZ "\e[?7h" Enable Line Wrap
MSG.LINENUM .AZ "%5D:"
MSG.CTRLCHAR .AZ "[%S]"
MSG.USAGE .CS "Usage : CAT File1 [File2...]\r\n"
.CS " -A : Show All non printable characters\r\n"
.CS " -N : Number all output lines\r\n"
.CS " -S : Suppress repeated empty output lines"
MSG.CRLF .CZ "\r\n"
MSG.INIT .CZ "\e[?7h" Enable Line Wrap
MSG.LINENUM .CZ "%5D:"
MSG.CTRLCHAR .CZ "[%S]"
*--------------------------------------
ASCII >PSTR "NUL"
>PSTR "SOH"
>PSTR "STX"
>PSTR "ETX"
>PSTR "EOT"
>PSTR "ENQ"
>PSTR "ACK"
>PSTR "BEL"
>PSTR "BS"
>PSTR "TAB"
>PSTR "LF"
>PSTR "VT"
>PSTR "FF"
>PSTR "CR"
>PSTR "SO"
>PSTR "SI"
>PSTR "DLE"
>PSTR "DC1"
>PSTR "DC2"
>PSTR "DC3"
>PSTR "DC4"
>PSTR "NAK"
>PSTR "SYN"
>PSTR "ETB"
>PSTR "CAN"
>PSTR "EM"
>PSTR "SUB"
>PSTR "ESC"
>PSTR "FS"
>PSTR "GS"
>PSTR "RS"
>PSTR "US"
ASCII .PS "NUL"
.PS "SOH"
.PS "STX"
.PS "ETX"
.PS "EOT"
.PS "ENQ"
.PS "ACK"
.PS "BEL"
.PS "BS"
.PS "TAB"
.PS "LF"
.PS "VT"
.PS "FF"
.PS "CR"
.PS "SO"
.PS "SI"
.PS "DLE"
.PS "DC1"
.PS "DC2"
.PS "DC3"
.PS "DC4"
.PS "NAK"
.PS "SYN"
.PS "ETB"
.PS "CAN"
.PS "EM"
.PS "SUB"
.PS "ESC"
.PS "FS"
.PS "GS"
.PS "RS"
.PS "US"
*--------------------------------------
.DUMMY
.OR 0

2
BIN/CC.S.F.txt
View File

@ -13,7 +13,7 @@ F.Decl stz LocalPtr
jsr SYM.NewScope
bcs .99
jsr CORE.GetNCharNB Skip (
jsr CORE.GetNCharNBNL Skip (
bcs .9
cmp #')' func()

6
BIN/CC.S.KW.txt
View File

@ -137,7 +137,11 @@ KW.WHILE jsr KW.BEGIN00
sec
.99 rts
*--------------------------------------
KW.WHILE.END lda #'C'
KW.WHILE.END >LDYA L.PCC.SLEEP
jsr CODE.EmitPCC
bcs .99
lda #'C'
jsr KW.GetLabel
bcs .99

8
BIN/CC.S.STMT.txt
View File

@ -28,9 +28,9 @@ STMT.Get jsr CC.GetCharNB
pha
lda (ZPLookupSymPtr)
pha
jsr SYM.LookupFree
ply
pla
@ -42,7 +42,7 @@ STMT.Get jsr CC.GetCharNB
lda (ZPLookupSymPtr),y
bit #SYM.Q.FUNC
beq .61
bit StmtPreOp
bpl .9 ++func ????????
@ -178,7 +178,7 @@ CC.STMT.POP bne .98
jsr .7
bcs .99
bvs .1 DONT POP reused context (ELSE....)
lda CStackPtr

21
BIN/CUT.S.txt
View File

@ -82,9 +82,8 @@ CS.RUN lda #C.SPACE
.97 lda #E.SYN
.98 pha
>PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
>LDYA L.MSG.USAGE
>SYSCALL PutS
pla
sec
.9 rts
@ -240,6 +239,7 @@ CS.RUN.OUT.MN ldy #0
lda (ZPBufPtr),y
beq CS.RUN.PRINTCR
iny
bra .1
@ -284,6 +284,7 @@ CS.RUN.AddYToBufPtr
adc ZPBufPtr
sta ZPBufPtr
bcc .8
inc ZPBufPtr+1
.8 rts
*--------------------------------------
@ -308,13 +309,13 @@ CS.END
OptionList .AS "HhFfMmNnSs"
OptionList.Cnt .EQ *-OptionList
*--------------------------------------
MSG.USAGE .AS "Usage : CUT "line of text"\r\n"
.AS " -H : This help screen\r\n"
.AS "-F nn : Output field nn\r\n"
.AS "-M nn : Output starting at nn\r\n"
.AS "-N nn : Output Ending at nn\r\n"
.AS "-S ch : Change default SPACE separator to 'ch'"
MSG.CRLF .AZ "\r\n"
MSG.USAGE .CS "Usage : CUT "line of text"\r\n"
.CS " -H : This help screen\r\n"
.CS " -F nn : Output field nn\r\n"
.CS " -M nn : Output starting at nn\r\n"
.CS " -N nn : Output Ending at nn\r\n"
.CS " -S ch : Change default SPACE separator to 'ch'"
MSG.CRLF .CZ "\r\n"
*--------------------------------------
.DUMMY
.OR 0

52
BIN/GTEST.S.txt
View File

@ -1,13 +1,13 @@
NEW
AUTO 3,1
.LIST OFF
.LIST OFF
.OP 65C02
.OR $2000
.TF bin/gtest
.TF root/asmtest/gtest
*--------------------------------------
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/kernel.i
.INB inc/mli.i
.INB inc/gfx.i
*--------------------------------------
.DUMMY
@ -78,14 +78,14 @@ CS.RUN jsr GFX.Open
lda CB.RECT2+S.CB.COLOR
cmp #16
beq .3
lda CB.RECT2+S.CB.X1
clc
adc #28
sta CB.RECT2+S.CB.X1
bcc .2
inc CB.RECT2+S.CB.X1+1
.2 lda CB.RECT2+S.CB.X2
clc
adc #28
@ -93,7 +93,7 @@ CS.RUN jsr GFX.Open
bcc .1
inc CB.RECT2+S.CB.X2+1
bra .1
.3 >LDYA L.CB.PIX
jsr GFX.Write.YA
@ -110,7 +110,7 @@ CS.RUN jsr GFX.Open
sta CB.TEXTB+S.CB.hFont
>LDYA L.MESSAGEB
>STYA CB.TEXTB+S.CB.TxtPtr
>LDYA L.CB.TEXTB
jsr GFX.Write.YA
bcs .9
@ -130,7 +130,7 @@ CS.RUN jsr GFX.Open
>LDYA L.CB.TEXT
jsr GFX.Write.YA
jsr CS.RUN.LOGO.SHOW
lda #0
@ -151,13 +151,13 @@ CS.RUN.LOGO.SHOW
lda #S.CB.CMD.BITBLT
sta CB.LOGO+S.CB.CMD
.1 lda #S.CB.OP.SET+S.CB.OP.COLOR+S.CB.OP.SAVE
sta CB.LOGO+S.CB.OP
>LDYA L.CB.LOGO
jsr GFX.Write.YA
ldy #S.PS.hStdIn
lda (pPS),y
@ -165,14 +165,14 @@ CS.RUN.LOGO.SHOW
bcs CS.RUN.RTS
tay
beq .80
.2 >SLEEP
bit bVBL
bpl .2
stz bVBL
lda #S.CB.OP.RESTORE
sta CB.LOGO+S.CB.OP
@ -181,12 +181,12 @@ CS.RUN.LOGO.SHOW
bit xDir
bmi .4
lda CB.LOGO+S.CB.X1
clc
adc #4
tay
lda CB.LOGO+S.CB.X1+1
adc #0
pha
@ -194,7 +194,7 @@ CS.RUN.LOGO.SHOW
sbc /244
pla
bcc .5
.3 lda xDir
eor #$ff
sta xDir
@ -207,14 +207,14 @@ CS.RUN.LOGO.SHOW
lda CB.LOGO+S.CB.X1+1
sbc #0
bcc .3
.5 sty CB.LOGO+S.CB.X1
sta CB.LOGO+S.CB.X1+1
.6 lda CB.LOGO+S.CB.Y1
bit yDir
bmi .8
inc
sta CB.LOGO+S.CB.Y1
cmp #144
@ -224,12 +224,12 @@ CS.RUN.LOGO.SHOW
eor #$ff
sta yDir
jmp .1
.8 sec
sbc #1
sta CB.LOGO+S.CB.Y1
beq .7
jmp .1
.80 >SYSCALL GetChar
@ -266,7 +266,7 @@ CS.QUIT lda hFont
.4 lda CB.TEXTB+S.CB.SrcPtr
beq .5
>SYSCALL FreeStkObj
.5 lda CB.TEXT+S.CB.SrcPtr
beq .6
>SYSCALL FreeStkObj
@ -274,7 +274,7 @@ CS.QUIT lda hFont
.6 lda CB.PALETTE+S.CB.SrcPtr
beq .7
>SYSCALL FreeStkObj
.7 lda hDevGFX
beq .8
@ -317,8 +317,8 @@ LoadResources >LDYA L.FONTFILE
bcs .9
stx CB.PALETTE+S.CB.SrcPtr
.9 rts
.9 rts
.1 >PUSHYA
>PUSHBI O.RDONLY
@ -341,7 +341,7 @@ GFX.Write.YA pha
pla
>PUSHYA
>SYSCALL IOCTL
rts
rts
*--------------------------------------
CS.END
DEVNAME.GFX .AZ "/dev/gfx"
@ -486,7 +486,7 @@ CB.LOGO .DA #S.CB.CMD.GETRECTBUFSIZE
*--------------------------------------
.DUMMY
.OR 0
DS.START
DS.START
DS.END .ED
*--------------------------------------
MAN

69
BIN/IPCONFIG.S.txt
View File

@ -13,6 +13,7 @@ NEW
.INB inc/eth.i
.INB inc/lib.net.i
.INB inc/libtcpip.i
.INB inc/net.tcpip.i
.INB inc/net.dhcp.i
*--------------------------------------
TIMEOUT.MAX .EQ 200 20 sec.
@ -443,53 +444,53 @@ MSG.USAGE .AS "Usage : IPCONFIG <switches>\r\n"
*--------------------------------------
MSG.NODEV .AZ "TCP/IP not bound to any device."
*--------------------------------------
MSG1.DEV .AS "NIC Device Configuration :\r\n"
.AS " Device ID : $%h\r\n"
.AS " Device Name : %s\r\n"
.AS " Device Type : %S\r\n"
.AZ " HW Address : %02h:%02h:%02h:%02h:%02h:%02h\r\n"
MSG1.DEV.ARP .AZ " ARP Offload : %d\r\n"
MSG1.DEV.IP .AS " IP Offload : %d\r\n"
.AZ " Link Status : "
MSG1.LINK.OK .AZ "OK"
MSG1.LINK.KO .AZ "Media Disconnected"
MSG1.LINKSPEED .AZ " Link Speed : 1"
MSG1.DPLX.FD .AZ " Mbit/s,Full Duplex"
MSG1.DPLX.HD .AZ " Mbit/s,Half Duplex"
MSG1.DEV .CS "NIC Device Configuration :\r\n"
.CS " Device ID : $%h\r\n"
.CS " Device Name : %s\r\n"
.CS " Device Type : %S\r\n"
.CZ " HW Address : %02h:%02h:%02h:%02h:%02h:%02h\r\n"
MSG1.DEV.ARP .CZ " ARP Offload : %d\r\n"
MSG1.DEV.IP .CS " IP Offload : %d\r\n"
.CZ " Link Status : "
MSG1.LINK.OK .CZ "OK"
MSG1.LINK.KO .CZ "Media Disconnected"
MSG1.LINKSPEED .CZ " Link Speed : 1"
MSG1.DPLX.FD .CZ " Mbit/s,Full Duplex"
MSG1.DPLX.HD .CZ " Mbit/s,Half Duplex"
*--------------------------------------
MSG2 .AZ "IP Configuration : "
MSG2.C .AZ "Configured"
MSG2.U .AZ "Not Configured"
MSG2.DHCPSRVR .AZ " DHCP Server : %d.%d.%d.%d\r\n"
MSG2.IPMASK .AZ " IP/Mask : %d.%d.%d.%d/%d.%d.%d.%d\r\n"
MSG2.GW .AZ " Gateway : %d.%d.%d.%d\r\n"
MSG2.DNS .AZ " DNS : %d.%d.%d.%d,%d.%d.%d.%d\r\n"
MSG2.HOSTNAME .AZ " Hostname : %s.%s\r\n"
MSG2 .CZ "IP Configuration : "
MSG2.C .CZ "Configured"
MSG2.U .CZ "Not Configured"
MSG2.DHCPSRVR .CZ " DHCP Server : %d.%d.%d.%d\r\n"
MSG2.IPMASK .CZ " IP/Mask : %d.%d.%d.%d/%d.%d.%d.%d\r\n"
MSG2.GW .CZ " Gateway : %d.%d.%d.%d\r\n"
MSG2.DNS .CZ " DNS : %d.%d.%d.%d,%d.%d.%d.%d\r\n"
MSG2.HOSTNAME .CZ " Hostname : %s.%s\r\n"
*--------------------------------------
MSG.CFG .AZ "IPCONFIG:Reading %s..."
MSG.CFG.KO .AZ "Not Found. [%h]\r\n"
MSG.CFG.OK .AZ "OK."
MSG.CFG .CZ "IPCONFIG:Reading %s..."
MSG.CFG.KO .CZ "Not Found. [%h]\r\n"
MSG.CFG.OK .CZ "OK."
*--------------------------------------
HOSTNAME .AZ "${ROOT}etc/hostname"
TCPIP.CONF .AZ "${ROOT}etc/tcpip.conf"
HOSTS .AZ "${ROOT}etc/hosts"
*--------------------------------------
CFG.DefaultHost .AZ "a2osx-%H"
CFG.Keywords >PSTR "address"
>PSTR "netmask"
>PSTR "gateway"
>PSTR "nameserver"
>PSTR "dnsdomain"
CFG.Keywords .PS "address"
.PS "netmask"
.PS "gateway"
.PS "nameserver"
.PS "dnsdomain"
.DA #0
*--------------------------------------
CFG.IP.SScanF .AZ "%d.%d.%d.%d"
CFG.HOST.SScanF .AZ "%d.%d.%d.%d %s %s"
*--------------------------------------
MSG.DHCP.CFG1 .AZ "IPCONFIG:Searching for DHCP servers..."
MSG.DHCP.CFG2 .AZ "IPCONFIG:Reply from DHCP Server at %d.%d.%d.%d, requesting...\r\n"
MSG.DHCP.KO .AZ "IPCONFIG:Time Out [%h].\r\n"
MSG.DHCP.OK .AZ "IPCONFIG:Success:[IP=%d.%d.%d.%d/%d.%d.%d.%d]\r\n"
MSG.DHCP.NA .AZ "IPCONFIG:TCPIP Already configured, exiting."
MSG.DHCP.CFG1 .CZ "IPCONFIG:Searching for DHCP servers..."
MSG.DHCP.CFG2 .CZ "IPCONFIG:Reply from DHCP Server at %d.%d.%d.%d, requesting...\r\n"
MSG.DHCP.KO .CZ "IPCONFIG:Time Out [%h].\r\n"
MSG.DHCP.OK .CZ "IPCONFIG:Success:[IP=%d.%d.%d.%d/%d.%d.%d.%d]\r\n"
MSG.DHCP.NA .CZ "IPCONFIG:TCPIP Already configured, exiting."
*--------------------------------------
IPCFG .BS S.IPCFG
CFG.IP .BS 4

2
BIN/LSDEV.S.txt
View File

@ -248,7 +248,7 @@ CS.QUIT clc
CS.END
MSG0 .CZ "hFD Type Name Addr Status Typ/Sub IDString Version Size (BLK)"
MSG.DEV .CZ "%3d %5s %12s %H "
MSG.DEV.ERR .CZ "Device Error : $%h\r\n"
MSG.DEV.ERR .CZ "[%h] Device Error.\r\n"
MSG.DEV.DIB .CZ "%s $%h/$%h %16S %03d.%03d "
MSG.DEV.B .CZ "%10u\r\n"
MSG.DEV.C .CZ "n/a\r\n"

3
BIN/NETSTAT.S.txt
View File

@ -8,6 +8,7 @@ NEW
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/eth.i
.INB inc/net.tcpip.i
.INB inc/libtcpip.i
*--------------------------------------
.DUMMY
@ -187,7 +188,7 @@ CS.END
LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1
MSG0 .AZ "Type Prot Local Remote Options Status"
MSG1 .AZ "%s %s %3d.%3d.%3d.%3d:%5D %3d.%3d.%3d.%3d:%5D %b %s\r\n"
MSG1 .CZ "%s %s %3d.%3d.%3d.%3d:%5D %3d.%3d.%3d.%3d:%5D %b %s\r\n"
MSG1.T.RAW .AZ "RAW "
MSG1.T.DGRAM .AZ "DGRAM "
MSG1.T.SEQPKT .AZ "SEQPKT"

33
BIN/SH.S.CL.txt
View File

@ -1,6 +1,5 @@
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
CL.Init >LDYAI 256
>SYSCALL GetMem
@ -18,9 +17,9 @@ CL.PrintPrompt >PUSHW L.PS1
bcs .9
phx
jsr PrintYANoCR
pla
>SYSCALL FreeMem
@ -29,7 +28,7 @@ CL.PrintPrompt >PUSHW L.PS1
.9 rts
*--------------------------------------
CL.READN0A tax
CL.READN0X
CL.READN0X
>PUSHW ZPCLBuf
>PUSHW L.FMT.Byte
txa
@ -37,7 +36,7 @@ CL.READN0X
>PUSHBI 1
>SYSCALL SPrintF
bcs .9
lda #$ff
>STA.G CL.bReady
* clc
@ -67,10 +66,10 @@ CL.CHARIN tax
.2 >LDA.G CL.MaxCnt
bne .3
lda EscChars.Remap,x
bra CL.READN0A
.3 txa
asl
tax
@ -86,7 +85,7 @@ CL.CHARIN tax
.5 >LDA.G CL.MaxCnt
beq CL.READN0X
cpx #C.SPACE
bcc CL.CHARIN.CTRL
@ -118,7 +117,7 @@ CL.Insert >LDA.G CL.Len
>STA.G CL.Len
pha
.1 ply
dey
lda (ZPCLBuf),y Move from Ptr To end of buffer forward...
@ -175,10 +174,10 @@ CL.CHARIN.CTRL cpx #C.CR
.1 cpx #26 Ctrl-Z
bne .8
jmp CL.SUPPR
.18 jsr CheckLFAfterCR Check for any extra LF
bcs .9
.19 lda #$ff
>STA.G CL.bReady
@ -189,7 +188,7 @@ CL.CLR >STZ.G HIS.Ptr
CL.CLR.1 lda (ZPCLBuf)
beq CL.Reset.1
>LDA.G CL.bSilent
bmi CL.Reset
@ -217,11 +216,11 @@ CL.CLR.1 lda (ZPCLBuf)
*--------------------------------------
CL.Reset lda #0
sta (ZPCLBuf)
CL.Reset.1 lda #0
ldy #CL.Ptr
.1 sta (pData),y
iny
cpy #CL.bEscMode+1
@ -264,7 +263,7 @@ CL.NAK >LDA.G CL.Ptr
bmi .9
lda #C.FS
>SYSCALL PutChar
>SYSCALL PutChar
.9 rts
*--------------------------------------
@ -285,7 +284,7 @@ CL.DEL pha
iny
phy
tya
>CMP.G CL.Len
bne .1
@ -322,7 +321,7 @@ CL.PrintEOL >LDA.G CL.Ptr
pla
inc
bra .3
.4 lda #C.BS
>SYSCALL PutChar

57
BIN/SH.S.CMD.txt
View File

@ -1,13 +1,12 @@
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
* https://linuxize.com/post/how-to-create-bash-aliases/
*--------------------------------------
CMD.ALIAS lda (ZPArgVBufPtr)
bne CMD.ALIAS.ADD
beq .10
>LDA.G hAliases
jmp CMD.ALIAS.ADD
.10 >LDA.G hAliases
beq .8
ldy #0
@ -15,29 +14,30 @@ CMD.ALIAS lda (ZPArgVBufPtr)
.1 >STYA ZPTmpW Save KeyID
clc
jsr CMD.ALIAS.Push
>PUSHB.G hAliases
>PUSHW ZPTmpW KeyID
>PUSHW ZPCLBuf
>SYSCALL SListGetByID
bcs .8
>STYA ZPPtr1 NextID
>LDYA ZPCLBuf
jsr PrintYANoCR
ldy #hAliases
jsr CORE.SListGetData
bcs .9
sec
jsr CMD.ALIAS.Push
phx
>SYSCALL SListGetData
bcs .9
>PUSHW L.MSG.ALIAS
>PUSHW ZPCLBuf
>PUSHBI 2
txa
>SYSCALL GetMemPtr
>PUSHYA
>PUSHBI 4
>SYSCALL PrintF
bcs .9
pla
>SYSCALL FreeMem
>LDYA ZPPtr1
bra .1
@ -85,16 +85,6 @@ CMD.ALIAS.ADD >LDYA ZPArgVBufPtr
sec
.99 rts
*--------------------------------------
CMD.ALIAS.Push >PUSHB.G hAliases
>PUSHW ZPTmpW KeyID
>PUSHW ZPCLBuf
bcc .8
>PUSHWI $ffff All
>PUSHWZ from Start
.8 rts
*--------------------------------------
CMD.. lda (ZPArgVBufPtr)
beq CMD...9
@ -273,7 +263,7 @@ CMD.SET.1
eor bState
sta bState
bra .5
.3 dex
bpl .2
@ -714,13 +704,8 @@ CMD.CALL jsr CMD.CALL.GETFUNC
>STYA ZPTmpW KeyID
>PUSHB.G hFunctions
>PUSHW ZPTmpW KeyID
>PUSHWZ Allocate..
>PUSHWI $ffff all
>PUSHWZ From Start
>SYSCALL SListGetData X = hMem
ldy #hFunctions
jsr CORE.SListGetData
bcs CMD.CALL.RTS
>LDYA ZPArgVBufPtr FUNC PARAM1 PARAM2...
@ -771,7 +756,7 @@ CMD.EXIT lda (ZPArgVBufPtr)
.8 jsr CMD.EXIT.FILE
lda #bState.ExitOnEOF
tsb bState
clc
.9 rts
*--------------------------------------

101
BIN/SH.S.CORE.txt
View File

@ -1,6 +1,5 @@
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
CORE.Init lda #PUSHD.STACK
tay
@ -20,8 +19,8 @@ CORE.FUNCRESET >LDA.G hFunctions
.8 rts
*--------------------------------------
* stack-6,7 InputBuf
* stack-4,5 InputBufPtr
* stack-6,7 old InputBuf
* stack-4,5 old InputBufPtr
* stack-3 old ARGC
* stack-2 old ARGV
* stack-1 new hCode
@ -131,7 +130,8 @@ CORE.Run jsr IO.Reset
txa
>STA.G CORE.hArgVBuf
>STZ.G CORE.bPipeIn
lda #bState.PipeIn
trb bState
CORE.Run.1 >LDYA ZPInputBufPtr Save Actual ptr for looping
>STYA ZPInputCmdPtr
@ -178,13 +178,8 @@ CORE.Run.3 >LDA.G hAliases
txa
jsr CORE.SkipCharsA
>PUSHB.G hAliases
>PUSHW ZPTmpW KeyID
>PUSHWZ Allocate..
>PUSHWI $ffff all
>PUSHWZ From Start
>SYSCALL SListGetData X = hMem
ldy #hAliases
jsr CORE.SListGetData
bcs .9
jsr CORE.PushBufX
@ -236,7 +231,7 @@ CORE.Run.4 >LDYA L.CMD internal command ?
jmp CORE.Run.Exit
*--------------------------------------
CORE.Run.5 jsr CORE.GetCharNB
bcs CORE.Run.NOPIPE Nothing to skip
bcs .8 Nothing to skip
jsr CORE.IsEndCmd
bcc .3
@ -264,56 +259,57 @@ CORE.Run.5 jsr CORE.GetCharNB
cmp #';'
beq .7
cmp #'|'
bne .5
jsr CORE.GetNextCharNB '|'
bra CORE.Run.PIPE
lda #bState.PipeOut
tsb bState
bra CORE.Run.6
.5 cmp #'&'
bne .9
jsr CORE.GetNextChar Skip '&'
bcs .50
cmp #'&'
beq .6 &&
.50 lda #S.PS.F.HOLD Run in the background...
trb CORE.PSFlags
bra CORE.Run.NOPIPE
bra .8
.6 jsr CORE.GetNextChar Skip '&&'
jsr CORE.ExecCmd
bcc .60
jsr CORE.SkipLine
clc
lda #0
jmp CORE.Run.Exit
.60 jmp CORE.Run.1
.60 jmp CORE.Run.1
.7 jsr CORE.GetNextCharNB Skip EoL char
.8 bra CORE.Run.NOPIPE
.8 lda #bState.PipeOut
trb bState
*--------------------------------------
CORE.Run.NOPIPE clc no pipe
.HS B0 BCS
CORE.Run.PIPE sec
ror
>STA.G CORE.bPipeOut
>LDA.G CORE.bPipeIn
bpl .1
CORE.Run.6 lda bState
bit #bState.PipeIn
beq .1
jsr IO.Pipe.In
bcs CORE.Run.Exit
.1 >LDA.G CORE.bPipeOut
bpl .7
lda bState
.1 bit #bState.PipeOut
beq .7
jsr IO.Pipe.Out
bcs CORE.Run.Exit
@ -335,8 +331,9 @@ CORE.Run.PIPE sec
jsr IO.Reset.OutC restore Output, NO close if EXTERNAL
>LDA.G CORE.bPipeIn
bpl .6
lda bState
and #bState.PipeIn
beq .6
jsr IO.Pop.In restore Input
@ -344,8 +341,8 @@ CORE.Run.PIPE sec
plp
bcs CORE.Run.Exit
lda #$FF
>STA.G CORE.bPipeIn
lda #bState.PipeIn
tsb bState
jmp CORE.Run.1 Loop with Pipe IN
@ -389,8 +386,9 @@ CORE.ExecExtCmd >PUSHW ZPArgVBuf
and #S.PS.F.HOLD
bne .4
>LDA.G CORE.bPipeOut
bmi .4
lda bState
bit #bState.PipeOut
bne .4
ldy #S.PS.hStdErr
lda (pPS),y
@ -725,11 +723,11 @@ CORE.PushBufX >LDA.G CODE.STACK
ldx #0
.1 lda ZPInputBuf,x
.1 lda ZPInputBuf,x ZPInputBuf
sta (pData),y
inx
inx ZPInputBufPtr
iny
cpx #6
cpx #6 ZPInputCmdPtr
bne .1
pla
@ -766,11 +764,11 @@ CORE.PopBuf phy
ldx #5
dey
.1 lda (pData),y
.1 lda (pData),y ZPInputBuf
sta ZPInputBuf,x
dey
dey ZPInputBufPtr
dex
bpl .1
bpl .1 ZPInputCmdPtr
tya
>STA.G CODE.STACK
@ -786,6 +784,15 @@ CORE.PopBuf phy
* sec
rts
*--------------------------------------
CORE.SListGetData
>PUSHB (pData),y
>PUSHW ZPTmpW KeyID
>PUSHWZ Allocate
>PUSHWI $ffff All
>PUSHWZ from Start
>SYSCALL SListGetData X = hMem
rts
*--------------------------------------
* Stack
*--------------------------------------
CORE.StkPopCtx jsr CORE.StkPull

1
BIN/SH.S.EXP.txt
View File

@ -1,6 +1,5 @@
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
EXP.GET jsr CORE.ArgV.Next
bne .1

23
BIN/SH.S.HIS.txt
View File

@ -1,6 +1,5 @@
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
HIS.Init >LDYAI HISBUF.MAX Get a buffer for History
@ -17,7 +16,7 @@ HIS.Init >LDYAI HISBUF.MAX Get a buffer for History
*--------------------------------------
HIS.Add >LDA.G HIS.hBuf
beq .9
>LDA.G HIS.Count
cmp #HISCNT.MAX
bcs .1
@ -45,10 +44,10 @@ HIS.Add >LDA.G HIS.hBuf
*--------------------------------------
HIS.Select >LDA.G HIS.Count
bne .10
clc
.99 rts
.10 jsr CL.Reset
ldx #0
@ -80,7 +79,7 @@ HIS.Select >LDA.G HIS.Count
lda #0
sta (ZPCLBuf)
ldy #HIS.Ptr
sta (ZPCLBuf),y
@ -100,7 +99,7 @@ HIS.Select >LDA.G HIS.Count
.7 >LDYA L.MSG.HISROMPTCLR
jsr PrintYANoCR
bcs .9
jsr CL.PrintPrompt
bcc HIS.GetToCL1
.9
@ -119,7 +118,7 @@ HIS.GetPrev >LDA.G HIS.Count
bne .2
>LDA.G HIS.Count
.2 bra HIS.GetToCL
*--------------------------------------
HIS.GetNext >LDA.G HIS.Count
@ -153,7 +152,7 @@ HIS.GetToCL1 >LDA.G HIS.Ptr
>STA.G CL.Ptr
>STA.G CL.Len
>LDYA ZPCLBuf
jmp PrintYANoCR
@ -168,15 +167,15 @@ HIS.GetX >PUSHB.G HIS.hBuf
rts
*--------------------------------------
HIS.NextY lda (pData),y
phy
>CMP.G HIS.Count
ply
bcc .1
lda #0
.1 inc
rts

39
BIN/SH.S.IO.txt
View File

@ -1,6 +1,5 @@
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
IO.Reset jsr IO.Reset.In
jsr IO.Reset.Out
@ -32,7 +31,7 @@ IO.Set.In pha
sta (pPS),y
rts
*--------------------------------------
*--------------------------------------
IO.Pop.In clc
.HS B0 BCS
*--------------------------------------
@ -40,10 +39,10 @@ IO.Reset.In sec
>LDA.G IO.hIn
beq .8
bcc .1
ldy #S.PS.hStdIn
jsr IO.Close.Y
.1 ldy #S.PS.hStdIn
sta (pPS),y
>STZ.G IO.hIn
@ -56,9 +55,9 @@ IO.Pipe.Out >PUSHEA.G IO.DEVFIFO
>SYSCALL MKFIFO
bcs .9
jsr IO.Pipe.OpenW Open for OUTPUT
jsr IO.Pipe.OpenW Open for OUTPUT
bcs .9
pha
ldy #S.PS.hStdOut
lda (pPS),y
@ -79,19 +78,19 @@ IO.Set.Out pha
sta (pPS),y
clc
rts
*--------------------------------------
*--------------------------------------
IO.Pop.Out clc
.HS B0 BCS
*--------------------------------------
*--------------------------------------
IO.Reset.Out sec
IO.Reset.OutC >LDA.G IO.hOut
beq .8
bcc .1
ldy #S.PS.hStdOut
jsr IO.Close.Y
.1 ldy #S.PS.hStdOut
sta (pPS),y
>STZ.G IO.hOut
@ -106,13 +105,13 @@ IO.Set.Err pha
ldy #S.PS.hStdErr
sta (pPS),y
rts
*--------------------------------------
*--------------------------------------
IO.Reset.Err >LDA.G IO.hErr
beq .8
ldy #S.PS.hStdErr
jsr IO.Close.Y
ldy #S.PS.hStdErr
sta (pPS),y
>STZ.G IO.hErr
@ -145,11 +144,11 @@ IO.StatYA >PUSHYA
>PUSHW ZPCLBuf
>SYSCALL Stat
bcs .9
ldy #S.STAT.MODE+1
lda (ZPCLBuf),y
and #$F0
.9 rts
*--------------------------------------
IO.Exec >PUSHW ZPArgVBufPtr
@ -223,11 +222,11 @@ IO.PrintBatchErrMsg
bne .5
sta (ZPCLBuf),y
.6 ldy #S.PS.hStdErr
lda (pPS),y
>PUSHA
>PUSHW L.MSG.BATCHLINE
>PUSHW ZPCLBuf
@ -260,20 +259,20 @@ IO.PrintErrMsg ldy #S.PS.RC
>PUSHA
>PUSHW ZPCLBuf
>SYSCALL GetErrMsg
.8 ldy #S.PS.hStdErr
lda (pPS),y
>PUSHA
>PUSHW L.MSG.ERROR
ldy #S.PS.RC
lda (pPS),y
>PUSHA
>PUSHW ZPCLBuf
>PUSHBI 3
>SYSCALL FPrintF

10
BIN/SH.S.txt
View File

@ -87,10 +87,9 @@ bState .BS 1
bState.ExitOnEOF .EQ %10000000
bState.Pause .EQ %01000000
bState.PipeIn .EQ %00100000
bState.PipeOut .EQ %00010000
bState.AmpAmp .EQ %00001000
bState.SET.C .EQ %00000100
bState.SET.E .EQ %00000010
bState.SET.X .EQ %00000001
@ -488,7 +487,7 @@ CS.DOEVENT lda (pEvent)
*--------------------------------------
CS.QUIT jsr CORE.FUNCRESET
>LDA.G hFunctions
>LDA.G hAliases
beq .10
>SYSCALL SListFree
@ -613,7 +612,7 @@ MSG.BATCHERR .CZ "%s^\r\nLine #%D:"
MSG.ERROR .CS "[$%h]:%s."
MSG.ECHOCRLF .CZ "\r\n"
MSG.PID .CZ "PID=%d\r\n"
MSG.ALIAS .CZ ' = "%s"\r\n'
MSG.ALIAS .CZ '%s = "%s"\r\n'
*--------------------------------------
FMT.DATE .AZ "%A, %B %d %Y %H:%M:%S"
FMT.Long .AZ "%L"
@ -741,9 +740,6 @@ CL.bEscMode .BS 1
CL.MaxCnt .BS 1
CL.bSilent .BS 1
CORE.bPipeIn .BS 1
CORE.bPipeOut .BS 1
HIS.hBuf .BS 1
HIS.Count .BS 1
HIS.Ptr .BS 1

19
BIN/SHUTDOWN.S.txt
View File

@ -138,9 +138,8 @@ CS.RUN lda #DEFAULT.TIMEOUT
sec
.99 rts
*--------------------------------------
.9 >PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
.9 >LDYA L.MSG.USAGE
>SYSCALL PutS
lda #E.SYN
sec
@ -400,13 +399,13 @@ CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG.USAGE .AS "Usage : SHUTDOWN <NEXT.SYSTEM>\r\n"
.AS " -R : Restart System\r\n"
.AS " -T <seconds> : default to 60"
MSG.CRLF .AZ "\r\n"
MSG.SHUTDOWN .AZ "\r\e[KSHUTDOWN:System will stop in %u seconds..."
MSG.PS .AZ "SHUTDOWN:Killing process %3d, %s\r\n"
MSG.DEV .AZ "SHUTDOWN:Closing device %3d, %s\r\n"
MSG.USAGE .CS "Usage : SHUTDOWN <NEXT.SYSTEM>\r\n"
.CS " -R : Restart System\r\n"
.CS " -T <seconds> : default to 60"
MSG.CRLF .CZ "\r\n"
MSG.SHUTDOWN .CZ "\r\e[KSHUTDOWN:System will stop in %u seconds..."
MSG.PS .CZ "SHUTDOWN:Killing process %3d, %s\r\n"
MSG.DEV .CZ "SHUTDOWN:Closing device %3d, %s\r\n"
*--------------------------------------
.DUMMY
.OR 0

18
BIN/SPDIAG.S.txt
View File

@ -237,14 +237,14 @@ CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG.SP.FOUND .AZ "Slot #%2d:DevId = %b, "
MSG.SP.OK .AS "Dev Count = %d\r\n"
.AZ " Status Typ/Sub IDString Version Size (BLK)\r\n"
MSG.DEV .AZ " Dev #%2d:"
MSG.DEV.DIB .AZ "%s $%h/$%h %16S %03d.%03d "
MSG.DEV.B .AZ "%10u\r\n"
MSG.DEV.C .AZ "n/a\r\n"
MSG.ERR .AZ "Error : $%h\r\n"
MSG.SP.FOUND .CZ "Slot #%2d:DevId = %b, "
MSG.SP.OK .CS "Dev Count = %d\r\n"
.CZ " Status Typ/Sub IDString Version Size (BLK)\r\n"
MSG.DEV .CZ " Dev #%2d:"
MSG.DEV.DIB .CZ "%s $%h/$%h %16S %03d.%03d "
MSG.DEV.B .CZ "%10u\r\n"
MSG.DEV.C .CZ "n/a\r\n"
MSG.ERR .CZ "Error : $%h\r\n"
*--------------------------------------
MSG.SFLAGS .AS "bwrlneio"
*--------------------------------------
@ -253,7 +253,7 @@ SmartPort.SIG .HS 20000300
*--------------------------------------
BLANK.DIB .DA #0
.BS 3
>PSTR "(No IDS String!)"
.PS "(No IDS String!)"
.DA #0
.DA #0
.DA 0

8
BIN/TERM.S.txt
View File

@ -83,6 +83,7 @@ CS.RUN.LOOP >SLEEP
lda hDev
>SYSCALL FEOF
bcs .9
tay
bne .1 EOF, no char
@ -102,6 +103,7 @@ CS.RUN.LOOP >SLEEP
>SYSCALL FEOF
bcs .9
tay
bne CS.RUN.LOOP EOF = true, no char from STDIN
@ -114,8 +116,8 @@ CS.RUN.LOOP >SLEEP
lda (ZPBufPtr)
eor #$14 Ctrl-T
clc
beq .9 exit with A=0,CC
sec
beq .9 exit with A=0,CS
lda hDev
jsr CS.Write
@ -159,7 +161,7 @@ CS.QUIT lda hDev
rts
*--------------------------------------
CS.END
MSG.USAGE .AZ "Usage : TERM device "
MSG.USAGE .AZ "Usage : TERM device"
MSG.DEVOK .AZ "Connected (Exit key is Ctrl-T)"
*--------------------------------------
.DUMMY

19
BIN/USERDEL.S.txt
View File

@ -86,9 +86,8 @@ CS.RUN >LDYAI 256
sec
rts
.9 >PUSHW L.MSG.INV
>PUSHBI 0
>SYSCALL PrintF
.9 >LDYA L.MSG.INV
>SYSCALL Puts
lda #E.IUSR
sec
rts
@ -118,9 +117,8 @@ CS.RUN.CheckArg inc ArgIndex
dex
bpl .2
.9 >PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
.9 >LDYA L.MSG.USAGE
>SYSCALL PutS
lda #E.SYN
sec
rts
@ -186,6 +184,7 @@ CS.DOEVENT sec
*--------------------------------------
CS.QUIT lda ZPhStr
beq .8
>SYSCALL FreeMem
.8 clc
@ -198,10 +197,10 @@ OptionVars .DA #bDelete,#bDelete
*--------------------------------------
* Initialized DATA
*--------------------------------------
MSG.USAGE .AS "Usage : USERDEL username\r\n"
.AZ " -r : Force remove files in home directory\r\n"
MSG.INV .AZ "Invalid username.\r\n"
CMD.RM .AZ "${ROOT}BIN/RM -R -Q "
MSG.USAGE .CS "Usage : USERDEL username\r\n"
.CZ " -r : Force remove files in home directory\r\n"
MSG.INV .CZ "Invalid username."
CMD.RM .CZ "${ROOT}BIN/RM -R -Q "
*--------------------------------------
* Per Process DATA segment
*--------------------------------------

13
BIN/XARGS.S.txt
View File

@ -167,9 +167,8 @@ CS.RUN.CheckArgs
.97 lda #E.SYN
.98 pha
>PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
>LDYA L.MSG.USAGE
>SYSCALL PutS
pla
sec
rts
@ -252,10 +251,10 @@ CS.END
OptionList .AS "Hh"
OptionList.Cnt .EQ *-OptionList
*--------------------------------------
MSG.USAGE .AS "Usage : XARGS command <file>\r\n"
.AS " or : CMD|XARGS command"
MSG.CRLF .AZ "\r\n"
CMD.SPC .AZ " "
MSG.USAGE .CS "Usage : XARGS command <file>\r\n"
.CS " or : CMD|XARGS command"
MSG.CRLF .CZ "\r\n"
CMD.SPC .CZ " "
*--------------------------------------
.DUMMY
.OR 0

4
DRV/DHGR.DRV.S.txt
View File

@ -630,11 +630,11 @@ LBUF.DATA .BS 81
*--------------------------------------
DIB .DA #0
.DA #0,#0,#0
>PSTR "Apple II DHGR"
.PS "Apple II DHGR"
.BS 3
.DA #S.DIB.T.GFX
.DA #0
.DA K.VER
.DA #94,#00
*--------------------------------------
DCB .DA #S.DCB.T.GFX
.BS 1 DEV.ID

17
DRV/LANCEGS.DRV.S.txt
View File

@ -44,7 +44,7 @@ L.MAC4 .DA DCB+S.DCB.NIC.MAC+4
L.MAC5 .DA DCB+S.DCB.NIC.MAC+5
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect >STYA ARGS
Dev.Detect >STYA ZPArgPtr
>LDYA L.MSG.DETECT
>SYSCALL PutS
@ -104,9 +104,7 @@ Dev.Detect >STYA ARGS
* clc
.9 rts
*--------------------------------------
Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPtr
lda (ZPArgPtr)
Dev.ParseArgs lda (ZPArgPtr)
bne .1
lda A2osX.RANDOM16
@ -139,11 +137,10 @@ Dev.ParseArgs >LDYA ARGS
.8 rts
*--------------------------------------
CS.END
ARGS .BS 2
MSG.DETECT .AZ "LanCeGS/SMSC91C96 Driver."
MSG.DETECT.OK .AZ "LanCeGS/SMSC91C96 Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "Hardware Not Found."
SSCANF.MAC .AZ "%h:%h:%h:%h:%h:%h"
MSG.DETECT .CZ "LanCeGS/SMSC91C96 Driver."
MSG.DETECT.OK .CZ "LanCeGS/SMSC91C96 Installed As Device : %s\r\n"
MSG.DETECT.KO .CZ "Hardware Not Found."
SSCANF.MAC .CZ "%h:%h:%h:%h:%h:%h"
*--------------------------------------
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
@ -541,7 +538,7 @@ DEVSLOTx0 .BS 1
*--------------------------------------
DIB .DA #0
.DA #0,#0,#0 size
>PSTR "LanCEGS/L91C96"
.PS "LanCEGS/L91C96"
.BS 2
.DA #S.DIB.T.NIC
.BS 1 Subtype

32
DRV/MOUSE.DRV.S.txt
View File

@ -9,8 +9,8 @@ NEW
.INB inc/a2osx.i
.INB inc/io.i
.INB inc/mli.e.i
.INB inc/xy.i
.INB inc/xy.mouse.i
.INB inc/libgui.i
*--------------------------------------
ZPSlotPtr .EQ ZPBIN
*--------------------------------------
@ -101,9 +101,9 @@ Dev.Detect >LDYA L.MSG.DETECT
.99 rts
*--------------------------------------
CS.END
MSG.DETECT .AZ "Apple Mouse Driver."
MSG.DETECT.OK .AZ "Mouse Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "No Mouse Found."
MSG.DETECT .CZ "Apple Mouse Driver."
MSG.DETECT.OK .CZ "Mouse Installed As Device : %s\r\n"
MSG.DETECT.KO .CZ "No Mouse Found."
DEVSIG.Offset .HS 05070B0CFB
DEVSIG.Value .HS 38180120D6
*--------------------------------------
@ -240,7 +240,7 @@ READ >STYA ZPBufPtr NON STANDARD
and #MOUSESTSx.MOVED
beq .1
ldy #S.MOUSE.X1
ldy #S.XY.X1
lda MOUSEXLOx,x
sta (ZPBufPtr),y
@ -254,7 +254,7 @@ READ >STYA ZPBufPtr NON STANDARD
lda MOUSEYHIx,x
sta (ZPBufPtr),y
lda #S.MOUSE.S.MOVE
lda #S.XY.S.MOVE
tsb READ.S+1
stz bDblClick Reset DblClick flag
@ -268,7 +268,7 @@ READ >STYA ZPBufPtr NON STANDARD
asl if CS, down & previously up
bcc .2
lda #S.MOUSE.S.DOWN
lda #S.XY.S.DOWN
tsb READ.S+1 button has been pressed, start drag...
lda MOUSEXLOx,x
@ -283,16 +283,16 @@ READ >STYA ZPBufPtr NON STANDARD
.2 lda READ.S+1
pha save move state
ora #S.MOUSE.S.UP
ora #S.XY.S.UP
sta READ.S+1
pla get back move state
bne .4 no move...click!
lda #S.MOUSE.S.CLK
lda #S.XY.S.CLK
bit bDblClick
bpl .3
lda #S.MOUSE.S.DCLK
lda #S.XY.S.DCLK
ldy #1
sty bDblClick
@ -302,12 +302,12 @@ READ >STYA ZPBufPtr NON STANDARD
tsb READ.S+1
bra .8
.4 lda #S.MOUSE.S.DRAGSTART
.4 lda #S.XY.S.DRAGSTART
tsb READ.S+1
ldy #S.MOUSE.X2+3
ldy #S.XY.X2+3
.5 lda SrcDrag-S.MOUSE.X2,y
.5 lda SrcDrag-S.XY.X2,y
sta (ZPBufPtr),y
dey
bpl .5
@ -317,7 +317,7 @@ READ >STYA ZPBufPtr NON STANDARD
READ.S lda #$ff SELF MODIFIED
beq .9
ldy #S.MOUSE.S
ldy #S.XY.S
sta (ZPBufPtr),y
clc
rts
@ -360,11 +360,11 @@ SrcDrag .BS 4
*--------------------------------------
DIB .DA #0
.DA #0,#0,#0
>PSTR "Apple II Mouse"
.PS "Apple II Mouse"
.BS 2
.DA #S.DIB.T.XY
.DA #0
.DA K.VER
.DA #0,#94
*--------------------------------------
DRV.END
*--------------------------------------

16
DRV/UTHER2.AI.DRV.S.txt
View File

@ -47,7 +47,7 @@ L.MAC4 .DA DCB+S.DCB.NIC.MAC+4
L.MAC5 .DA DCB+S.DCB.NIC.MAC+5
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect >STYA ARGS
Dev.Detect >STYA ZPArgPtr
>LDYA L.MSG.DETECT
>SYSCALL PutS
@ -131,9 +131,7 @@ Dev.Detect >STYA ARGS
* clc
.9 rts
*--------------------------------------
Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPtr
lda (ZPArgPtr)
Dev.ParseArgs lda (ZPArgPtr)
bne .1
lda A2osX.RANDOM16
@ -168,10 +166,10 @@ Dev.ParseArgs >LDYA ARGS
*--------------------------------------
CS.END
ARGS .BS 2
MSG.DETECT .AZ "UtherNet2/W5100 Driver (ARP/IP Offload)."
MSG.DETECT.OK .AZ "UtherNet2/W5100 Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "Hardware Not Found."
SSCANF.MAC .AZ "%h:%h:%h:%h:%h:%h"
MSG.DETECT .CZ "UtherNet2/W5100 Driver (ARP/IP Offload)."
MSG.DETECT.OK .CZ "UtherNet2/W5100 Installed As Device : %s\r\n"
MSG.DETECT.KO .CZ "Hardware Not Found."
SSCANF.MAC .CZ "%h:%h:%h:%h:%h:%h"
*--------------------------------------
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
@ -889,7 +887,7 @@ DEVSLOTx0 .BS 1
*--------------------------------------
DIB .DA #0
.DA #0,#0,#0 size
>PSTR "UtherNetII/W5100"
.PS "UtherNetII/W5100"
.DA #S.DIB.T.NIC
.BS 1 Subtype
.DA K.VER Version

10
DRV/UTHERNET.DRV.S.txt
View File

@ -158,10 +158,10 @@ Dev.ParseArgs lda (ZPArgPtr)
.8 rts
*--------------------------------------
CS.END
MSG.DETECT .AZ "UtherNet/CS8900A Driver."
MSG.DETECT.OK .AZ "UtherNet/CS8900A Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "Hardware Not Found."
SSCANF.MAC .AZ "%h:%h:%h:%h:%h:%h"
MSG.DETECT .CZ "UtherNet/CS8900A Driver."
MSG.DETECT.OK .CZ "UtherNet/CS8900A Installed As Device : %s\r\n"
MSG.DETECT.KO .CZ "Hardware Not Found."
SSCANF.MAC .CZ "%h:%h:%h:%h:%h:%h"
*--------------------------------------
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
@ -530,7 +530,7 @@ DEVSLOTx0 .BS 1
*--------------------------------------
DIB .DA #0
.DA #0,#0,#0 size
>PSTR "Uthernet/CS8900A"
.PS "Uthernet/CS8900A"
.DA #S.DIB.T.NIC
.BS 1 Subtype
.BS 2 Version

17
DRV/UTHERNET2.DRV.S.txt
View File

@ -45,7 +45,7 @@ L.MAC4 .DA DCB+S.DCB.NIC.MAC+4
L.MAC5 .DA DCB+S.DCB.NIC.MAC+5
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect >STYA ARGS
Dev.Detect >STYA ZPArgPtr
>LDYA L.MSG.DETECT
>SYSCALL PutS
@ -129,9 +129,7 @@ Dev.Detect >STYA ARGS
* clc
.9 rts
*--------------------------------------
Dev.ParseArgs >LDYA ARGS
>STYA ZPArgPtr
lda (ZPArgPtr)
Dev.ParseArgs lda (ZPArgPtr)
bne .1
lda A2osX.RANDOM16
@ -165,11 +163,10 @@ Dev.ParseArgs >LDYA ARGS
.8 rts
*--------------------------------------
CS.END
ARGS .BS 2
MSG.DETECT .AZ "UtherNet2/W5100 Driver."
MSG.DETECT.OK .AZ "UtherNet2/W5100 Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "Hardware Not Found."
SSCANF.MAC .AZ "%h:%h:%h:%h:%h:%h"
MSG.DETECT .CZ "UtherNet2/W5100 Driver."
MSG.DETECT.OK .CZ "UtherNet2/W5100 Installed As Device : %s\r\n"
MSG.DETECT.KO .CZ "Hardware Not Found."
SSCANF.MAC .CZ "%h:%h:%h:%h:%h:%h"
*--------------------------------------
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
@ -516,7 +513,7 @@ DEVSLOTx0 .BS 1
*--------------------------------------
DIB .DA #0
.DA #0,#0,#0 size
>PSTR "UtherNetII/W5100"
.PS "UtherNetII/W5100"
.DA #S.DIB.T.NIC
.BS 1 Subtype
.DA K.VER Version

46
INC/LIBGUI.I.txt
View File

@ -11,9 +11,10 @@ LIBGUI.DrawLine .EQ 16
LIBGUI.OBJ.SetProp .EQ 18
LIBGUI.OBJ.GetProp .EQ 20
LIBGUI.WND.New .EQ 22
LIBJUI.WND.Destroy .EQ 24
LIBGUI.WND.Destroy .EQ 24
LIBGUI.WND.Show .EQ 26
LIBGUI.WND.Paint .EQ 28
LIBGUI.GetMsg .EQ 30
*--------------------------------------
C.BLACK .EQ 0
C16.D.BLUE .EQ 1
@ -42,23 +43,34 @@ CUR.T.CROSS .EQ 12
CUR.T.TEXT .EQ 14
CUR.T.WAIT .EQ 16
*--------------------------------------
S.MOUSE.X1 .EQ 0
S.MOUSE.Y1 .EQ 2
S.MOUSE.X2 .EQ 4
S.MOUSE.Y2 .EQ 6
S.MOUSE.S .EQ 8
S.MOUSE.S.UP .EQ %00000001
S.MOUSE.S.DOWN .EQ %00000010
S.MOUSE.S.MOVE .EQ %00000100
S.MOUSE.S.DRAGSTART .EQ %00001000
S.MOUSE.S.DRAGEND .EQ %00010000
S.MOUSE.S.CLK .EQ %00100000
S.MOUSE.S.DCLK .EQ %01000000
S.MOUSE.KEYMOD .EQ 9
S.MOUSE.KEYMOD.OA .EQ %00000001
S.MOUSE.KEYMOD.CA .EQ %00000010
S.MSG.T .EQ 0
S.MSG.T.KEY .EQ 0
S.MSG.T.XY .EQ 2
S.MSG.T.ID .EQ 4
S.MSG.T.WND .EQ 6
*
S.MOUSE .EQ 10
S.MSG.KEYMOD .EQ 2
S.MSG.KEYMOD.OA .EQ %00000001
S.MSG.KEYMOD.CA .EQ %00000010
S.MSG.KEY .EQ 3
S.MSG.ID .EQ 4
S.MSG.WND .EQ 5
* S.MSG.T.XY
S.MSG.X1 .EQ 6
S.MSG.Y1 .EQ 8
S.MSG.X2 .EQ 10
S.MSG.Y2 .EQ 12
S.MSG.S .EQ 14
S.MSG.S.UP .EQ %00000001
S.MSG.S.DOWN .EQ %00000010
S.MSG.S.MOVE .EQ %00000100
S.MSG.S.DRAGSTART .EQ %00001000
S.MSG.S.DRAGEND .EQ %00010000
S.MSG.S.CLK .EQ %00100000
S.MSG.S.DCLK .EQ %01000000
*
*
S.MSG .EQ 16
*--------------------------------------
S.POINT.X .EQ 0
S.POINT.Y .EQ 2

23
INC/XY.I.txt Normal file
View File

@ -0,0 +1,23 @@
NEW
AUTO 3,1
*--------------------------------------
* XY pointing devices
*--------------------------------------
S.XY.X1 .EQ 0
S.XY.Y1 .EQ 2
S.XY.X2 .EQ 4
S.XY.Y2 .EQ 6
S.XY.S .EQ 8
S.XY.S.UP .EQ %00000001
S.XY.S.DOWN .EQ %00000010
S.XY.S.MOVE .EQ %00000100
S.XY.S.DRAGSTART .EQ %00001000
S.XY.S.DRAGEND .EQ %00010000
S.XY.S.CLK .EQ %00100000
S.XY.S.DCLK .EQ %01000000
*
*
S.XY .EQ 10
*--------------------------------------
MAN
SAVE inc/xy.i

60
INCLUDE/libgui.h.txt Normal file
View File

@ -0,0 +1,60 @@
NEW
AUTO 3,1
#define CUR_T_ARROW 0
#define CUR_T_MOVE 2
#define CUR_T_RESIZEX 4
#define CUR_T_RESIZEY 6
#define CUR_T_RESIZEXY1 8
#define CUR_T_RESIZEXY2 10
#define CUR_T_CROSS 12
#define CUR_T_TEXT 14
#define CUR_T_WAIT 16
#define WND_F_RESIZE 1
#define WND_F_MOVE 2
#define WND_F_CLOSE 4
#define WND_F_MIN 8
#define WND_F_MAX 16
#define WND_F_BORDER 32
#define WND_F_MODAL 64
#define WND_F_SYSMODAL 128
#define WND_S_HASTBAR 1
#define WND_S_HASMBAR 2
#define WND_S_HASSBAR 4
#define WND_S_MAXIMIZED 8
#define WND_S_MINIMIZED 16
#define WND_S_ACTIVE 64
#define WND_P_pTITLE 24
#define WND_P_pMBAR 26
#define WND_P_pSTATUS 28
typedef short int HWND;
struct _MSG_ {
short int type;
short int subt;
short int keymod;
short int key;
int x1;
int y1;
int x2;
int y2;
int s;
};
typedef struct _MSG_ MSG;
HWND guiNewWnd(short int,int,int,int,int);
void guiDestroyWnd(HWND);
void guiShowWnd(HWND);
void* guiSetProp(HWND,short int,void*);
void* guiGetProp(HWND,short int);
void GetMsg(MSG*);
MAN
TEXT include/libgui.h

28
LIB/LIBGUI.O.S.txt Normal file
View File

@ -0,0 +1,28 @@
NEW
AUTO 3,1
.LIST OFF
.OR $0
.TF lib/libgui.o
*--------------------------------------
.INB inc/libgui.i
*--------------------------------------
.PS "guiSetProp"
.DA #LIBGUI.OBJ.SetProp
.PS "guiGetProp"
.DA #LIBGUI.OBJ.GetProp
.PS "guiNewWnd"
.DA #LIBGUI.WND.New
.PS "guiDestroyWnd"
.DA #LIBGUI.WND.Destroy
.PS "guiShowWnd"
.DA #LIBGUI.WND.Show
.PS "GetMsg"
.DA #LIBGUI.GetMsg
.DA #0
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.o.s
ASM

2
LIB/LIBGUI.S.CUR.txt
View File

@ -81,8 +81,8 @@ SetCursor.RTS rts
*--------------------------------------
SetCursorPos >PULLW ZPPtr1
lda CUR.bVisible
bpl .1
jsr HideCursor.I
.1 ldy #S.POINT-1

75
LIB/LIBGUI.S.EVT.txt
View File

@ -1,45 +1,82 @@
NEW
AUTO 3,1
*--------------------------------------
EVT.GetMsg >PULLW ZPPtr1
EVT.GetMsg stz MSG+S.MSG.T
lda A2osX.ASCREEN GUI screen active ?
cmp DCB.GFX+S.DCB.GFX.DEVID
bne .9 no, exit....
beq .10
jmp .9 no, exit....
* sec
lda hDevMouse
beq .2
.10 lda hDevMouse
beq .5
>PUSHA
>PUSHBI IOCTL.READ
>PUSHW L.MouseData
>PUSHW L.XY
>SYSCALL2 IOCTL
bcs .2
bcs .5
ldy #S.MOUSE-1
ldx #S.XY-1
ldy #S.MSG-1
.1 lda MouseData,y
sta (ZPPtr1),y
.1 lda XY,x
sta MSG,y
dey
dex
bpl .1
* clc
lda #S.MSG.T.XY
sta MSG+S.MSG.T
.2 lda KBD
bmi .3
lda XY+S.XY.S
bit #S.MSG.S.MOVE
beq .2
>PUSHW L.XY
jsr SetCursorPos
lda XY+S.XY.S
.2 bit #S.MSG.S.MOVE+S.MSG.S.CLK
beq .5
jsr MOU.CheckOverMenu
bcc .8
jsr MOU.CheckOverSysBut
bcc .8
jsr MOU.CheckOverWND
bcc .8
*--------------------------------------
.5 lda KBD
bpl .9
rts
.3 sta KBDSTROBE
sta KBDSTROBE
and #$7F
sta MSG+S.MSG.KEY
lda #S.MSG.T.KEY
sta MSG+S.MSG.T
.8 clc
.8 >PULLW ZPPtr1 pS.MSG
ldy #S.MSG-1
.6 lda MSG,y
sta (ZPPtr1),y
dey
bpl .6
clc
rts
.9 sec
.9 inc pStack discard pS.MSG
inc pStack
sec No User Msg
rts
*--------------------------------------
MAN

14
LIB/LIBGUI.S.MBAR.txt
View File

@ -29,7 +29,7 @@ MBAR.New >LDYAI S.MBAR
clc
rts
.99 rts
*--------------------------------------
MBAR.Init >STYA ZPMENUPtr
>STYA ZPPtr1
@ -119,6 +119,18 @@ MBAR.Init >STYA ZPMENUPtr
.80 clc
rts
*--------------------------------------
* ZPWNDPtr parent WND
* MSG.X1, MSG.Y1
*--------------------------------------
MBAR.Enter
* >DEBUG
*--------------------------------------
MBAR.Leave
clc
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.mbar
LOAD usr/src/lib/libgui.s

11
LIB/LIBGUI.S.MENU.txt
View File

@ -233,11 +233,16 @@ MENU.Enter jsr MENU.GetDX
.80 >LDYA L.WND.Screen
jmp DrawCBBufToYA
.9 lda MouseData+S.MOUSE.S
bit #S.MOUSE.S.CLK
.9 lda MSG+S.MSG.S
bit #S.MSG.S.CLK
beq .90
* >DEBUG
lda #S.MSG.T.ID
sta MSG+S.MSG.T
ldy #S.MITEM.ID
lda (ZPPtr1),y
sta MSG+S.MSG.ID
jmp MENU.DestroyAll

78
LIB/LIBGUI.S.MOU.txt
View File

@ -59,7 +59,7 @@ MOU.Quit lda hDevMouse
.8 clc
rts
*--------------------------------------
MOU.ReadMouse >PULLW ZPPtr1
MOU.ReadMouse >PULLW ZPPtr1 pS.XY
lda A2osX.ASCREEN GUI screen active ?
cmp DCB.GFX+S.DCB.GFX.DEVID
@ -70,32 +70,18 @@ MOU.ReadMouse >PULLW ZPPtr1
>PUSHA
>PUSHBI IOCTL.READ
>PUSHW L.MouseData
>PUSHW L.XY
>SYSCALL2 IOCTL
bcs .99
ldy #S.MOUSE-1
ldy #S.XY-1
.1 lda MouseData,y
.1 lda XY,y
sta (ZPPtr1),y
dey
bpl .1
lda MouseData+S.MOUSE.S
bit #S.MOUSE.S.MOVE+S.MOUSE.S.CLK
beq .8
jsr MOU.CheckOverMenu
bcc .8
jsr MOU.CheckOverSysBut
bcc .8
jsr MOU.CheckOverWND
bcc .8
.8 clc
* clc
rts
.9 sec
@ -144,15 +130,17 @@ MOU.CheckOverSysBut
>LDYA L.RECT.SysBut
jsr MOU.InRectYA
bcs .9
jmp SYSBUT.Enter
.9 jsr SYSBUT.Leave
sec
MOU.CheckOverSysBut.RTS
rts
*--------------------------------------
MOU.CheckOverWND
ldx WND.Stack.Top
beq .9
beq MOU.CheckOverSysBut.RTS
.1 stx WND.Stack.Idx
@ -179,18 +167,18 @@ MOU.CheckOverWND
jsr MOU.InRectYA
bcs .7 not over this WND
lda MouseData+S.MOUSE.S
bit #S.MOUSE.S.CLK
lda MSG+S.MSG.S
bit #S.MSG.S.CLK
beq .22
jsr WND.Bring2Front
.22 ldy #S.WND.TBarY2
lda (ZPWNDPtr),y
cmp MouseData+S.MOUSE.Y1
cmp MSG+S.MSG.Y1
iny
lda (ZPWNDPtr),y
sbc MouseData+S.MOUSE.Y1+1
sbc MSG+S.MSG.Y1+1
bcc .3 not in TBAR
@ -199,23 +187,23 @@ MOU.CheckOverWND
.3 iny #S.WND.MBarY2
lda (ZPWNDPtr),y
cmp MouseData+S.MOUSE.Y1
cmp MSG+S.MSG.Y1
iny
lda (ZPWNDPtr),y
sbc MouseData+S.MOUSE.Y1+1
sbc MSG+S.MSG.Y1+1
bcc .4 not in MBAR
jsr MBAR.Enter
bra .5
.4 iny #S.WND.SBarY1
lda (ZPWNDPtr),y
cmp MouseData+S.MOUSE.Y1
cmp MSG+S.MSG.Y1
iny
lda (ZPWNDPtr),y
sbc MouseData+S.MOUSE.Y1+1
sbc MSG+S.MSG.Y1+1
bcs .6 not in SBAR
@ -250,13 +238,13 @@ MOU.ChkWNDBorders
lda (ZPWNDPtr),y
sec
sbc #1
eor MouseData+S.MOUSE.X1
eor MSG+S.MSG.X1
bne .1
iny
lda (ZPWNDPtr),y
sbc #0
eor MouseData+S.MOUSE.X1+1
eor MSG+S.MSG.X1+1
bne .1
lda #CUR.T.RESIZEX
@ -266,13 +254,13 @@ MOU.ChkWNDBorders
lda (ZPWNDPtr),y
sec
sbc #1
eor MouseData+S.MOUSE.Y1
eor MSG+S.MSG.Y1
bne .3
iny
lda (ZPWNDPtr),y
sbc #0
eor MouseData+S.MOUSE.Y1+1
eor MSG+S.MSG.Y1+1
bne .3
lda IY
@ -288,13 +276,13 @@ MOU.ChkWNDBorders
lda (ZPWNDPtr),y
clc
adc #1
eor MouseData+S.MOUSE.X2
eor MSG+S.MSG.X2
bne .5
iny
lda (ZPWNDPtr),y
adc #0
eor MouseData+S.MOUSE.X2+1
eor MSG+S.MSG.X2+1
bne .5
lda IY
@ -310,13 +298,13 @@ MOU.ChkWNDBorders
lda (ZPWNDPtr),y
clc
adc #1
eor MouseData+S.MOUSE.Y2
eor MSG+S.MSG.Y2
bne .7
iny
lda (ZPWNDPtr),y
adc #0
eor MouseData+S.MOUSE.Y2+1
eor MSG+S.MSG.Y2+1
bne .7
lda #CUR.T.RESIZEXY1
@ -332,38 +320,38 @@ MOU.InRectYA >STYA ZPRECTPtr
ldy #S.RECT.X1
lda MouseData+S.MOUSE.X1
lda MSG+S.MSG.X1
cmp (ZPRECTPtr),y
iny
lda MouseData+S.MOUSE.X1+1
lda MSG+S.MSG.X1+1
sbc (ZPRECTPtr),y
bcc .9
iny #S.RECT.Y1
lda MouseData+S.MOUSE.Y1
lda MSG+S.MSG.Y1
cmp (ZPRECTPtr),y
iny
lda MouseData+S.MOUSE.Y1+1
lda MSG+S.MSG.Y1+1
sbc (ZPRECTPtr),y
bcc .9
iny #S.RECT.X2
lda (ZPRECTPtr),y
cmp MouseData+S.MOUSE.X1
cmp MSG+S.MSG.X1
iny
lda (ZPRECTPtr),y
sbc MouseData+S.MOUSE.X1+1
sbc MSG+S.MSG.X1+1
bcc .9
iny #S.RECT.Y2
lda (ZPRECTPtr),y
cmp MouseData+S.MOUSE.Y1
cmp MSG+S.MSG.Y1
iny
lda (ZPRECTPtr),y
sbc MouseData+S.MOUSE.Y1+1
sbc MSG+S.MSG.Y1+1
bcc .9
clc

41
LIB/LIBGUI.S.txt
View File

@ -7,8 +7,10 @@ NEW
*--------------------------------------
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/io.i
.INB inc/mli.i
.INB inc/gfx.i
.INB inc/xy.i
.INB inc/libgui.i
*--------------------------------------
WND.MAX .EQ 64
@ -132,6 +134,8 @@ CS.START cld
.DA WND.Destroy
.DA WND.Show
.DA WND.Paint
.DA EVT.GetMsg
*--------------------------------------
L.WND.fPaint .DA WND.fPaint
*--------------------------------------
L.DEVNAME.GFX .DA DEVNAME.GFX
@ -141,7 +145,8 @@ L.SYSX7B .DA SYSX7B
L.IOCTL .DA IOCTL
L.DCB.GFX .DA DCB.GFX
L.MouseClamp .DA MouseClamp
L.MouseData .DA MouseData
L.XY .DA XY
L.MSG .DA MSG
L.CB.PTR .DA CB.PTR
L.CB.Cache .DA CB.Cache
L.OBJ.Cache .DA OBJ.Cache
@ -233,12 +238,12 @@ LIB.UNLOAD dec LibCount
*--------------------------------------
CB.InitCacheA sta CB.Cache+S.CB.CMD
*--------------------------------------
CB.ClearCache ldx #S.CB-1
CB.ClearCache ldx #S.CB-1
.1 stz CB.Cache,x
dex
bne .1
rts
*--------------------------------------
CB.GetInCache >STYA .1+1
@ -260,7 +265,7 @@ GetCBBuf clc
>LDYAI 512
>SYSCALL2 GetMem
bcs .9
stx hCBBuf
>STYA ZPCBPtr
>STYA ZPCBBufPtr
@ -272,7 +277,7 @@ PutCBCache2CBBuf
lsr
tax
ldy CB.CmdLen-1,x
ldx #0
.1 lda CB.Cache,x
@ -362,6 +367,7 @@ OBJ.SetX2Y2 >STYA ZPPtr1
.INB usr/src/lib/libgui.s.clip
.INB usr/src/lib/libgui.s.cur
.INB usr/src/lib/libgui.s.draw
.INB usr/src/lib/libgui.s.evt
.INB usr/src/lib/libgui.s.fon
.INB usr/src/lib/libgui.s.mbar
.INB usr/src/lib/libgui.s.menu
@ -410,7 +416,8 @@ IOCTL .BS S.IOCTL
DCB.GFX .BS S.DCB.GFX
*--------------------------------------
MouseClamp .BS 8
MouseData .BS S.MOUSE
XY .BS S.XY
MSG .BS S.MSG
*--------------------------------------
CB.PTR .DA #S.CB.CMD.BITBLT
.BS 1 S.CB.OP
@ -460,10 +467,10 @@ MENU.Sys
.AZ "About..."
.11 .AS "Ctrl-"
.DA #1,#'-',#2,#'-',#'A',#0
.2 .DA #.3-* next
.DA #S.MITEM.F.SEP
.3 .DA #.4-* next
.DA #S.MITEM.F.SUBMENU F
.DA #0 S
@ -484,7 +491,7 @@ MENU.Sys
.5 .DA #.6-* next
.DA #S.MITEM.F.SEP
.6 .DA #.7-* next
.DA #S.MITEM.F.ITEM F
.DA #0 S
@ -493,8 +500,8 @@ MENU.Sys
.DA #0
.DA #0
.DA #0 KEYSTR
.AZ "Search..."
.AZ "Search..."
.7 .DA #.8-* next
.DA #S.MITEM.F.ITEM F
.DA #0 S
@ -503,7 +510,7 @@ MENU.Sys
.DA #S.MITEM.KEYMOD.CTRL+S.MITEM.KEYMOD.OA
.DA #'R'
.DA #.77-.7
.AZ "Run..."
.AZ "Run..."
.77 .AZ "Ctrl-R"
.8 .DA #0
*--------------------------------------
@ -516,7 +523,7 @@ MENU.Sys.Programs
.DA #0
.DA #0
.DA #0 KEYSTR
.AZ "GUITest1"
.AZ "Test ASM"
.2 .DA #.3-* next
.DA #S.MITEM.F.ITEM F
@ -526,7 +533,7 @@ MENU.Sys.Programs
.DA #0
.DA #0
.DA #0 KEYSTR
.AZ "GUITest2"
.AZ "Test C"
.3 .DA #0
*--------------------------------------
@ -539,7 +546,7 @@ MENU.Sys.Settings
.DA #0
.DA #0
.DA #0 KEYSTR
.AZ "Colors..."
.AZ "Colors..."
.2 .DA #.3-* next
.DA #S.MITEM.F.ITEM F
@ -549,7 +556,7 @@ MENU.Sys.Settings
.DA #0
.DA #0
.DA #0 KEYSTR
.AZ "SubItem2..."
.AZ "SubItem2..."
.3 .DA #0
*--------------------------------------

2
ROOT/make/_files.32MB.txt
View File

@ -35,8 +35,6 @@ bin/etconfig
bin/format
bin/forth
bin/grep
bin/gtest
bin/guitest1
bin/hmacmd5
bin/httpget
bin/ipconfig

14
SBIN/GETTY.S.txt
View File

@ -60,9 +60,6 @@ L.TELNETOPT.LMODE .DA TELNETOPT.LMODE
L.ENV.TERM .DA ENV.TERM
.DA 0 End Of Reloc Table
*--------------------------------------
CS.INIT clc
rts
*--------------------------------------
CS.RUN ldy #S.PS.ARGC
lda (pPS),y
cmp #2
@ -298,7 +295,8 @@ CS.QUIT lda hFILE
>SYSCALL FClose
.8 clc
.8
CS.INIT clc
rts
*--------------------------------------
CkeckOption lda (ZPPtr1)
@ -333,10 +331,10 @@ CkeckOption lda (ZPPtr1)
CS.END
OptionList .AS "Ee"
OptionVars .DA #bExitOnClose,#bExitOnClose
MSG.GREETINGS .AZ "\r\nA2osX-GeTTY %d.%d on %s\r\n"
MSG.USAGE .AS "Usage : GETTY <DEV> <PROGRAM>"
.DA #C.CR,#C.LF
.AZ " -E : Exit on disconnect"
*--------------------------------------
MSG.GREETINGS .CZ "\r\nA2osX-GeTTY %d.%d on %s\r\n"
MSG.USAGE .CS "Usage : GETTY <DEV> <PROGRAM>\r\n"
.CZ " -E : Exit on disconnect"
*--------------------------------------
TELNETOPTS .DA #IAC,#WILL,#TN.O.BINARY
.DA #IAC,#WILL,#TN.O.ECHO

165
SBIN/GUI.S.txt
View File

@ -16,7 +16,6 @@ NEW
.DUMMY
.OR ZPBIN
ZS.START
hWND .BS 1
ZS.END
.ED
*--------------------------------------
@ -41,10 +40,9 @@ CS.START cld
.DA CS.DOEVENT
.DA CS.QUIT
L.LIBGUI .DA LIBGUI
L.MouseData .DA MouseData
L.WND.TITLE .DA WND.TITLE
L.WND.MBAR .DA WND.MBAR
L.WND.STATUS .DA WND.STATUS
L.GUITEST1 .DA GUITEST1
L.GUITEST2 .DA GUITEST2
L.MSG .DA MSG
.DA 0
*--------------------------------------
CS.INIT >LDYA L.LIBGUI
@ -59,26 +57,30 @@ CS.INIT.RTS rts
*--------------------------------------
CS.RUN >SLEEP
>PUSHW L.MouseData
>LIBCALL hLIBGUI,LIBGUI.ReadMouse
>PUSHW L.MSG
>LIBCALL hLIBGUI,LIBGUI.GetMsg
bcs CS.RUN
lda MouseData+S.MOUSE.S
bit #S.MOUSE.S.MOVE
beq .1
.1 lda MSG+S.MSG.T
cmp #S.MSG.T.ID
bne CS.RUN
>PUSHW L.MouseData
>LIBCALL hLIBGUI,LIBGUI.SetCursorPos
lda MouseData+S.MOUSE.S
.1 bit #S.MOUSE.S.DCLK
beq CS.RUN
jsr WND.Test
lda MSG+S.MSG.ID
cmp #42
bne .2
>PUSHW L.GUITEST1
>PUSHBI 0
>SYSCALL ExecL
bra CS.RUN
.2 cmp #44
bne CS.RUN
>PUSHW L.GUITEST2
>PUSHBI 0
>SYSCALL ExecL
bra CS.RUN
clc
rts
*--------------------------------------
@ -93,132 +95,13 @@ CS.DOEVENT lda (pEvent)
CS.QUIT clc
CS.QUIT.RTS rts
*--------------------------------------
WND.Test >PUSHBI S.WND.F.RESIZE+S.WND.F.MOVE+S.WND.F.CLOSE+S.WND.F.MAX+S.WND.F.MIN
>PUSHW MouseData+S.MOUSE.X1
>PUSHW MouseData+S.MOUSE.Y1
>PUSHWI 360 witdh
>PUSHWI 96 height
>LIBCALL hLIBGUI,LIBGUI.WND.New
bcs CS.QUIT.RTS
sta hWND
>PUSHA A = hWND
>PUSHBI S.WND.BGCOLOR
>PUSHWI C.WHITE
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
>PUSHB hWND
>PUSHBI S.WND.TITLE
>PUSHW L.WND.TITLE
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
>PUSHB hWND
>PUSHBI S.WND.MBAR
>PUSHW L.WND.MBAR
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
>PUSHB hWND
>PUSHBI S.WND.STATUS
>PUSHW L.WND.STATUS
>LIBCALL hLIBGUI,LIBGUI.OBJ.SetProp
lda hWND
>LIBCALL hLIBGUI,LIBGUI.WND.Show
rts
*--------------------------------------
CS.END
LIBGUI .AZ "libgui"
hLIBGUI .BS 1
GUITEST1 .AZ "${ROOT}root/asmtest/guitest1"
GUITEST2 .AZ "${ROOT}root/ctest/testgui"
*--------------------------------------
MouseData .BS S.MOUSE
*--------------------------------------
WND.TITLE .AZ "Window Title"
*--------------------------------------
WND.MBAR .DA #.1-* next
.DA #0 status
.DA 0 X1
.DA 0 XT
.DA 0 X2
.DA 0 MENU
.AZ "File"
.1 .DA #.2-* next
.DA #0 status
.DA 0 X1
.DA 0 XT
.DA 0 X2
.DA 0 MENU
.AZ "Edit"
.2 .DA #.3-* next
.DA #0 status
.DA 0 X1
.DA 0 XT
.DA 0 X2
.DA 0 MENU
.AZ "Options"
.3 .DA #.4-* next
.DA #0 status
.DA 0 X1
.DA 0 XT
.DA 0 X2
.DA 0 MENU
.AZ "?"
.4 .DA #0
*--------------------------------------
WND.STATUS .AZ "Window status bar message"
*--------------------------------------
WND.MENU.FILE .DA #02 ID
.DA #S.MITEM.KEYMOD.CTRL
.DA #'N'
.AZ "New"
.DA #04 ID
.DA #S.MITEM.KEYMOD.CTRL
.DA #'O'
.AZ "Open..."
.DA #06 ID
.DA #S.MITEM.KEYMOD.CTRL
.DA #'S'
.AZ "Save"
.DA #08 ID
.DA #S.MITEM.KEYMOD.OA+S.MITEM.KEYMOD.CTRL
.DA #'S'
.AZ "Save As..."
.DA #10 ID
.DA #S.MITEM.KEYMOD.CTRL
.DA #'Q'
.AZ "Quit"
.DA #0
*--------------------------------------
WND.MENU.EDIT .DA #12 ID
.DA #S.MITEM.KEYMOD.OA
.DA #'X'
.AZ "Cut"
.DA #14 ID
.DA #S.MITEM.KEYMOD.OA
.DA #'C'
.AZ "Copy"
.DA #16 ID
.DA #S.MITEM.KEYMOD.OA
.DA #'V'
.AZ "Paste"
.DA #0
*--------------------------------------
WND.MENU.OPTIONS .DA #18 ID
.DA #0
.DA #0
.AZ "Check Me"
.DA #0
*--------------------------------------
WND.MENU.HELP .DA #20 ID
.DA #0
.DA #0
.AZ "About..."
.DA #0
MSG .BS S.MSG
*--------------------------------------
.DUMMY
.OR 0

19
SBIN/HTTPD.S.txt
View File

@ -11,6 +11,7 @@ NEW
.INB inc/mli.e.i
.INB inc/eth.i
.INB inc/libtcpip.i
.INB inc/net.tcpip.i
.INB inc/net.http.i
*--------------------------------------
TIMEOUT.MAX .EQ 30 30 sec.
@ -750,15 +751,15 @@ KEYWORDS.CONF .AS "ServerName "
.AS "DocumentRoot "
.DA #0
*--------------------------------------
MSG.TCPWAIT .AZ "HTTPD:Waiting for TCP/IP initializing..."
MSG.TCPIPERR .AZ "HTTPD:TCP/IP Not initialized properly."
MSG.INITCONF .AZ "HTTPD:Reading %s file...\r\n"
MSG.INITOK .AZ "HTTPD:Listening on port %D, root dir: %s.\r\n"
MSG.SKTERR .AZ "HTTPD:Skt Bind Error."
MSG.INCOMING .AZ "HTTPD:Skt $%h Opened From %d.%d.%d.%d\r\n"
MSG.REQ .AZ "HTTPD:Req $%h From Skt $%h\r\n"
MSG.FILE .AZ "HTTPD:Skt $%h File %s\r\n"
MSG.SKTCLOSE .AZ "HTTPD:Skt $%h Close\r\n"
MSG.TCPWAIT .CZ "HTTPD:Waiting for TCP/IP initializing..."
MSG.TCPIPERR .CZ "HTTPD:TCP/IP Not initialized properly."
MSG.INITCONF .CZ "HTTPD:Reading %s file...\r\n"
MSG.INITOK .CZ "HTTPD:Listening on port %D, root dir: %s.\r\n"
MSG.SKTERR .CZ "HTTPD:Skt Bind Error."
MSG.INCOMING .CZ "HTTPD:Skt $%h Opened From %d.%d.%d.%d\r\n"
MSG.REQ .CZ "HTTPD:Req $%h From Skt $%h\r\n"
MSG.FILE .CZ "HTTPD:Skt $%h File %s\r\n"
MSG.SKTCLOSE .CZ "HTTPD:Skt $%h Close\r\n"
*--------------------------------------
KEYWORDS.REQ .AS "GET "
.AS "Connection: "

44
SBIN/INITD.S.txt
View File

@ -5,7 +5,7 @@ NEW
.OR $2000
.TF sbin/initd
*--------------------------------------
INITDDBG .EQ 1
INITDDBG .EQ 0
*--------------------------------------
.INB inc/macros.i
.INB inc/a2osx.i
@ -94,7 +94,7 @@ CS.RUN .DO INITDDBG=1
jsr CS.RUN.EXEC.X
>SLEEP
*--------------------------------------
.1 .DO INITDDBG=1
>LDYA L.MSG.ETCINIT
>SYSCALL PutS
@ -102,35 +102,23 @@ CS.RUN .DO INITDDBG=1
jsr CS.RUN.ETCINIT
bcs .99
*--------------------------------------
.2 >SYSCALL GetChar
bcs .99
cmp #C.CR Ctrl.M
bne .3
ldy #4
.3 cmp CTRLCHARS,y
beq .7
dey
bpl .3
ldx #2
jsr CS.RUN.EXEC.X
bra .2
.3 cmp #16 Ctrl.P
bne .4
ldx #4
jsr CS.RUN.EXEC.X
bra .2
.4 cmp #12 Ctrl.L
bne .5
ldx #6
jsr CS.RUN.EXEC.X
bra .2
.5 cmp #4 Ctrl.D
bne .2
ldx #8
.7 tya
asl
tax
jsr CS.RUN.EXEC.X
bra .2
@ -181,6 +169,7 @@ CS.RUN.ETCINIT >LDYAI 256
>PUSHW BufPtr
>PUSHBI S.PS.F.NOHUP+S.PS.F.HOLD
>SYSCALL ExecL
.DO INITDDBG=1
bcs .2
@ -228,10 +217,13 @@ MSG.CTRLR .AZ "INITD:Entering ROOT mode..."
.DO INITDDBG=1
MSG.START .AZ "INITD:Starting..."
MSG.OK .AZ " [OK]"
MSG.KO .AZ " [%h]\r\n"
MSG.KO .CZ " [%h]\r\n"
MSG.ETCINIT .AS "INITD:Executing "
.FIN
ETCINIT .AZ "${ROOT}etc/init"
*--------------------------------------
CTRLCHARS .DA #19,#13,#16,#12,#4
*--------------------------------------
BINSH .AZ "${ROOT}bin/sh"
BINMEM .AZ "${ROOT}bin/mem"
BINPS .AZ "${ROOT}bin/ps"

6
SBIN/LOGIN.S.txt
View File

@ -336,10 +336,8 @@ CS.DOEVENT sec
*--------------------------------------
CS.END
*--------------------------------------
MSG.LOGIN .DA #C.CR,#C.LF
.AZ "login:"
MSG.PASSWORD .DA #C.CR,#C.LF
.AZ "password:"
MSG.LOGIN .CZ "\r\nlogin:"
MSG.PASSWORD .CZ "\r\npassword:"
*--------------------------------------
MSG.BAD .AZ "Bad user or password"
MSG.BS .DA #C.BS,#C.SPACE,#C.BS

2
SBIN/TELNETD.S.txt
View File

@ -231,7 +231,7 @@ MSG.TCPWAIT .AZ "TELNETD:Waiting for TCP/IP initializing..."
MSG.INITOK .AZ "TELNETD:Init Ok, Listening."
MSG.TCPIPERR .AZ "TELNETD:TCP/IP Not initialized properly."
MSG.SKTERR .AZ "TELNETD:Listen Error."
MSG.INCOMING .AZ "TELNETD:Incoming Connection [SKT=%h] From : %d.%d.%d.%d\r\n"
MSG.INCOMING .CZ "TELNETD:Incoming Connection [SKT=%h] From : %d.%d.%d.%d\r\n"
*--------------------------------------
NOD.Template .AZ "/dev/tty%h"
CMD.Template .AZ "${ROOT}sbin/getty -E %s ${ROOT}sbin/login"

5
SYS/KERNEL.S.JMP.txt
View File

@ -485,6 +485,9 @@ K.SYSCALL2.BANK bpl K.SYSCALL.JMP 0, E000, no BNK change
K.SYSCALL.JMP jmp (K.SYSCALL,x)
*--------------------------------------
K.SYSCALL.JMPX1A
>PULLW FORPNT
bra JMPXA
K.SYSCALL.JMPX2A
sec
.HS 90 BCC
@ -493,7 +496,7 @@ K.SYSCALL.JMPX2 clc
>PULLW TXTPTR
bcc K.SYSCALL.JMPX
>PULLA
JMPXA >PULLA
K.SYSCALL.JMPX sta SETREADAUX
sta SETWRITEAUX

7
SYS/KERNEL.S.MD5.txt
View File

@ -57,10 +57,11 @@ K.MD5Update .EQ K.SYSCALL.JMPX2A
* `>SYSCALL MD5Finalize`
* ## RETURN VALUE
*\--------------------------------------
K.MD5Finalize >PULLW FORPNT
>PULLA
K.MD5Finalize .EQ K.SYSCALL.JMPX1A
* >PULLW FORPNT
* >PULLA
jmp K.SYSCALL.JMPX
* jmp K.SYSCALL.JMPX
*--------------------------------------
MAN
SAVE usr/src/sys/kernel.s.md5

12
SYS/KERNEL.S.PWD.txt
View File

@ -10,7 +10,10 @@ NEW
* `>SYSCALL getpwuid`
* ## RETURN VALUE
*\--------------------------------------
K.GetPWUID
K.GetPWUID .EQ K.SYSCALL.JMPX1A
* >PULLW FORPNT
* >PULLA UID
* jmp K.SYSCALL.JMPX
*/--------------------------------------
* # GetGRGID
* ## C
@ -21,9 +24,10 @@ K.GetPWUID
* `>SYSCALL getpwname`
* ## RETURN VALUE
*\--------------------------------------
K.GetGRGID >PULLW FORPNT
>PULLA UID/GID
jmp K.SYSCALL.JMPX
K.GetGRGID .EQ K.SYSCALL.JMPX1A
* >PULLW FORPNT
* >PULLA GID
* jmp K.SYSCALL.JMPX
*/--------------------------------------
* # CloseSession
* ## C