Source Code 1992 March

home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / unix_c / cpm / xasm.tar < prev next >
Tape Archive | 1989-02-26 | 56.0 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: Tape Archive (archive/tar).

You can browse this item here: xasm.tar
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Tape Archive `(archive/tar)`	magic	Supported
`100%`	file	tar archive	default
`99%`	file	tar archive (V7), file xasm/, mode 755 , uid 243 , gid 12 , size 0 , seconds 4402061321	default
`98%`	file	data	default
`100%`	TrID	Sybase iAnywhere database files	default (weak)
`100%`	siegfried	x-fmt/265 Tape Archive Format	default
`100%`	lsar	Tar	default
`100%`	gt2	TAR Archiv gefunden (Auflistung ist deaktiviert)	default
`100%`	disktype	Pre-POSIX tar archive	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 78 61 73 6d 2f 00 00 00 | 00 00 00 00 00 00 00 00 |xasm/...|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 20 20 37 | 35 35 20 00 20 20 20 32 |....   7|55 .   2|
|00000070| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000080| 20 20 20 20 20 20 30 20 | 20 34 34 30 32 30 36 31 |      0 | 4402061|
|00000090| 33 32 31 20 20 20 34 37 | 35 34 00 20 00 00 00 00 |321   47|54. ....|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 78 61 73 6d 2f 61 73 6d | 2e 68 00 00 00 00 00 00 |xasm/asm|.h......|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00000270| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000280| 20 20 31 31 30 33 31 20 | 20 34 34 30 32 30 36 31 |  11031 | 4402061|
|00000290| 32 37 34 20 20 20 36 30 | 31 35 00 20 00 00 00 00 |274   60|15. ....|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 0a 2f 2a 0a 20 2a 20 40 | 28 23 29 61 73 6d 2e 68 |./*. * @|(#)asm.h|
|00000410| 09 31 2e 33 20 0a 20 2a | 20 48 65 61 64 65 72 2e |.1.3 . *| Header.|
|00000420| 0a 20 2a 0a 20 2a 20 47 | 65 6e 65 72 61 6c 20 61 |. *. * G|eneral a|
|00000430| 73 73 65 6d 62 6c 65 72 | 20 68 65 61 64 65 72 2e |ssembler| header.|
|00000440| 20 57 69 74 68 20 74 68 | 69 73 20 73 74 72 75 63 | With th|is struc|
|00000450| 74 75 72 65 20 79 6f 75 | 0a 20 2a 20 63 61 6e 20 |ture you|. * can |
|00000460| 64 65 66 69 6e 65 20 74 | 68 65 20 6d 61 6a 6f 72 |define t|he major|
|00000470| 69 74 79 20 6f 66 20 74 | 68 65 20 73 69 6d 70 6c |ity of t|he simpl|
|00000480| 65 20 61 73 73 65 6d 62 | 6c 65 72 20 0a 20 2a 20 |e assemb|ler . * |
|00000490| 64 65 70 65 6e 64 65 6e | 74 20 76 61 72 69 61 62 |dependen|t variab|
|000004a0| 6c 65 73 2e 0a 20 2a 0a | 20 2a 20 44 61 76 69 64 |les.. *.| * David|
|000004b0| 20 41 20 4b 6c 6f 74 7a | 62 61 63 68 0a 20 2a 0a | A Klotz|bach. *.|
|000004c0| 20 2a 20 53 69 7a 65 73 | 20 6f 66 20 74 61 62 6c | * Sizes| of tabl|
|000004d0| 65 73 2e 0a 20 2a 2f 0a | 0a 23 64 65 66 69 6e 65 |es.. */.|.#define|
|000004e0| 20 4e 43 50 53 09 31 36 | 09 09 2f 2a 20 43 68 61 | NCPS.16|../* Cha|
|000004f0| 72 61 63 74 65 72 73 20 | 70 65 72 20 73 79 6d 62 |racters |per symb|
|00000500| 6f 6c 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 43 4c |ol */.#d|efine CL|
|00000510| 4d 41 58 09 32 35 36 09 | 09 2f 2a 20 43 6f 64 65 |MAX.256.|./* Code|
|00000520| 20 62 79 74 65 73 2c 20 | 6c 69 6e 65 20 2a 2f 0a | bytes, |line */.|
|00000530| 23 64 65 66 69 6e 65 20 | 43 42 4d 41 58 09 31 36 |#define |CBMAX.16|
|00000540| 09 09 2f 2a 20 43 6f 64 | 65 20 62 79 74 65 73 2c |../* Cod|e bytes,|
|00000550| 20 6f 62 6a 65 63 74 20 | 2a 2f 0a 23 64 65 66 69 | object |*/.#defi|
|00000560| 6e 65 20 55 53 45 52 4d | 41 58 09 32 09 09 2f 2a |ne USERM|AX.2../*|
|00000570| 20 55 73 65 72 20 6e 61 | 6d 65 73 20 2a 2f 0a 23 | User na|mes */.#|
|00000580| 64 65 66 69 6e 65 20 53 | 52 43 4d 41 58 09 31 32 |define S|RCMAX.12|
|00000590| 38 09 09 2f 2a 20 53 6f | 75 72 63 65 20 6c 69 6e |8../* So|urce lin|
|000005a0| 65 20 6c 65 6e 67 74 68 | 20 2a 2f 0a 23 64 65 66 |e length| */.#def|
|000005b0| 69 6e 65 20 45 52 52 4d | 41 58 09 35 09 09 2f 2a |ine ERRM|AX.5../*|
|000005c0| 20 4d 61 78 69 6d 75 6d | 20 65 72 72 6f 72 73 20 | Maximum| errors |
|000005d0| 70 65 72 20 6c 69 6e 65 | 20 2b 31 20 2a 2f 0a 23 |per line| +1 */.#|
|000005e0| 64 65 66 69 6e 65 20 46 | 41 4c 53 45 09 30 09 09 |define F|ALSE.0..|
|000005f0| 2f 2a 20 6e 6f 74 20 74 | 72 75 65 09 09 09 2a 2f |/* not t|rue...*/|
|00000600| 0a 23 64 65 66 69 6e 65 | 20 54 52 55 45 09 31 09 |.#define| TRUE.1.|
|00000610| 09 2f 2a 20 59 6f 75 20 | 73 68 6f 75 6c 64 20 62 |./* You |should b|
|00000620| 65 20 61 62 6c 65 20 74 | 6f 20 67 75 65 73 73 09 |e able t|o guess.|
|00000630| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 6d 78 6c 69 6e |*/.#defi|ne mxlin|
|00000640| 65 09 35 35 09 09 2f 2a | 20 6d 61 78 69 6d 75 6d |e.55../*| maximum|
|00000650| 20 6c 69 6e 65 73 20 70 | 65 72 20 70 61 67 65 2a | lines p|er page*|
|00000660| 2f 0a 0a 23 64 65 66 69 | 6e 65 20 64 6f 74 09 28 |/..#defi|ne dot.(|
|00000670| 26 75 73 74 5b 30 5d 29 | 09 2f 2a 20 4c 6f 63 61 |&ust[0])|./* Loca|
|00000680| 74 69 6f 6e 20 63 6f 75 | 6e 74 65 72 20 2a 2f 0a |tion cou|nter */.|
|00000690| 23 64 65 66 69 6e 65 20 | 43 44 4f 54 09 27 24 27 |#define |CDOT.'$'|
|000006a0| 09 09 2f 2a 20 43 68 61 | 72 61 63 74 65 72 20 74 |../* Cha|racter t|
|000006b0| 68 61 74 20 6d 65 61 6e | 73 20 63 75 72 72 65 6e |hat mean|s curren|
|000006c0| 74 20 50 43 20 2a 2f 0a | 23 64 65 66 69 6e 65 20 |t PC */.|#define |
|000006d0| 42 53 57 41 50 20 20 20 | 30 09 09 2f 2a 20 31 20 |BSWAP   |0../* 1 |
|000006e0| 3d 20 48 69 67 68 20 66 | 69 72 73 74 3b 20 30 20 |= High f|irst; 0 |
|000006f0| 3d 20 4c 6f 77 20 66 69 | 72 73 74 20 20 20 2a 2f |= Low fi|rst   */|
|00000700| 0a 23 64 65 66 69 6e 65 | 20 4d 49 43 52 4f 09 22 |.#define| MICRO."|
|00000710| 38 30 38 30 22 0a 23 64 | 65 66 69 6e 65 20 54 41 |8080".#d|efine TA|
|00000720| 53 4b 09 22 41 53 4d 38 | 30 22 09 09 2f 2a 20 54 |SK."ASM8|0"../* T|
|00000730| 68 65 20 74 61 73 6b 20 | 74 68 61 74 20 69 73 20 |he task |that is |
|00000740| 74 6f 20 62 65 20 72 75 | 6e 20 2a 2f 0a 23 64 65 |to be ru|n */.#de|
|00000750| 66 69 6e 65 20 48 41 53 | 48 09 32 38 0a 0a 2f 2a |fine HAS|H.28../*|
|00000760| 0a 20 2a 20 4c 69 73 74 | 69 6e 67 20 63 6f 6e 74 |. * List|ing cont|
|00000770| 72 6f 6c 20 6d 6f 64 65 | 73 2e 0a 20 2a 20 47 6f |rol mode|s.. * Go|
|00000780| 20 69 6e 20 60 6c 69 73 | 74 6d 6f 64 65 27 2e 0a | in `lis|tmode'..|
|00000790| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 4e 4c 49 53 | */.#def|ine NLIS|
|000007a0| 54 09 30 09 09 2f 2a 20 | 4e 6f 20 6c 69 73 74 20 |T.0../* |No list |
|000007b0| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 53 4c 49 53 54 |*/.#defi|ne SLIST|
|000007c0| 09 31 09 09 2f 2a 20 53 | 6f 75 72 63 65 20 6f 6e |.1../* S|ource on|
|000007d0| 6c 79 20 6c 69 73 74 20 | 2a 2f 0a 23 64 65 66 69 |ly list |*/.#defi|
|000007e0| 6e 65 20 41 4c 49 53 54 | 09 32 09 09 2f 2a 20 4a |ne ALIST|.2../* J|
|000007f0| 75 73 74 20 61 64 64 72 | 65 73 73 20 2a 2f 0a 23 |ust addr|ess */.#|
|00000800| 64 65 66 69 6e 65 20 43 | 4c 49 53 54 09 33 09 09 |define C|LIST.3..|
|00000810| 2f 2a 20 41 64 64 72 65 | 73 73 20 61 6e 64 20 63 |/* Addre|ss and c|
|00000820| 6f 64 65 20 2a 2f 0a 0a | 2f 2a 0a 20 2a 20 53 79 |ode */..|/*. * Sy|
|00000830| 6d 62 6f 6c 20 74 61 62 | 6c 65 20 73 74 72 75 63 |mbol tab|le struc|
|00000840| 74 75 72 65 2e 0a 20 2a | 20 55 73 65 64 20 69 6e |ture.. *| Used in|
|00000850| 20 62 6f 74 68 20 74 68 | 65 20 75 73 65 72 20 73 | both th|e user s|
|00000860| 79 6d 62 6f 6c 20 74 61 | 62 6c 65 20 61 6e 64 0a |ymbol ta|ble and.|
|00000870| 20 2a 20 74 68 65 20 6f | 70 63 6f 64 65 20 74 61 | * the o|pcode ta|
|00000880| 62 6c 65 2e 0a 20 2a 2f | 0a 73 74 72 75 63 74 20 |ble.. */|.struct |
|00000890| 68 75 7b 0a 09 73 74 72 | 75 63 74 20 68 75 20 2a |hu{..str|uct hu *|
|000008a0| 6e 65 78 74 3b 09 2f 2a | 20 4e 65 78 74 20 75 73 |next;./*| Next us|
|000008b0| 61 67 65 09 2a 2f 0a 09 | 69 6e 74 09 6c 69 6e 65 |age.*/..|int.line|
|000008c0| 3b 09 09 2f 2a 20 4c 69 | 6e 65 20 75 73 65 64 09 |;../* Li|ne used.|
|000008d0| 2a 2f 0a 09 63 68 61 72 | 09 68 6f 77 3b 09 09 2f |*/..char|.how;../|
|000008e0| 2a 20 48 6f 77 20 69 74 | 20 77 61 73 20 75 73 65 |* How it| was use|
|000008f0| 64 20 2a 2f 0a 09 7d 3b | 0a 0a 23 64 65 66 69 6e |d */..};|..#defin|
|00000900| 65 09 55 5f 44 45 46 49 | 4e 45 09 27 64 27 09 2f |e.U_DEFI|NE.'d'./|
|00000910| 2a 20 44 65 66 69 6e 65 | 64 09 2a 2f 0a 23 64 65 |* Define|d.*/.#de|
|00000920| 66 69 6e 65 20 55 5f 45 | 58 50 52 09 09 27 65 27 |fine U_E|XPR..'e'|
|00000930| 09 2f 2a 20 75 73 65 64 | 20 69 6e 20 65 78 70 72 |./* used| in expr|
|00000940| 65 73 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 55 5f |es */.#d|efine U_|
|00000950| 45 51 55 09 09 27 3d 27 | 09 2f 2a 20 45 51 55 20 |EQU..'='|./* EQU |
|00000960| 6f 72 20 53 45 54 09 2a | 2f 0a 09 09 0a 73 74 72 |or SET.*|/....str|
|00000970| 75 63 74 20 73 79 6d 20 | 7b 0a 09 63 68 61 72 20 |uct sym |{..char |
|00000980| 73 5f 6e 61 6d 65 5b 4e | 43 50 53 5d 3b 09 2f 2a |s_name[N|CPS];./*|
|00000990| 20 4e 61 6d 65 20 2a 2f | 0a 09 73 74 72 75 63 74 | Name */|..struct|
|000009a0| 20 73 79 6d 20 2a 6c 65 | 66 74 3b 09 2f 2a 20 6c | sym *le|ft;./* l|
|000009b0| 65 66 74 20 6d 65 6d 62 | 65 72 09 2a 2f 0a 09 73 |eft memb|er.*/..s|
|000009c0| 74 72 75 63 74 20 73 79 | 6d 20 2a 72 69 67 68 74 |truct sy|m *right|
|000009d0| 3b 09 2f 2a 20 72 69 67 | 68 74 20 6d 65 6d 62 65 |;./* rig|ht membe|
|000009e0| 72 20 2a 2f 0a 09 63 68 | 61 72 20 73 5f 74 79 70 |r */..ch|ar s_typ|
|000009f0| 65 3b 09 09 2f 2a 20 54 | 79 70 65 20 2a 2f 0a 09 |e;../* T|ype */..|
|00000a00| 63 68 61 72 20 73 5f 66 | 6c 61 67 3b 09 09 2f 2a |char s_f|lag;../*|
|00000a10| 20 53 6f 6d 65 20 66 6c | 61 67 73 20 2a 2f 0a 09 | Some fl|ags */..|
|00000a20| 69 6e 74 20 20 73 5f 76 | 61 6c 75 65 3b 09 09 2f |int  s_v|alue;../|
|00000a30| 2a 20 56 61 6c 75 65 20 | 2a 2f 0a 09 73 74 72 75 |* Value |*/..stru|
|00000a40| 63 74 09 68 75 20 2a 68 | 6f 77 75 73 65 64 3b 09 |ct.hu *h|owused;.|
|00000a50| 2f 2a 20 46 69 72 73 74 | 20 65 6e 74 72 79 20 69 |/* First| entry i|
|00000a60| 6e 20 2a 2f 0a 7d 3b 0a | 0a 73 74 72 75 63 74 20 |n */.};.|.struct |
|00000a70| 73 79 6d 20 2a 68 61 73 | 68 74 62 6c 5b 20 5d 3b |sym *has|htbl[ ];|
|00000a80| 09 09 2f 2a 20 48 61 73 | 68 20 62 75 63 6b 65 74 |../* Has|h bucket|
|00000a90| 73 20 66 6f 72 20 73 79 | 6d 62 6f 6c 20 74 61 62 |s for sy|mbol tab|
|00000aa0| 6c 65 09 2a 2f 0a 73 74 | 72 75 63 74 20 73 79 6d |le.*/.st|ruct sym|
|00000ab0| 20 2a 6c 6f 6f 6b 75 70 | 28 29 3b 09 09 2f 2a 20 | *lookup|();../* |
|00000ac0| 64 65 66 69 6e 65 20 6c | 6f 6f 6b 75 70 20 61 73 |define l|ookup as|
|00000ad0| 20 61 20 66 75 6e 63 74 | 69 6f 6e 20 72 65 74 75 | a funct|ion retu|
|00000ae0| 72 6e 69 6e 67 20 2a 2f | 0a 0a 23 64 65 66 69 6e |rning */|..#defin|
|00000af0| 65 09 42 09 30 0a 23 64 | 65 66 69 6e 65 20 43 09 |e.B.0.#d|efine C.|
|00000b00| 31 0a 23 64 65 66 69 6e | 65 20 44 09 32 0a 23 64 |1.#defin|e D.2.#d|
|00000b10| 65 66 69 6e 65 20 45 09 | 33 0a 23 64 65 66 69 6e |efine E.|3.#defin|
|00000b20| 65 20 48 09 34 0a 23 64 | 65 66 69 6e 65 20 4c 09 |e H.4.#d|efine L.|
|00000b30| 35 0a 23 64 65 66 69 6e | 65 20 4d 09 36 0a 23 64 |5.#defin|e M.6.#d|
|00000b40| 65 66 69 6e 65 20 41 09 | 37 0a 23 64 65 66 69 6e |efine A.|7.#defin|
|00000b50| 65 20 50 53 57 09 36 0a | 23 64 65 66 69 6e 65 20 |e PSW.6.|#define |
|00000b60| 53 50 09 37 0a 23 64 65 | 66 69 6e 65 20 49 4e 52 |SP.7.#de|fine INR|
|00000b70| 09 34 0a 23 64 65 66 69 | 6e 65 20 44 43 52 09 35 |.4.#defi|ne DCR.5|
|00000b80| 0a 0a 0a 2f 2a 0a 20 2a | 20 54 79 70 65 73 2e 0a |.../*. *| Types..|
|00000b90| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 53 5f 55 4e | */.#def|ine S_UN|
|00000ba0| 44 09 30 09 09 2f 2a 20 | 55 6e 64 65 66 69 6e 65 |D.0../* |Undefine|
|00000bb0| 64 20 2a 2f 0a 23 64 65 | 66 69 6e 65 20 53 5f 41 |d */.#de|fine S_A|
|00000bc0| 42 53 09 31 09 09 2f 2a | 20 41 62 73 6f 6c 75 74 |BS.1../*| Absolut|
|00000bd0| 65 20 2a 2f 0a 23 64 65 | 66 69 6e 65 20 53 5f 52 |e */.#de|fine S_R|
|00000be0| 45 47 09 32 09 09 2f 2a | 20 52 65 67 69 73 74 65 |EG.2../*| Registe|
|00000bf0| 72 20 2a 2f 0a 23 64 65 | 66 69 6e 65 20 53 5f 52 |r */.#de|fine S_R|
|00000c00| 45 47 50 09 33 09 09 2f | 2a 20 52 65 67 69 73 74 |EGP.3../|* Regist|
|00000c10| 65 72 20 70 61 69 72 20 | 2a 2f 0a 23 64 65 66 69 |er pair |*/.#defi|
|00000c20| 6e 65 20 53 5f 45 4e 54 | 52 59 09 34 09 09 2f 2a |ne S_ENT|RY.4../*|
|00000c30| 20 2e 65 6e 74 72 79 20 | 2a 2f 0a 23 64 65 66 69 | .entry |*/.#defi|
|00000c40| 6e 65 20 53 5f 42 59 54 | 45 09 35 09 09 2f 2a 20 |ne S_BYT|E.5../* |
|00000c50| 2e 62 79 74 65 20 2a 2f | 0a 23 64 65 66 69 6e 65 |.byte */|.#define|
|00000c60| 20 53 5f 57 4f 52 44 09 | 36 09 09 2f 2a 20 2e 77 | S_WORD.|6../* .w|
|00000c70| 6f 72 64 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 53 |ord */.#|define S|
|00000c80| 5f 41 53 43 49 49 09 37 | 09 09 2f 2a 20 2e 61 73 |_ASCII.7|../* .as|
|00000c90| 63 69 69 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 53 |cii */.#|define S|
|00000ca0| 5f 41 53 43 49 5a 09 38 | 09 09 2f 2a 20 2e 61 73 |_ASCIZ.8|../* .as|
|00000cb0| 63 69 7a 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 53 |ciz */.#|define S|
|00000cc0| 5f 42 4c 4b 42 09 39 09 | 09 2f 2a 20 2e 62 6c 6b |_BLKB.9.|./* .blk|
|00000cd0| 62 20 2a 2f 0a 23 64 65 | 66 69 6e 65 20 53 5f 4f |b */.#de|fine S_O|
|00000ce0| 50 31 09 31 30 09 09 2f | 2a 20 4f 70 63 6f 64 65 |P1.10../|* Opcode|
|00000cf0| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 53 5f 4f 50 | */.#def|ine S_OP|
|00000d00| 32 09 31 31 09 09 2f 2a | 20 41 63 63 75 6d 75 6c |2.11../*| Accumul|
|00000d10| 61 74 6f 72 20 61 6e 64 | 20 4d 65 6d 6f 72 79 20 |ator and| Memory |
|00000d20| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 53 5f 4f 50 33 |*/.#defi|ne S_OP3|
|00000d30| 09 31 32 09 09 2f 2a 20 | 49 6e 64 65 78 20 52 65 |.12../* |Index Re|
|00000d40| 67 69 73 74 65 72 20 61 | 6e 64 20 73 74 61 63 6b |gister a|nd stack|
|00000d50| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 53 5f 4f 50 | */.#def|ine S_OP|
|00000d60| 34 09 31 33 09 09 2f 2a | 20 42 72 61 6e 63 68 20 |4.13../*| Branch |
|00000d70| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 53 5f 4f 50 35 |*/.#defi|ne S_OP5|
|00000d80| 09 31 34 09 09 2f 2a 20 | 4a 75 6d 70 20 20 20 2a |.14../* |Jump   *|
|00000d90| 2f 0a 23 64 65 66 69 6e | 65 20 53 5f 4f 50 36 09 |/.#defin|e S_OP6.|
|00000da0| 31 35 09 09 2f 2a 20 43 | 6f 6e 64 69 74 69 6f 6e |15../* C|ondition|
|00000db0| 20 63 6f 64 65 73 20 2a | 2f 0a 23 64 65 66 69 6e | codes *|/.#defin|
|00000dc0| 65 20 53 5f 4f 50 37 09 | 31 36 09 09 2f 2a 20 6c |e S_OP7.|16../* l|
|00000dd0| 69 6d 69 74 74 65 64 20 | 74 6f 20 65 78 74 6e 64 |imitted |to extnd|
|00000de0| 20 61 6e 64 20 69 6e 64 | 65 78 65 64 20 2a 2f 0a | and ind|exed */.|
|00000df0| 23 64 65 66 69 6e 65 20 | 53 5f 4f 50 38 09 31 37 |#define |S_OP8.17|
|00000e00| 09 09 2f 2a 20 6c 69 6d | 69 74 74 65 64 20 74 6f |../* lim|itted to|
|00000e10| 20 64 69 72 65 63 74 2c | 65 78 74 6e 64 20 61 6e | direct,|extnd an|
|00000e20| 64 20 69 6e 64 78 20 2a | 2f 0a 23 64 65 66 69 6e |d indx *|/.#defin|
|00000e30| 65 20 53 5f 4f 50 39 09 | 31 38 09 09 2f 2a 09 09 |e S_OP9.|18../*..|
|00000e40| 09 09 09 2a 2f 0a 23 64 | 65 66 69 6e 65 20 53 5f |...*/.#d|efine S_|
|00000e50| 4f 50 31 30 09 31 39 09 | 09 2f 2a 09 09 09 09 09 |OP10.19.|./*.....|
|00000e60| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 53 5f 4f 50 31 |*/.#defi|ne S_OP1|
|00000e70| 31 09 32 30 09 09 2f 2a | 09 09 09 09 09 2a 2f 0a |1.20../*|.....*/.|
|00000e80| 23 64 65 66 69 6e 65 20 | 53 5f 45 51 55 09 32 31 |#define |S_EQU.21|
|00000e90| 09 09 2f 2a 09 09 09 09 | 09 2a 2f 0a 23 64 65 66 |../*....|.*/.#def|
|00000ea0| 69 6e 65 20 53 5f 53 45 | 54 09 32 32 09 09 2f 2a |ine S_SE|T.22../*|
|00000eb0| 09 09 09 09 09 2a 2f 0a | 23 64 65 66 69 6e 65 09 |.....*/.|#define.|
|00000ec0| 53 5f 4e 41 4d 45 09 32 | 33 09 09 2f 2a 20 4e 61 |S_NAME.2|3../* Na|
|00000ed0| 6d 65 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 6c |me the p|rogram l|
|00000ee0| 69 73 74 69 6e 67 09 20 | 20 20 20 20 2a 2f 0a 23 |isting. |    */.#|
|00000ef0| 64 65 66 69 6e 65 20 53 | 5f 4f 52 47 09 32 34 09 |define S|_ORG.24.|
|00000f00| 09 2f 2a 20 50 72 6f 67 | 72 61 6d 20 73 65 63 74 |./* Prog|ram sect|
|00000f10| 69 6f 6e 20 6f 72 69 67 | 69 6e 20 73 74 61 74 65 |ion orig|in state|
|00000f20| 6d 65 6e 74 20 20 2a 2f | 0a 23 64 65 66 69 6e 65 |ment  */|.#define|
|00000f30| 09 53 5f 49 46 09 31 30 | 30 09 09 2f 2a 20 49 46 |.S_IF.10|0../* IF|
|00000f40| 20 64 69 72 65 63 74 69 | 76 65 09 09 09 20 20 20 | directi|ve...   |
|00000f50| 20 20 2a 2f 0a 23 64 65 | 66 69 6e 65 20 53 5f 45 |  */.#de|fine S_E|
|00000f60| 4e 44 49 46 09 31 30 32 | 09 09 2f 2a 20 45 4e 44 |NDIF.102|../* END|
|00000f70| 49 46 20 64 69 72 65 63 | 74 69 76 65 09 09 20 20 |IF direc|tive..  |
|00000f80| 20 20 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 53 5f |   */.#d|efine S_|
|00000f90| 4d 41 43 52 4f 09 32 30 | 30 09 09 2f 2a 20 44 65 |MACRO.20|0../* De|
|00000fa0| 66 69 6e 65 20 61 20 6d | 61 63 72 6f 09 09 20 20 |fine a m|acro..  |
|00000fb0| 20 20 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 53 5f |   */.#d|efine S_|
|00000fc0| 45 4e 44 4d 09 32 30 32 | 09 09 2f 2a 20 44 65 66 |ENDM.202|../* Def|
|00000fd0| 69 6e 65 20 6d 61 63 72 | 6f 20 65 6e 64 09 09 20 |ine macr|o end.. |
|00000fe0| 20 20 20 20 2a 2f 0a 0a | 2f 2a 0a 20 2a 20 46 6c |    */..|/*. * Fl|
|00000ff0| 61 67 73 2e 0a 20 2a 2f | 0a 23 64 65 66 69 6e 65 |ags.. */|.#define|
|00001000| 20 53 46 5f 4d 44 46 09 | 30 31 09 09 2f 2a 20 4d | SF_MDF.|01../* M|
|00001010| 75 6c 74 69 70 6c 79 20 | 64 65 66 69 6e 65 64 20 |ultiply |defined |
|00001020| 2a 2f 0a 23 64 65 66 69 | 6e 65 20 53 46 5f 41 53 |*/.#defi|ne SF_AS|
|00001030| 47 09 30 32 09 09 2f 2a | 20 44 65 66 69 6e 65 64 |G.02../*| Defined|
|00001040| 20 62 79 20 61 73 73 69 | 67 6e 6d 65 6e 74 20 2a | by assi|gnment *|
|00001050| 2f 0a 23 64 65 66 69 6e | 65 20 53 46 5f 4d 41 43 |/.#defin|e SF_MAC|
|00001060| 09 30 34 09 09 2f 2a 20 | 69 73 20 61 20 4d 41 43 |.04../* |is a MAC|
|00001070| 52 4f 20 64 65 66 69 6e | 69 74 69 6f 6e 20 2a 2f |RO defin|ition */|
|00001080| 0a 0a 2f 2a 0a 20 2a 20 | 56 61 72 69 61 62 6c 65 |../*. * |Variable|
|00001090| 73 2e 0a 20 2a 2f 0a 23 | 64 65 66 69 6e 65 09 54 |s.. */.#|define.T|
|000010a0| 49 54 4c 45 5f 4c 4e 09 | 34 30 09 2f 2a 20 4c 65 |ITLE_LN.|40./* Le|
|000010b0| 6e 67 74 68 20 6f 66 20 | 74 68 65 20 74 69 74 6c |ngth of |the titl|
|000010c0| 65 09 2a 2f 0a 65 78 74 | 65 72 6e 09 73 74 72 75 |e.*/.ext|ern.stru|
|000010d0| 63 74 09 73 79 6d 20 70 | 73 74 5b 5d 3b 09 2f 2a |ct.sym p|st[];./*|
|000010e0| 20 4f 70 63 6f 64 65 20 | 74 61 62 6c 65 20 2a 2f | Opcode |table */|
|000010f0| 0a 65 78 74 65 72 6e 09 | 73 74 72 75 63 74 09 73 |.extern.|struct.s|
|00001100| 79 6d 20 75 73 74 5b 5d | 3b 09 2f 2a 20 55 73 65 |ym ust[]|;./* Use|
|00001110| 72 20 73 79 6d 62 6f 6c | 73 20 2a 2f 0a 65 78 74 |r symbol|s */.ext|
|00001120| 65 72 6e 09 69 6e 74 09 | 70 61 67 65 09 3b 09 2f |ern.int.|page.;./|
|00001130| 2a 20 43 75 72 72 65 6e | 74 20 70 61 67 65 20 6e |* Curren|t page n|
|00001140| 75 6d 62 65 72 20 2a 2f | 0a 65 78 74 65 72 6e 09 |umber */|.extern.|
|00001150| 69 6e 74 09 70 6c 69 6e | 65 09 3b 09 2f 2a 20 4c |int.plin|e.;./* L|
|00001160| 69 6e 65 73 20 6f 6e 20 | 74 68 65 20 63 75 72 72 |ines on |the curr|
|00001170| 65 6e 74 20 70 61 67 65 | 20 2a 2f 0a 65 78 74 65 |ent page| */.exte|
|00001180| 72 6e 09 69 6e 74 09 6c | 69 73 74 6d 6f 64 65 3b |rn.int.l|istmode;|
|00001190| 09 2f 2a 20 4c 69 73 74 | 69 6e 67 20 63 6f 6e 74 |./* List|ing cont|
|000011a0| 72 6f 6c 20 2a 2f 0a 65 | 78 74 65 72 6e 09 69 6e |rol */.e|xtern.in|
|000011b0| 74 09 6c 69 73 74 61 64 | 64 72 3b 09 2f 2a 20 4c |t.listad|dr;./* L|
|000011c0| 69 73 74 69 6e 67 20 63 | 6f 6e 74 72 6f 6c 20 2a |isting c|ontrol *|
|000011d0| 2f 0a 65 78 74 65 72 6e | 09 69 6e 74 09 65 6e 74 |/.extern|.int.ent|
|000011e0| 61 64 64 72 3b 09 2f 2a | 20 2e 65 6e 74 72 79 20 |addr;./*| .entry |
|000011f0| 61 64 64 72 65 73 73 20 | 2a 2f 0a 65 78 74 65 72 |address |*/.exter|
|00001200| 6e 09 46 49 4c 45 09 2a | 73 72 63 3b 09 09 2f 2a |n.FILE.*|src;../*|
|00001210| 20 53 6f 75 72 63 65 20 | 2a 2f 0a 65 78 74 65 72 | Source |*/.exter|
|00001220| 6e 09 46 49 4c 45 09 2a | 6c 73 74 3b 09 09 2f 2a |n.FILE.*|lst;../*|
|00001230| 20 4c 69 73 74 69 6e 67 | 20 2a 2f 0a 65 78 74 65 | Listing| */.exte|
|00001240| 72 6e 09 46 49 4c 45 09 | 2a 6f 62 6a 3b 09 09 2f |rn.FILE.|*obj;../|
|00001250| 2a 20 4f 62 6a 65 63 74 | 20 2a 2f 0a 65 78 74 65 |* Object| */.exte|
|00001260| 72 6e 09 69 6e 74 09 6c | 66 6c 61 67 3b 09 09 2f |rn.int.l|flag;../|
|00001270| 2a 20 2d 6c 20 66 6c 61 | 67 20 2a 2f 0a 65 78 74 |* -l fla|g */.ext|
|00001280| 65 72 6e 09 69 6e 74 09 | 6e 66 6c 61 67 3b 09 09 |ern.int.|nflag;..|
|00001290| 2f 2a 20 2d 6e 20 66 6c | 61 67 20 2a 2f 0a 65 78 |/* -n fl|ag */.ex|
|000012a0| 74 65 72 6e 09 69 6e 74 | 09 73 66 6c 61 67 3b 09 |tern.int|.sflag;.|
|000012b0| 09 2f 2a 20 2d 73 20 66 | 6c 61 67 09 09 20 20 20 |./* -s f|lag..   |
|000012c0| 20 2a 2f 0a 65 78 74 65 | 72 6e 09 69 6e 74 09 70 | */.exte|rn.int.p|
|000012d0| 61 73 73 3b 09 09 2f 2a | 20 57 68 69 63 68 20 70 |ass;../*| Which p|
|000012e0| 61 73 73 3f 20 2a 2f 0a | 65 78 74 65 72 6e 09 69 |ass? */.|extern.i|
|000012f0| 6e 74 09 73 6b 69 70 3b | 09 09 2f 2a 20 53 6b 69 |nt.skip;|../* Ski|
|00001300| 70 70 69 6e 67 20 63 6f | 64 65 20 6c 69 6e 65 73 |pping co|de lines|
|00001310| 20 20 20 20 20 20 2a 2f | 0a 65 78 74 65 72 6e 09 |      */|.extern.|
|00001320| 69 6e 74 09 69 6e 69 66 | 3b 09 09 2f 2a 20 69 6e |int.inif|;../* in|
|00001330| 20 61 6e 20 69 66 20 62 | 6c 6f 63 6b 20 6f 66 20 | an if b|lock of |
|00001340| 69 6e 69 66 20 20 20 2a | 2f 0a 65 78 74 65 72 6e |inif   *|/.extern|
|00001350| 09 69 6e 74 09 6c 69 6e | 65 6e 6f 3b 09 09 2f 2a |.int.lin|eno;../*|
|00001360| 20 4c 69 6e 65 20 6e 75 | 6d 62 65 72 20 2a 2f 0a | Line nu|mber */.|
|00001370| 65 78 74 65 72 6e 09 63 | 68 61 72 09 2a 73 70 74 |extern.c|har.*spt|
|00001380| 72 3b 09 09 2f 2a 20 53 | 6f 75 72 63 65 20 70 6f |r;../* S|ource po|
|00001390| 69 6e 74 65 72 20 2a 2f | 0a 65 78 74 65 72 6e 09 |inter */|.extern.|
|000013a0| 63 68 61 72 09 73 62 75 | 66 5b 5d 3b 09 09 2f 2a |char.sbu|f[];../*|
|000013b0| 20 53 6f 75 72 63 65 20 | 62 75 66 66 65 72 20 2a | Source |buffer *|
|000013c0| 2f 0a 65 78 74 65 72 6e | 09 63 68 61 72 09 2a 63 |/.extern|.char.*c|
|000013d0| 70 74 72 3b 09 09 2f 2a | 20 4c 69 73 74 69 6e 67 |ptr;../*| Listing|
|000013e0| 20 63 6f 64 65 20 70 6f | 69 6e 74 65 72 20 2a 2f | code po|inter */|
|000013f0| 0a 65 78 74 65 72 6e 09 | 63 68 61 72 09 63 62 75 |.extern.|char.cbu|
|00001400| 66 5b 5d 3b 09 09 2f 2a | 20 4c 69 73 74 69 6e 67 |f[];../*| Listing|
|00001410| 20 63 6f 64 65 20 62 75 | 66 66 65 72 20 2a 2f 0a | code bu|ffer */.|
|00001420| 65 78 74 65 72 6e 09 63 | 68 61 72 09 2a 65 70 74 |extern.c|har.*ept|
|00001430| 72 3b 09 09 2f 2a 20 45 | 72 72 6f 72 20 70 6f 69 |r;../* E|rror poi|
|00001440| 6e 74 65 72 20 2a 2f 0a | 65 78 74 65 72 6e 09 63 |nter */.|extern.c|
|00001450| 68 61 72 09 65 62 75 66 | 5b 5d 3b 09 09 2f 2a 20 |har.ebuf|[];../* |
|00001460| 45 72 72 6f 72 20 62 75 | 66 66 65 72 20 2a 2f 0a |Error bu|ffer */.|
|00001470| 65 78 74 65 72 6e 09 69 | 6e 74 09 63 61 64 72 3b |extern.i|nt.cadr;|
|00001480| 09 09 2f 2a 20 4f 62 6a | 65 63 74 20 61 64 64 72 |../* Obj|ect addr|
|00001490| 65 73 73 20 2a 2f 0a 65 | 78 74 65 72 6e 09 69 6e |ess */.e|xtern.in|
|000014a0| 74 09 63 72 65 63 3b 09 | 09 2f 2a 20 4f 62 6a 65 |t.crec;.|./* Obje|
|000014b0| 63 74 20 69 6e 64 65 78 | 20 2a 2f 0a 65 78 74 65 |ct index| */.exte|
|000014c0| 72 6e 09 63 68 61 72 09 | 63 72 62 66 5b 5d 3b 09 |rn.char.|crbf[];.|
|000014d0| 09 2f 2a 20 4f 62 6a 65 | 63 74 20 62 75 66 66 65 |./* Obje|ct buffe|
|000014e0| 72 20 2a 2f 0a 65 78 74 | 65 72 6e 09 73 74 72 75 |r */.ext|ern.stru|
|000014f0| 63 74 09 73 79 6d 20 2a | 70 70 74 72 3b 09 2f 2a |ct.sym *|pptr;./*|
|00001500| 20 45 6e 64 20 6f 66 20 | 70 73 74 20 2a 2f 0a 65 | End of |pst */.e|
|00001510| 78 74 65 72 6e 09 73 74 | 72 75 63 74 09 73 79 6d |xtern.st|ruct.sym|
|00001520| 20 2a 75 70 74 72 3b 09 | 2f 2a 20 45 6e 64 20 6f | *uptr;.|/* End o|
|00001530| 66 20 75 73 74 20 2a 2f | 0a 65 78 74 65 72 6e 20 |f ust */|.extern |
|00001540| 20 63 68 61 72 20 20 20 | 20 74 69 74 6c 65 5b 5d | char   | title[]|
|00001550| 3b 20 20 20 20 20 20 20 | 20 20 2f 2a 20 54 69 74 |;       |  /* Tit|
|00001560| 6c 65 20 62 75 66 66 65 | 72 20 2a 2f 0a 65 78 74 |le buffe|r */.ext|
|00001570| 65 72 6e 20 20 69 6e 74 | 09 65 72 72 63 6e 74 3b |ern  int|.errcnt;|
|00001580| 09 09 20 2f 2a 20 6e 75 | 6d 62 65 72 20 6f 66 20 |.. /* nu|mber of |
|00001590| 65 72 72 6f 72 73 20 65 | 6e 63 6f 75 6e 74 65 72 |errors e|ncounter|
|000015a0| 64 20 2a 2f 0a 65 78 74 | 65 72 6e 09 69 6e 74 09 |d */.ext|ern.int.|
|000015b0| 6f 70 74 79 70 65 3b 09 | 09 2f 2a 20 54 79 70 65 |optype;.|./* Type|
|000015c0| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 6f 70 65 72 | of curr|ent oper|
|000015d0| 61 6e 64 20 20 20 20 2a | 2f 0a 0a 2f 2a 0a 20 2a |and    *|/../*. *|
|000015e0| 20 46 75 6e 63 74 69 6f | 6e 73 2e 0a 65 78 74 65 | Functio|ns..exte|
|000015f0| 72 6e 09 73 74 72 75 63 | 74 09 73 79 6d 20 2a 6c |rn.struc|t.sym *l|
|00001600| 6f 6f 6b 75 70 28 29 3b | 09 2f 2a 20 53 65 61 72 |ookup();|./* Sear|
|00001610| 63 68 20 2a 2f 0a 0a 0a | 0a 00 00 00 00 00 00 00 |ch */...|........|
|00001620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 78 61 73 6d 2f 61 73 38 | 31 2e 63 00 00 00 00 00 |xasm/as8|1.c.....|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00001870| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00001880| 20 20 31 32 31 31 31 20 | 20 34 34 30 32 30 36 31 |  12111 | 4402061|
|00001890| 32 37 37 20 20 20 36 30 | 30 37 00 20 00 00 00 00 |277   60|07. ....|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 2f 2a 0a 20 2a 20 61 73 | 38 31 2e 63 0a 20 2a 20 |/*. * as|81.c. * |
|00001a10| 41 73 73 65 6d 62 6c 65 | 20 61 20 6c 69 6e 65 2e |Assemble| a line.|
|00001a20| 0a 20 2a 2f 0a 23 69 6e | 63 6c 75 64 65 20 3c 73 |. */.#in|clude <s|
|00001a30| 74 64 69 6f 2e 68 3e 0a | 23 69 6e 63 6c 75 64 65 |tdio.h>.|#include|
|00001a40| 20 22 61 73 6d 2e 68 22 | 0a 0a 73 74 61 74 69 63 | "asm.h"|..static|
|00001a50| 20 63 68 61 72 20 2a 61 | 73 38 31 3d 22 40 28 23 | char *a|s81="@(#|
|00001a60| 29 61 73 38 31 2e 63 09 | 31 2e 33 22 3b 0a 0a 2f |)as81.c.|1.3";../|
|00001a70| 2a 0a 20 2a 20 41 73 73 | 65 6d 62 6c 65 20 61 20 |*. * Ass|emble a |
|00001a80| 6c 69 6e 65 2e 0a 20 2a | 2f 0a 61 73 6d 6c 69 6e |line.. *|/.asmlin|
|00001a90| 65 28 29 0a 7b 0a 09 72 | 65 67 69 73 74 65 72 20 |e().{..r|egister |
|00001aa0| 73 74 72 75 63 74 20 73 | 79 6d 20 2a 73 70 2c 2a |struct s|ym *sp,*|
|00001ab0| 6c 73 70 3b 0a 09 72 65 | 67 69 73 74 65 72 20 69 |lsp;..re|gister i|
|00001ac0| 6e 74 20 72 73 2c 20 72 | 64 3b 0a 09 63 68 61 72 |nt rs, r|d;..char|
|00001ad0| 09 2a 70 74 72 3b 0a 09 | 69 6e 74 09 6e 3b 0a 09 |.*ptr;..|int.n;..|
|00001ae0| 69 6e 74 20 61 2c 20 63 | 2c 20 6f 70 63 6f 64 65 |int a, c|, opcode|
|00001af0| 3b 0a 09 63 68 61 72 20 | 69 64 5b 4e 43 50 53 5d |;..char |id[NCPS]|
|00001b00| 3b 0a 0a 09 6c 69 73 74 | 61 64 64 72 20 3d 20 64 |;...list|addr = d|
|00001b10| 6f 74 2d 3e 73 5f 76 61 | 6c 75 65 3b 0a 09 6c 69 |ot->s_va|lue;..li|
|00001b20| 73 74 6d 6f 64 65 20 3d | 20 73 6b 69 70 20 3f 20 |stmode =| skip ? |
|00001b30| 4e 4c 49 53 54 20 3a 20 | 53 4c 49 53 54 3b 20 2f |NLIST : |SLIST; /|
|00001b40| 2a 20 69 66 20 73 6b 69 | 70 69 6e 67 20 74 68 65 |* if ski|ping the|
|00001b50| 6e 20 6e 6f 20 6c 69 73 | 74 20 2a 2f 0a 09 6c 73 |n no lis|t */..ls|
|00001b60| 70 20 3d 20 4e 55 4c 4c | 3b 0a 09 63 20 3d 20 67 |p = NULL|;..c = g|
|00001b70| 65 74 6e 62 28 29 3b 0a | 0a 09 64 6f 7b 0a 09 09 |etnb();.|..do{...|
|00001b80| 69 66 28 63 3d 3d 27 5c | 30 27 20 7c 7c 20 63 3d |if(c=='\|0' || c=|
|00001b90| 3d 27 3b 27 20 7c 7c 20 | 63 3d 3d 27 5c 6e 27 29 |=';' || |c=='\n')|
|00001ba0| 20 0a 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 69 66 | ....bre|ak;...if|
|00001bb0| 28 20 63 20 3d 3d 20 27 | 21 27 20 29 0a 09 09 09 |( c == '|!' )....|
|00001bc0| 63 20 3d 20 67 65 74 6e | 62 28 29 3b 0a 09 09 69 |c = getn|b();...i|
|00001bd0| 66 28 21 61 6c 70 68 61 | 28 63 29 29 20 7b 0a 09 |f(!alpha|(c)) {..|
|00001be0| 09 09 69 66 28 20 21 73 | 6b 69 70 20 29 0a 09 09 |..if( !s|kip )...|
|00001bf0| 09 09 65 72 72 28 27 4c | 27 29 3b 0a 09 09 09 62 |..err('L|');....b|
|00001c00| 72 65 61 6b 3b 0a 09 09 | 7d 0a 09 09 67 65 74 69 |reak;...|}...geti|
|00001c10| 64 28 63 2c 20 69 64 29 | 3b 0a 0a 09 09 69 66 28 |d(c, id)|;....if(|
|00001c20| 28 20 63 20 3d 20 67 65 | 74 6e 62 28 29 29 20 3d |( c = ge|tnb()) =|
|00001c30| 3d 20 27 3a 27 20 29 20 | 7b 0a 09 09 09 69 66 28 |= ':' ) |{....if(|
|00001c40| 20 73 6b 69 70 20 29 0a | 09 09 09 09 62 72 65 61 | skip ).|....brea|
|00001c50| 6b 3b 0a 09 09 09 73 70 | 3d 6c 6f 6f 6b 75 70 28 |k;....sp|=lookup(|
|00001c60| 69 64 2c 20 75 73 74 20 | 2c 27 64 27 29 3b 0a 09 |id, ust |,'d');..|
|00001c70| 09 09 69 66 28 70 61 73 | 73 3d 3d 30 29 20 7b 0a |..if(pas|s==0) {.|
|00001c80| 09 09 09 09 69 66 28 73 | 70 2d 3e 73 5f 74 79 70 |....if(s|p->s_typ|
|00001c90| 65 21 3d 53 5f 55 4e 44 | 20 26 26 0a 09 09 09 09 |e!=S_UND| &&.....|
|00001ca0| 20 20 20 20 28 73 70 2d | 3e 73 5f 66 6c 61 67 26 |    (sp-|>s_flag&|
|00001cb0| 53 46 5f 41 53 47 29 3d | 3d 30 29 0a 09 09 09 09 |SF_ASG)=|=0).....|
|00001cc0| 09 73 70 2d 3e 73 5f 66 | 6c 61 67 20 7c 3d 20 53 |.sp->s_f|lag |= S|
|00001cd0| 46 5f 4d 44 46 3b 0a 09 | 09 09 09 73 70 2d 3e 73 |F_MDF;..|...sp->s|
|00001ce0| 5f 74 79 70 65 20 3d 20 | 53 5f 41 42 53 3b 0a 09 |_type = |S_ABS;..|
|00001cf0| 09 09 09 73 70 2d 3e 73 | 5f 76 61 6c 75 65 20 3d |...sp->s|_value =|
|00001d00| 20 64 6f 74 2d 3e 73 5f | 76 61 6c 75 65 3b 0a 09 | dot->s_|value;..|
|00001d10| 09 09 7d 20 0a 09 09 09 | 65 6c 73 65 20 7b 0a 09 |..} ....|else {..|
|00001d20| 09 09 09 69 66 28 28 73 | 70 2d 3e 73 5f 66 6c 61 |...if((s|p->s_fla|
|00001d30| 67 26 53 46 5f 4d 44 46 | 29 21 3d 30 29 0a 09 09 |g&SF_MDF|)!=0)...|
|00001d40| 09 09 09 65 72 72 28 27 | 4c 27 29 3b 0a 09 09 09 |...err('|L');....|
|00001d50| 09 69 66 28 73 70 2d 3e | 73 5f 74 79 70 65 21 3d |.if(sp->|s_type!=|
|00001d60| 53 5f 41 42 53 20 7c 7c | 0a 09 09 09 09 20 20 20 |S_ABS |||.....   |
|00001d70| 20 73 70 2d 3e 73 5f 76 | 61 6c 75 65 21 3d 64 6f | sp->s_v|alue!=do|
|00001d80| 74 2d 3e 73 5f 76 61 6c | 75 65 29 0a 09 09 09 09 |t->s_val|ue).....|
|00001d90| 09 65 72 72 28 27 4c 27 | 29 3b 0a 09 09 09 7d 0a |.err('L'|);....}.|
|00001da0| 09 09 09 6c 69 73 74 6d | 6f 64 65 20 3d 20 41 4c |...listm|ode = AL|
|00001db0| 49 53 54 3b 0a 09 09 09 | 63 6f 6e 74 69 6e 75 65 |IST;....|continue|
|00001dc0| 3b 0a 09 09 7d 20 0a 09 | 09 65 6c 73 65 0a 09 09 |;...} ..|.else...|
|00001dd0| 09 70 75 74 62 61 63 6b | 28 63 29 3b 0a 09 09 69 |.putback|(c);...i|
|00001de0| 66 28 28 73 70 3d 6c 6f | 6f 6b 75 70 28 69 64 2c |f((sp=lo|okup(id,|
|00001df0| 20 70 73 74 29 29 20 3d | 3d 20 4e 55 4c 4c 29 7b | pst)) =|= NULL){|
|00001e00| 0a 09 09 09 69 66 28 20 | 21 73 6b 69 70 20 29 7b |....if( |!skip ){|
|00001e10| 0a 09 09 09 09 6c 73 70 | 20 3d 20 6c 6f 6f 6b 75 |.....lsp| = looku|
|00001e20| 70 28 20 69 64 2c 20 75 | 73 74 20 2c 27 3d 27 20 |p( id, u|st ,'=' |
|00001e30| 29 3b 0a 09 09 09 09 63 | 20 3d 20 67 65 74 6e 62 |);.....c| = getnb|
|00001e40| 28 29 3b 0a 09 09 09 09 | 67 65 74 69 64 28 20 63 |();.....|getid( c|
|00001e50| 20 2c 20 69 64 20 29 3b | 0a 09 09 09 09 69 66 28 | , id );|.....if(|
|00001e60| 28 73 70 20 3d 20 6c 6f | 6f 6b 75 70 28 20 69 64 |(sp = lo|okup( id|
|00001e70| 2c 20 70 73 74 20 29 29 | 20 3d 3d 20 4e 55 4c 4c |, pst ))| == NULL|
|00001e80| 29 7b 0a 09 09 09 09 09 | 65 72 72 28 27 4f 27 29 |){......|err('O')|
|00001e90| 3b 0a 09 09 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |;......b|reak;...|
|00001ea0| 09 09 7d 0a 09 09 09 7d | 0a 09 09 09 65 6c 73 65 |..}....}|....else|
|00001eb0| 0a 09 09 09 09 72 65 74 | 75 72 6e 3b 0a 09 09 7d |.....ret|urn;...}|
|00001ec0| 0a 09 09 65 6c 73 65 20 | 69 66 20 28 73 6b 69 70 |...else |if (skip|
|00001ed0| 20 26 26 28 73 70 2d 3e | 73 5f 74 79 70 65 20 21 | &&(sp->|s_type !|
|00001ee0| 3d 20 53 5f 45 4e 44 49 | 46 29 29 0a 09 09 09 72 |= S_ENDI|F))....r|
|00001ef0| 65 74 75 72 6e 3b 0a 09 | 09 65 6c 73 65 20 69 66 |eturn;..|.else if|
|00001f00| 28 28 73 6b 69 70 20 7c | 7c 20 69 6e 69 66 29 26 |((skip ||| inif)&|
|00001f10| 26 28 73 70 2d 3e 73 5f | 74 79 70 65 20 3d 3d 20 |&(sp->s_|type == |
|00001f20| 53 5f 45 4e 44 49 46 29 | 29 20 7b 20 0a 09 09 09 |S_ENDIF)|) { ....|
|00001f30| 73 6b 69 70 20 3d 20 30 | 3b 0a 09 09 09 69 66 28 |skip = 0|;....if(|
|00001f40| 21 28 2d 2d 69 6e 69 66 | 29 29 0a 09 09 09 09 69 |!(--inif|)).....i|
|00001f50| 6e 69 66 3d 30 3b 0a 09 | 09 09 6c 69 73 74 6d 6f |nif=0;..|..listmo|
|00001f60| 64 65 20 3d 20 4e 4c 49 | 53 54 3b 0a 09 09 09 72 |de = NLI|ST;....r|
|00001f70| 65 74 75 72 6e 3b 0a 09 | 09 7d 0a 09 09 6c 69 73 |eturn;..|.}...lis|
|00001f80| 74 6d 6f 64 65 20 3d 20 | 43 4c 49 53 54 3b 0a 09 |tmode = |CLIST;..|
|00001f90| 09 69 66 28 20 6c 73 70 | 20 21 3d 20 4e 55 4c 4c |.if( lsp| != NULL|
|00001fa0| 20 29 7b 0a 09 09 09 73 | 77 69 74 63 68 28 20 73 | ){....s|witch( s|
|00001fb0| 70 2d 3e 73 5f 74 79 70 | 65 29 7b 0a 09 09 09 63 |p->s_typ|e){....c|
|00001fc0| 61 73 65 20 53 5f 45 51 | 55 3a 0a 09 09 09 63 61 |ase S_EQ|U:....ca|
|00001fd0| 73 65 20 53 5f 53 45 54 | 3a 0a 09 09 09 09 69 66 |se S_SET|:.....if|
|00001fe0| 28 20 6c 73 70 2d 3e 73 | 5f 74 79 70 65 20 21 3d |( lsp->s|_type !=|
|00001ff0| 20 53 5f 55 4e 44 20 26 | 26 0a 09 09 09 09 20 20 | S_UND &|&.....  |
|00002000| 20 20 28 20 6c 73 70 2d | 3e 73 5f 66 6c 61 67 26 |  ( lsp-|>s_flag&|
|00002010| 53 46 5f 41 53 47 29 20 | 3d 3d 20 30 29 0a 09 09 |SF_ASG) |== 0)...|
|00002020| 09 09 09 65 72 72 28 27 | 4c 27 29 3b 0a 09 09 09 |...err('|L');....|
|00002030| 09 6c 73 70 2d 3e 73 5f | 74 79 70 65 20 3d 20 53 |.lsp->s_|type = S|
|00002040| 5f 41 42 53 3b 0a 09 09 | 09 09 6c 73 70 2d 3e 73 |_ABS;...|..lsp->s|
|00002050| 5f 66 6c 61 67 20 7c 3d | 20 53 46 5f 41 53 47 3b |_flag |=| SF_ASG;|
|00002060| 0a 09 09 09 09 6c 73 70 | 2d 3e 73 5f 76 61 6c 75 |.....lsp|->s_valu|
|00002070| 65 20 3d 20 6c 69 73 74 | 61 64 64 72 20 3d 20 65 |e = list|addr = e|
|00002080| 78 70 72 28 29 3b 0a 09 | 09 09 09 6c 69 73 74 6d |xpr();..|...listm|
|00002090| 6f 64 65 20 3d 20 41 4c | 49 53 54 3b 09 0a 09 09 |ode = AL|IST;....|
|000020a0| 09 09 6c 73 70 20 3d 20 | 4e 55 4c 4c 3b 0a 09 09 |..lsp = |NULL;...|
|000020b0| 09 09 62 72 65 61 6b 3b | 0a 09 09 09 63 61 73 65 |..break;|....case|
|000020c0| 20 53 5f 4d 41 43 52 4f | 3a 0a 09 09 09 09 6c 73 | S_MACRO|:.....ls|
|000020d0| 70 20 3d 20 4e 55 4c 4c | 3b 0a 09 09 09 09 65 72 |p = NULL|;.....er|
|000020e0| 72 28 27 4d 27 29 3b 0a | 09 09 09 09 62 72 65 61 |r('M');.|....brea|
|000020f0| 6b 3b 0a 09 09 09 7d 0a | 09 09 7d 0a 09 09 69 66 |k;....}.|..}...if|
|00002100| 28 20 6c 73 70 20 21 3d | 20 4e 55 4c 4c 20 29 7b |( lsp !=| NULL ){|
|00002110| 0a 09 09 09 69 66 28 70 | 61 73 73 3d 3d 30 29 20 |....if(p|ass==0) |
|00002120| 7b 0a 09 09 09 09 69 66 | 28 6c 73 70 2d 3e 73 5f |{.....if|(lsp->s_|
|00002130| 74 79 70 65 21 3d 53 5f | 55 4e 44 20 26 26 0a 09 |type!=S_|UND &&..|
|00002140| 09 09 09 20 20 20 20 28 | 6c 73 70 2d 3e 73 5f 66 |...    (|lsp->s_f|
|00002150| 6c 61 67 26 53 46 5f 41 | 53 47 29 3d 3d 30 29 0a |lag&SF_A|SG)==0).|
|00002160| 09 09 09 09 09 6c 73 70 | 2d 3e 73 5f 66 6c 61 67 |.....lsp|->s_flag|
|00002170| 20 7c 3d 20 53 46 5f 4d | 44 46 3b 0a 09 09 09 09 | |= SF_M|DF;.....|
|00002180| 6c 73 70 2d 3e 73 5f 74 | 79 70 65 20 3d 20 53 5f |lsp->s_t|ype = S_|
|00002190| 41 42 53 3b 0a 09 09 09 | 09 6c 73 70 2d 3e 73 5f |ABS;....|.lsp->s_|
|000021a0| 76 61 6c 75 65 20 3d 20 | 64 6f 74 2d 3e 73 5f 76 |value = |dot->s_v|
|000021b0| 61 6c 75 65 3b 0a 09 09 | 09 7d 20 0a 09 09 09 65 |alue;...|.} ....e|
|000021c0| 6c 73 65 20 7b 0a 09 09 | 09 09 69 66 28 28 6c 73 |lse {...|..if((ls|
|000021d0| 70 2d 3e 73 5f 66 6c 61 | 67 26 53 46 5f 4d 44 46 |p->s_fla|g&SF_MDF|
|000021e0| 29 21 3d 30 29 0a 09 09 | 09 09 09 65 72 72 28 27 |)!=0)...|...err('|
|000021f0| 4c 27 29 3b 0a 09 09 09 | 09 69 66 28 6c 73 70 2d |L');....|.if(lsp-|
|00002200| 3e 73 5f 74 79 70 65 21 | 3d 53 5f 41 42 53 20 7c |>s_type!|=S_ABS ||
|00002210| 7c 0a 09 09 09 09 20 20 | 20 20 6c 73 70 2d 3e 73 ||.....  |  lsp->s|
|00002220| 5f 76 61 6c 75 65 21 3d | 64 6f 74 2d 3e 73 5f 76 |_value!=|dot->s_v|
|00002230| 61 6c 75 65 29 0a 09 09 | 09 09 09 65 72 72 28 27 |alue)...|...err('|
|00002240| 70 27 29 3b 0a 09 09 09 | 7d 0a 09 09 09 6c 73 70 |p');....|}....lsp|
|00002250| 20 3d 20 4e 55 4c 4c 3b | 0a 09 09 7d 0a 09 09 6c | = NULL;|...}...l|
|00002260| 69 73 74 6d 6f 64 65 20 | 3d 20 43 4c 49 53 54 3b |istmode |= CLIST;|
|00002270| 0a 09 09 6f 70 63 6f 64 | 65 20 3d 20 73 70 2d 3e |...opcod|e = sp->|
|00002280| 73 5f 76 61 6c 75 65 3b | 0a 09 09 73 77 69 74 63 |s_value;|...switc|
|00002290| 68 28 73 70 2d 3e 73 5f | 74 79 70 65 29 20 7b 0a |h(sp->s_|type) {.|
|000022a0| 0a 09 09 63 61 73 65 20 | 53 5f 45 51 55 3a 0a 09 |...case |S_EQU:..|
|000022b0| 09 63 61 73 65 20 53 5f | 53 45 54 3a 0a 09 09 63 |.case S_|SET:...c|
|000022c0| 61 73 65 20 53 5f 4d 41 | 43 52 4f 3a 0a 09 09 09 |ase S_MA|CRO:....|
|000022d0| 62 72 65 61 6b 3b 0a 0a | 09 09 63 61 73 65 20 53 |break;..|..case S|
|000022e0| 5f 49 46 3a 0a 09 09 09 | 69 6e 69 66 20 2b 3d 20 |_IF:....|inif += |
|000022f0| 31 3b 0a 09 09 09 73 6b | 69 70 20 3d 20 28 65 78 |1;....sk|ip = (ex|
|00002300| 70 72 28 29 3d 3d 30 29 | 3b 0a 09 09 09 6c 69 73 |pr()==0)|;....lis|
|00002310| 74 6d 6f 64 65 20 3d 20 | 4e 4c 49 53 54 3b 0a 09 |tmode = |NLIST;..|
|00002320| 09 09 72 65 74 75 72 6e | 3b 0a 0a 09 09 63 61 73 |..return|;....cas|
|00002330| 65 20 53 5f 4e 41 4d 45 | 3a 0a 09 09 09 6e 20 3d |e S_NAME|:....n =|
|00002340| 20 54 49 54 4c 45 5f 4c | 4e 3b 0a 09 09 09 63 3d | TITLE_L|N;....c=|
|00002350| 67 65 74 6e 62 28 29 3b | 0a 09 09 09 70 74 72 20 |getnb();|....ptr |
|00002360| 3d 20 74 69 74 6c 65 3b | 0a 09 09 09 77 68 69 6c |= title;|....whil|
|00002370| 65 28 28 2a 70 74 72 2b | 2b 20 3d 20 67 65 74 72 |e((*ptr+|+ = getr|
|00002380| 61 77 28 29 29 21 3d 63 | 20 26 26 20 2d 2d 6e 3e |aw())!=c| && --n>|
|00002390| 30 29 3b 0a 09 09 09 2a | 28 2d 2d 70 74 72 29 20 |0);....*|(--ptr) |
|000023a0| 3d 20 27 5c 30 27 3b 0a | 09 09 09 72 65 74 75 72 |= '\0';.|...retur|
|000023b0| 6e 3b 0a 0a 09 09 63 61 | 73 65 20 53 5f 4f 52 47 |n;....ca|se S_ORG|
|000023c0| 3a 0a 09 09 09 6c 69 73 | 74 61 64 64 72 20 3d 20 |:....lis|taddr = |
|000023d0| 64 6f 74 2d 3e 73 5f 76 | 61 6c 75 65 20 3d 20 65 |dot->s_v|alue = e|
|000023e0| 78 70 72 28 29 3b 0a 09 | 09 09 62 72 65 61 6b 3b |xpr();..|..break;|
|000023f0| 0a 0a 09 09 63 61 73 65 | 20 53 5f 45 4e 54 52 59 |....case| S_ENTRY|
|00002400| 3a 0a 09 09 09 65 6e 74 | 61 64 64 72 20 3d 20 65 |:....ent|addr = e|
|00002410| 78 70 72 28 29 3b 0a 09 | 09 09 72 65 74 75 72 6e |xpr();..|..return|
|00002420| 3b 0a 0a 09 09 63 61 73 | 65 20 53 5f 42 59 54 45 |;....cas|e S_BYTE|
|00002430| 3a 0a 09 09 09 64 6f 20 | 7b 0a 09 09 09 09 69 66 |:....do |{.....if|
|00002440| 20 28 20 28 63 3d 67 65 | 74 6e 62 28 29 29 3d 3d | ( (c=ge|tnb())==|
|00002450| 27 5c 27 27 29 0a 09 09 | 09 09 09 61 73 63 69 69 |'\'')...|...ascii|
|00002460| 28 63 29 3b 0a 09 09 09 | 09 65 6c 73 65 7b 0a 09 |(c);....|.else{..|
|00002470| 09 09 09 09 70 75 74 62 | 61 63 6b 28 20 63 20 29 |....putb|ack( c )|
|00002480| 3b 0a 09 09 09 09 09 61 | 20 3d 20 65 78 70 72 28 |;......a| = expr(|
|00002490| 29 3b 0a 09 09 09 09 09 | 62 79 74 65 28 61 29 3b |);......|byte(a);|
|000024a0| 0a 09 09 09 09 09 63 6f | 64 65 62 28 61 29 3b 0a |......co|deb(a);.|
|000024b0| 09 09 09 09 7d 0a 09 09 | 09 7d 0a 09 09 09 77 68 |....}...|.}....wh|
|000024c0| 69 6c 65 28 28 63 3d 67 | 65 74 6e 62 28 29 29 20 |ile((c=g|etnb()) |
|000024d0| 3d 3d 20 27 2c 27 29 3b | 0a 09 09 09 70 75 74 62 |== ',');|....putb|
|000024e0| 61 63 6b 28 63 29 3b 0a | 09 09 09 62 72 65 61 6b |ack(c);.|...break|
|000024f0| 3b 0a 0a 09 09 63 61 73 | 65 20 53 5f 57 4f 52 44 |;....cas|e S_WORD|
|00002500| 3a 0a 09 09 09 64 6f 20 | 7b 0a 09 09 09 09 63 6f |:....do |{.....co|
|00002510| 64 65 77 28 65 78 70 72 | 28 29 29 3b 0a 09 09 09 |dew(expr|());....|
|00002520| 7d 20 0a 09 09 09 77 68 | 69 6c 65 28 28 63 3d 67 |} ....wh|ile((c=g|
|00002530| 65 74 6e 62 28 29 29 20 | 3d 3d 20 27 2c 27 29 3b |etnb()) |== ',');|
|00002540| 0a 09 09 09 70 75 74 62 | 61 63 6b 28 63 29 3b 0a |....putb|ack(c);.|
|00002550| 09 09 09 62 72 65 61 6b | 3b 0a 0a 09 09 63 61 73 |...break|;....cas|
|00002560| 65 20 53 5f 42 4c 4b 42 | 3a 0a 09 09 09 61 20 3d |e S_BLKB|:....a =|
|00002570| 20 65 78 70 72 28 29 3b | 0a 09 09 09 77 68 69 6c | expr();|....whil|
|00002580| 65 28 61 2d 2d 29 0a 09 | 09 09 09 63 6f 64 65 62 |e(a--)..|...codeb|
|00002590| 28 30 29 3b 0a 09 09 09 | 6c 69 73 74 6d 6f 64 65 |(0);....|listmode|
|000025a0| 20 3d 20 41 4c 49 53 54 | 3b 0a 09 09 09 62 72 65 | = ALIST|;....bre|
|000025b0| 61 6b 3b 0a 0a 09 09 63 | 61 73 65 20 53 5f 4f 50 |ak;....c|ase S_OP|
|000025c0| 31 3a 0a 09 09 09 63 6f | 64 65 62 28 6f 70 63 6f |1:....co|deb(opco|
|000025d0| 64 65 29 3b 0a 09 09 09 | 62 72 65 61 6b 3b 0a 0a |de);....|break;..|
|000025e0| 09 09 63 61 73 65 20 53 | 5f 4f 50 32 3a 0a 09 09 |..case S|_OP2:...|
|000025f0| 09 61 20 3d 20 65 78 70 | 72 28 29 3b 0a 09 09 09 |.a = exp|r();....|
|00002600| 62 79 74 65 28 61 29 3b | 0a 09 09 09 63 6f 64 65 |byte(a);|....code|
|00002610| 62 28 6f 70 63 6f 64 65 | 29 3b 0a 09 09 09 63 6f |b(opcode|);....co|
|00002620| 64 65 62 28 61 29 3b 0a | 09 09 09 62 72 65 61 6b |deb(a);.|...break|
|00002630| 3b 0a 0a 09 09 63 61 73 | 65 20 53 5f 4f 50 33 3a |;....cas|e S_OP3:|
|00002640| 0a 09 09 09 72 64 20 3d | 20 67 65 74 72 65 67 28 |....rd =| getreg(|
|00002650| 53 5f 52 45 47 29 3b 0a | 09 09 09 63 6f 6d 6d 61 |S_REG);.|...comma|
|00002660| 28 29 3b 0a 09 09 09 61 | 20 3d 20 65 78 70 72 28 |();....a| = expr(|
|00002670| 29 3b 0a 09 09 09 62 79 | 74 65 28 61 29 3b 0a 09 |);....by|te(a);..|
|00002680| 09 09 63 6f 64 65 33 28 | 6f 70 63 6f 64 65 2c 20 |..code3(|opcode, |
|00002690| 72 64 29 3b 0a 09 09 09 | 63 6f 64 65 62 28 61 29 |rd);....|codeb(a)|
|000026a0| 3b 0a 09 09 09 62 72 65 | 61 6b 3b 0a 0a 09 09 63 |;....bre|ak;....c|
|000026b0| 61 73 65 20 53 5f 4f 50 | 34 3a 0a 09 09 09 72 64 |ase S_OP|4:....rd|
|000026c0| 20 3d 20 67 65 74 72 65 | 67 28 53 5f 52 45 47 29 | = getre|g(S_REG)|
|000026d0| 3b 0a 09 09 09 63 6f 6d | 6d 61 28 29 3b 0a 09 09 |;....com|ma();...|
|000026e0| 09 72 73 20 3d 20 67 65 | 74 72 65 67 28 53 5f 52 |.rs = ge|treg(S_R|
|000026f0| 45 47 29 3b 0a 09 09 09 | 63 6f 64 65 62 28 6f 70 |EG);....|codeb(op|
|00002700| 63 6f 64 65 20 7c 20 72 | 64 3c 3c 33 20 7c 20 72 |code | r|d<<3 | r|
|00002710| 73 29 3b 0a 09 09 09 62 | 72 65 61 6b 3b 0a 0a 09 |s);....b|reak;...|
|00002720| 09 63 61 73 65 20 53 5f | 4f 50 35 3a 0a 09 09 09 |.case S_|OP5:....|
|00002730| 69 66 28 28 72 64 3d 67 | 65 74 72 65 67 28 53 5f |if((rd=g|etreg(S_|
|00002740| 52 45 47 29 29 21 3d 42 | 20 26 26 20 72 64 21 3d |REG))!=B| && rd!=|
|00002750| 44 29 0a 09 09 09 09 65 | 72 72 28 27 61 27 29 3b |D).....e|rr('a');|
|00002760| 0a 09 09 09 63 6f 64 65 | 34 28 6f 70 63 6f 64 65 |....code|4(opcode|
|00002770| 2c 20 72 64 29 3b 0a 09 | 09 09 62 72 65 61 6b 3b |, rd);..|..break;|
|00002780| 0a 0a 09 09 63 61 73 65 | 20 53 5f 4f 50 36 3a 0a |....case| S_OP6:.|
|00002790| 09 09 09 69 66 28 28 72 | 64 3d 67 65 74 72 65 67 |...if((r|d=getreg|
|000027a0| 28 53 5f 52 45 47 29 29 | 20 3d 3d 20 50 53 57 29 |(S_REG))| == PSW)|
|000027b0| 7b 0a 09 09 09 09 65 72 | 72 28 27 52 27 29 3b 0a |{.....er|r('R');.|
|000027c0| 09 09 09 7d 0a 09 09 09 | 63 6f 64 65 34 28 6f 70 |...}....|code4(op|
|000027d0| 63 6f 64 65 2c 20 72 64 | 29 3b 0a 09 09 09 62 72 |code, rd|);....br|
|000027e0| 65 61 6b 3b 0a 0a 09 09 | 63 61 73 65 20 53 5f 4f |eak;....|case S_O|
|000027f0| 50 37 3a 0a 09 09 09 69 | 66 28 28 72 64 3d 67 65 |P7:....i|f((rd=ge|
|00002800| 74 72 65 67 28 53 5f 52 | 45 47 29 29 20 3d 3d 20 |treg(S_R|EG)) == |
|00002810| 53 50 29 0a 09 09 09 09 | 65 72 72 28 27 61 27 29 |SP).....|err('a')|
|00002820| 3b 0a 09 09 09 63 6f 64 | 65 34 28 6f 70 63 6f 64 |;....cod|e4(opcod|
|00002830| 65 2c 20 72 64 29 3b 0a | 09 09 09 62 72 65 61 6b |e, rd);.|...break|
|00002840| 3b 0a 0a 09 09 63 61 73 | 65 20 53 5f 4f 50 38 3a |;....cas|e S_OP8:|
|00002850| 0a 09 09 09 61 20 3d 20 | 65 78 70 72 28 29 3b 0a |....a = |expr();.|
|00002860| 09 09 09 69 66 28 61 3c | 30 20 7c 7c 20 61 3e 37 |...if(a<|0 || a>7|
|00002870| 29 0a 09 09 09 09 65 72 | 72 28 27 74 27 29 3b 0a |).....er|r('t');.|
|00002880| 09 09 09 63 6f 64 65 33 | 28 6f 70 63 6f 64 65 2c |...code3|(opcode,|
|00002890| 20 61 26 30 37 29 3b 0a | 09 09 09 62 72 65 61 6b | a&07);.|...break|
|000028a0| 3b 0a 0a 09 09 63 61 73 | 65 20 53 5f 4f 50 39 3a |;....cas|e S_OP9:|
|000028b0| 0a 09 09 09 72 73 20 3d | 20 67 65 74 72 65 67 28 |....rs =| getreg(|
|000028c0| 53 5f 52 45 47 29 3b 0a | 09 09 09 69 66 28 6f 70 |S_REG);.|...if(op|
|000028d0| 63 6f 64 65 3d 3d 49 4e | 52 20 7c 7c 20 6f 70 63 |code==IN|R || opc|
|000028e0| 6f 64 65 3d 3d 44 43 52 | 29 0a 09 09 09 09 63 6f |ode==DCR|).....co|
|000028f0| 64 65 33 28 6f 70 63 6f | 64 65 2c 20 72 73 29 3b |de3(opco|de, rs);|
|00002900| 0a 09 09 09 65 6c 73 65 | 0a 09 09 09 09 63 6f 64 |....else|.....cod|
|00002910| 65 62 28 6f 70 63 6f 64 | 65 20 7c 20 72 73 29 3b |eb(opcod|e | rs);|
|00002920| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 0a 09 09 63 61 |....brea|k;....ca|
|00002930| 73 65 20 53 5f 4f 50 31 | 30 3a 0a 09 09 09 69 66 |se S_OP1|0:....if|
|00002940| 28 28 72 64 3d 67 65 74 | 72 65 67 28 53 5f 52 45 |((rd=get|reg(S_RE|
|00002950| 47 29 29 20 3d 3d 20 50 | 53 57 29 0a 09 09 09 09 |G)) == P|SW).....|
|00002960| 65 72 72 28 27 61 27 29 | 3b 0a 09 09 09 63 6f 6d |err('a')|;....com|
|00002970| 6d 61 28 29 3b 0a 09 09 | 09 61 20 3d 20 65 78 70 |ma();...|.a = exp|
|00002980| 72 28 29 3b 0a 09 09 09 | 63 6f 64 65 34 28 6f 70 |r();....|code4(op|
|00002990| 63 6f 64 65 2c 20 72 64 | 29 3b 0a 09 09 09 63 6f |code, rd|);....co|
|000029a0| 64 65 77 28 61 29 3b 0a | 09 09 09 62 72 65 61 6b |dew(a);.|...break|
|000029b0| 3b 0a 0a 09 09 63 61 73 | 65 20 53 5f 4f 50 31 31 |;....cas|e S_OP11|
|000029c0| 3a 0a 09 09 09 61 20 3d | 20 65 78 70 72 28 29 3b |:....a =| expr();|
|000029d0| 0a 09 09 09 63 6f 64 65 | 62 28 6f 70 63 6f 64 65 |....code|b(opcode|
|000029e0| 29 3b 0a 09 09 09 63 6f | 64 65 77 28 61 29 3b 0a |);....co|dew(a);.|
|000029f0| 09 09 09 62 72 65 61 6b | 3b 0a 0a 09 09 64 65 66 |...break|;....def|
|00002a00| 61 75 6c 74 3a 0a 09 09 | 09 65 72 72 28 27 43 27 |ault:...|.err('C'|
|00002a10| 29 3b 0a 09 09 7d 09 2f | 2a 20 65 6e 64 20 6f 66 |);...}./|* end of|
|00002a20| 20 63 61 73 65 20 73 74 | 61 74 65 6d 65 6e 74 20 | case st|atement |
|00002a30| 2a 2f 0a 09 7d 20 0a 09 | 77 68 69 6c 65 28 20 28 |*/..} ..|while( (|
|00002a40| 20 63 20 3d 20 67 65 74 | 6e 62 28 29 29 20 21 3d | c = get|nb()) !=|
|00002a50| 20 27 5c 30 27 20 26 26 | 20 63 20 21 3d 20 27 3b | '\0' &&| c != ';|
|00002a60| 27 20 29 3b 0a 7d 0a 0a | 2f 2a 0a 20 2a 20 50 72 |' );.}..|/*. * Pr|
|00002a70| 6f 63 65 73 73 20 74 68 | 65 20 62 6f 64 79 20 6f |ocess th|e body o|
|00002a80| 66 20 2e 61 73 63 69 69 | 0a 20 2a 20 61 6e 64 20 |f .ascii|. * and |
|00002a90| 2e 61 73 63 69 7a 20 70 | 73 65 75 64 6f 20 6f 70 |.asciz p|seudo op|
|00002aa0| 73 2e 0a 20 2a 20 54 68 | 65 20 7a 20 66 6c 61 67 |s.. * Th|e z flag|
|00002ab0| 20 69 73 20 74 72 75 65 | 20 66 6f 72 20 61 0a 20 | is true| for a. |
|00002ac0| 2a 20 2e 61 73 63 69 7a | 0a 20 2a 2f 0a 61 73 63 |* .asciz|. */.asc|
|00002ad0| 69 69 28 64 65 6c 69 6d | 29 0a 63 68 61 72 20 64 |ii(delim|).char d|
|00002ae0| 65 6c 69 6d 3b 0a 7b 0a | 09 72 65 67 69 73 74 65 |elim;.{.|.registe|
|00002af0| 72 20 69 6e 74 20 63 3b | 0a 0a 09 77 68 69 6c 65 |r int c;|...while|
|00002b00| 28 28 63 3d 67 65 74 6d | 61 70 28 29 29 21 3d 27 |((c=getm|ap())!='|
|00002b10| 5c 30 27 20 26 26 20 63 | 21 3d 64 65 6c 69 6d 29 |\0' && c|!=delim)|
|00002b20| 0a 09 09 63 6f 64 65 62 | 28 63 29 3b 0a 09 69 66 |...codeb|(c);..if|
|00002b30| 28 63 20 3d 3d 20 27 5c | 30 27 29 0a 09 09 65 72 |(c == '\|0')...er|
|00002b40| 72 28 27 53 27 29 3b 0a | 7d 0a 0a 2f 2a 0a 20 2a |r('S');.|}../*. *|
|00002b50| 20 47 65 74 20 61 20 72 | 65 67 69 73 74 65 72 2e | Get a r|egister.|
|00002b60| 0a 20 2a 20 54 79 70 65 | 20 69 73 20 65 69 74 68 |. * Type| is eith|
|00002b70| 65 72 20 53 5f 52 45 47 | 20 6f 72 20 53 5f 52 45 |er S_REG| or S_RE|
|00002b80| 47 50 2e 0a 20 2a 2f 0a | 67 65 74 72 65 67 28 74 |GP.. */.|getreg(t|
|00002b90| 79 70 65 29 0a 7b 0a 09 | 72 65 67 69 73 74 65 72 |ype).{..|register|
|00002ba0| 20 73 74 72 75 63 74 20 | 73 79 6d 20 2a 73 70 3b | struct |sym *sp;|
|00002bb0| 0a 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 63 |..regist|er int c|
|00002bc0| 3b 0a 09 63 68 61 72 20 | 69 64 5b 4e 43 50 53 5d |;..char |id[NCPS]|
|00002bd0| 3b 0a 0a 09 69 66 28 21 | 61 6c 70 68 61 28 63 3d |;...if(!|alpha(c=|
|00002be0| 67 65 74 6e 62 28 29 29 | 29 20 7b 0a 09 09 65 72 |getnb())|) {...er|
|00002bf0| 72 28 27 52 27 29 3b 0a | 09 09 70 75 74 62 61 63 |r('R');.|..putbac|
|00002c00| 6b 28 63 29 3b 0a 09 09 | 72 65 74 75 72 6e 28 30 |k(c);...|return(0|
|00002c10| 29 3b 0a 09 7d 0a 09 67 | 65 74 69 64 28 63 2c 20 |);..}..g|etid(c, |
|00002c20| 69 64 29 3b 0a 09 69 66 | 28 28 73 70 3d 6c 6f 6f |id);..if|((sp=loo|
|00002c30| 6b 75 70 28 69 64 2c 20 | 70 73 74 29 29 3d 3d 4e |kup(id, |pst))==N|
|00002c40| 55 4c 4c 20 7c 7c 20 74 | 79 70 65 20 21 3d 20 73 |ULL || t|ype != s|
|00002c50| 70 2d 3e 73 5f 74 79 70 | 65 29 20 7b 0a 09 09 65 |p->s_typ|e) {...e|
|00002c60| 72 72 28 27 52 27 29 3b | 0a 09 09 72 65 74 75 72 |rr('R');|...retur|
|00002c70| 6e 28 30 29 3b 0a 09 7d | 0a 09 72 65 74 75 72 6e |n(0);..}|..return|
|00002c80| 28 73 70 2d 3e 73 5f 76 | 61 6c 75 65 29 3b 0a 7d |(sp->s_v|alue);.}|
|00002c90| 0a 0a 2f 2a 0a 20 2a 20 | 49 6e 73 75 72 65 20 74 |../*. * |Insure t|
|00002ca0| 68 61 74 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |hat the |value of|
|00002cb0| 0a 20 2a 20 61 6e 20 65 | 78 70 72 65 73 73 69 6f |. * an e|xpressio|
|00002cc0| 6e 20 69 73 20 61 20 6c | 65 67 61 6c 0a 20 2a 20 |n is a l|egal. * |
|00002cd0| 62 79 74 65 20 76 61 6c | 75 65 2e 0a 20 2a 20 45 |byte val|ue.. * E|
|00002ce0| 72 72 6f 72 20 69 66 20 | 6e 6f 74 2e 0a 20 2a 2f |rror if |not.. */|
|00002cf0| 0a 62 79 74 65 28 62 29 | 0a 7b 0a 09 69 66 28 28 |.byte(b)|.{..if((|
|00002d00| 62 26 30 32 30 30 29 21 | 3d 30 29 0a 09 09 62 20 |b&0200)!|=0)...b |
|00002d10| 7c 3d 20 7e 30 33 37 37 | 3b 0a 09 69 66 28 62 3e ||= ~0377|;..if(b>|
|00002d20| 31 32 37 20 7c 7c 20 62 | 3c 2d 31 32 38 29 0a 09 |127 || b|<-128)..|
|00002d30| 09 65 72 72 28 27 52 27 | 29 3b 0a 7d 0a 0a 2f 2a |.err('R'|);.}../*|
|00002d40| 0a 20 2a 20 43 68 65 63 | 6b 20 66 6f 72 20 60 2c |. * Chec|k for `,|
|00002d50| 27 2e 0a 20 2a 2f 0a 63 | 6f 6d 6d 61 28 29 0a 7b |'.. */.c|omma().{|
|00002d60| 0a 09 69 66 28 67 65 74 | 6e 62 28 29 20 21 3d 20 |..if(get|nb() != |
|00002d70| 27 2c 27 29 0a 09 09 65 | 72 72 28 27 61 27 29 3b |',')...e|rr('a');|
|00002d80| 0a 7d 0a 0a 2f 2a 0a 20 | 2a 20 42 75 69 6c 64 20 |.}../*. |* Build |
|00002d90| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 20 6f 66 20 |instruct|ions of |
|00002da0| 74 68 65 0a 20 2a 20 67 | 65 6e 65 72 61 6c 20 66 |the. * g|eneral f|
|00002db0| 6f 72 6d 20 78 78 72 72 | 72 78 78 78 2e 0a 20 2a |orm xxrr|rxxx.. *|
|00002dc0| 2f 0a 63 6f 64 65 33 28 | 78 2c 20 72 29 0a 7b 0a |/.code3(|x, r).{.|
|00002dd0| 09 63 6f 64 65 62 28 78 | 20 7c 20 72 3c 3c 33 29 |.codeb(x| | r<<3)|
|00002de0| 3b 0a 7d 0a 0a 2f 2a 0a | 20 2a 20 42 75 69 6c 64 |;.}../*.| * Build|
|00002df0| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 73 20 6f 66 | instruc|tions of|
|00002e00| 20 74 68 65 0a 20 2a 20 | 67 65 6e 65 72 61 6c 20 | the. * |general |
|00002e10| 66 6f 72 6d 20 78 78 72 | 72 78 78 78 78 2e 0a 20 |form xxr|rxxxx.. |
|00002e20| 2a 2f 0a 63 6f 64 65 34 | 28 78 2c 20 72 29 0a 7b |*/.code4|(x, r).{|
|00002e30| 0a 09 63 6f 64 65 62 28 | 78 20 7c 20 28 72 26 36 |..codeb(|x | (r&6|
|00002e40| 29 3c 3c 33 29 3b 0a 7d | 0a 6f 62 6a 3b 09 09 2f |)<<3);.}|.obj;../|
|00002e50| 2a 20 4f 62 6a 65 63 74 | 20 2a 2f 0a 65 78 74 65 |* Object| */.exte|
|00002e60| 72 6e 09 69 6e 74 09 6c | 66 6c 61 67 3b 09 09 2f |rn.int.l|flag;../|
|00002e70| 2a 20 2d 6c 20 66 6c 61 | 67 20 2a 2f 0a 65 78 74 |* -l fla|g */.ext|
|00002e80| 65 72 6e 09 69 6e 74 09 | 6e 66 6c 61 67 3b 09 09 |ern.int.|nflag;..|
|00002e90| 2f 2a 20 2d 6e 20 66 6c | 61 67 20 2a 2f 0a 65 78 |/* -n fl|ag */.ex|
|00002ea0| 74 65 72 6e 09 69 6e 74 | 09 73 66 6c 61 67 3b 09 |tern.int|.sflag;.|
|00002eb0| 09 2f 2a 20 2d 73 20 66 | 6c 61 67 09 09 20 20 20 |./* -s f|lag..   |
|00002ec0| 20 2a 2f 0a 65 78 74 65 | 72 6e 09 69 6e 74 09 70 | */.exte|rn.int.p|
|00002ed0| 61 73 73 3b 09 09 2f 2a | 20 57 68 69 63 68 20 70 |ass;../*| Which p|
|00002ee0| 61 73 73 3f 20 2a 2f 0a | 65 78 74 65 72 6e 09 69 |ass? */.|extern.i|
|00002ef0| 6e 74 09 73 6b 69 70 3b | 09 09 2f 2a 20 53 6b 69 |nt.skip;|../* Ski|
|00002f00| 70 70 69 6e 67 20 63 6f | 64 65 20 6c 69 6e 65 73 |pping co|de lines|
|00002f10| 20 20 20 20 20 20 2a 2f | 0a 65 78 74 65 72 6e 09 |      */|.extern.|
|00002f20| 69 6e 74 09 69 6e 69 66 | 3b 09 09 2f 2a 20 69 6e |int.inif|;../* in|
|00002f30| 20 61 6e 20 69 66 20 62 | 6c 6f 63 6b 20 6f 66 20 | an if b|lock of |
|00002f40| 69 6e 69 66 20 20 20 2a | 2f 0a 65 78 74 65 72 6e |inif   *|/.extern|
|00002f50| 09 69 6e 74 09 6c 69 6e | 65 6e 6f 3b 09 09 2f 2a |.int.lin|eno;../*|
|00002f60| 20 4c 69 6e 65 20 6e 75 | 6d 62 65 72 20 2a 2f 0a | Line nu|mber */.|
|00002f70| 65 78 74 65 72 6e 09 63 | 68 61 72 09 2a 73 70 74 |extern.c|har.*spt|
|00002f80| 72 3b 09 09 2f 2a 20 53 | 6f 75 72 63 65 20 70 6f |r;../* S|ource po|
|00002f90| 69 6e 74 65 72 20 2a 2f | 0a 65 78 74 65 72 6e 09 |inter */|.extern.|
|00002fa0| 63 68 61 72 09 73 62 75 | 66 5b 5d 3b 09 09 2f 2a |char.sbu|f[];../*|
|00002fb0| 20 53 6f 75 72 63 65 20 | 62 75 66 66 65 72 20 2a | Source |buffer *|
|00002fc0| 2f 0a 65 78 74 65 72 6e | 09 63 68 61 72 09 2a 63 |/.extern|.char.*c|
|00002fd0| 70 74 72 3b 09 09 2f 2a | 20 4c 69 73 74 69 6e 67 |ptr;../*| Listing|
|00002fe0| 20 63 6f 64 65 20 70 6f | 69 6e 74 65 72 20 2a 2f | code po|inter */|
|00002ff0| 0a 65 78 74 65 72 6e 09 | 63 68 61 72 09 63 62 75 |.extern.|char.cbu|
|00003000| 78 61 73 6d 2f 61 73 38 | 32 2e 63 00 00 00 00 00 |xasm/as8|2.c.....|
|00003010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00003070| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00003080| 20 20 20 35 34 31 34 20 | 20 34 34 30 32 30 36 31 |   5414 | 4402061|
|00003090| 33 30 31 20 20 20 35 37 | 36 34 00 20 00 00 00 00 |301   57|64. ....|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 2f 2a 0a 20 2a 20 61 73 | 38 32 2e 63 0a 20 2a 20 |/*. * as|82.c. * |
|00003210| 45 78 70 72 65 73 73 69 | 6f 6e 73 2e 0a 20 2a 2f |Expressi|ons.. */|
|00003220| 0a 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|00003230| 2e 68 3e 0a 23 69 6e 63 | 6c 75 64 65 20 22 61 73 |.h>.#inc|lude "as|
|00003240| 6d 2e 68 22 0a 73 74 61 | 74 69 63 20 63 68 61 72 |m.h".sta|tic char|
|00003250| 20 2a 61 73 38 32 3d 22 | 40 28 23 29 61 73 38 32 | *as82="|@(#)as82|
|00003260| 2e 63 09 31 2e 32 22 3b | 0a 0a 0a 2f 2a 0a 20 2a |.c.1.2";|.../*. *|
|00003270| 20 52 65 61 64 20 61 6e | 20 65 78 70 72 65 73 73 | Read an| express|
|00003280| 69 6f 6e 2e 0a 20 2a 20 | 52 65 74 75 72 6e 20 69 |ion.. * |Return i|
|00003290| 74 73 20 76 61 6c 75 65 | 2e 0a 20 2a 20 41 6c 6c |ts value|.. * All|
|000032a0| 20 65 78 70 72 65 73 73 | 69 6f 6e 73 20 61 72 65 | express|ions are|
|000032b0| 20 65 76 61 6c 75 61 74 | 65 64 0a 20 2a 20 6c 65 | evaluat|ed. * le|
|000032c0| 66 74 20 74 6f 20 72 69 | 67 68 74 3b 20 70 61 72 |ft to ri|ght; par|
|000032d0| 65 6e 74 68 65 73 65 73 | 0a 20 2a 20 6d 61 79 20 |entheses|. * may |
|000032e0| 62 65 20 75 73 65 64 20 | 74 6f 20 61 6c 74 65 72 |be used |to alter|
|000032f0| 20 74 68 65 20 6f 72 64 | 65 72 0a 20 2a 20 6f 66 | the ord|er. * of|
|00003300| 20 65 76 61 6c 75 61 74 | 69 6f 6e 2e 0a 20 2a 2f | evaluat|ion.. */|
|00003310| 0a 69 6e 74 0a 65 78 70 | 72 28 29 0a 7b 0a 09 72 |.int.exp|r().{..r|
|00003320| 65 67 69 73 74 65 72 20 | 69 6e 74 20 63 3b 0a 09 |egister |int c;..|
|00003330| 69 6e 74 20 6c 2c 20 72 | 3b 0a 0a 09 69 66 28 21 |int l, r|;...if(!|
|00003340| 74 65 72 6d 28 26 6c 29 | 29 0a 09 09 72 65 74 75 |term(&l)|)...retu|
|00003350| 72 6e 28 30 29 3b 0a 09 | 77 68 69 6c 65 28 76 61 |rn(0);..|while(va|
|00003360| 6c 69 64 6f 70 28 63 3d | 67 65 74 6f 70 72 28 29 |lidop(c=|getopr()|
|00003370| 29 29 20 7b 0a 09 09 69 | 66 28 21 74 65 72 6d 28 |)) {...i|f(!term(|
|00003380| 26 72 29 29 20 7b 0a 09 | 09 09 65 72 72 28 27 65 |&r)) {..|..err('e|
|00003390| 27 29 3b 0a 09 09 09 72 | 65 74 75 72 6e 28 6c 29 |');....r|eturn(l)|
|000033a0| 3b 0a 09 09 7d 0a 09 09 | 73 77 69 74 63 68 28 63 |;...}...|switch(c|
|000033b0| 29 20 7b 0a 0a 09 09 63 | 61 73 65 20 27 2b 27 3a |) {....c|ase '+':|
|000033c0| 0a 09 09 09 6c 20 2b 3d | 20 72 3b 0a 09 09 09 62 |....l +=| r;....b|
|000033d0| 72 65 61 6b 3b 0a 0a 09 | 09 63 61 73 65 20 27 2d |reak;...|.case '-|
|000033e0| 27 3a 0a 09 09 09 6c 20 | 2d 3d 20 72 3b 0a 09 09 |':....l |-= r;...|
|000033f0| 09 62 72 65 61 6b 3b 0a | 0a 09 09 63 61 73 65 20 |.break;.|...case |
|00003400| 27 2a 27 3a 0a 09 09 09 | 6c 20 2a 3d 20 72 3b 0a |'*':....|l *= r;.|
|00003410| 09 09 09 62 72 65 61 6b | 3b 0a 0a 09 09 63 61 73 |...break|;....cas|
|00003420| 65 20 27 2f 27 3a 0a 09 | 09 09 6c 20 2f 3d 20 72 |e '/':..|..l /= r|
|00003430| 3b 0a 09 09 09 62 72 65 | 61 6b 3b 0a 0a 09 09 63 |;....bre|ak;....c|
|00003440| 61 73 65 20 27 26 27 3a | 0a 09 09 09 6c 20 26 3d |ase '&':|....l &=|
|00003450| 20 72 3b 0a 09 09 09 62 | 72 65 61 6b 3b 0a 0a 09 | r;....b|reak;...|
|00003460| 09 63 61 73 65 20 27 7c | 27 3a 0a 09 09 09 6c 20 |.case '||':....l |
|00003470| 7c 3d 20 72 3b 0a 09 09 | 09 62 72 65 61 6b 3b 0a ||= r;...|.break;.|
|00003480| 09 09 63 61 73 65 20 27 | 5e 27 3a 0a 09 09 09 6c |..case '|^':....l|
|00003490| 20 5e 3d 20 72 3b 0a 09 | 09 09 62 72 65 61 6b 3b | ^= r;..|..break;|
|000034a0| 0a 09 09 63 61 73 65 20 | 27 25 27 3a 0a 09 09 09 |...case |'%':....|
|000034b0| 6c 20 25 3d 20 72 3b 0a | 09 09 09 62 72 65 61 6b |l %= r;.|...break|
|000034c0| 3b 0a 09 09 63 61 73 65 | 20 27 3c 27 3a 0a 09 09 |;...case| '<':...|
|000034d0| 09 6c 20 3c 3c 3d 20 72 | 3b 0a 09 09 09 62 72 65 |.l <<= r|;....bre|
|000034e0| 61 6b 3b 0a 09 09 63 61 | 73 65 20 27 3e 27 3a 0a |ak;...ca|se '>':.|
|000034f0| 09 09 09 6c 20 3e 3e 3d | 20 72 3b 0a 09 09 09 62 |...l >>=| r;....b|
|00003500| 72 65 61 6b 3b 0a 09 09 | 7d 0a 09 7d 0a 09 70 75 |reak;...|}..}..pu|
|00003510| 74 62 61 63 6b 28 63 29 | 3b 0a 09 72 65 74 75 72 |tback(c)|;..retur|
|00003520| 6e 28 6c 29 3b 0a 7d 0a | 0a 2f 2a 0a 20 2a 20 43 |n(l);.}.|./*. * C|
|00003530| 68 65 63 6b 20 66 6f 72 | 20 76 61 6c 69 64 20 61 |heck for| valid a|
|00003540| 72 69 74 68 6d 65 74 69 | 63 0a 20 2a 20 6f 70 65 |rithmeti|c. * ope|
|00003550| 72 61 74 6f 72 73 2e 0a | 20 2a 2f 0a 76 61 6c 69 |rators..| */.vali|
|00003560| 64 6f 70 28 63 29 0a 7b | 0a 09 72 65 74 75 72 6e |dop(c).{|..return|
|00003570| 28 20 69 6e 73 74 72 28 | 20 63 2c 22 2b 2d 2a 2f |( instr(| c,"+-*/|
|00003580| 25 26 7c 3c 3e 5e 22 29 | 20 3e 3d 20 30 29 3b 0a |%&|<>^")| >= 0);.|
|00003590| 7d 0a 0a 2f 2a 0a 20 2a | 20 47 65 74 20 61 20 74 |}../*. *| Get a t|
|000035a0| 65 72 6d 2e 0a 20 2a 20 | 53 74 6f 72 65 20 69 74 |erm.. * |Store it|
|000035b0| 73 20 76 61 6c 75 65 20 | 69 6e 20 74 68 65 0a 20 |s value |in the. |
|000035c0| 2a 20 69 6e 64 69 63 61 | 74 65 64 20 70 6c 61 63 |* indica|ted plac|
|000035d0| 65 2e 0a 20 2a 20 52 65 | 74 75 72 6e 20 74 72 75 |e.. * Re|turn tru|
|000035e0| 65 20 69 66 20 61 20 74 | 65 72 6d 20 69 73 0a 20 |e if a t|erm is. |
|000035f0| 2a 20 66 6f 75 6e 64 2e | 0a 20 2a 20 49 66 20 6e |* found.|. * If n|
|00003600| 6f 20 74 65 72 6d 20 69 | 73 20 66 6f 75 6e 64 20 |o term i|s found |
|00003610| 6e 6f 0a 20 2a 20 63 68 | 61 72 61 63 74 65 72 73 |no. * ch|aracters|
|00003620| 20 61 72 65 20 72 65 61 | 64 20 61 6e 64 0a 20 2a | are rea|d and. *|
|00003630| 20 66 61 6c 73 65 20 69 | 73 20 72 65 74 75 72 6e | false i|s return|
|00003640| 65 64 2e 0a 20 2a 2f 0a | 69 6e 74 0a 74 65 72 6d |ed.. */.|int.term|
|00003650| 28 76 70 29 0a 69 6e 74 | 20 2a 76 70 3b 0a 7b 0a |(vp).int| *vp;.{.|
|00003660| 09 72 65 67 69 73 74 65 | 72 20 73 74 72 75 63 74 |.registe|r struct|
|00003670| 20 73 79 6d 20 2a 73 70 | 3b 0a 09 72 65 67 69 73 | sym *sp|;..regis|
|00003680| 74 65 72 20 69 6e 74 20 | 63 3b 0a 09 63 68 61 72 |ter int |c;..char|
|00003690| 20 69 64 5b 4e 43 50 53 | 5d 3b 0a 0a 09 2f 2a 0a | id[NCPS|];.../*.|
|000036a0| 09 20 2a 20 4e 75 6d 62 | 65 72 2e 0a 09 20 2a 2f |. * Numb|er... */|
|000036b0| 0a 09 69 66 28 28 63 3d | 67 65 74 6e 62 28 29 29 |..if((c=|getnb())|
|000036c0| 3e 3d 27 30 27 20 26 26 | 20 63 3c 3d 27 39 27 29 |>='0' &&| c<='9')|
|000036d0| 20 7b 0a 09 09 2a 76 70 | 20 3d 20 67 65 74 6e 75 | {...*vp| = getnu|
|000036e0| 6d 28 63 29 3b 0a 09 09 | 72 65 74 75 72 6e 28 31 |m(c);...|return(1|
|000036f0| 29 3b 0a 09 2f 2a 0a 09 | 20 2a 20 49 64 2e 0a 09 |);../*..| * Id...|
|00003700| 20 2a 2f 0a 09 7d 20 65 | 6c 73 65 20 69 66 28 61 | */..} e|lse if(a|
|00003710| 6c 70 68 61 28 63 29 29 | 20 7b 0a 09 09 67 65 74 |lpha(c))| {...get|
|00003720| 69 64 28 63 2c 20 69 64 | 29 3b 0a 09 09 69 66 28 |id(c, id|);...if(|
|00003730| 20 73 74 72 63 6d 70 28 | 69 64 2c 22 6e 6f 74 22 | strcmp(|id,"not"|
|00003740| 29 3d 3d 20 30 29 7b 20 | 2f 2a 20 69 66 20 74 68 |)== 0){ |/* if th|
|00003750| 65 20 69 64 20 69 73 20 | 27 6e 6f 74 27 20 2a 2f |e id is |'not' */|
|00003760| 0a 09 09 09 74 65 72 6d | 28 76 70 29 3b 0a 09 09 |....term|(vp);...|
|00003770| 09 2a 76 70 20 3d 20 7e | 2a 76 70 3b 0a 09 09 7d |.*vp = ~|*vp;...}|
|00003780| 65 6c 73 65 20 7b 0a 09 | 09 09 73 70 20 3d 20 6c |else {..|..sp = l|
|00003790| 6f 6f 6b 75 70 28 69 64 | 2c 20 75 73 74 2c 20 27 |ookup(id|, ust, '|
|000037a0| 65 27 29 3b 0a 09 09 09 | 69 66 28 73 70 20 3d 3d |e');....|if(sp ==|
|000037b0| 20 4e 55 4c 4c 20 29 0a | 09 09 09 09 65 72 72 28 | NULL ).|....err(|
|000037c0| 20 27 55 27 29 3b 0a 09 | 09 09 65 6c 73 65 20 69 | 'U');..|..else i|
|000037d0| 66 28 73 70 2d 3e 73 5f | 74 79 70 65 20 3d 3d 20 |f(sp->s_|type == |
|000037e0| 53 5f 55 4e 44 29 0a 09 | 09 09 09 65 72 72 28 27 |S_UND)..|...err('|
|000037f0| 75 27 29 3b 0a 09 09 09 | 2a 76 70 20 3d 20 73 70 |u');....|*vp = sp|
|00003800| 2d 3e 73 5f 76 61 6c 75 | 65 3b 0a 09 09 7d 0a 09 |->s_valu|e;...}..|
|00003810| 09 72 65 74 75 72 6e 28 | 31 29 3b 0a 0a 09 2f 2a |.return(|1);.../*|
|00003820| 0a 09 20 2a 20 55 6e 61 | 72 79 20 6f 70 73 2e 0a |.. * Una|ry ops..|
|00003830| 09 20 2a 2f 0a 09 7d 20 | 65 6c 73 65 20 69 66 28 |. */..} |else if(|
|00003840| 63 3d 3d 27 2d 27 29 20 | 7b 0a 09 09 69 66 28 21 |c=='-') |{...if(!|
|00003850| 74 65 72 6d 28 76 70 29 | 29 20 7b 0a 09 09 09 65 |term(vp)|) {....e|
|00003860| 72 72 28 27 65 27 29 3b | 0a 09 09 09 72 65 74 75 |rr('e');|....retu|
|00003870| 72 6e 28 30 29 3b 0a 09 | 09 7d 20 0a 09 09 2a 76 |rn(0);..|.} ...*v|
|00003880| 70 20 3d 20 2d 2a 76 70 | 3b 0a 09 2f 2a 0a 09 20 |p = -*vp|;../*.. |
|00003890| 2a 20 50 61 72 65 6e 74 | 68 65 73 65 73 2e 0a 09 |* Parent|heses...|
|000038a0| 20 2a 2f 0a 09 7d 20 65 | 6c 73 65 20 69 66 28 63 | */..} e|lse if(c|
|000038b0| 20 3d 3d 20 27 28 27 29 | 20 7b 0a 09 09 2a 76 70 | == '(')| {...*vp|
|000038c0| 20 3d 20 65 78 70 72 28 | 29 3b 0a 09 09 69 66 28 | = expr(|);...if(|
|000038d0| 67 65 74 6e 62 28 29 20 | 21 3d 20 27 29 27 29 0a |getnb() |!= ')').|
|000038e0| 09 09 09 65 72 72 28 27 | 28 27 29 3b 0a 09 09 72 |...err('|(');...r|
|000038f0| 65 74 75 72 6e 28 31 29 | 3b 0a 0a 09 2f 2a 0a 09 |eturn(1)|;.../*..|
|00003900| 20 2a 20 43 68 61 72 61 | 63 74 65 72 20 63 6f 6e | * Chara|cter con|
|00003910| 73 74 61 6e 74 2e 0a 09 | 20 2a 2f 0a 09 7d 20 65 |stant...| */..} e|
|00003920| 6c 73 65 20 69 66 28 63 | 20 3d 3d 20 27 5c 27 27 |lse if(c| == '\''|
|00003930| 29 20 7b 0a 09 09 2a 76 | 70 20 3d 20 67 65 74 6d |) {...*v|p = getm|
|00003940| 61 70 28 29 3b 0a 09 09 | 69 66 28 67 65 74 6e 62 |ap();...|if(getnb|
|00003950| 28 29 20 21 3d 20 27 5c | 27 27 29 0a 09 09 20 20 |() != '\|'')...  |
|00003960| 7b 0a 09 09 09 70 75 74 | 62 61 63 6b 28 63 29 3b |{....put|back(c);|
|00003970| 0a 09 09 09 2a 76 70 20 | 3d 20 2a 76 70 2b 28 67 |....*vp |= *vp+(g|
|00003980| 65 74 6d 61 70 28 29 3c | 3c 38 29 3b 0a 09 09 09 |etmap()<|<8);....|
|00003990| 69 66 28 67 65 74 6e 62 | 28 29 20 21 3d 20 27 5c |if(getnb|() != '\|
|000039a0| 27 27 29 0a 09 09 09 09 | 65 72 72 28 27 5c 27 27 |'').....|err('\''|
|000039b0| 29 3b 0a 09 09 20 20 20 | 7d 0a 09 09 72 65 74 75 |);...   |}...retu|
|000039c0| 72 6e 28 31 29 3b 0a 0a | 09 2f 2a 0a 09 20 2a 20 |rn(1);..|./*.. * |
|000039d0| 54 68 65 20 63 75 72 72 | 65 6e 74 20 76 61 6c 75 |The curr|ent valu|
|000039e0| 65 20 6f 66 20 44 4f 54 | 0a 09 20 2a 2f 0a 0a 09 |e of DOT|.. */...|
|000039f0| 7d 20 65 6c 73 65 20 69 | 66 20 28 20 63 20 3d 3d |} else i|f ( c ==|
|00003a00| 20 43 44 4f 54 20 29 7b | 0a 09 09 2a 76 70 20 3d | CDOT ){|...*vp =|
|00003a10| 20 64 6f 74 2d 3e 73 5f | 76 61 6c 75 65 3b 0a 09 | dot->s_|value;..|
|00003a20| 09 72 65 74 75 72 6e 28 | 31 29 3b 0a 0a 09 2f 2a |.return(|1);.../*|
|00003a30| 0a 09 20 2a 20 4e 6f 6e | 65 2e 0a 09 20 2a 2f 0a |.. * Non|e... */.|
|00003a40| 09 7d 20 65 6c 73 65 20 | 7b 0a 09 09 70 75 74 62 |.} else |{...putb|
|00003a50| 61 63 6b 28 63 29 3b 0a | 09 09 72 65 74 75 72 6e |ack(c);.|..return|
|00003a60| 28 30 29 3b 0a 09 7d 0a | 7d 0a 0a 2f 2a 0a 20 2a |(0);..}.|}../*. *|
|00003a70| 20 67 65 74 6f 70 72 28 | 29 0a 20 2a 0a 20 2a 20 | getopr(|). *. * |
|00003a80| 47 65 74 20 61 20 76 61 | 6c 69 64 20 6f 70 65 72 |Get a va|lid oper|
|00003a90| 61 74 6f 72 2e 0a 20 2a | 0a 20 2a 20 46 69 6e 64 |ator.. *|. * Find|
|00003aa0| 73 20 6e 6f 6e 2d 75 6e | 69 78 20 74 79 70 65 20 |s non-un|ix type |
|00003ab0| 6f 70 65 72 61 74 6f 72 | 73 20 61 6e 64 20 72 65 |operator|s and re|
|00003ac0| 74 75 72 6e 73 20 74 68 | 65 6d 20 61 73 20 76 61 |turns th|em as va|
|00003ad0| 6c 69 64 0a 20 2a 20 55 | 6e 69 78 20 6f 70 65 72 |lid. * U|nix oper|
|00003ae0| 61 74 6f 72 73 2e 0a 20 | 2a 0a 20 2a 2f 0a 67 65 |ators.. |*. */.ge|
|00003af0| 74 6f 70 72 28 29 0a 7b | 0a 09 63 68 61 72 20 63 |topr().{|..char c|
|00003b00| 68 3b 0a 09 63 68 61 72 | 20 69 64 5b 20 4e 43 50 |h;..char| id[ NCP|
|00003b10| 53 20 5d 3b 0a 09 69 6e | 74 20 69 6e 64 65 78 3b |S ];..in|t index;|
|00003b20| 0a 0a 09 69 66 28 20 76 | 61 6c 69 64 6f 70 28 63 |...if( v|alidop(c|
|00003b30| 68 3d 67 65 74 6e 62 28 | 29 29 20 29 0a 09 09 72 |h=getnb(|)) )...r|
|00003b40| 65 74 75 72 6e 28 63 68 | 29 3b 0a 09 69 66 28 20 |eturn(ch|);..if( |
|00003b50| 61 6c 70 68 61 28 63 68 | 29 29 0a 09 09 67 65 74 |alpha(ch|))...get|
|00003b60| 69 64 28 20 63 68 2c 20 | 69 64 29 3b 0a 09 65 6c |id( ch, |id);..el|
|00003b70| 73 65 0a 09 09 72 65 74 | 75 72 6e 28 63 68 29 3b |se...ret|urn(ch);|
|00003b80| 0a 09 69 66 28 20 73 74 | 72 63 6d 70 28 20 69 64 |..if( st|rcmp( id|
|00003b90| 20 2c 20 22 61 6e 64 22 | 29 20 3d 3d 20 30 29 0a | , "and"|) == 0).|
|00003ba0| 09 09 72 65 74 75 72 6e | 28 27 26 27 29 3b 0a 09 |..return|('&');..|
|00003bb0| 65 6c 73 65 20 69 66 28 | 20 73 74 72 63 6d 70 28 |else if(| strcmp(|
|00003bc0| 20 69 64 2c 20 22 6f 72 | 22 29 20 3d 3d 20 30 29 | id, "or|") == 0)|
|00003bd0| 0a 09 09 72 65 74 75 72 | 6e 28 27 7c 27 29 3b 0a |...retur|n('|');.|
|00003be0| 09 65 6c 73 65 20 69 66 | 28 20 73 74 72 63 6d 70 |.else if|( strcmp|
|00003bf0| 28 20 69 64 2c 20 22 78 | 6f 72 22 29 20 3d 3d 20 |( id, "x|or") == |
|00003c00| 30 29 0a 09 09 72 65 74 | 75 72 6e 28 27 5e 27 29 |0)...ret|urn('^')|
|00003c10| 3b 0a 09 65 6c 73 65 20 | 69 66 28 20 73 74 72 63 |;..else |if( strc|
|00003c20| 6d 70 28 20 69 64 2c 20 | 22 6d 6f 64 22 29 20 3d |mp( id, |"mod") =|
|00003c30| 3d 20 30 29 0a 09 09 72 | 65 74 75 72 6e 28 27 25 |= 0)...r|eturn('%|
|00003c40| 27 29 3b 0a 09 65 6c 73 | 65 20 69 66 28 20 73 74 |');..els|e if( st|
|00003c50| 72 63 6d 70 28 20 69 64 | 2c 20 22 73 68 72 22 29 |rcmp( id|, "shr")|
|00003c60| 20 3d 3d 20 30 29 0a 09 | 09 72 65 74 75 72 6e 28 | == 0)..|.return(|
|00003c70| 27 3e 27 29 3b 0a 09 65 | 6c 73 65 20 69 66 28 20 |'>');..e|lse if( |
|00003c80| 73 74 72 63 6d 70 28 20 | 69 64 2c 20 22 73 68 6c |strcmp( |id, "shl|
|00003c90| 22 29 20 3d 3d 20 30 29 | 0a 09 09 72 65 74 75 72 |") == 0)|...retur|
|00003ca0| 6e 28 27 3c 27 29 3b 0a | 09 65 6c 73 65 0a 09 09 |n('<');.|.else...|
|00003cb0| 66 6f 72 28 20 69 6e 64 | 65 78 20 3d 20 73 74 72 |for( ind|ex = str|
|00003cc0| 6c 65 6e 28 69 64 29 3b | 20 69 6e 64 65 78 3d 3d |len(id);| index==|
|00003cd0| 31 20 3b 69 6e 64 65 78 | 2d 2d 29 0a 09 09 09 70 |1 ;index|--)....p|
|00003ce0| 75 74 62 61 63 6b 28 20 | 69 64 5b 20 69 6e 64 65 |utback( |id[ inde|
|00003cf0| 78 5d 20 29 3b 09 0a 09 | 72 65 74 75 72 6e 28 20 |x] );...|return( |
|00003d00| 69 64 5b 20 30 20 5d 29 | 3b 0a 7d 0a 29 21 3d 27 |id[ 0 ])|;.}.)!='|
|00003d10| 5c 30 27 20 26 26 20 63 | 21 3d 64 65 6c 69 6d 29 |\0' && c|!=delim)|
|00003d20| 0a 09 09 63 6f 64 65 62 | 28 63 29 3b 0a 09 69 66 |...codeb|(c);..if|
|00003d30| 28 63 20 3d 3d 20 27 5c | 30 27 29 0a 09 09 65 72 |(c == '\|0')...er|
|00003d40| 72 28 27 53 27 29 3b 0a | 7d 0a 0a 2f 2a 0a 20 2a |r('S');.|}../*. *|
|00003d50| 20 47 65 74 20 61 20 72 | 65 67 69 73 74 65 72 2e | Get a r|egister.|
|00003d60| 0a 20 2a 20 54 79 70 65 | 20 69 73 20 65 69 74 68 |. * Type| is eith|
|00003d70| 65 72 20 53 5f 52 45 47 | 20 6f 72 20 53 5f 52 45 |er S_REG| or S_RE|
|00003d80| 47 50 2e 0a 20 2a 2f 0a | 67 65 74 72 65 67 28 74 |GP.. */.|getreg(t|
|00003d90| 79 70 65 29 0a 7b 0a 09 | 72 65 67 69 73 74 65 72 |ype).{..|register|
|00003da0| 20 73 74 72 75 63 74 20 | 73 79 6d 20 2a 73 70 3b | struct |sym *sp;|
|00003db0| 0a 09 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 63 |..regist|er int c|
|00003dc0| 3b 0a 09 63 68 61 72 20 | 69 64 5b 4e 43 50 53 5d |;..char |id[NCPS]|
|00003dd0| 3b 0a 0a 09 69 66 28 21 | 61 6c 70 68 61 28 63 3d |;...if(!|alpha(c=|
|00003de0| 67 65 74 6e 62 28 29 29 | 29 20 7b 0a 09 09 65 72 |getnb())|) {...er|
|00003df0| 72 28 27 52 27 29 3b 0a | 09 09 70 75 74 62 61 63 |r('R');.|..putbac|
|00003e00| 78 61 73 6d 2f 61 73 38 | 33 2e 63 00 00 00 00 00 |xasm/as8|3.c.....|
|00003e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e60| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00003e70| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00003e80| 20 20 20 36 30 33 37 20 | 20 34 34 30 32 30 36 31 |   6037 | 4402061|
|00003e90| 33 30 33 20 20 20 35 37 | 37 31 00 20 00 00 00 00 |303   57|71. ....|
|00003ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004000| 2f 2a 0a 20 2a 20 4c 65 | 78 2e 0a 20 2a 2f 0a 23 |/*. * Le|x.. */.#|
|00004010| 69 6e 63 6c 75 64 65 20 | 3c 73 74 64 69 6f 2e 68 |include |<stdio.h|
|00004020| 3e 0a 23 69 6e 63 6c 75 | 64 65 20 22 61 73 6d 2e |>.#inclu|de "asm.|
|00004030| 68 22 0a 73 74 61 74 69 | 63 20 63 68 61 72 20 2a |h".stati|c char *|
|00004040| 73 63 63 73 69 64 3d 22 | 40 28 23 29 61 73 38 33 |sccsid="|@(#)as83|
|00004050| 2e 63 09 31 2e 32 22 3b | 0a 0a 0a 2f 2a 0a 20 2a |.c.1.2";|.../*. *|
|00004060| 20 47 65 74 20 74 68 65 | 20 6e 65 78 74 20 6e 6f | Get the| next no|
|00004070| 6e 20 77 68 69 74 65 0a | 20 2a 20 63 68 61 72 61 |n white.| * chara|
|00004080| 63 74 65 72 2e 0a 20 2a | 2f 0a 67 65 74 6e 62 28 |cter.. *|/.getnb(|
|00004090| 29 0a 7b 0a 09 72 65 67 | 69 73 74 65 72 20 69 6e |).{..reg|ister in|
|000040a0| 74 20 63 3b 0a 0a 09 77 | 68 69 6c 65 28 28 63 3d |t c;...w|hile((c=|
|000040b0| 67 65 74 72 61 77 28 29 | 29 3d 3d 27 20 27 20 7c |getraw()|)==' ' ||
|000040c0| 7c 20 63 3d 3d 27 5c 74 | 27 29 3b 0a 09 72 65 74 || c=='\t|');..ret|
|000040d0| 75 72 6e 28 63 29 3b 0a | 7d 0a 0a 2f 2a 0a 20 2a |urn(c);.|}../*. *|
|000040e0| 20 47 65 74 20 6e 65 78 | 74 20 63 68 61 72 61 63 | Get nex|t charac|
|000040f0| 74 65 72 20 66 72 6f 6d | 0a 20 2a 20 74 68 65 20 |ter from|. * the |
|00004100| 69 6e 70 75 74 2e 0a 20 | 2a 20 41 70 70 6c 79 20 |input.. |* Apply |
|00004110| 73 74 72 69 6e 67 20 6d | 61 70 70 69 6e 67 73 2e |string m|appings.|
|00004120| 0a 20 2a 2f 0a 67 65 74 | 6d 61 70 28 29 0a 7b 0a |. */.get|map().{.|
|00004130| 09 72 65 67 69 73 74 65 | 72 20 69 6e 74 20 6e 2c |.registe|r int n,|
|00004140| 20 63 2c 20 76 3b 0a 0a | 09 69 66 28 28 63 3d 67 | c, v;..|.if((c=g|
|00004150| 65 74 72 61 77 28 29 29 | 20 3d 3d 20 27 5c 5c 27 |etraw())| == '\\'|
|00004160| 29 0a 09 09 73 77 69 74 | 63 68 28 63 20 3d 20 67 |)...swit|ch(c = g|
|00004170| 65 74 72 61 77 28 29 29 | 20 7b 0a 0a 09 09 63 61 |etraw())| {....ca|
|00004180| 73 65 20 27 6e 27 3a 0a | 09 09 09 63 20 3d 20 27 |se 'n':.|...c = '|
|00004190| 5c 6e 27 3b 0a 09 09 09 | 62 72 65 61 6b 3b 0a 0a |\n';....|break;..|
|000041a0| 09 09 63 61 73 65 20 27 | 72 27 3a 0a 09 09 09 63 |..case '|r':....c|
|000041b0| 20 3d 20 27 5c 72 27 3b | 0a 09 09 09 62 72 65 61 | = '\r';|....brea|
|000041c0| 6b 3b 0a 0a 09 09 63 61 | 73 65 20 27 74 27 3a 0a |k;....ca|se 't':.|
|000041d0| 09 09 09 63 20 3d 20 27 | 5c 74 27 3b 0a 09 09 09 |...c = '|\t';....|
|000041e0| 62 72 65 61 6b 3b 0a 0a | 09 09 63 61 73 65 20 27 |break;..|..case '|
|000041f0| 62 27 3a 0a 09 09 09 63 | 20 3d 20 27 5c 62 27 3b |b':....c| = '\b';|
|00004200| 0a 09 09 09 62 72 65 61 | 6b 3b 0a 0a 09 09 63 61 |....brea|k;....ca|
|00004210| 73 65 20 27 30 27 3a 0a | 09 09 63 61 73 65 20 27 |se '0':.|..case '|
|00004220| 31 27 3a 0a 09 09 63 61 | 73 65 20 27 32 27 3a 0a |1':...ca|se '2':.|
|00004230| 09 09 63 61 73 65 20 27 | 33 27 3a 0a 09 09 63 61 |..case '|3':...ca|
|00004240| 73 65 20 27 34 27 3a 0a | 09 09 63 61 73 65 20 27 |se '4':.|..case '|
|00004250| 35 27 3a 0a 09 09 63 61 | 73 65 20 27 36 27 3a 0a |5':...ca|se '6':.|
|00004260| 09 09 63 61 73 65 20 27 | 37 27 3a 0a 09 09 09 76 |..case '|7':....v|
|00004270| 20 3d 20 6e 20 3d 20 30 | 3b 0a 09 09 09 77 68 69 | = n = 0|;....whi|
|00004280| 6c 65 28 2b 2b 6e 3c 3d | 33 20 26 26 20 63 3e 3d |le(++n<=|3 && c>=|
|00004290| 27 30 27 20 26 26 20 63 | 3c 3d 27 37 27 29 20 7b |'0' && c|<='7') {|
|000042a0| 0a 09 09 09 09 76 20 3d | 20 38 2a 76 20 2b 20 63 |.....v =| 8*v + c|
|000042b0| 20 2d 20 27 30 27 3b 0a | 09 09 09 09 63 20 3d 20 | - '0';.|....c = |
|000042c0| 67 65 74 72 61 77 28 29 | 3b 0a 09 09 09 7d 0a 09 |getraw()|;....}..|
|000042d0| 09 09 70 75 74 62 61 63 | 6b 28 63 29 3b 0a 09 09 |..putbac|k(c);...|
|000042e0| 09 63 20 3d 20 76 3b 0a | 09 09 09 62 72 65 61 6b |.c = v;.|...break|
|000042f0| 3b 0a 0a 09 09 64 65 66 | 61 75 6c 74 3a 0a 09 09 |;....def|ault:...|
|00004300| 09 70 75 74 62 61 63 6b | 28 63 29 3b 0a 09 09 09 |.putback|(c);....|
|00004310| 63 20 3d 20 27 5c 5c 27 | 3b 0a 09 09 7d 0a 09 72 |c = '\\'|;...}..r|
|00004320| 65 74 75 72 6e 28 63 29 | 3b 0a 7d 0a 0a 2f 2a 0a |eturn(c)|;.}../*.|
|00004330| 20 2a 20 47 65 74 20 6e | 65 78 74 20 63 68 61 72 | * Get n|ext char|
|00004340| 61 63 74 65 72 2e 0a 20 | 2a 20 42 61 73 69 63 20 |acter.. |* Basic |
|00004350| 72 6f 75 74 69 6e 65 2e | 0a 20 2a 20 44 6f 6e 27 |routine.|. * Don'|
|00004360| 74 20 73 63 72 65 77 20 | 75 70 20 6f 6e 20 65 6e |t screw |up on en|
|00004370| 64 20 6f 66 0a 20 2a 20 | 6c 69 6e 65 2e 0a 20 2a |d of. * |line.. *|
|00004380| 2f 0a 67 65 74 72 61 77 | 28 29 0a 7b 0a 09 72 65 |/.getraw|().{..re|
|00004390| 67 69 73 74 65 72 20 69 | 6e 74 20 63 3b 0a 0a 09 |gister i|nt c;...|
|000043a0| 69 66 28 28 63 20 3d 20 | 2a 73 70 74 72 29 20 21 |if((c = |*sptr) !|
|000043b0| 3d 20 27 5c 30 27 29 0a | 09 09 2b 2b 73 70 74 72 |= '\0').|..++sptr|
|000043c0| 3b 0a 09 72 65 74 75 72 | 6e 28 63 29 3b 0a 7d 0a |;..retur|n(c);.}.|
|000043d0| 0a 2f 2a 0a 20 2a 20 43 | 68 65 63 6b 20 66 6f 72 |./*. * C|heck for|
|000043e0| 20 61 6c 70 68 61 2e 0a | 20 2a 2f 0a 61 6c 70 68 | alpha..| */.alph|
|000043f0| 61 28 63 29 0a 72 65 67 | 69 73 74 65 72 20 69 6e |a(c).reg|ister in|
|00004400| 74 20 63 3b 0a 7b 0a 09 | 72 65 74 75 72 6e 28 63 |t c;.{..|return(c|
|00004410| 3d 3d 27 3f 27 7c 7c 20 | 28 63 3e 3d 27 61 27 20 |=='?'|| |(c>='a' |
|00004420| 26 26 20 63 3c 3d 27 7a | 27 29 20 7c 7c 20 28 63 |&& c<='z|') || (c|
|00004430| 3e 3d 27 41 27 20 26 26 | 20 63 3c 3d 27 5a 27 29 |>='A' &&| c<='Z')|
|00004440| 29 3b 0a 7d 0a 0a 2f 2a | 0a 20 2a 20 50 75 74 20 |);.}../*|. * Put |
|00004450| 61 20 63 68 61 72 61 63 | 74 65 72 20 62 61 63 6b |a charac|ter back|
|00004460| 2e 0a 20 2a 20 41 20 6c | 69 6e 65 20 61 74 20 61 |.. * A l|ine at a|
|00004470| 20 74 69 6d 65 20 76 65 | 72 73 69 6f 6e 0a 20 2a | time ve|rsion. *|
|00004480| 20 6f 66 20 75 6e 67 65 | 74 63 2e 0a 20 2a 20 44 | of unge|tc.. * D|
|00004490| 69 65 20 69 66 20 74 6f | 6f 20 6d 61 6e 79 20 63 |ie if to|o many c|
|000044a0| 68 61 72 61 63 74 65 72 | 73 0a 20 2a 20 61 72 65 |haracter|s. * are|
|000044b0| 20 70 75 74 20 62 61 63 | 6b 2e 0a 20 2a 2f 0a 70 | put bac|k.. */.p|
|000044c0| 75 74 62 61 63 6b 28 63 | 29 0a 7b 0a 09 69 66 28 |utback(c|).{..if(|
|000044d0| 63 20 21 3d 20 27 5c 30 | 27 29 0a 09 09 69 66 28 |c != '\0|')...if(|
|000044e0| 2d 2d 73 70 74 72 20 3c | 20 73 62 75 66 29 0a 09 |--sptr <| sbuf)..|
|000044f0| 09 09 61 62 6f 72 74 28 | 29 3b 0a 7d 0a 0a 2f 2a |..abort(|);.}../*|
|00004500| 0a 20 2a 20 52 65 61 64 | 20 69 6e 20 61 6e 20 69 |. * Read| in an i|
|00004510| 6e 64 65 6e 74 69 66 69 | 65 72 2e 0a 20 2a 20 53 |ndentifi|er.. * S|
|00004520| 74 6f 72 65 20 69 74 20 | 28 70 61 64 64 65 64 20 |tore it |(padded |
|00004530| 77 69 74 68 20 6e 75 6c | 6c 73 29 20 69 6e 74 6f |with nul|ls) into|
|00004540| 20 74 68 65 0a 20 2a 20 | 73 75 70 70 6c 69 65 64 | the. * |supplied|
|00004550| 20 62 75 66 66 65 72 2e | 0a 20 2a 2f 0a 67 65 74 | buffer.|. */.get|
|00004560| 69 64 28 63 2c 20 69 64 | 29 0a 72 65 67 69 73 74 |id(c, id|).regist|
|00004570| 65 72 20 69 6e 74 20 63 | 3b 0a 63 68 61 72 20 2a |er int c|;.char *|
|00004580| 69 64 3b 0a 7b 0a 09 72 | 65 67 69 73 74 65 72 20 |id;.{..r|egister |
|00004590| 63 68 61 72 20 2a 70 3b | 0a 0a 09 70 20 3d 20 69 |char *p;|...p = i|
|000045a0| 64 3b 0a 09 77 68 69 6c | 65 28 61 6c 70 68 61 28 |d;..whil|e(alpha(|
|000045b0| 63 29 20 7c 7c 20 63 3d | 3d 20 27 24 27 20 7c 7c |c) || c=|= '$' |||
|000045c0| 20 28 63 3e 3d 27 30 27 | 20 26 26 20 63 3c 3d 27 | (c>='0'| && c<='|
|000045d0| 39 27 29 29 20 7b 0a 09 | 09 69 66 28 70 20 3c 20 |9')) {..|.if(p < |
|000045e0| 26 69 64 5b 4e 43 50 53 | 5d 29 7b 0a 09 09 09 69 |&id[NCPS|]){....i|
|000045f0| 66 20 28 20 63 3e 3d 27 | 41 27 20 26 26 20 63 3c |f ( c>='|A' && c<|
|00004600| 3d 27 5a 27 20 29 0a 09 | 09 09 09 63 20 7c 3d 27 |='Z' )..|...c |='|
|00004610| 20 27 3b 0a 09 09 09 69 | 66 28 20 63 20 21 3d 20 | ';....i|f( c != |
|00004620| 27 24 27 20 29 0a 09 09 | 09 09 2a 70 2b 2b 20 3d |'$' )...|..*p++ =|
|00004630| 20 63 3b 0a 09 09 7d 0a | 09 09 63 20 3d 20 67 65 | c;...}.|..c = ge|
|00004640| 74 72 61 77 28 29 3b 0a | 09 7d 0a 09 77 68 69 6c |traw();.|.}..whil|
|00004650| 65 28 70 20 3c 20 26 69 | 64 5b 4e 43 50 53 5d 29 |e(p < &i|d[NCPS])|
|00004660| 0a 09 09 2a 70 2b 2b 20 | 3d 20 27 5c 30 27 3b 0a |...*p++ |= '\0';.|
|00004670| 09 70 75 74 62 61 63 6b | 28 63 29 3b 0a 7d 0a 0c |.putback|(c);.}..|
|00004680| 0a 2f 2a 0a 20 2a 20 69 | 6e 73 74 72 28 20 63 2c |./*. * i|nstr( c,|
|00004690| 73 74 72 29 0a 20 2a 0a | 20 2a 20 72 65 74 75 72 |str). *.| * retur|
|000046a0| 6e 73 20 74 68 65 20 69 | 6e 64 65 78 20 74 6f 20 |ns the i|ndex to |
|000046b0| 6c 6f 63 61 74 65 20 63 | 20 69 6e 20 73 74 72 20 |locate c| in str |
|000046c0| 69 66 20 63 20 69 73 20 | 69 6e 20 73 74 72 2e 0a |if c is |in str..|
|000046d0| 20 2a 20 69 66 20 63 20 | 69 73 20 6e 6f 74 20 69 | * if c |is not i|
|000046e0| 6e 20 73 74 72 20 74 68 | 65 6e 20 72 65 74 75 72 |n str th|en retur|
|000046f0| 6e 73 20 2d 31 2e 0a 20 | 2a 2f 0a 0a 69 6e 74 0a |ns -1.. |*/..int.|
|00004700| 69 6e 73 74 72 28 20 63 | 2c 20 73 74 72 20 29 0a |instr( c|, str ).|
|00004710| 63 68 61 72 20 63 3b 0a | 63 68 61 72 20 2a 73 74 |char c;.|char *st|
|00004720| 72 3b 0a 7b 0a 09 72 65 | 67 69 73 74 65 72 20 63 |r;.{..re|gister c|
|00004730| 68 61 72 20 2a 6c 70 3b | 0a 09 6c 70 20 3d 20 73 |har *lp;|..lp = s|
|00004740| 74 72 3b 0a 09 77 68 69 | 6c 65 28 20 2a 6c 70 20 |tr;..whi|le( *lp |
|00004750| 21 3d 20 27 5c 30 27 20 | 29 0a 09 09 69 66 28 20 |!= '\0' |)...if( |
|00004760| 2a 6c 70 2b 2b 20 3d 3d | 20 63 20 29 0a 09 09 09 |*lp++ ==| c )....|
|00004770| 72 65 74 75 72 6e 28 20 | 6c 70 2d 73 74 72 2d 31 |return( |lp-str-1|
|00004780| 20 29 3b 0a 09 72 65 74 | 75 72 6e 28 20 2d 31 20 | );..ret|urn( -1 |
|00004790| 29 3b 0a 7d 0a 63 68 61 | 72 0a 75 63 61 73 65 28 |);.}.cha|r.ucase(|
|000047a0| 20 63 20 29 0a 63 68 61 | 72 20 63 3b 0a 7b 0a 09 | c ).cha|r c;.{..|
|000047b0| 69 66 28 20 63 20 3e 3d | 20 27 61 27 20 26 26 20 |if( c >=| 'a' && |
|000047c0| 63 20 3c 3d 20 27 7a 27 | 29 0a 09 09 63 20 3d 20 |c <= 'z'|)...c = |
|000047d0| 28 20 63 20 2d 20 28 20 | 27 61 27 20 2d 20 27 41 |( c - ( |'a' - 'A|
|000047e0| 27 20 29 29 3b 0a 09 72 | 65 74 75 72 6e 28 20 63 |' ));..r|eturn( c|
|000047f0| 20 29 3b 0a 7d 0a 0c 0a | 2f 2a 0a 20 2a 20 67 65 | );.}...|/*. * ge|
|00004800| 74 20 61 20 6e 75 6d 62 | 65 72 3b 0a 20 2a 0a 20 |t a numb|er;. *. |
|00004810| 2a 2f 0a 73 74 61 74 69 | 63 20 20 63 68 61 72 20 |*/.stati|c  char |
|00004820| 2a 68 65 78 73 74 72 20 | 3d 20 22 30 31 32 33 34 |*hexstr |= "01234|
|00004830| 35 36 37 38 39 41 42 43 | 44 45 46 22 3b 0a 69 6e |56789ABC|DEF";.in|
|00004840| 74 0a 67 65 74 6e 75 6d | 28 63 29 0a 63 68 61 72 |t.getnum|(c).char|
|00004850| 20 63 3b 0a 7b 0a 09 73 | 74 61 74 69 63 20 20 63 | c;.{..s|tatic  c|
|00004860| 68 61 72 20 2a 72 61 64 | 69 78 20 3d 20 22 42 44 |har *rad|ix = "BD|
|00004870| 48 4f 51 22 3b 09 09 0a | 09 73 74 61 74 69 63 20 |HOQ";...|.static |
|00004880| 69 6e 74 20 72 61 64 76 | 5b 5d 3d 7b 20 31 30 2c |int radv|[]={ 10,|
|00004890| 32 2c 31 30 2c 31 36 2c | 38 2c 38 7d 3b 0a 09 69 |2,10,16,|8,8};..i|
|000048a0| 6e 74 20 76 61 6c 75 65 | 3b 0a 0a 09 63 68 61 72 |nt value|;...char|
|000048b0| 20 6e 75 6d 62 73 74 72 | 5b 20 31 36 20 5d 3b 0a | numbstr|[ 16 ];.|
|000048c0| 09 63 68 61 72 20 2a 6e | 70 3b 0a 0a 09 6e 70 20 |.char *n|p;...np |
|000048d0| 3d 20 6e 75 6d 62 73 74 | 72 3b 0a 09 77 68 69 6c |= numbst|r;..whil|
|000048e0| 65 28 20 69 6e 73 74 72 | 28 20 75 63 61 73 65 28 |e( instr|( ucase(|
|000048f0| 20 63 20 29 2c 20 68 65 | 78 73 74 72 29 20 3e 3d | c ), he|xstr) >=|
|00004900| 20 30 20 29 7b 0a 09 09 | 2a 6e 70 2b 2b 3d 75 63 | 0 ){...|*np++=uc|
|00004910| 61 73 65 28 20 63 20 29 | 3b 0a 09 09 63 20 3d 20 |ase( c )|;...c = |
|00004920| 67 65 74 72 61 77 28 29 | 3b 0a 09 7d 0a 09 2a 6e |getraw()|;..}..*n|
|00004930| 70 2d 2d 20 3d 20 27 5c | 30 27 3b 0a 09 69 66 28 |p-- = '\|0';..if(|
|00004940| 20 69 6e 73 74 72 28 20 | 75 63 61 73 65 28 20 63 | instr( |ucase( c|
|00004950| 20 29 2c 20 72 61 64 69 | 78 20 29 20 3c 20 30 20 | ), radi|x ) < 0 |
|00004960| 29 7b 0a 09 09 70 75 74 | 62 61 63 6b 28 63 20 29 |){...put|back(c )|
|00004970| 3b 09 09 09 2f 2a 20 69 | 66 20 74 65 72 6d 69 6e |;.../* i|f termin|
|00004980| 61 6c 20 6e 6f 74 20 72 | 69 67 68 74 20 2a 2f 0a |al not r|ight */.|
|00004990| 09 09 63 20 3d 20 2a 6e | 70 3b 09 09 09 2f 2a 20 |..c = *n|p;.../* |
|000049a0| 74 68 65 6e 20 74 68 65 | 20 70 72 65 76 69 6f 75 |then the| previou|
|000049b0| 73 20 69 73 09 20 2a 2f | 0a 09 09 69 66 28 20 69 |s is. */|...if( i|
|000049c0| 6e 73 74 72 28 20 75 63 | 61 73 65 28 20 63 20 29 |nstr( uc|ase( c )|
|000049d0| 2c 20 72 61 64 69 78 20 | 29 20 3e 3d 20 30 20 29 |, radix |) >= 0 )|
|000049e0| 0a 09 09 09 2a 6e 70 20 | 3d 20 27 5c 30 27 3b 0a |....*np |= '\0';.|
|000049f0| 09 7d 0a 09 2f 2a 0a 09 | 20 2a 20 54 68 65 20 66 |.}../*..| * The f|
|00004a00| 6f 6c 6c 6f 77 69 6e 67 | 20 63 6f 64 65 20 75 73 |ollowing| code us|
|00004a10| 65 73 20 74 68 65 20 69 | 6e 64 65 78 20 69 6e 74 |es the i|ndex int|
|00004a20| 6f 20 74 68 65 20 72 61 | 64 69 78 20 61 72 72 61 |o the ra|dix arra|
|00004a30| 79 20 74 6f 0a 20 20 20 | 20 20 20 20 20 20 2a 20 |y to.   |      * |
|00004a40| 63 61 6c 63 75 6c 61 74 | 65 20 74 68 65 20 63 6f |calculat|e the co|
|00004a50| 72 72 65 63 74 20 69 6e | 64 65 78 20 69 6e 74 6f |rrect in|dex into|
|00004a60| 20 72 61 64 69 78 20 76 | 61 6c 75 65 20 74 61 62 | radix v|alue tab|
|00004a70| 6c 65 20 61 6e 64 20 0a | 09 20 2a 20 75 73 65 20 |le and .|. * use |
|00004a80| 74 68 65 20 76 61 6c 75 | 65 20 66 6f 75 6e 64 20 |the valu|e found |
|00004a90| 74 6f 20 64 65 74 65 72 | 6d 69 6e 65 20 74 68 65 |to deter|mine the|
|00004aa0| 20 63 6f 72 72 65 63 74 | 20 63 6f 6e 76 65 72 73 | correct| convers|
|00004ab0| 69 6f 6e 20 0a 09 20 2a | 20 72 6f 75 74 69 6e 65 |ion .. *| routine|
|00004ac0| 2e 0a 09 20 2a 0a 09 20 | 2a 20 54 68 69 6e 6b 20 |... *.. |* Think |
|00004ad0| 63 61 72 65 66 75 6c 6c | 79 20 62 65 66 6f 72 65 |carefull|y before|
|00004ae0| 20 63 68 61 6e 67 69 6e | 67 20 74 68 65 20 66 6f | changin|g the fo|
|00004af0| 6c 6c 6f 77 69 6e 67 20 | 63 6f 64 65 2e 0a 09 20 |llowing |code... |
|00004b00| 2a 0a 20 09 20 2a 2f 0a | 09 72 65 74 75 72 6e 28 |*. . */.|.return(|
|00004b10| 20 73 63 6e 6e 75 6d 62 | 28 20 6e 75 6d 62 73 74 | scnnumb|( numbst|
|00004b20| 72 2c 20 72 61 64 76 5b | 20 31 20 2b 20 69 6e 73 |r, radv[| 1 + ins|
|00004b30| 74 72 28 20 75 63 61 73 | 65 28 20 63 20 29 2c 20 |tr( ucas|e( c ), |
|00004b40| 72 61 64 69 78 20 29 5d | 29 29 3b 0a 7d 0a 0a 69 |radix )]|));.}..i|
|00004b50| 6e 74 0a 73 63 6e 6e 75 | 6d 62 28 20 73 74 72 20 |nt.scnnu|mb( str |
|00004b60| 2c 72 61 64 69 78 20 29 | 0a 63 68 61 72 20 2a 73 |,radix )|.char *s|
|00004b70| 74 72 3b 0a 69 6e 74 09 | 72 61 64 69 78 3b 0a 7b |tr;.int.|radix;.{|
|00004b80| 0a 09 69 6e 74 20 76 20 | 2c 64 3b 0a 09 76 20 3d |..int v |,d;..v =|
|00004b90| 20 30 3b 0a 09 77 68 69 | 6c 65 28 20 2a 73 74 72 | 0;..whi|le( *str|
|00004ba0| 20 29 0a 09 09 69 66 28 | 20 28 64 3d 69 6e 73 74 | )...if(| (d=inst|
|00004bb0| 72 28 20 2a 73 74 72 2b | 2b 2c 20 68 65 78 73 74 |r( *str+|+, hexst|
|00004bc0| 72 29 29 20 3e 3d 20 30 | 20 26 26 20 64 20 3c 20 |r)) >= 0| && d < |
|00004bd0| 72 61 64 69 78 20 29 0a | 09 09 09 76 20 3d 20 76 |radix ).|...v = v|
|00004be0| 2a 72 61 64 69 78 20 2b | 20 64 3b 0a 09 09 65 6c |*radix +| d;...el|
|00004bf0| 73 65 0a 09 09 09 72 65 | 74 75 72 6e 28 20 65 72 |se....re|turn( er|
|00004c00| 72 28 20 27 4e 27 20 29 | 2c 20 30 20 29 3b 0a 09 |r( 'N' )|, 0 );..|
|00004c10| 72 65 74 75 72 6e 28 20 | 76 20 29 3b 0a 7d 0a 20 |return( |v );.}. |
|00004c20| 69 64 29 3b 0a 09 69 66 | 28 28 73 70 3d 6c 6f 6f |id);..if|((sp=loo|
|00004c30| 6b 75 70 28 69 64 2c 20 | 70 73 74 29 29 3d 3d 4e |kup(id, |pst))==N|
|00004c40| 55 4c 4c 20 7c 7c 20 74 | 79 70 65 20 21 3d 20 73 |ULL || t|ype != s|
|00004c50| 70 2d 3e 73 5f 74 79 70 | 65 29 20 7b 0a 09 09 65 |p->s_typ|e) {...e|
|00004c60| 72 72 28 27 52 27 29 3b | 0a 09 09 72 65 74 75 72 |rr('R');|...retur|
|00004c70| 6e 28 30 29 3b 0a 09 7d | 0a 09 72 65 74 75 72 6e |n(0);..}|..return|
|00004c80| 28 73 70 2d 3e 73 5f 76 | 61 6c 75 65 29 3b 0a 7d |(sp->s_v|alue);.}|
|00004c90| 0a 0a 2f 2a 0a 20 2a 20 | 49 6e 73 75 72 65 20 74 |../*. * |Insure t|
|00004ca0| 68 61 74 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |hat the |value of|
|00004cb0| 0a 20 2a 20 61 6e 20 65 | 78 70 72 65 73 73 69 6f |. * an e|xpressio|
|00004cc0| 6e 20 69 73 20 61 20 6c | 65 67 61 6c 0a 20 2a 20 |n is a l|egal. * |
|00004cd0| 62 79 74 65 20 76 61 6c | 75 65 2e 0a 20 2a 20 45 |byte val|ue.. * E|
|00004ce0| 72 72 6f 72 20 69 66 20 | 6e 6f 74 2e 0a 20 2a 2f |rror if |not.. */|
|00004cf0| 0a 62 79 74 65 28 62 29 | 0a 7b 0a 09 69 66 28 28 |.byte(b)|.{..if((|
|00004d00| 62 26 30 32 30 30 29 21 | 3d 30 29 0a 09 09 62 20 |b&0200)!|=0)...b |
|00004d10| 7c 3d 20 7e 30 33 37 37 | 3b 0a 09 69 66 28 62 3e ||= ~0377|;..if(b>|
|00004d20| 31 32 37 20 7c 7c 20 62 | 3c 2d 31 32 38 29 0a 09 |127 || b|<-128)..|
|00004d30| 09 65 72 72 28 27 52 27 | 29 3b 0a 7d 0a 0a 2f 2a |.err('R'|);.}../*|
|00004d40| 0a 20 2a 20 43 68 65 63 | 6b 20 66 6f 72 20 60 2c |. * Chec|k for `,|
|00004d50| 27 2e 0a 20 2a 2f 0a 63 | 6f 6d 6d 61 28 29 0a 7b |'.. */.c|omma().{|
|00004d60| 0a 09 69 66 28 67 65 74 | 6e 62 28 29 20 21 3d 20 |..if(get|nb() != |
|00004d70| 27 2c 27 29 0a 09 09 65 | 72 72 28 27 61 27 29 3b |',')...e|rr('a');|
|00004d80| 0a 7d 0a 0a 2f 2a 0a 20 | 2a 20 42 75 69 6c 64 20 |.}../*. |* Build |
|00004d90| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 20 6f 66 20 |instruct|ions of |
|00004da0| 74 68 65 0a 20 2a 20 67 | 65 6e 65 72 61 6c 20 66 |the. * g|eneral f|
|00004db0| 6f 72 6d 20 78 78 72 72 | 72 78 78 78 2e 0a 20 2a |orm xxrr|rxxx.. *|
|00004dc0| 2f 0a 63 6f 64 65 33 28 | 78 2c 20 72 29 0a 7b 0a |/.code3(|x, r).{.|
|00004dd0| 09 63 6f 64 65 62 28 78 | 20 7c 20 72 3c 3c 33 29 |.codeb(x| | r<<3)|
|00004de0| 3b 0a 7d 0a 0a 2f 2a 0a | 20 2a 20 42 75 69 6c 64 |;.}../*.| * Build|
|00004df0| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 73 20 6f 66 | instruc|tions of|
|00004e00| 78 61 73 6d 2f 61 73 38 | 35 2e 63 00 00 00 00 00 |xasm/as8|5.c.....|
|00004e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e60| 00 00 00 00 20 20 20 36 | 34 34 20 00 20 20 20 32 |....   6|44 .   2|
|00004e70| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00004e80| 20 20 31 33 30 32 37 20 | 20 34 34 30 32 30 36 31 |  13027 | 4402061|
|00004e90| 33 30 35 20 20 20 36 30 | 31 32 00 20 00 00 00 00 |305   60|12. ....|
|00004ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005000| 2f 2a 0a 20 2a 20 61 73 | 38 35 2e 63 0a 20 2a 20 |/*. * as|85.c. * |
|00005010| 54 61 62 6c 65 73 2e 0a | 20 2a 2f 0a 23 69 6e 63 |Tables..| */.#inc|
|00005020| 6c 75 64 65 20 3c 73 74 | 64 69 6f 2e 68 3e 0a 23 |lude <st|dio.h>.#|
|00005030| 69 6e 63 6c 75 64 65 20 | 22 61 73 6d 2e 68 22 0a |include |"asm.h".|
|00005040| 0a 2f 2a 0a 20 2a 20 41 | 73 73 6f 72 74 65 64 20 |./*. * A|ssorted |
|00005050| 76 61 72 69 61 62 6c 65 | 73 2e 0a 20 2a 2f 0a 73 |variable|s.. */.s|
|00005060| 74 61 74 69 63 20 63 68 | 61 72 20 2a 61 73 38 35 |tatic ch|ar *as85|
|00005070| 3d 22 40 28 23 29 61 73 | 38 35 2e 63 09 31 2e 32 |="@(#)as|85.c.1.2|
|00005080| 22 3b 0a 0a 69 6e 74 09 | 6c 69 73 74 6d 6f 64 65 |";..int.|listmode|
|00005090| 3b 09 09 2f 2a 20 4c 69 | 73 74 69 6e 67 20 63 6f |;../* Li|sting co|
|000050a0| 6e 74 72 6f 6c 20 2a 2f | 0a 69 6e 74 09 6c 69 73 |ntrol */|.int.lis|
|000050b0| 74 61 64 64 72 3b 09 09 | 2f 2a 20 4c 69 73 74 69 |taddr;..|/* Listi|
|000050c0| 6e 67 20 63 6f 6e 74 72 | 6f 6c 20 2a 2f 0a 69 6e |ng contr|ol */.in|
|000050d0| 74 09 65 6e 74 61 64 64 | 72 3b 09 09 2f 2a 20 45 |t.entadd|r;../* E|
|000050e0| 6e 74 72 79 20 61 64 64 | 72 65 73 73 20 2a 2f 0a |ntry add|ress */.|
|000050f0| 46 49 4c 45 09 2a 73 72 | 63 3b 09 09 09 2f 2a 20 |FILE.*sr|c;.../* |
|00005100| 53 6f 75 72 63 65 20 2a | 2f 0a 46 49 4c 45 09 2a |Source *|/.FILE.*|
|00005110| 6c 73 74 3b 09 09 09 2f | 2a 20 4c 69 73 74 69 6e |lst;.../|* Listin|
|00005120| 67 20 2a 2f 0a 46 49 4c | 45 09 2a 6f 62 6a 3b 09 |g */.FIL|E.*obj;.|
|00005130| 09 09 2f 2a 20 4f 62 6a | 65 63 74 20 2a 2f 0a 69 |../* Obj|ect */.i|
|00005140| 6e 74 09 6c 66 6c 61 67 | 3b 09 09 09 2f 2a 20 2d |nt.lflag|;.../* -|
|00005150| 6c 20 66 6c 61 67 20 2a | 2f 0a 69 6e 74 09 6e 66 |l flag *|/.int.nf|
|00005160| 6c 61 67 3b 09 09 09 2f | 2a 20 2d 6e 20 66 6c 61 |lag;.../|* -n fla|
|00005170| 67 20 2a 2f 0a 69 6e 74 | 09 73 66 6c 61 67 3b 09 |g */.int|.sflag;.|
|00005180| 09 09 2f 2a 20 2d 73 20 | 66 6c 61 67 20 2a 2f 0a |../* -s |flag */.|
|00005190| 69 6e 74 09 70 61 73 73 | 3b 09 09 09 2f 2a 20 57 |int.pass|;.../* W|
|000051a0| 68 69 63 68 20 70 61 73 | 73 3f 20 2a 2f 0a 69 6e |hich pas|s? */.in|
|000051b0| 74 09 73 6b 69 70 3b 09 | 09 09 2f 2a 20 73 6b 69 |t.skip;.|../* ski|
|000051c0| 70 70 69 6e 67 20 63 6f | 64 65 20 2a 2f 0a 69 6e |pping co|de */.in|
|000051d0| 74 09 69 6e 69 66 3b 09 | 09 09 2f 2a 20 69 6e 20 |t.inif;.|../* in |
|000051e0| 61 6e 20 69 66 20 62 6c | 6f 63 6b 20 2a 2f 0a 69 |an if bl|ock */.i|
|000051f0| 6e 74 09 6c 69 6e 65 6e | 6f 3b 09 09 09 2f 2a 20 |nt.linen|o;.../* |
|00005200| 4c 69 6e 65 20 6e 75 6d | 62 65 72 20 2a 2f 0a 63 |Line num|ber */.c|
|00005210| 68 61 72 09 2a 73 70 74 | 72 3b 09 09 09 2f 2a 20 |har.*spt|r;.../* |
|00005220| 53 6f 75 72 63 65 20 70 | 6f 69 6e 74 65 72 20 2a |Source p|ointer *|
|00005230| 2f 0a 63 68 61 72 09 73 | 62 75 66 5b 53 52 43 4d |/.char.s|buf[SRCM|
|00005240| 41 58 5d 3b 09 09 2f 2a | 20 53 6f 75 72 63 65 20 |AX];../*| Source |
|00005250| 62 75 66 66 65 72 20 2a | 2f 0a 63 68 61 72 09 2a |buffer *|/.char.*|
|00005260| 63 70 74 72 3b 09 09 09 | 2f 2a 20 4c 69 73 74 69 |cptr;...|/* Listi|
|00005270| 6e 67 20 63 6f 64 65 20 | 70 6f 69 6e 74 65 72 20 |ng code |pointer |
|00005280| 2a 2f 0a 63 68 61 72 09 | 63 62 75 66 5b 43 4c 4d |*/.char.|cbuf[CLM|
|00005290| 41 58 5d 3b 09 09 2f 2a | 20 4c 69 73 74 69 6e 67 |AX];../*| Listing|
|000052a0| 20 63 6f 64 65 20 62 75 | 66 66 65 72 20 2a 2f 0a | code bu|ffer */.|
|000052b0| 63 68 61 72 09 2a 65 70 | 74 72 3b 09 09 09 2f 2a |char.*ep|tr;.../*|
|000052c0| 20 45 72 72 6f 72 20 70 | 6f 69 6e 74 65 72 20 2a | Error p|ointer *|
|000052d0| 2f 0a 63 68 61 72 09 65 | 62 75 66 5b 45 52 52 4d |/.char.e|buf[ERRM|
|000052e0| 41 58 5d 3b 09 09 2f 2a | 20 45 72 72 6f 72 20 62 |AX];../*| Error b|
|000052f0| 75 66 66 65 72 20 2a 2f | 0a 69 6e 74 09 63 61 64 |uffer */|.int.cad|
|00005300| 72 3b 09 09 09 2f 2a 20 | 4f 62 6a 65 63 74 20 61 |r;.../* |Object a|
|00005310| 64 64 72 65 73 73 20 2a | 2f 0a 69 6e 74 09 63 72 |ddress *|/.int.cr|
|00005320| 65 63 3b 09 09 09 2f 2a | 20 4f 62 6a 65 63 74 20 |ec;.../*| Object |
|00005330| 69 6e 64 65 78 20 2a 2f | 0a 63 68 61 72 09 63 72 |index */|.char.cr|
|00005340| 62 66 5b 43 42 4d 41 58 | 5d 3b 09 09 2f 2a 20 4f |bf[CBMAX|];../* O|
|00005350| 62 6a 65 63 74 20 62 75 | 66 66 65 72 20 2a 2f 0a |bject bu|ffer */.|
|00005360| 69 6e 74 09 65 72 72 63 | 6e 74 3b 09 09 09 2f 2a |int.errc|nt;.../*|
|00005370| 20 65 72 72 6f 72 20 63 | 6f 75 6e 74 20 20 20 2a | error c|ount   *|
|00005380| 2f 0a 69 6e 74 09 70 61 | 67 65 3b 09 09 09 2f 2a |/.int.pa|ge;.../*|
|00005390| 20 63 75 72 72 65 6e 74 | 20 70 61 67 65 20 6e 75 | current| page nu|
|000053a0| 6d 62 65 72 20 2a 2f 0a | 69 6e 74 09 70 6c 69 6e |mber */.|int.plin|
|000053b0| 65 3b 09 09 09 2f 2a 20 | 6c 69 6e 65 73 20 6f 6e |e;.../* |lines on|
|000053c0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 70 61 67 | the cur|rent pag|
|000053d0| 65 20 2a 2f 0a 63 68 61 | 72 09 74 69 74 6c 65 5b |e */.cha|r.title[|
|000053e0| 54 49 54 4c 45 5f 4c 4e | 2b 31 5d 3b 09 2f 2a 20 |TITLE_LN|+1];./* |
|000053f0| 70 72 6f 67 72 61 6d 20 | 6c 69 73 74 69 6e 67 20 |program |listing |
|00005400| 74 69 74 6c 65 2a 2f 0a | 73 74 72 75 63 74 20 73 |title*/.|struct s|
|00005410| 79 6d 20 2a 68 61 73 68 | 74 62 6c 5b 20 48 41 53 |ym *hash|tbl[ HAS|
|00005420| 48 20 5d 3b 09 2f 2a 20 | 73 79 6d 62 6f 6c 20 74 |H ];./* |symbol t|
|00005430| 61 62 6c 65 20 68 61 73 | 68 62 75 63 6b 65 74 73 |able has|hbuckets|
|00005440| 09 2a 2f 20 0a 0a 2f 2a | 0a 20 2a 20 55 73 65 72 |.*/ ../*|. * User|
|00005450| 20 73 79 6d 62 6f 6c 20 | 74 61 62 6c 65 2e 0a 20 | symbol |table.. |
|00005460| 2a 20 54 68 65 20 66 69 | 72 73 74 20 69 74 65 6d |* The fi|rst item|
|00005470| 20 6d 75 73 74 20 62 65 | 20 27 24 27 2e 0a 20 2a | must be| '$'.. *|
|00005480| 2f 0a 73 74 72 75 63 74 | 20 73 79 6d 20 75 73 74 |/.struct| sym ust|
|00005490| 5b 55 53 45 52 4d 41 58 | 5d 20 3d 20 7b 0a 09 22 |[USERMAX|] = {.."|
|000054a0| 24 22 2c 09 4e 55 4c 4c | 2c 4e 55 4c 4c 2c 09 53 |$",.NULL|,NULL,.S|
|000054b0| 5f 41 42 53 2c 09 09 53 | 46 5f 41 53 47 2c 09 30 |_ABS,..S|F_ASG,.0|
|000054c0| 0a 7d 3b 0a 0a 2f 2a 0a | 20 2a 20 4f 70 63 6f 64 |.};../*.| * Opcod|
|000054d0| 65 20 74 61 62 6c 65 2e | 0a 20 2a 20 41 6c 73 6f |e table.|. * Also|
|000054e0| 20 63 6f 6e 74 61 69 6e | 73 20 70 73 65 75 64 6f | contain|s pseudo|
|000054f0| 20 6f 70 65 72 61 74 69 | 6f 6e 73 20 61 6e 64 0a | operati|ons and.|
|00005500| 20 2a 20 72 65 67 69 73 | 74 65 72 73 2e 0a 20 2a | * regis|ters.. *|
|00005510| 2f 0a 73 74 72 75 63 74 | 20 73 79 6d 20 70 73 74 |/.struct| sym pst|
|00005520| 5b 5d 20 3d 20 7b 0a 09 | 22 62 22 2c 4e 55 4c 4c |[] = {..|"b",NULL|
|00005530| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 52 45 47 2c 09 09 |,NULL,..|S_REG,..|
|00005540| 30 2c 09 30 2c 09 4e 55 | 4c 4c 2c 0a 09 22 63 22 |0,.0,.NU|LL,.."c"|
|00005550| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 52 |,NULL,NU|LL,..S_R|
|00005560| 45 47 2c 09 09 30 2c 09 | 31 2c 09 4e 55 4c 4c 2c |EG,..0,.|1,.NULL,|
|00005570| 0a 09 22 64 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |.."d",NU|LL,NULL,|
|00005580| 09 09 53 5f 52 45 47 2c | 09 09 30 2c 09 32 2c 09 |..S_REG,|..0,.2,.|
|00005590| 4e 55 4c 4c 2c 0a 09 22 | 65 22 2c 4e 55 4c 4c 2c |NULL,.."|e",NULL,|
|000055a0| 4e 55 4c 4c 2c 09 09 53 | 5f 52 45 47 2c 09 09 30 |NULL,..S|_REG,..0|
|000055b0| 2c 09 33 2c 09 4e 55 4c | 4c 2c 0a 09 22 68 22 2c |,.3,.NUL|L,.."h",|
|000055c0| 4e 55 4c 4c 2c 4e 55 4c | 4c 2c 09 09 53 5f 52 45 |NULL,NUL|L,..S_RE|
|000055d0| 47 2c 09 09 30 2c 09 34 | 2c 09 4e 55 4c 4c 2c 0a |G,..0,.4|,.NULL,.|
|000055e0| 09 22 6c 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |."l",NUL|L,NULL,.|
|000055f0| 09 53 5f 52 45 47 2c 09 | 09 30 2c 09 35 2c 09 4e |.S_REG,.|.0,.5,.N|
|00005600| 55 4c 4c 2c 0a 09 22 6d | 22 2c 4e 55 4c 4c 2c 4e |ULL,.."m|",NULL,N|
|00005610| 55 4c 4c 2c 09 09 53 5f | 52 45 47 2c 09 09 30 2c |ULL,..S_|REG,..0,|
|00005620| 09 36 2c 09 4e 55 4c 4c | 2c 0a 09 22 61 22 2c 4e |.6,.NULL|,.."a",N|
|00005630| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 09 53 5f 52 45 47 |ULL,NULL|,..S_REG|
|00005640| 2c 09 09 30 2c 09 37 2c | 09 4e 55 4c 4c 2c 0a 09 |,..0,.7,|.NULL,..|
|00005650| 22 73 70 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |"sp",NUL|L,NULL,.|
|00005660| 09 53 5f 52 45 47 2c 09 | 09 30 2c 09 53 50 2c 09 |.S_REG,.|.0,.SP,.|
|00005670| 4e 55 4c 4c 2c 0a 09 22 | 70 73 77 22 2c 4e 55 4c |NULL,.."|psw",NUL|
|00005680| 4c 2c 4e 55 4c 4c 2c 09 | 09 53 5f 52 45 47 2c 09 |L,NULL,.|.S_REG,.|
|00005690| 09 30 2c 09 50 53 57 2c | 09 4e 55 4c 4c 2c 0a 09 |.0,.PSW,|.NULL,..|
|000056a0| 22 6f 72 67 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |"org",NU|LL,NULL,|
|000056b0| 09 09 53 5f 4f 52 47 2c | 09 09 30 2c 09 30 2c 09 |..S_ORG,|..0,.0,.|
|000056c0| 4e 55 4c 4c 2c 0a 09 22 | 65 6e 64 22 2c 4e 55 4c |NULL,.."|end",NUL|
|000056d0| 4c 2c 4e 55 4c 4c 2c 09 | 09 53 5f 45 4e 54 52 59 |L,NULL,.|.S_ENTRY|
|000056e0| 2c 09 30 2c 09 30 2c 09 | 4e 55 4c 4c 2c 0a 09 22 |,.0,.0,.|NULL,.."|
|000056f0| 64 62 22 2c 4e 55 4c 4c | 2c 4e 55 4c 4c 2c 09 09 |db",NULL|,NULL,..|
|00005700| 53 5f 42 59 54 45 2c 09 | 09 30 2c 09 30 2c 09 4e |S_BYTE,.|.0,.0,.N|
|00005710| 55 4c 4c 2c 0a 09 22 64 | 77 22 2c 4e 55 4c 4c 2c |ULL,.."d|w",NULL,|
|00005720| 4e 55 4c 4c 2c 09 09 53 | 5f 57 4f 52 44 2c 09 09 |NULL,..S|_WORD,..|
|00005730| 30 2c 09 30 2c 09 4e 55 | 4c 4c 2c 0a 09 22 64 73 |0,.0,.NU|LL,.."ds|
|00005740| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|00005750| 42 4c 4b 42 2c 09 09 30 | 2c 09 30 2c 09 4e 55 4c |BLKB,..0|,.0,.NUL|
|00005760| 4c 2c 0a 09 22 73 65 74 | 22 2c 4e 55 4c 4c 2c 4e |L,.."set|",NULL,N|
|00005770| 55 4c 4c 2c 09 09 53 5f | 53 45 54 2c 09 09 30 2c |ULL,..S_|SET,..0,|
|00005780| 09 30 2c 09 4e 55 4c 4c | 2c 0a 09 22 65 71 75 22 |.0,.NULL|,.."equ"|
|00005790| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 45 |,NULL,NU|LL,..S_E|
|000057a0| 51 55 2c 09 09 30 2c 09 | 30 2c 09 4e 55 4c 4c 2c |QU,..0,.|0,.NULL,|
|000057b0| 0a 09 22 69 66 22 2c 4e | 55 4c 4c 2c 4e 55 4c 4c |.."if",N|ULL,NULL|
|000057c0| 2c 09 09 53 5f 49 46 2c | 09 09 30 2c 09 30 2c 09 |,..S_IF,|..0,.0,.|
|000057d0| 4e 55 4c 4c 2c 0a 09 22 | 65 6e 64 69 66 22 2c 4e |NULL,.."|endif",N|
|000057e0| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 53 5f 45 4e 44 49 |ULL,NULL|,.S_ENDI|
|000057f0| 46 2c 09 30 2c 09 30 2c | 09 4e 55 4c 4c 2c 0a 09 |F,.0,.0,|.NULL,..|
|00005800| 22 6d 61 63 72 6f 22 2c | 4e 55 4c 4c 2c 4e 55 4c |"macro",|NULL,NUL|
|00005810| 4c 2c 09 53 5f 4d 41 43 | 52 4f 2c 09 30 2c 09 30 |L,.S_MAC|RO,.0,.0|
|00005820| 2c 09 4e 55 4c 4c 2c 0a | 09 22 65 6e 64 6d 22 2c |,.NULL,.|."endm",|
|00005830| 4e 55 4c 4c 2c 4e 55 4c | 4c 2c 09 09 53 5f 45 4e |NULL,NUL|L,..S_EN|
|00005840| 44 4d 2c 09 09 30 2c 09 | 30 2c 09 4e 55 4c 4c 2c |DM,..0,.|0,.NULL,|
|00005850| 0a 09 22 74 69 74 6c 65 | 22 2c 4e 55 4c 4c 2c 4e |.."title|",NULL,N|
|00005860| 55 4c 4c 2c 09 53 5f 4e | 41 4d 45 2c 09 09 30 2c |ULL,.S_N|AME,..0,|
|00005870| 09 30 2c 09 4e 55 4c 4c | 2c 0a 09 22 70 63 68 6c |.0,.NULL|,.."pchl|
|00005880| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|00005890| 4f 50 31 2c 09 09 30 2c | 09 30 33 35 31 2c 09 4e |OP1,..0,|.0351,.N|
|000058a0| 55 4c 4c 2c 0a 09 22 72 | 65 74 22 2c 4e 55 4c 4c |ULL,.."r|et",NULL|
|000058b0| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 4f 50 31 2c 09 09 |,NULL,..|S_OP1,..|
|000058c0| 30 2c 09 30 33 31 31 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0311,|.NULL,..|
|000058d0| 22 72 63 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |"rc",NUL|L,NULL,.|
|000058e0| 09 53 5f 4f 50 31 2c 09 | 09 30 2c 09 30 33 33 30 |.S_OP1,.|.0,.0330|
|000058f0| 2c 09 4e 55 4c 4c 2c 0a | 09 22 72 6e 63 22 2c 4e |,.NULL,.|."rnc",N|
|00005900| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 09 53 5f 4f 50 31 |ULL,NULL|,..S_OP1|
|00005910| 2c 09 09 30 2c 09 30 33 | 32 30 2c 09 4e 55 4c 4c |,..0,.03|20,.NULL|
|00005920| 2c 0a 09 22 72 7a 22 2c | 4e 55 4c 4c 2c 4e 55 4c |,.."rz",|NULL,NUL|
|00005930| 4c 2c 09 09 53 5f 4f 50 | 31 2c 09 09 30 2c 09 30 |L,..S_OP|1,..0,.0|
|00005940| 33 31 30 2c 09 4e 55 4c | 4c 2c 0a 09 22 72 6e 7a |310,.NUL|L,.."rnz|
|00005950| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|00005960| 4f 50 31 2c 09 09 30 2c | 09 30 33 30 30 2c 09 4e |OP1,..0,|.0300,.N|
|00005970| 55 4c 4c 2c 0a 09 22 72 | 6d 22 2c 4e 55 4c 4c 2c |ULL,.."r|m",NULL,|
|00005980| 4e 55 4c 4c 2c 09 09 53 | 5f 4f 50 31 2c 09 09 30 |NULL,..S|_OP1,..0|
|00005990| 2c 09 30 33 37 30 2c 09 | 4e 55 4c 4c 2c 0a 09 22 |,.0370,.|NULL,.."|
|000059a0| 72 70 22 2c 4e 55 4c 4c | 2c 4e 55 4c 4c 2c 09 09 |rp",NULL|,NULL,..|
|000059b0| 53 5f 4f 50 31 2c 09 09 | 30 2c 09 30 33 36 30 2c |S_OP1,..|0,.0360,|
|000059c0| 09 4e 55 4c 4c 2c 0a 09 | 22 72 70 65 22 2c 4e 55 |.NULL,..|"rpe",NU|
|000059d0| 4c 4c 2c 4e 55 4c 4c 2c | 09 09 53 5f 4f 50 31 2c |LL,NULL,|..S_OP1,|
|000059e0| 09 09 30 2c 09 30 33 35 | 30 2c 09 4e 55 4c 4c 2c |..0,.035|0,.NULL,|
|000059f0| 0a 09 22 72 70 6f 22 2c | 4e 55 4c 4c 2c 4e 55 4c |.."rpo",|NULL,NUL|
|00005a00| 4c 2c 09 09 53 5f 4f 50 | 31 2c 09 09 30 2c 09 30 |L,..S_OP|1,..0,.0|
|00005a10| 33 34 30 2c 09 4e 55 4c | 4c 2c 0a 09 22 78 63 68 |340,.NUL|L,.."xch|
|00005a20| 67 22 2c 4e 55 4c 4c 2c | 4e 55 4c 4c 2c 09 09 53 |g",NULL,|NULL,..S|
|00005a30| 5f 4f 50 31 2c 09 09 30 | 2c 09 30 33 35 33 2c 09 |_OP1,..0|,.0353,.|
|00005a40| 4e 55 4c 4c 2c 0a 09 22 | 73 70 68 6c 22 2c 4e 55 |NULL,.."|sphl",NU|
|00005a50| 4c 4c 2c 4e 55 4c 4c 2c | 09 09 53 5f 4f 50 31 2c |LL,NULL,|..S_OP1,|
|00005a60| 09 09 30 2c 09 30 33 37 | 31 2c 09 4e 55 4c 4c 2c |..0,.037|1,.NULL,|
|00005a70| 0a 09 22 63 6d 61 22 2c | 4e 55 4c 4c 2c 4e 55 4c |.."cma",|NULL,NUL|
|00005a80| 4c 2c 09 09 53 5f 4f 50 | 31 2c 09 09 30 2c 09 30 |L,..S_OP|1,..0,.0|
|00005a90| 30 35 37 2c 09 4e 55 4c | 4c 2c 0a 09 22 63 6d 63 |057,.NUL|L,.."cmc|
|00005aa0| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|00005ab0| 4f 50 31 2c 09 09 30 2c | 09 30 30 37 37 2c 09 4e |OP1,..0,|.0077,.N|
|00005ac0| 55 4c 4c 2c 0a 09 22 64 | 61 61 22 2c 4e 55 4c 4c |ULL,.."d|aa",NULL|
|00005ad0| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 4f 50 31 2c 09 09 |,NULL,..|S_OP1,..|
|00005ae0| 30 2c 09 30 30 34 37 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0047,|.NULL,..|
|00005af0| 22 72 6c 63 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |"rlc",NU|LL,NULL,|
|00005b00| 09 09 53 5f 4f 50 31 2c | 09 09 30 2c 09 30 30 30 |..S_OP1,|..0,.000|
|00005b10| 37 2c 09 4e 55 4c 4c 2c | 0a 09 22 72 72 63 22 2c |7,.NULL,|.."rrc",|
|00005b20| 4e 55 4c 4c 2c 4e 55 4c | 4c 2c 09 09 53 5f 4f 50 |NULL,NUL|L,..S_OP|
|00005b30| 31 2c 09 09 30 2c 09 30 | 30 31 37 2c 09 4e 55 4c |1,..0,.0|017,.NUL|
|00005b40| 4c 2c 0a 09 22 72 61 6c | 22 2c 4e 55 4c 4c 2c 4e |L,.."ral|",NULL,N|
|00005b50| 55 4c 4c 2c 09 09 53 5f | 4f 50 31 2c 09 09 30 2c |ULL,..S_|OP1,..0,|
|00005b60| 09 30 30 32 37 2c 09 4e | 55 4c 4c 2c 0a 09 22 72 |.0027,.N|ULL,.."r|
|00005b70| 61 72 22 2c 4e 55 4c 4c | 2c 4e 55 4c 4c 2c 09 09 |ar",NULL|,NULL,..|
|00005b80| 53 5f 4f 50 31 2c 09 09 | 30 2c 09 30 30 33 37 2c |S_OP1,..|0,.0037,|
|00005b90| 09 4e 55 4c 4c 2c 0a 09 | 22 78 74 68 6c 22 2c 4e |.NULL,..|"xthl",N|
|00005ba0| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 09 53 5f 4f 50 31 |ULL,NULL|,..S_OP1|
|00005bb0| 2c 09 09 30 2c 09 30 33 | 34 33 2c 09 4e 55 4c 4c |,..0,.03|43,.NULL|
|00005bc0| 2c 0a 09 22 65 69 22 2c | 4e 55 4c 4c 2c 4e 55 4c |,.."ei",|NULL,NUL|
|00005bd0| 4c 2c 09 09 53 5f 4f 50 | 31 2c 09 09 30 2c 09 30 |L,..S_OP|1,..0,.0|
|00005be0| 33 37 33 2c 09 4e 55 4c | 4c 2c 0a 09 22 64 69 22 |373,.NUL|L,.."di"|
|00005bf0| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 4f |,NULL,NU|LL,..S_O|
|00005c00| 50 31 2c 09 09 30 2c 09 | 30 33 36 33 2c 09 4e 55 |P1,..0,.|0363,.NU|
|00005c10| 4c 4c 2c 0a 09 22 73 74 | 63 22 2c 4e 55 4c 4c 2c |LL,.."st|c",NULL,|
|00005c20| 4e 55 4c 4c 2c 09 09 53 | 5f 4f 50 31 2c 09 09 30 |NULL,..S|_OP1,..0|
|00005c30| 2c 09 30 30 36 37 2c 09 | 4e 55 4c 4c 2c 0a 09 22 |,.0067,.|NULL,.."|
|00005c40| 6e 6f 70 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |nop",NUL|L,NULL,.|
|00005c50| 09 53 5f 4f 50 31 2c 09 | 09 30 2c 09 30 30 30 30 |.S_OP1,.|.0,.0000|
|00005c60| 2c 09 4e 55 4c 4c 2c 0a | 09 22 68 6c 74 22 2c 4e |,.NULL,.|."hlt",N|
|00005c70| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 09 53 5f 4f 50 31 |ULL,NULL|,..S_OP1|
|00005c80| 2c 09 09 30 2c 09 30 31 | 36 36 2c 09 4e 55 4c 4c |,..0,.01|66,.NULL|
|00005c90| 2c 0a 09 22 69 6e 22 2c | 4e 55 4c 4c 2c 4e 55 4c |,.."in",|NULL,NUL|
|00005ca0| 4c 2c 09 09 53 5f 4f 50 | 32 2c 09 09 30 2c 09 30 |L,..S_OP|2,..0,.0|
|00005cb0| 33 33 33 2c 09 4e 55 4c | 4c 2c 0a 09 22 6f 75 74 |333,.NUL|L,.."out|
|00005cc0| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|00005cd0| 4f 50 32 2c 09 09 30 2c | 09 30 33 32 33 2c 09 4e |OP2,..0,|.0323,.N|
|00005ce0| 55 4c 4c 2c 0a 09 22 61 | 64 69 22 2c 4e 55 4c 4c |ULL,.."a|di",NULL|
|00005cf0| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 4f 50 32 2c 09 09 |,NULL,..|S_OP2,..|
|00005d00| 30 2c 09 30 33 30 36 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0306,|.NULL,..|
|00005d10| 22 61 63 69 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |"aci",NU|LL,NULL,|
|00005d20| 09 09 53 5f 4f 50 32 2c | 09 09 30 2c 09 30 33 31 |..S_OP2,|..0,.031|
|00005d30| 36 2c 09 4e 55 4c 4c 2c | 0a 09 22 73 75 69 22 2c |6,.NULL,|.."sui",|
|00005d40| 4e 55 4c 4c 2c 4e 55 4c | 4c 2c 09 09 53 5f 4f 50 |NULL,NUL|L,..S_OP|
|00005d50| 32 2c 09 09 30 2c 09 30 | 33 32 36 2c 09 4e 55 4c |2,..0,.0|326,.NUL|
|00005d60| 4c 2c 0a 09 22 73 62 69 | 22 2c 4e 55 4c 4c 2c 4e |L,.."sbi|",NULL,N|
|00005d70| 55 4c 4c 2c 09 09 53 5f | 4f 50 32 2c 09 09 30 2c |ULL,..S_|OP2,..0,|
|00005d80| 09 30 33 33 36 2c 09 4e | 55 4c 4c 2c 0a 09 22 61 |.0336,.N|ULL,.."a|
|00005d90| 6e 69 22 2c 4e 55 4c 4c | 2c 4e 55 4c 4c 2c 09 09 |ni",NULL|,NULL,..|
|00005da0| 53 5f 4f 50 32 2c 09 09 | 30 2c 09 30 33 34 36 2c |S_OP2,..|0,.0346,|
|00005db0| 09 4e 55 4c 4c 2c 0a 09 | 22 78 72 69 22 2c 4e 55 |.NULL,..|"xri",NU|
|00005dc0| 4c 4c 2c 4e 55 4c 4c 2c | 09 09 53 5f 4f 50 32 2c |LL,NULL,|..S_OP2,|
|00005dd0| 09 09 30 2c 09 30 33 35 | 36 2c 09 4e 55 4c 4c 2c |..0,.035|6,.NULL,|
|00005de0| 0a 09 22 6f 72 69 22 2c | 4e 55 4c 4c 2c 4e 55 4c |.."ori",|NULL,NUL|
|00005df0| 4c 2c 09 09 53 5f 4f 50 | 32 2c 09 09 30 2c 09 30 |L,..S_OP|2,..0,.0|
|00005e00| 33 36 36 2c 09 4e 55 4c | 4c 2c 0a 09 22 63 70 69 |366,.NUL|L,.."cpi|
|00005e10| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|00005e20| 4f 50 32 2c 09 09 30 2c | 09 30 33 37 36 2c 09 4e |OP2,..0,|.0376,.N|
|00005e30| 55 4c 4c 2c 0a 09 22 6d | 76 69 22 2c 4e 55 4c 4c |ULL,.."m|vi",NULL|
|00005e40| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 4f 50 33 2c 09 09 |,NULL,..|S_OP3,..|
|00005e50| 30 2c 09 30 30 30 36 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0006,|.NULL,..|
|00005e60| 22 6d 6f 76 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |"mov",NU|LL,NULL,|
|00005e70| 09 09 53 5f 4f 50 34 2c | 09 09 30 2c 09 30 31 30 |..S_OP4,|..0,.010|
|00005e80| 30 2c 09 4e 55 4c 4c 2c | 0a 09 22 6c 64 61 78 22 |0,.NULL,|.."ldax"|
|00005e90| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 4f |,NULL,NU|LL,..S_O|
|00005ea0| 50 35 2c 09 09 30 2c 09 | 30 30 31 32 2c 09 4e 55 |P5,..0,.|0012,.NU|
|00005eb0| 4c 4c 2c 0a 09 22 73 74 | 61 78 22 2c 4e 55 4c 4c |LL,.."st|ax",NULL|
|00005ec0| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 4f 50 35 2c 09 09 |,NULL,..|S_OP5,..|
|00005ed0| 30 2c 09 30 30 30 32 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0002,|.NULL,..|
|00005ee0| 22 64 61 64 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |"dad",NU|LL,NULL,|
|00005ef0| 09 09 53 5f 4f 50 36 2c | 09 09 30 2c 09 30 30 31 |..S_OP6,|..0,.001|
|00005f00| 31 2c 09 4e 55 4c 4c 2c | 0a 09 22 69 6e 78 22 2c |1,.NULL,|.."inx",|
|00005f10| 4e 55 4c 4c 2c 4e 55 4c | 4c 2c 09 09 53 5f 4f 50 |NULL,NUL|L,..S_OP|
|00005f20| 36 2c 09 09 30 2c 09 30 | 30 30 33 2c 09 4e 55 4c |6,..0,.0|003,.NUL|
|00005f30| 4c 2c 0a 09 22 64 63 78 | 22 2c 4e 55 4c 4c 2c 4e |L,.."dcx|",NULL,N|
|00005f40| 55 4c 4c 2c 09 09 53 5f | 4f 50 36 2c 09 09 30 2c |ULL,..S_|OP6,..0,|
|00005f50| 09 30 30 31 33 2c 09 4e | 55 4c 4c 2c 0a 09 22 70 |.0013,.N|ULL,.."p|
|00005f60| 75 73 68 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |ush",NUL|L,NULL,.|
|00005f70| 09 53 5f 4f 50 37 2c 09 | 09 30 2c 09 30 33 30 35 |.S_OP7,.|.0,.0305|
|00005f80| 2c 09 4e 55 4c 4c 2c 0a | 09 22 70 6f 70 22 2c 4e |,.NULL,.|."pop",N|
|00005f90| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 09 53 5f 4f 50 37 |ULL,NULL|,..S_OP7|
|00005fa0| 2c 09 09 30 2c 09 30 33 | 30 31 2c 09 4e 55 4c 4c |,..0,.03|01,.NULL|
|00005fb0| 2c 0a 09 22 72 73 74 22 | 2c 4e 55 4c 4c 2c 4e 55 |,.."rst"|,NULL,NU|
|00005fc0| 4c 4c 2c 09 09 53 5f 4f | 50 38 2c 09 09 30 2c 09 |LL,..S_O|P8,..0,.|
|00005fd0| 30 33 30 37 2c 09 4e 55 | 4c 4c 2c 0a 09 22 61 64 |0307,.NU|LL,.."ad|
|00005fe0| 64 22 2c 4e 55 4c 4c 2c | 4e 55 4c 4c 2c 09 09 53 |d",NULL,|NULL,..S|
|00005ff0| 5f 4f 50 39 2c 09 09 30 | 2c 09 30 32 30 30 2c 09 |_OP9,..0|,.0200,.|
|00006000| 4e 55 4c 4c 2c 0a 09 22 | 73 75 62 22 2c 4e 55 4c |NULL,.."|sub",NUL|
|00006010| 4c 2c 4e 55 4c 4c 2c 09 | 09 53 5f 4f 50 39 2c 09 |L,NULL,.|.S_OP9,.|
|00006020| 09 30 2c 09 30 32 32 30 | 2c 09 4e 55 4c 4c 2c 0a |.0,.0220|,.NULL,.|
|00006030| 09 22 61 64 63 22 2c 4e | 55 4c 4c 2c 4e 55 4c 4c |."adc",N|ULL,NULL|
|00006040| 2c 09 09 53 5f 4f 50 39 | 2c 09 09 30 2c 09 30 32 |,..S_OP9|,..0,.02|
|00006050| 31 30 2c 09 4e 55 4c 4c | 2c 0a 09 22 73 62 62 22 |10,.NULL|,.."sbb"|
|00006060| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 4f |,NULL,NU|LL,..S_O|
|00006070| 50 39 2c 09 09 30 2c 09 | 30 32 33 30 2c 09 4e 55 |P9,..0,.|0230,.NU|
|00006080| 4c 4c 2c 0a 09 22 61 6e | 61 22 2c 4e 55 4c 4c 2c |LL,.."an|a",NULL,|
|00006090| 4e 55 4c 4c 2c 09 09 53 | 5f 4f 50 39 2c 09 09 30 |NULL,..S|_OP9,..0|
|000060a0| 2c 09 30 32 34 30 2c 09 | 4e 55 4c 4c 2c 0a 09 22 |,.0240,.|NULL,.."|
|000060b0| 78 72 61 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |xra",NUL|L,NULL,.|
|000060c0| 09 53 5f 4f 50 39 2c 09 | 09 30 2c 09 30 32 35 30 |.S_OP9,.|.0,.0250|
|000060d0| 2c 09 4e 55 4c 4c 2c 0a | 09 22 6f 72 61 22 2c 4e |,.NULL,.|."ora",N|
|000060e0| 55 4c 4c 2c 4e 55 4c 4c | 2c 09 09 53 5f 4f 50 39 |ULL,NULL|,..S_OP9|
|000060f0| 2c 09 09 30 2c 09 30 32 | 36 30 2c 09 4e 55 4c 4c |,..0,.02|60,.NULL|
|00006100| 2c 0a 09 22 63 6d 70 22 | 2c 4e 55 4c 4c 2c 4e 55 |,.."cmp"|,NULL,NU|
|00006110| 4c 4c 2c 09 09 53 5f 4f | 50 39 2c 09 09 30 2c 09 |LL,..S_O|P9,..0,.|
|00006120| 30 32 37 30 2c 09 4e 55 | 4c 4c 2c 0a 09 22 69 6e |0270,.NU|LL,.."in|
|00006130| 72 22 2c 4e 55 4c 4c 2c | 4e 55 4c 4c 2c 09 09 53 |r",NULL,|NULL,..S|
|00006140| 5f 4f 50 39 2c 09 09 30 | 2c 09 30 30 30 34 2c 09 |_OP9,..0|,.0004,.|
|00006150| 4e 55 4c 4c 2c 0a 09 22 | 64 63 72 22 2c 4e 55 4c |NULL,.."|dcr",NUL|
|00006160| 4c 2c 4e 55 4c 4c 2c 09 | 09 53 5f 4f 50 39 2c 09 |L,NULL,.|.S_OP9,.|
|00006170| 09 30 2c 09 30 30 30 35 | 2c 09 4e 55 4c 4c 2c 0a |.0,.0005|,.NULL,.|
|00006180| 09 22 6c 78 69 22 2c 4e | 55 4c 4c 2c 4e 55 4c 4c |."lxi",N|ULL,NULL|
|00006190| 2c 09 09 53 5f 4f 50 31 | 30 2c 09 09 30 2c 09 30 |,..S_OP1|0,..0,.0|
|000061a0| 30 30 31 2c 09 4e 55 4c | 4c 2c 0a 09 22 6a 70 6f |001,.NUL|L,.."jpo|
|000061b0| 22 2c 4e 55 4c 4c 2c 4e | 55 4c 4c 2c 09 09 53 5f |",NULL,N|ULL,..S_|
|000061c0| 4f 50 31 31 2c 09 09 30 | 2c 09 30 33 34 32 2c 09 |OP11,..0|,.0342,.|
|000061d0| 4e 55 4c 4c 2c 0a 09 22 | 6a 70 65 22 2c 4e 55 4c |NULL,.."|jpe",NUL|
|000061e0| 4c 2c 4e 55 4c 4c 2c 09 | 09 53 5f 4f 50 31 31 2c |L,NULL,.|.S_OP11,|
|000061f0| 09 09 30 2c 09 30 33 35 | 32 2c 09 4e 55 4c 4c 2c |..0,.035|2,.NULL,|
|00006200| 0a 09 22 6a 6d 22 2c 4e | 55 4c 4c 2c 4e 55 4c 4c |.."jm",N|ULL,NULL|
|00006210| 2c 09 09 53 5f 4f 50 31 | 31 2c 09 09 30 2c 09 30 |,..S_OP1|1,..0,.0|
|00006220| 33 37 32 2c 09 4e 55 4c | 4c 2c 0a 09 22 6a 70 22 |372,.NUL|L,.."jp"|
|00006230| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 4f |,NULL,NU|LL,..S_O|
|00006240| 50 31 31 2c 09 09 30 2c | 09 30 33 36 32 2c 09 4e |P11,..0,|.0362,.N|
|00006250| 55 4c 4c 2c 0a 09 22 6a | 6e 7a 22 2c 4e 55 4c 4c |ULL,.."j|nz",NULL|
|00006260| 2c 4e 55 4c 4c 2c 09 09 | 53 5f 4f 50 31 31 2c 09 |,NULL,..|S_OP11,.|
|00006270| 09 30 2c 09 30 33 30 32 | 2c 09 4e 55 4c 4c 2c 0a |.0,.0302|,.NULL,.|
|00006280| 09 22 6a 7a 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |."jz",NU|LL,NULL,|
|00006290| 09 09 53 5f 4f 50 31 31 | 2c 09 09 30 2c 09 30 33 |..S_OP11|,..0,.03|
|000062a0| 31 32 2c 09 4e 55 4c 4c | 2c 0a 09 22 6a 6e 63 22 |12,.NULL|,.."jnc"|
|000062b0| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 4f |,NULL,NU|LL,..S_O|
|000062c0| 50 31 31 2c 09 09 30 2c | 09 30 33 32 32 2c 09 4e |P11,..0,|.0322,.N|
|000062d0| 55 4c 4c 2c 0a 09 22 6a | 63 22 2c 4e 55 4c 4c 2c |ULL,.."j|c",NULL,|
|000062e0| 4e 55 4c 4c 2c 09 09 53 | 5f 4f 50 31 31 2c 09 09 |NULL,..S|_OP11,..|
|000062f0| 30 2c 09 30 33 33 32 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0332,|.NULL,..|
|00006300| 22 63 70 6f 22 2c 4e 55 | 4c 4c 2c 4e 55 4c 4c 2c |"cpo",NU|LL,NULL,|
|00006310| 09 09 53 5f 4f 50 31 31 | 2c 09 09 30 2c 09 30 33 |..S_OP11|,..0,.03|
|00006320| 34 34 2c 09 4e 55 4c 4c | 2c 0a 09 22 63 70 65 22 |44,.NULL|,.."cpe"|
|00006330| 2c 4e 55 4c 4c 2c 4e 55 | 4c 4c 2c 09 09 53 5f 4f |,NULL,NU|LL,..S_O|
|00006340| 50 31 31 2c 09 09 30 2c | 09 30 33 35 34 2c 09 4e |P11,..0,|.0354,.N|
|00006350| 55 4c 4c 2c 0a 09 22 63 | 6d 22 2c 4e 55 4c 4c 2c |ULL,.."c|m",NULL,|
|00006360| 4e 55 4c 4c 2c 09 09 53 | 5f 4f 50 31 31 2c 09 09 |NULL,..S|_OP11,..|
|00006370| 30 2c 09 30 33 37 34 2c | 09 4e 55 4c 4c 2c 0a 09 |0,.0374,|.NULL,..|
|00006380| 22 63 70 22 2c 4e 55 4c | 4c 2c 4e 55 4c 4c 2c 09 |"cp",NUL|L,NULL,.|
|00006390| 09 53 5f 4f 50 31 31 2c | 09 09 30 2c 09 30 33 36 |.S_OP11,|..0,.036|
|000063a0| 34 2c 09 4e 55 4c 4c 2c | 0a 09 22 63 6e 7a 22 2c |4,.NULL,|.."cnz",|
|000063b0| 4e 55 4c 4c 2c 4e 55 4c | 4c 2c 09 09 53 5f 4f 50 |NULL,NUL|L,..S_OP|
|000063c0| 31 31 2c 09 09 30 2c 09 | 30 33 30 34 2c 09 4e 55 |11,..0,.|0304,.NU|
|000063d0| 4c 4c 2c 0a 09 22 63 7a | 22 2c 4e 55 4c 4c 2c 4e |LL,.."cz|",NULL,N|
|000063e0| 55 4c 4c 2c 09 09 53 5f | 4f 50 31 31 2c 09 09 30 |ULL,..S_|OP11,..0|
|000063f0| 2c 09 30 33 31 34 2c 09 | 4e 55 4c 4c 2c 0a 09 22 |,.0314,.|NULL,.."|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.