From ca8dc1eaf03dcc64d8c72029d17d04e2e7b50e61 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Thu, 26 Oct 2017 00:56:30 +0000 Subject: Update mix/1.3.1/26.cl.mixal. --- 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 index 922e88d..b9e4ba6 100644 --- 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. -- cgit v1.2.3