ORIG 2000
START   ENTA 0 Register A tracks current row i
        ENT4 1009 Will contain address of element being compared against the current row min.
RC      ENT5 4095 Contains the current row min.
        ENT3 1 j counter
        INCA 1
        CMPA =9=
        JLE  2F
        ENT1 0
        JMP  STOP
2H      CMP5 0,4
        JL   4F
        JE   3F
        LD5  0,4 Load new min in row
        ENT2 -1 Reset I2
3H      ENT1 0,4 Store address of min in I1
        INC2 1
        ST3  1000,2 Store j in aux. list.
4H      INC4 1
        INC3 1 Incr j counter
        CMP3 =8=
        JLE  2B
PCOL    LD6  1000,2 Position of first row in min col
        INC6 1008
        ENT3 1 i counter
6H      CMP5 0,6
        JL   8F
        INC6 8
        INC3 1
        CMP3 =9=
        JLE  6B
        JMP  STOP
8H      DEC2 1
        J2N  RC
FUCK    LD1 1000,2 Load address of new min in I1.
        INC1 -9,4
        JMP PCOL
STOP    HLT
        END START