MATADD.L

FILE INFORMATION

FILENAME(S): MATADD.L

FILE TYPE(S): SEQ

FILE SIZE: 193b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

17599f25ef364a61cb42680b45c75c17a8b8a572bcfd2b86dab2633a8c0e3839

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
CCS COMAL	MATADD.L	SEQ	hedning, Mattias H00r	25	8	DOWNLOAD FILE
CCS COMAL	MATADD.L	SEQ	hedning, Mattias H00r	25	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 4D 41 54 41 44 44  |9000 PROC MATADD|
00000010: 28 52 45 46 20 41 28 2C  29 2C 52 45 46 20 4D 2C  |(REF A(,),REF M,|
00000020: 52 45 46 20 4E 2C 52 45  46 20 42 28 2C 29 2C 52  |REF N,REF B(,),R|
00000030: 45 46 20 43 28 2C 29 29  20 43 4C 4F 53 45 44 0D  |EF C(,)) CLOSED.|
00000040: 39 30 31 30 20 46 4F 52  20 49 23 3A 3D 31 20 54  |9010 FOR I#:=1 T|
00000050: 4F 20 4D 20 44 4F 0D 39  30 32 30 20 46 4F 52 20  |O M DO.9020 FOR |
00000060: 4A 23 3A 3D 31 20 54 4F  20 4E 20 44 4F 0D 39 30  |J#:=1 TO N DO.90|
00000070: 33 30 20 43 28 49 23 2C  4A 23 29 3A 3D 41 28 49  |30 C(I#,J#):=A(I|
00000080: 23 2C 4A 23 29 2B 42 28  49 23 2C 4A 23 29 0D 39  |#,J#)+B(I#,J#).9|
00000090: 30 34 30 20 45 4E 44 46  4F 52 20 4A 23 0D 39 30  |040 ENDFOR J#.90|
000000A0: 35 30 20 45 4E 44 46 4F  52 20 49 23 0D 39 30 36  |50 ENDFOR I#.906|
000000B0: 30 20 45 4E 44 50 52 4F  43 20 4D 41 54 41 44 44  |0 ENDPROC MATADD|
000000C0: 0D                                                |.               |

9000 PROC MATADD(REF A(,),REF M,REF N,RE
F B(,),REF C(,)) CLOSED.9010 FOR I#:=1 T
O M DO.9020 FOR J#:=1 TO N DO.9030 C(I#,
J#):=A(I#,J#)+B(I#,J#).9040 ENDFOR J#.90
50 ENDFOR I#.9060 ENDPROC MATADD.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL