UUUUVIO_EXCEPTI˙'oIO_EXCEPT.00˙ˆSˆTˆAˆTˆUˆSˆ_ˆEˆRˆRˆ$oIO_EXCEPT.01˙ˆMˆOˆDˆEˆ_ˆEˆRˆRˆOˆRˆ$oIO_EXCEPT.02˙ˆNˆAˆMˆEˆ_ˆEˆRˆRˆOˆRˆ$oIO_EXCEPT.03˙ˆUˆSˆEˆ_ˆEˆRˆRˆOˆRˆ$oIO_EXCEPT.04˙ˆDˆEˆVˆIˆCˆEˆ_ˆEˆRˆRˆ$ oIO_EXCEPT.05˙ˆEˆNˆDˆ_ˆEˆRˆRˆOˆRˆ$  oIO_EXCEPT.06˙ˆDˆAˆTˆAˆ_ˆEˆRˆRˆOˆRˆ$  oIO_EXCEPT.07˙ˆLˆAˆYˆOˆUˆTˆ_ˆEˆRˆRˆ$ noIO_EXCEPTI˙‰‰PT.06˙ˆDˆAˆTˆAˆ_ˆEˆ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 aorg 100h jmp compilation ; ; bogus "type ada2.com" message ; db cr ; erase jump instructions db '"A" (Ada) Compiler Version 3.00 (Parser)',cr,lf db 'Copyright (c) 1981,1982,1983',cr,lf db 'Maranatha Software Systems',cr,lf db 'All rights reserved worldwide',cr,lf,1ah ; opnmsg: db cr,lf,'Phase II (Syntactical/Semantic Analysis)',cr,lf,'$' ; ******************************************************************* * Ada macros * ******************************************************************* ; de$m macro ; de := (m) mov e,m inx h mov d,m endm ; hl$m macro ; hl := (m) de$m xchg endm ; bump macro value ; hl := hl + value push d lxi d,&value dad d pop d endm ; offset macro value ; hl := (m+value) push d lxi d,&value dad d hl$m pop d endm ; m$de macro ; (m) := de mov m,e inx h mov m,d endm ; storset macro value ; (m+value) := de push b lxi b,&value dad b m$de pop