119 * terminal associated parameters
120 *
121 use /station/
122 *
123 ststart bss 0 start of station bank
124 *
125 cmbank data 0 framer output pointers
126 * ist 12 bits = error correction / queue info
127 * 1st 1 bits = error correction in process
128 * next 1 = in cont output queue
129 * next 1 = erase abort (doelz net)
130 * next 1 = drop parcels flag (signoff)
131 * next 1 = plato waiting for minimum pend parcels
132 * next 4 = unused
133 * next 3 = error correction retry cnt.
134 * next 12 = terminal word count
135 * next 12 = 1st parcel number
136 * next 12 = output parcel number
137 * next 12 = output parcel word count
138 cmbank1 data 0
139 * ist 12 bits = number parcels
140 * next 01 = fast/long framer queue routing bit
141 * = 0 = current output in fast queue
142 * = 1 = current output in long queue
143 * next 05 = number framer requests pending
144 * next 06 = unused
145 * next 12 = output error count
146 * next 12 = fill parcel number
147 * next 12 = fill parcel word count
148 tfrmpnt data 0 last frame for this station
149 *
150 fsysrln equ *-cmbank formatter read only length
151 *
-------------------------------------------------------------------- part= 1, block=f --------------------------- /station/2
space left = 48
1 file pftext at 3:38 pm on sunday, may 4, 2025 page 4
152 *
153 tmode data 36b terminal mode 00=dot 10=line 20=mem 30=cha
154 * also, o77 = undefined mode
155 wexfunc data 6 we and external functions
156 * (wexfunc initially says -mode write-, enable external)
157 colors data 77777777b white on black
158 altmem data 0 alternate char memory switch 0=norm 1=alt
159 fullscr data 0 minus one if a full screen erase occurred
160 margins data 000777b left margin = 0, right margin = 511
161 xxxmem data 20000000000000001400b current x and memory
162 yyy data 20000000000000001400b current y
163 ignrers data 1 ignor reset
164 dangle data 0 non-zero if dangling 77b
165 *
166 poutlng equ *-tmode length of terminal parameters
167 *
168 bckflg data 20010000000000000000b normally forward
169 *
170 fstflgs data 0 formatter read/write flag bits
171 *
172 * the following bits are used by the enable/disable
173 * commands
174 *
175 enablbs equ 60 bit 59 dont use it
176 *
177 * bits 58 - 56 not used
178 *
179 enablo equ 56 bit 57 - set by enable oriental
180 enablt equ 55 bit 54 - set by enable touch
181 enablx equ 54 bit 53 - set by enable ext
182 enablpt equ 53 bit 52 - set by pause key=touch
183 enablpx equ 52 bit 51 - set by pause key=exts
184 enabltu equ 51 bit 50 - if a lesson has a
185 * xmit command in a tunit
186 sizbold equ 50 bit 49 - if -size bold-
187
188 enabst equ 49 bit 48 - set by enable stream
189 *
190 abtoput equ 48 bit 47 - abort output (1=yes)
191 fsedone equ 47 bit 46 - full screen erase done
192 scrn640 equ 46 bit 45 - 640 wide (1=yes)
193 *
194 * bits 43-44 unused.
195
196 * bits 36-42 error word count.
197
198 ewcbts equ 43 error word ccount high bit + 1
199 ewcbtn equ 7 error word count bits
200
201 *
202 * bits 35 - 18: terminal is presently initialized
203 * to this station bank
204 *
205 * bits 17 - 00 reserved for tstmod and ldm
206 *
207 outmout data 0 total number of mouts formated
208 formtim data 0 milliseconds formatting time
1 file pftext at 3:38 pm on sunday, may 4, 2025 page 5
209 cset data 20002001000000000000b wrap flag/overlay
210 *
211 psysrln equ *-cmbank plato read only length
212 *
-------------------------------------------------------------------- part= 1, block=g --------------------------- /station/3
space left = 16
213 stflags bss 1 used for various flags.
214
215 * if any of the top 9 bits are set, normal key
216 * processing is inhibited for this station.
217
218 * bit 59-set when station has
219 * old disk i/o pending.
220 *** note that these shift counts are for a "mx 1", "lx shift" code
221 *** a bit is moved to the sign bit for testing by "lx 60-symbol"
222 ssbbit equ 59 bit 58 marks station backout
223 ptdbit equ ssbbit-1 bit 57 set when -pdpstart- key
224 * has been received while
225 * terminal signed in--
226 * special backout bit for
227 * programmable terminals.
228 offbit equ ptdbit-1 bit 56 set when sign-off key
229 * has been received.
230 typbit equ offbit-1 bit 55 set when echo sent to
231 * terminal in order to
232 * determine terminal type
233 clrbit equ typbit-1 bit 54 set when clear key
234 * received from signed out
235 * terminal.
236
237 misbit equ clrbit-1 bit 53 marks mist query in progress
238 sscbit equ misbit-1 bit 52 set when ssb complete
239 sslbit equ sscbit-1 bit 51 set to mark log-out process
240
241 oribit equ 51 bit 50 - oriental module loaded
242
243 misix1 equ 50 bits 48-49 - mist query index
244 misix0 equ misix1-1
245
246 tpfqs equ 48 bit 47 = plato-format que num
247 * = 0 = last output in fast que
248 * = 1 = last output in long que
249 istlbs equ 41 bits 40-46 = ist-2 down-loading
250 * bit 39 0=ext inputs allowed,
251 * 1=ignore ext inputs.
252 st1bit equ 39 bit 38 1=stop1 key pressed and lesson
253 * processing should be ended
254 * 0=no stop1 yet, normal processing
255 * bits 20-37 indicate -echoto-
256 * station number.
257 finbit equ 20 bit 19 set while in finish unit
258 * the following flag is set to mark that the system
259 * (or a site lesson) has pressed stop1 on a station.
260 * this information is used to set the backout flag
261 * --it is cleared on entry to the next non-router
1 file pftext at 3:38 pm on sunday, may 4, 2025 page 6
262 * lesson.
263 ss1bit equ 19 bit 18 1=system stop1 pressed on station
264 * bits 0-17 - station number for
265 * this station.
-------------------------------------------------------------------- part= 2, block=a --------------------------- /station/3
space left = 131
266 *
267 stflag1 data 0 must immediately follow stflags
268 asmpbit equ 60 bit 59 - assembly language
269 * program loaded into terminal
270 *
271 extmbit equ 59 bit 58 - *extmap* selected
272 *
273 mtnobit equ 58 bit 57 - set to force re-load
274 * of ppt-tutor interpreter
275 reskbit equ 57 bit 56 - set on -reset- key
276 newkbit equ 56 bit 55 - set to enable "new"-
277 * type key processing
278 pst1bit equ 55 bit 54 - priority stop1 (exit even
279 * if in stop1-protected lesson)
280 adelbit equ 54 bit 53 - set if author deletion
281 *
282 etedf equ 53 enhanced error correction flag, bit 52
283
284 brflags equ 52 backout request flag, bit 51.
285
286 tekbit equ 51 ascii ist in tektronix mode
287 *
288 langbtn equ 3 number bits in language field
289 langbts equ 50 bits 49,48,47 hold language num
290 * (absolute shift value 50 used in lesson plato)
291 * 0=english, 1=french, 7=user chooses
292 *
293 *
294 * bits 29-46 = fwa of charset area in terminal ram
295 * bits 11-28 = fwa of terminal resident ram area
296 * bits 08-10 = terminal memory configuration code
297 * ascii terminal type
298
299 tcbtn equ 3 number of configuration bits
300 tcbts equ 11 high order configuration bit + 1
301
302 * bits 04-07 = terminal type code
303
304 ttbtn equ 4 number of terminal type bits
305 ttbts equ 8 high order terminal bit + 1
306
307 * bits 00-03 = ppt-tutor version number
-------------------------------------------------------------------- part= 2, block=b --------------------------- /station/4
space left = 175
308 slastky data 0 time last key processed for
309 * this station.
310 bankadd data 0 bits 0-17 - relative address
1 file pftext at 3:38 pm on sunday, may 4, 2025 page 7
311 * of student bank.
312
313 * bits 18-24 resident load file number
314
315 lfbtn equ 7 number of load file bits
316 lfbts equ 25 high order load file bit + 1
317
318 * bits 25-31 terminal subtype
319
320 tsbtn equ 7 number of terminal subtype bits
321 tsbts equ 32 high order subtype bit + 1
322
323 * bits 32-38 terminal configuration
324
325 cfbtn equ 7 number of configuration bits
326 cfbts equ 39 high order configuration bit + 1
327
328 * bits 39-41 ascii terminal type
329
330 atbtn equ 3 number of ascii type bits
331 atbts equ 42 high order ascii type bit + 1
332 ss2bit equ 59 system *d3* stop1 bit + 1
333
334 * bits 42-57 unused
335 * bit 59 - set when station is
336 * signed-out.
337 sdinfo data 0 save area for disk request info
338 * used when disk error occurs.
-------------------------------------------------------------------- part= 2, block=c --------------------------- /station/4
space left = 116
339 * history -- pslave/pmaster were originally used as
340 * forward/backwards pointers for monitor mode and
341 * it's derivatives (term-talk, master, teleconfer).
342 * several alterations of this scheme made their use
343 * inconsistent, and pmaster became all but obsolete.
344 * in the multi-executor environment, the /station/
345 * bank became a poor place to keep pointers from one
346 * bank to another. (ridiculous, eh?) so, this data
347 * was moved to an extended memory table which was
348 * protected by an interlock, the *atalk* buffer,
349 * which previously contained a copy of *pslave* for
350 * use in multi-exec operations. so, now this flag
351 * means that something is in the *atalk* status word
352 * for this station. harkrader 82/08/18
353 *
354 pslave data 0 1/set if being monitored, 59/0
355 pmaster data 0 should be unused (who knows)
356 *
357 inbgnd data 0 top bit set if a key waiting in
358 * backbnd queue, 2nd bit set set if in backbnd mode
359 * lower bits contain background queue number
360 submout data 0 total numb of mouts submitted
361 cwsinfo data 0 cybis workstation software info
362 *
363 fntinfo equ 60 start info at bit 59
1 file pftext at 3:38 pm on sunday, may 4, 2025 page 8
364 *
365 * vfd 1/format font bit (0=default font)
366 * 6/font code
367 * 6/font size
368 * 6/font mode
369 * 1/*zfastk*
370 * 1/*zscroll*
371 * 1/*zhomer*
372 * 1/*zledit*
373 * 12/left text margin for x wrapping (in pixels)
374 * 1/*zmenu*
375 * 1/*zwindow*
376 * 1/*zkermit*
377 * 1/*zpckeys*
378 * 1/*zfgt*
379 * 10/fine grid touch X (*zfgtx*)
380 * 10/fine grid touch Y (*zfgty*)
381 *
terscrn data 0
*
* 12/ plato x screen size
* 12/ plato y screen size
* 12/ terminal x screen size
* 12/ terminal y screen size
* 4/ reserved for protocol level flags
* 1/ ascii plato iv bit (no mode 4)
* 4/ mtutor version number
* 1/ cdc epap bit
* 1/ protocol level 1 flag
* 1/ color flag
*
exal1 equ 58 level 1 ascii flag
*
asciv equ 52 ascii plato iv bit
*
xtouchw data 0 extended touch word
*
* 3/ state of input index 0..7
* 15/
* 6/ cursor bits, lower is touch
* 18/ x pointer loc
* 18/ y pointer loc
*
*
382 errnz psyslth-*+ststart
383 *