AppleIIAsm-Collection/source/disk20_minidisk_A/T.DIVD8.SUB.MIN

DIVD8
         PLA
         STA   RETADR
         PLA
         STA   RETADR+1
         PLA
         STA   :DVEND
         PLA
         STA   :DVSOR
         LDA   #$00
         LDY   #8
         ASL   :DVSOR
:L1      ROL
         CMP   :DVEND
         BCC   :L2
         SBC   :DVEND
:L2      ROL   :DVSOR
         DEY
         BNE   :L1
         STA   :REM
         LDA   RETADR+1
         PHA
         LDA   RETADR
         PHA
         LDY   :REM       ; REMAINDER TO Y
               LDA        #1
         STA   RETLEN
         LDA   :DVSOR
         STA   RETURN
         RTS
:REM     DS    1
:DVEND   DS    1
:DVSOR   DS    1
Math Routines 0.2.0 update - fixed a plethora of bugs - overhauled demo - integrated shared required library and macros - began early planning of floating-point routines and macros - created minified, no-comment versions of every routine 2018-12-21 16:47:01 -05:00			`DIVD8`
			`PLA`
			`STA RETADR`
			`PLA`
			`STA RETADR+1`
			`PLA`
			`STA :DVEND`
			`PLA`
			`STA :DVSOR`
			`LDA #$00`
			`LDY #8`
			`ASL :DVSOR`
			`:L1 ROL`
			`CMP :DVEND`
			`BCC :L2`
			`SBC :DVEND`
			`:L2 ROL :DVSOR`
			`DEY`
			`BNE :L1`
			`STA :REM`
			`LDA RETADR+1`
			`PHA`
			`LDA RETADR`
			`PHA`
Disk 4: MATH 0.3.0 updates - separated each subroutine into own file - minor changes to comments - not too many changes for 0.3.0, really. Major changes for this disk will come with 0.5.0 2019-01-20 22:03:35 -05:00			`LDY :REM ; REMAINDER TO Y`
			`LDA #1`
Math Routines 0.2.0 update - fixed a plethora of bugs - overhauled demo - integrated shared required library and macros - began early planning of floating-point routines and macros - created minified, no-comment versions of every routine 2018-12-21 16:47:01 -05:00			`STA RETLEN`
			`LDA :DVSOR`
			`STA RETURN`
			`RTS`
			`:REM DS 1`
			`:DVEND DS 1`
			`:DVSOR DS 1`