ffa_ch19_peh_tuni... 1 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 2 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 3 (- Demo Tape for 'Peh'; illustrates change in Flag semantics in Chapter 19. -)
ffa_ch19_peh_tuni... 4 (- -)
ffa_ch19_peh_tuni... 5 (- (C) 2019 Stanislav Datskovskiy ( www.loper-os.org ) -)
ffa_ch19_peh_tuni... 6 (- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html -)
ffa_ch19_peh_tuni... 7 (- -)
ffa_ch19_peh_tuni... 8 (- You do not have, nor can you ever acquire the right to use, copy or -)
ffa_ch19_peh_tuni... 9 (- distribute this software ; Should you use this software for any purpose, -)
ffa_ch19_peh_tuni... 10 (- or copy and distribute it to anyone or in any manner, you are breaking -)
ffa_ch19_peh_tuni... 11 (- the laws of whatever soi-disant jurisdiction, and you promise to -)
ffa_ch19_peh_tuni... 12 (- continue doing so for the indefinite future. In any case, please -)
ffa_ch19_peh_tuni... 13 (- always : read and understand any software ; verify any PGP signatures -)
ffa_ch19_peh_tuni... 14 (- that you use - for any purpose. -)
ffa_ch19_peh_tuni... 15 (- -)
ffa_ch19_peh_tuni... 16 (- See also http://trilema.com/2015/a-new-software-licensing-paradigm . -)
ffa_ch19_peh_tuni... 17 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 18 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 19
ffa_ch19_peh_tuni... 20 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 21
ffa_ch19_peh_tuni... 22 ( Begin the Cutout: )
ffa_ch19_peh_tuni... 23 LC
ffa_ch19_peh_tuni... 24
ffa_ch19_peh_tuni... 25 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 26
ffa_ch19_peh_tuni... 27 ( This subroutine causes the Cutout-Active Overflow Flag to be Set : )
ffa_ch19_peh_tuni... 28
ffa_ch19_peh_tuni... 29 @Set-OF-In-Cutout@ ( Regs : none )
ffa_ch19_peh_tuni... 30 .0 .1 - _
ffa_ch19_peh_tuni... 31 ;
ffa_ch19_peh_tuni... 32
ffa_ch19_peh_tuni... 33 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 34
ffa_ch19_peh_tuni... 35 ( This subroutine causes the Cutout-Active Overflow Flag to be Cleared : )
ffa_ch19_peh_tuni... 36
ffa_ch19_peh_tuni... 37 @Clear-OF-In-Cutout@ ( Regs : none )
ffa_ch19_peh_tuni... 38 ZF
ffa_ch19_peh_tuni... 39 ;
ffa_ch19_peh_tuni... 40
ffa_ch19_peh_tuni... 41 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 42
ffa_ch19_peh_tuni... 43
ffa_ch19_peh_tuni... 44 ( This subroutine returns the Cutout-Active Overflow Flag : )
ffa_ch19_peh_tuni... 45
ffa_ch19_peh_tuni... 46 @Get-OF-In-Cutout@ ( Regs : none )
ffa_ch19_peh_tuni... 47 O
ffa_ch19_peh_tuni... 48 ;
ffa_ch19_peh_tuni... 49
ffa_ch19_peh_tuni... 50 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 51
ffa_ch19_peh_tuni... 52 ( Terminate the Cutout : )
ffa_ch19_peh_tuni... 53 RC
ffa_ch19_peh_tuni... 54
ffa_ch19_peh_tuni... 55 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 56
ffa_ch19_peh_tuni... 57 ( This subroutine causes the Ordinary Overflow Flag to be Set : )
ffa_ch19_peh_tuni... 58
ffa_ch19_peh_tuni... 59 @Set-OF-Ordinary@ ( Regs : none )
ffa_ch19_peh_tuni... 60 .0 .1 - _
ffa_ch19_peh_tuni... 61 ;
ffa_ch19_peh_tuni... 62
ffa_ch19_peh_tuni... 63 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 64
ffa_ch19_peh_tuni... 65 ( This subroutine causes the Ordinary Overflow Flag to be Cleared : )
ffa_ch19_peh_tuni... 66
ffa_ch19_peh_tuni... 67 @Clear-OF-Ordinary@ ( Regs : none )
ffa_ch19_peh_tuni... 68 ZF
ffa_ch19_peh_tuni... 69 ;
ffa_ch19_peh_tuni... 70
ffa_ch19_peh_tuni... 71 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 72
ffa_ch19_peh_tuni... 73 ( This subroutine returns the Ordinary Overflow Flag : )
ffa_ch19_peh_tuni... 74
ffa_ch19_peh_tuni... 75 @Get-OF-Ordinary@ ( Regs : none )
ffa_ch19_peh_tuni... 76 O
ffa_ch19_peh_tuni... 77 ;
ffa_ch19_peh_tuni... 78
ffa_ch19_peh_tuni... 79 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 80
ffa_ch19_peh_tuni... 81 ( Display both Overflow Flags : )
ffa_ch19_peh_tuni... 82 @Show-Both-OF-Flags@ (Regs : none)
ffa_ch19_peh_tuni... 83
ffa_ch19_peh_tuni... 84 [Ordinary OF = ]
ffa_ch19_peh_tuni... 85 @Get-OF-Ordinary!
ffa_ch19_peh_tuni... 86 {[1]}{[0]}_
ffa_ch19_peh_tuni... 87
ffa_ch19_peh_tuni... 88 [ ]
ffa_ch19_peh_tuni... 89
ffa_ch19_peh_tuni... 90 @Get-OF-In-Cutout!
ffa_ch19_peh_tuni... 91 [Cutout's OF = ]
ffa_ch19_peh_tuni... 92 {[1]}{[0]}_
ffa_ch19_peh_tuni... 93 []
ffa_ch19_peh_tuni... 94 ;
ffa_ch19_peh_tuni... 95
ffa_ch19_peh_tuni... 96 (----------------------------------------------------------------------------)
ffa_ch19_peh_tuni... 97
ffa_ch19_peh_tuni... 98 (------------------------------ Main Program : ------------------------------)
ffa_ch19_peh_tuni... 99
ffa_ch19_peh_tuni... 100 ( Regs: none )
ffa_ch19_peh_tuni... 101
ffa_ch19_peh_tuni... 102
ffa_ch19_peh_tuni... 103 [Setting Ordinary OF:
ffa_ch19_peh_tuni... 104 ]
ffa_ch19_peh_tuni... 105 @Set-OF-Ordinary!
ffa_ch19_peh_tuni... 106
ffa_ch19_peh_tuni... 107 @Show-Both-OF-Flags!
ffa_ch19_peh_tuni... 108 [
ffa_ch19_peh_tuni... 109
ffa_ch19_peh_tuni... 110 ]
ffa_ch19_peh_tuni... 111
ffa_ch19_peh_tuni... 112 [Setting Cutout's OF:
ffa_ch19_peh_tuni... 113 ]
ffa_ch19_peh_tuni... 114 @Set-OF-In-Cutout!
ffa_ch19_peh_tuni... 115
ffa_ch19_peh_tuni... 116 @Show-Both-OF-Flags!
ffa_ch19_peh_tuni... 117 [
ffa_ch19_peh_tuni... 118
ffa_ch19_peh_tuni... 119 ]
ffa_ch19_peh_tuni... 120
ffa_ch19_peh_tuni... 121
ffa_ch19_peh_tuni... 122 ( Clear the Flags : )
ffa_ch19_peh_tuni... 123
ffa_ch19_peh_tuni... 124 [Clearing Ordinary OF:
ffa_ch19_peh_tuni... 125 ]
ffa_ch19_peh_tuni... 126 @Clear-OF-Ordinary!
ffa_ch19_peh_tuni... 127
ffa_ch19_peh_tuni... 128 @Show-Both-OF-Flags!
ffa_ch19_peh_tuni... 129 [
ffa_ch19_peh_tuni... 130
ffa_ch19_peh_tuni... 131 ]
ffa_ch19_peh_tuni... 132
ffa_ch19_peh_tuni... 133 [Clearing Cutout's OF:
ffa_ch19_peh_tuni... 134 ]
ffa_ch19_peh_tuni... 135 @Clear-OF-In-Cutout!
ffa_ch19_peh_tuni... 136
ffa_ch19_peh_tuni... 137 @Show-Both-OF-Flags!
ffa_ch19_peh_tuni... 138 [
ffa_ch19_peh_tuni... 139
ffa_ch19_peh_tuni... 140 ]
ffa_ch19_peh_tuni... 141
ffa_ch19_peh_tuni... 142
ffa_ch19_peh_tuni... 143 ( we're done: )
ffa_ch19_peh_tuni... 144 QY
ffa_ch19_peh_tuni... 145
ffa_ch19_peh_tuni... 146 (--------------------------------~~The End~~---------------------------------)