00100 *************************
00110 *
00120 * ATONW.ASM
00130 * MDJ 02-13-91
00140 *
00150 * LAST DIGIT ADJUSTMENT
00160 * ROUTINE FOR ATONCV
00170 *
00180 * IF THE % SIGN IS THE
00190 * LAST DIGIT INPUT IN THE
00200 * DOUBLE NUMBER RECEIVED
00210 * FROM THE INPUT STREAM,
00220 * THIS ROUTINE DIVIDES
00230 * THE TEMPORARY COMBINED
00240 * RESULT BY THE NUMBER 
00250 * BASE TO ADJUST FOR THE
00260 * PREVIOUS PREPARATORY
00270 * MULTIPLICATION
00280 *
00290 *************************
00300 *
00310 ATONX   EQU     $4527
00320 NUMBER  EQU     $4564
00330 BASEL   EQU     $FC
00340 D3216   EQU     $437E
00350 DIVDND  EQU     $CB
00360 DIVSOR  EQU     $CF
00370 QUOTNT  EQU     $CB
00380         ORG     $478E
00390 ATONW   LDD     NUMBER  MOVE NUMBER TO DIVISION ROUTINE
00400         STD     DIVDND
00410         LDD     NUMBER+2
00420         STD     DIVDND+2
00430         LDD     BASEL   MOVE NUMBER BASE TO DIVISOR
00440         STD     DIVSOR
00450         JSR     D3216   GO DIVIDE
00460         LDD     QUOTNT  MOVE QUOTIENT BACK TO NUMBER
00470         STD     NUMBER
00480         LDD     QUOTNT+2
00490         STD     NUMBER+2
00500         JMP     ATONX   JUMP BACK INTO ATONCV ROUTINE
00510 ZEND    NOP
00520         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
