(----------------------------------------------------------------------------)
(----------------------------------------------------------------------------)
(- Demo Tape for 'Peh'; illustrates change in Flag semantics in Chapter 19. -)
(-                                                                          -)
(- (C) 2019 Stanislav Datskovskiy ( www.loper-os.org )                      -)
(- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html     -)
(-                                                                          -)
(- You do not have, nor can you ever acquire the right to use, copy or      -)
(- distribute this software ; Should you use this software for any purpose, -)
(- or copy and distribute it to anyone or in any manner, you are breaking   -)
(- the laws of whatever soi-disant jurisdiction, and you promise to         -)
(- continue doing so for the indefinite future. In any case, please         -)
(- always : read and understand any software ; verify any PGP signatures    -)
(- that you use - for any purpose.                                          -)
(-                                                                          -)
(- See also http://trilema.com/2015/a-new-software-licensing-paradigm .     -)
(----------------------------------------------------------------------------)
(----------------------------------------------------------------------------)

(----------------------------------------------------------------------------)

( Begin the Cutout: )
LC

(----------------------------------------------------------------------------)

( This subroutine causes the Cutout-Active Overflow Flag to be Set : )

@Set-OF-In-Cutout@ ( Regs : none )
        .0 .1 - _
;

(----------------------------------------------------------------------------)

( This subroutine causes the Cutout-Active Overflow Flag to be Cleared : )

@Clear-OF-In-Cutout@ ( Regs : none )
        ZF
;

(----------------------------------------------------------------------------)


( This subroutine returns the Cutout-Active Overflow Flag : )

@Get-OF-In-Cutout@ ( Regs : none )
        O
;

(----------------------------------------------------------------------------)

( Terminate the Cutout : )
RC

(----------------------------------------------------------------------------)

( This subroutine causes the Ordinary Overflow Flag to be Set : )

@Set-OF-Ordinary@ ( Regs : none )
        .0 .1 - _
;

(----------------------------------------------------------------------------)

( This subroutine causes the Ordinary Overflow Flag to be Cleared : )

@Clear-OF-Ordinary@ ( Regs : none )
        ZF
;

(----------------------------------------------------------------------------)

( This subroutine returns the Ordinary Overflow Flag : )

@Get-OF-Ordinary@ ( Regs : none )
        O
;

(----------------------------------------------------------------------------)

( Display both Overflow Flags : )
@Show-Both-OF-Flags@ (Regs : none)

                [Ordinary OF = ]
                @Get-OF-Ordinary!
                {[1]}{[0]}_

                [ ]

                @Get-OF-In-Cutout!
                [Cutout's OF = ]
                {[1]}{[0]}_
                []
;

(----------------------------------------------------------------------------)

(------------------------------ Main Program : ------------------------------)

( Regs: none )


[Setting Ordinary OF:
]
@Set-OF-Ordinary!

@Show-Both-OF-Flags!
[

]

[Setting Cutout's OF:
]
@Set-OF-In-Cutout!

@Show-Both-OF-Flags!
[

]


( Clear the Flags : )

[Clearing Ordinary OF:
]
@Clear-OF-Ordinary!

@Show-Both-OF-Flags!
[

]

[Clearing Cutout's OF:
]
@Clear-OF-In-Cutout!

@Show-Both-OF-Flags!
[

]


( we're done:  )
QY

(--------------------------------~~The End~~---------------------------------)