DAP-16M2

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

3292 * 3293 * BLIN: INITIALIZE OBJECT TEXT BLOCK POINTERS 3294 * 3295 * 3296 * CALLING SEQUENCE: 3297 * JST BLIN 3298 * ......RETURN 3299 * 3300 * 3301 * RESULTS: 3302 * 3303 * POUT=[OUTB+3] 3304 * BLKS=-56 3305 * CKSM=ROOM=0 3306 * 3307 * 3308 04373 0 000000 BLIN DAC ** INITIALIZE BLOCK POINTERS 3309 04374 0 02 00713 LDA OUTP SET BLOCK POINTER TO ADDRESS 3310 04375 0 04 00523 STA POUT OF OUTB+3 3311 04376 0 04 04675 STA OUTB SAVE IT FOR CLEARING THE BUFFER 3312 04377 0 02 00710 LDA M56 SET WORD COUNTER TO -56 3313 04400 0 04 00512 STA BLKS DAP3 3314 04401 0 06 00671 ADD M1 ADD NEGATIVE ONE SO THAT THE LAST WORD 3315 04402 0 04 04676 STA OUTB+1 OF THE BUFFER IS CLEARED 3316 04403 140040 CRA 3317 04404 0 04 00513 STA ROOM SET BUFFER ROOM CONSTANT TO ZERO 3318 04405 0 04 00515 STA CKSM SET CHECKSUM TO ZERO 3319 04406 -0 04 04675 STA* OUTB ZERO THE BUFFER 3320 04407 0 12 04675 IRS OUTB INCREMENT ADDRESS 3321 04410 0 12 04676 IRS OUTB+1 BUMP COUNTER, FINISHED YET 3322 04411 0 01 04406 JMP *-3 IF NOT, LOOP 3323 04412 -0 01 04373 JMP* BLIN EXIT 3324 * 3325 * 3326 EJCT *************************************************************