taocp

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

commit ca8dc1eaf03dcc64d8c72029d17d04e2e7b50e61
parent 61a2993d8ee8cb9fa2eb086cd8cd81e5050a5805
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu, 26 Oct 2017 00:56:30 +0000

Update mix/1.3.1/26.cl.mixal.

Diffstat:
mix/1.3.1/26.cl.mixal | 9++++++---
1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/mix/1.3.1/26.cl.mixal b/mix/1.3.1/26.cl.mixal @@ -1,18 +1,21 @@ BUFF EQU 80 -TERM ORIG 0 Card Loading Routine. Rough ugly second version. +TERM ORIG 0 Card Loading Routine. Rough ugly third version. START IN BUFF(16) Read from card reader. LDX BUFF+1(2:5) N30 NUM 30 - STA BUFF +N24 STA BUFF TCHCK LDA BUFF+1(0:1) Transfer card check. SUB N30(0:2) J LD2 BUFF Load dest. address of current instruction to I2. JAZ 0,2 Jump if transfer card. STA BUFF+1(0:1) Store no. of instructions. + LDA BUFF+3,1(5:5) + SUB N24(5:5) + STA 0,2(0:0) Store sign. LDA BUFF+2,1 Load first part of current instruction in character form. LDX BUFF+3,1 Load second part of current instruction in character form. N01 NUM 1 - STA 0,2 Store current instruction in numeric form to dest. address. + STA 0,2(1:5) Store current instruction in numeric form to dest. address. MOVE 0,1(2) I1 <- I1 + 2 LDA BUFF Load dest. address of current instruction. ADD N01(0:2) Increment by 1.