Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50322/scan.lst
There are no other files named scan.lst in the archive.
SCAN -- GENERAL PURPOSE ADAPTER FOR LISP SCANNER MACRO 47(113)-2 06:36 25-OCT-73 PAGE 1
SCAN MAC 23-JAN-73 01:25
1 TITLE SCAN -- GENERAL PURPOSE ADAPTER FOR LISP SCANNER
2
3 000001 A=1
4 000002 B=2
5 000003 C=3
6 000013 R=13
7 000006 T=6
8 000014 P=14
9
10 000015 CR=15
11 000012 LF=12
12 000011 TAB=11
13
14 000031 IGCRLF=31 ;^Y FOR UCI LISP
15
16 EXTERNAL CHRTAB,IGSTRT,RATOM,OLDCH,FIX1A,NOINFG,INUM0,SCNVAL
17
18 INTERNAL SCAN,SCANSET,SCANRESET,SCANINIT,LETTER,IGNORE
19
20 000000' 476 00 0 00 000000* SCAN: SETOM NOINFG
21 000001' 260 14 0 00 000000* PUSHJ P,RATOM
22 000002' 334 00 0 00 000000 SKIPA
23 000003' 260 14 0 00 000000* PUSHJ P,FIX1A
24 000004' 202 01 0 00 000000* MOVEM A,SCNVAL
25 000005' 201 01 0 13 000000* MOVEI A,INUM0(R)
26 000006' 263 14 0 00 000000 POPJ P,
27
28 000007' 000000000031 OLDSCN: IGCRLF ;IGSTRT
29 000010' 000000000012 LF ;IGEND
30 000011' 36 04 0 01 000000* POINT 4,CHRTAB(A),5 ;RATFLD
31 000012' 31 02 0 01 000011* POINT 2,CHRTAB(A),10 ;STRFLD
32 000013' 26 03 0 01 000012* POINT 3,CHRTAB(A),13 ;IDFLD
33
34 000014' 000000000000 IGST2: 0 ;IGSTRT
35 000015' 000000000000 IGEND2: 0 ;IGEND
36 000016' 06 04 0 01 000013* RATF2: POINT 4,CHRTAB(A),29 ;RATFLD
37 000017' 04 02 0 01 000016* STRF2: POINT 2,CHRTAB(A),31 ;STRFLD
38 000020' 01 03 0 01 000017* IDF2: POINT 3,CHRTAB(A),34 ;IDFLD
39
40 000021' 334 01 0 00 000127' SCANSET: SKIPA A,[XWD IGST2,IGSTRT]
41 000022' 200 01 0 00 000130' SCANRESET: MOVE A,[XWD OLDSCN,IGSTRT]
42 000023' 251 01 0 00 000004* BLT A,IGSTRT+4
43 000024' 201 01 0 00 000000 FALSE: MOVEI A,0
44 000025' 263 14 0 00 000000 POPJ P,
45
46 000026' 275 01 0 00 000005* SCANINIT: SUBI A,INUM0
47 000027' 275 02 0 00 000026* SUBI B,INUM0
48 000030' 275 03 0 00 000027* SUBI C,INUM0
49 000031' 275 04 0 00 000030* SUBI C+1,INUM0
50 000032' 275 05 0 00 000031* SUBI C+2,INUM0
51 000033' 202 01 0 00 000014' MOVEM A,IGST2 ;IGSTRT
52 000034' 202 02 0 00 000015' MOVEM B,IGEND2 ;IGEND
53 000035' 261 14 0 00 000003 PUSH P,C ;STRBEG
SCAN -- GENERAL PURPOSE ADAPTER FOR LISP SCANNER MACRO 47(113)-2 06:36 25-OCT-73 PAGE 1-1
SCAN MAC 23-JAN-73 01:25
54 000036' 261 14 0 00 000004 PUSH P,C+1 ;STREND
55 000037' 261 14 0 00 000005 PUSH P,C+2 ;SLASHIFY
56 000040' 201 02 0 00 000002 MOVEI B,2
57 000041' 201 03 0 00 000003 MOVEI C,3
58 000042' 201 01 0 00 000176 MOVEI A,176
59 000043' 137 02 0 00 000016' DPB B,RATF2
60 000044' 137 03 0 00 000017' DPB C,STRF2
61 000045' 137 02 0 00 000020' DPB B,IDF2
62 000046' 367 01 0 00 000043' SOJG A,.-3
63 000047' 200 01 0 00 000131' MOVE A,[XWD "A"-"Z"-1,"A"]
64 000050' 201 02 0 00 000005 MOVEI B,5
65 000051' 201 03 0 00 000004 MOVEI C,4
66 000052' 137 02 0 00 000016' DPB B,RATF2
67 000053' 137 03 0 00 000020' DPB C,IDF2
68 000054' 253 01 0 00 000052' AOBJN A,.-2
69 000055' 200 01 0 00 000132' MOVE A,[XWD "a"-"z"-1,"a"]
70 000056' 137 02 0 00 000016' DPB B,RATF2
71 000057' 137 03 0 00 000020' DPB C,IDF2
72 000060' 253 01 0 00 000056' AOBJN A,.-2
73 000061' 200 01 0 00 000133' MOVE A,[XWD "0"-"9"-1,"0"]
74 000062' 201 02 0 00 000010 MOVEI B,8
75 000063' 137 02 0 00 000016' DPB B,RATF2
76 000064' 137 03 0 00 000020' DPB C,IDF2
77 000065' 253 01 0 00 000063' AOBJN A,.-2
78 000066' 262 14 0 00 000001 POP P,A ;SLASHIFY
79 000067' 201 02 0 00 000003 MOVEI B,3
80 000070' 137 02 0 00 000020' DPB B,IDF2
81 000071' 137 03 0 00 000016' DPB C,RATF2
82 000072' 262 14 0 00 000001 POP P,A ;STREND
83 000073' 201 02 0 00 000002 MOVEI B,2
84 000074' 137 02 0 00 000017' DPB B,STRF2
85 000075' 262 14 0 00 000001 POP P,A ;STRBEG
86 000076' 201 02 0 00 000011 MOVEI B,9
87 000077' 137 02 0 00 000016' DPB B,RATF2
88 000100' 200 01 0 00 000014' MOVE A,IGST2
89 000101' 201 02 0 00 000000 MOVEI B,0
90 000102' 137 02 0 00 000016' DPB B,RATF2
91 000103' 137 02 0 00 000017' DPB B,STRF2
92 000104' 137 02 0 00 000020' DPB B,IDF2
93 000105' 201 02 0 00 000001 MOVEI B,1
94 000106' 201 01 0 00 000000 MOVEI A,0 ;NULL
95 000107' 137 02 0 00 000016' DPB B,RATF2
96 000110' 137 02 0 00 000020' DPB B,IDF2
97 000111' 137 02 0 00 000017' DPB B,STRF2
98 000112' 201 01 0 00 000056 MOVEI A,"."
99 000113' 201 02 0 00 000007 MOVEI B,7
100 000114' 137 02 0 00 000016' DPB B,RATF2
101 000115' 254 00 0 00 000024' JRST FALSE
102
103 000116' 275 01 0 00 000032* LETTER: SUBI A,INUM0
104 000117' 201 02 0 00 000005 MOVEI B,5
105 000120' 201 03 0 00 000004 MOVEI C,4
106 000121' 137 03 0 00 000020' DPB C,IDF2
SCAN -- GENERAL PURPOSE ADAPTER FOR LISP SCANNER MACRO 47(113)-2 06:36 25-OCT-73 PAGE 1-2
SCAN MAC 23-JAN-73 01:25
107 000122' 137 02 0 00 000016' LET2: DPB B,RATF2
108 000123' 254 00 0 00 000024' JRST FALSE
109
110 000124' 275 01 0 00 000116* IGNORE: SUBI A,INUM0
111 000125' 201 02 0 00 000003 MOVEI B,3
112 000126' 254 00 0 00 000122' JRST LET2
113
114 END
NO ERRORS DETECTED
PROGRAM BREAK IS 000134
2K CORE USED
SCAN -- GENERAL PURPOSE ADAPTER FOR LISP SCANNER MACRO 47(113)-2 06:36 25-OCT-73 PAGE 2
SCAN MAC 23-JAN-73 01:25 SYMBOL TABLE
A 000001
B 000002
C 000003
CHRTAB 000020' EXT
CR 000015
FALSE 000024'
FIX1A 000003' EXT
IDF2 000020'
IGCRLF 000031
IGEND2 000015'
IGNORE 000124' INT
IGST2 000014'
IGSTRT 000130' EXT
INUM0 000124' EXT
LET2 000122'
LETTER 000116' INT
LF 000012
NOINFG 000000' EXT
OLDCH 000000 EXT
OLDSCN 000007'
P 000014
R 000013
RATF2 000016'
RATOM 000001' EXT
SCAN 000000' INT
SCANIN 000026' INT
SCANRE 000022' INT
SCANSE 000021' INT
SCNVAL 000004' EXT
STRF2 000017'
T 000006
TAB 000011
A 3# 24 25 30 31 32 36 37 38 40 41 42 43 46
51 58 62 63 68 69 72 73 77 78 82 85 88 94
98 103 110
B 4# 47 52 56 59 61 64 66 70 74 75 79 80 83
84 86 87 89 90 91 92 93 95 96 97 99 100 104
107 111
C 5# 48 49 50 53 54 55 57 60 65 67 71 76 81
105 106
CHRTAB 16# 30 31 32 36 37 38
CR 10#
FALSE 43# 101 108
FIX1A 16# 23
IDF2 38# 61 67 71 76 80 92 96 106
IGCRLF 14# 28
IGEND2 35# 52
IGNORE 18 110#
IGST2 34# 40 51 88
IGSTRT 16# 40 41 42
INUM0 16# 25 46 47 48 49 50 103 110
LET2 107# 112
LETTER 18 103#
LF 11# 29
NOINFG 16# 20
OLDCH 16#
OLDSCN 28# 41
P 8# 21 23 26 44 53 54 55 78 82 85
R 6# 25
RATF2 36# 59 66 70 75 81 87 90 95 100 107
RATOM 16# 21
SCAN 18 20#
SCANIN 18 46#
SCANRE 18 41#
SCANSE 18 40#
SCNVAL 16# 24
STRF2 37# 60 84 91 97
T 7#
TAB 12#
AOBJN 68 72 77
BLT 42
DPB 59 60 61 66 67 70 71 75 76 80 81 84 87 90
91 92 95 96 97 100 106 107
END 114
EXTERN 16
INTERN 18
JRST 101 108 112
MOVE 41 63 69 73 88
MOVEI 25 43 56 57 58 64 65 74 79 83 86 89 93 94
98 99 104 105 111
MOVEM 24 51 52
POINT 30 31 32 36 37 38
POP 78 82 85
POPJ 26 44
PUSH 53 54 55
PUSHJ 21 23
SETOM 20
SKIPA 22 40
SOJG 62
SUBI 46 47 48 49 50 103 110
TITLE 1
XWD 40 41 63 69 73