ALGO6510.3

FILE INFORMATION

FILENAME(S): ALGO6510.3

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 21:15:14

APPEARS ON: 1 disk(s)

FILE HASH

8d6eb22084bed259dec7a477816ae747d48d6bce4994f0cc861d928d4aed7df9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TRANSACTOR DISK	ALGO6510.3	PRG	DuncanTwain	28	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 27 08 64 00 8F 20  2D 2D 2D 2D 2D 2D 2D 2D  |..'.d.. --------|
00000010: 2D 20 50 52 4F 47 52 41  4D 20 33 20 2D 2D 2D 2D  |- PROGRAM 3 ----|
00000020: 2D 2D 2D 2D 2D 2D 2D 00  2D 08 6E 00 8F 00 47 08  |-------.-.n...G.|
00000030: 78 00 8F 20 50 41 4C 36  34 20 46 4F 52 4D 41 54  |x.. PAL64 FORMAT|
00000040: 20 53 4F 55 52 43 45 00  4D 08 82 00 8F 00 64 08  | SOURCE.M.....d.|
00000050: 8C 00 9F 20 32 2C 38 2C  31 2C 22 30 3A 4F 55 54  |... 2,8,1,"0:OUT|
00000060: 50 55 54 22 00 6D 08 96  00 9E 37 30 30 00 79 08  |PUT".m....700.y.|
00000070: A0 00 2E 4F 50 54 20 4F  32 00 85 08 AA 00 AC B2  |...OPT O2.......|
00000080: 24 43 30 30 30 00 93 08  B4 00 4A 4D 50 20 42 45  |$C000.....JMP BE|
00000090: 47 49 4E 00 99 08 BE 00  3B 00 B1 08 C8 00 3B 20  |GIN.....;.....; |
000000A0: 54 41 42 4C 45 20 4F 46  20 4D 4E 45 4D 91 49 43  |TABLE OF MNEM.IC|
000000B0: 53 00 B7 08 D2 00 3B 00  E8 08 E1 00 4D 4E 45 4D  |S.....;.....MNEM|
000000C0: 20 20 2E C6 20 22 41 44  43 41 4E 44 41 53 4C 42  |  .. "ADCANDASLB|
000000D0: 43 43 42 43 53 42 45 51  42 49 54 42 4D 49 42 4E  |CCBCSBEQBITBMIBN|
000000E0: 45 42 50 4C 42 52 4B 22  00 13 09 E6 00 2E C6 20  |EBPLBRK"....... |
000000F0: 22 42 56 43 42 56 53 43  4C 43 43 4C 44 43 4C 49  |"BVCBVSCLCCLDCLI|
00000100: 43 4C 56 43 4D 50 43 50  58 43 50 59 44 45 43 44  |CLVCMPCPXCPYDECD|
00000110: 45 58 22 00 3E 09 EB 00  2E C6 20 22 44 45 59 45  |EX".>..... "DEYE|
00000120: 4F 52 49 4E 43 49 4E 58  49 4E 59 4A 4D 50 4A 53  |ORINCINXINYJMPJS|
00000130: 52 4C 44 41 4C 44 58 4C  44 59 4C 53 52 22 00 69  |RLDALDXLDYLSR".i|
00000140: 09 F0 00 2E C6 20 22 4E  4F 50 4F 52 41 50 48 41  |..... "NOPORAPHA|
00000150: 50 48 50 50 4C 41 50 4C  50 52 4F 4C 52 4F 52 52  |PHPPLAPLPROLRORR|
00000160: 54 49 52 54 53 53 42 43  22 00 97 09 FA 00 2E C6  |TIRTSSBC".......|
00000170: 20 22 53 45 43 53 45 44  53 45 49 53 54 41 53 54  | "SECSEDSEISTAST|
00000180: 58 53 54 59 54 41 58 54  41 59 54 53 58 54 58 41  |XSTYTAXTAYTSXTXA|
00000190: 54 58 53 54 59 41 22 00  9D 09 04 01 3B 00 B6 09  |TXSTYA".....;...|
000001A0: 0E 01 3B 20 52 45 53 55  4C 54 49 4E 47 20 4F 50  |..; RESULTING OP|
000001B0: AB 43 4F 44 45 53 00 BC  09 18 01 3B 00 CB 09 22  |.CODES.....;..."|
000001C0: 01 4F 50 53 20 AC B2 AC  AA 35 36 00 D1 09 2C 01  |.OPS ....56...,.|
000001D0: 3B 00 ED 09 36 01 3B 20  54 41 42 4C 45 53 20 81  |;...6.; TABLES .|
000001E0: 20 54 52 41 4E 53 81 4D  41 54 49 91 53 00 F3 09  | TRANS.MATI.S...|
000001F0: 40 01 3B 00 22 0A 4A 01  54 41 42 4C 45 31 20 2E  |@.;.".J.TABLE1 .|
00000200: 42 59 54 45 20 36 2C 37  2C 38 2C 39 2C 31 30 2C  |BYTE 6,7,8,9,10,|
00000210: 30 2C 30 2C 30 2C 31 31  2C 31 32 2C 30 2C 31 33  |0,0,0,11,12,0,13|
00000220: 2C 30 00 47 0A 4F 01 2E  42 59 54 45 20 31 34 2C  |,0.G.O..BYTE 14,|
00000230: 31 2C 32 2C 30 2C 33 2C  34 2C 35 2C 30 2C 30 2C  |1,2,0,3,4,5,0,0,|
00000240: 30 2C 30 2C 30 2C 30 00  7D 0A 54 01 54 41 42 4C  |0,0,0,0.}.T.TABL|
00000250: 45 32 20 2E 42 59 54 45  20 31 30 2C 31 31 2C 31  |E2 .BYTE 10,11,1|
00000260: 32 2C 31 33 2C 31 34 2C  30 2C 30 2C 31 35 2C 31  |2,13,14,0,0,15,1|
00000270: 36 2C 30 2C 30 2C 31 37  2C 31 38 2C 31 00 9F 0A  |6,0,0,17,18,1...|
00000280: 59 01 2E 42 59 54 45 20  32 2C 33 2C 30 2C 34 2C  |Y..BYTE 2,3,0,4,|
00000290: 35 2C 36 2C 30 2C 37 2C  30 2C 38 2C 39 2C 30 00  |5,6,0,7,0,8,9,0.|
000002A0: CB 0A 5E 01 54 41 42 4C  45 33 20 2E 42 59 54 45  |..^.TABLE3 .BYTE|
000002B0: 20 34 2C 30 2C 35 2C 36  2C 37 2C 30 2C 30 2C 30  | 4,0,5,6,7,0,0,0|
000002C0: 2C 38 2C 30 2C 39 2C 31  30 2C 30 00 F4 0A 63 01  |,8,0,9,10,0...c.|
000002D0: 2E 42 59 54 45 20 30 2C  30 2C 31 31 2C 31 32 2C  |.BYTE 0,0,11,12,|
000002E0: 31 33 2C 31 34 2C 31 35  2C 30 2C 31 2C 30 2C 32  |13,14,15,0,1,0,2|
000002F0: 2C 33 2C 30 00 FA 0A 68  01 3B 00 10 0B 72 01 3B  |,3,0...h.;...r.;|
00000300: 20 45 58 45 43 55 54 45  20 54 48 45 20 41 4C CB  | EXECUTE THE AL.|
00000310: 00 16 0B 7C 01 3B 00 31  0B 86 01 42 45 47 49 4E  |...|.;.1...BEGIN|
00000320: 20 4C 44 59 20 23 30 3A  20 53 54 59 20 4F 50 53  | LDY #0: STY OPS|
00000330: 58 00 72 0B 90 01 4C 4F  4F 50 31 20 4C 44 41 20  |X.r...LOOP1 LDA |
00000340: 4D 4E 45 4D AA 30 2C 59  3A 20 53 45 43 3A 20 53  |MNEM.0,Y: SEC: S|
00000350: 42 43 20 C6 41 3A 20 54  41 58 3A 20 4C 44 41 20  |BC .A: TAX: LDA |
00000360: 54 41 42 4C 45 31 2C 58  3A 20 42 45 51 20 45 52  |TABLE1,X: BEQ ER|
00000370: 52 B0 00 8B 0B 9A 01 53  54 41 20 54 45 4D 50 20  |R......STA TEMP |
00000380: 3B 20 28 4C 45 46 54 AB  29 AC 31 00 C6 0B A4 01  |; (LEFT.).1.....|
00000390: 4C 44 41 20 4D 4E 45 4D  AA 31 2C 59 3A 20 53 45  |LDA MNEM.1,Y: SE|
000003A0: 43 3A 20 53 42 43 20 C6  41 3A 20 54 41 58 3A 20  |C: SBC .A: TAX: |
000003B0: 4C 44 41 20 54 41 42 4C  45 32 2C 58 3A 20 42 45  |LDA TABLE2,X: BE|
000003C0: 51 20 45 52 52 B0 00 03  0C AE 01 4C 53 52 3A 20  |Q ERR......LSR: |
000003D0: 4C 53 52 3A 20 4C 53 52  3A 20 4C 53 52 3A 20 43  |LSR: LSR: LSR: C|
000003E0: 4C 43 3A 20 41 44 43 20  54 45 4D 50 3A 20 53 54  |LC: ADC TEMP: ST|
000003F0: 41 20 54 45 4D 50 20 3B  20 AA 28 4D 49 44 AB 29  |A TEMP ; .(MID.)|
00000400: AC 31 36 00 3E 0C B8 01  4C 44 41 20 4D 4E 45 4D  |.16.>...LDA MNEM|
00000410: AA 32 2C 59 3A 20 53 45  43 3A 20 53 42 43 20 C6  |.2,Y: SEC: SBC .|
00000420: 41 3A 20 54 41 58 3A 20  4C 44 41 20 54 41 42 4C  |A: TAX: LDA TABL|
00000430: 45 33 2C 58 3A 20 42 45  51 20 45 52 52 B0 00 68  |E3,X: BEQ ERR..h|
00000440: 0C C2 01 4C 53 52 3A 20  4C 53 52 3A 20 43 4C 43  |...LSR: LSR: CLC|
00000450: 3A 20 41 44 43 20 54 45  4D 50 20 3B 20 AA 28 52  |: ADC TEMP ; .(R|
00000460: 49 47 48 54 AB 29 AC 34  00 8F 0C CC 01 4C 44 58  |IGHT.).4.....LDX|
00000470: 20 4F 50 53 58 3A 20 53  54 41 20 4F 50 53 2C 58  | OPSX: STA OPS,X|
00000480: 3A 20 49 4E 58 3A 20 53  54 58 20 4F 50 53 58 00  |: INX: STX OPSX.|
00000490: B6 0C D6 01 49 4E 59 3A  20 49 4E 59 3A 20 49 4E  |....INY: INY: IN|
000004A0: 59 3A 20 43 50 59 20 23  31 36 38 3A 20 42 4E 45  |Y: CPY #168: BNE|
000004B0: 20 4C 4F 4F 50 31 00 C1  0C E0 01 42 45 51 20 9A  | LOOP1.....BEQ .|
000004C0: 31 00 C7 0C EA 01 3B 00  DA 0C F4 01 3B 20 45 52  |1.....;.....; ER|
000004D0: 52 B0 20 52 4F 55 54 49  4E 45 00 E0 0C FE 01 3B  |R. ROUTINE.....;|
000004E0: 00 ED 0C 08 02 45 52 52  B0 20 B2 20 AC 00 F3 0C  |.....ERR. . ....|
000004F0: 12 02 3B 00 15 0D 1C 02  3B 20 99 20 52 45 53 55  |..;.....; . RESU|
00000500: 4C 54 53 AD 50 52 4F 43  45 53 53 20 43 4F 44 45  |LTS.PROCESS CODE|
00000510: 20 42 59 54 45 00 1B 0D  26 02 3B 00 26 0D 30 02  | BYTE...&.;.&.0.|
00000520: 9A 31 20 B2 20 AC 00 2C  0D 3A 02 3B 00 3A 0D 44  |.1 . ..,.:.;.:.D|
00000530: 02 3B 20 83 20 41 52 45  41 53 00 40 0D 4E 02 3B  |.; . AREAS.@.N.;|
00000540: 00 51 0D 58 02 4F 50 53  58 20 2E 42 59 54 45 20  |.Q.X.OPSX .BYTE |
00000550: 30 00 62 0D 62 02 C6 41  20 2E 42 59 54 45 20 22  |0.b.b..A .BYTE "|
00000560: 41 22 00 73 0D 6C 02 54  45 4D 50 20 2E 42 59 54  |A".s.l.TEMP .BYT|
00000570: 45 20 30 00 7A 0D 76 02  2E 80 00 00 00           |E 0.z.v......   |

..'.D.. --------- PROGRAM 3 -----------.
-.N...G.X.. PAL64 FORMAT SOURCE.M.....D.
... 2,8,1,"0:OUTPUT".M....700.Y. ..OPT O
2.......$C000.....JMP BEGIN.....;...H.; 
TABLE OF MNEM.ICS...R.;.....MNEM  .F "AD
CANDASLBCCBCSBEQBITBMIBNEBPLBRK"......F 
"BVCBVSCLCCLDCLICLVCMPCPXCPYDECDEX".>...
.F "DEYEORINCINXINYJMPJSRLDALDXLDYLSR".I
....F "NOPORAPHAPHPPLAPLPROLRORRTIRTSSBC
"......F "SECSEDSEISTASTXSTYTAXTAYTSXTXA
TXSTYA".....;.....; RESULTING OP.CODES..
...;.K.".OPS ....56.Q.,.;...6.; TABLES .
 TRANS.MATI.S...@.;.".J.TABLE1 .BYTE 6,7
,8,9,10,0,0,0,11,12,0,13,0.G.O..BYTE 14,
1,2,0,3,4,5,0,0,0,0,0,0.}.T.TABLE2 .BYTE
 10,11,12,13,14,0,0,15,16,0,0,17,18,1...
Y..BYTE 2,3,0,4,5,6,0,7,0,8,9,0.K.^.TABL
E3 .BYTE 4,0,5,6,7,0,0,0,8,0,9,10,0...C.
.BYTE 0,0,11,12,13,14,15,0,1,0,2,3,0...H
.;...R.; EXECUTE THE ALK...|.;.1...BEGIN
 LDY #0: STY OPSX.R...LOOP1 LDA MNEM.0,Y
: SEC: SBC FA: TAX: LDA TABLE1,X: BEQ ER
R......STA TEMP ; (LEFT.).1.F...LDA MNEM
.1,Y: SEC: SBC FA: TAX: LDA TABLE2,X: BE
Q ERR......LSR: LSR: LSR: LSR: CLC: ADC 
TEMP: STA TEMP ; .(MID.).16.>...LDA MNEM
.2,Y: SEC: SBC FA: TAX: LDA TABLE3,X: BE
Q ERR..H.B.LSR: LSR: CLC: ADC TEMP ; .(R
IGHT.).4...L.LDX OPSX: STA OPS,X: INX: S
TX OPSX...V.INY: INY: INY: CPY #168: BNE
 LOOP1.A...BEQ .1.G...;.Z...; ERR. ROUTI
NE.....;.....ERR. . ......;.....; . RESU
LTS.PROCESS CODE BYTE...&.;.&.0..1 . ..,
.:.;.:.D.; . AREAS.@.N.;.Q.X.OPSX .BYTE 
0.B.B.FA .BYTE "A".S.L.TEMP .BYTE 0.Z.V.
.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL