1 " --------------- BEGIN include file gct_trap_proc.incl.alm --------------- "
2
3 use index_table_lc
4
5 char_ptr: null;
6 index_table_start: null
7 its -1,nul
8 its -1,soh
9 its -1,stx
10 its -1,etx
11 its -1,eot
12 its -1,enq
13 its -1,ack
14 its -1,bel
15 its -1,bs
16 its -1,ht
17 its -1,nl
18 its -1,vt
19 its -1,ff
20 its -1,cr
21 its -1,rrs
22 its -1,brs
23 its -1,dle
24 its -1,dc1
25 its -1,dc2
26 its -1,dc3
27 its -1,dc4
28 its -1,nak
29 its -1,syn
30 its -1,etb
31 its -1,can
32 its -1,em
33 its -1,sub
34 its -1,esc
35 its -1,fs
36 its -1,gs
37 its -1,rs
38 its -1,us
39 its -1,space
40 its -1,excl_pt
41 its -1,dbl_quot
42 its -1,sharp
43 its -1,dollar
44 its -1,percent
45 its -1,amprsnd
46 its -1,r_quote
47 its -1,l_paren
48 its -1,r_paren
49 its -1,star
50 its -1,plus
51 its -1,comma
52 its -1,minus
53 its -1,dot
54 its -1,slash
55 its -1,zero
56 its -1,one
57 its -1,two
58 its -1,three
59 its -1,four
60 its -1,five
61 its -1,six
62 its -1,seven
63 its -1,eight
64 its -1,nine
65 its -1,colon
66 its -1,semi
67 its -1,lessthan
68 its -1,equal
69 its -1,grthan
70 its -1,ques_mrk
71 its -1,atsign
72 its -1,A
73 its -1,B
74 its -1,C
75 its -1,D
76 its -1,E
77 its -1,F
78 its -1,G
79 its -1,H
80 its -1,I
81 its -1,J
82 its -1,K
83 its -1,L
84 its -1,M
85 its -1,N
86 its -1,O
87 its -1,P
88 its -1,Q
89 its -1,R
90 its -1,S
91 its -1,T
92 its -1,U
93 its -1,V
94 its -1,W
95 its -1,X
96 its -1,Y
97 its -1,Z
98 its -1,l_brack
99 its -1,backslsh
100 its -1,r_brack
101 its -1,cirflex
102 its -1,underbar
103 its -1,l_quote
104 its -1,a
105 its -1,b
106 its -1,c
107 its -1,d
108 its -1,e
109 its -1,f
110 its -1,g
111 its -1,h
112 its -1,i
113 its -1,j
114 its -1,k
115 its -1,l
116 its -1,m
117 its -1,n
118 its -1,o
119 its -1,p
120 its -1,q
121 its -1,r
122 its -1,s
123 its -1,t
124 its -1,u
125 its -1,v
126 its -1,w
127 its -1,x
128 its -1,y
129 its -1,z
130 its -1,l_brace
131 its -1,vert_bar
132 its -1,r_brace
133 its -1,tilde
134 its -1,del
135 index_table_end: null
136
137 "^L
138 include stack_header
139
140 use executable_lc
141
142 tempd tempwords
143
144 trap: push
145
146 eppbp * " get my own segno into bp
147 epaq bp|0 " and into aq
148 epbpsb sp|0 " make sure sb points to my own stack
149 lprplp sb|stack_header.lot_ptr,*au " get my linkage ptr out of lot
150 spribp tempwords " store ptr to myself in ITS format
151 lda tempwords " load the segno word into a
152 eax1 0 " prepare to repeat
153
154 rpt index_table_end-index_table_start/2,2 " repeat every 2 words down table
155 sta lp|index_table_start,x1 " store segno part of pointer
156
157 return
158
159 join /text/char_structures,executable_lc
160 join /link/index_table_lc
161
162 firstref <*text>|trap
163
164 " ---------------- END include file gct_trap_proc.incl.alm ---------------- "