Previous Page Single Page Next Page  

* NAME: AB16-12T3 DOC 70181010000 REV F PAGE 53

2003 * 2004 04264 177760 FIN 04265 000240 04266 177774 04267 177777 04270 000260 04271 000005 04272 000255 2005 * 2006 04273 0 000000 V$SI DAC ** 2007 04274 -0 02 04273 LDA* V$SI GET LENGTH OF BYTE STRING 2008 04275 100400 SPL MUST BE A POSITIVE NUMBER 2009 04276 000000 HLT ERROR 2010 04277 0 06 04410 ADD =-1 2011 04300 101040 SNZ 2012 04301 0 07 04410 SUB =-1 2013 04302 0 05 04410 ERA =-1 ONE'S COMPLEMENT 2014 04303 0 07 04410 SUB =-1 TWO'S COMPLEMENT 2015 04304 0 04 04404 STA V$S5 STORE AT SHIFT COUNTER 2016 04305 0 04 04406 STA V$S7 PERMA. STORE 2017 04306 -0 02 04273 LDA* V$SI GET THE BYTE COUNT 2018 04307 0 05 04410 ERA =-1 ONE'S COMPLEMENT 2019 04310 0 04 04407 STA V$S8 OVERFLOW COUNTER 2020 04311 0 12 04273 IRS V$SI CALLING LOCATION PLUS TWO 2021 04312 -0 02 04273 LDA* V$SI ADDRESS FOR RIGHT-END BYTE LOCATION 2022 04313 0416 77 ALR 1 ABSOLUTE NO. FOR THE RIGHT-END BYTE 2023 04314 0 06 04404 ADD V$S5 LEFT-END BYTE LOCATION NO. 2024 04315 0 04 04402 STA V$S3 2025 04316 0 12 04273 IRS V$SI CALLING LOCATION PLUS THREE 2026 04317 -0 01 04273 JMP* V$SI RETURN 2027 * 2028 04320 0 000000 V$SB DAC ** 2029 04321 0 04 04405 STA V$S6 NEW BYTE TO BE MOVED IN 2030 04322 0 02 04402 LDA V$S3 LEFT-MOST BYTE LOCATION 2031 04323 0404 77 LGR 1 DIVIDE BY TWO FOR LEFT END WORD 2032 04324 0 04 04400 STA V$S1 LEFT-MOST WORD 2033 04325 0 07 04410 SUB =-1 2034 04326 0 04 04401 STA V$S2 WORD+1 ADDRESS 2035 04327 0 02 04402 LDA V$S3 2036 04330 0 03 04411 ANA =1 STRIP ALL BUT THE LAST BIT (EVEN-ODD TEST) 2037 04331 101040 SNZ ODD, SKIP NEXT INSTRUCTION 2038 04332 0 01 04356 JMP V$SE GO TO EVEN ROUTINE 2039 * 2040 04333 -0 02 04400 V$SF LDA* V$S1 GET THE FIRST WORD 2041 04334 0 03 04412 ANA ='177400 STRIP OFF RIGHT HALF 2042 04335 0 04 04403 STA V$S4 TEMP. STORAGE 2043 04336 -0 02 04401 LDA* V$S2 GET THE NEXT WORD 2044 04337 0404 70 LGR 8 SHIFT RIGHT 2045 04340 0 05 04403 ERA V$S4
  Previous Page Single Page Next Page