mirror of https://github.com/A2osX/A2osX.git
Kernel 0.94
This commit is contained in:
parent
1969e7e8ba
commit
cd258586b4
|
@ -54,7 +54,7 @@ CS.INIT clc
|
||||||
CS.RUN
|
CS.RUN
|
||||||
* Put your code here
|
* Put your code here
|
||||||
>LDYA L.MSG.HELLO
|
>LDYA L.MSG.HELLO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
.8 lda #0 Exit Code = Succes
|
.8 lda #0 Exit Code = Succes
|
||||||
sec QUIT Process
|
sec QUIT Process
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -54,7 +54,7 @@ CS.INIT clc
|
||||||
CS.RUN
|
CS.RUN
|
||||||
* Put your code here
|
* Put your code here
|
||||||
* >LDYA L.MSG.Test Load EFFECTIVE address
|
* >LDYA L.MSG.Test Load EFFECTIVE address
|
||||||
* >SYSCALL puts Call API to print a string
|
* >SYSCALL PutS Call API to print a string
|
||||||
.8 lda #0 Exit Code = Succes
|
.8 lda #0 Exit Code = Succes
|
||||||
sec QUIT Process
|
sec QUIT Process
|
||||||
rts
|
rts
|
||||||
|
|
Binary file not shown.
|
@ -57,7 +57,7 @@ CS.RUN >LIBCALL hLIBETALK,LIBETALK.GETCFG
|
||||||
|
|
||||||
* jmp CS.RUN.ERR
|
* jmp CS.RUN.ERR
|
||||||
.1 ldy #S.PS.ARGC
|
.1 ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
bcs .2
|
bcs .2
|
||||||
jmp CS.RUN.DUMP
|
jmp CS.RUN.DUMP
|
||||||
|
@ -71,7 +71,7 @@ CS.RUN >LIBCALL hLIBETALK,LIBETALK.GETCFG
|
||||||
>SYSCALL sscanf
|
>SYSCALL sscanf
|
||||||
bcs CS.RUN.ERR
|
bcs CS.RUN.ERR
|
||||||
ldy #S.PS.ARGC
|
ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
beq CS.RUN.QUERY
|
beq CS.RUN.QUERY
|
||||||
cmp #3
|
cmp #3
|
||||||
|
@ -80,7 +80,7 @@ CS.RUN >LIBCALL hLIBETALK,LIBETALK.GETCFG
|
||||||
|
|
||||||
CS.RUN.ERR >PUSHBI 0
|
CS.RUN.ERR >PUSHBI 0
|
||||||
>LDYA L.MSG.Usage
|
>LDYA L.MSG.Usage
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -113,7 +113,7 @@ CS.RUN.QUERY jsr Init.Timeout
|
||||||
bne .4
|
bne .4
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>LDYA L.MSG2
|
>LDYA L.MSG2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.8 lda #0
|
.8 lda #0
|
||||||
.9 sec
|
.9 sec
|
||||||
rts
|
rts
|
||||||
|
@ -141,7 +141,7 @@ CS.RUN.ADD >PUSHEA.G DST.MAC+5
|
||||||
CS.RUN.DUMP >LIBCALL hLIBETALK,LIBETALK.AARP.GETCACHE
|
CS.RUN.DUMP >LIBCALL hLIBETALK,LIBETALK.AARP.GETCACHE
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
>LDYA L.MSG0
|
>LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
ldx #K.AARPCACHE.SIZE
|
ldx #K.AARPCACHE.SIZE
|
||||||
.1 lda (ZPPTR1)
|
.1 lda (ZPPTR1)
|
||||||
|
@ -166,7 +166,7 @@ CS.RUN.DUMP >LIBCALL hLIBETALK,LIBETALK.AARP.GETCACHE
|
||||||
>PUSHBI 12
|
>PUSHBI 12
|
||||||
>LDYA L.MSG1
|
>LDYA L.MSG1
|
||||||
phx
|
phx
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
plx
|
plx
|
||||||
.4 lda ZPPTR1
|
.4 lda ZPPTR1
|
||||||
clc
|
clc
|
||||||
|
|
|
@ -75,7 +75,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
|
||||||
lda (ZPIPCfgPtr) Configured ?
|
lda (ZPIPCfgPtr) Configured ?
|
||||||
bmi CS.RUN.IPOK
|
bmi CS.RUN.IPOK
|
||||||
>LDYA L.MSG.IPKO
|
>LDYA L.MSG.IPKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -104,11 +104,11 @@ CS.RUN.IPOK ldy #S.IPCFG.IP+3
|
||||||
>PUSHW ZPHostPtr
|
>PUSHW ZPHostPtr
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.UNKNOWN
|
>LDYA L.MSG.UNKNOWN
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bra CS.RUN.ESYN
|
bra CS.RUN.ESYN
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.ESYN lda #E.SYN
|
CS.RUN.ESYN lda #E.SYN
|
||||||
secCS.RUN.RTS
|
secCS.RUN.RTS
|
||||||
|
@ -159,7 +159,7 @@ CS.RUN.PORTOK >PUSHW ZPHostPtr
|
||||||
bpl .1
|
bpl .1
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>LDYA L.MSG.HOSTOK
|
>LDYA L.MSG.HOSTOK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
lda #S.SOCKET.T.DGRAM
|
lda #S.SOCKET.T.DGRAM
|
||||||
|
@ -173,7 +173,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Bind
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Bind
|
||||||
bcc .2
|
bcc .2
|
||||||
.9 >LDYA L.MSG.SKTKO
|
.9 >LDYA L.MSG.SKTKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
c rts
|
c rts
|
||||||
|
@ -182,9 +182,9 @@ c rts
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Connect
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Connect
|
||||||
bcs .9
|
bcs .9
|
||||||
>LDYA L.MSG.SKTOK
|
>LDYA L.MSG.SKTOK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
>LDYAI RESP.BUFSIZE
|
>LDYAI RESP.BUFSIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPRespBufPtr
|
>STYA ZPRespBufPtr
|
||||||
txa
|
txa
|
||||||
|
@ -203,7 +203,7 @@ CS.RUN.SKTERR pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.SKTERR
|
>LDYA L.MSG.SKTERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -212,7 +212,7 @@ CS.RUN.IOERR pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.IOERR
|
>LDYA L.MSG.IOERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -275,7 +275,7 @@ CS.RUN.DIRDECODE
|
||||||
>PUSHW ZPPayloadLen
|
>PUSHW ZPPayloadLen
|
||||||
>PUSHW ZPPayloadPtr
|
>PUSHW ZPPayloadPtr
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
>INC.G bResponse
|
>INC.G bResponse
|
||||||
bra .1
|
bra .1
|
||||||
|
@ -291,7 +291,7 @@ CS.RUN.DIRDECODE
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.UNRLE >LDYA ZPPayloadLen
|
CS.RUN.UNRLE >LDYA ZPPayloadLen
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPPayloadPtr
|
>STYA ZPPayloadPtr
|
||||||
>STYA ZPPtr
|
>STYA ZPPtr
|
||||||
|
|
|
@ -63,7 +63,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG
|
||||||
|
|
||||||
jmp CS.RUN.ERR
|
jmp CS.RUN.ERR
|
||||||
.1 ldy #S.PS.ARGC
|
.1 ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
bcs .2
|
bcs .2
|
||||||
jmp CS.RUN.DUMP
|
jmp CS.RUN.DUMP
|
||||||
|
@ -81,7 +81,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG
|
||||||
bcs CS.RUN.ERR
|
bcs CS.RUN.ERR
|
||||||
|
|
||||||
ldy #S.PS.ARGC
|
ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
beq CS.RUN.QUERY
|
beq CS.RUN.QUERY
|
||||||
cmp #3
|
cmp #3
|
||||||
|
@ -90,7 +90,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG
|
||||||
|
|
||||||
CS.RUN.ERR >PUSHW L.MSG.Usage
|
CS.RUN.ERR >PUSHW L.MSG.Usage
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -129,7 +129,7 @@ CS.RUN.QUERY jsr Init.Timeout
|
||||||
bne .3
|
bne .3
|
||||||
|
|
||||||
>PUSHBI 10
|
>PUSHBI 10
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.8 lda #0
|
.8 lda #0
|
||||||
.9 sec
|
.9 sec
|
||||||
rts
|
rts
|
||||||
|
@ -158,7 +158,7 @@ CS.RUN.ADD lda #2
|
||||||
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE
|
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
>LDYA L.MSG0
|
>LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #K.ARPCACHE.SIZE
|
lda #K.ARPCACHE.SIZE
|
||||||
sta EntryCount
|
sta EntryCount
|
||||||
|
@ -190,7 +190,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.ARP.GETCACHE
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
>PUSHBI 13
|
>PUSHBI 13
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.4 lda ZPPTR1
|
.4 lda ZPPTR1
|
||||||
clc
|
clc
|
||||||
|
|
|
@ -337,7 +337,7 @@ DIR.HS jsr SRC.GetNextCharNB
|
||||||
bcs .99
|
bcs .99
|
||||||
jsr SRC.IsDigit16
|
jsr SRC.IsDigit16
|
||||||
bcs .99
|
bcs .99
|
||||||
.1 >STA.G DIR.Byte
|
.1 sta DIR.Byte
|
||||||
jsr SRC.GetNextChar
|
jsr SRC.GetNextChar
|
||||||
bcc .2
|
bcc .2
|
||||||
|
|
||||||
|
@ -350,19 +350,19 @@ DIR.HS jsr SRC.GetNextCharNB
|
||||||
cmp #'.'
|
cmp #'.'
|
||||||
bne .99
|
bne .99
|
||||||
|
|
||||||
.22 >LDA.G DIR.Byte
|
.22 sta DIR.Byte
|
||||||
jsr OUT.EmitByte
|
jsr OUT.EmitByte
|
||||||
bcc .5
|
bcc .5
|
||||||
rts
|
rts
|
||||||
.3 pha
|
.3 pha
|
||||||
>LDA.G DIR.Byte
|
sta DIR.Byte
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
>STA.G DIR.Byte
|
sta DIR.Byte
|
||||||
pla
|
pla
|
||||||
>ORA.G DIR.Byte
|
ora DIR.Byte
|
||||||
.4 jsr OUT.EmitByte
|
.4 jsr OUT.EmitByte
|
||||||
bcs .9
|
bcs .9
|
||||||
jsr SRC.GetNextChar
|
jsr SRC.GetNextChar
|
||||||
|
@ -605,7 +605,7 @@ DIR.TF >LDA.G ASM.PASS If Pass#1, ignore
|
||||||
|
|
||||||
txa
|
txa
|
||||||
>STA.G DST.hFILENAME
|
>STA.G DST.hFILENAME
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI O.WRONLY+O.CREATE
|
>PUSHBI O.WRONLY+O.CREATE
|
||||||
>PUSHB ZPPtr2+1 Type
|
>PUSHB ZPPtr2+1 Type
|
||||||
|
@ -620,7 +620,7 @@ DIR.TF >LDA.G ASM.PASS If Pass#1, ignore
|
||||||
.9 php
|
.9 php
|
||||||
pha
|
pha
|
||||||
lda ZPPtr2
|
lda ZPPtr2
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
pla
|
pla
|
||||||
plp
|
plp
|
||||||
|
|
||||||
|
|
|
@ -67,14 +67,7 @@ EXP.Eval.Next stz SRC.ACC.F
|
||||||
.14 cmp #'*'
|
.14 cmp #'*'
|
||||||
bne .10
|
bne .10
|
||||||
|
|
||||||
ldy #ASM.PC+3
|
jsr SYM.PC2Acc
|
||||||
ldx #3
|
|
||||||
|
|
||||||
.11 lda (pData),y
|
|
||||||
sta SRC.ACC,x
|
|
||||||
dey
|
|
||||||
dex
|
|
||||||
bpl .11
|
|
||||||
|
|
||||||
jsr SRC.GetNextChar
|
jsr SRC.GetNextChar
|
||||||
jmp EXP.EvalOperator
|
jmp EXP.EvalOperator
|
||||||
|
|
|
@ -4,14 +4,14 @@ NEW
|
||||||
FIO.Init.RTS rts
|
FIO.Init.RTS rts
|
||||||
|
|
||||||
FIO.Init >LDYAI 256
|
FIO.Init >LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs FIO.Init.RTS
|
bcs FIO.Init.RTS
|
||||||
>STYA ZPLineBuf
|
>STYA ZPLineBuf
|
||||||
txa
|
txa
|
||||||
>STA.G SRC.hLineBuf
|
>STA.G SRC.hLineBuf
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs FIO.Init.RTS
|
bcs FIO.Init.RTS
|
||||||
>STYA ZPTmpBuf
|
>STYA ZPTmpBuf
|
||||||
txa
|
txa
|
||||||
|
@ -146,15 +146,16 @@ FIO.OpenFile >STYA ZPPtr1
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
pha
|
pha
|
||||||
>LDA.G SRC.Depth
|
>INC.G SRC.Depth
|
||||||
|
|
||||||
clc
|
clc
|
||||||
adc #SRC.hFILES
|
adc #SRC.hFILES-1
|
||||||
tay
|
tay
|
||||||
pla
|
pla
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
>LDA.G SRC.Depth
|
>LDA.G SRC.Depth
|
||||||
clc
|
clc
|
||||||
adc #SRC.hFILETYPES
|
adc #SRC.hFILETYPES-1
|
||||||
tay
|
tay
|
||||||
|
|
||||||
phy
|
phy
|
||||||
|
@ -163,8 +164,6 @@ FIO.OpenFile >STYA ZPPtr1
|
||||||
ply
|
ply
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
>INC.G SRC.Depth
|
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
>STA.G SRC.LINENUM
|
>STA.G SRC.LINENUM
|
||||||
iny
|
iny
|
||||||
|
@ -304,7 +303,7 @@ FIO.FileClose >LDA.G SRC.Depth
|
||||||
adc #SRC.hFILES-1
|
adc #SRC.hFILES-1
|
||||||
tay
|
tay
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -7,14 +7,14 @@ MAC.Init >SYSCALL SListNew
|
||||||
>STA.G MAC.hList
|
>STA.G MAC.hList
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
txa
|
txa
|
||||||
>STA.G MAC.hBuf
|
>STA.G MAC.hBuf
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPMacroArgBuf
|
>STYA ZPMacroArgBuf
|
||||||
|
@ -22,7 +22,7 @@ MAC.Init >SYSCALL SListNew
|
||||||
>STA.G MAC.hArgBuf
|
>STA.G MAC.hArgBuf
|
||||||
|
|
||||||
>LDYAI MA.MAXDEPTH*6
|
>LDYAI MA.MAXDEPTH*6
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPMacroStk
|
>STYA ZPMacroStk
|
||||||
|
@ -435,7 +435,7 @@ MAC.Pop >LDA.G MAC.StkPtr
|
||||||
|
|
||||||
tay
|
tay
|
||||||
lda (ZPMacroStk),y
|
lda (ZPMacroStk),y
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
>LDA.G MAC.CtxStackPtr
|
>LDA.G MAC.CtxStackPtr
|
||||||
clc
|
clc
|
||||||
|
|
|
@ -62,15 +62,15 @@ OUT.PrintLineOn
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
OUT.PrintLineErr
|
OUT.PrintLineErr
|
||||||
>STA.G DIR.Byte Save Error code
|
sta DIR.Byte Save Error code
|
||||||
|
|
||||||
jsr OUT.PrintLine.1
|
jsr OUT.PrintLine.1
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.1 >PUSHW L.MSG.ERROR
|
.1 >PUSHW L.MSG.ERROR
|
||||||
>PUSHB.G DIR.Byte
|
>PUSHB DIR.Byte
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda ZPLinePtr
|
lda ZPLinePtr
|
||||||
sec
|
sec
|
||||||
|
@ -137,7 +137,7 @@ OUT.PrintLine.1 jsr OUT.PrintLineOutBuf
|
||||||
.2 >PUSHW L.MSG.LINENUM
|
.2 >PUSHW L.MSG.LINENUM
|
||||||
>PUSHW.G SRC.LINENUM
|
>PUSHW.G SRC.LINENUM
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDA.G MAC.CtxStackPtr
|
>LDA.G MAC.CtxStackPtr
|
||||||
|
|
||||||
|
@ -151,11 +151,11 @@ OUT.PrintLine.1 jsr OUT.PrintLineOutBuf
|
||||||
bra .3
|
bra .3
|
||||||
|
|
||||||
.4 >LDYA ZPLineBuf
|
.4 >LDYA ZPLineBuf
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
jmp OUT.PrintCR1
|
jmp OUT.PrintCR1
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
OUT.Print >SYSCALL printf
|
OUT.Print >SYSCALL PrintF
|
||||||
bcs OUT.Print.RTS
|
bcs OUT.Print.RTS
|
||||||
jmp OUT.PrintCR
|
jmp OUT.PrintCR
|
||||||
|
|
||||||
|
@ -196,7 +196,7 @@ OUT.PrintLineOutBuf
|
||||||
.2 inc
|
.2 inc
|
||||||
inc
|
inc
|
||||||
>PUSHA Byte Count+2 for PC
|
>PUSHA Byte Count+2 for PC
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
|
@ -221,7 +221,7 @@ OUT.PrintLineEQU
|
||||||
lda SRC.ACC.SIZE
|
lda SRC.ACC.SIZE
|
||||||
|
|
||||||
.2 >PUSHA Byte Count
|
.2 >PUSHA Byte Count
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
OUT.EmitByte phy
|
OUT.EmitByte phy
|
||||||
|
@ -284,7 +284,7 @@ OUT.EmitByte phy
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
OUT.PrintCR >PUSHW L.MSG.CRLF
|
OUT.PrintCR >PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
OUT.PrintCR1 >DEC.G OUT.LineCnt
|
OUT.PrintCR1 >DEC.G OUT.LineCnt
|
||||||
bne .8
|
bne .8
|
||||||
|
|
|
@ -56,11 +56,9 @@ SRC.ParseLine.LABEL
|
||||||
beq SRC.ParseLine.InvLbl illegal OUTSIDE macro
|
beq SRC.ParseLine.InvLbl illegal OUTSIDE macro
|
||||||
|
|
||||||
.2 >LDA.G SYM.bInGlobal Not relative to Global label...
|
.2 >LDA.G SYM.bInGlobal Not relative to Global label...
|
||||||
bmi .3
|
bpl SRC.ParseLine.InvLbl
|
||||||
>DEBUG
|
|
||||||
bra SRC.ParseLine.InvLbl
|
|
||||||
|
|
||||||
.3 jsr SRC.GetNextChar
|
jsr SRC.GetNextChar
|
||||||
bcs SRC.ParseLine.InvLbl
|
bcs SRC.ParseLine.InvLbl
|
||||||
|
|
||||||
jsr SRC.GetDecimal
|
jsr SRC.GetDecimal
|
||||||
|
@ -80,7 +78,7 @@ SRC.ParseLine.LABEL
|
||||||
.8 jsr SYM.NewOrGetGlobal
|
.8 jsr SYM.NewOrGetGlobal
|
||||||
bcs SRC.ParseLine.RTS
|
bcs SRC.ParseLine.RTS
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SRC.ParseLine.DirOp
|
SRC.ParseLine.DirOp
|
||||||
jsr SRC.GetNextCharNB Scan for an Opcode...
|
jsr SRC.GetNextCharNB Scan for an Opcode...
|
||||||
bcs SRC.ParseLine.Ok
|
bcs SRC.ParseLine.Ok
|
||||||
cmp #'.'
|
cmp #'.'
|
||||||
|
@ -101,6 +99,7 @@ SRC.ParseLine.DirOp
|
||||||
beq .1
|
beq .1
|
||||||
cpx #30 .FIN?
|
cpx #30 .FIN?
|
||||||
bne SRC.ParseLine.Ok
|
bne SRC.ParseLine.Ok
|
||||||
|
|
||||||
.1 jmp (J.DIRECTIVES,x)
|
.1 jmp (J.DIRECTIVES,x)
|
||||||
|
|
||||||
.5 pha
|
.5 pha
|
||||||
|
@ -126,9 +125,6 @@ SRC.ParseLine.InvDir
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SRC.ParseLine.DirJmp
|
|
||||||
jmp (J.DIRECTIVES,x)
|
|
||||||
*---------------------------------------
|
|
||||||
SRC.ParseLine.OpCode
|
SRC.ParseLine.OpCode
|
||||||
>LDYA ZPOpsPtr
|
>LDYA ZPOpsPtr
|
||||||
>STYA ZPOpDefPtr
|
>STYA ZPOpDefPtr
|
||||||
|
@ -261,38 +257,26 @@ SRC.ParseLine.AM
|
||||||
.88 jmp SRC.ParseLine.Emit
|
.88 jmp SRC.ParseLine.Emit
|
||||||
*---------------------------------------
|
*---------------------------------------
|
||||||
SRC.ParseLine.AMCheck
|
SRC.ParseLine.AMCheck
|
||||||
* ldx #5
|
|
||||||
|
|
||||||
*.10 lda SRC.ACC.F,x
|
|
||||||
* >PUSHA
|
|
||||||
* dex
|
|
||||||
* bpl .10
|
|
||||||
|
|
||||||
* >PUSHBI 6
|
|
||||||
* >LDYA L.MSG.ACC
|
|
||||||
* >SYSCALL printf
|
|
||||||
* >LDYA L.SRC.AM.StrBuf
|
|
||||||
* jsr DEBUG.PSTR
|
|
||||||
>LDYA ZPAMPtr Check if AM is valid for CPU
|
>LDYA ZPAMPtr Check if AM is valid for CPU
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
ldx #0
|
ldx #0
|
||||||
|
|
||||||
.1 inx
|
.1 inx
|
||||||
* phx
|
|
||||||
* lda #'?'
|
|
||||||
* >SYSCALL putchar
|
|
||||||
* >LDYA ZPPtr1
|
|
||||||
* jsr DEBUG.PSTR
|
|
||||||
* plx
|
|
||||||
lda (ZPPtr1)
|
lda (ZPPtr1)
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
cmp SRC.AM.StrBuf
|
cmp SRC.AM.StrBuf
|
||||||
bne .7
|
bne .7
|
||||||
|
|
||||||
tay
|
tay
|
||||||
|
|
||||||
.2 lda (ZPPtr1),y
|
.2 lda (ZPPtr1),y
|
||||||
cmp SRC.AM.StrBuf,y
|
cmp SRC.AM.StrBuf,y
|
||||||
bne .6
|
bne .6
|
||||||
|
|
||||||
dey
|
dey
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
txa
|
txa
|
||||||
>STA.G SRC.AMID
|
>STA.G SRC.AMID
|
||||||
|
|
||||||
|
@ -858,7 +842,7 @@ SRC.IsDigit8 cmp #'0'
|
||||||
SRC.GetNextCharNB
|
SRC.GetNextCharNB
|
||||||
jsr SRC.GetNextChar
|
jsr SRC.GetNextChar
|
||||||
bcs .9
|
bcs .9
|
||||||
cmp #' '
|
cmp #C.SPACE
|
||||||
beq SRC.GetNextCharNB
|
beq SRC.GetNextCharNB
|
||||||
clc
|
clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -20,7 +20,7 @@ SYM.Init >SYSCALL SListNew
|
||||||
|
|
||||||
>STA.G SYM.hList
|
>STA.G SYM.hList
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPSymbolBuf
|
>STYA ZPSymbolBuf
|
||||||
txa
|
txa
|
||||||
|
@ -351,7 +351,7 @@ SYM.Dump >LDA.G bListAll
|
||||||
bpl SYM.Dump.8
|
bpl SYM.Dump.8
|
||||||
|
|
||||||
.10 >LDYA L.MSG.SYMBOLS
|
.10 >LDYA L.MSG.SYMBOLS
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
stz ZPPtr2
|
stz ZPPtr2
|
||||||
stz ZPPtr2+1
|
stz ZPPtr2+1
|
||||||
|
@ -404,11 +404,11 @@ SYM.Dump >LDA.G bListAll
|
||||||
|
|
||||||
.3 >PUSHA
|
.3 >PUSHA
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW ZPTmpBuf Label
|
>PUSHW ZPTmpBuf Label
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda (ZPSymbolBuf)
|
lda (ZPSymbolBuf)
|
||||||
|
|
||||||
|
@ -454,7 +454,7 @@ SYM.Dump.LP ldy #SYMG
|
||||||
|
|
||||||
.5 >PUSHA
|
.5 >PUSHA
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
pla
|
pla
|
||||||
clc
|
clc
|
||||||
|
|
|
@ -230,13 +230,13 @@ CS.INIT jsr CS.RUN.ARGS
|
||||||
.99 pha
|
.99 pha
|
||||||
>PUSHW L.MSG.HELP
|
>PUSHW L.MSG.HELP
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.ARGS ldy #S.PS.ARGC
|
CS.RUN.ARGS ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
beq .90
|
beq .90
|
||||||
|
|
||||||
.1 inc ZPPtr1
|
.1 inc ZPPtr1
|
||||||
|
@ -291,7 +291,7 @@ CS.RUN.ARGS ldy #S.PS.ARGC
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.hStdIn
|
CS.RUN ldy #S.PS.hStdIn
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL feof
|
>SYSCALL FEOF
|
||||||
bcs .99
|
bcs .99
|
||||||
tay
|
tay
|
||||||
bne .13
|
bne .13
|
||||||
|
@ -381,7 +381,7 @@ CS.RUN ldy #S.PS.hStdIn
|
||||||
.1 jsr SYM.Dump
|
.1 jsr SYM.Dump
|
||||||
|
|
||||||
>LDYA L.MSG.END
|
>LDYA L.MSG.END
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #0 End of assembly, exit with no error
|
lda #0 End of assembly, exit with no error
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -411,7 +411,7 @@ CS.QUIT jsr FIO.FileClose
|
||||||
>LDA.G DST.hREFNUM
|
>LDA.G DST.hREFNUM
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.1 jsr MAC.Quit
|
.1 jsr MAC.Quit
|
||||||
|
|
||||||
|
|
|
@ -55,7 +55,7 @@ CS.RUN >STZ.G P.GetInfo Sync
|
||||||
|
|
||||||
pha
|
pha
|
||||||
>LDYA L.MSG.NOATK
|
>LDYA L.MSG.NOATK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -64,7 +64,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHW.G P.GetInfo+$8 NET
|
>PUSHW.G P.GetInfo+$8 NET
|
||||||
>LDYA L.MSG.NETNODE
|
>LDYA L.MSG.NETNODE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>STZ.G P.LookupName Sync
|
>STZ.G P.LookupName Sync
|
||||||
lda #ATLookupName
|
lda #ATLookupName
|
||||||
|
@ -77,7 +77,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
|
||||||
>STA.G P.LookupName+$D RetCnt
|
>STA.G P.LookupName+$D RetCnt
|
||||||
>LDYAI 1024
|
>LDYAI 1024
|
||||||
>STYA.G P.LookupName+$10 BufLen
|
>STYA.G P.LookupName+$10 BufLen
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA.G P.LookupName+$12 BufPtr
|
>STYA.G P.LookupName+$12 BufPtr
|
||||||
|
@ -96,7 +96,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
>LDYA L.MSG.DUMP0
|
>LDYA L.MSG.DUMP0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.1 lda ZPPTR1
|
.1 lda ZPPTR1
|
||||||
|
@ -115,7 +115,7 @@ CS.RUN.ATKOK >LDA.G P.GetInfo+$E NODE
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
>LDYA L.MSG.DUMP
|
>LDYA L.MSG.DUMP
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
lda ZPPTR2
|
lda ZPPTR2
|
||||||
|
|
|
@ -45,7 +45,7 @@ CS.RUN stz K.MLI.PARAMS Sync
|
||||||
bcc .10
|
bcc .10
|
||||||
pha
|
pha
|
||||||
>LDYA L.MSG.NOATK
|
>LDYA L.MSG.NOATK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
|
|
@ -96,7 +96,7 @@ CS.RUN
|
||||||
bne .2
|
bne .2
|
||||||
.99 >PUSHBI 0
|
.99 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -205,7 +205,7 @@ CS.RUN.1 lda #S.BM.F.BBP1
|
||||||
* bcs CS.RUN.RTS
|
* bcs CS.RUN.RTS
|
||||||
* bra CS.RUN.1.LOOP
|
* bra CS.RUN.1.LOOP
|
||||||
*.8 >LDYA L.MSG.DONE
|
*.8 >LDYA L.MSG.DONE
|
||||||
* >SYSCALL puts
|
* >SYSCALL PutS
|
||||||
* lda #0
|
* lda #0
|
||||||
* sec
|
* sec
|
||||||
CS.RUN.RTS rts
|
CS.RUN.RTS rts
|
||||||
|
@ -238,7 +238,7 @@ CS.RUN.24 lda #S.BM.F.BBP4
|
||||||
.1 sta ZPInputRowBytes
|
.1 sta ZPInputRowBytes
|
||||||
stx ZPInputRowBytes+1
|
stx ZPInputRowBytes+1
|
||||||
>LDYA ZPInputRowBytes
|
>LDYA ZPInputRowBytes
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.RUN.RTS
|
bcs CS.RUN.RTS
|
||||||
>STYA ZPInputBuf
|
>STYA ZPInputBuf
|
||||||
txa
|
txa
|
||||||
|
@ -450,10 +450,10 @@ CS.RUN.OpenInput
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 5
|
>PUSHBI 5
|
||||||
>LDYA L.MSG.HEADER.OK
|
>LDYA L.MSG.HEADER.OK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
.99 >LDYA L.MSG.HEADER.KO
|
.99 >LDYA L.MSG.HEADER.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.IBIN
|
lda #E.IBIN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -502,7 +502,7 @@ CS.RUN.GetOutputBuf
|
||||||
sta ZPPtr1+1
|
sta ZPPtr1+1
|
||||||
bra .1
|
bra .1
|
||||||
.8 >LDYA ZPPtr1
|
.8 >LDYA ZPPtr1
|
||||||
>SYSCALL Getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPOutputBuf
|
>STYA ZPOutputBuf
|
||||||
|
@ -547,11 +547,11 @@ CS.QUIT >LDA.G hOutputBuf
|
||||||
.2 >LDA.G hOutputFile
|
.2 >LDA.G hOutputFile
|
||||||
beq .3
|
beq .3
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
.3 >LDA.G hInputFile
|
.3 >LDA.G hInputFile
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -82,7 +82,7 @@ CS.RUN
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -194,7 +194,7 @@ CS.RUN.PRINT inc LineNum
|
||||||
bra .20
|
bra .20
|
||||||
|
|
||||||
.21 >LDYA ZPBufPtr
|
.21 >LDYA ZPBufPtr
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.3 stz ByteIndex
|
.3 stz ByteIndex
|
||||||
|
@ -226,14 +226,14 @@ CS.RUN.PRINT inc LineNum
|
||||||
.61 >PUSHW L.MSG.CTRLCHAR
|
.61 >PUSHW L.MSG.CTRLCHAR
|
||||||
>PUSHW ZPPtr1
|
>PUSHW ZPPtr1
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
.62 inc ByteIndex
|
.62 inc ByteIndex
|
||||||
bne .4
|
bne .4
|
||||||
|
|
||||||
.7 >PUSHW L.MSG.CRLF
|
.7 >PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -244,7 +244,7 @@ CS.RUN.PRINTNUM clc
|
||||||
>PUSHW L.MSG.LINENUM
|
>PUSHW L.MSG.LINENUM
|
||||||
>PUSHW LineNum
|
>PUSHW LineNum
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.8 rts
|
.8 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT lda hBuf
|
CS.QUIT lda hBuf
|
||||||
|
|
|
@ -75,7 +75,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
|
|
||||||
.9 >PUSHW L.MSG.USAGE
|
.9 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -105,7 +105,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
>LDA.G hSrcBasePath
|
>LDA.G hSrcBasePath
|
||||||
beq .9
|
beq .9
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPFullPath
|
>STYA ZPFullPath
|
||||||
txa
|
txa
|
||||||
|
@ -173,7 +173,7 @@ CS.RUN.DIR >LDA.G bRecurse
|
||||||
>PUSHW L.MSG.DIR
|
>PUSHW L.MSG.DIR
|
||||||
>PUSHW ZPFullPath
|
>PUSHW ZPFullPath
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHW ZPMode
|
>PUSHW ZPMode
|
||||||
|
@ -195,7 +195,7 @@ CS.RUN.FILE jsr FilterMatch
|
||||||
>PUSHW L.MSG.FILE
|
>PUSHW L.MSG.FILE
|
||||||
>PUSHW ZPFullPath
|
>PUSHW ZPFullPath
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHW ZPMode
|
>PUSHW ZPMode
|
||||||
|
@ -243,7 +243,7 @@ CS.RUN.Str2Mode >SYSCALL ArgV
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CheckErr bcs .1
|
CS.RUN.CheckErr bcs .1
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
.1 pha
|
.1 pha
|
||||||
>PUSHW L.MSG.ERR
|
>PUSHW L.MSG.ERR
|
||||||
|
@ -251,7 +251,7 @@ CS.RUN.CheckErr bcs .1
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDA.G bContinue
|
>LDA.G bContinue
|
||||||
eor #$80
|
eor #$80
|
||||||
asl
|
asl
|
||||||
|
|
|
@ -66,7 +66,7 @@ CS.INIT
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -98,7 +98,7 @@ CS.INIT
|
||||||
beq .99 we also have a TYPE
|
beq .99 we also have a TYPE
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPFullPath
|
>STYA ZPFullPath
|
||||||
txa
|
txa
|
||||||
|
@ -159,7 +159,7 @@ CS.RUN.FILE jsr CS.RUN.GetFilePath
|
||||||
>PUSHW L.MSG.FILE
|
>PUSHW L.MSG.FILE
|
||||||
>PUSHW ZPFullPath
|
>PUSHW ZPFullPath
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
ldy #HexFileType
|
ldy #HexFileType
|
||||||
|
@ -182,7 +182,7 @@ CS.RUN.FILE jsr CS.RUN.GetFilePath
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CheckErr bcs .1
|
CS.RUN.CheckErr bcs .1
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
.1 pha
|
.1 pha
|
||||||
>PUSHW L.MSG.ERR
|
>PUSHW L.MSG.ERR
|
||||||
|
@ -190,7 +190,7 @@ CS.RUN.CheckErr bcs .1
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDA.G bContinue
|
>LDA.G bContinue
|
||||||
eor #$80
|
eor #$80
|
||||||
asl
|
asl
|
||||||
|
|
|
@ -78,7 +78,7 @@ CS.RUN
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -251,7 +251,7 @@ CS.RUN.Print phy
|
||||||
>PUSHB (ZPBufPtr1),y
|
>PUSHB (ZPBufPtr1),y
|
||||||
>PUSHB (ZPBufPtr2),y
|
>PUSHB (ZPBufPtr2),y
|
||||||
>PUSHBI 5
|
>PUSHBI 5
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
ply
|
ply
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -500,7 +500,7 @@ CSH.fCall ldx ZPPtr1
|
||||||
sta ZPPtr2 save Type
|
sta ZPPtr2 save Type
|
||||||
stz ZPPtr2+1 Reset VARIADIC byte count
|
stz ZPPtr2+1 Reset VARIADIC byte count
|
||||||
>LDYA L.CSH.FN
|
>LDYA L.CSH.FN
|
||||||
jsr CSH.LookupFn
|
jsr CSH.LookupFN
|
||||||
phx X = function index
|
phx X = function index
|
||||||
bcs .10
|
bcs .10
|
||||||
|
|
||||||
|
@ -1048,7 +1048,7 @@ CSH.GetDefine >PUSHB.G CSH.hDefines
|
||||||
sta ZPFileBufPtrBak+1
|
sta ZPFileBufPtrBak+1
|
||||||
|
|
||||||
txa
|
txa
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemPtr
|
||||||
>STYA ZPFileBufPtr
|
>STYA ZPFileBufPtr
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -1336,7 +1336,7 @@ CSH.GetChar lda (ZPFileBufPtr)
|
||||||
|
|
||||||
phx
|
phx
|
||||||
phy
|
phy
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
ply
|
ply
|
||||||
plx
|
plx
|
||||||
|
|
||||||
|
@ -1411,7 +1411,7 @@ CSH.GetVarSize txa
|
||||||
.2 lda #2
|
.2 lda #2
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DEBUG.VAR >SYSCALL putchar
|
DEBUG.VAR >SYSCALL PutChar
|
||||||
>PUSHW L.MSG.DBGVAR
|
>PUSHW L.MSG.DBGVAR
|
||||||
>PUSHW ZPVarID
|
>PUSHW ZPVarID
|
||||||
>PUSHW ZPVarType
|
>PUSHW ZPVarType
|
||||||
|
@ -1422,7 +1422,7 @@ DEBUG.VAR >SYSCALL putchar
|
||||||
dey
|
dey
|
||||||
bpl .1
|
bpl .1
|
||||||
>PUSHBI 12
|
>PUSHBI 12
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
|
|
@ -233,36 +233,36 @@ EXEC.atan >FPU ATAN
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.getchar >SYSCALL getchar
|
EXEC.getchar >SYSCALL GetChar
|
||||||
>PUSHA
|
>PUSHA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.puts >PULLYA
|
EXEC.puts >PULLYA
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.printf >SYSCALL printf
|
EXEC.printf >SYSCALL PrintF
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.execl >SYSCALL execl
|
EXEC.execl >SYSCALL ExecL
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.putenv >SYSCALL putenv
|
EXEC.putenv >SYSCALL PutEnv
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.setenv >SYSCALL setenv
|
EXEC.setenv >SYSCALL SetEnv
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.getenv >SYSCALL getenv
|
EXEC.getenv >SYSCALL GetEnv
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.unsetenv >SYSCALL unsetenv
|
EXEC.unsetenv >SYSCALL UnsetEnv
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -270,7 +270,7 @@ EXEC.MD5 >SYSCALL MD5
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXEC.malloc >PULLYA
|
EXEC.malloc >PULLYA
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -86,7 +86,7 @@ CS.RUN >PUSHW L.MSG.GREETINGS
|
||||||
>PUSHB #K.VER
|
>PUSHB #K.VER
|
||||||
>PUSHB /K.VER
|
>PUSHB /K.VER
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
|
|
||||||
jsr CS.RUN.ARGS
|
jsr CS.RUN.ARGS
|
||||||
|
@ -123,7 +123,7 @@ CS.RUN >PUSHW L.MSG.GREETINGS
|
||||||
CS.RUN.ARGS inc ArgIndex
|
CS.RUN.ARGS inc ArgIndex
|
||||||
|
|
||||||
lda ArgIndex
|
lda ArgIndex
|
||||||
>SYSCALL ARGV
|
>SYSCALL ArgV
|
||||||
bcs .7
|
bcs .7
|
||||||
|
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
@ -174,7 +174,7 @@ CS.RUN.ARGS inc ArgIndex
|
||||||
|
|
||||||
.90 >PUSHW L.MSG.USAGE
|
.90 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec QUIT Process
|
sec QUIT Process
|
||||||
|
@ -235,7 +235,7 @@ PrintErrMsg lda ZPhMacro
|
||||||
.6 >PUSHBI '-'
|
.6 >PUSHBI '-'
|
||||||
ldy #S.PS.hStdErr
|
ldy #S.PS.hStdErr
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL fputc
|
>SYSCALL FPutC
|
||||||
inc ZPPtr3
|
inc ZPPtr3
|
||||||
bne .5
|
bne .5
|
||||||
inc ZPPtr3+1
|
inc ZPPtr3+1
|
||||||
|
@ -247,7 +247,7 @@ PrintErrMsg lda ZPhMacro
|
||||||
>PUSHW L.MSG.ERR
|
>PUSHW L.MSG.ERR
|
||||||
>PUSHW ZPPtr2 Line counter
|
>PUSHW ZPPtr2 Line counter
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL fprintf
|
>SYSCALL FPrintF
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -258,7 +258,7 @@ PrintDebugMsg >LDYA pStack
|
||||||
>PUSHW ZPPtr2
|
>PUSHW ZPPtr2
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PrintTraceMsg >STYA ZPPtr3
|
PrintTraceMsg >STYA ZPPtr3
|
||||||
|
@ -266,7 +266,7 @@ PrintTraceMsg >STYA ZPPtr3
|
||||||
PrintTraceMsg.3 >PUSHBI '>'
|
PrintTraceMsg.3 >PUSHBI '>'
|
||||||
ldy #S.PS.hStdErr
|
ldy #S.PS.hStdErr
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL fputc
|
>SYSCALL FPutC
|
||||||
|
|
||||||
ldy #$ff
|
ldy #$ff
|
||||||
|
|
||||||
|
@ -281,7 +281,7 @@ PrintTraceMsg.3 >PUSHBI '>'
|
||||||
>PUSHA
|
>PUSHA
|
||||||
ldy #S.PS.hStdErr
|
ldy #S.PS.hStdErr
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL fputc
|
>SYSCALL FPutC
|
||||||
ply
|
ply
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
|
@ -291,7 +291,7 @@ PrintTraceMsg.3 >PUSHBI '>'
|
||||||
|
|
||||||
>PUSHW L.MSG.ECHOCRLF
|
>PUSHW L.MSG.ECHOCRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL fprintf
|
>SYSCALL FPrintF
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -302,7 +302,7 @@ CS.END
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Initialized DATA
|
* Initialized DATA
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MSG.Greetings .AZ "\r\nCSH-Shell %d.%d\r\n\r\n"
|
MSG.GREETINGS .AZ "\r\nCSH-Shell %d.%d\r\n\r\n"
|
||||||
MSG.USAGE .AS "Usage : CSH <option> file\r\n"
|
MSG.USAGE .AS "Usage : CSH <option> file\r\n"
|
||||||
.AS " -D : Debug Mode\r\n"
|
.AS " -D : Debug Mode\r\n"
|
||||||
.AS " -T : Trace On"
|
.AS " -T : Trace On"
|
||||||
|
|
|
@ -110,7 +110,7 @@ CS.RUN lda #C.SPACE
|
||||||
.98 pha
|
.98 pha
|
||||||
>PUSHW L.MSG.USAGE
|
>PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -208,13 +208,13 @@ CS.RUN.OUT ldx FieldNum
|
||||||
sta (ZPBufPtr),y
|
sta (ZPBufPtr),y
|
||||||
|
|
||||||
.8 >LDYA ZPBufPtr
|
.8 >LDYA ZPBufPtr
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PRINTCR >PUSHW L.MSG.CRLF
|
CS.RUN.PRINTCR >PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -253,7 +253,7 @@ CS.RUN.OUT.MN ldy #0
|
||||||
jsr CS.RUN.AddYToBufPtr
|
jsr CS.RUN.AddYToBufPtr
|
||||||
|
|
||||||
.80 >LDYA ZPBufPtr
|
.80 >LDYA ZPBufPtr
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -277,7 +277,7 @@ CS.RUN.AddYToBufPtr
|
||||||
CS.QUIT lda hToClose
|
CS.QUIT lda hToClose
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
>SYSCALL fclose Close the pipe
|
>SYSCALL FClose Close the pipe
|
||||||
|
|
||||||
.1 lda hBuf
|
.1 lda hBuf
|
||||||
beq .8
|
beq .8
|
||||||
|
|
|
@ -61,13 +61,13 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG is TCPIP loaded ?
|
||||||
bmi CS.RUN.IPOK
|
bmi CS.RUN.IPOK
|
||||||
|
|
||||||
>LDYA L.MSG.IPKO
|
>LDYA L.MSG.IPKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
CS.RUN.IPOK ldy #S.PS.ARGC
|
CS.RUN.IPOK ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
jmp CS.RUN.DUMP
|
jmp CS.RUN.DUMP
|
||||||
|
@ -77,7 +77,7 @@ CS.RUN.IPOK ldy #S.PS.ARGC
|
||||||
|
|
||||||
>PUSHW L.MSG.USAGE
|
>PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -115,7 +115,7 @@ CS.RUN.ADD lda #2
|
||||||
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache
|
CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
>LDYA L.MSG0
|
>LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #K.DNSCACHE.SIZE
|
lda #K.DNSCACHE.SIZE
|
||||||
sta EntryCount
|
sta EntryCount
|
||||||
|
@ -160,7 +160,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
>PUSHBI 14
|
>PUSHBI 14
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.6 lda ZPPTR1
|
.6 lda ZPPTR1
|
||||||
clc
|
clc
|
||||||
|
|
|
@ -17,7 +17,7 @@ BUF.InsertA sta TmpByte
|
||||||
.2 lda TmpByte
|
.2 lda TmpByte
|
||||||
sta (BufPtr)
|
sta (BufPtr)
|
||||||
|
|
||||||
jmp SCRN.Unsaved
|
jmp SCRN.UnSaved
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -51,7 +51,7 @@ BUF.InsertTAB >LDA.G FileX
|
||||||
dey
|
dey
|
||||||
bpl .2
|
bpl .2
|
||||||
|
|
||||||
jmp SCRN.Unsaved
|
jmp SCRN.UnSaved
|
||||||
|
|
||||||
.8 stz TmpByte
|
.8 stz TmpByte
|
||||||
clc
|
clc
|
||||||
|
@ -99,18 +99,18 @@ BUF.InsertClipboard
|
||||||
|
|
||||||
jsr BUF.ComputeCOffset
|
jsr BUF.ComputeCOffset
|
||||||
|
|
||||||
>LDYA.G ClipboardLen
|
>LDYA.G ClipBoardLen
|
||||||
jsr BUF.BufPtrSetup
|
jsr BUF.BufPtrSetup
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jsr BUF.MoveForwardTail
|
jsr BUF.MoveForwardTail
|
||||||
|
|
||||||
>LDA.G ClipboardLen
|
>LDA.G ClipBoardLen
|
||||||
eor #$ff
|
eor #$ff
|
||||||
tax
|
tax
|
||||||
|
|
||||||
iny
|
iny
|
||||||
lda (pData),y ClipboardLen+1
|
lda (pData),y ClipBoardLen+1
|
||||||
eor #$ff
|
eor #$ff
|
||||||
pha
|
pha
|
||||||
|
|
||||||
|
@ -135,7 +135,7 @@ BUF.InsertClipboard
|
||||||
|
|
||||||
.3 jsr BUF.ResetSel
|
.3 jsr BUF.ResetSel
|
||||||
jsr SCRN.UpdateStatusBar
|
jsr SCRN.UpdateStatusBar
|
||||||
jmp SCRN.Unsaved
|
jmp SCRN.UnSaved
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -237,7 +237,7 @@ BUF.SelToClipboard
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
BUF.CopyClipboard
|
BUF.CopyClipboard
|
||||||
>LDA.G ClipboardLen
|
>LDA.G ClipBoardLen
|
||||||
eor #$ff
|
eor #$ff
|
||||||
tax
|
tax
|
||||||
iny
|
iny
|
||||||
|
@ -566,7 +566,7 @@ BUF.BufPtr.Realloc
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
|
|
||||||
>SYSCALL realloc
|
>SYSCALL Realloc
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA.G BufBase
|
>STYA.G BufBase
|
||||||
|
|
|
@ -64,7 +64,7 @@ Ctrl.A >STZ.G bUpdateStatus
|
||||||
>PUSHW L.MSG.HELPLINE
|
>PUSHW L.MSG.HELPLINE
|
||||||
>PUSHW ZPPTR1
|
>PUSHW ZPPTR1
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
inc TmpByte
|
inc TmpByte
|
||||||
|
@ -551,7 +551,7 @@ Ctrl.FS jsr BUF.GetLine
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Ctrl.V jsr BUF.InsertClipboard
|
Ctrl.V jsr BUF.InsertClipboard
|
||||||
bcs .9
|
bcs .9
|
||||||
jsr SCRN.Unsaved
|
jsr SCRN.UnSaved
|
||||||
jmp SCRN.UpdateMainAndStatus
|
jmp SCRN.UpdateMainAndStatus
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -591,7 +591,7 @@ Ctrl.D jsr BUF.DelSel
|
||||||
bcs Ctrl.D.8
|
bcs Ctrl.D.8
|
||||||
jsr BUF.ResetSel
|
jsr BUF.ResetSel
|
||||||
jsr SCRN.CursorAdjust
|
jsr SCRN.CursorAdjust
|
||||||
jsr SCRN.Unsaved will update TopBar
|
jsr SCRN.UnSaved will update TopBar
|
||||||
jmp SCRN.UpdateMainAndStatus
|
jmp SCRN.UpdateMainAndStatus
|
||||||
|
|
||||||
Ctrl.D.8 clc
|
Ctrl.D.8 clc
|
||||||
|
@ -630,7 +630,7 @@ Ctrl.Z jsr BUF.ComputeCOffset
|
||||||
dec
|
dec
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jsr SCRN.ResetScrollRgn
|
jsr SCRN.ResetScrollRgn
|
||||||
|
@ -645,7 +645,7 @@ Ctrl.Z jsr BUF.ComputeCOffset
|
||||||
.8 jsr SCRN.UpdateCurrentLine
|
.8 jsr SCRN.UpdateCurrentLine
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.80 jsr SCRN.Unsaved
|
.80 jsr SCRN.UnSaved
|
||||||
jsr SCRN.GotoCurXCurY
|
jsr SCRN.GotoCurXCurY
|
||||||
jmp SCRN.UpdateStatusBar
|
jmp SCRN.UpdateStatusBar
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -6,7 +6,7 @@ DLG.Open >STYA ZPPTR2
|
||||||
lda (ZPPTR2)
|
lda (ZPPTR2)
|
||||||
tay
|
tay
|
||||||
lda #0
|
lda #0
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
|
@ -189,7 +189,7 @@ DLG.Close ldy #S.DLG.Y
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDA.G hDLG
|
>LDA.G hDLG
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
>STZ.G hDLG
|
>STZ.G hDLG
|
||||||
clc
|
clc
|
||||||
|
@ -250,7 +250,7 @@ DLG.CTRL.Draw.TB
|
||||||
tay
|
tay
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
|
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>STYA ZPPTR2
|
>STYA ZPPTR2
|
||||||
|
|
||||||
lda #C.SPACE
|
lda #C.SPACE
|
||||||
|
@ -718,7 +718,7 @@ DLG.CTRL.CharIn.TB
|
||||||
lda (ZPPTR1),y hMem
|
lda (ZPPTR1),y hMem
|
||||||
tay
|
tay
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>STYA ZPPTR2
|
>STYA ZPPTR2
|
||||||
|
|
||||||
ply
|
ply
|
||||||
|
@ -752,7 +752,7 @@ DLG.CTRL.CharIn.TB
|
||||||
lda (ZPPTR1),y hMem
|
lda (ZPPTR1),y hMem
|
||||||
tay
|
tay
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>STYA ZPPTR2
|
>STYA ZPPTR2
|
||||||
|
|
||||||
ply
|
ply
|
||||||
|
|
|
@ -76,7 +76,7 @@ FILE.Load jsr BUF.ResetSel
|
||||||
.8 php
|
.8 php
|
||||||
pha
|
pha
|
||||||
lda TmpByte
|
lda TmpByte
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
pla
|
pla
|
||||||
plp
|
plp
|
||||||
|
|
||||||
|
@ -386,12 +386,12 @@ FILE.Close php
|
||||||
pha
|
pha
|
||||||
lda TmpByte
|
lda TmpByte
|
||||||
beq .1
|
beq .1
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.1 lda TmpIndex
|
.1 lda TmpIndex
|
||||||
beq .2
|
beq .2
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.2 pla
|
.2 pla
|
||||||
plp
|
plp
|
||||||
|
|
|
@ -7,7 +7,7 @@ SCRN.Init >PUSHW L.SEQ.INIT
|
||||||
dec
|
dec
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs SCRN.Init.9
|
bcs SCRN.Init.9
|
||||||
|
|
||||||
jsr SCRN.Home
|
jsr SCRN.Home
|
||||||
|
@ -43,7 +43,7 @@ SCRN.ResetScrollRgn
|
||||||
dec
|
dec
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.UnSaved >LDA.G bUnSaved
|
SCRN.UnSaved >LDA.G bUnSaved
|
||||||
|
@ -263,7 +263,7 @@ SCRN.UpdateMain.1
|
||||||
|
|
||||||
>PUSHW L.SEQ.CEOL
|
>PUSHW L.SEQ.CEOL
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs SCRN.UpdateMain.9
|
bcs SCRN.UpdateMain.9
|
||||||
|
|
||||||
inc TmpByte
|
inc TmpByte
|
||||||
|
@ -500,12 +500,12 @@ SCRN.GotoXY >PUSHW L.MSG.GOTOXY
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.scrollUp >PUSHW L.SEQ.SCROLLUP
|
SCRN.scrollUp >PUSHW L.SEQ.SCROLLUP
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDA.G ScreenY+1
|
>LDA.G ScreenY+1
|
||||||
|
@ -531,7 +531,7 @@ SCRN.scrollUp >PUSHW L.SEQ.SCROLLUP
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
SCRN.scrollDn >PUSHW L.SEQ.SCROLLDN
|
SCRN.scrollDn >PUSHW L.SEQ.SCROLLDN
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDA.G ScreenY+1
|
>LDA.G ScreenY+1
|
||||||
|
@ -622,7 +622,7 @@ SCRN.LineBufOut lda #0
|
||||||
|
|
||||||
>PUSHW.G LineBufBase
|
>PUSHW.G LineBufBase
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
|
|
@ -145,7 +145,7 @@ CS.INIT.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >PUSHW L.MSG.DETECT
|
CS.RUN >PUSHW L.MSG.DETECT
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf Send Query for term W & H
|
>SYSCALL PrintF Send Query for term W & H
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
|
|
||||||
.1 >SYSCALL GetChar
|
.1 >SYSCALL GetChar
|
||||||
|
@ -156,7 +156,7 @@ CS.RUN >PUSHW L.MSG.DETECT
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
>LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0
|
>LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0
|
||||||
>SYSCALL Getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
>STYA.G LineBufBase
|
>STYA.G LineBufBase
|
||||||
txa
|
txa
|
||||||
|
@ -185,7 +185,7 @@ CS.RUN >PUSHW L.MSG.DETECT
|
||||||
bcs CS.RUN.RTS
|
bcs CS.RUN.RTS
|
||||||
|
|
||||||
>LDYAI 65
|
>LDYAI 65
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.RUN.RTS
|
bcs CS.RUN.RTS
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
txa
|
txa
|
||||||
|
@ -195,7 +195,7 @@ CS.RUN >PUSHW L.MSG.DETECT
|
||||||
sta (ZPPTR1)
|
sta (ZPPTR1)
|
||||||
|
|
||||||
>LDYAI 65
|
>LDYAI 65
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.RUN.RTS
|
bcs CS.RUN.RTS
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
txa
|
txa
|
||||||
|
@ -218,7 +218,7 @@ CS.RUN.LOOP jsr GetCh
|
||||||
.9 pha
|
.9 pha
|
||||||
>PUSHW L.SEQ.RESET
|
>PUSHW L.SEQ.RESET
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
CS.RUN.RTS rts
|
CS.RUN.RTS rts
|
||||||
|
@ -264,7 +264,7 @@ CS.QUIT ldy #hLineBuf
|
||||||
CS.QUIT.CLCRTS clc
|
CS.QUIT.CLCRTS clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
GetCh >SYSCALL getchar
|
GetCh >SYSCALL GetChar
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
cmp #C.CR
|
cmp #C.CR
|
||||||
|
@ -272,7 +272,7 @@ GetCh >SYSCALL getchar
|
||||||
|
|
||||||
ldy #S.PS.hStdIn Check for any extra LF
|
ldy #S.PS.hStdIn Check for any extra LF
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL feof
|
>SYSCALL FEOF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
tay
|
tay
|
||||||
|
|
|
@ -101,7 +101,7 @@ CS.RUN >LIBCALL hLIBETALK,LIBETALK.GETCFG
|
||||||
lda ETKCFG+S.NETCFG.DevID
|
lda ETKCFG+S.NETCFG.DevID
|
||||||
bne CS.RUN.SETUP
|
bne CS.RUN.SETUP
|
||||||
>LDYA L.MSG.NODEV
|
>LDYA L.MSG.NODEV
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -148,7 +148,7 @@ CS.RUN.DUMPNIC ldy #DCB.NIC+S.DCB.NIC.MAC+5
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 11
|
>PUSHBI 11
|
||||||
>LDYA L.MSG1.DEV
|
>LDYA L.MSG1.DEV
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDA.G DCB.NIC+S.DCB.NIC.FLAGS
|
>LDA.G DCB.NIC+S.DCB.NIC.FLAGS
|
||||||
and #S.DCB.NIC.FLAGS.ARPOFFLOAD
|
and #S.DCB.NIC.FLAGS.ARPOFFLOAD
|
||||||
beq .2
|
beq .2
|
||||||
|
@ -156,7 +156,7 @@ CS.RUN.DUMPNIC ldy #DCB.NIC+S.DCB.NIC.MAC+5
|
||||||
.2 >PUSHA
|
.2 >PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG1.DEV.ARP
|
>LDYA L.MSG1.DEV.ARP
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDA.G DCB.NIC+S.DCB.NIC.FLAGS
|
>LDA.G DCB.NIC+S.DCB.NIC.FLAGS
|
||||||
and #S.DCB.NIC.FLAGS.IPOFFLOAD
|
and #S.DCB.NIC.FLAGS.IPOFFLOAD
|
||||||
|
|
||||||
|
@ -167,19 +167,19 @@ CS.RUN.DUMPNIC ldy #DCB.NIC+S.DCB.NIC.MAC+5
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG1.DEV.IP
|
>LDYA L.MSG1.DEV.IP
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDA.G DCB.NIC+S.DCB.NIC.LINK
|
>LDA.G DCB.NIC+S.DCB.NIC.LINK
|
||||||
and #S.DCB.NIC.LINK.OK
|
and #S.DCB.NIC.LINK.OK
|
||||||
bne CS.RUN.LINK
|
bne CS.RUN.LINK
|
||||||
>LDYA L.MSG1.LINK.KO
|
>LDYA L.MSG1.LINK.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
bra CS.RUN.DUMPNET
|
bra CS.RUN.DUMPNET
|
||||||
CS.RUN.LINK >LDYA L.MSG1.LINK.OK
|
CS.RUN.LINK >LDYA L.MSG1.LINK.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG1.LINKSPEED
|
>LDYA L.MSG1.LINKSPEED
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDA.G DCB.NIC+S.DCB.NIC.SPEED
|
>LDA.G DCB.NIC+S.DCB.NIC.SPEED
|
||||||
and #$0F
|
and #$0F
|
||||||
tax
|
tax
|
||||||
|
@ -195,41 +195,41 @@ CS.RUN.LINK >LDYA L.MSG1.LINK.OK
|
||||||
>LDYA L.MSG1.DPLX.HD
|
>LDYA L.MSG1.DPLX.HD
|
||||||
bra .6
|
bra .6
|
||||||
.5 >LDYA L.MSG1.DPLX.FD
|
.5 >LDYA L.MSG1.DPLX.FD
|
||||||
.6 >SYSCALL puts
|
.6 >SYSCALL PutS
|
||||||
|
|
||||||
CS.RUN.DUMPNET >PUSHBI 0
|
CS.RUN.DUMPNET >PUSHBI 0
|
||||||
>LDYA L.MSG2
|
>LDYA L.MSG2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda ETKCFG+S.ETKCFG.NodID
|
lda ETKCFG+S.ETKCFG.NodID
|
||||||
beq .11
|
beq .11
|
||||||
>LDYA L.MSG2.C
|
>LDYA L.MSG2.C
|
||||||
bra .10
|
bra .10
|
||||||
.11 >LDYA L.MSG2.U
|
.11 >LDYA L.MSG2.U
|
||||||
.10 >SYSCALL puts
|
.10 >SYSCALL PutS
|
||||||
|
|
||||||
>PUSHB ETKCFG+S.ETKCFG.NodID
|
>PUSHB ETKCFG+S.ETKCFG.NodID
|
||||||
>PUSHW ETKCFG+S.ETKCFG.NetID
|
>PUSHW ETKCFG+S.ETKCFG.NetID
|
||||||
|
|
||||||
>PUSHBI 3
|
>PUSHBI 3
|
||||||
>LDYA L.MSG2.ADDR
|
>LDYA L.MSG2.ADDR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>PUSHB ETKCFG+S.ETKCFG.Router
|
>PUSHB ETKCFG+S.ETKCFG.Router
|
||||||
>PUSHW ETKCFG+S.ETKCFG.NetID
|
>PUSHW ETKCFG+S.ETKCFG.NetID
|
||||||
>PUSHBI 3
|
>PUSHBI 3
|
||||||
>LDYA L.MSG2.ROUTER
|
>LDYA L.MSG2.ROUTER
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>PUSHW L.ETKCFG.OBJECT
|
>PUSHW L.ETKCFG.OBJECT
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG2.OBJECT
|
>LDYA L.MSG2.OBJECT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #0 tell TSKMGR that all done ok, but
|
lda #0 tell TSKMGR that all done ok, but
|
||||||
sec we do not want to stay in memory
|
sec we do not want to stay in memory
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PROBE >PUSHBI 0
|
CS.RUN.PROBE >PUSHBI 0
|
||||||
>LDYA L.MSG.PROBE
|
>LDYA L.MSG.PROBE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
ldx #5
|
ldx #5
|
||||||
|
|
||||||
|
@ -285,7 +285,7 @@ CS.RUN.PROBE >PUSHBI 0
|
||||||
lda ETKCFG+S.NETCFG.DevID
|
lda ETKCFG+S.NETCFG.DevID
|
||||||
>SYSCALL IOCTL
|
>SYSCALL IOCTL
|
||||||
>LDYA L.MSG.PROBE.OK
|
>LDYA L.MSG.PROBE.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -313,13 +313,13 @@ CFG.EtcFiles >LDYAI 256
|
||||||
>LIBCALL hLIBETALK,LIBETALK.SETCFG
|
>LIBCALL hLIBETALK,LIBETALK.SETCFG
|
||||||
|
|
||||||
lda CFG.hBuf1
|
lda CFG.hBuf1
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read.PrintF >PUSHYA
|
CFG.Read.PrintF >PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.CFG
|
>LDYA L.MSG.CFG
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read.HOSTNAME
|
CFG.Read.HOSTNAME
|
||||||
|
@ -352,11 +352,11 @@ CFG.Read.Result bcc .1
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.CFG.KO
|
>LDYA L.MSG.CFG.KO
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
.1 >LDYA L.MSG.CFG.OK
|
.1 >LDYA L.MSG.CFG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read.Open stz CFG.hCfgFile
|
CFG.Read.Open stz CFG.hCfgFile
|
||||||
|
@ -376,7 +376,7 @@ CFG.Read.Close php
|
||||||
|
|
||||||
CFG.Read.Close2 lda CFG.hCfgFile
|
CFG.Read.Close2 lda CFG.hCfgFile
|
||||||
beq .8
|
beq .8
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
.8 pla
|
.8 pla
|
||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -66,7 +66,7 @@ CS.INIT
|
||||||
dex
|
dex
|
||||||
bne .2
|
bne .2
|
||||||
.99 >LDYA L.MSG.USAGE
|
.99 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -87,7 +87,7 @@ CS.INIT
|
||||||
.7 >LDA.G hOutputFile
|
.7 >LDA.G hOutputFile
|
||||||
beq .99
|
beq .99
|
||||||
>LDYAI 8192 max 256x256 pixels
|
>LDYAI 8192 max 256x256 pixels
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
>STYA ZPCharBufPtr
|
>STYA ZPCharBufPtr
|
||||||
txa
|
txa
|
||||||
|
@ -108,7 +108,7 @@ CS.INIT.OPENINPUT
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>STYA ZPInputBufPtr
|
>STYA ZPInputBufPtr
|
||||||
>LDYA L.MSG.FILE.OK
|
>LDYA L.MSG.FILE.OK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
ldy #S.FNT.dfVersion
|
ldy #S.FNT.dfVersion
|
||||||
lda (ZPInputBufPtr),y
|
lda (ZPInputBufPtr),y
|
||||||
bne .99
|
bne .99
|
||||||
|
@ -139,11 +139,11 @@ CS.INIT.OPENINPUT
|
||||||
pla
|
pla
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.HEADER.OK
|
>LDYA L.MSG.HEADER.OK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
.99 >LDYA L.MSG.HEADER.KO
|
.99 >LDYA L.MSG.HEADER.KO
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.IBIN
|
lda #E.IBIN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -157,7 +157,7 @@ CS.INIT.CREATEOUTPUT
|
||||||
bcs .9
|
bcs .9
|
||||||
>STA.G hOutputFile
|
>STA.G hOutputFile
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPOutPutBufPtr
|
>STYA ZPOutPutBufPtr
|
||||||
txa
|
txa
|
||||||
|
@ -185,7 +185,7 @@ CS.RUN ldy #S.FNT.dfBreakChar
|
||||||
>STA.G CharIndex
|
>STA.G CharIndex
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.RANGE
|
>LDYA L.MSG.RANGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDA.G FON.Header+S.FON.Last
|
>LDA.G FON.Header+S.FON.Last
|
||||||
sec
|
sec
|
||||||
>SBC.G FON.Header+S.FON.First
|
>SBC.G FON.Header+S.FON.First
|
||||||
|
@ -200,7 +200,7 @@ CS.RUN ldy #S.FNT.dfBreakChar
|
||||||
iny
|
iny
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
ply
|
ply
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPOutPutTblPtr
|
>STYA ZPOutPutTblPtr
|
||||||
txa
|
txa
|
||||||
|
@ -281,7 +281,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
jsr CS.RUN.WriteBMAndTbl
|
jsr CS.RUN.WriteBMAndTbl
|
||||||
bcs .9
|
bcs .9
|
||||||
>LDYA L.MSG.DONE
|
>LDYA L.MSG.DONE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -350,7 +350,7 @@ CS.RUN.DumpChar >LDA.G CharOutByteW
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.DUMP
|
>LDYA L.MSG.DUMP
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda ZPCharBufPtr
|
lda ZPCharBufPtr
|
||||||
sta ZPPTR1
|
sta ZPPTR1
|
||||||
lda ZPCharBufPtr+1
|
lda ZPCharBufPtr+1
|
||||||
|
@ -666,7 +666,7 @@ CS.QUIT >LDA.G hOutPutBuf
|
||||||
|
|
||||||
.1 >LDA.G hOutputFile
|
.1 >LDA.G hOutputFile
|
||||||
beq .2
|
beq .2
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
.2 >LDA.G hInputBuf
|
.2 >LDA.G hInputBuf
|
||||||
beq .3
|
beq .3
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
|
|
@ -77,7 +77,7 @@ CS.INIT >LDYA L.LIBBLKDEV
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
beq .99
|
beq .99
|
||||||
|
|
||||||
.1 inc Index
|
.1 inc Index
|
||||||
|
@ -121,7 +121,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -162,7 +162,7 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
|
||||||
>PUSHEA.G VolName
|
>PUSHEA.G VolName
|
||||||
|
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
bit bLL
|
bit bLL
|
||||||
|
@ -181,7 +181,7 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -192,7 +192,7 @@ CS.RUN.Format jsr CS.RUN.GetDevStatus
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -220,7 +220,7 @@ CS.RUN.GetDevStatus
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.9 >LDYA L.MSG.NOSIZE
|
.9 >LDYA L.MSG.NOSIZE
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #MLI.E.IO
|
lda #MLI.E.IO
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -231,7 +231,7 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
|
||||||
|
|
||||||
>PUSHW L.MSG.LL
|
>PUSHW L.MSG.LL
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHEA.G IOCTL
|
>PUSHEA.G IOCTL
|
||||||
|
@ -244,7 +244,7 @@ CS.RUN.LL >LDA.G DIB+S.DIB.T
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.LL.DISKII
|
CS.RUN.LL.DISKII
|
||||||
>LDYAI 4096
|
>LDYAI 4096
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
stx hMem
|
stx hMem
|
||||||
|
@ -254,7 +254,7 @@ CS.RUN.LL.DISKII
|
||||||
.1 >PUSHW L.MSG.LLDISK2
|
.1 >PUSHW L.MSG.LLDISK2
|
||||||
>PUSHB Index
|
>PUSHB Index
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
|
||||||
|
@ -267,7 +267,7 @@ CS.RUN.LL.DISKII
|
||||||
|
|
||||||
>PUSHW L.MSG.CRLF
|
>PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.InitCat lda CatSize
|
CS.RUN.InitCat lda CatSize
|
||||||
|
@ -333,7 +333,7 @@ CS.RUN.BuildCat jsr .7
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.WriteCat >PUSHW L.MSG.WRITECAT
|
CS.RUN.WriteCat >PUSHW L.MSG.WRITECAT
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.1 >PUSHEA.G IOCTL
|
.1 >PUSHEA.G IOCTL
|
||||||
>PUSHBI IOCTL.WRITEBLOCK
|
>PUSHBI IOCTL.WRITEBLOCK
|
||||||
|
|
|
@ -100,7 +100,7 @@ CS.RUN
|
||||||
.98 pha
|
.98 pha
|
||||||
>PUSHW L.MSG.USAGE
|
>PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -192,10 +192,10 @@ CS.RUN.PRINT >LDYA ZPBufPtr
|
||||||
>PUSHW L.MSG.NUMLINE
|
>PUSHW L.MSG.NUMLINE
|
||||||
>PUSHW LineNum
|
>PUSHW LineNum
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
.7 >LDYA ZPBufPtr
|
.7 >LDYA ZPBufPtr
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
|
|
@ -80,7 +80,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG is TCPIP loaded ?
|
||||||
lda (ZPIPCfgPtr) Configured ?
|
lda (ZPIPCfgPtr) Configured ?
|
||||||
bmi CS.RUN.IPOK
|
bmi CS.RUN.IPOK
|
||||||
>LDYA L.MSG.IPKO
|
>LDYA L.MSG.IPKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -112,12 +112,12 @@ CS.RUN.IPOK ldy #S.IPCFG.IP+3
|
||||||
>PUSHW L.MSG.UNKNOWN
|
>PUSHW L.MSG.UNKNOWN
|
||||||
>PUSHW ZPHostPtr
|
>PUSHW ZPHostPtr
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bra CS.RUN.ESYN
|
bra CS.RUN.ESYN
|
||||||
|
|
||||||
.9 >PUSHW L.MSG.USAGE
|
.9 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.ESYN lda #E.SYN
|
CS.RUN.ESYN lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -202,7 +202,7 @@ CS.RUN.PORTOK >PUSHW L.MSG.CONNECT
|
||||||
>PUSHW ZPHostPtr
|
>PUSHW ZPHostPtr
|
||||||
|
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
lda #S.SOCKET.T.STREAM
|
lda #S.SOCKET.T.STREAM
|
||||||
|
@ -218,7 +218,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
|
|
||||||
.9 pha
|
.9 pha
|
||||||
>LDYA L.MSG.SKTKO
|
>LDYA L.MSG.SKTKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -241,10 +241,10 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
bra .9
|
bra .9
|
||||||
|
|
||||||
.3 >LDYA L.MSG.CONNECTED
|
.3 >LDYA L.MSG.CONNECTED
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
>LDYAI RESP.BUFSIZE
|
>LDYAI RESP.BUFSIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPRespBufPtr
|
>STYA ZPRespBufPtr
|
||||||
|
@ -258,7 +258,7 @@ CS.RUN.GET jsr CS.RUN.ENCODE
|
||||||
* >PUSHW ZPEncodedBufLen
|
* >PUSHW ZPEncodedBufLen
|
||||||
* >PUSHW ZPEncodedBufPtr
|
* >PUSHW ZPEncodedBufPtr
|
||||||
* ldy #S.PS.hStdOut
|
* ldy #S.PS.hStdOut
|
||||||
* lda (pPs),y
|
* lda (pPS),y
|
||||||
* >SYSCALL fwrite
|
* >SYSCALL fwrite
|
||||||
|
|
||||||
jsr CS.RUN.REQUEST
|
jsr CS.RUN.REQUEST
|
||||||
|
@ -276,7 +276,7 @@ CS.RUN.SKTERR pha
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -287,7 +287,7 @@ CS.RUN.IOERR pha
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -428,7 +428,7 @@ CS.RUN.RESPONSE jsr Init.Timeout
|
||||||
.2 >PUSHYA len
|
.2 >PUSHYA len
|
||||||
>PUSHW ZPRespBufPtr
|
>PUSHW ZPRespBufPtr
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
@ -463,13 +463,13 @@ CS.QUIT lda hSocket
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Shutdown
|
||||||
.1 >LDA.G hReqBuf
|
.1 >LDA.G hReqBuf
|
||||||
beq .2
|
beq .2
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.2 >LDA.G hEncodedBuf
|
.2 >LDA.G hEncodedBuf
|
||||||
beq .3
|
beq .3
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.3 >LDA.G hRespBuf
|
.3 >LDA.G hRespBuf
|
||||||
beq .4
|
beq .4
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.4 lda hLIBTCPIP
|
.4 lda hLIBTCPIP
|
||||||
beq .8
|
beq .8
|
||||||
>SYSCALL UnloadLib
|
>SYSCALL UnloadLib
|
||||||
|
|
|
@ -27,7 +27,7 @@ DHCP.INIT lda IPCFG+S.NETCFG.STATUS
|
||||||
|
|
||||||
.99 >LDYA L.MSG.DHCP.NA
|
.99 >LDYA L.MSG.DHCP.NA
|
||||||
|
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -51,7 +51,7 @@ DHCP.RUN >PUSHBI 0 no protocol
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.Connect
|
>LIBCALL hLIBTCPIP,LIBTCPIP.Connect
|
||||||
bcs .9
|
bcs .9
|
||||||
>LDYA L.MSG.DHCP.CFG1
|
>LDYA L.MSG.DHCP.CFG1
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
jsr Init.Timeout
|
jsr Init.Timeout
|
||||||
DHCP.RUN.SDISC >PUSHW L.SA.DEST
|
DHCP.RUN.SDISC >PUSHW L.SA.DEST
|
||||||
|
@ -87,7 +87,7 @@ DHCP.RUN.SREQ >PUSHW L.MSG.DHCP.CFG2
|
||||||
cpx #4
|
cpx #4
|
||||||
bne .1
|
bne .1
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.SA.DEST
|
>PUSHW L.SA.DEST
|
||||||
>PUSHWI DHCP.REQ.LEN
|
>PUSHWI DHCP.REQ.LEN
|
||||||
|
@ -132,7 +132,7 @@ DHCP.RUN.OK lda #S.IPCFG.STATUS.OK
|
||||||
bne .2
|
bne .2
|
||||||
|
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #0 Leave with NO ERROR
|
lda #0 Leave with NO ERROR
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -142,7 +142,7 @@ DHCP.RUN.KO pha
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -38,7 +38,7 @@ CFG.EtcFiles >LDYAI 256
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.SETCFG
|
>LIBCALL hLIBTCPIP,LIBTCPIP.SETCFG
|
||||||
|
|
||||||
lda CFG.hBuf1
|
lda CFG.hBuf1
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read.PrintF pha
|
CFG.Read.PrintF pha
|
||||||
|
@ -46,7 +46,7 @@ CFG.Read.PrintF pha
|
||||||
pla
|
pla
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read.HOSTNAME
|
CFG.Read.HOSTNAME
|
||||||
|
@ -236,10 +236,10 @@ CFG.Read.HOSTS stz CFG.hBuf2
|
||||||
pha
|
pha
|
||||||
lda CFG.hBuf3
|
lda CFG.hBuf3
|
||||||
beq .90
|
beq .90
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.90 lda CFG.hBuf2
|
.90 lda CFG.hBuf2
|
||||||
beq .91
|
beq .91
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.91 jmp CFG.Read.Close2
|
.91 jmp CFG.Read.Close2
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -284,12 +284,12 @@ CFG.Read.Result bcc .1
|
||||||
pla
|
pla
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.1 >LDYA L.MSG.CFG.OK
|
.1 >LDYA L.MSG.CFG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CFG.Read.Open stz CFG.hCfgFile
|
CFG.Read.Open stz CFG.hCfgFile
|
||||||
|
@ -307,7 +307,7 @@ CFG.Read.Close php
|
||||||
pha
|
pha
|
||||||
CFG.Read.Close2 lda CFG.hCfgFile
|
CFG.Read.Close2 lda CFG.hCfgFile
|
||||||
beq .8
|
beq .8
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
.8 pla
|
.8 pla
|
||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -123,7 +123,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG
|
||||||
lda IPCFG+S.NETCFG.DevID
|
lda IPCFG+S.NETCFG.DevID
|
||||||
bne CS.RUN.SETUP
|
bne CS.RUN.SETUP
|
||||||
>LDYA L.MSG.NODEV
|
>LDYA L.MSG.NODEV
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -150,7 +150,7 @@ CS.RUN.SETUP
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -231,7 +231,7 @@ CS.RUN.DUMPNIC >PUSHW L.MSG1.DEV
|
||||||
|
|
||||||
>PUSHBI 11
|
>PUSHBI 11
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG1.DEV.ARP
|
>PUSHW L.MSG1.DEV.ARP
|
||||||
|
|
||||||
|
@ -242,7 +242,7 @@ CS.RUN.DUMPNIC >PUSHW L.MSG1.DEV
|
||||||
.2 >PUSHA
|
.2 >PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG1.DEV.IP
|
>PUSHW L.MSG1.DEV.IP
|
||||||
|
|
||||||
|
@ -256,21 +256,21 @@ CS.RUN.DUMPNIC >PUSHW L.MSG1.DEV
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDA.G DCB.NIC+S.DCB.NIC.LINK
|
>LDA.G DCB.NIC+S.DCB.NIC.LINK
|
||||||
and #S.DCB.NIC.LINK.OK
|
and #S.DCB.NIC.LINK.OK
|
||||||
bne CS.RUN.LINK
|
bne CS.RUN.LINK
|
||||||
>LDYA L.MSG1.LINK.KO
|
>LDYA L.MSG1.LINK.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
bra CS.RUN.DUMPIP
|
bra CS.RUN.DUMPIP
|
||||||
|
|
||||||
CS.RUN.LINK >LDYA L.MSG1.LINK.OK
|
CS.RUN.LINK >LDYA L.MSG1.LINK.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
>PUSHW L.MSG1.LINKSPEED
|
>PUSHW L.MSG1.LINKSPEED
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDA.G DCB.NIC+S.DCB.NIC.SPEED
|
>LDA.G DCB.NIC+S.DCB.NIC.SPEED
|
||||||
and #$0F
|
and #$0F
|
||||||
|
@ -287,11 +287,11 @@ CS.RUN.LINK >LDYA L.MSG1.LINK.OK
|
||||||
>LDYA L.MSG1.DPLX.HD
|
>LDYA L.MSG1.DPLX.HD
|
||||||
bra .6
|
bra .6
|
||||||
.5 >LDYA L.MSG1.DPLX.FD
|
.5 >LDYA L.MSG1.DPLX.FD
|
||||||
.6 >SYSCALL puts
|
.6 >SYSCALL PutS
|
||||||
|
|
||||||
CS.RUN.DUMPIP >PUSHW L.MSG2
|
CS.RUN.DUMPIP >PUSHW L.MSG2
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda IPCFG+S.NETCFG.STATUS
|
lda IPCFG+S.NETCFG.STATUS
|
||||||
and #S.IPCFG.STATUS.OK
|
and #S.IPCFG.STATUS.OK
|
||||||
|
@ -299,7 +299,7 @@ CS.RUN.DUMPIP >PUSHW L.MSG2
|
||||||
>LDYA L.MSG2.C
|
>LDYA L.MSG2.C
|
||||||
bra .10
|
bra .10
|
||||||
.11 >LDYA L.MSG2.U
|
.11 >LDYA L.MSG2.U
|
||||||
.10 >SYSCALL puts
|
.10 >SYSCALL PutS
|
||||||
|
|
||||||
>PUSHW L.MSG2.DHCPSRVR
|
>PUSHW L.MSG2.DHCPSRVR
|
||||||
|
|
||||||
|
@ -311,7 +311,7 @@ CS.RUN.DUMPIP >PUSHW L.MSG2
|
||||||
|
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG2.IPMASK
|
>PUSHW L.MSG2.IPMASK
|
||||||
|
|
||||||
|
@ -322,7 +322,7 @@ CS.RUN.DUMPIP >PUSHW L.MSG2
|
||||||
bne .3
|
bne .3
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG2.GW
|
>PUSHW L.MSG2.GW
|
||||||
|
|
||||||
|
@ -332,7 +332,7 @@ CS.RUN.DUMPIP >PUSHW L.MSG2
|
||||||
cpx #4
|
cpx #4
|
||||||
bne .4
|
bne .4
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG2.DNS
|
>PUSHW L.MSG2.DNS
|
||||||
|
|
||||||
|
@ -343,14 +343,14 @@ CS.RUN.DUMPIP >PUSHW L.MSG2
|
||||||
bne .5
|
bne .5
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG2.HOSTNAME
|
>PUSHW L.MSG2.HOSTNAME
|
||||||
>PUSHW L.IPCFG.HOSTNAME
|
>PUSHW L.IPCFG.HOSTNAME
|
||||||
>PUSHW L.IPCFG.DOMAIN
|
>PUSHW L.IPCFG.DOMAIN
|
||||||
|
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #0 tell TSKMGR that all done ok, but
|
lda #0 tell TSKMGR that all done ok, but
|
||||||
sec we do not want to stay in memory
|
sec we do not want to stay in memory
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -76,7 +76,7 @@ CS.INIT clc
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >PUSHW L.MSG.TOPBAR
|
CS.RUN >PUSHW L.MSG.TOPBAR
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
jsr CS.RUN.Load
|
jsr CS.RUN.Load
|
||||||
bcs .1
|
bcs .1
|
||||||
|
|
||||||
|
@ -87,22 +87,22 @@ CS.RUN >PUSHW L.MSG.TOPBAR
|
||||||
|
|
||||||
.2 >PUSHYA
|
.2 >PUSHYA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG.KCONF
|
>PUSHW L.MSG.KCONF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDYAI A2osX.KCONFIG
|
>LDYAI A2osX.KCONFIG
|
||||||
jsr CS.RUN.DumpConfYA
|
jsr CS.RUN.DumpConfYA
|
||||||
|
|
||||||
>PUSHW L.MSG.STATUSBAR
|
>PUSHW L.MSG.STATUSBAR
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.REPaint >PUSHW L.MSG.FCONF
|
CS.RUN.REPaint >PUSHW L.MSG.FCONF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDYA ZPCfgPtr
|
>LDYA ZPCfgPtr
|
||||||
jsr CS.RUN.DumpConfYA
|
jsr CS.RUN.DumpConfYA
|
||||||
|
@ -176,7 +176,7 @@ CS.RUN.Loop >SYSCALL GetChar
|
||||||
.8 >PUSHW L.MSG.QUIT
|
.8 >PUSHW L.MSG.QUIT
|
||||||
.80 >PUSHBI 0
|
.80 >PUSHBI 0
|
||||||
|
|
||||||
.9 >SYSCALL printf
|
.9 >SYSCALL PrintF
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -266,7 +266,7 @@ CS.RUN.DumpConfYA
|
||||||
>PUSHW L.MSG.HZ
|
>PUSHW L.MSG.HZ
|
||||||
>PUSHB (ZPTmp1)
|
>PUSHB (ZPTmp1)
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG.CHROOT
|
>PUSHW L.MSG.CHROOT
|
||||||
|
|
||||||
|
@ -280,7 +280,7 @@ CS.RUN.DumpConfYA
|
||||||
.10 >LDYA L.MSG.ENABLED
|
.10 >LDYA L.MSG.ENABLED
|
||||||
.12 >PUSHYA
|
.12 >PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG.PMODE
|
>PUSHW L.MSG.PMODE
|
||||||
|
|
||||||
|
@ -294,7 +294,7 @@ CS.RUN.DumpConfYA
|
||||||
.14 >PUSHYA
|
.14 >PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG.TTYS
|
>PUSHW L.MSG.TTYS
|
||||||
|
|
||||||
|
@ -302,7 +302,7 @@ CS.RUN.DumpConfYA
|
||||||
lda (ZPTmp1),y
|
lda (ZPTmp1),y
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
ldy #9 Slot 1
|
ldy #9 Slot 1
|
||||||
|
|
||||||
|
@ -328,7 +328,7 @@ CS.RUN.DumpConfYA
|
||||||
>PUSHW T.MSG.SLOT.DESC,x
|
>PUSHW T.MSG.SLOT.DESC,x
|
||||||
|
|
||||||
>PUSHBI 3
|
>PUSHBI 3
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
ply
|
ply
|
||||||
iny
|
iny
|
||||||
|
@ -337,7 +337,7 @@ CS.RUN.DumpConfYA
|
||||||
|
|
||||||
>PUSHW L.MSG.PROMPT
|
>PUSHW L.MSG.PROMPT
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -71,7 +71,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
|
|
||||||
.9 >PUSHW L.MSG.USAGE
|
.9 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
|
24
BIN/LS.S.txt
24
BIN/LS.S.txt
|
@ -101,7 +101,7 @@ CS.RUN
|
||||||
bne .8
|
bne .8
|
||||||
|
|
||||||
ldy #S.PS.hCWD
|
ldy #S.PS.hCWD
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
jsr InitSrcDirYA
|
jsr InitSrcDirYA
|
||||||
bcs .9
|
bcs .9
|
||||||
|
@ -110,7 +110,7 @@ CS.RUN
|
||||||
>SYSCALL time
|
>SYSCALL time
|
||||||
|
|
||||||
>LDYAI S.PW
|
>LDYAI S.PW
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPPW
|
>STYA ZPPW
|
||||||
txa
|
txa
|
||||||
|
@ -202,7 +202,7 @@ CS.RUN.PRINT.DEV
|
||||||
|
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
ldy #bRecurse
|
ldy #bRecurse
|
||||||
|
@ -235,7 +235,7 @@ CS.RUN.PRINT.DIR
|
||||||
jsr CS.RUN.PRINT.SRCPATH
|
jsr CS.RUN.PRINT.SRCPATH
|
||||||
|
|
||||||
.23 >LDYA ZPFileName
|
.23 >LDYA ZPFileName
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
bcs .9
|
bcs .9
|
||||||
>LDA.G bRecurse
|
>LDA.G bRecurse
|
||||||
bpl .8
|
bpl .8
|
||||||
|
@ -250,7 +250,7 @@ CS.RUN.PRINT.DIR
|
||||||
.22 >PUSHW L.MSG.DIR
|
.22 >PUSHW L.MSG.DIR
|
||||||
>PUSHW ZPFileName
|
>PUSHW ZPFileName
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
|
@ -282,7 +282,7 @@ CS.RUN.PRINT.DIR
|
||||||
jsr CS.RUN.PUSHDATES
|
jsr CS.RUN.PUSHDATES
|
||||||
>PUSHW ZPFileName
|
>PUSHW ZPFileName
|
||||||
>PUSHBI 12
|
>PUSHBI 12
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
bcs .90
|
bcs .90
|
||||||
|
|
||||||
|
@ -313,13 +313,13 @@ CS.RUN.PRINT.FILE
|
||||||
jsr CS.RUN.PRINT.SRCPATH
|
jsr CS.RUN.PRINT.SRCPATH
|
||||||
|
|
||||||
.23 >LDYA ZPFileName
|
.23 >LDYA ZPFileName
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.22 >PUSHW L.MSG.FILE
|
.22 >PUSHW L.MSG.FILE
|
||||||
>PUSHW ZPFileName
|
>PUSHW ZPFileName
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
jmp CS.RUN.UpdateColCnt
|
jmp CS.RUN.UpdateColCnt
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -356,7 +356,7 @@ CS.RUN.PRINT.FILE
|
||||||
>PUSHW ZPFileName
|
>PUSHW ZPFileName
|
||||||
|
|
||||||
>PUSHBI 20
|
>PUSHBI 20
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -366,7 +366,7 @@ CS.RUN.PRINT.SRCPATH
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PushGidUid
|
CS.RUN.PushGidUid
|
||||||
|
@ -509,7 +509,7 @@ CS.RUN.NewLine >LDA.G ColCount
|
||||||
CS.RUN.NewLine.1
|
CS.RUN.NewLine.1
|
||||||
>PUSHW L.MSG.CRLF
|
>PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
CS.RUN.NewLine.8
|
CS.RUN.NewLine.8
|
||||||
clc
|
clc
|
||||||
|
@ -523,7 +523,7 @@ CS.RUN.ENTER.MSG
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DOEVENT sec
|
CS.DOEVENT sec
|
||||||
|
|
|
@ -69,7 +69,7 @@ CS.RUN jsr DumpDev
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DumpDev >LDYA L.MSG0
|
DumpDev >LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
ldx #1
|
ldx #1
|
||||||
stx Index
|
stx Index
|
||||||
|
@ -99,7 +99,7 @@ DumpDev >LDYA L.MSG0
|
||||||
pla
|
pla
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
bra .7
|
bra .7
|
||||||
|
@ -137,7 +137,7 @@ DumpDevFD >PUSHW L.MSG1
|
||||||
|
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DumpDevDIB >PUSHW L.MSG2
|
DumpDevDIB >PUSHW L.MSG2
|
||||||
|
@ -169,7 +169,7 @@ DumpDevDIB >PUSHW L.MSG2
|
||||||
|
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDA.G DEV.DIB+S.DIB.S
|
>LDA.G DEV.DIB+S.DIB.S
|
||||||
|
@ -187,11 +187,11 @@ DumpDevDIB >PUSHW L.MSG2
|
||||||
.4 >PUSHW L.MSG2.C
|
.4 >PUSHW L.MSG2.C
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
|
|
||||||
.8 >SYSCALL printf
|
.8 >SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DumpNod >LDYA L.MSG3
|
DumpNod >LDYA L.MSG3
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
ldx #2
|
ldx #2
|
||||||
stx Index
|
stx Index
|
||||||
|
@ -222,7 +222,7 @@ DumpNod >LDYA L.MSG3
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.7 inc index
|
.7 inc index
|
||||||
|
|
||||||
|
|
|
@ -49,7 +49,7 @@ CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYA L.MSG0
|
CS.RUN >LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
ldx #1
|
ldx #1
|
||||||
stx FILE.ID
|
stx FILE.ID
|
||||||
|
@ -98,7 +98,7 @@ CS.RUN >LDYA L.MSG0
|
||||||
|
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.7 inc FILE.ID
|
.7 inc FILE.ID
|
||||||
ldx FILE.ID
|
ldx FILE.ID
|
||||||
|
|
|
@ -53,7 +53,7 @@ CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
beq .99
|
beq .99
|
||||||
|
|
||||||
.1 inc ArgIndex
|
.1 inc ArgIndex
|
||||||
|
@ -78,7 +78,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -109,7 +109,7 @@ CS.RUN.TEXT lda Arg
|
||||||
jmp CS.RUN.PRINT
|
jmp CS.RUN.PRINT
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.FILE >LDYAI FILEBUF.SIZE
|
CS.RUN.FILE >LDYAI FILEBUF.SIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPDataBufPtr
|
>STYA ZPDataBufPtr
|
||||||
|
@ -155,7 +155,7 @@ CS.RUN.FILE >LDYAI FILEBUF.SIZE
|
||||||
>SYSCALL MD5Finalize
|
>SYSCALL MD5Finalize
|
||||||
|
|
||||||
CS.RUN.PRINT >LEA.G MD5Buf
|
CS.RUN.PRINT >LEA.G MD5Buf
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #0
|
lda #0
|
||||||
* sec
|
* sec
|
||||||
* rts
|
* rts
|
||||||
|
@ -170,7 +170,7 @@ CS.QUIT lda hDataBuf
|
||||||
.2 lda hFile
|
.2 lda hFile
|
||||||
beq .3
|
beq .3
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.3 clc
|
.3 clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -60,7 +60,7 @@ CS.RUN >LEA.G MemStat
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
|
|
||||||
>LDYA L.MSG0
|
>LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
>INC.G MEM.COUNT skip slot 0
|
>INC.G MEM.COUNT skip slot 0
|
||||||
|
|
||||||
CS.RUN.LOOP >LDA.G bSTOP
|
CS.RUN.LOOP >LDA.G bSTOP
|
||||||
|
@ -100,7 +100,7 @@ CS.RUN.FOOTER >SYSCALL GetChar
|
||||||
>PUSHB.G USED.COUNT
|
>PUSHB.G USED.COUNT
|
||||||
>PUSHB.G MEM.COUNT
|
>PUSHB.G MEM.COUNT
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG3
|
>PUSHW L.MSG3
|
||||||
>PUSHW.G MemStat+S.MSTAT.MH
|
>PUSHW.G MemStat+S.MSTAT.MH
|
||||||
|
@ -115,7 +115,7 @@ CS.RUN.FOOTER >SYSCALL GetChar
|
||||||
ply
|
ply
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
|
@ -176,10 +176,10 @@ CS.RUN.PRINTMEM >PUSHW L.MSG1
|
||||||
|
|
||||||
>PUSHW L.MSG1.INV
|
>PUSHW L.MSG1.INV
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.12 >PUSHBI 9
|
.12 >PUSHBI 9
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda (ZPPTR1)
|
lda (ZPPTR1)
|
||||||
and #S.MEM.F.CODE
|
and #S.MEM.F.CODE
|
||||||
|
@ -234,7 +234,7 @@ CS.RUN.PRINTMEM.BIN
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
|
|
||||||
CS.RUN.PRINTMEM.OUT
|
CS.RUN.PRINTMEM.OUT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>INC.G LINE.COUNT
|
>INC.G LINE.COUNT
|
||||||
cmp #PAGELEN
|
cmp #PAGELEN
|
||||||
beq .9
|
beq .9
|
||||||
|
|
|
@ -82,7 +82,7 @@ CS.RUN
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -124,7 +124,7 @@ CS.RUN
|
||||||
|
|
||||||
>PUSHW L.MSG.Init
|
>PUSHW L.MSG.Init
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.LOOP jsr CS.RUN.GETLINE
|
CS.RUN.LOOP jsr CS.RUN.GETLINE
|
||||||
bcs .9
|
bcs .9
|
||||||
|
@ -238,23 +238,23 @@ CS.RUN.PRINT lda bLineNum
|
||||||
>PUSHW L.MSG.NUMLINE
|
>PUSHW L.MSG.NUMLINE
|
||||||
>PUSHW LineNum
|
>PUSHW LineNum
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
.1 lda bEscCodes
|
.1 lda bEscCodes
|
||||||
bmi .2
|
bmi .2
|
||||||
|
|
||||||
>LDYA ZPBufPtr
|
>LDYA ZPBufPtr
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.2 >PUSHW ZPBufPtr
|
.2 >PUSHW ZPBufPtr
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHW L.MSG.CRLF
|
>PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT lda hBuf
|
CS.QUIT lda hBuf
|
||||||
|
|
|
@ -73,7 +73,7 @@ CS.INIT >LDYA L.LIBTCPIP
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYA L.MSG0
|
CS.RUN >LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.GetTable
|
>LIBCALL hLIBTCPIP,LIBTCPIP.GetTable
|
||||||
>STYA ZPPTR1
|
>STYA ZPPTR1
|
||||||
ldy SocketIndex
|
ldy SocketIndex
|
||||||
|
@ -99,7 +99,7 @@ CS.RUN >LDYA L.MSG0
|
||||||
jsr CS.RUN.T ..19
|
jsr CS.RUN.T ..19
|
||||||
>PUSHBI 19
|
>PUSHBI 19
|
||||||
>LDYA L.MSG1
|
>LDYA L.MSG1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
.7 inc SocketIndex
|
.7 inc SocketIndex
|
||||||
ldy SocketIndex
|
ldy SocketIndex
|
||||||
|
|
|
@ -51,13 +51,13 @@ CS.INIT >SYSCALL ArgVC
|
||||||
dey
|
dey
|
||||||
dex
|
dex
|
||||||
bpl .1
|
bpl .1
|
||||||
lda (pPs)
|
lda (pPS)
|
||||||
ora #S.PS.F.EVENT Now accept events
|
ora #S.PS.F.EVENT Now accept events
|
||||||
sta (pPs)
|
sta (pPS)
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
.99 >LDYA L.MSG.USAGE
|
.99 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -45,7 +45,7 @@ CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
bcs CS.RUN.SET
|
bcs CS.RUN.SET
|
||||||
|
|
||||||
|
@ -61,7 +61,7 @@ CS.RUN.READ jsr NSC.Init
|
||||||
|
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.READ.KO
|
>LDYA L.MSG.READ.KO
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -70,7 +70,7 @@ CS.RUN.READ jsr NSC.Init
|
||||||
|
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #0 tell TSKMGR that all done ok, but
|
lda #0 tell TSKMGR that all done ok, but
|
||||||
sec we do not want to stay in memory
|
sec we do not want to stay in memory
|
||||||
rts
|
rts
|
||||||
|
@ -250,7 +250,7 @@ NSC.Dump ldx #1
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.READ.OK1
|
>LDYA L.MSG.READ.OK1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.READ.OK2.24
|
>LDYA L.MSG.READ.OK2.24
|
||||||
bit DS1216E.DATA+4
|
bit DS1216E.DATA+4
|
||||||
|
@ -258,10 +258,10 @@ NSC.Dump ldx #1
|
||||||
|
|
||||||
>LDYA L.MSG.READ.OK2.12
|
>LDYA L.MSG.READ.OK2.12
|
||||||
|
|
||||||
.3 >SYSCALL printf
|
.3 >SYSCALL PrintF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.READ.OK3
|
>LDYA L.MSG.READ.OK3
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda DS1216E.DATA
|
lda DS1216E.DATA
|
||||||
jsr PrintBCD
|
jsr PrintBCD
|
||||||
|
@ -298,7 +298,7 @@ NSC.Dump ldx #1
|
||||||
|
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.CRLF
|
>LDYA L.MSG.CRLF
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PrintBCD pha
|
PrintBCD pha
|
||||||
|
|
|
@ -87,7 +87,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -114,7 +114,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPFullPath
|
>STYA ZPFullPath
|
||||||
txa
|
txa
|
||||||
|
@ -142,14 +142,14 @@ CS.RUN >INC.G ArgIndex
|
||||||
.98 bcs .99
|
.98 bcs .99
|
||||||
|
|
||||||
>LDYAI CHNK.SIZE
|
>LDYAI CHNK.SIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .98
|
bcs .98
|
||||||
>STYA ZPSrcBufPtr
|
>STYA ZPSrcBufPtr
|
||||||
txa
|
txa
|
||||||
>STA.G hSrcBuf
|
>STA.G hSrcBuf
|
||||||
|
|
||||||
>LDYAI CHNK.SIZE
|
>LDYAI CHNK.SIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .98
|
bcs .98
|
||||||
>STYA ZPDstBufPtr
|
>STYA ZPDstBufPtr
|
||||||
txa
|
txa
|
||||||
|
@ -236,7 +236,7 @@ CS.RUN.DIR lda bRecurse
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.DIR
|
>LDYA L.MSG.DIR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jsr CS.RUN.WriteArcHdrDir
|
jsr CS.RUN.WriteArcHdrDir
|
||||||
|
@ -256,7 +256,7 @@ CS.RUN.FILE jsr CS.RUN.BuildFilePath
|
||||||
>LDA.G hArcFile
|
>LDA.G hArcFile
|
||||||
tay
|
tay
|
||||||
lda OF.Table.hPath-1,y
|
lda OF.Table.hPath-1,y
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>SYSCALL strcmp
|
>SYSCALL strcmp
|
||||||
bcc .8
|
bcc .8
|
||||||
|
|
||||||
|
@ -264,7 +264,7 @@ CS.RUN.FILE jsr CS.RUN.BuildFilePath
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.FILE
|
>LDYA L.MSG.FILE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jsr CS.RUN.WriteArcHdrFile
|
jsr CS.RUN.WriteArcHdrFile
|
||||||
|
@ -309,7 +309,7 @@ CS.RUN.FILE jsr CS.RUN.BuildFilePath
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CheckErr bcs .1
|
CS.RUN.CheckErr bcs .1
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.1 pha
|
.1 pha
|
||||||
|
@ -317,7 +317,7 @@ CS.RUN.CheckErr bcs .1
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.ERR
|
>LDYA L.MSG.ERR
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
|
@ -362,7 +362,7 @@ CS.RUN.ReadFile >PUSHWI CHNK.SIZE
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CloseFile
|
CS.RUN.CloseFile
|
||||||
>LDA.G hFile
|
>LDA.G hFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STZ.G hFile
|
>STZ.G hFile
|
||||||
|
@ -446,7 +446,7 @@ CS.RUN.AppendArc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
||||||
.99 >LDYA L.MSG.E.IARC
|
.99 >LDYA L.MSG.E.IARC
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -575,7 +575,7 @@ CS.QUIT jsr LeaveSubDir
|
||||||
|
|
||||||
.2 >LDA.G hArcFile
|
.2 >LDA.G hArcFile
|
||||||
beq .3
|
beq .3
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.3 >LDA.G hDstBuf
|
.3 >LDA.G hDstBuf
|
||||||
beq .4
|
beq .4
|
||||||
|
|
|
@ -78,7 +78,7 @@ CS.INIT >LDYA L.LIBPAK
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
cmp #2
|
cmp #2
|
||||||
bne .9
|
bne .9
|
||||||
|
@ -101,7 +101,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -116,7 +116,7 @@ CS.RUN.START >PUSHW ZPDstTableOfs
|
||||||
|
|
||||||
>PUSHBI 9
|
>PUSHBI 9
|
||||||
>LDYA L.MSG.SRCFILE
|
>LDYA L.MSG.SRCFILE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDYA ZPDstTableOfs
|
>LDYA ZPDstTableOfs
|
||||||
jsr CS.RUN.GetSrcBufYA
|
jsr CS.RUN.GetSrcBufYA
|
||||||
|
@ -184,7 +184,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 5
|
>PUSHBI 5
|
||||||
>LDYA L.MSG.CHUNK
|
>LDYA L.MSG.CHUNK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jsr CS.RUN.Pak
|
jsr CS.RUN.Pak
|
||||||
|
@ -389,14 +389,14 @@ CS.RUN.GetChunk lda ZPChunkIndex
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.GetSrcBufYA
|
CS.RUN.GetSrcBufYA
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
stx hSrcBuf
|
stx hSrcBuf
|
||||||
>STYA ZPSrcBufPtr
|
>STYA ZPSrcBufPtr
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.Pak >LDYA ZPChunkLen
|
CS.RUN.Pak >LDYA ZPChunkLen
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
stx hDstBuf
|
stx hDstBuf
|
||||||
>STYA ZPDstBufPtr
|
>STYA ZPDstBufPtr
|
||||||
|
@ -448,7 +448,7 @@ CS.RUN.WritePak lda hDstFile
|
||||||
>PUSHW ZPChunkPakedLen
|
>PUSHW ZPChunkPakedLen
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>LDYA L.MSG.PAKED
|
>LDYA L.MSG.PAKED
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.9
|
.9
|
||||||
CS.RUN.WritePak.RTS
|
CS.RUN.WritePak.RTS
|
||||||
|
@ -479,7 +479,7 @@ CS.RUN.WriteStore
|
||||||
>PUSHW ZPChunkLen
|
>PUSHW ZPChunkLen
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>LDYA L.MSG.STORE
|
>LDYA L.MSG.STORE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -516,11 +516,11 @@ CS.DOEVENT sec
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT lda hDstFile
|
CS.QUIT lda hDstFile
|
||||||
beq .2
|
beq .2
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.2 lda hSrcFile
|
.2 lda hSrcFile
|
||||||
beq .3
|
beq .3
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.3 jsr CS.QUIT.BUF
|
.3 jsr CS.QUIT.BUF
|
||||||
|
|
||||||
|
|
|
@ -73,7 +73,7 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG is TCPIP loaded ?
|
||||||
bmi .1
|
bmi .1
|
||||||
|
|
||||||
>LDYA L.MSG.IPKO
|
>LDYA L.MSG.IPKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -136,7 +136,7 @@ CS.RUN.IPOK inc ArgIndex
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
.99 >SYSCALL printf
|
.99 >SYSCALL PrintF
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -157,7 +157,7 @@ CS.RUN.ARGSOK lda ArgHostName
|
||||||
|
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
>LDYA L.MSG.HOSTOK
|
>LDYA L.MSG.HOSTOK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.OPENSKT ldx #3
|
CS.RUN.OPENSKT ldx #3
|
||||||
ldy #S.IPCFG.IP+3
|
ldy #S.IPCFG.IP+3
|
||||||
|
@ -207,7 +207,7 @@ CS.RUN.OPENSKT ldx #3
|
||||||
bcc CS.RUN.SEND.ECHO
|
bcc CS.RUN.SEND.ECHO
|
||||||
|
|
||||||
.9 >LDYA L.MSG.SKTKO
|
.9 >LDYA L.MSG.SKTKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -313,7 +313,7 @@ CS.Print.UNREACH
|
||||||
|
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>LDYA L.MSG.UNREACH
|
>LDYA L.MSG.UNREACH
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.Print.REPLY lda #TIMEOUT.MAX
|
CS.Print.REPLY lda #TIMEOUT.MAX
|
||||||
|
@ -355,7 +355,7 @@ CS.Print.REPLY lda #TIMEOUT.MAX
|
||||||
|
|
||||||
>PUSHBI 9
|
>PUSHBI 9
|
||||||
>LDYA L.MSG.REPLY
|
>LDYA L.MSG.REPLY
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT lda hFrame
|
CS.QUIT lda hFrame
|
||||||
|
|
|
@ -78,7 +78,7 @@ CS.RUN lda #1
|
||||||
|
|
||||||
.10 >PUSHW L.MSG0
|
.10 >PUSHW L.MSG0
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
ldx Index
|
ldx Index
|
||||||
|
|
||||||
.1 lda PS.Table.hPS,x
|
.1 lda PS.Table.hPS,x
|
||||||
|
@ -141,7 +141,7 @@ CS.RUN.DUMP >SYSCALL GetMemPtr
|
||||||
|
|
||||||
>PUSHBI 10
|
>PUSHBI 10
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
jmp CS.RUN.PrintArgs
|
jmp CS.RUN.PrintArgs
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -175,7 +175,7 @@ CS.RUN.PrintArgs
|
||||||
>PUSHW L.MSG2
|
>PUSHW L.MSG2
|
||||||
>PUSHW ZPArgV
|
>PUSHW ZPArgV
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
.2 inc ZPArgV
|
.2 inc ZPArgV
|
||||||
bne .3
|
bne .3
|
||||||
|
@ -189,7 +189,7 @@ CS.RUN.PrintArgs
|
||||||
|
|
||||||
.8 >PUSHW L.MSG3
|
.8 >PUSHW L.MSG3
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DOEVENT sec
|
CS.DOEVENT sec
|
||||||
|
|
|
@ -46,7 +46,7 @@ L.MSG.DUMP1 .DA MSG.DUMP1
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.INIT ldy #S.PS.ARGC
|
CS.INIT ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
beq .99
|
beq .99
|
||||||
|
|
||||||
>LDYA L.LIBTCPIP
|
>LDYA L.LIBTCPIP
|
||||||
|
@ -68,7 +68,7 @@ CS.INIT ldy #S.PS.ARGC
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
.99 >LDYA L.MSG.USAGE
|
.99 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -89,7 +89,7 @@ CS.RUN jsr Init.Timeout
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.UNKNOWN
|
>LDYA L.MSG.UNKNOWN
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
.2 >PUSHW L.Socket
|
.2 >PUSHW L.Socket
|
||||||
|
@ -137,7 +137,7 @@ CS.RUN jsr Init.Timeout
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.TIMEOUT
|
>LDYA L.MSG.TIMEOUT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -183,7 +183,7 @@ DumpRPCFrame lda #S.UDP+24
|
||||||
sta ZPFrameBase+1
|
sta ZPFrameBase+1
|
||||||
|
|
||||||
>LDYA L.MSG.DUMP0
|
>LDYA L.MSG.DUMP0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
.1 ldy #3
|
.1 ldy #3
|
||||||
lda (ZPFrameBase),y Value follows?
|
lda (ZPFrameBase),y Value follows?
|
||||||
beq .9
|
beq .9
|
||||||
|
@ -205,7 +205,7 @@ DumpRPCFrame lda #S.UDP+24
|
||||||
|
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>LDYA L.MSG.DUMP1
|
>LDYA L.MSG.DUMP1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #20
|
lda #20
|
||||||
clc
|
clc
|
||||||
adc ZPFrameBase
|
adc ZPFrameBase
|
||||||
|
|
|
@ -20,13 +20,13 @@ CL.PrintPrompt >PUSHW L.PS1
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.1 >PUSHW L.MSG.PROMPT
|
.1 >PUSHW L.MSG.PROMPT
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CL.READN0A tax
|
CL.READN0A tax
|
||||||
|
@ -294,7 +294,7 @@ CL.PrintEOL.8 clc
|
||||||
CL.PrintCLBuf >PUSHW ZPCLBuf
|
CL.PrintCLBuf >PUSHW ZPCLBuf
|
||||||
|
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fputs
|
>SYSCALL fputs
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -106,7 +106,7 @@ CMD.CD.YA >PUSHYA
|
||||||
lda #MLI.E.INVPATH
|
lda #MLI.E.INVPATH
|
||||||
.19 pha
|
.19 pha
|
||||||
lda ZPTmpW
|
lda ZPTmpW
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -127,11 +127,11 @@ CMD.CD.YA >PUSHYA
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.SetCWDA pha
|
CMD.SetCWDA pha
|
||||||
ldy #S.PS.hCWD
|
ldy #S.PS.hCWD
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
pla
|
pla
|
||||||
ldy #S.PS.hCWD
|
ldy #S.PS.hCWD
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
lda #0
|
lda #0
|
||||||
* clc
|
* clc
|
||||||
rts
|
rts
|
||||||
|
@ -151,14 +151,14 @@ CMD.SET lda (ZPArgVBufPtr)
|
||||||
beq .8 Ending 0 ?
|
beq .8 Ending 0 ?
|
||||||
|
|
||||||
>LDYA ZPPTR1
|
>LDYA ZPPTR1
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
jsr GetPtr1NextString
|
jsr GetPtr1NextString
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.8 lda ZPTmpW
|
.8 lda ZPTmpW
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
* clc
|
* clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -235,7 +235,7 @@ CMD.SET.GET >PUSHW ZPVarNamePtr
|
||||||
bcs .8
|
bcs .8
|
||||||
|
|
||||||
>LDYA ZPCLBuf
|
>LDYA ZPCLBuf
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
@ -280,7 +280,7 @@ CMD.DATE >PUSHEA.G TimeBuf
|
||||||
>SYSCALL StrFTime
|
>SYSCALL StrFTime
|
||||||
|
|
||||||
CMD.DATE.PRINT >LDYA ZPCLBuf
|
CMD.DATE.PRINT >LDYA ZPCLBuf
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.ECHO stz ZPPtr1 echo -N
|
CMD.ECHO stz ZPPtr1 echo -N
|
||||||
|
@ -316,7 +316,7 @@ CMD.ECHO stz ZPPtr1 echo -N
|
||||||
|
|
||||||
>PUSHW L.MSG.ECHOCRLF
|
>PUSHW L.MSG.ECHOCRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
@ -418,7 +418,7 @@ CMD.MD lda (ZPArgVBufPtr)
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.PWD jsr GetCWD
|
CMD.PWD jsr GetCWD
|
||||||
|
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.RD lda (ZPArgVBufPtr)
|
CMD.RD lda (ZPArgVBufPtr)
|
||||||
|
@ -474,7 +474,7 @@ CMD.REN lda (ZPArgVBufPtr)
|
||||||
tay
|
tay
|
||||||
lda #0
|
lda #0
|
||||||
|
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .90
|
bcs .90
|
||||||
>STYA ZPPtr2
|
>STYA ZPPtr2
|
||||||
stx ZPTmpW+1
|
stx ZPTmpW+1
|
||||||
|
@ -503,7 +503,7 @@ CMD.REN lda (ZPArgVBufPtr)
|
||||||
>SYSCALL strcat
|
>SYSCALL strcat
|
||||||
|
|
||||||
lda ZPTmpW
|
lda ZPTmpW
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
lda ZPTmpW+1
|
lda ZPTmpW+1
|
||||||
sta ZPTmpW
|
sta ZPTmpW
|
||||||
|
|
||||||
|
@ -514,7 +514,7 @@ CMD.REN lda (ZPArgVBufPtr)
|
||||||
.90 php
|
.90 php
|
||||||
pha
|
pha
|
||||||
lda ZPTmpW
|
lda ZPTmpW
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
pla
|
pla
|
||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
|
@ -636,7 +636,7 @@ CMD.EXIT lda (ZPArgVBufPtr)
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.1 ldy #S.PS.RC
|
.1 ldy #S.PS.RC
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
.2 jsr CORE.StkPull Pull everything until CALL . CL...
|
.2 jsr CORE.StkPull Pull everything until CALL . CL...
|
||||||
bcs .9
|
bcs .9
|
||||||
|
@ -664,7 +664,7 @@ CMD.EXIT.FILE jsr CORE.StkPullFree Code buffer
|
||||||
|
|
||||||
ldy #S.PS.hARGV
|
ldy #S.PS.hARGV
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL freemem ArgV buffer
|
>SYSCALL FreeMem ArgV buffer
|
||||||
|
|
||||||
jsr CORE.StkPull
|
jsr CORE.StkPull
|
||||||
ldy #S.PS.hARGV
|
ldy #S.PS.hARGV
|
||||||
|
@ -682,7 +682,7 @@ CMD.EXIT.FILE jsr CORE.StkPullFree Code buffer
|
||||||
sta ZPInputBuf
|
sta ZPInputBuf
|
||||||
|
|
||||||
ldy #S.PS.RC
|
ldy #S.PS.RC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
@ -954,9 +954,9 @@ CMD.NEXT.LIST lda (pData),y Y = StkPtr
|
||||||
pha
|
pha
|
||||||
dey
|
dey
|
||||||
lda (pData),y hLIST
|
lda (pData),y hLIST
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
pla
|
pla
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
* clc
|
* clc
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -1054,9 +1054,9 @@ CMD.NEXT.FILEEXEC.POP
|
||||||
pha
|
pha
|
||||||
dey
|
dey
|
||||||
lda (pData),y hFILE/hPIPE
|
lda (pData),y hFILE/hPIPE
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
pla
|
pla
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
* clc
|
* clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -1200,7 +1200,7 @@ CMD.IsSwitch lda (ZPArgVBufPtr)
|
||||||
CMD.PrintArgVBufPtr
|
CMD.PrintArgVBufPtr
|
||||||
>PUSHW ZPArgVBufPtr
|
>PUSHW ZPArgVBufPtr
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
|
|
@ -271,7 +271,7 @@ CORE.Run.Exit php
|
||||||
pha
|
pha
|
||||||
>LDA.G CORE.hArgVBuf
|
>LDA.G CORE.hArgVBuf
|
||||||
beq .1
|
beq .1
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
>STZ.G CORE.hArgVBuf
|
>STZ.G CORE.hArgVBuf
|
||||||
|
|
||||||
|
@ -319,7 +319,7 @@ CORE.ExecExtCmd >PUSHW ZPArgVBuf
|
||||||
.4 >SLEEP Suspend this PID
|
.4 >SLEEP Suspend this PID
|
||||||
sec
|
sec
|
||||||
ldy #S.PS.RC CPID will update S.PS.RC
|
ldy #S.PS.RC CPID will update S.PS.RC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
bne .9
|
bne .9
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
@ -483,7 +483,7 @@ CORE.ArgV.Add lda #C.SPACE
|
||||||
inc ZPArgVBufPtr+1
|
inc ZPArgVBufPtr+1
|
||||||
|
|
||||||
.8 pla
|
.8 pla
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.ArgV.Next lda (ZPArgVBufPtr)
|
CORE.ArgV.Next lda (ZPArgVBufPtr)
|
||||||
|
@ -758,12 +758,12 @@ CORE.StkPullInputBufPtr
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.StkPullFClose
|
CORE.StkPullFClose
|
||||||
jsr CORE.StkPull
|
jsr CORE.StkPull
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.StkPullFree
|
CORE.StkPullFree
|
||||||
jsr CORE.StkPull
|
jsr CORE.StkPull
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CORE.StkPull jsr CORE.StkGet
|
CORE.StkPull jsr CORE.StkGet
|
||||||
|
|
|
@ -41,7 +41,7 @@ EXP.GET jsr CORE.ArgV.Next
|
||||||
EXP.FPU.EXEC ldy CORE.Operator
|
EXP.FPU.EXEC ldy CORE.Operator
|
||||||
ldx EXP.OP.MATH.FPU,y
|
ldx EXP.OP.MATH.FPU,y
|
||||||
|
|
||||||
jmp A2osX.FpuCall
|
jmp A2osX.FPUCALL
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXP.TEST lda (ZPArgVBufPtr)
|
EXP.TEST lda (ZPArgVBufPtr)
|
||||||
beq .9
|
beq .9
|
||||||
|
|
|
@ -127,7 +127,7 @@ IO.Reset.Err >LDA.G IO.hErr
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
IO.Close.Y pha
|
IO.Close.Y pha
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
pla
|
pla
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -161,7 +161,7 @@ IO.PrintBatchErrMsg
|
||||||
>LDYA ZPInputBuf
|
>LDYA ZPInputBuf
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
ldy #S.PS.RC
|
ldy #S.PS.RC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #E.SYN
|
cmp #E.SYN
|
||||||
beq .10
|
beq .10
|
||||||
|
|
||||||
|
@ -254,7 +254,7 @@ IO.PrintErrMsg ldx L.ERR.Codes
|
||||||
stx ZPPTR1+1
|
stx ZPPTR1+1
|
||||||
|
|
||||||
ldy #S.PS.RC
|
ldy #S.PS.RC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
|
|
||||||
|
@ -281,7 +281,7 @@ IO.PrintErrMsg ldx L.ERR.Codes
|
||||||
>PUSHW L.MSG.ERROR
|
>PUSHW L.MSG.ERROR
|
||||||
|
|
||||||
ldy #S.PS.RC
|
ldy #S.PS.RC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHW ZPPTR1
|
>PUSHW ZPPTR1
|
||||||
|
|
10
BIN/SH.S.txt
10
BIN/SH.S.txt
|
@ -226,7 +226,7 @@ CS.RUN jsr CL.Init
|
||||||
>PUSHB #K.VER
|
>PUSHB #K.VER
|
||||||
>PUSHB /K.VER
|
>PUSHB /K.VER
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
|
|
||||||
>LDYA L.HOME.PROFILE
|
>LDYA L.HOME.PROFILE
|
||||||
|
@ -324,7 +324,7 @@ CS.RUN.INTERACTIVE
|
||||||
|
|
||||||
>PUSHW L.MSG.PROMPTCRLF
|
>PUSHW L.MSG.PROMPTCRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
lda (ZPCLBuf)
|
lda (ZPCLBuf)
|
||||||
beq .8 Empty line
|
beq .8 Empty line
|
||||||
|
@ -366,13 +366,13 @@ CS.RUN.BATCH >LDA.G bSET.X
|
||||||
.4 >PUSHW L.MSG.TRACE
|
.4 >PUSHW L.MSG.TRACE
|
||||||
>PUSHW ZPCLBuf
|
>PUSHW ZPCLBuf
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs CS.RUN.LOOP.RTS
|
bcs CS.RUN.LOOP.RTS
|
||||||
|
|
||||||
.5 jsr CORE.Run
|
.5 jsr CORE.Run
|
||||||
|
|
||||||
CS.RUN.LOOP.END ldy #S.PS.RC
|
CS.RUN.LOOP.END ldy #S.PS.RC
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
bcc CS.RUN.LOOP.80
|
bcc CS.RUN.LOOP.80
|
||||||
tay
|
tay
|
||||||
beq CS.RUN.LOOP.80 0 = EOF
|
beq CS.RUN.LOOP.80 0 = EOF
|
||||||
|
@ -411,7 +411,7 @@ CS.RUN.LOOP.80 lda (pData) something on stack ?
|
||||||
CS.RUN.LOOP.88 jmp CS.RUN.LOOP
|
CS.RUN.LOOP.88 jmp CS.RUN.LOOP
|
||||||
CS.RUN.LOOP.EXIT
|
CS.RUN.LOOP.EXIT
|
||||||
ldy #S.PS.RC
|
ldy #S.PS.RC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
sec
|
sec
|
||||||
CS.RUN.LOOP.RTS rts
|
CS.RUN.LOOP.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -68,7 +68,7 @@ CS.RUN
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -109,15 +109,15 @@ CS.RUN.DUMP lda ArgFile
|
||||||
>PUSHW L.MSG.Filename
|
>PUSHW L.MSG.Filename
|
||||||
>PUSHW ZPPtr1
|
>PUSHW ZPPtr1
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
jsr Mod2CSTR
|
jsr Mod2CSTR
|
||||||
>PUSHW L.MSG.Mode
|
>PUSHW L.MSG.Mode
|
||||||
>PUSHEA.G MOD
|
>PUSHEA.G MOD
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW L.MSG.UIDGIDSIZE
|
>PUSHW L.MSG.UIDGIDSIZE
|
||||||
>PUSHW.G StatBuf+S.STAT.UID
|
>PUSHW.G StatBuf+S.STAT.UID
|
||||||
|
@ -125,7 +125,7 @@ CS.RUN.DUMP lda ArgFile
|
||||||
>PUSHL.G StatBuf+S.STAT.SIZE
|
>PUSHL.G StatBuf+S.STAT.SIZE
|
||||||
>PUSHL.G StatBuf+S.STAT.BLOCKS
|
>PUSHL.G StatBuf+S.STAT.BLOCKS
|
||||||
>PUSHBI 12
|
>PUSHBI 12
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
jsr CS.RUN.PrintAMCTime
|
jsr CS.RUN.PrintAMCTime
|
||||||
|
|
||||||
|
@ -211,7 +211,7 @@ CS.RUN.PrintAMCTime
|
||||||
>PUSHEA.G TIME.Mod
|
>PUSHEA.G TIME.Mod
|
||||||
>PUSHEA.G TIME.Access
|
>PUSHEA.G TIME.Access
|
||||||
>PUSHBI 6
|
>PUSHBI 6
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PrintAMCTime.NODATE
|
CS.RUN.PrintAMCTime.NODATE
|
||||||
|
|
|
@ -72,13 +72,13 @@ CS.RUN >LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG is TCPIP loaded ?
|
||||||
bmi CS.RUN.IPOK
|
bmi CS.RUN.IPOK
|
||||||
|
|
||||||
>LDYA L.MSG.IPKO
|
>LDYA L.MSG.IPKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
||||||
CS.RUN.IPOK ldy #S.PS.ARGC
|
CS.RUN.IPOK ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
bcc .9
|
bcc .9
|
||||||
ldy #S.IPCFG.IP+3
|
ldy #S.IPCFG.IP+3
|
||||||
|
@ -108,11 +108,11 @@ CS.RUN.IPOK ldy #S.PS.ARGC
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.UNKNOWN
|
>LDYA L.MSG.UNKNOWN
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bra .99
|
bra .99
|
||||||
|
|
||||||
.9 >LDYA L.MSG.USAGE
|
.9 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
.99 lda #E.SYN
|
.99 lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -137,7 +137,7 @@ CS.RUN.PORTOK lda #1
|
||||||
|
|
||||||
>PUSHBI 8
|
>PUSHBI 8
|
||||||
>LDYA L.MSG.HOSTOK
|
>LDYA L.MSG.HOSTOK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
lda #S.SOCKET.T.STREAM
|
lda #S.SOCKET.T.STREAM
|
||||||
|
@ -153,7 +153,7 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
|
|
||||||
.9 pha
|
.9 pha
|
||||||
>LDYA L.MSG.SKTKO
|
>LDYA L.MSG.SKTKO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -179,9 +179,9 @@ CS.RUN.OPENSKT >PUSHBI 0 no protocol
|
||||||
|
|
||||||
.4 >PUSHBI 0
|
.4 >PUSHBI 0
|
||||||
>LDYA L.MSG.SKTOK
|
>LDYA L.MSG.SKTOK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
>LDYAI BUFSIZE
|
>LDYAI BUFSIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPBufPtr
|
>STYA ZPBufPtr
|
||||||
|
@ -204,12 +204,12 @@ CS.RUN.LOOP >SLEEP
|
||||||
>PUSHYA len
|
>PUSHYA len
|
||||||
>PUSHW ZPBufPtr
|
>PUSHW ZPBufPtr
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
bcs .11
|
bcs .11
|
||||||
|
|
||||||
.2 ldy #S.PS.hStdIn
|
.2 ldy #S.PS.hStdIn
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
>SYSCALL feof
|
>SYSCALL feof
|
||||||
bcs .11 CS.RUN.IOERR
|
bcs .11 CS.RUN.IOERR
|
||||||
|
@ -219,7 +219,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
>PUSHWI BUFSIZE
|
>PUSHWI BUFSIZE
|
||||||
>PUSHW ZPBufPtr
|
>PUSHW ZPBufPtr
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fread
|
>SYSCALL fread
|
||||||
.11 bcs CS.RUN.IOERR
|
.11 bcs CS.RUN.IOERR
|
||||||
|
|
||||||
|
@ -240,7 +240,7 @@ CS.RUN.SKTERR pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.SKTERR
|
>LDYA L.MSG.SKTERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -249,13 +249,13 @@ CS.RUN.IOERR pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.IOERR
|
>LDYA L.MSG.IOERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.USER >LDYA L.MSG.USER
|
CS.RUN.USER >LDYA L.MSG.USER
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -276,7 +276,7 @@ CS.QUIT lda hSocket
|
||||||
.1 lda hBuf
|
.1 lda hBuf
|
||||||
beq .2
|
beq .2
|
||||||
|
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.2 lda hLIBTCPIP
|
.2 lda hLIBTCPIP
|
||||||
beq .8
|
beq .8
|
||||||
|
|
|
@ -63,10 +63,10 @@ CS.RUN lda #1
|
||||||
|
|
||||||
stx hDev
|
stx hDev
|
||||||
>LDYA L.MSG.DEVOK
|
>LDYA L.MSG.DEVOK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
>LDYAI BUFSIZE
|
>LDYAI BUFSIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPBufPtr
|
>STYA ZPBufPtr
|
||||||
|
@ -75,7 +75,7 @@ CS.RUN lda #1
|
||||||
bra CS.RUN.LOOP
|
bra CS.RUN.LOOP
|
||||||
|
|
||||||
.9 >LDYA L.MSG.USAGE
|
.9 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -99,12 +99,12 @@ CS.RUN.LOOP >SLEEP
|
||||||
.1 >PUSHYA len
|
.1 >PUSHYA len
|
||||||
>PUSHW ZPBufPtr
|
>PUSHW ZPBufPtr
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.2 ldy #S.PS.hStdIn
|
.2 ldy #S.PS.hStdIn
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
>SYSCALL feof
|
>SYSCALL feof
|
||||||
bcs .9
|
bcs .9
|
||||||
|
@ -114,7 +114,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
>PUSHWI BUFSIZE
|
>PUSHWI BUFSIZE
|
||||||
>PUSHW ZPBufPtr
|
>PUSHW ZPBufPtr
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fread
|
>SYSCALL fread
|
||||||
.3 bcs .9
|
.3 bcs .9
|
||||||
|
|
||||||
|
@ -144,12 +144,12 @@ CS.DOEVENT lda (pEvent)
|
||||||
CS.QUIT lda hDev
|
CS.QUIT lda hDev
|
||||||
beq .1
|
beq .1
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.1 lda hBuf
|
.1 lda hBuf
|
||||||
beq .2
|
beq .2
|
||||||
|
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.2 clc
|
.2 clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -63,7 +63,7 @@ CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYAI CHNK.SIZE
|
CS.RUN >LDYAI CHNK.SIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPInBufPtr
|
>STYA ZPInBufPtr
|
||||||
txa
|
txa
|
||||||
|
@ -77,7 +77,7 @@ CS.RUN >LDYAI CHNK.SIZE
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPFullPathPtr
|
>STYA ZPFullPathPtr
|
||||||
|
@ -90,12 +90,12 @@ CS.RUN >LDYAI CHNK.SIZE
|
||||||
|
|
||||||
ldy #S.PS.hCWD
|
ldy #S.PS.hCWD
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
|
|
||||||
.1 jsr CS.RUN.SetupPath
|
.1 jsr CS.RUN.SetupPath
|
||||||
|
|
||||||
>LDYAI CHNK.SIZE
|
>LDYAI CHNK.SIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
txa
|
txa
|
||||||
|
@ -110,7 +110,7 @@ CS.RUN >LDYAI CHNK.SIZE
|
||||||
|
|
||||||
.99 >PUSHBI 0
|
.99 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -153,7 +153,7 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
|
||||||
jsr CS.RUN.CheckDir
|
jsr CS.RUN.CheckDir
|
||||||
bcs .99
|
bcs .99
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
bra CS.RUN.LOOP
|
bra CS.RUN.LOOP
|
||||||
clc
|
clc
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -202,7 +202,7 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
|
||||||
sta ZPOutBufLen+1
|
sta ZPOutBufLen+1
|
||||||
|
|
||||||
>LDA.G hOutBuf
|
>LDA.G hOutBuf
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>STYA ZPOutBufPtr
|
>STYA ZPOutBufPtr
|
||||||
|
|
||||||
jsr X.Unpak
|
jsr X.Unpak
|
||||||
|
@ -223,15 +223,15 @@ CS.RUN.LOOP jsr CS.RUN.GetByte
|
||||||
jmp .10
|
jmp .10
|
||||||
|
|
||||||
.8 >LDA.G hFile
|
.8 >LDA.G hFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PrintFN >PUSHW ZPFullPathPtr
|
CS.RUN.PrintFN >PUSHW ZPFullPathPtr
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.DIR,x
|
>LDYA L.MSG.DIR,x
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.OpenArc pha
|
CS.RUN.OpenArc pha
|
||||||
|
@ -262,7 +262,7 @@ CS.RUN.OpenArc pha
|
||||||
.99
|
.99
|
||||||
CS.RUN.E.IARC >PUSHBI 0
|
CS.RUN.E.IARC >PUSHBI 0
|
||||||
>LDYA L.MSG.E.IARC
|
>LDYA L.MSG.E.IARC
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -294,7 +294,7 @@ CS.RUN.GetFileName
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.ReadData >PUSHW ZPInBufLen
|
CS.RUN.ReadData >PUSHW ZPInBufLen
|
||||||
>LDA.G hInBuf
|
>LDA.G hInBuf
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>STYA ZPInBufPtr
|
>STYA ZPInBufPtr
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>LDA.G hArcFile
|
>LDA.G hArcFile
|
||||||
|
@ -338,7 +338,7 @@ CS.RUN.OpenFile >PUSHW.G FileAuxType
|
||||||
CS.RUN.WriteFile
|
CS.RUN.WriteFile
|
||||||
>PUSHW ZPOutBufLen
|
>PUSHW ZPOutBufLen
|
||||||
>LDA.G hOutBuf
|
>LDA.G hOutBuf
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>LDA.G hFile
|
>LDA.G hFile
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
|
@ -349,7 +349,7 @@ CS.DOEVENT sec
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT >LDA.G hFile
|
CS.QUIT >LDA.G hFile
|
||||||
beq .1
|
beq .1
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.1 >LDA.G hFullPath
|
.1 >LDA.G hFullPath
|
||||||
beq .2
|
beq .2
|
||||||
|
@ -366,7 +366,7 @@ CS.QUIT >LDA.G hFile
|
||||||
|
|
||||||
.4 >LDA.G hArcFile
|
.4 >LDA.G hArcFile
|
||||||
beq .8
|
beq .8
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -72,14 +72,14 @@ CS.INIT clc
|
||||||
* if RUN exits with CC, RN entered again
|
* if RUN exits with CC, RN entered again
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYAI S.PW
|
CS.RUN >LDYAI S.PW
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPPWPtr
|
>STYA ZPPWPtr
|
||||||
stx ZPhPW
|
stx ZPhPW
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPStrPtr
|
>STYA ZPStrPtr
|
||||||
|
@ -116,7 +116,7 @@ CS.RUN >LDYAI S.PW
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -136,7 +136,7 @@ CS.RUN.ROOT ldy #0
|
||||||
|
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.ROOTPWD1
|
>LDYA L.MSG.ROOTPWD1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .90
|
bcs .90
|
||||||
jsr CS.RUN.GetStr
|
jsr CS.RUN.GetStr
|
||||||
bcs .90
|
bcs .90
|
||||||
|
@ -146,7 +146,7 @@ CS.RUN.ROOT ldy #0
|
||||||
>SYSCALL MD5
|
>SYSCALL MD5
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.ROOTPWD2
|
>LDYA L.MSG.ROOTPWD2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
jsr CS.RUN.GetStr
|
jsr CS.RUN.GetStr
|
||||||
.90 bcs .9
|
.90 bcs .9
|
||||||
|
@ -168,7 +168,7 @@ CS.RUN.ROOT ldy #0
|
||||||
.9 rts
|
.9 rts
|
||||||
.99 >PUSHBI 0
|
.99 >PUSHBI 0
|
||||||
>LDYA L.MSG.MISMATCH
|
>LDYA L.MSG.MISMATCH
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -204,14 +204,14 @@ CS.RUN.GetStr stz ZPStrLen
|
||||||
bmi .1
|
bmi .1
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.BS
|
>LDYA L.MSG.BS
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bra .1
|
bra .1
|
||||||
.8 ldy ZPStrLen
|
.8 ldy ZPStrLen
|
||||||
lda #0
|
lda #0
|
||||||
sta (ZPStrPtr),y
|
sta (ZPStrPtr),y
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.CRLF
|
>LDYA L.MSG.CRLF
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CheckArg inc ArgIndex
|
CS.RUN.CheckArg inc ArgIndex
|
||||||
|
@ -277,7 +277,7 @@ CS.RUN.CheckArg inc ArgIndex
|
||||||
rts
|
rts
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.DUP
|
>LDYA L.MSG.DUP
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
CS.RUN.CheckArg.9
|
CS.RUN.CheckArg.9
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -351,10 +351,10 @@ CS.DOEVENT sec
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT lda ZPhStr
|
CS.QUIT lda ZPhStr
|
||||||
beq .1
|
beq .1
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.1 lda ZPhPW
|
.1 lda ZPhPW
|
||||||
beq .2
|
beq .2
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.2 clc
|
.2 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -57,12 +57,12 @@ CS.INIT clc
|
||||||
* if RUN exits with CC, RN entered again
|
* if RUN exits with CC, RN entered again
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYAI S.PW
|
CS.RUN >LDYAI S.PW
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPPWPtr
|
>STYA ZPPWPtr
|
||||||
stx ZPhPW
|
stx ZPhPW
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPStrPtr
|
>STYA ZPStrPtr
|
||||||
stx ZPhStr
|
stx ZPhStr
|
||||||
|
@ -89,7 +89,7 @@ CS.RUN >LDYAI S.PW
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.INV
|
>LDYA L.MSG.INV
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.IUSR
|
lda #E.IUSR
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -120,7 +120,7 @@ CS.RUN.CheckArg inc ArgIndex
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -183,10 +183,10 @@ CS.DOEVENT sec
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT lda ZPhStr
|
CS.QUIT lda ZPhStr
|
||||||
beq .8
|
beq .8
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.1 lda ZPhPW
|
.1 lda ZPhPW
|
||||||
beq .8
|
beq .8
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
20
BIN/WC.S.txt
20
BIN/WC.S.txt
|
@ -84,7 +84,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
|
|
||||||
.9 >PUSHBI 0
|
.9 >PUSHBI 0
|
||||||
>LDYA L.MSG.USAGE
|
>LDYA L.MSG.USAGE
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -112,7 +112,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
jmp CS.RUN.PIPE
|
jmp CS.RUN.PIPE
|
||||||
|
|
||||||
.6 >LDYAI 256
|
.6 >LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPFullPath
|
>STYA ZPFullPath
|
||||||
txa
|
txa
|
||||||
|
@ -137,7 +137,7 @@ CS.RUN >INC.G ArgIndex
|
||||||
sta ZPRelPath+1
|
sta ZPRelPath+1
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPLineBuf
|
>STYA ZPLineBuf
|
||||||
txa
|
txa
|
||||||
|
@ -196,7 +196,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
|
||||||
.99 rts
|
.99 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PIPE >LDYAI 256
|
CS.RUN.PIPE >LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPLineBuf
|
>STYA ZPLineBuf
|
||||||
txa
|
txa
|
||||||
|
@ -319,7 +319,7 @@ CS.RUN.CheckErr bcc .9
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>LDYA L.MSG.ERR
|
>LDYA L.MSG.ERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda bContinue
|
lda bContinue
|
||||||
eor #$80
|
eor #$80
|
||||||
asl
|
asl
|
||||||
|
@ -357,7 +357,7 @@ CS.RUN.OpenFile ldx #12
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CloseFile
|
CS.RUN.CloseFile
|
||||||
>LDA.G hFile
|
>LDA.G hFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
bcs .9
|
bcs .9
|
||||||
>STZ.G hFile
|
>STZ.G hFile
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -431,7 +431,7 @@ CS.RUN.PrintFstat
|
||||||
adc #2
|
adc #2
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.FILE1-2,x
|
>LDYA L.MSG.FILE1-2,x
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.4 >PUSHL.G fWordCount
|
.4 >PUSHL.G fWordCount
|
||||||
|
@ -439,7 +439,7 @@ CS.RUN.PrintFstat
|
||||||
>PUSHL.G fCharCount
|
>PUSHL.G fCharCount
|
||||||
>PUSHBI 14
|
>PUSHBI 14
|
||||||
>LDYA L.MSG.FILE3
|
>LDYA L.MSG.FILE3
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.PrintTstat
|
CS.RUN.PrintTstat
|
||||||
|
@ -474,7 +474,7 @@ CS.RUN.PrintTstat
|
||||||
asl
|
asl
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>LDYA L.MSG.TOTAL1-2,x
|
>LDYA L.MSG.TOTAL1-2,x
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.8 rts
|
.8 rts
|
||||||
|
|
||||||
.4 >PUSHL.G tWordCount
|
.4 >PUSHL.G tWordCount
|
||||||
|
@ -482,7 +482,7 @@ CS.RUN.PrintTstat
|
||||||
>PUSHL.G tCharCount
|
>PUSHL.G tCharCount
|
||||||
>PUSHBI 12
|
>PUSHBI 12
|
||||||
>LDYA L.MSG.TOTAL3
|
>LDYA L.MSG.TOTAL3
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DOEVENT sec
|
CS.DOEVENT sec
|
||||||
|
|
|
@ -45,7 +45,7 @@ CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYA L.MSG0
|
CS.RUN >LDYA L.MSG0
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
ldx #1
|
ldx #1
|
||||||
stx SessionID
|
stx SessionID
|
||||||
|
@ -87,7 +87,7 @@ CS.RUN >LDYA L.MSG0
|
||||||
|
|
||||||
>PUSHBI 9 total = 9 ... bytes
|
>PUSHBI 9 total = 9 ... bytes
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.7 inc SessionID
|
.7 inc SessionID
|
||||||
|
|
|
@ -66,7 +66,7 @@ CS.INIT
|
||||||
|
|
||||||
.99 >PUSHW L.MSG.USAGE
|
.99 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -105,21 +105,21 @@ CS.INIT
|
||||||
>LDA.G hDstBasePath
|
>LDA.G hDstBasePath
|
||||||
bne .8 we also have a Dst folder
|
bne .8 we also have a Dst folder
|
||||||
ldy #S.PS.hCWD no dst folder, use actual prefix
|
ldy #S.PS.hCWD no dst folder, use actual prefix
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL GetMemPtr
|
>SYSCALL GetMemPtr
|
||||||
jsr InitDstDirYA
|
jsr InitDstDirYA
|
||||||
bcs .99
|
bcs .99
|
||||||
.FIN
|
.FIN
|
||||||
|
|
||||||
.8 >LDYAI 256
|
.8 >LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
txa
|
txa
|
||||||
>STA.G hSrcFullPath
|
>STA.G hSrcFullPath
|
||||||
|
|
||||||
.DO X.COPY.TO.DEST=1
|
.DO X.COPY.TO.DEST=1
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
txa
|
txa
|
||||||
>STA.G hDstFullPath
|
>STA.G hDstFullPath
|
||||||
|
@ -130,7 +130,7 @@ CS.INIT.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.hStdIn
|
CS.RUN ldy #S.PS.hStdIn
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>SYSCALL feof
|
>SYSCALL FEOF
|
||||||
bcs CS.INIT.RTS I/O error
|
bcs CS.INIT.RTS I/O error
|
||||||
tay
|
tay
|
||||||
bne .15
|
bne .15
|
||||||
|
@ -200,7 +200,7 @@ CS.RUN ldy #S.PS.hStdIn
|
||||||
ldy #hSrcFullPath
|
ldy #hSrcFullPath
|
||||||
jsr CS.RUN.GetPathY
|
jsr CS.RUN.GetPathY
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>SYSCALL remove
|
>SYSCALL Remove
|
||||||
bcs .22
|
bcs .22
|
||||||
jsr CS.RUN.CheckErr Success!!!
|
jsr CS.RUN.CheckErr Success!!!
|
||||||
jsr CS.RUN.IncCount
|
jsr CS.RUN.IncCount
|
||||||
|
@ -257,7 +257,7 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
|
||||||
ldy #hSrcFullPath
|
ldy #hSrcFullPath
|
||||||
jsr CS.RUN.GetPathY
|
jsr CS.RUN.GetPathY
|
||||||
|
|
||||||
>SYSCALL remove
|
>SYSCALL Remove
|
||||||
jsr CS.RUN.CheckErr
|
jsr CS.RUN.CheckErr
|
||||||
bcs .99
|
bcs .99
|
||||||
* .FIN
|
* .FIN
|
||||||
|
@ -276,7 +276,7 @@ CS.RUN.LEAVE jsr LeaveSubDir exit this sub dir....
|
||||||
>PUSHB (pData),y
|
>PUSHB (pData),y
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.91 ldy #RC
|
.91 ldy #RC
|
||||||
lda (pData),y get global RC in case of bContinue
|
lda (pData),y get global RC in case of bContinue
|
||||||
|
@ -325,7 +325,7 @@ CS.RUN.DIR .DO X.COPY.TO.DEST=1
|
||||||
bra .4
|
bra .4
|
||||||
.3 ldy #hDstFullPath
|
.3 ldy #hDstFullPath
|
||||||
jsr CS.RUN.GetPathY
|
jsr CS.RUN.GetPathY
|
||||||
>SYSCALL mkdir
|
>SYSCALL MKDir
|
||||||
.4 jsr CS.RUN.CheckErr
|
.4 jsr CS.RUN.CheckErr
|
||||||
bcs CS.RUN.DIR.RTS
|
bcs CS.RUN.DIR.RTS
|
||||||
jsr CS.RUN.IncCount
|
jsr CS.RUN.IncCount
|
||||||
|
@ -443,7 +443,7 @@ CS.RUN.FILE.MSG clc
|
||||||
|
|
||||||
.FIN
|
.FIN
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
@ -460,13 +460,13 @@ CS.RUN.OVERWRITE.MSG
|
||||||
jsr CS.RUN.GetPathY
|
jsr CS.RUN.GetPathY
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
.FIN
|
.FIN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CR >PUSHW L.MSG.CRLF
|
CS.RUN.CR >PUSHW L.MSG.CRLF
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DO X.COPY.TO.DEST=1
|
.DO X.COPY.TO.DEST=1
|
||||||
|
@ -509,7 +509,7 @@ CS.RUN.CopyStart
|
||||||
|
|
||||||
.9 pha
|
.9 pha
|
||||||
>LDA.G hSrcFile
|
>LDA.G hSrcFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
|
|
||||||
|
@ -536,7 +536,7 @@ CS.RUN.Open pha Save open mode
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.Copy >STZ.G hCopyBuf
|
CS.RUN.Copy >STZ.G hCopyBuf
|
||||||
>LDYAI X.COPY.BUF.SIZE
|
>LDYAI X.COPY.BUF.SIZE
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
@ -575,10 +575,10 @@ CS.RUN.Copy >STZ.G hCopyBuf
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CopyEnd >LDA.G hSrcFile
|
CS.RUN.CopyEnd >LDA.G hSrcFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
>LDA.G hDstFile
|
>LDA.G hDstFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
>STZ.G bCopy
|
>STZ.G bCopy
|
||||||
clc
|
clc
|
||||||
|
@ -591,7 +591,7 @@ CS.RUN.CheckErr bcs .1
|
||||||
bmi .8
|
bmi .8
|
||||||
|
|
||||||
>LDYA L.MSG.OK
|
>LDYA L.MSG.OK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
.8 rts
|
.8 rts
|
||||||
|
|
||||||
.1 pha
|
.1 pha
|
||||||
|
@ -600,7 +600,7 @@ CS.RUN.CheckErr bcs .1
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDA.G bContinue
|
>LDA.G bContinue
|
||||||
eor #$80
|
eor #$80
|
||||||
|
@ -669,10 +669,10 @@ CS.QUIT jsr LeaveSubDir
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
>LDA.G hSrcFile
|
>LDA.G hSrcFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
>LDA.G hDstFile
|
>LDA.G hDstFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.1 ldy #hDstFullPath
|
.1 ldy #hDstFullPath
|
||||||
jsr .7
|
jsr .7
|
||||||
|
|
|
@ -2,7 +2,7 @@ NEW
|
||||||
AUTO 3,1
|
AUTO 3,1
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Index .BS 1
|
index .BS 1
|
||||||
hDIRs .BS X.MAX.RECURSE+1
|
hDIRs .BS X.MAX.RECURSE+1
|
||||||
hDIRENTs .BS X.MAX.RECURSE+1
|
hDIRENTs .BS X.MAX.RECURSE+1
|
||||||
oDIRENTs .BS X.MAX.RECURSE*2
|
oDIRENTs .BS X.MAX.RECURSE*2
|
||||||
|
|
|
@ -39,7 +39,7 @@ L.FD.DEV.NAME .DA FD.DEV.NAME
|
||||||
.DA 0 End Of Reloc Table
|
.DA 0 End Of Reloc Table
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Dev.Detect >LDYA L.MSG.DETECT
|
Dev.Detect >LDYA L.MSG.DETECT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda MACHID
|
lda MACHID
|
||||||
and #MACHID.T
|
and #MACHID.T
|
||||||
cmp #MACHID.T.IIc
|
cmp #MACHID.T.IIc
|
||||||
|
@ -76,7 +76,7 @@ Dev.Detect >LDYA L.MSG.DETECT
|
||||||
bit DCB+S.DCB.GFX.S
|
bit DCB+S.DCB.GFX.S
|
||||||
bmi .3
|
bmi .3
|
||||||
>LDYA L.MSG.DETECT.80C
|
>LDYA L.MSG.DETECT.80C
|
||||||
.3 >SYSCALL puts
|
.3 >SYSCALL PutS
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
|
|
@ -47,7 +47,7 @@ L.MAC5 .DA DCB+S.DCB.NIC.MAC+5
|
||||||
Dev.Detect >STYA ARGS
|
Dev.Detect >STYA ARGS
|
||||||
|
|
||||||
>LDYA L.MSG.DETECT
|
>LDYA L.MSG.DETECT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
ldx #$70
|
ldx #$70
|
||||||
ldy #7
|
ldy #7
|
||||||
|
|
||||||
|
@ -67,7 +67,7 @@ Dev.Detect >STYA ARGS
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
|
@ -82,7 +82,7 @@ Dev.Detect >STYA ARGS
|
||||||
.8 >PUSHW L.MSG.DETECT.OK
|
.8 >PUSHW L.MSG.DETECT.OK
|
||||||
>PUSHW L.FD.DEV.NAME
|
>PUSHW L.FD.DEV.NAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
|
|
@ -60,7 +60,7 @@ Dev.Detect >STYA ARGS
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #MLI.E.NODEV Not Found in any slot, exiting
|
lda #MLI.E.NODEV Not Found in any slot, exiting
|
||||||
sec
|
sec
|
||||||
|
@ -86,7 +86,7 @@ Dev.Detect >STYA ARGS
|
||||||
.8 >PUSHW L.MSG.DETECT.OK
|
.8 >PUSHW L.MSG.DETECT.OK
|
||||||
>PUSHW L.FD.DEV.NAME
|
>PUSHW L.FD.DEV.NAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
|
|
@ -38,7 +38,7 @@ L.FD.DEV.NAME .DA FD.DEV.NAME
|
||||||
.DA 0 End Of Reloc Table
|
.DA 0 End Of Reloc Table
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Dev.Detect >LDYA L.MSG.DETECT
|
Dev.Detect >LDYA L.MSG.DETECT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
stz ZPSlotPtr
|
stz ZPSlotPtr
|
||||||
lda #$C1
|
lda #$C1
|
||||||
|
@ -57,7 +57,7 @@ Dev.Detect >LDYA L.MSG.DETECT
|
||||||
cmp #$C8
|
cmp #$C8
|
||||||
bne .1
|
bne .1
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.9 lda #MLI.E.NODEV
|
.9 lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
|
@ -78,7 +78,7 @@ Dev.Detect >LDYA L.MSG.DETECT
|
||||||
>PUSHW L.FD.DEV.NAME
|
>PUSHW L.FD.DEV.NAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.DETECT.OK
|
>LDYA L.MSG.DETECT.OK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
|
|
@ -34,7 +34,7 @@ L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Dev.Detect >STYA ARGS
|
Dev.Detect >STYA ARGS
|
||||||
>LDYA L.MSG.DETECT
|
>LDYA L.MSG.DETECT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
stz ZPTmpPtr1
|
stz ZPTmpPtr1
|
||||||
lda #$C1
|
lda #$C1
|
||||||
sta ZPTmpPtr1+1
|
sta ZPTmpPtr1+1
|
||||||
|
@ -57,7 +57,7 @@ Dev.Detect >STYA ARGS
|
||||||
cmp #$C8
|
cmp #$C8
|
||||||
bne .1
|
bne .1
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda #MLI.E.NODEV Not Found in any slot, exiting
|
lda #MLI.E.NODEV Not Found in any slot, exiting
|
||||||
sec
|
sec
|
||||||
|
@ -80,7 +80,7 @@ Dev.Detect >STYA ARGS
|
||||||
|
|
||||||
>PUSHW L.DEV.HEADER.NAME
|
>PUSHW L.DEV.HEADER.NAME
|
||||||
>LDYA L.MSG.DETECT.OK
|
>LDYA L.MSG.DETECT.OK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -46,7 +46,7 @@ L.MAC5 .DA DCB+S.DCB.NIC.MAC+5
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Dev.Detect >STYA ARGS
|
Dev.Detect >STYA ARGS
|
||||||
>LDYA L.MSG.DETECT
|
>LDYA L.MSG.DETECT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
ldx #$70
|
ldx #$70
|
||||||
ldy #7
|
ldy #7
|
||||||
|
|
||||||
|
@ -71,7 +71,7 @@ Dev.Detect >STYA ARGS
|
||||||
dey
|
dey
|
||||||
bne .1
|
bne .1
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
|
@ -92,7 +92,7 @@ Dev.Detect >STYA ARGS
|
||||||
.8 >PUSHW L.MSG.DETECT.OK
|
.8 >PUSHW L.MSG.DETECT.OK
|
||||||
>PUSHW L.FD.DEV.NAME
|
>PUSHW L.FD.DEV.NAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
|
|
@ -50,7 +50,7 @@ L.DCB.STOP .DA DCB+S.DCB.COM.STOP
|
||||||
Dev.Detect >STYA ARGS
|
Dev.Detect >STYA ARGS
|
||||||
|
|
||||||
>LDYA L.MSG.DETECT
|
>LDYA L.MSG.DETECT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
stz ZPArgPtr
|
stz ZPArgPtr
|
||||||
lda #$C1
|
lda #$C1
|
||||||
sta ZPArgPtr+1
|
sta ZPArgPtr+1
|
||||||
|
@ -74,7 +74,7 @@ Dev.Detect >STYA ARGS
|
||||||
cmp #$C8
|
cmp #$C8
|
||||||
bne .1
|
bne .1
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #MLI.E.NODEV Not Found in any slot, exiting
|
lda #MLI.E.NODEV Not Found in any slot, exiting
|
||||||
sec
|
sec
|
||||||
|
@ -100,7 +100,7 @@ Dev.Detect >STYA ARGS
|
||||||
.8 >PUSHW L.MSG.DETECT.OK
|
.8 >PUSHW L.MSG.DETECT.OK
|
||||||
>PUSHW L.FD.DEV.NAME
|
>PUSHW L.FD.DEV.NAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
@ -124,12 +124,12 @@ Dev.ParseArgs >LDYA ARGS
|
||||||
.1 stz ZPhParity
|
.1 stz ZPhParity
|
||||||
stz ZPhControl
|
stz ZPhControl
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .2
|
bcs .2
|
||||||
>STYA ZPParityPtr
|
>STYA ZPParityPtr
|
||||||
stx ZPhParity
|
stx ZPhParity
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
.2 bcs .90
|
.2 bcs .90
|
||||||
>STYA ZPControlPtr
|
>STYA ZPControlPtr
|
||||||
stx ZPhControl
|
stx ZPhControl
|
||||||
|
@ -148,11 +148,11 @@ Dev.ParseArgs >LDYA ARGS
|
||||||
bcs .90
|
bcs .90
|
||||||
.90 lda ZPhControl
|
.90 lda ZPhControl
|
||||||
beq .91
|
beq .91
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.91 lda ZPhParity
|
.91 lda ZPhParity
|
||||||
beq .92
|
beq .92
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.92 lda #E.SYN
|
.92 lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
|
|
@ -44,7 +44,7 @@ L.MAC5 .DA DCB+S.DCB.NIC.MAC+5
|
||||||
Dev.Detect >STYA ARGS
|
Dev.Detect >STYA ARGS
|
||||||
|
|
||||||
>LDYA L.MSG.DETECT
|
>LDYA L.MSG.DETECT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
ldx #$70+$88
|
ldx #$70+$88
|
||||||
ldy #7
|
ldy #7
|
||||||
|
@ -88,7 +88,7 @@ Dev.Detect >STYA ARGS
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
>LDYA L.MSG.DETECT.KO
|
>LDYA L.MSG.DETECT.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
|
@ -106,7 +106,7 @@ Dev.Detect >STYA ARGS
|
||||||
>PUSHW L.MSG.DETECT.OK
|
>PUSHW L.MSG.DETECT.OK
|
||||||
>PUSHW L.FD.DEV.NAME
|
>PUSHW L.FD.DEV.NAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI DRV.END
|
>PUSHWI DRV.END
|
||||||
>PUSHWI DRV.CS.END-DRV.CS.START
|
>PUSHWI DRV.CS.END-DRV.CS.START
|
||||||
|
|
|
@ -26,7 +26,7 @@ ZPLIB .EQ $40 32 bytes
|
||||||
CORE.PSIndex .EQ $D0
|
CORE.PSIndex .EQ $D0
|
||||||
CORE.PSCount .EQ $D1
|
CORE.PSCount .EQ $D1
|
||||||
|
|
||||||
pPs .EQ $D2
|
pPS .EQ $D2
|
||||||
pEvent .EQ $D4
|
pEvent .EQ $D4
|
||||||
* .EQ $D6
|
* .EQ $D6
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -158,7 +158,7 @@ FPU.FOUT .EQ 58 PrintF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.MA FPU
|
.MA FPU
|
||||||
ldx #FPU.]1
|
ldx #FPU.]1
|
||||||
jsr A2osX.FpuCall
|
jsr A2osX.FPUCALL
|
||||||
.EM
|
.EM
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* Global DATA Segment Access
|
* Global DATA Segment Access
|
||||||
|
|
|
@ -635,7 +635,7 @@ Pak.PrintStats lda Pak.BL.OfsBitsL
|
||||||
|
|
||||||
>PUSHBI 23
|
>PUSHBI 23
|
||||||
>LDYA L.MSG.Stats
|
>LDYA L.MSG.Stats
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
ldx #TOP.MAX-1
|
ldx #TOP.MAX-1
|
||||||
|
|
||||||
|
@ -647,7 +647,7 @@ Pak.PrintStats lda Pak.BL.OfsBitsL
|
||||||
|
|
||||||
>PUSHBI TOP.MAX+1
|
>PUSHBI TOP.MAX+1
|
||||||
>LDYA L.MSG.TopBytes
|
>LDYA L.MSG.TopBytes
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
bit Pak.bPass2
|
bit Pak.bPass2
|
||||||
bpl .9
|
bpl .9
|
||||||
|
|
|
@ -579,7 +579,7 @@ DEBUG.IPID ldy #S.IP.IDENTIFICATION
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.IPID
|
>LDYA L.MSG.IPID
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
.FIN
|
.FIN
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -82,14 +82,14 @@ CS.RUN jsr CS.RUN.CheckArgs
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
.90 >LDYA L.MSG.USAGE
|
.90 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.CheckArgs
|
CS.RUN.CheckArgs
|
||||||
ldy #S.PS.ARGC
|
ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #3
|
cmp #3
|
||||||
bcc .9
|
bcc .9
|
||||||
|
|
||||||
|
@ -109,7 +109,7 @@ CS.RUN.CheckArgs
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYA L.MSG.UNKNOWN
|
>LDYA L.MSG.UNKNOWN
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
.2 lda #AF.INET
|
.2 lda #AF.INET
|
||||||
|
|
|
@ -61,7 +61,7 @@ CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #2
|
cmp #2
|
||||||
|
|
||||||
bcc .9
|
bcc .9
|
||||||
|
@ -93,7 +93,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
|
|
||||||
.9 >PUSHW L.MSG.USAGE
|
.9 >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
.99 rts
|
.99 rts
|
||||||
|
@ -105,7 +105,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
ldy #S.PS.hStdErr
|
ldy #S.PS.hStdErr
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
sta hErr
|
sta hErr
|
||||||
|
|
||||||
lda ArgDev
|
lda ArgDev
|
||||||
|
@ -119,11 +119,11 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
iny #S.PS.hStdOut
|
iny #S.PS.hStdOut
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
iny #S.PS.hStdErr
|
iny #S.PS.hStdErr
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
sta hFILE
|
sta hFILE
|
||||||
|
|
||||||
CS.RUN.LOOP0 >SLEEP
|
CS.RUN.LOOP0 >SLEEP
|
||||||
|
@ -134,7 +134,7 @@ CS.RUN.LOOP0 >SLEEP
|
||||||
.1 >PUSHWI TELNETOPTS.LEN
|
.1 >PUSHWI TELNETOPTS.LEN
|
||||||
>PUSHW L.TELNETOPTS
|
>PUSHW L.TELNETOPTS
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
bcs CS.RUN.EXIT I/O error
|
bcs CS.RUN.EXIT I/O error
|
||||||
|
|
||||||
|
@ -212,7 +212,7 @@ CS.RUN.IAC.CMD cmp #WILL
|
||||||
>PUSHW L.TELNETOPT.LMODE
|
>PUSHW L.TELNETOPT.LMODE
|
||||||
|
|
||||||
.7 ldy #S.PS.hStdOut
|
.7 ldy #S.PS.hStdOut
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL fwrite
|
>SYSCALL fwrite
|
||||||
.8 jmp CS.RUN.LOOP1
|
.8 jmp CS.RUN.LOOP1
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -260,7 +260,7 @@ CS.RUN.GREETINGS
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DOEVENT lda (pEvent)
|
CS.DOEVENT lda (pEvent)
|
||||||
|
@ -275,7 +275,7 @@ CS.DOEVENT lda (pEvent)
|
||||||
CS.QUIT lda hFILE
|
CS.QUIT lda hFILE
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -75,7 +75,7 @@ CS.INIT >LDYA L.LIBTCPIP
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYA L.MSG.TCPWAIT
|
CS.RUN >LDYA L.MSG.TCPWAIT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
lda #TIMEOUT.MAX
|
lda #TIMEOUT.MAX
|
||||||
sta TimeOut
|
sta TimeOut
|
||||||
|
@ -92,7 +92,7 @@ CS.RUN >LDYA L.MSG.TCPWAIT
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL feof
|
>SYSCALL feof
|
||||||
bcs CS.RUN.RTS I/O err
|
bcs CS.RUN.RTS I/O err
|
||||||
tay
|
tay
|
||||||
|
@ -108,7 +108,7 @@ CS.RUN >LDYA L.MSG.TCPWAIT
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.99 >LDYA L.MSG.TCPIPERR
|
.99 >LDYA L.MSG.TCPIPERR
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
CS.RUN.SYN
|
CS.RUN.SYN
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
|
@ -162,7 +162,7 @@ CS.RUN.ARGSOK >PUSHBI 0 no protocol
|
||||||
bcs CS.RUN.ERR
|
bcs CS.RUN.ERR
|
||||||
|
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.RUN.ERR
|
bcs CS.RUN.ERR
|
||||||
|
|
||||||
>STYA ZPStrPtr
|
>STYA ZPStrPtr
|
||||||
|
@ -173,7 +173,7 @@ CS.RUN.ARGSOK >PUSHBI 0 no protocol
|
||||||
>PUSHW ZPRootDirPtr
|
>PUSHW ZPRootDirPtr
|
||||||
>PUSHBI 4
|
>PUSHBI 4
|
||||||
|
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
CS.RUN.LOOP >SLEEP
|
CS.RUN.LOOP >SLEEP
|
||||||
jsr CS.RUN.SERVER
|
jsr CS.RUN.SERVER
|
||||||
|
@ -181,7 +181,7 @@ CS.RUN.LOOP >SLEEP
|
||||||
bra CS.RUN.LOOP
|
bra CS.RUN.LOOP
|
||||||
|
|
||||||
.9 >LDYA L.MSG.SKTERR
|
.9 >LDYA L.MSG.SKTERR
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
CS.RUN.ERR rts
|
CS.RUN.ERR rts
|
||||||
|
@ -207,7 +207,7 @@ CS.RUN.SERVER lda hSrvSocket
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
>PUSHBI 5
|
>PUSHBI 5
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
jsr CS.RUN.CLIENT
|
jsr CS.RUN.CLIENT
|
||||||
.8 clc
|
.8 clc
|
||||||
|
@ -237,7 +237,7 @@ CS.RUN.CLIENT
|
||||||
bra .3
|
bra .3
|
||||||
|
|
||||||
lda hMsg
|
lda hMsg
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.7 >PUSHWI HTTP.200OK.len
|
.7 >PUSHWI HTTP.200OK.len
|
||||||
>PUSHW L.HTTP.200OK
|
>PUSHW L.HTTP.200OK
|
||||||
|
@ -251,7 +251,7 @@ CS.RUN.CLIENT
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.MSG.INIT sta hMsg
|
CS.RUN.MSG.INIT sta hMsg
|
||||||
>SYSCALL getmemptr
|
>SYSCALL GetMemptr
|
||||||
>STYA ZPMsgPtr
|
>STYA ZPMsgPtr
|
||||||
pha
|
pha
|
||||||
tya
|
tya
|
||||||
|
|
|
@ -70,7 +70,7 @@ CS.RUN ldy #S.PS.PID
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
>LDYA L.MSG.CTRLR
|
>LDYA L.MSG.CTRLR
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
>LDYA L.BINSH
|
>LDYA L.BINSH
|
||||||
jsr CS.RUN.EXEC.YA
|
jsr CS.RUN.EXEC.YA
|
||||||
|
@ -109,7 +109,7 @@ CS.RUN ldy #S.PS.PID
|
||||||
.99 rts
|
.99 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.ETCINIT >LDYAI 256
|
CS.RUN.ETCINIT >LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
>STYA BufPtr
|
>STYA BufPtr
|
||||||
stx hBuf
|
stx hBuf
|
||||||
|
|
||||||
|
@ -143,10 +143,10 @@ CS.RUN.ETCINIT >LDYAI 256
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.80 lda hFile
|
.80 lda hFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.81 lda hBuf
|
.81 lda hBuf
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -37,7 +37,7 @@ L.MSG.LOAD .DA MSG.LOAD
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #S.PS.ARGC
|
CS.RUN ldy #S.PS.ARGC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #1
|
cmp #1
|
||||||
bcc .9
|
bcc .9
|
||||||
|
|
||||||
|
@ -48,7 +48,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
lda #1 get PTR to ARG[1] (Driver name)
|
lda #1 get PTR to ARG[1] (Driver name)
|
||||||
|
@ -62,7 +62,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.9 >LDYA L.MSG.USAGE
|
.9 >LDYA L.MSG.USAGE
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #E.SYN tell TSKMGR that all done ok, but
|
lda #E.SYN tell TSKMGR that all done ok, but
|
||||||
sec we do not want to stay in memory
|
sec we do not want to stay in memory
|
||||||
.99 rts
|
.99 rts
|
||||||
|
|
|
@ -74,7 +74,7 @@ CS.INIT clc
|
||||||
CS.INIT.RTS rts
|
CS.INIT.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN >LDYAI 33 Enough for HASH
|
CS.RUN >LDYAI 33 Enough for HASH
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
|
|
||||||
>STYA ZPGetLinePtr
|
>STYA ZPGetLinePtr
|
||||||
|
@ -141,7 +141,7 @@ CS.RUN.AUTH lda #3
|
||||||
jmp CS.RUN.EXEC
|
jmp CS.RUN.EXEC
|
||||||
|
|
||||||
.8 >LDYA L.MSG.BAD
|
.8 >LDYA L.MSG.BAD
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
dec ZPRetryCnt
|
dec ZPRetryCnt
|
||||||
|
@ -171,7 +171,7 @@ CS.RUN.SetUserSession
|
||||||
txa
|
txa
|
||||||
tay
|
tay
|
||||||
lda #0
|
lda #0
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>STYA ZPStrPtr
|
>STYA ZPStrPtr
|
||||||
|
@ -213,7 +213,7 @@ CS.RUN.CHECKPWD rol ZPbValidUser
|
||||||
bcs CS.RUN.CHECK.9
|
bcs CS.RUN.CHECK.9
|
||||||
|
|
||||||
>LDYAI S.PW
|
>LDYAI S.PW
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs CS.RUN.CHECK.9
|
bcs CS.RUN.CHECK.9
|
||||||
|
|
||||||
>STYA ZPPWPtr
|
>STYA ZPPWPtr
|
||||||
|
@ -290,7 +290,7 @@ CS.RUN.EXEC ldx #1
|
||||||
lda S.Table.hSession-1,x
|
lda S.Table.hSession-1,x
|
||||||
stz S.Table.hSession-1,x
|
stz S.Table.hSession-1,x
|
||||||
stz S.Table.hFILE-1,x
|
stz S.Table.hFILE-1,x
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
ldy #S.PS.hSID
|
ldy #S.PS.hSID
|
||||||
lda ZPOldSID
|
lda ZPOldSID
|
||||||
|
@ -387,7 +387,7 @@ CS.RUN.GetLine sta ZPGetLineMax
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.StrOut >PUSHYA
|
CS.RUN.StrOut >PUSHYA
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.DumpFile >PUSHYA
|
CS.RUN.DumpFile >PUSHYA
|
||||||
|
@ -399,7 +399,7 @@ CS.RUN.DumpFile >PUSHYA
|
||||||
|
|
||||||
stx ZPhFile
|
stx ZPhFile
|
||||||
>LDYAI 256
|
>LDYAI 256
|
||||||
>SYSCALL getmem
|
>SYSCALL GetMem
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
>STYA ZPBufPtr
|
>STYA ZPBufPtr
|
||||||
|
@ -424,16 +424,16 @@ CS.RUN.DumpFile >PUSHYA
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
||||||
.2 phx
|
.2 phx
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
pla
|
pla
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.7 lda ZPhBuf
|
.7 lda ZPhBuf
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.8 lda ZPhFile
|
.8 lda ZPhFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DOEVENT
|
CS.DOEVENT
|
||||||
|
@ -445,13 +445,13 @@ CS.CLEANUP lda ZPhGetLine
|
||||||
beq CS.CLEANUP.hPW
|
beq CS.CLEANUP.hPW
|
||||||
|
|
||||||
stz ZPhGetLine
|
stz ZPhGetLine
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
CS.CLEANUP.hPW lda ZPhPW
|
CS.CLEANUP.hPW lda ZPhPW
|
||||||
beq .8
|
beq .8
|
||||||
|
|
||||||
stz ZPhPW
|
stz ZPhPW
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -70,7 +70,7 @@ CS.INIT lda DevID
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
||||||
.99 >LDYA L.MSG.RUNNING
|
.99 >LDYA L.MSG.RUNNING
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -86,7 +86,7 @@ CS.INIT.DEV >PUSHBI 0
|
||||||
bne CS.INIT.DEV
|
bne CS.INIT.DEV
|
||||||
|
|
||||||
>LDYA L.MSG.DEV.KO
|
>LDYA L.MSG.DEV.KO
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
lda #MLI.E.NODEV
|
lda #MLI.E.NODEV
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -96,7 +96,7 @@ CS.INIT.DEV >PUSHBI 0
|
||||||
>PUSHW L.MSG.DEV.OK
|
>PUSHW L.MSG.DEV.OK
|
||||||
>PUSHW L.DEVNAME
|
>PUSHW L.DEVNAME
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>LDYA L.DCB.NIC
|
>LDYA L.DCB.NIC
|
||||||
>STYA IOCTL+S.IOCTL.BUFPTR
|
>STYA IOCTL+S.IOCTL.BUFPTR
|
||||||
|
@ -122,7 +122,7 @@ CS.INIT.LIBS lda LibCnt
|
||||||
pha
|
pha
|
||||||
>PUSHYA
|
>PUSHYA
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
pla
|
pla
|
||||||
ply
|
ply
|
||||||
|
@ -204,7 +204,7 @@ CS.INIT.CONF >LDYAI 64
|
||||||
>PUSHW L.MSG.EXEC
|
>PUSHW L.MSG.EXEC
|
||||||
>PUSHW pBuf
|
>PUSHW pBuf
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHW pBuf
|
>PUSHW pBuf
|
||||||
>PUSHBI 0 S.PS.F.HOLD+S.PS.F.NOHUP
|
>PUSHBI 0 S.PS.F.HOLD+S.PS.F.NOHUP
|
||||||
|
@ -218,7 +218,7 @@ CS.INIT.CONF >LDYAI 64
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.80 lda hNetworkFile
|
.80 lda hNetworkFile
|
||||||
>SYSCALL fclose
|
>SYSCALL FClose
|
||||||
|
|
||||||
.81 lda hLineBuf
|
.81 lda hLineBuf
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
|
@ -251,7 +251,7 @@ CS.RUN >PUSHW L.IOCTL
|
||||||
bra .1
|
bra .1
|
||||||
|
|
||||||
.2 lda hFrameIn
|
.2 lda hFrameIn
|
||||||
>SYSCALL freemem
|
>SYSCALL FreeMem
|
||||||
bra CS.RUN
|
bra CS.RUN
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
|
|
|
@ -49,16 +49,16 @@ CS.INIT >LDYA L.LIBTCPIP
|
||||||
>SYSCALL LoadLibYA
|
>SYSCALL LoadLibYA
|
||||||
sta hLIBTCPIP
|
sta hLIBTCPIP
|
||||||
|
|
||||||
lda (pPs)
|
lda (pPS)
|
||||||
ora #S.PS.F.EVENT Now accept events
|
ora #S.PS.F.EVENT Now accept events
|
||||||
sta (pPs)
|
sta (pPS)
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN jsr Init.Timeout
|
CS.RUN jsr Init.Timeout
|
||||||
|
|
||||||
>LDYA L.MSG.TCPWAIT
|
>LDYA L.MSG.TCPWAIT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
|
.1 >LIBCALL hLIBTCPIP,LIBTCPIP.GET.IPCFG is TCPIP loaded ?
|
||||||
bcs .99
|
bcs .99
|
||||||
>STYA ZPIPCfgPtr
|
>STYA ZPIPCfgPtr
|
||||||
|
@ -68,7 +68,7 @@ CS.RUN jsr Init.Timeout
|
||||||
jsr Wait.Timeout
|
jsr Wait.Timeout
|
||||||
bcc .1
|
bcc .1
|
||||||
.99 >LDYA L.MSG.TCPIPERR
|
.99 >LDYA L.MSG.TCPIPERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -85,7 +85,7 @@ CS.RUN.INIT ldx #3
|
||||||
|
|
||||||
>STA.G hSocket
|
>STA.G hSocket
|
||||||
>LDYA L.MSG.INITOK
|
>LDYA L.MSG.INITOK
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.11 >SLEEP
|
.11 >SLEEP
|
||||||
ldy #bCTRLC
|
ldy #bCTRLC
|
||||||
|
@ -105,15 +105,15 @@ CS.RUN.INIT ldx #3
|
||||||
dex
|
dex
|
||||||
bpl .2
|
bpl .2
|
||||||
>LDYA L.MSG.INCOMING
|
>LDYA L.MSG.INCOMING
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
bra .11
|
bra .11
|
||||||
.9 >LDYA L.MSG.SKTERR
|
.9 >LDYA L.MSG.SKTERR
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
.99 >LDYA L.MSG.ABORT
|
.99 >LDYA L.MSG.ABORT
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
lda #0
|
lda #0
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
|
|
@ -66,7 +66,7 @@ CS.RUN lda #TIMEOUT.MAX
|
||||||
sta TimeOut
|
sta TimeOut
|
||||||
|
|
||||||
>LDYA L.MSG.TCPWAIT
|
>LDYA L.MSG.TCPWAIT
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
.1 >SLEEP
|
.1 >SLEEP
|
||||||
>LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG is TCPIP loaded ?
|
>LIBCALL hLIBTCPIP,LIBTCPIP.GETCFG is TCPIP loaded ?
|
||||||
|
@ -81,7 +81,7 @@ CS.RUN lda #TIMEOUT.MAX
|
||||||
beq .99
|
beq .99
|
||||||
|
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL feof
|
>SYSCALL feof
|
||||||
bcs .9 I/O err
|
bcs .9 I/O err
|
||||||
|
|
||||||
|
@ -98,7 +98,7 @@ CS.RUN lda #TIMEOUT.MAX
|
||||||
|
|
||||||
.99 pha
|
.99 pha
|
||||||
>LDYA L.MSG.TCPIPERR
|
>LDYA L.MSG.TCPIPERR
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -135,7 +135,7 @@ CS.RUN.PORTOK >PUSHBI 0 no protocol
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDYA L.MSG.INITOK
|
>LDYA L.MSG.INITOK
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
|
|
||||||
.2 >SLEEP
|
.2 >SLEEP
|
||||||
|
|
||||||
|
@ -153,7 +153,7 @@ CS.RUN.PORTOK >PUSHBI 0 no protocol
|
||||||
|
|
||||||
.9 pha
|
.9 pha
|
||||||
>LDYA L.MSG.SKTERR
|
>LDYA L.MSG.SKTERR
|
||||||
>SYSCALL puts
|
>SYSCALL PutS
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
@ -177,7 +177,7 @@ CS.RUN.CLIENT >SLEEP give some time for TCPIP SYN/ACK
|
||||||
bpl .1
|
bpl .1
|
||||||
|
|
||||||
>PUSHBI 5
|
>PUSHBI 5
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHEA.G NodBuf
|
>PUSHEA.G NodBuf
|
||||||
>PUSHW L.NOD.Template
|
>PUSHW L.NOD.Template
|
||||||
|
@ -207,7 +207,7 @@ CS.RUN.CLIENT1 >PUSHB hClientSocket
|
||||||
pla
|
pla
|
||||||
>PUSHA
|
>PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
|
@ -54,7 +54,7 @@ K.Shift jsr K.ArgV
|
||||||
*\--------------------------------------
|
*\--------------------------------------
|
||||||
K.ArgV tax save requested arg#
|
K.ArgV tax save requested arg#
|
||||||
ldy #S.PS.hARGV
|
ldy #S.PS.hARGV
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
jsr K.GetMemPtr
|
jsr K.GetMemPtr
|
||||||
|
|
||||||
>STYA ZPPtr2 Use Ptr2, called from ExpandStr
|
>STYA ZPPtr2 Use Ptr2, called from ExpandStr
|
||||||
|
|
|
@ -8,18 +8,18 @@ CORE.Run stz CORE.PSIndex
|
||||||
beq .8
|
beq .8
|
||||||
jsr K.GetMemPtr
|
jsr K.GetMemPtr
|
||||||
>STYA pPs
|
>STYA pPs
|
||||||
lda (pPs) get S.PS.F
|
lda (pPS) get S.PS.F
|
||||||
* bit #S.PS.F.HOLD Waiting for Another Task to Terminate?
|
* bit #S.PS.F.HOLD Waiting for Another Task to Terminate?
|
||||||
* beq .2
|
* beq .2
|
||||||
|
|
||||||
bpl .2
|
bpl .2
|
||||||
ldy #S.PS.CPID
|
ldy #S.PS.CPID
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
jsr CORE.GetPS
|
jsr CORE.GetPS
|
||||||
bcc .8 yes, still running....
|
bcc .8 yes, still running....
|
||||||
lda (pPs) get S.PS.F again
|
lda (pPS) get S.PS.F again
|
||||||
eor #S.PS.F.HOLD unmark as HOLD
|
eor #S.PS.F.HOLD unmark as HOLD
|
||||||
sta (pPs)
|
sta (pPS)
|
||||||
.2 jsr CORE.PSSelect Restore ZP & Ptrs
|
.2 jsr CORE.PSSelect Restore ZP & Ptrs
|
||||||
|
|
||||||
.3 jsr CORE.PSExec INIT/RUN/QUIT/RESUME
|
.3 jsr CORE.PSExec INIT/RUN/QUIT/RESUME
|
||||||
|
@ -29,22 +29,22 @@ CORE.Run stz CORE.PSIndex
|
||||||
jsr CORE.UpdateParentPS
|
jsr CORE.UpdateParentPS
|
||||||
ldy #S.PS.S
|
ldy #S.PS.S
|
||||||
lda #S.PS.S.QUIT
|
lda #S.PS.S.QUIT
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
bra .3 try executing QUIT now...
|
bra .3 try executing QUIT now...
|
||||||
.4 lda (pPs)
|
.4 lda (pPS)
|
||||||
bit #S.PS.F.SLEEP
|
bit #S.PS.F.SLEEP
|
||||||
bne .7
|
bne .7
|
||||||
ldy #S.PS.S
|
ldy #S.PS.S
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
bne .5
|
bne .5
|
||||||
lda #S.PS.S.RUN go from INIT to RUN
|
lda #S.PS.S.RUN go from INIT to RUN
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
bra .7
|
bra .7
|
||||||
.5 cmp #S.PS.S.QUIT
|
.5 cmp #S.PS.S.QUIT
|
||||||
bne .7
|
bne .7
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
ldy #S.PS.PID
|
ldy #S.PS.PID
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
>SYSCALL2 Kill
|
>SYSCALL2 Kill
|
||||||
bra .8
|
bra .8
|
||||||
.7 jsr CORE.PSLeave Save ZP & Ptrs
|
.7 jsr CORE.PSLeave Save ZP & Ptrs
|
||||||
|
@ -106,7 +106,7 @@ CORE.UpdateParentPS
|
||||||
tax save RC From INIT or RUN
|
tax save RC From INIT or RUN
|
||||||
|
|
||||||
ldy #S.PS.PPID Notify Parent Process for exit code...
|
ldy #S.PS.PPID Notify Parent Process for exit code...
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
beq .8 no parent process
|
beq .8 no parent process
|
||||||
jsr CORE.GetPSByID X unmodified
|
jsr CORE.GetPSByID X unmodified
|
||||||
bcs .8 parent is dead.....skipping...
|
bcs .8 parent is dead.....skipping...
|
||||||
|
@ -119,7 +119,7 @@ CORE.UpdateParentPS
|
||||||
ldy #S.PS.CPID
|
ldy #S.PS.CPID
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
dey #S.PS.PID
|
dey #S.PS.PID
|
||||||
cmp (pPs),y
|
cmp (pPS),y
|
||||||
bne .8 Hold, but not waiting this PS
|
bne .8 Hold, but not waiting this PS
|
||||||
txa waiting for this PS to terminate....
|
txa waiting for this PS to terminate....
|
||||||
ldy #S.PS.RC give it RC
|
ldy #S.PS.RC give it RC
|
||||||
|
@ -215,17 +215,17 @@ CORE.Dispatch stz CORE.PSIndex
|
||||||
jsr K.GetMemPtr
|
jsr K.GetMemPtr
|
||||||
>STYA pPS
|
>STYA pPS
|
||||||
|
|
||||||
lda (pPs)
|
lda (pPS)
|
||||||
bit #S.PS.F.EVENT Accept Events ?
|
bit #S.PS.F.EVENT Accept Events ?
|
||||||
beq .5
|
beq .5
|
||||||
|
|
||||||
ldy #S.PS.S
|
ldy #S.PS.S
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
cmp #S.PS.S.RUN
|
cmp #S.PS.S.RUN
|
||||||
bne .5
|
bne .5
|
||||||
|
|
||||||
lda #S.PS.S.DOEVENT Flag this PS for IRQ Mgr
|
lda #S.PS.S.DOEVENT Flag this PS for IRQ Mgr
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
jsr CORE.PSSelect
|
jsr CORE.PSSelect
|
||||||
|
|
||||||
lda #Evt.Table
|
lda #Evt.Table
|
||||||
|
@ -254,7 +254,7 @@ CORE.Dispatch stz CORE.PSIndex
|
||||||
|
|
||||||
.4 ldy #S.PS.S
|
.4 ldy #S.PS.S
|
||||||
lda #S.PS.S.RUN
|
lda #S.PS.S.RUN
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
jsr CORE.PSLeave
|
jsr CORE.PSLeave
|
||||||
.5 inc CORE.PSIndex
|
.5 inc CORE.PSIndex
|
||||||
ldx CORE.PSIndex
|
ldx CORE.PSIndex
|
||||||
|
@ -321,7 +321,7 @@ CORE.DestroyEvent
|
||||||
CORE.PSSelect ldy #S.PS.ZP.CODE+PSCTX.SIZE-1
|
CORE.PSSelect ldy #S.PS.ZP.CODE+PSCTX.SIZE-1
|
||||||
ldx #PSCTX.SIZE-1
|
ldx #PSCTX.SIZE-1
|
||||||
|
|
||||||
.1 lda (pPs),y
|
.1 lda (pPS),y
|
||||||
sta pCode,x
|
sta pCode,x
|
||||||
dey
|
dey
|
||||||
dex
|
dex
|
||||||
|
@ -333,7 +333,7 @@ CORE.PSLeave ldx #PSCTX.SIZE-1
|
||||||
ldy #S.PS.ZP.CODE+PSCTX.SIZE-1
|
ldy #S.PS.ZP.CODE+PSCTX.SIZE-1
|
||||||
|
|
||||||
.1 lda pCode,x
|
.1 lda pCode,x
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
dey
|
dey
|
||||||
dex
|
dex
|
||||||
bpl .1
|
bpl .1
|
||||||
|
@ -372,22 +372,22 @@ CORE.PSResume sei
|
||||||
inx
|
inx
|
||||||
bne .1
|
bne .1
|
||||||
.2 ldy #S.PS.PC+1
|
.2 ldy #S.PS.PC+1
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
pha
|
pha
|
||||||
dey #S.PS.PC
|
dey #S.PS.PC
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
pha
|
pha
|
||||||
dey #S.PS.P
|
dey #S.PS.P
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
pha
|
pha
|
||||||
dey #S.PS.Y
|
dey #S.PS.Y
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
pha
|
pha
|
||||||
dey #S.PS.X
|
dey #S.PS.X
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
tax
|
tax
|
||||||
dey #S.PS.A
|
dey #S.PS.A
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
ply
|
ply
|
||||||
inc IRQ.InKernel
|
inc IRQ.InKernel
|
||||||
|
|
|
@ -17,7 +17,7 @@ K.SetEnv
|
||||||
* >PULLW TXTPTR name
|
* >PULLW TXTPTR name
|
||||||
|
|
||||||
* ldy #S.PS.hENV
|
* ldy #S.PS.hENV
|
||||||
* lda (pPs),y
|
* lda (pPS),y
|
||||||
|
|
||||||
* jmp K.SYSCALL.JMPX
|
* jmp K.SYSCALL.JMPX
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
|
@ -39,7 +39,7 @@ K.GetEnv >PULLW FORPNT value
|
||||||
* >PULLW TXTPTR name
|
* >PULLW TXTPTR name
|
||||||
*
|
*
|
||||||
* ldy #S.PS.hENV
|
* ldy #S.PS.hENV
|
||||||
* lda (pPs),y
|
* lda (pPS),y
|
||||||
|
|
||||||
* jmp K.SYSCALL.JMPX
|
* jmp K.SYSCALL.JMPX
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
|
@ -69,7 +69,7 @@ K.UnsetEnv
|
||||||
* >PULLW TXTPTR name
|
* >PULLW TXTPTR name
|
||||||
|
|
||||||
ldy #S.PS.hENV
|
ldy #S.PS.hENV
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
|
|
||||||
jmp K.SYSCALL.JMPX
|
jmp K.SYSCALL.JMPX
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
|
|
@ -85,7 +85,7 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
|
||||||
txa
|
txa
|
||||||
sta CLRWRITEAUX
|
sta CLRWRITEAUX
|
||||||
ldy #S.PS.hENV
|
ldy #S.PS.hENV
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
sta SETWRITEAUX
|
sta SETWRITEAUX
|
||||||
bra .1 Start over
|
bra .1 Start over
|
||||||
|
|
||||||
|
|
|
@ -46,19 +46,19 @@ GP.Sleep php
|
||||||
|
|
||||||
phy
|
phy
|
||||||
ldy #S.PS.A
|
ldy #S.PS.A
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
txa
|
txa
|
||||||
iny #S.PS.X
|
iny #S.PS.X
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
pla
|
pla
|
||||||
iny #S.PS.Y
|
iny #S.PS.Y
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
pla
|
pla
|
||||||
iny #S.PS.P
|
iny #S.PS.P
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
pla get PC LO
|
pla get PC LO
|
||||||
plx get PC HI
|
plx get PC HI
|
||||||
|
@ -68,11 +68,11 @@ GP.Sleep php
|
||||||
inx
|
inx
|
||||||
|
|
||||||
GP.Sleep2 ldy #S.PS.PC
|
GP.Sleep2 ldy #S.PS.PC
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
txa
|
txa
|
||||||
iny #S.PS.PC+1
|
iny #S.PS.PC+1
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
tsx
|
tsx
|
||||||
|
|
||||||
|
@ -98,9 +98,9 @@ GP.Sleep2 ldy #S.PS.PC
|
||||||
inc $1fe PC=PC+1
|
inc $1fe PC=PC+1
|
||||||
bne .4
|
bne .4
|
||||||
inc $1ff because of RTI
|
inc $1ff because of RTI
|
||||||
.4 lda (pPs)
|
.4 lda (pPS)
|
||||||
ora #S.PS.F.SLEEP
|
ora #S.PS.F.SLEEP
|
||||||
sta (pPs)
|
sta (pPS)
|
||||||
lda #0 cld,clc,cli
|
lda #0 cld,clc,cli
|
||||||
pha
|
pha
|
||||||
rti exit to kernel with CC
|
rti exit to kernel with CC
|
||||||
|
@ -112,13 +112,13 @@ GP.SysCall dec IRQ.InKernel
|
||||||
pha
|
pha
|
||||||
phy
|
phy
|
||||||
ldy #S.PS.A
|
ldy #S.PS.A
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
txa
|
txa
|
||||||
iny #S.PS.X
|
iny #S.PS.X
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
pla
|
pla
|
||||||
iny #S.PS.Y
|
iny #S.PS.Y
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
tay
|
tay
|
||||||
pla
|
pla
|
||||||
jsr K.SYSCALL2
|
jsr K.SYSCALL2
|
||||||
|
|
|
@ -123,11 +123,11 @@ Kernel.Init3 sta SETALTZP
|
||||||
bcs *
|
bcs *
|
||||||
|
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
iny #S.PS.hStdOut
|
iny #S.PS.hStdOut
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
iny #S.PS.hStdErr
|
iny #S.PS.hStdErr
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Kernel.Init3C >PUSHWI MSG.Init3
|
Kernel.Init3C >PUSHWI MSG.Init3
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
|
@ -154,7 +154,7 @@ Kernel.Init3C >PUSHWI MSG.Init3
|
||||||
>PUSHWI MSG.EXEC
|
>PUSHWI MSG.EXEC
|
||||||
>PUSHWI SBININITD
|
>PUSHWI SBININITD
|
||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>SYSCALL printf
|
>SYSCALL PrintF
|
||||||
|
|
||||||
>PUSHWI SBININITD
|
>PUSHWI SBININITD
|
||||||
>PUSHBI 0 PS Flags
|
>PUSHBI 0 PS Flags
|
||||||
|
@ -999,7 +999,7 @@ TskMgrInit >LDYAI MSG.TSK
|
||||||
txa
|
txa
|
||||||
|
|
||||||
ldy #S.PS.hENV
|
ldy #S.PS.hENV
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
sta SETWRITEAUX
|
sta SETWRITEAUX
|
||||||
lda #0
|
lda #0
|
||||||
|
@ -1013,7 +1013,7 @@ TskMgrInit >LDYAI MSG.TSK
|
||||||
|
|
||||||
txa
|
txa
|
||||||
ldy #S.PS.hCWD
|
ldy #S.PS.hCWD
|
||||||
sta (pPs),y
|
sta (pPS),y
|
||||||
|
|
||||||
>PUSHWI I.ENV.BOOT
|
>PUSHWI I.ENV.BOOT
|
||||||
>PUSHWI $2C0 Get BOOT from QC
|
>PUSHWI $2C0 Get BOOT from QC
|
||||||
|
|
|
@ -190,7 +190,7 @@ K.IrqH.Switch inc IRQ.Tick
|
||||||
bvc .8
|
bvc .8
|
||||||
|
|
||||||
ldy #S.PS.S
|
ldy #S.PS.S
|
||||||
lda (pPs),y
|
lda (pPS),y
|
||||||
eor #S.PS.S.RUN
|
eor #S.PS.S.RUN
|
||||||
bne .9
|
bne .9
|
||||||
lda IRQ.InLib
|
lda IRQ.InLib
|
||||||
|
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue