6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-03-20 03:31:27 +00:00
Code Issues Projects Releases Wiki Activity

Network error messages and code cleanp

Browse Source
This commit is contained in:
David Schmenk 2018-04-23 13:29:54 -07:00
parent ea542905b7
commit e6fc45a798
5 changed files with 6 additions and 28 deletions

2
src/libsrc/etherip.pla

@ -378,12 +378,14 @@ end
// Open TCP socket in SERVER mode
//
def etherListenTCP(lclport, callback, param)
puts("TCP/IP not yet implented for this hardware.\n")
return 0
end
//
// Open TCP socket in CLIENT mode
//
def etherConnectTCP(remip, remport, lclport, callback, param)
puts("TCP/IP not yet implented for this hardware.\n")
return 0
end
//

1
src/libsrc/inet.pla

@ -213,6 +213,7 @@ def iNetInit
fin
driver = driver + ^driver + 1
loop
puts("No network adapters found.\n")
return NULL
end

4
src/vmsrc/apple/cmd.pla

@ -1132,9 +1132,9 @@ def loadmod(mod)#1
//
initcode = 0
if init
init = init + defofst
init = init + defofst
initcode = adddef(init, @deflast)()
if initcide < modinitkeep
if initcode < modinitkeep
//
// Free init routine unless initkeep
//

2
src/vmsrc/apple/cmdjit.pla

@ -1195,7 +1195,7 @@ def loadmod(mod)#1
//
initcode = 0
if init
init = init + defofst
init = init + defofst
initcode = adddef(deffirst, init, @deflast)()
if initcode < modinitkeep
//

25
src/vmsrc/apple/sossys.pla

@ -1190,31 +1190,6 @@ def loadmod(mod)#1
*addr = ^rld & $10 ?? *addr + lookupextern(esd, rld->3) :: lookupdef(fixup + codefix, deftbl)
rld = rld + 4
fin
//addr = rld=>1 + modfix
//if uword_isge(addr, modaddr) // Skip fixups to header
// if type & $80 // WORD sized fixup.
// fixup = *addr
// else // BYTE sized fixup.
// fixup = ^addr
// fin
// if ^rld & $10 // EXTERN reference.
// fixup = fixup + lookupextern(esd, rld->3)
// else // INTERN fixup.
// fixup = fixup + modofst
// if uword_isge(fixup, bytecode)
// //
// // Bytecode address - replace with call def directory.
// //
// fixup = lookupdef(fixup + codefix, deftbl)
// fin
// fin
// if type & $80 // WORD sized fixup.
// *addr = fixup
// else // BYTE sized fixup.
// ^addr = fixup
// fin
//fin
//rld = rld + 4
loop
//
// Run through the External/Entry Symbol Directory.