DIVIDE.PAL
FILE INFORMATION
FILENAME(S): DIVIDE.PAL
FILE TYPE(S): PRG
FILE SIZE: 527b
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
cac25163cfdf5139ddbd9dc7e78f2493783fee8b33a97cca2ed42b0320304ab9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | DIVIDE.PAL | PRG | DuncanTwain | 28 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 5A 00 3B 20 44 49 56 49 44 45 20 52 |....Z.; DIVIDE R| 00000010: 4F 55 54 49 4E 45 00 24 08 64 00 44 4C 4F 4F 50 |OUTINE.$.d.DLOOP| 00000020: 20 B2 20 AC 00 31 08 6E 00 41 53 4C 20 4D 32 AA | . ..1.n.ASL M2.| 00000030: 31 00 3C 08 78 00 52 4F 4C 20 4D 32 00 49 08 82 |1.<.x.ROL M2.I..| 00000040: 00 52 4F 4C 20 4D 32 AA 31 00 54 08 8C 00 52 4F |.ROL M2.1.T...RO| 00000050: 4C 20 52 32 00 5C 08 96 00 53 45 43 00 69 08 A0 |L R2.\...SEC.i..| 00000060: 00 4C 44 41 20 52 32 AA 31 00 76 08 AA 00 53 42 |.LDA R2.1.v...SB| 00000070: 43 20 4D 31 AA 31 00 98 08 B4 00 54 41 58 20 20 |C M1.1.....TAX | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 94 20 | ;. | 00000090: 4C 4F 57 20 42 59 54 45 00 A3 08 BE 00 4C 44 41 |LOW BYTE.....LDA| 000000A0: 20 52 32 00 AE 08 C8 00 53 42 43 20 4D 31 00 D1 | R2.....SBC M1..| 000000B0: 08 D2 00 54 41 59 20 20 20 20 20 20 20 20 20 20 |...TAY | 000000C0: 20 20 20 20 20 3B 94 20 48 49 47 48 20 42 59 54 | ;. HIGH BYT| 000000D0: 45 00 DF 08 DC 00 42 43 43 20 53 4B 49 50 94 00 |E.....BCC SKIP..| 000000E0: 04 09 E6 00 53 54 58 20 52 32 AA 31 20 20 20 20 |....STX R2.1 | 000000F0: 20 20 20 20 20 20 3B 53 A4 52 45 20 94 44 20 42 | ;S.RE .D B| 00000100: 59 54 45 53 00 21 09 F0 00 53 54 59 20 52 32 20 |YTES.!...STY R2 | 00000110: 20 20 20 20 20 20 20 20 20 20 20 3B 49 4E 20 52 | ;IN R| 00000120: 32 00 2F 09 FA 00 53 4B 49 50 94 20 B2 20 AC 00 |2./...SKIP. . ..| 00000130: 56 09 04 01 52 4F 4C 20 52 31 AA 31 20 20 20 20 |V...ROL R1.1 | 00000140: 20 20 20 20 20 20 3B 53 48 8B 54 20 43 41 52 52 | ;SH.T CARR| 00000150: 59 20 46 52 4F 4D 00 7C 09 0E 01 52 4F 4C 20 52 |Y FROM.|...ROL R| 00000160: 31 20 20 20 20 20 20 20 20 20 20 20 20 3B 53 55 |1 ;SU| 00000170: 42 54 52 41 43 54 20 B5 4F 20 52 31 00 89 09 18 |BTRACT .O R1....| 00000180: 01 4C 44 41 20 4D 32 AA 31 00 97 09 22 01 42 4E |.LDA M2.1...".BN| 00000190: 45 20 44 4C 4F 4F 50 00 A2 09 2C 01 4C 44 41 20 |E DLOOP...,.LDA | 000001A0: 4D 32 00 B0 09 36 01 42 4E 45 20 44 4C 4F 4F 50 |M2...6.BNE DLOOP| 000001B0: 00 B8 09 40 01 52 54 53 00 CD 09 4A 01 4D 31 20 |...@.RTS...J.M1 | 000001C0: 20 20 20 2E 57 B0 44 20 24 30 30 30 35 00 E2 09 | .W.D $0005...| 000001D0: 54 01 4D 32 20 20 20 20 2E 57 B0 44 20 24 30 30 |T.M2 .W.D $00| 000001E0: 32 42 00 F7 09 5E 01 52 31 20 20 20 20 2E 57 B0 |2B...^.R1 .W.| 000001F0: 44 20 24 30 30 30 30 00 0C 0A 68 01 52 32 20 20 |D $0000...h.R2 | 00000200: 20 20 2E 57 B0 44 20 24 30 30 30 30 00 00 00 | .W.D $0000... |
....Z.; DIVIDE ROUTINE.$.D.DLOOP . ..1.N
.ASL M2.1.<.X.ROL M2.I...ROL M2.1.T...RO
L R2.\...SEC.I. .LDA R2.1.V...SBC M1.1..
...TAX ;. LOW BYTE.....LDA
R2...H.SBC M1.Q.R.TAY ;.
HIGH BYTE.....BCC SKIP......STX R2.1
;S.RE .D BYTES.!...STY R2
;IN R2./...SKIP. . ..V...ROL R1.1
;SH.T CARRY FROM.|...ROL R1
;SUBTRACT .O R1.....LDA M2.1...".BN
E DLOOP...,.LDA M2...6.BNE DLOOP...@.RTS
.M.J.M1 .W.D $0005...T.M2 .W.D $00
2B...^.R1 .W.D $0000...H.R2 .W.D $
0000...
> CLICK IMAGE PREVIEW FOR FULL MODAL