DAP-16M2

* O100-01-H101 (DPM2UP) DRAWING NO. 41286623-001-02 PAGE 64

2216 * 2217 * MESG: MESSAGE WRITER 2218 * 2219 * 2220 * CALLING SEQUENCE: 2221 * JST MESG 2222 * DAC MES 2223 * ......RETURN 2224 * 2225 * WHERE: 2226 * 2227 * MES - MESSAGE THAT IS PACKED TWO CHARACTERS 2228 * PER WORD. WITH THE MESSAGE TERMINATED BY A WORD 2229 * WITH BIT ONE RESET. 2230 * 2231 * 2232 03156 0 000000 MESG DAC ** MESSAGE WRITER 2233 03157 0 12 04052 IRS LGCT MAKE MESSAGE LOOK LIKE AN ERROR LINE 2234 03160 0 02 00715 LDA DCON FETCH LISTING BUFFER ADDRESS 2235 03161 0 04 00526 STA SYMF USE IT AS A POINTER TO THE LISTING BUFFER 2236 03162 -0 35 03156 LDX* MESG INDEX=ADDRESS OF MESSAGE 2237 03163 0 12 03156 IRS MESG INCREMENT RETURN ADDRESS 2238 03164 1 02 00000 MESL LDA 0,1 FETCH MESSAGE CHARACTER PAIR 2239 03165 101400 SMI SKIP IF NOT AT END OF MESSAGE 2240 03166 0 01 03173 JMP MSL1 ALL OF MESSAGE IS IN BUFFER 2241 03167 -0 04 00526 STA* SYMF PLACE CHARACTER PAIR IN LIST BUFFER 2242 03170 0 12 00526 IRS SYMF INCREMENT LIST BUFFER POINTER 2243 03171 0 12 00000 IRS 0 INCREMENT MESSAGE POINTER 2244 03172 0 01 03164 JMP MESL GO BACK FOR NEXT WORD 2245 03173 -0 10 00551 MSL1 JST* LSTD OUTPUT THE MESSAGE 2246 03174 -0 01 03156 JMP* MESG EXIT 2247 * 2248 * 2249 EJCT *************************************************************