as.s starting to work! Add ops.s

replaced "sys write; 1; 0; 4" with "sys write; 1: 0; 4"
  In the scan it REALLY looks like three semis, but that makes NO sense!
This commit is contained in:
Phil Budne
2016-03-08 11:24:09 -05:00
parent 286acea85b
commit 66a8168228
2 changed files with 127 additions and 4 deletions
+4 -4
View File
@@ -125,7 +125,7 @@ init2: 0 " start pass 2
lac d1
"** 05-1-4.pdf page 34
dac passno " passno = 1
sys write; 1f; 2f-1f " output II
sys write; 1f; 2f-1f " output II\n
jms init
lac o17
sys creat; 2f " create a.out
@@ -479,9 +479,9 @@ nf1:
sys open; fname: 0; 0 " open fname
dac iof " save fd
sma " open ok?
lac passno " yes, load pass number
sna " open failed: skip or open ok, pass 2
jmp nextfil i " pass 1, open OK, return.
lac passno " yes: load pass number
sna " no: open failed: skip or open ok, pass 2
jmp nextfil i " pass 1, open OK, return.
lac fname " load filename pointer
dac 1f " save for write
lac d1 " stdout