QQTV `rjxFVj@ rj|a@e9L:.(+JIE2y4I&JE(:rQWTԋ $T_"D$u )'ʥBT_"BHxADA_ERROR.03")HO) up )')d0&F@!" ddp )')H)" ,eh*&oADA_ERROR.02OUTPUT_ERR$oADA_ERROR.03EOF_ERROR$noADA_ERRORSPRIMES COM LOAD COM!ERRORS TXT"#KEYS COM.$LIB COM%%PUTREL COM9&TEXT_IO SYM& TOWERS COM6,-.SPELSTAROVR+@ATEXTIO REL0ASCII REL1MAC COM\VWSPELSTARDCTBEFGHIJKLMNOPSUBPRO DOCZCOMPILE SUB[L80 COMT\]INIT RELCCCOPY COM_PRIMES SYM*E COM an't see inside ; pop psw sta subdec ; restore father's # of undefined subprograms ; pop h shld varlit ; restore outer subprogram's varlit number ; pop h shld subsav ; restore old subprogram pointer ; pop psw sta retfnd ; restore outer subprogram's boolean flag ; pop h shld father ; make the granfather the father again ; lxi h,nest dcr m ; exit from a level of nesting ; pop psw sta pkgdec ; restore father's # undefined package bodies ; xra a ; tell caller it was a proper_body ret ; ******************************************************************* * subprogram_declaration ::= subprogram_specification; * ******************************************************************* ; ; NOTE: all of the subprogram_specification has already been processed by ; subprogram body. We got here by abnormally exiting, so we have to do ; our own stack cleanup. ; subprogram$dec: lhld subsav ; get our pointer offset parent ; get our parent bump class mov a,m c