age label lhld subsav ; storset stglbl ; lda token cpi 33 ; IS? jz subb2 call perror db 137 ; ; see if this was a subprogram declaration ; subb101:lda token cpi 78 ; semicolon? jz subprogram$dec ; ; process subprogram ; subb102:lda token cpi 33 ; check for IS jz subb2 ; not subprogram call perror db 13 jmp subb0 ; ; IS found, check for body stub ; subb2: call insymbol ; get next token cpi 56 ; SEPARATE? jnz subb0 ; ; process SEPARATE subprogram ; call insymbol cpi 78 ; semicolon jz subbsep call perror db 68 ; ; set sym tab entry to reflect separate entry ; subbsep:lhld subsav ; lxi d,-1 ; tell rest of compiler storset labl ; this is external lhld numstubs inx h ; incre