blob: 7924a7cdeeb652e1384b04e5afa1884b578ee7b1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
* This program is work in progress.
ORIG 2000
START NOP
RC ENT5 4095
LD4 CUR(4:4) load i into I4
LD4 3000,4
ENT3 1 j counter
2H CMP5 0,4
JLE 4F
LD5 0,4 load new min in row
4H INC4 1
INC3 1 incr counter
CMP3 =8=
JLE 2B
PCOL NOP
HLT
ORIG 3000
RS CON 0
CON 1009
CON 1017
CON 1025
CON 1033
CON 1041
CON 1049
CON 1057
CON 1065
CON 1073
CUR CON 65 00 00 00 01 01 -> a(0, 0, i, j)
END START
|