taocp

taocp sandbox.
git clone git://git.ricketyspace.net/taocp.git
Log | Files | Refs

commit 4c6449f09ed390cc2fc08830cb1d2fb6c0abe044
parent 30c402cd6ce21dd14b3ad28fb33c82720de6f6a6
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu, 22 Feb 2018 02:29:21 +0000

mix: 1.3.2: Update saddle-point.mixal.

Diffstat:
mix/1.3.2/saddle-point.mixal | 39+++++++++++++++++++++------------------
1 file changed, 21 insertions(+), 18 deletions(-)

diff --git a/mix/1.3.2/saddle-point.mixal b/mix/1.3.2/saddle-point.mixal @@ -1,29 +1,32 @@ * This program is work in progress. ORIG 2000 -START NOP -RC ENT5 4095 - LD4 CUR(4:4) load i into I4 - LD4 3000,4 +START ENTA 0 Register A tracks current row i + ENT4 1008 Will contain address of element being compared against the current row min. +RC ENT5 4095 Contains the current row min. + INCA 1 + CMPA =9= + JLE 2F + ENT1 0 + JMP STOP +2H INC4 1 ENT3 1 j counter 2H CMP5 0,4 JLE 4F LD5 0,4 load new min in row + ENT1 0,4 store address of min in I1 + ENT2 0,3 store col position (j) 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) +PCOL ENT2 1008,2 position of first row in min col + ENT3 1 i counter +6H CMP5 0,2 + JL RC + INC2 8 + INC3 1 + CMP3 =9= + JLE 6B + JMP RC +STOP HLT END START