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

Compile LLOGO files TURTLE and TVRTLE.

Browse Source 
- Add LSUBR declarations for Lisp display slave.
- Update IOC emulation to handle ^F and ^Y.
This commit is contained in:
Lars Brinkhoff
2018-11-10 18:13:20 +01:00
parent b3b643d7f7
commit cc371f206e
3 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
build/lisp.tcl
View File

@@ -824,6 +824,8 @@ respond "_" "reader\r"
respond "_" "setup\r" respond "_" "setup\r"
respond "_" "unedit\r" respond "_" "unedit\r"
respond "_" "music\r" respond "_" "music\r"
respond "_" "turtle\r"
respond "_" "tvrtle\r"
respond "_" "\032" respond "_" "\032"
type ":kill\r" type ":kill\r"
respond "*" ":lisp loader\r" respond "*" ":lisp loader\r"

2
src/llogo/ioc.lsp
View File

@@ -3,11 +3,13 @@
(defmacro ioc (sym) (defmacro ioc (sym)
(cond (cond
((eq sym 'F) `(funcall (status ttyint '/) tyi '/))
((eq sym 'G) `(^G)) ((eq sym 'G) `(^G))
((eq sym 'R) `(setq ^R t)) ((eq sym 'R) `(setq ^R t))
((eq sym 'T) `(setq ^R nil)) ((eq sym 'T) `(setq ^R nil))
((eq sym 'V) `(setq ^W nil)) ((eq sym 'V) `(setq ^W nil))
((eq sym 'W) `(setq ^W t)) ((eq sym 'W) `(setq ^W t))
((eq sym 'Y) `(funcall (status ttyint '/) tyi '/))
((eq sym 'RW) `(progn (ioc R) (ioc W))) ((eq sym 'RW) `(progn (ioc R) (ioc W)))
(t (error "Unknown IOC character")))) (t (error "Unknown IOC character"))))

4
src/llogo/turtle.466
View File

@@ -8,7 +8,9 @@
(DECLARE (GENPREFIX TURTLE) (DECLARE (GENPREFIX TURTLE)
(*FEXPR PHOTO SNAP PICTURE RESNAP) (*FEXPR PHOTO SNAP PICTURE RESNAP)
(*LEXPR ERRBREAK POINT DSCALE SETHOME DISPLAY BLINK UNBLINK MOTION BRIGHT (*LEXPR ERRBREAK POINT DSCALE SETHOME DISPLAY BLINK UNBLINK MOTION BRIGHT
SCALE RANGE BEARING TOWARDS PENSTATE) SCALE RANGE BEARING TOWARDS PENSTATE
DISINI DISFLUSH DISALINE DISAPOINT DISCREATE DISET DISLIST
DISCUSS)
(*EXPR HOME) (*EXPR HOME)
(SPECIAL :WRAP :POLYGON FLOAT-DIS :SNAP :TEXTXHOME :TEXTYHOME NEWTURTLE (SPECIAL :WRAP :POLYGON FLOAT-DIS :SNAP :TEXTXHOME :TEXTYHOME NEWTURTLE
WORLD :SNAPS :DSCALE :RAD3 :PI :TURTLE HOME :HEADING :XCOR :YCOR WORLD :SNAPS :DSCALE :RAD3 :PI :TURTLE HOME :HEADING :XCOR :YCOR