IOS-O16X

* 0170-001-6801 (IOS-O16X) CCD NO. 70181495000 REV. A PAGE 4

0151 * 0152 * METHOD 0153 * 0154 * THIS PROGRAM CONSISTS OF TEN SUBROUTINES THAT 0155 * ARE UTILIZED BY DAP-16M2. THE FOLLOWING LIST GIVES 0156 * THE ROUTINE NAMES AND FUNCTIONS. 0157 * 0158 * 0159 * 1) D$IN - CALLS FOR THE INITIALIZATION OF THE 0160 * SYMBOL TABLE BY THE ROUIINE TABLESIZ. 0161 * 0162 * 2) D$OL - OUTPUTS ONE LINE OF DATA. 0163 * 0164 * 3) D$RD - READS ONE SOURCE STATEMENT 0165 * 0166 * 4) D$OB - OUPUTS ONE BLOCK OF OBJECT TEXT. 0167 * 0168 * 5) D$HD - INITIALIZES THE HEADING. 0169 * 0170 * 6) D$SOM - OUTPUTS LEADER. 0171 * 0172 * 7) D$EOM - OUTPUTS END OF MESSAGE CODE AND PUNCHS TRAILER. 0173 * 0174 * 8) D$EJ - PAGE EJECT 0175 * 0176 * 9) D$PA - HALTS WHILE ADDITIONAL SOURCE STATEMENTS 0177 * ARE LOADED...CALLED WHEN A 'MOR' PSEUDO-0P 0178 * IS ENCOUNTERED. 0179 * 0180 * 10) D$HT - END OF PASS HALT. 0181 * 0182 * 0183 * ALL ACTUAL DATA TRANSFERS ARE PERFORMED BY I/O LIBRARY 0184 * DRIVERS WHICH ARE CALLED ON BY THIS PROGRAM. 0185 * 0186 * 0187 ********************************************************************** 0188 * 0189 SUBR D$IN INITIALIZATION 0190 SUBR D$RD READ ONE SOURCE STATEMENT 0191 SUBR D$OL LIST ONE SOURCE STATEMENT 0192 SUBR D$EJ PAGE EJECT 0193 SUBR D$HD INITIALIZE HEADING 0194 SUBR D$OB OUTPUT OBJECT TEXT BLOCK 0195 SUBR D$SOM PUNCH LEADER 0196 SUBR D$EOM OUTPUT EOM CODE 0197 SUBR D$PA PAUSE 0198 SUBR D$HT END OF PASS HALT 0199 EXT ZPT 0200 EXT ZP