/ Transactor / Transactor_25_1988_Transactor_Publishing.d64 / 05divi

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 29 1c 0a 00 8f 20 | 53 43 52 41 54 43 48 22 |..).... |SCRATCH"|
|00000010| 30 35 44 49 56 49 44 45 | 22 3a 44 53 41 56 45 22 |05DIVIDE|":DSAVE"|
|00000020| 30 35 44 49 56 49 44 45 | 22 00 34 1c 14 00 9e 20 |05DIVIDE|".4.... |
|00000030| 34 30 30 30 00 3f 1c 1e | 00 2e fe 02 20 31 35 00 |4000.?..|.... 15.|
|00000040| 4d 1c 28 00 2e b0 47 20 | 24 30 42 30 30 00 56 1c |M.(...G |$0B00.V.|
|00000050| 32 00 2e 4d 45 4d 00 75 | 1c 3c 00 4e 31 20 2e 57 |2..MEM.u|.<.N1 .W|
|00000060| b0 44 20 30 3b 20 4e 55 | 4d 45 52 41 a4 52 20 50 |.D 0; NU|MERA.R P|
|00000070| 41 53 53 45 44 00 96 1c | 46 00 4e 32 20 2e 57 b0 |ASSED...|F.N2 .W.|
|00000080| 44 20 30 3b 20 44 45 4e | 4f 4d 49 4e 41 a4 52 20 |D 0; DEN|OMINA.R |
|00000090| 50 41 53 53 45 44 00 ad | 1c 50 00 52 45 53 20 2e |PASSED..|.P.RES .|
|000000a0| 57 b0 44 20 30 3b 20 52 | 45 53 55 4c 54 00 c6 1c |W.D 0; R|ESULT...|
|000000b0| 5a 00 8f 20 2e 57 4f 52 | 44 20 30 3b 20 52 45 4d |Z.. .WOR|D 0; REM|
|000000c0| 41 49 4e 44 45 52 00 df | 1c 64 00 4e 55 4d 20 2e |AINDER..|.d.NUM .|
|000000d0| 57 b0 44 20 30 3b 20 4e | 55 4d 45 52 41 a4 52 00 |W.D 0; N|UMERA.R.|
|000000e0| fa 1c 6e 00 44 45 4e 20 | 2e 57 b0 44 20 30 3b 20 |..n.DEN |.W.D 0; |
|000000f0| 44 45 4e 4f 4d 49 4e 41 | a4 52 00 0d 1d 78 00 43 |DENOMINA|.R...x.C|
|00000100| 4f 55 4e 54 31 20 2e 42 | 59 54 45 20 30 00 20 1d |OUNT1 .B|YTE 0. .|
|00000110| 82 00 43 4f 55 4e 54 32 | 20 2e 42 59 54 45 20 30 |..COUNT2| .BYTE 0|
|00000120| 00 4a 1d 8c 00 4c 44 41 | 20 23 30 3a 53 54 41 20 |.J...LDA| #0:STA |
|00000130| 43 4f 55 4e 54 31 3a 4c | 44 41 20 23 31 32 38 3a |COUNT1:L|DA #128:|
|00000140| 53 54 41 20 43 4f 55 4e | 54 32 00 6a 1d 96 00 eb |STA COUN|T2.j....|
|00000150| 49 54 33 32 4b 20 d1 20 | 43 4f 55 4e 54 31 3a 42 |IT32K . |COUNT1:B|
|00000160| 4e 45 20 49 54 45 52 41 | 54 45 00 83 1d a0 00 d1 |NE ITERA|TE......|
|00000170| 20 43 4f 55 4e 54 32 3a | 42 4e 45 20 49 54 45 52 | COUNT2:|BNE ITER|
|00000180| 41 54 45 00 8b 1d aa 00 | 52 54 53 00 a3 1d b4 00 |ATE.....|RTS.....|
|00000190| 49 54 45 52 41 54 45 20 | 4a 53 52 20 52 4f 55 54 |ITERATE |JSR ROUT|
|000001a0| 49 4e 45 00 e2 1d be 00 | 42 43 43 20 eb 49 54 33 |INE.....|BCC .IT3|
|000001b0| 32 4b 3a 52 54 53 3b 20 | 20 8b 20 52 4f 55 54 49 |2K:RTS; | . ROUTI|
|000001c0| 4e 45 20 53 45 54 20 54 | 48 45 20 43 41 52 52 59 |NE SET T|HE CARRY|
|000001d0| 2c 20 41 4e 20 45 52 52 | b0 20 4f 43 43 55 52 52 |, AN ERR|. OCCURR|
|000001e0| 45 44 00 f2 1d c8 00 52 | 4f 55 54 49 4e 45 20 b2 |ED.....R|OUTINE .|
|000001f0| 20 ac 00 14 1e d2 00 3b | 20 43 48 45 43 4b 20 81 | ......;| CHECK .|
|00000200| 20 44 49 56 49 44 45 20 | 42 59 20 5a 45 52 4f 20 | DIVIDE |BY ZERO |
|00000210| 45 52 52 b0 00 30 1e dc | 00 4c 44 41 20 4e 32 3a |ERR..0..|.LDA N2:|
|00000220| b0 41 20 4e 32 aa 31 3a | 42 4e 45 20 49 4e 49 54 |.A N2.1:|BNE INIT|
|00000230| 00 3c 1e e6 00 53 45 43 | 3a 52 54 53 00 53 1e f0 |.<...SEC|:RTS.S..|
|00000240| 00 3b 20 5a 45 52 4f 20 | 4f 55 54 20 52 45 53 20 |.; ZERO |OUT RES |
|00000250| af 20 8f 00 85 1e fa 00 | 49 4e 49 54 20 4c 44 41 |. ......|INIT LDA|
|00000260| 20 23 30 3a 53 54 41 20 | 52 45 53 3a 53 54 41 20 | #0:STA |RES:STA |
|00000270| 52 45 53 aa 31 3a 53 54 | 41 20 8f 3a 53 54 41 20 |RES.1:ST|A .:STA |
|00000280| 52 45 4d 2b 31 00 a1 1e | 04 01 3b 20 f4 20 4e 31 |REM+1...|..; . N1|
|00000290| 20 a4 20 4e 55 4d 20 af | 20 4e 32 20 a4 20 44 45 | . NUM .| N2 . DE|
|000002a0| 4e 00 cb 1e 0e 01 4c 44 | 59 20 23 33 3a ec 20 4c |N.....LD|Y #3:. L|
|000002b0| 44 41 20 4e 31 2c 59 3a | 53 54 41 20 4e 55 4d 2c |DA N1,Y:|STA NUM,|
|000002c0| 59 3a 44 45 59 3a 42 50 | 4c 20 ec 00 d1 1e 18 01 |Y:DEY:BP|L ......|
|000002d0| 3b 00 de 1e 22 01 4d 41 | 49 4e 20 b2 20 ac 00 06 |;...".MA|IN . ...|
|000002e0| 1f 2c 01 4e 55 4d 42 49 | 54 53 20 b2 20 31 36 3b |.,.NUMBI|TS . 16;|
|000002f0| 20 4e 55 4d 42 45 52 20 | 4f 46 20 42 49 54 53 20 | NUMBER |OF BITS |
|00000300| 49 4e 20 4e 55 4d 00 17 | 1f 36 01 4c 44 58 20 23 |IN NUM..|.6.LDX #|
|00000310| 4e 55 4d 42 49 54 53 00 | 42 1f 40 01 4d 41 49 4e |NUMBITS.|B.@.MAIN|
|00000320| ec 20 4a 53 52 20 44 49 | 56 49 44 45 3a 44 45 58 |. JSR DI|VIDE:DEX|
|00000330| 3a 42 4e 45 20 4d 41 49 | 4e ec 3a 43 4c 43 3a 52 |:BNE MAI|N.:CLC:R|
|00000340| 54 53 00 6f 1f 4a 01 44 | 49 56 49 44 45 20 41 53 |TS.o.J.D|IVIDE AS|
|00000350| 4c 20 4e 55 4d 3a 52 4f | 4c 20 4e 55 4d aa 31 3a |L NUM:RO|L NUM.1:|
|00000360| 52 4f 4c 20 8f 3a 52 4f | 4c 20 52 45 4d 2b 31 00 |ROL .:RO|L REM+1.|
|00000370| 9d 1f 54 01 4c 44 41 20 | 8f 2b 31 3a 43 4d 50 20 |..T.LDA |.+1:CMP |
|00000380| 44 45 4e 2b 31 3b 20 43 | 4f 4d 50 41 52 45 20 54 |DEN+1; C|OMPARE T|
|00000390| 48 45 20 48 49 47 48 20 | 42 59 54 45 53 00 d0 1f |HE HIGH |BYTES...|
|000003a0| 5e 01 42 45 51 20 a8 53 | 55 52 45 3b 20 8b 20 45 |^.BEQ .S|URE; . E|
|000003b0| 51 55 41 4c 2c 20 43 41 | 4e 27 54 20 54 45 4c 4c |QUAL, CA|N'T TELL|
|000003c0| 20 57 48 49 43 48 20 49 | 53 20 42 49 47 47 45 52 | WHICH I|S BIGGER|
|000003d0| 00 fe 1f 68 01 42 43 53 | 20 eb 55 42 4c 45 53 55 |...h.BCS| .UBLESU|
|000003e0| 42 3b 20 8b 20 8f 20 49 | 53 20 42 49 47 47 45 52 |B; . . I|S BIGGER|
|000003f0| 2c 20 53 55 42 54 52 41 | 43 54 20 44 45 4e 00 3d |, SUBTRA|CT DEN.=|
|00000400| 20 72 01 41 4e 53 57 45 | 52 42 49 54 20 52 4f 4c | r.ANSWE|RBIT ROL|
|00000410| 20 52 45 53 3a 52 4f 4c | 20 52 45 53 aa 31 3a 52 | RES:ROL| RES.1:R|
|00000420| 54 53 3b 20 a1 20 54 48 | 45 20 43 41 52 52 59 20 |TS; . TH|E CARRY |
|00000430| b5 4f 20 54 48 45 20 52 | 45 53 55 4c 54 00 76 20 |.O THE R|ESULT.v |
|00000440| 7c 01 a8 53 55 52 45 20 | 4c 44 41 20 8f 3a 43 4d ||..SURE |LDA .:CM|
|00000450| 50 20 44 45 4e 3a 42 43 | 43 20 41 4e 53 57 45 52 |P DEN:BC|C ANSWER|
|00000460| 42 49 54 3b 20 41 4e 4f | 54 48 45 52 20 5a 45 52 |BIT; ANO|THER ZER|
|00000470| 4f 20 42 49 54 3f 00 b5 | 20 86 01 eb 55 42 4c 45 |O BIT?..| ...UBLE|
|00000480| 53 55 42 20 4a 53 52 20 | 41 4e 53 57 45 52 42 49 |SUB JSR |ANSWERBI|
|00000490| 54 3b 20 45 56 45 4e 20 | 8b 20 43 41 52 52 59 20 |T; EVEN |. CARRY |
|000004a0| 49 53 20 53 45 54 2c 20 | 50 55 54 20 49 54 20 b5 |IS SET, |PUT IT .|
|000004b0| 4f 20 52 45 53 00 bd 20 | 90 01 53 45 43 00 d7 20 |O RES.. |..SEC.. |
|000004c0| 9a 01 4c 44 41 20 8f 3a | 53 42 43 20 44 45 4e 3a |..LDA .:|SBC DEN:|
|000004d0| 53 54 41 20 52 45 4d 00 | f7 20 a4 01 4c 44 41 20 |STA REM.|. ..LDA |
|000004e0| 8f 2b 31 3a 53 42 43 20 | 44 45 4e 2b 31 3a 53 54 |.+1:SBC |DEN+1:ST|
|000004f0| 41 20 52 45 4d 2b 31 00 | ff 20 ae 01 52 54 53 00 |A REM+1.|. ..RTS.|
|00000500| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+