github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-20 16:38:16 +00:00
Code Issues Releases Wiki Activity

Use DSK device rather than AI.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-09-25 07:44:48 +02:00
parent d13c23f2a4
commit 2769e25f06
11 changed files with 23 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/llogo/define.1
View File

@@ -18,7 +18,7 @@
(GENPREFIX DEFINE-)
(COND ((STATUS FEATURE DEFINE))
((AND (OR (STATUS FEATURE ITS) (STATUS FEATURE DEC10))
(ERRSET (FASLOAD DEFINE FASL AI LLOGO))))
(ERRSET (FASLOAD DEFINE FASL DSK LLOGO))))
((AND (STATUS FEATURE MULTICS)
(ERRSET (LOAD "DEFINE.LISP"))))
((IOG NIL (PRINT '(DEFINE MUST BE READ INTO COMPILER))))))
@@ -442,4 +442,4 @@
;;FOR EXTRA FORMS TO BE MADE HAPPEN BY DEFINE FUNCTION, IF COMPILING, OUTPUT
;;THEM TO BE DONE AT RUN TIME, IF NOT COMPILING, JUST DO THEM.
((DEFPROP DEFINE-HAPPEN EVAL EXPR)))

8
src/llogo/error.1
View File

@@ -7,7 +7,7 @@
(DECLARE (OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
(SAVE-VERSION-NUMBER ERROR)
@@ -735,9 +735,9 @@
;;MISCELLANEOUS SYSTEM DEBUGGING FEATURES.
[ITS (DEFPROP LOAD-TECO (LISPT FASL AI /.TECO/.) AUTOLOAD)
(DEFPROP START-TECO (LISPT FASL AI /.TECO/.) AUTOLOAD)
(DEFPROP MEV (STEPMM FASL AI COMMON) AUTOLOAD)
[ITS (DEFPROP LOAD-TECO (LISPT FASL DSK /.TECO/.) AUTOLOAD)
(DEFPROP START-TECO (LISPT FASL DSK /.TECO/.) AUTOLOAD)
(DEFPROP MEV (STEPMM FASL DSK COMMON) AUTOLOAD)
(DEFUN TECO NIL (COND (TECO? (P)) ((SETQ TECO? T) (LOAD-TECO) (G))))
(SETQ TECO? NIL)]

4
src/llogo/germ.1
View File

@@ -820,7 +820,7 @@ CALL RUNGERM TO REINITIALIZE GRID.
;;*SLASHIFY #
(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO)))
(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO)))
(DECLARE (GENPREFIX MUSIC)
(SPECIAL :INSTRUMENT :NVOICES :SCALEBASE :VOICE :SAVBUF BUFFERS NEWMUSIC
@@ -1153,4 +1153,4 @@ CALL RUNGERM TO REINITIALIZE GRID.
(REQUEST))
(INITMUSIC)

4
src/llogo/parser.1
View File

@@ -31,7 +31,7 @@
(DECLARE (OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
(SAVE-VERSION-NUMBER PARSER)
@@ -576,4 +576,4 @@
EOL)
NEW-LINE)
(EDIT-LINE NUMBER)))))))))



4
src/llogo/primit.1
View File

@@ -10,7 +10,7 @@
(DECLARE (OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
(SAVE-VERSION-NUMBER PRIMIT)
@@ -1086,4 +1086,4 @@
;;*PAGE



4
src/llogo/print.1
View File

@@ -7,7 +7,7 @@
(DECLARE (OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
(SAVE-VERSION-NUMBER PRINT)
@@ -329,4 +329,4 @@
;;RESTORE ORIGINAL DEVICE.
(APPLY 'CRUNIT CRUNIT)))
NO-VALUE)



4
src/llogo/reader.1
View File

@@ -6,7 +6,7 @@
(DECLARE (OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
;;;
;;READ SYNTAX FOR LOGO, LOGO READER, EVALUATION FUNCTIONS
@@ -608,4 +608,4 @@
;;*PAGE



6
src/llogo/setup.1
View File

@@ -14,7 +14,7 @@
(OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
;;FOR DEFINING NEW LLOGO PRIMITIVES, DEFINE IS DEFINED TO AUTOLOAD IN FILE
;;LLOGO;DEFINE FASL, CONTAINING A FEXPR DEFININTION OF DEFINE, PUSH, POP AND OTHER
@@ -23,7 +23,7 @@
;;NOTE: DEFINE MAY ONLY BE CALLED FROM LISP, NOT LOGO!
;;;
[ITS (OR (STATUS FEATURE DEFINE) (DEFPROP DEFINE (DEFINE FASL AI LLOGO) AUTOLOAD))]
[ITS (OR (STATUS FEATURE DEFINE) (DEFPROP DEFINE (DEFINE FASL DSK LLOGO) AUTOLOAD))]
(SETQ GENSYM (GENSYM)
LISP-READTABLE READTABLE
@@ -383,4 +383,4 @@ DO YOU WANT TO GET RID OF IT? ")
(LOAD-IF-WANTED
"DO YOU WANT TO USE THE MUSIC BOX? "
">UDD>AP>LIB>LOGO_MUSIC"))]



2
src/llogo/turtle.465
View File

@@ -1,7 +1,7 @@
;;; LOGO TURTLE FUNCTIONS
(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO)))
(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO)))
(SSTATUS FEATURE TURTLE)

2
src/llogo/tvrtle.1
View File

@@ -18,7 +18,7 @@
(DECLARE (EVAL (READ)) (EVAL (READ)))
(OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO))
(OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO))
(COND ((BOUNDP 'COLOR) (SETQ BW (NOT COLOR)))
;;READ-TIME SWITCHES FOR COLOR OR BLACK AND WHITE SYSTEM.

4
src/llogo/unedit.1
View File

@@ -7,7 +7,7 @@
(DECLARE (OR (STATUS FEATURE DEFINE)
(COND ((STATUS FEATURE ITS)
;;MULTICS?
(FASLOAD DEFINE FASL AI LLOGO)))))
(FASLOAD DEFINE FASL DSK LLOGO)))))
(SAVE-VERSION-NUMBER UNEDIT)
@@ -795,4 +795,4 @@
;;*PAGE