Routine to clear Global assignments
                         Call to get the .END.

                         Call to move up the chain and get the first byte of
                         the label or end.
                         Is it a global label?
                         No, its an End
                         Yes-save the link in N
                         Place A in C
                         Restore A
                         Save in M

                         Call INCAD2

                         Call INCAD1-get the third byte of the label


                         Call PTBYTA-clear the key code from the label header
                         Retrieve contents of M
                         Restore A
                         Restore C
                         Found the null link (end of the chain)?
                         No
                         Yes-finish 
                         Routine to clear function assignments
                         Select chip 0
                         Get address of .END.
                         Save in B

                         Bottom of assignment registers
                         Place in A
                         Address < .END. ?
                         No
                         Get  address
                         Restore A
                         Select register
                         Read it
                         Assignment register?
                         No-then finish


                         Write F0000000000000 to register
                         Increment address
                         and continue
                         Finish
                         Routine to clear bit maps (register e and 'append')
                         without altering the line number.





                         Finish
                         Code to determine status of flags 26 and 27.  This
                         code is a repeat of that used in Part 1.