mirror of
https://github.com/PDP-10/its.git
synced 2026-01-18 09:12:08 +00:00
50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
;;; FRIDAY FEB 06,1976 17:21:42
|
||
|
||
;;; THIS FILE IS DESIGNED TO BE FASLOADED INTO THE COMPLR IN
|
||
;;;A COMPLR (INIT) ETC. WHEN THE COMPLR IS DONE WITH THE
|
||
;;;COMPILATION A MESSAGE WILL BE SENT TO THE USER.
|
||
;;; I PRIMARILY USE THIS IN CONJUNCTION WITH "JCL" COMPILER
|
||
;;;INVOCATION TO FIND OUT WHEN THE FASL IS READY.
|
||
|
||
;;; THE MESSAGE SENT IS THE VALUE OF COMPLR-DONE-MESSAGE.
|
||
;;; THE EOC-EVAL MECHANISM OF THE COMPLR IS ALSO USED.
|
||
|
||
(SETQ COMPLR-ERROR-MESSAGE 'COME/ HERE/ WATSON/ I/ NEED/ YOU)
|
||
(SETQ COMPLR-DONE-MESSAGE 'COMPILATION/ FINISHED)
|
||
|
||
(SETQ EOC-EVAL (APPEND EOC-EVAL '((COMPLR-DONE))))
|
||
|
||
(LAP OLDIO-SEND SUBR)
|
||
(ARGS OLDIO-SEND (NIL . 1))
|
||
(SKIPA)
|
||
(ENTRY COMPLR-ERROR SUBR)
|
||
(ARGS COMPLR-ERROR (NIL . 0))
|
||
(MOVE A (SPECIAL COMPLR-ERROR-MESSAGE))
|
||
(SKIPA)
|
||
(ENTRY COMPLR-DONE SUBR)
|
||
(ARGS COMPLR-DONE (NIL . 0))
|
||
(MOVE A (SPECIAL COMPLR-DONE-MESSAGE))
|
||
|
||
(*IOPUSH 15) ;GUARANTEE A FREE CHANNEL
|
||
(*SUSET 0 MYUNAME)
|
||
(*OPEN 15 HCTRN-BLOCK)
|
||
(JRST 0 DIE)
|
||
|
||
(MOVE R (% SETZ 0 CHROUT));A & R SETUP FOR
|
||
(PUSHJ P PRINTA) ; PRINTA THAT FOLLOWS
|
||
(*CLOSE 15)
|
||
DIE (*IOPOP 15)
|
||
(MOVEI A 'T)
|
||
(POPJ P)
|
||
|
||
;;; OUTPUT CHARACTER IN A
|
||
CHROUT (*IOT 15 A)
|
||
(POPJ P) ;PRINTA CALLING CONVENTIONS
|
||
|
||
MYUNAME (0 0 USLOT 4) ;I.E. ?,,USLOT
|
||
HCTRN-BLOCK
|
||
(SIXBIT / / /!CLI)
|
||
USLOT (0)
|
||
(SIXBIT HACTRN)
|
||
NIL
|