github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Provide some dummy input.

Browse Source 
READSTRING doesn't work like this in real Muddle; it doesn't recognise
the newline, and it doesn't return input without an ALTMODE.
So just dump "open mailbox" into the buffer for now. Which works!
This commit is contained in:
Adam Sampson 2018-05-01 16:12:08 +01:00
parent 7fd657e7c1
commit bfd8266aab
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/cfs/ctell.2
View File

@ -35,14 +35,19 @@
<AND <NOT <0? <CHTYPE <ANDB .F1 ,POST-CRLF> FIX>>> <CRLF>>
<SETG TELL-FLAG T>>
; Read a line after printing the prompt
; ALT means accept only alternate terminator character
; (ALT not supported yet)
<DEFINE READST (INBUF PROMPT ALT)
; "ATS - this doesn't really work in MDL - it won't give you the string until you type the terminator and $"
; "Read a line after printing the prompt
ALT means accept only alternate terminator character
(ALT not supported yet)"
<DEFINE READST (INBUF PROMPT ALT "AUX" S)
<XTRACE "in READST">
<PRINC .PROMPT>
<PRINC !\ >
<READSTRING .INBUF .INCHAN %<STRING <ASCII 10>> >
>
<XTRACE "about to READSTRING">
; <SET S <READSTRING .INBUF .INCHAN %<STRING <ASCII 10>>>>
<SUBSTRUC "open mailbox" 0 12 .INBUF>
<SET S 12>
.S>
; "A valid date in 1980"
<DEFINE DSKDATE () #WORD 10746068993>