20 lines
552 B
Plaintext
20 lines
552 B
Plaintext
;***************************************
|
||
;* TIPC Scheme '84 Runtime Support *
|
||
;* Interpreter Macros *
|
||
;* *
|
||
;* (C) Copyright 1984 by Texas *
|
||
;* Instruments Incorporated. *
|
||
;* All rights reserved. *
|
||
;* *
|
||
;* Date Written: 2 May 1984 *
|
||
;* Last Modification: 14 Sept. 1984 *
|
||
;***************************************
|
||
; Call "printf" to produce error message
|
||
error macro args
|
||
irp txt,<args>
|
||
lea BX,txt
|
||
push BX
|
||
endm
|
||
jmp printf_c
|
||
endm
|
||
|