Previous File Previous Page Single Page Next Page Next File

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 42

2000 03425 141206 AOA 2001 03426 0 11 00044 AS41 CAS L CHECK AGAINST BOTTOM OF TRIAD TABLE 2002 03427 101000 NOP 2003 03430 0 01 03456 JMP AS50 2004 03431 0 06 00104 ADD '104 =DP,1 2005 03432 0 04 03463 STA AS91 AS91 = NEW TABLE TOP 2006 03433 0 06 03240 ADD T0AS 2007 03434 0 04 03464 STA AS92 AS92 2008 03435 0 07 03240 SUB T0AS COMPUTE SIZE OF FLOATING TABLES 2009 03436 0 07 00104 SUB '104 =DP,1 2010 03437 0 07 00661 SUB DO 2011 03440 101040 SNZ IF ZERO, ASSIGN TABLE ONLY, 2012 03441 0 01 03331 JMP AS16 2013 03442 140407 TCA 2014 03443 0 04 03240 STA T0AS 2015 03444 140040 CRA 2016 03445 0 04 00000 STA XR 2017 03446 -0 02 03464 AS46 LDA* AS92 END-5 2018 03447 -0 04 03463 STA* AS91 END (MOVE TABLES UP) 2019 03450 0 02 00000 LDA 0 2020 03451 0 07 00717 SUB K101 =1 2021 03452 0 04 00000 STA 0 REDUCE INDEX 2022 03453 0 12 03240 IRS T0AS = NO, OF WORDS TO MOVE 2023 03454 0 01 03446 JMP AS46 2024 03455 0 01 03331 JMP AS16 2025 03456 0 10 03116 AS50 JST ER00 2026 03457 146717 BCI 1,MO DATA POOL OVERFLOW 2027 03460 0 02 00661 AS60 LDA DO 2028 03461 0 06 00057 ADD D 2029 03462 0 01 03426 JMP AS41 2030 03463 0 000000 AS91 DAC 0 2031 03464 0 000000 AS92 DAC ** 2032 * 2033 * 2034 * 2035 * 2036 * **************** 2037 * *TAG SUBPROGRAM* 2038 * **************** 2039 * TAG ITEM AS A SUBPROGRAM, CHECK TO SEE IF 2040 * NAME IS IN IMPLICIT MODE TABLE AND SET 2041 * MODE ACCORDINGLY 2042 * 2043 03465 0 000000 TG00 DAC ** 2044 03466 0 02 00655 LDA IU 2045 03467 0 07 00717 SUB K101 IF IU = SUB 2046 03470 101040 SNZ 2047 03471 -0 01 03465 JMP* TG00 RETURN, ELSE 2048 03472 0 10 02603 JST NU00 NO * USAGE TEST 2049 03473 0 02 03534 LDA TG22 =-21
Previous File Previous Page Single Page Next Page Next File