-
+ A68C4967B3FE9280B96480E35CE23BB49AA47939490480731077764F943ACCA0A5DEA56B2570A2D2E9D98D3404964CE639E85AD187E479EED1FB514A2B4FFC5Affa/demos/ch19_flag.peh(0 . 0)(1 . 146)
236 (----------------------------------------------------------------------------)
237 (----------------------------------------------------------------------------)
238 (- Demo Tape for 'Peh'; illustrates change in Flag semantics in Chapter 19. -)
239 (- -)
240 (- (C) 2019 Stanislav Datskovskiy ( www.loper-os.org ) -)
241 (- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html -)
242 (- -)
243 (- You do not have, nor can you ever acquire the right to use, copy or -)
244 (- distribute this software ; Should you use this software for any purpose, -)
245 (- or copy and distribute it to anyone or in any manner, you are breaking -)
246 (- the laws of whatever soi-disant jurisdiction, and you promise to -)
247 (- continue doing so for the indefinite future. In any case, please -)
248 (- always : read and understand any software ; verify any PGP signatures -)
249 (- that you use - for any purpose. -)
250 (- -)
251 (- See also http://trilema.com/2015/a-new-software-licensing-paradigm . -)
252 (----------------------------------------------------------------------------)
253 (----------------------------------------------------------------------------)
254
255 (----------------------------------------------------------------------------)
256
257 ( Begin the Cutout: )
258 LC
259
260 (----------------------------------------------------------------------------)
261
262 ( This subroutine causes the Cutout-Active Overflow Flag to be Set : )
263
264 @Set-OF-In-Cutout@ ( Regs : none )
265 .0 .1 - _
266 ;
267
268 (----------------------------------------------------------------------------)
269
270 ( This subroutine causes the Cutout-Active Overflow Flag to be Cleared : )
271
272 @Clear-OF-In-Cutout@ ( Regs : none )
273 ZF
274 ;
275
276 (----------------------------------------------------------------------------)
277
278
279 ( This subroutine returns the Cutout-Active Overflow Flag : )
280
281 @Get-OF-In-Cutout@ ( Regs : none )
282 O
283 ;
284
285 (----------------------------------------------------------------------------)
286
287 ( Terminate the Cutout : )
288 RC
289
290 (----------------------------------------------------------------------------)
291
292 ( This subroutine causes the Ordinary Overflow Flag to be Set : )
293
294 @Set-OF-Ordinary@ ( Regs : none )
295 .0 .1 - _
296 ;
297
298 (----------------------------------------------------------------------------)
299
300 ( This subroutine causes the Ordinary Overflow Flag to be Cleared : )
301
302 @Clear-OF-Ordinary@ ( Regs : none )
303 ZF
304 ;
305
306 (----------------------------------------------------------------------------)
307
308 ( This subroutine returns the Ordinary Overflow Flag : )
309
310 @Get-OF-Ordinary@ ( Regs : none )
311 O
312 ;
313
314 (----------------------------------------------------------------------------)
315
316 ( Display both Overflow Flags : )
317 @Show-Both-OF-Flags@ (Regs : none)
318
319 [Ordinary OF = ]
320 @Get-OF-Ordinary!
321 {[1]}{[0]}_
322
323 [ ]
324
325 @Get-OF-In-Cutout!
326 [Cutout's OF = ]
327 {[1]}{[0]}_
328 []
329 ;
330
331 (----------------------------------------------------------------------------)
332
333 (------------------------------ Main Program : ------------------------------)
334
335 ( Regs: none )
336
337
338 [Setting Ordinary OF:
339 ]
340 @Set-OF-Ordinary!
341
342 @Show-Both-OF-Flags!
343 [
344
345 ]
346
347 [Setting Cutout's OF:
348 ]
349 @Set-OF-In-Cutout!
350
351 @Show-Both-OF-Flags!
352 [
353
354 ]
355
356
357 ( Clear the Flags : )
358
359 [Clearing Ordinary OF:
360 ]
361 @Clear-OF-Ordinary!
362
363 @Show-Both-OF-Flags!
364 [
365
366 ]
367
368 [Clearing Cutout's OF:
369 ]
370 @Clear-OF-In-Cutout!
371
372 @Show-Both-OF-Flags!
373 [
374
375 ]
376
377
378 ( we're done: )
379 QY
380
381 (--------------------------------~~The End~~---------------------------------)