github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 07:34:12 +00:00
Code Issues Releases Wiki Activity

Added files and directories that support the MDL 55 runtime.

Browse Source
This commit is contained in:
Eric Swenson
2023-02-27 16:17:12 -08:00
parent e6cc51f558
commit d65e766017
647 changed files with 84263 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
bin/mbprog/ftpusr.fbin Normal file
View File

@@ -0,0 +1,40 @@
'<PCODE "HOSTS">
<PACKAGE "FTPUSR">
<ENTRY CONNECT SOAK UNSOAK ACC>
<USE "ICP">
<USE "DATIME">
<SETG CONNECT %<RSUBR!- '[ %<PCODE!- "HOSTS" 1175> CONNECT #DECL ("VALUE" <OR
FALSE <LIST CHANNEL CHANNEL>> FIX ANY <OR STRING FALSE> <OR FIX FALSE> <OR
STRING FALSE>) ICP WAITRESP "USER " INCHAN #FALSE () "
Password please:" "PASS " T "" "ACCT " "TYPE " "BYTE " "MODE "]>>
<SETG SOAK %<RSUBR!- '[ %<PCODE!- "HOSTS" 1565> SOAK #DECL ("VALUE" ANY) SOAK
"DONE"]>>
<SETG UNSOAK %<RSUBR!- '[ %<PCODE!- "HOSTS" 1580> UNSOAK #DECL ("VALUE" ANY)
SOAK "DONE"]>>
<SETG GET1 %<RSUBR!- '[ %<PCODE!- "HOSTS" 1595> GET1 #DECL ("VALUE" STRING
CHANNEL)]>>
<SETG GETLINE %<RSUBR!- '[ %<PCODE!- "HOSTS" 1640> GETLINE #DECL ("VALUE"
STRING CHANNEL) GET1 CONLINE]>>
<SETG CONLINE %<RSUBR!- '[ %<PCODE!- "HOSTS" 1700> CONLINE #DECL ("VALUE" ATOM
CHANNEL CHARACTER CHARACTER CHARACTER) GET1 T]>>
<SETG WAITRESP %<RSUBR!- '[ %<PCODE!- "HOSTS" 1775> WAITRESP #DECL ("VALUE" ANY
CHANNEL LIST) GETLINE SOAK]>>
<SETG WATCH %<RSUBR!- '[ %<PCODE!- "HOSTS" 1908> WATCH #DECL ("VALUE" ANY <
UVECTOR FIX FIX FIX> CHANNEL) "CHAR" SL #DISMISS T]>>
<SETG ACC %<RSUBR!- '[ %<PCODE!- "HOSTS" 1955> ACC #DECL ("VALUE" ANY <LIST
CHANNEL CHANNEL> STRING STRING FIX) "NET" "PRINT" "SOCK " "CHAR" WATCH SL (
ACTIVATION) #FALSE ("Datachannel timed-out")]>>
<ENDPACKAGE>