github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-14 23:55:40 +00:00
Code Issues Releases Wiki Activity

Make LLOGO use DSK device rather than AI.

Browse Source 
Rename file versions to one more than the last known version.
This commit is contained in:
Lars Brinkhoff 2018-09-25 07:44:48 +02:00
parent 5113220de5
commit df17cabaf6
13 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/llogo/define.1 → src/llogo/define.95
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))))))

8
src/llogo/error.1 → src/llogo/error.224
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)]

2
src/llogo/germ.1 → src/llogo/germ.147
View File

@ -754,7 +754,7 @@ OKAY, WE'RE READY TO START. SHALL WE BEGIN? ")
(DEFUN GERMDEMOS NIL
(PROG (^Q READTABLE REPEAT-INTRO)
(UREAD DEMOS GERM AI LLOGO)
(UREAD DEMOS GERM DSK LLOGO)
(CLEARSCREEN)
(SETQ
^Q

8
src/llogo/loader.1 → src/llogo/loader.153
View File

@ -42,7 +42,7 @@
(MAPC
'(LAMBDA (SOURCE-FILE)
(APPLY 'UREAD
(CONS SOURCE-FILE '(> AI LLOGO)))
(CONS SOURCE-FILE '(> DSK LLOGO)))
(MAPC 'PRINC
(LIST 'READING
'/
@ -81,9 +81,9 @@ FASLOADING/ FASL-FILE
'/ FASL))
(APPLY 'FASLOAD
(CONS FASL-FILE
'(FASL AI LLOGO))))
'(FASL DSK LLOGO))))
(CDR (GET 'LLOGO 'FILES)))))
(AND DUMP (UWRITE AI LLOGO) (IOC R)
(AND DUMP (UWRITE DSK LLOGO) (IOC R)
(MAPC 'PRINC
(LIST '/
CREATING/ DUMP
@ -139,7 +139,7 @@ UUO:/ ) (PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.)))
(TERPRI)
(SSTATUS TOPLEVEL '(START-UP))
(COND ((AND DUMP (STATUS FEATURE ITS))
(ERRSET (UFILE LLOGO > AI LLOGO) NIL)
(ERRSET (UFILE LLOGO > DSK LLOGO) NIL)
(IOG NIL (PRINC 'VERSION/ NUMBER?/ )
(PUTPROP 'LLOGO (LIST DUMP (READ)) 'VERSION))
(UCLOSE)

2
src/llogo/music.1 → src/llogo/music.13
View File

@ -6,7 +6,7 @@
;;*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

2
src/llogo/parser.1 → src/llogo/parsers.129
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)

2
src/llogo/primit.1 → src/llogo/primit.304
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)

2
src/llogo/print.1 → src/llogo/print.165
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)

2
src/llogo/reader.1 → src/llogo/reader.201
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

4
src/llogo/setup.1 → src/llogo/setup.306
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

2
src/llogo/turtle.465 → src/llogo/turtle.466
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 → src/llogo/tvrtle.541
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.

2
src/llogo/unedit.1 → src/llogo/unedit.212
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)