From ce0a5401a9dafd33a4fe42c293b5ac22f19d18dc Mon Sep 17 00:00:00 2001 From: Warren Toomey Date: Thu, 24 Mar 2016 06:20:38 +1000 Subject: [PATCH] Add trysys.s to src/sys. --- src/sys/trysys.s | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 src/sys/trysys.s diff --git a/src/sys/trysys.s b/src/sys/trysys.s new file mode 100644 index 0000000..90f429a --- /dev/null +++ b/src/sys/trysys.s @@ -0,0 +1,40 @@ +"** 01-s1.pdf page 65 +" trysys + + sys open; a.out; 0 + spa + jmp error + sys read; buf; 3072 + sad .-1 + jmp error + iof + caf + cdf + clof + law buf + dac t1 + dzm t2 + -3072 + dac c1 +1: + lac t1 i + dac t2 i + isz t1 + isz t2 + isz c1 + jmp 1b + jmp 0100 + +error: + lac d1 + sys write; 1f; 1 + sys exit +1: 077012 + +a.out: + ;;