Previous File Previous Page Single Page Next Page Next File

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

2509 * 2510 * BSZ : BSZ PSEUDO-OP PROCESSOR 2511 * 2512 * ENTRY IS FROM OP-CODE TABLE SEARCH ROUTINE 2513 * 2514 * 2515 03373 0 04 00472 BSZ STA CBT1 SET PURE DATA INDICATOR 2516 03374 -0 10 00547 JST* DLC DEFINE SYMBOL IN LOCATION FIELD 2517 03375 0 10 02224 JST VAR EVALUATE EXPRESSION IN VARIABLE FIELD 2518 03376 140407 TCA OBTAIN TWOS COMPLEMENT OF BLOCK COUNT 2519 03377 101400 SMI SKIP IF A CREDIBLE SIZE BLOCK 2520 03400 -0 01 00604 JMP* BCE9 OTHERWISE FLAG A 'V' ERROR AND EXIT 2521 03401 0 04 00453 STA SIGN SAVE BLOCK COUNT 2522 03402 0 04 00500 STA DBNM SAVE BLOCK COUNT 2523 03403 140040 CRA CLEAR A REGISTER 2524 03404 0 04 00423 STA SUM SET SUM TO ZERO 2525 03405 -0 10 00544 BSZ1 JST* DUMP OUTPUT OBJECT TEXT 2526 03406 -0 10 00551 JST* LSTD LIST THE LINE 2527 03407 0 12 00410 IRS LSTW INHIBIT LISTING AFTER FIRST WORD 2528 03410 0 12 00453 IRS SIGN INCREMENT COUNT 2529 03411 0 01 03405 JMP BSZ1 GO BACK TO OUTPUT NEXT WORD 2530 03412 0 02 00410 LDA LSTW FETCH LISTING SWITCH 2531 03413 0 06 00500 ADD DBNM RESTORE IT 2532 03414 0 04 00410 STA LSTW REPLACE LISTING SWITCH 2533 03415 -0 01 00553 JMP* LIN END OF STATEMENT 2534 * 2535 * 2536 EJCT *************************************************************
Previous File Previous Page Single Page Next Page Next File