DAP-16M2

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

2561 * 2562 * BCI : BCI PSEUDO-OP PROCESSOR 2563 * 2564 * 2565 03432 -0 10 00547 BCI JST* DLC DEFINE SYMBOL IN LOCATION FIELD 2566 03433 0 10 02224 JST VAR EVALUATE WORD COUNT 2567 03434 140407 TCA TWOS COMPLEMENT WORD COUNT 2568 03435 101400 SMI SMI SKIP IF COUNT > 0 2569 03436 0 01 03473 JMP BCER OTHERWISE FLAG 'V' ERROR AND EXIT 2570 03437 0 04 00477 STA DBCT ESTABLISH COUNT ONE 2571 03440 0 04 00500 STA DBNM ESTABLISH COUNT TWO 2572 03441 0 06 00633 ADD C29 CHECK FOR OVERSIZE COUNT 2573 03442 100400 SPL SKIP IF 0 < COUNT < 30 2574 03443 0 01 03473 JMP BCER OTHERWISE FLAG 'V' ERROR AND EXIT 2575 03444 0 02 00530 LDA DBIP ADDRESS OF STORAGE AREA 2576 03445 0 04 00501 STA DBPT ESTABLISH POINTER TO STORAGE AREA 2577 03446 -0 10 00575 BCL JST* CHRD FETCH NEXT 2578 03447 141240 ICR A(1-8)= CHARACTER. A(9-16)= 0 2579 03450 0 04 00475 STA T SAVE FIRST CHARACTER OF WORD 2580 03451 -0 10 00575 JST* CHRD FETCH NEXT CHARACTER 2581 03452 0 06 00475 ADD T INSERT PREVIOUS CHARACTER 2582 03453 -0 04 00501 STA* DBPT PLACE WORD IN STORAGE AREA 2583 03454 0 12 00501 IRS DBPT INCREMENT STORAGE POINTER 2584 03455 0 12 00477 IRS DBCT INCREMENT WORD COUNT 2585 03456 0 01 03446 JMP BCL GO BACK T0 PACK NEXT WORD 2586 03457 140040 LDMP CRA 2587 03460 0 04 00472 STA CBT1 SET CBT1 TO INDICATE PURE DATA 2588 03461 0 02 00530 LDA DBIP ESTABLISH LIST POINTER 2589 03462 0 04 00501 STA DBPT 2590 03463 -0 02 00501 BCL1 LDA* DBPT FETCH WORD FROM LIST 2591 03464 0 04 00423 STA SUM PLACE IT FOR OUTPUT 2592 03465 -0 10 00544 JST* DUMP INSERT DATA IN OBJECT TEXT 2593 03466 -0 10 00551 JST* LSTD LIST THE LINE 2594 03467 0 12 00501 IRS DBPT INCREMENT LIST POINTER 2595 03470 0 12 00500 IRS DBNM INCREMENT WORD COUNT 2596 03471 0 01 03463 JMP BCL1 GO OUTPUT NEXT WORD 2597 03472 -0 01 00553 JMP* LIN GO PROCESS NEXT STATEMENT 2598 03473 -0 10 00566 BCER JST* VER LOG 'V' ERROR 2599 03474 0 01 01157 JMP COMM GO PROCESS NEXT STATEMENT 2600 * 2601 * 2602 EJCT *************************************************************