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

Replace LLOGO use of obsolete SSTATUS INTERRUPT.

Browse Source 
The OLDIO user interrupts are documented in the 1974 Moonual revision 0,
on page 101.  The corresponding NEWIO functionality is documented in
the Pitmanual, online at http://maclisp.info/
This commit is contained in:
Lars Brinkhoff 2018-09-24 21:35:27 +02:00
parent df17cabaf6
commit 874a5c2c0d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/llogo/error.224
View File

@ -425,7 +425,7 @@
;;*PAGE
(SSTATUS INTERRUPT 16. 'TOGGLE-WORLD)
(SSTATUS TTYINT #^^ 'TOGGLE-WORLD)
(DEFUN TOGGLE-WORLD (IGNORE)
;;^^ SWITCHES BACK AND FORTH BETWEEN LOGO AND LISP.
@ -439,7 +439,7 @@
[ITS (DO I (LISTEN) (1- I) (= I 0.) (TYI))]
(LISP))))
(SSTATUS INTERR 1. 'CONTROL-H-BREAK)
(SSTATUS TTYINT #^H 'CONTROL-H-BREAK)
(DEFUN CONTROL-H-BREAK (^H)
;;^H ENTERS A LISP BREAK FROM EITHER LOGO OR LISP.
@ -451,7 +451,7 @@
(EXPR-FUNCTION DPRINC)
'LISP-BREAK-LOOP))
(SSTATUS INTERRUPT 2. 'CONTROL-A-BREAK)
(SSTATUS TTYINT #^A 'CONTROL-A-BREAK)
(DEFUN CONTROL-A-BREAK (USELESS)
;;CONTROL-A ENTERS A LOGO BREAK.
@ -579,7 +579,7 @@
(LISP-ERROR (LIST (CAR ERRS)
'"IS AN UNDEFINED PROCEDURE")))
(SSTATUS INTERRUPT 5. 'UNDF-FNCTN)
(SETQ UNDF-FNCTN 'UNDF-FNCTN)
(DEFUN WRNG-TYPE-ARG (ERRS)
(LET
@ -597,7 +597,7 @@
UNHAPPY-FUNCTION
'"IS OF THE WRONG TYPE"))))))
(SSTATUS INTERRUPT 7. 'WRNG-TYPE-ARG)
(SETQ WRNG-TYPE-ARG 'WRNG-TYPE-ARG)
(DEFUN UNSEEN-GO-TAG (ERRS)
(LISP-ERROR
@ -606,7 +606,7 @@
'"YOU TRIED TO USE A BREAKPOINT FUNCTION BUT YOU'RE NOT IN A BREAKPOINT")
((LIST (CAR ERRS) '"IS AN UNDEFINED TAG")))))
(SSTATUS INTERRUPT 8. 'UNSEEN-GO-TAG)
(SETQ UNSEEN-GO-TAG 'UNSEEN-GO-TAG)
(DEFUN ERRORFRAME NIL (AND (ERRFRAME NIL) (CADR (ERRFRAME NIL))))
@ -701,11 +701,11 @@
((LIST '"WRONG NUMBER OF INPUTS TO "
(UNPARSE-FUNCTION-NAME CULPRIT))))))
(SSTATUS INTERRUPT 9. 'WRONG-NO-ARGS)
(SETQ WRNG-NO-ARGS 'WRONG-NO-ARGS)
(*RSET T)
(SSTATUS INTERRUPT 18. 'FASLOADER)
(SETQ AUTOLOAD 'FASLOADER)
(DEFUN FASLOADER (FILE)
;;REDEFINE AUTOMATIC FASLOADER FOR TRACE, GRIND, LAP, ETC. TO FASLOAD STUFF
@ -725,7 +725,7 @@
(APPLY 'CRUNIT CRUNIT)
(APPLY 'SSTATUS (CONS 'CRFILE CRFILE))))
(SSTATUS INTERRUPT 19. NIL)
(SETQ *RSET-TRAP NIL)
;;RSET BREAK TURNED OFF. HENCE, EXECUTING (LISP) WILL NOT RESULT IN BREAK. RSET
;;SERVICES ERRORS THAT REACH THE TOPLEVEL.