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: + ;;