;"A PSTRING is a 36-bit string containing 5 characters of 7 bits. This is of course grossly PDP-10 specific, but easily fakeable provided WORD is at least 35 bits" > 0> > PSTRING>>) (T ) > > .INSTR> > ; STRINGP converts a PSTRING to a STRING > 0> > FIX>> 0> >) (T )>) (T )>>>> ;"F1 upper 18 bits are length to print (from S1?), if not zero" ;"not sure that's right - ATS" (F1) FIX (S2 S3) ) FIX>>> > ; "warn if > FIX> != 0?" > > FIX>>> > > ; Read a line after printing the prompt ; ALT means accept only alternate terminator character ; (ALT not supported yet) > > > ; "A valid date in 1980" ; "ATMFIX takes the atom, gets the first 36 bits of the PNAME (as with PSTRING), does some bit manipulation on it and on the value of SRUNM (the user name), and returns the result as a fix. Probably intended to prevent save file sharing ATMFIX may also be passed a PSTRING, in which case it does the same bit manipulation as it would on an atom PNAME The bit manipulation rests on the assumption that the top two bits of a character are never both set (no lowercase or a few other symbols)" >>) (ELSE ) > > -1> .PNW> > FIX> > ; "FIXSTR is the inverse of ATMFIX. It takes a FIX and returns a STRING which is the PNAME of the ATOM which was previously given to ATMFIX." >, applied to .F before the below" .F>> -1> > .F>> > <+ 1900 .Y>) (T <+ 2000 .Y>)> > > > > > ;"I don't know what this is supposed to do" > ;"Interrupt handler -- not implemented" )) ,STACKDUMP-ATOMS-TO-SKIP>> > >) > TOPLEVEL!-> > > > > <7 .CHAN> > "") (T >)> > > ;" Dispatch -- runs a thing, possibly with an argument" .OV> ) (ELSE ) >) (ELSE .NO>) > >