From eedb90386f8f9221ae25e105d33e12e59e6169a5 Mon Sep 17 00:00:00 2001
From: Sebastian Rasmussen <sebras@gmail.com>
Date: Wed, 8 Jan 2020 15:51:20 +0800
Subject: [PATCH] Add page comments to db.s.

---
 scans/db.s   | 20 ++++++++++++++++++++
 src/cmd/db.s | 20 ++++++++++++++++++++
 2 files changed, 40 insertions(+)

diff --git a/scans/db.s b/scans/db.s
index 41096bf..2718a91 100644
--- a/scans/db.s
+++ b/scans/db.s
@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 2
 " db
 
    narg = ..+07777
@@ -60,6 +61,7 @@ wcorep: corename; 1
    "
    lac o52012
    jms wchar
+"** 07-13-19.pdf page 3
    law dotdot
    dac nsearch
    jms nlsearch
@@ -121,6 +123,7 @@ cmd:
    jmp saddress
    sad o75
    jmp address
+"** 07-13-19.pdf page 4
    sad o57
    jmp octal
    sad o72
@@ -182,6 +185,7 @@ saddress:
    lac 9f
    dac curdot
    jmp mloop
+"** 07-13-19.pdf page 5
 9:0
    "
 symbol:
@@ -243,6 +247,7 @@ print:
    spa
    jmp error
    lac rcore
+"** 07-13-19.pdf page 6
    sys read; inbuf; 64
    spa
    jmp error
@@ -304,6 +309,7 @@ prdec:     "temp
 proct:0
    jms octw
    6
+"** 07-13-19.pdf page 7
    jmp i proct
    "
 patch:
@@ -365,6 +371,7 @@ getexp:0
 xloop:
    jms rch
    lmq
+"** 07-13-19.pdf page 8
    sad o44
    skp
    jmp 1f
@@ -426,6 +433,7 @@ xloop:
    lac o40
    sad rator
    skp
+"** 07-13-19.pdf page 9
    jmp error
    lacq
    dac rator
@@ -487,6 +495,7 @@ spcai:
       lac d1
       dac reloc
       jmp i getspec
+"** 07-13-19.pdf page 10
    "
 getsym:0
    lmq
@@ -548,6 +557,7 @@ skipt:
    spa
    jmp 2f
 1:
+"** 07-13-19.pdf page 11
    lac nchar1
    tad om101
    spa
@@ -609,6 +619,7 @@ num1:
    jmp i getnum
    tad om10
    sma
+"** 07-13-19.pdf page 12
    jmp i getnum
    lac nchar1
    dzm nchar1
@@ -670,6 +681,7 @@ prsym:0
    dac word
    dzm relflg
    dzm relocflg
+"** 07-13-19.pdf page 13
    dzm nsearch
    and o760000
    sad o760000
@@ -731,6 +743,7 @@ pr1:
    tad d1
    dac addr
    lac o55
+"** 07-13-19.pdf page 14
    jms wchar
    jmp 2f
 1:
@@ -792,6 +805,7 @@ peae:
    jmp i prsym
 1:
    law eaes
+"** 07-13-19.pdf page 15
    dac addr
    jmp nfnd
    "
@@ -853,6 +867,7 @@ pcal:
    law syss
    jms wrname
    lac o40
+"** 07-13-19.pdf page 16
    jms wchar
    lac addr
    jms wrname
@@ -914,6 +929,7 @@ nloop:
    lacq
    tad d3
    dac np
+"** 07-13-19.pdf page 17
    lac i np
    sna
    jmp nloop
@@ -975,6 +991,7 @@ testn:
    skp
    jmp nloop
    isz minp
+"** 07-13-19.pdf page 18
    isz inbuf
    isz value
    jmp 1b
@@ -1036,6 +1053,7 @@ nlerr:
    "
 rch:0
    lac nchar1
+"** 07-13-19.pdf page 19
    dzm nchar1
    sza
    jmp i rch
@@ -1097,6 +1115,7 @@ d12:12
 d8:8
 d3:3
 o177:0177
+"** 07-13-19.pdf page 20
 o136: 0136
 o45: 045
 sysflag: 0
@@ -1158,6 +1177,7 @@ nchar1:0
 nchar:0
 o177000:0177000
 o56040:056040
+"** 07-13-19.pdf page 21
 nsearch:0
 word:0
 relflg:0
diff --git a/src/cmd/db.s b/src/cmd/db.s
index 3e35d69..715585d 100644
--- a/src/cmd/db.s
+++ b/src/cmd/db.s
@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 2
 " db
 	"** pages 2-21  of 07-13-19.pdf
 	" Usage: db [ corefile [ namelist ] ]
@@ -62,6 +63,7 @@ wcorep: corename; 1
    "
    lac o52012			" prompt: "*\n"
    jms wchar
+"** 07-13-19.pdf page 3
    law dotdot
    dac nsearch
    jms nlsearch
@@ -123,6 +125,7 @@ cmd:
    jmp saddress
    sad o75			" '='?
    jmp address
+"** 07-13-19.pdf page 4
    sad o57			" '/'?
    jmp octal
    sad o72			" ':'?
@@ -184,6 +187,7 @@ saddress:
    lac 9f
    dac curdot
    jmp mloop
+"** 07-13-19.pdf page 5
 9:0
    "
 symbol:
@@ -245,6 +249,7 @@ print:
    spa
    jmp error
    lac rcore
+"** 07-13-19.pdf page 6
    sys read; inbuf; 64
    spa
    jmp error
@@ -306,6 +311,7 @@ prdec:     "temp
 proct:0
    jms octw
    6
+"** 07-13-19.pdf page 7
    jmp i proct
    "
 patch:
@@ -367,6 +373,7 @@ getexp:0
 xloop:
    jms rch
    lmq
+"** 07-13-19.pdf page 8
    sad o044
    skp
    jmp 1f
@@ -428,6 +435,7 @@ xloop:
    lac o40
    sad rator
    skp
+"** 07-13-19.pdf page 9
    jmp error
    lacq
    dac rator
@@ -489,6 +497,7 @@ spcai:
       lac d1
       dac reloc
       jmp i getspec
+"** 07-13-19.pdf page 10
    "
 getsym:0
    lmq
@@ -550,6 +559,7 @@ skipt:
    spa
    jmp 2f			" lc letter
 1:
+"** 07-13-19.pdf page 11
    lac nchar1
    tad om101
    spa
@@ -611,6 +621,7 @@ num1:
    jmp i getnum
    tad om10
    sma
+"** 07-13-19.pdf page 12
    jmp i getnum
    lac nchar1
    dzm nchar1
@@ -672,6 +683,7 @@ prsym:0				" print symbolic instruction
    dac word
    dzm relflg
    dzm relocflg
+"** 07-13-19.pdf page 13
    dzm nsearch
    and o760000
    sad o760000
@@ -733,6 +745,7 @@ pr1:
    tad d1
    dac addr
    lac o55
+"** 07-13-19.pdf page 14
    jms wchar
    jmp 2f
 1:
@@ -794,6 +807,7 @@ peae:				" print EAE instruction
    jmp i prsym
 1:
    law eaes
+"** 07-13-19.pdf page 15
    dac addr
    jmp nfnd
    "
@@ -855,6 +869,7 @@ pcal:
    law syss
    jms wrname
    lac o40
+"** 07-13-19.pdf page 16
    jms wchar
    lac addr
    jms wrname
@@ -916,6 +931,7 @@ nloop:
    lacq
    tad d3
    dac np
+"** 07-13-19.pdf page 17
    lac i np
    sna
    jmp nloop
@@ -977,6 +993,7 @@ testn:
    skp
    jmp nloop
    isz minp
+"** 07-13-19.pdf page 18
    isz inbuf
    isz value
    jmp 1b
@@ -1038,6 +1055,7 @@ nlerr:
    "
 rch:0
    lac nchar1
+"** 07-13-19.pdf page 19
    dzm nchar1
    sza
    jmp i rch
@@ -1099,6 +1117,7 @@ d12:12
 d8:8
 d3:3
 o177:0177
+"** 07-13-19.pdf page 20
 o136: 0136
 o45: 045
 sysflag: 0
@@ -1160,6 +1179,7 @@ nchar1:0
 nchar:0
 o177000:0177000
 o56040:056040				" ". "
+"** 07-13-19.pdf page 21
 nsearch:0
 word:0
 relflg:0