github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Don't hardcode the machine name in M.F.D. (FILE) listings.

Browse Source
This commit is contained in:
Adam Sampson 2018-07-27 01:19:02 +01:00 committed by Adam Sampson
parent 5caa245c9a
commit 0b76d69899
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/hack/webser.19 → src/hack/webser.20
View File

@ -926,8 +926,10 @@ DIRL:: SLX "" ; Followed by a CRLF
; Never skips
; NYI: nicer layout
SNDMFD: PUSH P,IX ; Save
PUSHJ P,NAMPRN ; Format the name
SSX "<H2>SV " ; NYI: look up machine name
SSX "<H2>" ; Open header
PUSHJ P,MACPRN ; Format the machine name
ZSOQ NAMBUF ; Print it
PUSHJ P,NAMPRN ; Format the filename
ZSOQ NAMBUF ; So much trouble for this header
SSX "</H2>" ; Close header
SETZM FILFN1 ; Don't put FN1 in the listing
@ -994,7 +996,23 @@ NAM2:: SETZ ; Always NUL-
IDPB T ; terminate
POPJ P, ; Done
; Write machine name followed by a space to NAMBUF
; Never skips
MACPRN: MOVE T,[ASCBP,,NAMBUF] ; Scratch here
.CALL [ SETZ ; Get the machine name
SIXBIT /SSTATU/
%CLOUT,,
%CLOUT,,
%CLOUT,,
%CLOUT,,
%CLOUT,,
%CLOUT,,IX ((SETZ))]
JSR DEATH ; or die
MOVEI TT,SPACE ; Add a space
PUTFN T,IX ; Write it
JRST NAM2 ; NUL-terminate and return
REG LEN ; Remaining bytes to be copied
REG CNT ; Number of bytes per block
REG BP ; Pointer to data to send