ORCALib/assert.asm at master · byteworksinc/ORCALib · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
         keep  obj/assert
         mcopy assert.macros
         case  on
****************************************************************
*
*  Assert - Condition assertion macro
*
*  This code implements the subroutines needed to support the
*  standard C library assert.
*
*  October 1991
*  Mike Westerfield
*
*  Copyright 1991
*  Byte Works, Inc.
*
****************************************************************
*
Assert   start                          dummy routine

         end

****************************************************************
*
*  void __assert (char *f, unsigned l, char *s)
*
*  Inputs:
*        f - pointer to the file name
*        l - line number
*        s - assertion string
*
****************************************************************
*
__assert start

         csubroutine (4:f,2:l,4:s),0

         ph4   <s
         ph2   <l
         ph4   <f
         ph4   #msg
         ph4   >stderr
         jsl   fprintf
         jsl   abort

msg      dc    c'Assertion failed: file %s, line %u; assertion: %s',i1'10,0'
         end

****************************************************************
*
*  void __assert2 (char *f, unsigned l, char *fn, char *s)
*
*  Inputs:
*        f - pointer to the file name
*        l - line number
*        fn - function name
*        s - assertion string
*
****************************************************************
*
__assert2 start

         csubroutine (4:f,2:l,4:fn,4:s),0

         ph4   <s
         ph4   <fn
         ph2   <l
         ph4   <f
         ph4   #msg
         ph4   >stderr
         jsl   fprintf
         jsl   abort

msg      dc    c'Assertion failed: file %s, line %u, function %s; assertion: %s',i1'10,0'
         end

****************************************************************
*
*  void __assert3 (char *f, unsigned long l, char *fn, char *s)
*
*  Inputs:
*        f - pointer to the file name
*        l - line number
*        fn - function name
*        s - assertion string
*
****************************************************************
*
__assert3 start

         csubroutine (4:f,4:l,4:fn,4:s),0

         ph4   <s
         ph4   <fn
         ph4   <l
         ph4   <f
         ph4   #msg
         ph4   >stderr
         jsl   fprintf
         jsl   abort

msg      dc    c'Assertion failed: file %s, line %lu, function %s; assertion: %s',i1'10,0'
         end