github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-05 15:44:10 +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
Download Patch File Download Diff File Expand all files Collapse all files

18
src/llogo/error.224
View File

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