diff --git a/scans/s1.s b/scans/s1.s index d9e639e..3a8fead 100644 --- a/scans/s1.s +++ b/scans/s1.s @@ -133,7 +133,7 @@ swp: .save; .getuid; .open; .read; .write; .creat; .seek; .tell .close; .link; .unlink; .setuid; .rename; .exit; .time; .intrp .chdir; .chmod; .chown; badcal; .sysloc; badcal; .capt; .rele - .status; badcal; .sems; .rmes; .fork + .status; badcal; .smes; .rmes; .fork swn: .-swp-1 i @@ -144,7 +144,7 @@ swn: .sysloc: lac u.ac - and o1777 + and o17777 jms betwen; d1; locn jms error tad locsw diff --git a/scans/s2.s b/scans/s2.s index 89fe2c4..5c51afc 100644 --- a/scans/s2.s +++ b/scans/s2.s @@ -30,7 +30,7 @@ .rele: dzm u.dspbuf law dspbuf - jsp movdsp + jms movdsp jmp sysexit .chmod: @@ -123,7 +123,7 @@ tad i.nlks dac i.nlks "** 01-s1.pdf page 9 - jms imput + jms iput jms dput jms okexit @@ -289,7 +289,7 @@ open1: lac f.badd 1: jms iread; ..; .. - jmp exitrq + jmp exitrw .write: jms arg diff --git a/scans/s3.s b/scans/s3.s index 29b7d21..6ca7b28 100644 --- a/scans/s3.s +++ b/scans/s3.s @@ -72,7 +72,7 @@ lookfor: 0 t= t+1 badcal: - calon + clon -1 dac 7 .save: @@ -195,7 +195,7 @@ swr: sww: jmp .-4 i .halt; rttyi; rkbdi; rppti; .halt - .halt; wttyo; wskpo; wppto + .halt; wttyo; wdspo; wppto .halt: jms halt @@ -203,7 +203,7 @@ rttyi: jms chkint1 lac d1 jms getchar - jmp1f + jmp 1f and o177 jms betwen o101; o132 skp @@ -225,7 +225,7 @@ wttyo: spa jmp 1f xor 0400000 - dac dfiles+1 + dac sfiles+1 lacq tls sad o12 @@ -242,7 +242,7 @@ wttyo: jms swap jmp wttyo -rkdbi: +rkbdi: jms chkint1 lac d2 jms getchar @@ -298,7 +298,7 @@ rppti: jms getchar jmp .+3 alss 9 - jmp apssone + jmp passone lac sfiles+3 sma rsa @@ -342,7 +342,7 @@ passone: error: 0 -1 - sac u.ac + dac u.ac jmp sysexit chkint1: 0 diff --git a/scans/s4.s b/scans/s4.s index 6c2ceeb..c4cdfbf 100644 --- a/scans/s4.s +++ b/scans/s4.s @@ -31,7 +31,7 @@ alloc: 0 free: 0 lmq - lac x.nfblks + lac s.nfblks sad d10 jmp 1f tad fblksp @@ -42,7 +42,7 @@ free: 0 isz s.nfblks jmp free i 1: - lac x.nxfblk + lac s.nxfblk dac dskbuf jms copy; s.fblks+1; dskbuf+1; 9 lacq @@ -57,7 +57,7 @@ t = t+1 laci: 0 and o1777 tad o200000 - dac ._1 + dac .+1 lac .. jmp laci i @@ -90,7 +90,7 @@ copy: 0 dac 8 isz copy -1 - tad copu i + tad copy i dac 9 isz copy -1 @@ -128,10 +128,10 @@ putchar: 0 cla jms takeq jmp putchar i - tad of0001 + tad o40001 dac .+4 lac 9f+t - jms putc + jms putq lac char lac q2+1 .. isz putchar @@ -211,7 +211,7 @@ srcdbs: 0 law 65 "** crossed out tad 9f+t+1 "** crossed out isz 8 written isz 9f+t+1 - isx 9f+t + isz 9f+t jmp 1b isz srcdbs jmp srcdbs i @@ -228,8 +228,8 @@ collapse: 0 tad d2 "** crossed out: original obscured dac 0f cma - rad d1 - tad esdkbsp + tad d1 + tad edskbsp and o17777 sna jmp 0f+3 @@ -243,7 +243,7 @@ collapse: 0 lac dskaddr dac 9f+t i jms copy; dskbuf; 0; ..; 64 - jmp collaps i + jmp collapse i dskrd: 0 jms betwen; d2; d7999 @@ -293,7 +293,7 @@ dskio: 0 lac 9f+t idiv; 10 dac 9f+t - ils 22 + lls 22 xor 9f+t jms dsktrans; -64; dskbuf; 9f+t; dskio isz dskio