Previous File Previous Page Single Page Next Page Next File

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 66

2469 * PRINT LINE NUMBER 2470 * 2471 * 2472 * CALLING SEQUENCE: 2473 * 2474 * JST PLN 2475 * ......RETURN 2476 * 2477 * THE LINE NUMBER OF THE CURRENT STATEMENT 2478 * (OR ZERO IF EXECUTING AN IMMEADIATE MODE STMT) 2479 * IS PRINTED WITH BLANK SURPRESSION. 2480 * 2481 * 2482 * 2483 02736 0 000000 PLN DAC ** 2484 02737 0 02 00034 LDA SIP GET SI POINTER TO CURRENT STMT 2485 02740 100040 SZE ZERO IF IN IMMEADIATE MODE 2486 02741 -0 02 00034 LDA* SIP NOT IMMEADIATE MODE...GET LINE NO. FROM SI 2487 02742 0 10 00000 JST FINT FLOAT IT FOR THE OUTPUT EDITOR 2488 02743 0 10 03207 JST SCVL IT PRINTS THE FLT PNT NO. IN CVAL 2489 02744 0 02 00405 LDA C240 SURPRESS BLANKS 2490 02745 0 10 02154 JST PCVL PRINT THE NUMBER 2491 02746 -0 01 02736 JMP* PLN AND RETURN 2492 * 2493 * 2494 * 2495 EJCT
Previous File Previous Page Single Page Next Page Next File