From 0185f36563a15be4cdedbb3c0bacb4133be52fd3 Mon Sep 17 00:00:00 2001
From: Sebastian Rasmussen <sebras@gmail.com>
Date: Fri, 1 Nov 2019 02:05:03 +0100
Subject: [PATCH] Add page comments to init.s.

---
 scans/init.s   | 5 +++++
 src/cmd/init.s | 5 +++++
 2 files changed, 10 insertions(+)

diff --git a/scans/init.s b/scans/init.s
index 69284d4..e9e278a 100644
--- a/scans/init.s
+++ b/scans/init.s
@@ -1,4 +1,5 @@
 " init
+"** 07-13-19.pdf page 47
 
    -1
    sys intrp
@@ -60,6 +61,7 @@ login:
    sad o72
    skp
    jmp 2b
+"** 07-13-19.pdf page 48
    lac 9 i
    sad o72
    jmp 1f
@@ -120,6 +122,7 @@ login:
    cll; als 3
    omq
    dac nchar
+"** 07-13-19.pdf page 49
    jmp 1b
 2:
    lac nchar
@@ -181,6 +184,7 @@ rline: 0
    sad 8
    jmp 1b
    -1
+"** 07-13-19.pdf page 50
    tad 8
    dac 8
    jmp 1b
@@ -242,6 +246,7 @@ m1:
 m1s = .-m1
 m2:
    <?; 012
+"** 07-13-19.pdf page 51
 m2s = .-m2
 m3:
    <pa>;<ss>;<wo>;<rd>;<: 040
diff --git a/src/cmd/init.s b/src/cmd/init.s
index 6ba4867..c879ad2 100644
--- a/src/cmd/init.s
+++ b/src/cmd/init.s
@@ -1,4 +1,5 @@
 " init
+"** 07-13-19.pdf page 47
 
    -1
    sys intrp
@@ -60,6 +61,7 @@ login:
    sad o72
      skp
    jmp 2b
+"** 07-13-19.pdf page 48
    lac 9 i
    sad o72
      jmp 1f
@@ -120,6 +122,7 @@ login:
    cll; als 3
    omq
    dac nchar
+"** 07-13-19.pdf page 49
    jmp 1b
 2:
    lac nchar
@@ -182,6 +185,7 @@ rline: 0
    sad 8
      jmp 1b		" and loop back
    -1
+"** 07-13-19.pdf page 50
    tad 8		" Otherwise, move the pointer in location 8 back one
    dac 8
    jmp 1b		" and loop back
@@ -243,6 +247,7 @@ m1:
 m1s = .-m1
 m2:
    <?; 012
+"** 07-13-19.pdf page 51
 m2s = .-m2
 m3:
    <pa>;<ss>;<wo>;<rd>;<: 040