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

Improve SUPARD handling of CR and LF.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-04-13 19:16:51 +02:00
parent fc2bab493d
commit 644d946539
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/dcp/sgincl.14 → src/dcp/sgincl.15 Executable file → Normal file
View File

@@ -26,6 +26,7 @@
(defvar sg-current-x 0) (defvar sg-current-y 0) (defvar sg-xor-ior 'ior)
(defconst %TDGRF #o231) (defconst %TDNOP #o210) (defconst %TDRST #o230)
(defconst %TDCRL #o207)
(defconst tv:alu-ior 0) (defconst tv:alu-andcam #o40) (defconst tv:alu-xor -1)
(defconst %goMVR #o001) (defconst %goMVA #o021)
@@ -159,6 +160,8 @@
((ior) (sg-out %goIOR) (setq sg-xor-ior 'ior))
)))
(defun sg-return ()
(+tyo %TDCRL sgos))
(defun sg-set-point (x y)
(sg-move-absolute x y))

6
src/dcp/supard.2 → src/dcp/supard.3
View File

@@ -48,7 +48,11 @@
(sg-out 0)
(sg-set-point 0 0)
n)
(sg-out n)))
(caseq n
((0 3) nil)
((12) nil)
((15) (sg-return))
(t (sg-out n)))))
(defun enter-set-point-mode ()
(do ((i 0)