Previous Page Single Page Next Page  

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

2046 04341 -0 04 04400 STA* V$S1 STORE AT FIRST LOCATION 2047 04342 0 12 04400 IRS V$S1 INCREMENT V$S1 2048 04343 0 12 04401 IRS V$S2 INCREMENT V$S2 2049 04344 0 12 04404 IRS V$S5 TEST IF SHIFT COUNT IS ZERO 2050 04345 0 01 04356 JMP V$SE IF NOT, GO TO EVEN ROUTINE 2051 04346 -0 02 04400 LDA* V$S1 YES, GET NEXT WORD 2052 04347 0 03 04413 ANA ='377 STRIP OFF LEFT HALF 2053 04350 -0 04 04400 STA* V$S1 STORE IN PLACE 2054 04351 0 02 04405 LDA V$S6 GET THE NEW BYTE 2055 04352 0414 70 LGL 8 SHIFT LEFT 2056 04353 -0 05 04400 ERA* V$S1 2057 04354 -0 04 04400 STA* V$S1 2058 04355 0 01 04367 JMP V$SA 2059 * 2060 04356 -0 02 04400 V$SE LDA* V$S1 GET FIRST WORD 2061 04357 0414 70 LGL 8 SHIFT LEFT 2062 04360 -0 04 04400 STA* V$S1 STORE INDIRECTLY IN PLACE 2063 04361 0 12 04404 IRS V$S5 TEST IF SHIFT COUNT IS ZERO 2064 04362 0 01 04333 JMP V$SF GO TO ODD ROUTINE 2065 04363 0 02 04405 LDA V$S6 IF YES, GET THE NEW BYTE 2066 04364 0 03 04413 ANA ='377 STRIP OFF LEFT HALF 2067 04365 -0 05 04400 ERA* V$S1 2068 04366 -0 04 04400 STA* V$S1 2069 04367 0 02 04406 V$SA LDA V$S7 2070 04370 0 04 04404 STA V$S5 RESTORE THE SHIFT COUNTER 2071 04371 0 12 04407 IRS V$S8 IF V$S8=0, GO TO OVERFLOW ROUTINE 2072 04372 0 01 04376 JMP *+4 IF V$S8 IS NOT ZERO, TAKE THE NORMAL RETURN 2073 04373 0 02 04410 LDA =-1 RE-INITIALIZE FOR OVERFLOW RETURN 2074 04374 0 04 04407 STA V$S8 SET UP FOR NEXT OVERFLOW RETURN 2075 04375 -0 01 04320 JMP* V$SB 0VERFLOW RETURN 2076 04376 0 12 04320 IRS V$SB CALLING LOCATION PLUS ONE 2077 04377 -0 01 04320 JMP* V$SB NORMAL RETURN 2078 * 2079 04400 0 000000 V$S1 DAC ** FIRST WORD 2080 04401 0 000000 V$S2 DAC ** NEXT WORD 2081 04402 000000 V$S3 BSZ 1 LEFT-MOST BYTE ADDRESS 2082 04403 000000 V$S4 BSZ 1 TEMP STORAGE 2083 04404 000000 V$S5 BSZ 1 SHIFT COUNTER 2084 04405 000000 V$S6 BSZ 1 NEW BYTE 2085 04406 000000 V$S7 BSZ 1 PERMA. STORE FOR SHIFT COUNT 2086 04407 000000 V$S8 BSZ 1 OVERFLOW COUNTER 2087 * 2088 04410 177777 FIN 04411 000001 04412 177400 04413 000377 2089 * 2090 * 2091 *
  Previous Page Single Page Next Page