te last buffer
;
        lxi     d,intfcb
        mvi     c,fclose
        call    bdos            ; close output file
;
        lxi     d,dfcb
        mvi     c,fdel
        call    bdos            ; delete token file
;
        lxi     h,dfcb
        mvi     c,36
done1:  mvi     m,0             ; clear default file control block
        inx     h
        dcr     c
        jnz     done1
;
        lxi     d,intfcb
        lxi     h,dfcb
        mvi     c,12
done2:  ldax    d
        mov     m,a
        inx     h
        inx     d
        dcr     c
        jnz     done2
;
        lda     errors
        ora     a
        jz      pass3
;
	lxi	d,p3nrmsg
	call	prmsg
	jmp     fatal
;
nomsg:	db	'No'
dmsg:   db      ' syntax error(s)',cr,lf,cr,lf,'$'
ecimsg:	db	'Warning: extra code ignored',cr,lf,'$'
p3nrmsg:db	'Ada Phase III not loaded due to Phase II errors',cr,lf,'$'
;
*******************************************************************
* compilation_unit ::= context_clause library_unit		  *
*		    |  context_clause secondary_unit		  *
*								  *
* library_unit ::= subprogram_body | package_decla