/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / unix_c / printers / txdvtlsr.tar

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 74 65 78 64 76 69 2d 74 | 6f 2d 6c 61 73 65 72 6a |texdvi-t|o-laserj|
|00000010| 65 74 2f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |et/.....|........|
|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 34 30 35 33 |      0 | 4404053|
|00000090| 31 35 33 20 20 20 37 35 | 34 34 00 20 00 00 00 00 |153   75|44. ....|
|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| 74 65 78 64 76 69 2d 74 | 6f 2d 6c 61 73 65 72 6a |texdvi-t|o-laserj|
|00000210| 65 74 2f 53 68 61 72 46 | 69 6c 65 2e 48 65 61 64 |et/SharF|ile.Head|
|00000220| 65 72 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ers.....|........|
|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 30 37 35 32 20 | 20 34 34 30 34 30 35 33 |  10752 | 4404053|
|00000290| 31 35 36 20 20 31 32 36 | 35 33 00 20 00 00 00 00 |156  126|53. ....|
|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| 3d 3d 3d 20 74 65 78 64 | 76 69 2d 74 6f 2d 6c 61 |=== texd|vi-to-la|
|00000410| 73 65 72 6a 65 74 2e 73 | 68 61 72 31 20 3d 3d 3d |serjet.s|har1 ===|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 0a 41 | 72 74 69 63 6c 65 20 32 |======.A|rticle 2|
|00000440| 33 39 20 6f 66 20 6d 6f | 64 2e 73 6f 75 72 63 65 |39 of mo|d.source|
|00000450| 73 3a 0a 52 65 6c 61 79 | 2d 56 65 72 73 69 6f 6e |s:.Relay|-Version|
|00000460| 3a 20 76 65 72 73 69 6f | 6e 20 42 20 32 2e 31 30 |: versio|n B 2.10|
|00000470| 2e 33 20 34 2e 33 62 64 | 73 20 62 65 74 61 20 36 |.3 4.3bd|s beta 6|
|00000480| 2f 36 2f 38 35 3b 20 73 | 69 74 65 20 70 75 63 63 |/6/85; s|ite pucc|
|00000490| 2d 6a 0a 50 61 74 68 3a | 20 70 75 63 63 2d 6a 21 |-j.Path:| pucc-j!|
|000004a0| 70 75 72 2d 65 65 21 69 | 6e 75 78 63 21 69 68 6e |pur-ee!i|nuxc!ihn|
|000004b0| 70 34 21 6d 68 75 78 6e | 21 6d 68 75 78 72 21 75 |p4!mhuxn|!mhuxr!u|
|000004c0| 6c 79 73 73 65 73 21 61 | 6c 6c 65 67 72 61 21 70 |lysses!a|llegra!p|
|000004d0| 72 69 6e 63 65 74 6f 6e | 21 63 61 69 70 21 70 79 |rinceton|!caip!py|
|000004e0| 72 6e 6a 21 6d 69 72 72 | 6f 72 21 73 6f 75 72 63 |rnj!mirr|or!sourc|
|000004f0| 65 73 2d 72 65 71 75 65 | 73 74 0a 46 72 6f 6d 3a |es-reque|st.From:|
|00000500| 20 73 6f 75 72 63 65 73 | 2d 72 65 71 75 65 73 74 | sources|-request|
|00000510| 40 6d 69 72 72 6f 72 2e | 55 55 43 50 0a 4e 65 77 |@mirror.|UUCP.New|
|00000520| 73 67 72 6f 75 70 73 3a | 20 6d 6f 64 2e 73 6f 75 |sgroups:| mod.sou|
|00000530| 72 63 65 73 0a 53 75 62 | 6a 65 63 74 3a 20 76 30 |rces.Sub|ject: v0|
|00000540| 36 69 30 31 33 3a 20 20 | 54 65 58 20 44 56 49 20 |6i013:  |TeX DVI |
|00000550| 64 72 69 76 65 72 20 66 | 6f 72 20 4c 61 73 65 72 |driver f|or Laser|
|00000560| 4a 65 74 2b 20 28 74 65 | 78 64 76 69 32 6c 6a 29 |Jet+ (te|xdvi2lj)|
|00000570| 2c 20 50 61 72 74 31 2f | 33 0a 4d 65 73 73 61 67 |, Part1/|3.Messag|
|00000580| 65 2d 49 44 3a 20 3c 38 | 38 40 6d 69 72 72 6f 72 |e-ID: <8|8@mirror|
|00000590| 2e 55 55 43 50 3e 0a 44 | 61 74 65 3a 20 32 31 20 |.UUCP>.D|ate: 21 |
|000005a0| 4a 75 6e 20 38 36 20 32 | 32 3a 30 37 3a 32 37 20 |Jun 86 2|2:07:27 |
|000005b0| 47 4d 54 0a 44 61 74 65 | 2d 52 65 63 65 69 76 65 |GMT.Date|-Receive|
|000005c0| 64 3a 20 32 33 20 4a 75 | 6e 20 38 36 20 31 38 3a |d: 23 Ju|n 86 18:|
|000005d0| 31 39 3a 31 31 20 47 4d | 54 0a 53 65 6e 64 65 72 |19:11 GM|T.Sender|
|000005e0| 3a 20 72 73 40 6d 69 72 | 72 6f 72 2e 55 55 43 50 |: rs@mir|ror.UUCP|
|000005f0| 0a 4c 69 6e 65 73 3a 20 | 31 32 31 31 0a 41 70 70 |.Lines: |1211.App|
|00000600| 72 6f 76 65 64 3a 20 72 | 73 40 6d 69 72 72 6f 72 |roved: r|s@mirror|
|00000610| 2e 55 55 43 50 0a 0a 53 | 75 62 6d 69 74 74 65 64 |.UUCP..S|ubmitted|
|00000620| 20 62 79 3a 20 54 6f 72 | 20 4c 69 6c 6c 71 76 69 | by: Tor| Lillqvi|
|00000630| 73 74 20 3c 74 61 6c 63 | 6f 74 74 21 73 65 69 73 |st <talc|ott!seis|
|00000640| 6d 6f 21 6d 63 76 61 78 | 21 73 61 6e 74 72 61 21 |mo!mcvax|!santra!|
|00000650| 74 6d 6c 3e 0a 4d 6f 64 | 2e 73 6f 75 72 63 65 73 |tml>.Mod|.sources|
|00000660| 3a 20 56 6f 6c 75 6d 65 | 20 36 2c 20 49 73 73 75 |: Volume| 6, Issu|
|00000670| 65 20 31 33 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |e 13.Arc|hive-nam|
|00000680| 65 3a 20 74 65 78 64 76 | 69 32 6c 6a 2f 50 61 72 |e: texdv|i2lj/Par|
|00000690| 74 31 0a 0a 5b 20 49 20 | 68 61 76 65 20 73 70 6c |t1..[ I |have spl|
|000006a0| 69 74 20 74 68 69 73 20 | 73 75 62 6d 69 73 73 69 |it this |submissi|
|000006b0| 6f 6e 20 69 6e 74 6f 20 | 74 68 72 65 65 20 70 69 |on into |three pi|
|000006c0| 65 63 65 73 20 6e 61 6d | 65 64 20 4c 4a 2e 31 2e |eces nam|ed LJ.1.|
|000006d0| 33 2c 0a 20 20 4c 4a 2e | 32 2e 33 2c 20 61 6e 64 |3,.  LJ.|2.3, and|
|000006e0| 20 4c 4a 2e 32 2e 33 2e | 20 20 55 6e 70 61 63 6b | LJ.2.3.|  Unpack|
|000006f0| 20 65 61 63 68 20 70 69 | 65 63 65 20 61 6e 64 20 | each pi|ece and |
|00000700| 64 6f 0a 09 20 20 22 63 | 61 74 20 4c 4a 2e 5b 31 |do..  "c|at LJ.[1|
|00000710| 32 33 5d 2e 33 20 3e 64 | 76 69 32 6c 6a 2e 77 65 |23].3 >d|vi2lj.we|
|00000720| 62 22 0a 20 20 54 68 69 | 73 20 69 73 20 6e 6f 74 |b".  Thi|s is not|
|00000730| 20 67 72 65 61 74 2c 20 | 62 75 74 20 69 73 20 74 | great, |but is t|
|00000740| 68 65 20 62 65 73 74 20 | 77 61 79 20 49 20 63 6f |he best |way I co|
|00000750| 75 6c 64 20 74 68 69 6e | 6b 20 6f 66 20 74 6f 0a |uld thin|k of to.|
|00000760| 20 20 64 69 73 74 72 69 | 62 75 74 65 20 61 20 6c |  distri|bute a l|
|00000770| 61 72 67 65 20 73 69 6e | 67 6c 65 2d 66 69 6c 65 |arge sin|gle-file|
|00000780| 20 73 6f 75 72 63 65 3b | 20 69 66 20 79 6f 75 20 | source;| if you |
|00000790| 68 61 76 65 20 61 20 62 | 65 74 74 65 72 0a 20 20 |have a b|etter.  |
|000007a0| 77 61 79 2c 20 70 6c 65 | 61 73 65 20 6c 65 74 20 |way, ple|ase let |
|000007b0| 6d 65 20 6b 6e 6f 77 2e | 20 20 2d 2d 72 24 5d 0a |me know.|  --r$].|
|000007c0| 0a 48 65 72 65 20 69 73 | 20 61 20 44 56 49 20 28 |.Here is| a DVI (|
|000007d0| 54 65 58 20 6f 75 74 70 | 75 74 29 20 64 72 69 76 |TeX outp|ut) driv|
|000007e0| 65 72 20 66 6f 72 20 74 | 68 65 20 48 50 20 4c 61 |er for t|he HP La|
|000007f0| 73 65 72 4a 65 74 2b 2e | 20 20 54 68 69 73 20 76 |serJet+.|  This v|
|00000800| 65 72 73 69 6f 6e 0a 69 | 73 20 66 6f 72 20 74 68 |ersion.i|s for th|
|00000810| 65 20 50 61 73 63 61 6c | 2f 31 30 30 30 20 63 6f |e Pascal|/1000 co|
|00000820| 6d 70 69 6c 65 72 20 6f | 6e 20 48 50 31 30 30 30 |mpiler o|n HP1000|
|00000830| 20 6d 61 63 68 69 6e 65 | 73 20 72 75 6e 6e 69 6e | machine|s runnin|
|00000840| 67 20 52 54 45 2d 41 20 | 28 61 6e 64 0a 6d 79 20 |g RTE-A |(and.my |
|00000850| 54 65 58 20 69 6d 70 6c | 65 6d 65 6e 74 61 74 69 |TeX impl|ementati|
|00000860| 6f 6e 29 2c 20 62 75 74 | 20 69 74 20 73 68 6f 75 |on), but| it shou|
|00000870| 6c 64 20 62 65 20 66 61 | 69 72 6c 79 20 65 61 73 |ld be fa|irly eas|
|00000880| 79 20 74 6f 20 63 6f 6e | 76 65 72 74 20 74 6f 0a |y to con|vert to.|
|00000890| 6f 74 68 65 72 20 54 65 | 58 20 69 6d 70 6c 65 6d |other Te|X implem|
|000008a0| 65 6e 74 61 74 69 6f 6e | 73 2c 20 63 6f 6d 70 69 |entation|s, compi|
|000008b0| 6c 65 72 73 20 61 6e 64 | 20 6f 70 65 72 61 74 69 |lers and| operati|
|000008c0| 6e 67 20 73 79 73 74 65 | 6d 73 2e 0a 0a 44 56 49 |ng syste|ms...DVI|
|000008d0| 70 6c 75 73 20 69 73 20 | 62 61 73 65 64 20 6f 6e |plus is |based on|
|000008e0| 20 74 68 65 20 44 56 49 | 74 79 70 65 20 70 72 6f | the DVI|type pro|
|000008f0| 67 72 61 6d 2e 20 49 74 | 20 64 6f 77 6e 6c 6f 61 |gram. It| downloa|
|00000900| 64 73 20 6f 6e 6c 79 20 | 74 68 6f 73 65 0a 63 68 |ds only |those.ch|
|00000910| 61 72 61 63 74 65 72 73 | 20 61 63 74 75 61 6c 6c |aracters| actuall|
|00000920| 79 20 75 73 65 64 2e 20 | 50 61 67 65 73 20 61 72 |y used. |Pages ar|
|00000930| 65 20 70 72 69 6e 74 65 | 64 20 69 6e 20 72 65 76 |e printe|d in rev|
|00000940| 65 72 73 65 2e 0a 0a 23 | 20 54 68 69 73 20 69 73 |erse...#| This is|
|00000950| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000960| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 74 68 69 |.  Remov|e anythi|
|00000970| 6e 67 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 6c |ng befor|e this l|
|00000980| 69 6e 65 2c 0a 23 20 74 | 68 65 6e 20 75 6e 70 61 |ine,.# t|hen unpa|
|00000990| 63 6b 20 69 74 20 62 79 | 20 73 61 76 69 6e 67 20 |ck it by| saving |
|000009a0| 69 74 20 69 6e 20 61 20 | 66 69 6c 65 20 61 6e 64 |it in a |file and|
|000009b0| 20 74 79 70 69 6e 67 20 | 22 73 68 20 66 69 6c 65 | typing |"sh file|
|000009c0| 22 2e 0a 23 20 43 6f 6e | 74 65 6e 74 73 3a 20 20 |"..# Con|tents:  |
|000009d0| 4c 4a 2e 31 2e 33 0a 20 | 0a 3d 3d 3d 20 74 65 78 |LJ.1.3. |.=== tex|
|000009e0| 64 76 69 2d 74 6f 2d 6c | 61 73 65 72 6a 65 74 2e |dvi-to-l|aserjet.|
|000009f0| 73 68 61 72 32 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |shar2 ==|========|
|00000a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0a |========|=======.|
|00000a10| 41 72 74 69 63 6c 65 20 | 32 34 31 20 6f 66 20 6d |Article |241 of m|
|00000a20| 6f 64 2e 73 6f 75 72 63 | 65 73 3a 0a 52 65 6c 61 |od.sourc|es:.Rela|
|00000a30| 79 2d 56 65 72 73 69 6f | 6e 3a 20 76 65 72 73 69 |y-Versio|n: versi|
|00000a40| 6f 6e 20 42 20 32 2e 31 | 30 2e 33 20 34 2e 33 62 |on B 2.1|0.3 4.3b|
|00000a50| 64 73 20 62 65 74 61 20 | 36 2f 36 2f 38 35 3b 20 |ds beta |6/6/85; |
|00000a60| 73 69 74 65 20 70 75 63 | 63 2d 6a 0a 50 61 74 68 |site puc|c-j.Path|
|00000a70| 3a 20 70 75 63 63 2d 6a | 21 70 75 72 2d 65 65 21 |: pucc-j|!pur-ee!|
|00000a80| 69 6e 75 78 63 21 69 68 | 6e 70 34 21 63 62 6f 73 |inuxc!ih|np4!cbos|
|00000a90| 67 64 21 6d 69 72 72 6f | 72 21 73 6f 75 72 63 65 |gd!mirro|r!source|
|00000aa0| 73 2d 72 65 71 75 65 73 | 74 0a 46 72 6f 6d 3a 20 |s-reques|t.From: |
|00000ab0| 73 6f 75 72 63 65 73 2d | 72 65 71 75 65 73 74 40 |sources-|request@|
|00000ac0| 6d 69 72 72 6f 72 2e 55 | 55 43 50 0a 4e 65 77 73 |mirror.U|UCP.News|
|00000ad0| 67 72 6f 75 70 73 3a 20 | 6d 6f 64 2e 73 6f 75 72 |groups: |mod.sour|
|00000ae0| 63 65 73 0a 53 75 62 6a | 65 63 74 3a 20 76 30 36 |ces.Subj|ect: v06|
|00000af0| 69 30 31 34 3a 20 20 54 | 65 58 20 44 56 49 20 64 |i014:  T|eX DVI d|
|00000b00| 72 69 76 65 72 20 66 6f | 72 20 4c 61 73 65 72 4a |river fo|r LaserJ|
|00000b10| 65 74 2b 20 28 74 65 78 | 64 76 69 32 6c 6a 29 2c |et+ (tex|dvi2lj),|
|00000b20| 20 50 61 72 74 32 2f 33 | 0a 4d 65 73 73 61 67 65 | Part2/3|.Message|
|00000b30| 2d 49 44 3a 20 3c 39 34 | 40 6d 69 72 72 6f 72 2e |-ID: <94|@mirror.|
|00000b40| 55 55 43 50 3e 0a 44 61 | 74 65 3a 20 32 32 20 4a |UUCP>.Da|te: 22 J|
|00000b50| 75 6e 20 38 36 20 31 38 | 3a 31 38 3a 33 37 20 47 |un 86 18|:18:37 G|
|00000b60| 4d 54 0a 44 61 74 65 2d | 52 65 63 65 69 76 65 64 |MT.Date-|Received|
|00000b70| 3a 20 32 35 20 4a 75 6e | 20 38 36 20 30 36 3a 35 |: 25 Jun| 86 06:5|
|00000b80| 36 3a 35 38 20 47 4d 54 | 0a 53 65 6e 64 65 72 3a |6:58 GMT|.Sender:|
|00000b90| 20 72 73 40 6d 69 72 72 | 6f 72 2e 55 55 43 50 0a | rs@mirr|or.UUCP.|
|00000ba0| 4c 69 6e 65 73 3a 20 37 | 36 32 0a 41 70 70 72 6f |Lines: 7|62.Appro|
|00000bb0| 76 65 64 3a 20 72 73 40 | 6d 69 72 72 6f 72 2e 55 |ved: rs@|mirror.U|
|00000bc0| 55 43 50 0a 0a 53 75 62 | 6d 69 74 74 65 64 20 62 |UCP..Sub|mitted b|
|00000bd0| 79 3a 20 54 6f 72 20 4c | 69 6c 6c 71 76 69 73 74 |y: Tor L|illqvist|
|00000be0| 20 3c 74 61 6c 63 6f 74 | 74 21 73 65 69 73 6d 6f | <talcot|t!seismo|
|00000bf0| 21 6d 63 76 61 78 21 73 | 61 6e 74 72 61 21 74 6d |!mcvax!s|antra!tm|
|00000c00| 6c 3e 0a 4d 6f 64 2e 73 | 6f 75 72 63 65 73 3a 20 |l>.Mod.s|ources: |
|00000c10| 56 6f 6c 75 6d 65 20 36 | 2c 20 49 73 73 75 65 20 |Volume 6|, Issue |
|00000c20| 31 34 0a 41 72 63 68 69 | 76 65 2d 6e 61 6d 65 3a |14.Archi|ve-name:|
|00000c30| 20 74 65 78 64 76 69 32 | 6c 6a 2f 50 61 72 74 32 | texdvi2|lj/Part2|
|00000c40| 0a 0a 5b 20 49 20 68 61 | 76 65 20 73 70 6c 69 74 |..[ I ha|ve split|
|00000c50| 20 74 68 69 73 20 73 75 | 62 6d 69 73 73 69 6f 6e | this su|bmission|
|00000c60| 20 69 6e 74 6f 20 74 68 | 72 65 65 20 70 69 65 63 | into th|ree piec|
|00000c70| 65 73 20 6e 61 6d 65 64 | 20 4c 4a 2e 31 2e 33 2c |es named| LJ.1.3,|
|00000c80| 0a 20 20 4c 4a 2e 32 2e | 33 2c 20 61 6e 64 20 4c |.  LJ.2.|3, and L|
|00000c90| 4a 2e 32 2e 33 2e 20 20 | 55 6e 70 61 63 6b 20 65 |J.2.3.  |Unpack e|
|00000ca0| 61 63 68 20 70 69 65 63 | 65 20 61 6e 64 20 64 6f |ach piec|e and do|
|00000cb0| 0a 09 20 20 22 63 61 74 | 20 4c 4a 2e 5b 31 32 33 |..  "cat| LJ.[123|
|00000cc0| 5d 2e 33 20 3e 64 76 69 | 32 6c 6a 2e 77 65 62 22 |].3 >dvi|2lj.web"|
|00000cd0| 0a 20 20 54 68 69 73 20 | 69 73 20 6e 6f 74 20 67 |.  This |is not g|
|00000ce0| 72 65 61 74 2c 20 62 75 | 74 20 69 73 20 74 68 65 |reat, bu|t is the|
|00000cf0| 20 62 65 73 74 20 77 61 | 79 20 49 20 63 6f 75 6c | best wa|y I coul|
|00000d00| 64 20 74 68 69 6e 6b 20 | 6f 66 20 74 6f 0a 20 20 |d think |of to.  |
|00000d10| 64 69 73 74 72 69 62 75 | 74 65 20 61 20 6c 61 72 |distribu|te a lar|
|00000d20| 67 65 20 73 69 6e 67 6c | 65 2d 66 69 6c 65 20 73 |ge singl|e-file s|
|00000d30| 6f 75 72 63 65 3b 20 69 | 66 20 79 6f 75 20 68 61 |ource; i|f you ha|
|00000d40| 76 65 20 61 20 62 65 74 | 74 65 72 0a 20 20 77 61 |ve a bet|ter.  wa|
|00000d50| 79 2c 20 70 6c 65 61 73 | 65 20 6c 65 74 20 6d 65 |y, pleas|e let me|
|00000d60| 20 6b 6e 6f 77 2e 0a 09 | 2a 09 2a 09 2a 09 2a 09 | know...|*.*.*.*.|
|00000d70| 2a 09 2a 0a 20 20 4f 4f | 50 53 21 20 20 54 68 69 |*.*.  OO|PS!  Thi|
|00000d80| 73 20 61 72 74 69 63 6c | 65 20 77 65 6e 74 20 6f |s articl|e went o|
|00000d90| 75 74 20 65 61 72 6c 69 | 65 72 20 77 69 74 68 20 |ut earli|er with |
|00000da0| 61 20 77 72 6f 6e 67 20 | 73 75 62 6a 65 63 74 0a |a wrong |subject.|
|00000db0| 20 20 6c 69 6e 65 2e 20 | 20 49 20 73 65 6e 74 20 |  line. | I sent |
|00000dc0| 6f 75 74 20 61 20 63 61 | 6e 63 65 6c 2c 20 62 75 |out a ca|ncel, bu|
|00000dd0| 74 20 69 6e 20 63 61 73 | 65 20 69 74 20 64 69 64 |t in cas|e it did|
|00000de0| 6e 27 74 20 67 65 74 20 | 6f 75 74 2c 0a 20 20 68 |n't get |out,.  h|
|00000df0| 65 72 65 27 73 20 74 68 | 65 20 22 6f 66 66 69 63 |ere's th|e "offic|
|00000e00| 69 61 6c 22 20 70 6f 73 | 74 69 6e 67 2e 0a 09 2a |ial" pos|ting...*|
|00000e10| 09 2a 09 2a 09 2a 09 2a | 09 2a 0a 09 09 2d 2d 72 |.*.*.*.*|.*...--r|
|00000e20| 24 5d 0a 0a 48 65 72 65 | 20 69 73 20 61 20 44 56 |$]..Here| is a DV|
|00000e30| 49 20 28 54 65 58 20 6f | 75 74 70 75 74 29 20 64 |I (TeX o|utput) d|
|00000e40| 72 69 76 65 72 20 66 6f | 72 20 74 68 65 20 48 50 |river fo|r the HP|
|00000e50| 20 4c 61 73 65 72 4a 65 | 74 2b 2e 20 20 54 68 69 | LaserJe|t+.  Thi|
|00000e60| 73 20 76 65 72 73 69 6f | 6e 0a 69 73 20 66 6f 72 |s versio|n.is for|
|00000e70| 20 74 68 65 20 50 61 73 | 63 61 6c 2f 31 30 30 30 | the Pas|cal/1000|
|00000e80| 20 63 6f 6d 70 69 6c 65 | 72 20 6f 6e 20 48 50 31 | compile|r on HP1|
|00000e90| 30 30 30 20 6d 61 63 68 | 69 6e 65 73 20 72 75 6e |000 mach|ines run|
|00000ea0| 6e 69 6e 67 20 52 54 45 | 2d 41 20 28 61 6e 64 0a |ning RTE|-A (and.|
|00000eb0| 6d 79 20 54 65 58 20 69 | 6d 70 6c 65 6d 65 6e 74 |my TeX i|mplement|
|00000ec0| 61 74 69 6f 6e 29 2c 20 | 62 75 74 20 69 74 20 73 |ation), |but it s|
|00000ed0| 68 6f 75 6c 64 20 62 65 | 20 66 61 69 72 6c 79 20 |hould be| fairly |
|00000ee0| 65 61 73 79 20 74 6f 20 | 63 6f 6e 76 65 72 74 20 |easy to |convert |
|00000ef0| 74 6f 0a 6f 74 68 65 72 | 20 54 65 58 20 69 6d 70 |to.other| TeX imp|
|00000f00| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 73 2c 20 63 6f |lementat|ions, co|
|00000f10| 6d 70 69 6c 65 72 73 20 | 61 6e 64 20 6f 70 65 72 |mpilers |and oper|
|00000f20| 61 74 69 6e 67 20 73 79 | 73 74 65 6d 73 2e 0a 0a |ating sy|stems...|
|00000f30| 44 56 49 70 6c 75 73 20 | 69 73 20 62 61 73 65 64 |DVIplus |is based|
|00000f40| 20 6f 6e 20 74 68 65 20 | 44 56 49 74 79 70 65 20 | on the |DVItype |
|00000f50| 70 72 6f 67 72 61 6d 2e | 20 49 74 20 64 6f 77 6e |program.| It down|
|00000f60| 6c 6f 61 64 73 20 6f 6e | 6c 79 20 74 68 6f 73 65 |loads on|ly those|
|00000f70| 0a 63 68 61 72 61 63 74 | 65 72 73 20 61 63 74 75 |.charact|ers actu|
|00000f80| 61 6c 6c 79 20 75 73 65 | 64 2e 20 50 61 67 65 73 |ally use|d. Pages|
|00000f90| 20 61 72 65 20 70 72 69 | 6e 74 65 64 20 69 6e 20 | are pri|nted in |
|00000fa0| 72 65 76 65 72 73 65 2e | 0a 0a 23 20 54 68 69 73 |reverse.|..# This|
|00000fb0| 20 69 73 20 61 20 73 68 | 65 6c 6c 20 61 72 63 68 | is a sh|ell arch|
|00000fc0| 69 76 65 2e 20 20 52 65 | 6d 6f 76 65 20 61 6e 79 |ive.  Re|move any|
|00000fd0| 74 68 69 6e 67 20 62 65 | 66 6f 72 65 20 74 68 69 |thing be|fore thi|
|00000fe0| 73 20 6c 69 6e 65 2c 0a | 23 20 74 68 65 6e 20 75 |s line,.|# then u|
|00000ff0| 6e 70 61 63 6b 20 69 74 | 20 62 79 20 73 61 76 69 |npack it| by savi|
|00001000| 6e 67 20 69 74 20 69 6e | 20 61 20 66 69 6c 65 20 |ng it in| a file |
|00001010| 61 6e 64 20 74 79 70 69 | 6e 67 20 22 73 68 20 66 |and typi|ng "sh f|
|00001020| 69 6c 65 22 2e 0a 23 20 | 43 6f 6e 74 65 6e 74 73 |ile"..# |Contents|
|00001030| 3a 20 20 4c 4a 2e 32 2e | 33 0a 20 0a 3d 3d 3d 20 |:  LJ.2.|3. .=== |
|00001040| 74 65 78 64 76 69 2d 74 | 6f 2d 6c 61 73 65 72 6a |texdvi-t|o-laserj|
|00001050| 65 74 2e 73 68 61 72 33 | 20 3d 3d 3d 3d 3d 3d 3d |et.shar3| =======|
|00001060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001070| 3d 3d 0a 41 72 74 69 63 | 6c 65 20 32 34 32 20 6f |==.Artic|le 242 o|
|00001080| 66 20 6d 6f 64 2e 73 6f | 75 72 63 65 73 3a 0a 52 |f mod.so|urces:.R|
|00001090| 65 6c 61 79 2d 56 65 72 | 73 69 6f 6e 3a 20 76 65 |elay-Ver|sion: ve|
|000010a0| 72 73 69 6f 6e 20 42 20 | 32 2e 31 30 2e 33 20 34 |rsion B |2.10.3 4|
|000010b0| 2e 33 62 64 73 20 62 65 | 74 61 20 36 2f 36 2f 38 |.3bds be|ta 6/6/8|
|000010c0| 35 3b 20 73 69 74 65 20 | 70 75 63 63 2d 6a 0a 50 |5; site |pucc-j.P|
|000010d0| 61 74 68 3a 20 70 75 63 | 63 2d 6a 21 70 75 72 2d |ath: puc|c-j!pur-|
|000010e0| 65 65 21 69 6e 75 78 63 | 21 69 68 6e 70 34 21 63 |ee!inuxc|!ihnp4!c|
|000010f0| 62 6f 73 67 64 21 6d 69 | 72 72 6f 72 21 73 6f 75 |bosgd!mi|rror!sou|
|00001100| 72 63 65 73 2d 72 65 71 | 75 65 73 74 0a 46 72 6f |rces-req|uest.Fro|
|00001110| 6d 3a 20 73 6f 75 72 63 | 65 73 2d 72 65 71 75 65 |m: sourc|es-reque|
|00001120| 73 74 40 6d 69 72 72 6f | 72 2e 55 55 43 50 0a 4e |st@mirro|r.UUCP.N|
|00001130| 65 77 73 67 72 6f 75 70 | 73 3a 20 6d 6f 64 2e 73 |ewsgroup|s: mod.s|
|00001140| 6f 75 72 63 65 73 0a 53 | 75 62 6a 65 63 74 3a 20 |ources.S|ubject: |
|00001150| 76 30 36 69 30 31 35 3a | 20 20 54 65 58 20 44 56 |v06i015:|  TeX DV|
|00001160| 49 20 64 72 69 76 65 72 | 20 66 6f 72 20 4c 61 73 |I driver| for Las|
|00001170| 65 72 4a 65 74 2b 20 28 | 74 65 78 64 76 69 32 6c |erJet+ (|texdvi2l|
|00001180| 6a 29 2c 20 50 61 72 74 | 33 2f 33 0a 4d 65 73 73 |j), Part|3/3.Mess|
|00001190| 61 67 65 2d 49 44 3a 20 | 3c 39 35 40 6d 69 72 72 |age-ID: |<95@mirr|
|000011a0| 6f 72 2e 55 55 43 50 3e | 0a 44 61 74 65 3a 20 32 |or.UUCP>|.Date: 2|
|000011b0| 32 20 4a 75 6e 20 38 36 | 20 31 38 3a 32 32 3a 31 |2 Jun 86| 18:22:1|
|000011c0| 35 20 47 4d 54 0a 44 61 | 74 65 2d 52 65 63 65 69 |5 GMT.Da|te-Recei|
|000011d0| 76 65 64 3a 20 32 35 20 | 4a 75 6e 20 38 36 20 30 |ved: 25 |Jun 86 0|
|000011e0| 36 3a 35 37 3a 31 32 20 | 47 4d 54 0a 53 65 6e 64 |6:57:12 |GMT.Send|
|000011f0| 65 72 3a 20 72 73 40 6d | 69 72 72 6f 72 2e 55 55 |er: rs@m|irror.UU|
|00001200| 43 50 0a 4c 69 6e 65 73 | 3a 20 37 38 39 0a 41 70 |CP.Lines|: 789.Ap|
|00001210| 70 72 6f 76 65 64 3a 20 | 72 73 40 6d 69 72 72 6f |proved: |rs@mirro|
|00001220| 72 2e 55 55 43 50 0a 0a | 53 75 62 6d 69 74 74 65 |r.UUCP..|Submitte|
|00001230| 64 20 62 79 3a 20 54 6f | 72 20 4c 69 6c 6c 71 76 |d by: To|r Lillqv|
|00001240| 69 73 74 20 3c 74 61 6c | 63 6f 74 74 21 73 65 69 |ist <tal|cott!sei|
|00001250| 73 6d 6f 21 6d 63 76 61 | 78 21 73 61 6e 74 72 61 |smo!mcva|x!santra|
|00001260| 21 74 6d 6c 3e 0a 4d 6f | 64 2e 73 6f 75 72 63 65 |!tml>.Mo|d.source|
|00001270| 73 3a 20 56 6f 6c 75 6d | 65 20 36 2c 20 49 73 73 |s: Volum|e 6, Iss|
|00001280| 75 65 20 31 35 0a 41 72 | 63 68 69 76 65 2d 6e 61 |ue 15.Ar|chive-na|
|00001290| 6d 65 3a 20 74 65 78 64 | 76 69 32 6c 6a 2f 50 61 |me: texd|vi2lj/Pa|
|000012a0| 72 74 33 0a 0a 5b 20 49 | 20 68 61 76 65 20 73 70 |rt3..[ I| have sp|
|000012b0| 6c 69 74 20 74 68 69 73 | 20 73 75 62 6d 69 73 73 |lit this| submiss|
|000012c0| 69 6f 6e 20 69 6e 74 6f | 20 74 68 72 65 65 20 70 |ion into| three p|
|000012d0| 69 65 63 65 73 20 6e 61 | 6d 65 64 20 4c 4a 2e 31 |ieces na|med LJ.1|
|000012e0| 2e 33 2c 0a 20 20 4c 4a | 2e 32 2e 33 2c 20 61 6e |.3,.  LJ|.2.3, an|
|000012f0| 64 20 4c 4a 2e 32 2e 33 | 2e 20 20 55 6e 70 61 63 |d LJ.2.3|.  Unpac|
|00001300| 6b 20 65 61 63 68 20 70 | 69 65 63 65 20 61 6e 64 |k each p|iece and|
|00001310| 20 64 6f 0a 09 20 20 22 | 63 61 74 20 4c 4a 2e 5b | do..  "|cat LJ.[|
|00001320| 31 32 33 5d 2e 33 20 3e | 64 76 69 32 6c 6a 2e 77 |123].3 >|dvi2lj.w|
|00001330| 65 62 22 0a 20 20 54 68 | 69 73 20 69 73 20 6e 6f |eb".  Th|is is no|
|00001340| 74 20 67 72 65 61 74 2c | 20 62 75 74 20 69 73 20 |t great,| but is |
|00001350| 74 68 65 20 62 65 73 74 | 20 77 61 79 20 49 20 63 |the best| way I c|
|00001360| 6f 75 6c 64 20 74 68 69 | 6e 6b 20 6f 66 20 74 6f |ould thi|nk of to|
|00001370| 0a 20 20 64 69 73 74 72 | 69 62 75 74 65 20 61 20 |.  distr|ibute a |
|00001380| 6c 61 72 67 65 20 73 69 | 6e 67 6c 65 2d 66 69 6c |large si|ngle-fil|
|00001390| 65 20 73 6f 75 72 63 65 | 3b 20 69 66 20 79 6f 75 |e source|; if you|
|000013a0| 20 68 61 76 65 20 61 20 | 62 65 74 74 65 72 0a 20 | have a |better. |
|000013b0| 20 77 61 79 2c 20 70 6c | 65 61 73 65 20 6c 65 74 | way, pl|ease let|
|000013c0| 20 6d 65 20 6b 6e 6f 77 | 2e 20 20 2d 2d 72 24 5d | me know|.  --r$]|
|000013d0| 0a 0a 48 65 72 65 20 69 | 73 20 61 20 44 56 49 20 |..Here i|s a DVI |
|000013e0| 28 54 65 58 20 6f 75 74 | 70 75 74 29 20 64 72 69 |(TeX out|put) dri|
|000013f0| 76 65 72 20 66 6f 72 20 | 74 68 65 20 48 50 20 4c |ver for |the HP L|
|00001400| 61 73 65 72 4a 65 74 2b | 2e 20 20 54 68 69 73 20 |aserJet+|.  This |
|00001410| 76 65 72 73 69 6f 6e 0a | 69 73 20 66 6f 72 20 74 |version.|is for t|
|00001420| 68 65 20 50 61 73 63 61 | 6c 2f 31 30 30 30 20 63 |he Pasca|l/1000 c|
|00001430| 6f 6d 70 69 6c 65 72 20 | 6f 6e 20 48 50 31 30 30 |ompiler |on HP100|
|00001440| 30 20 6d 61 63 68 69 6e | 65 73 20 72 75 6e 6e 69 |0 machin|es runni|
|00001450| 6e 67 20 52 54 45 2d 41 | 20 28 61 6e 64 0a 6d 79 |ng RTE-A| (and.my|
|00001460| 20 54 65 58 20 69 6d 70 | 6c 65 6d 65 6e 74 61 74 | TeX imp|lementat|
|00001470| 69 6f 6e 29 2c 20 62 75 | 74 20 69 74 20 73 68 6f |ion), bu|t it sho|
|00001480| 75 6c 64 20 62 65 20 66 | 61 69 72 6c 79 20 65 61 |uld be f|airly ea|
|00001490| 73 79 20 74 6f 20 63 6f | 6e 76 65 72 74 20 74 6f |sy to co|nvert to|
|000014a0| 0a 6f 74 68 65 72 20 54 | 65 58 20 69 6d 70 6c 65 |.other T|eX imple|
|000014b0| 6d 65 6e 74 61 74 69 6f | 6e 73 2c 20 63 6f 6d 70 |mentatio|ns, comp|
|000014c0| 69 6c 65 72 73 20 61 6e | 64 20 6f 70 65 72 61 74 |ilers an|d operat|
|000014d0| 69 6e 67 20 73 79 73 74 | 65 6d 73 2e 0a 0a 44 56 |ing syst|ems...DV|
|000014e0| 49 70 6c 75 73 20 69 73 | 20 62 61 73 65 64 20 6f |Iplus is| based o|
|000014f0| 6e 20 74 68 65 20 44 56 | 49 74 79 70 65 20 70 72 |n the DV|Itype pr|
|00001500| 6f 67 72 61 6d 2e 20 49 | 74 20 64 6f 77 6e 6c 6f |ogram. I|t downlo|
|00001510| 61 64 73 20 6f 6e 6c 79 | 20 74 68 6f 73 65 0a 63 |ads only| those.c|
|00001520| 68 61 72 61 63 74 65 72 | 73 20 61 63 74 75 61 6c |haracter|s actual|
|00001530| 6c 79 20 75 73 65 64 2e | 20 50 61 67 65 73 20 61 |ly used.| Pages a|
|00001540| 72 65 20 70 72 69 6e 74 | 65 64 20 69 6e 20 72 65 |re print|ed in re|
|00001550| 76 65 72 73 65 2e 0a 0a | 23 20 54 68 69 73 20 69 |verse...|# This i|
|00001560| 73 20 61 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 |s a shel|l archiv|
|00001570| 65 2e 20 20 52 65 6d 6f | 76 65 20 61 6e 79 74 68 |e.  Remo|ve anyth|
|00001580| 69 6e 67 20 62 65 66 6f | 72 65 20 74 68 69 73 20 |ing befo|re this |
|00001590| 6c 69 6e 65 2c 0a 23 20 | 74 68 65 6e 20 75 6e 70 |line,.# |then unp|
|000015a0| 61 63 6b 20 69 74 20 62 | 79 20 73 61 76 69 6e 67 |ack it b|y saving|
|000015b0| 20 69 74 20 69 6e 20 61 | 20 66 69 6c 65 20 61 6e | it in a| file an|
|000015c0| 64 20 74 79 70 69 6e 67 | 20 22 73 68 20 66 69 6c |d typing| "sh fil|
|000015d0| 65 22 2e 0a 23 20 43 6f | 6e 74 65 6e 74 73 3a 20 |e"..# Co|ntents: |
|000015e0| 20 4c 4a 2e 33 2e 33 0a | 20 0a 00 00 00 00 00 00 | LJ.3.3.| .......|
|000015f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001600| 74 65 78 64 76 69 2d 74 | 6f 2d 6c 61 73 65 72 6a |texdvi-t|o-laserj|
|00001610| 65 74 2f 4c 4a 2e 31 2e | 33 00 00 00 00 00 00 00 |et/LJ.1.|3.......|
|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 20 20 20 36 | 36 36 20 00 20 20 20 32 |....   6|66 .   2|
|00001670| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00001680| 20 31 33 35 36 34 36 20 | 20 34 34 30 34 30 35 33 | 135646 | 4404053|
|00001690| 31 33 34 20 20 31 30 34 | 34 33 00 20 00 00 00 00 |134  104|43. ....|
|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| 25 20 44 56 49 50 4c 55 | 53 2e 57 45 42 0a 25 0a |% DVIPLU|S.WEB.%.|
|00001810| 25 20 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 |% This p|rogram i|
|00001820| 73 20 6e 6f 74 20 63 6f | 70 79 72 69 67 68 74 65 |s not co|pyrighte|
|00001830| 64 20 61 6e 64 20 6d 61 | 79 20 62 65 20 75 73 65 |d and ma|y be use|
|00001840| 64 20 66 72 65 65 6c 79 | 2e 0a 25 0a 25 20 57 72 |d freely|..%.% Wr|
|00001850| 69 74 74 65 6e 20 62 79 | 20 54 6f 72 20 4c 69 6c |itten by| Tor Lil|
|00001860| 6c 71 76 69 73 74 0a 25 | 20 20 20 20 20 20 20 20 |lqvist.%|        |
|00001870| 20 20 20 20 54 65 63 68 | 6e 69 63 61 6c 20 52 65 |    Tech|nical Re|
|00001880| 73 65 61 72 63 68 20 43 | 65 6e 74 72 65 20 6f 66 |search C|entre of|
|00001890| 20 46 69 6e 6c 61 6e 64 | 0a 25 20 20 20 20 20 20 | Finland|.%      |
|000018a0| 20 20 20 20 20 20 4c 65 | 68 74 69 73 61 61 72 65 |      Le|htisaare|
|000018b0| 6e 74 69 65 20 32 20 41 | 0a 25 20 20 20 20 20 20 |ntie 2 A|.%      |
|000018c0| 20 20 20 20 20 20 53 46 | 2d 30 30 33 34 30 20 20 |      SF|-00340  |
|000018d0| 48 45 4c 53 49 4e 4b 49 | 0a 25 20 20 20 20 20 20 |HELSINKI|.%      |
|000018e0| 20 20 20 20 20 20 46 49 | 4e 4c 41 4e 44 0a 25 0a |      FI|NLAND.%.|
|000018f0| 25 20 45 2d 6d 61 69 6c | 3a 20 74 6d 6c 40 66 69 |% E-mail|: tml@fi|
|00001900| 6e 67 61 74 65 2e 62 69 | 74 6e 65 74 2c 20 74 6d |ngate.bi|tnet, tm|
|00001910| 6c 40 73 61 6e 74 72 61 | 2e 75 75 63 70 2c 20 2e |l@santra|.uucp, .|
|00001920| 2e 2e 21 6d 63 76 61 78 | 21 73 61 6e 74 72 61 21 |..!mcvax|!santra!|
|00001930| 74 6d 6c 0a 25 20 50 68 | 6f 6e 65 3a 20 2b 33 35 |tml.% Ph|one: +35|
|00001940| 38 20 30 20 34 35 36 36 | 31 33 32 0a 25 20 54 65 |8 0 4566|132.% Te|
|00001950| 6c 65 78 3a 20 31 32 32 | 39 37 32 20 76 74 74 68 |lex: 122|972 vtth|
|00001960| 61 20 73 66 0a 20 20 0a | 25 20 48 65 72 65 20 69 |a sf.  .|% Here i|
|00001970| 73 20 54 65 58 20 6d 61 | 74 65 72 69 61 6c 20 74 |s TeX ma|terial t|
|00001980| 68 61 74 20 67 65 74 73 | 20 69 6e 73 65 72 74 65 |hat gets| inserte|
|00001990| 64 20 61 66 74 65 72 20 | 5c 69 6e 70 75 74 20 77 |d after |\input w|
|000019a0| 65 62 6d 61 63 0a 20 20 | 0a 5c 64 65 66 5c 68 61 |ebmac.  |.\def\ha|
|000019b0| 6e 67 7b 5c 68 61 6e 67 | 69 6e 64 65 6e 74 20 33 |ng{\hang|indent 3|
|000019c0| 65 6d 5c 69 6e 64 65 6e | 74 5c 69 67 6e 6f 72 65 |em\inden|t\ignore|
|000019d0| 73 70 61 63 65 73 7d 0a | 5c 66 6f 6e 74 5c 6e 69 |spaces}.|\font\ni|
|000019e0| 6e 65 72 6d 3d 63 6d 72 | 39 0a 5c 6c 65 74 5c 6d |nerm=cmr|9.\let\m|
|000019f0| 63 3d 5c 6e 69 6e 65 72 | 6d 20 25 20 6d 65 64 69 |c=\niner|m % medi|
|00001a00| 75 6d 20 63 61 70 73 20 | 66 6f 72 20 6e 61 6d 65 |um caps |for name|
|00001a10| 73 20 6c 69 6b 65 20 53 | 41 49 4c 0a 5c 64 65 66 |s like S|AIL.\def|
|00001a20| 5c 50 41 53 43 41 4c 7b | 50 61 73 63 61 6c 7d 0a |\PASCAL{|Pascal}.|
|00001a30| 20 20 0a 5c 64 65 66 5c | 28 23 31 29 7b 7d 20 25 |  .\def\|(#1){} %|
|00001a40| 20 74 68 69 73 20 69 73 | 20 75 73 65 64 20 74 6f | this is| used to|
|00001a50| 20 6d 61 6b 65 20 73 65 | 63 74 69 6f 6e 20 6e 61 | make se|ction na|
|00001a60| 6d 65 73 20 73 6f 72 74 | 20 74 68 65 6d 73 65 6c |mes sort| themsel|
|00001a70| 76 65 73 20 62 65 74 74 | 65 72 0a 5c 64 65 66 5c |ves bett|er.\def\|
|00001a80| 39 23 31 7b 7d 20 25 20 | 74 68 69 73 20 69 73 20 |9#1{} % |this is |
|00001a90| 75 73 65 64 20 66 6f 72 | 20 73 6f 72 74 20 6b 65 |used for| sort ke|
|00001aa0| 79 73 20 69 6e 20 74 68 | 65 20 69 6e 64 65 78 0a |ys in th|e index.|
|00001ab0| 20 20 0a 5c 64 65 66 5c | 74 69 74 6c 65 7b 44 56 |  .\def\|title{DV|
|00001ac0| 49 24 5c 2c 24 5c 6c 6f | 77 65 72 63 61 73 65 7b |I$\,$\lo|wercase{|
|00001ad0| 70 6c 75 73 7d 7d 0a 5c | 64 65 66 5c 63 6f 6e 74 |plus}}.\|def\cont|
|00001ae0| 65 6e 74 73 70 61 67 65 | 6e 75 6d 62 65 72 7b 31 |entspage|number{1|
|00001af0| 7d 0a 5c 64 65 66 5c 74 | 6f 70 6f 66 63 6f 6e 74 |}.\def\t|opofcont|
|00001b00| 65 6e 74 73 7b 5c 6e 75 | 6c 6c 0a 20 20 5c 64 65 |ents{\nu|ll.  \de|
|00001b10| 66 5c 74 69 74 6c 65 70 | 61 67 65 7b 46 7d 20 25 |f\titlep|age{F} %|
|00001b20| 20 69 6e 63 6c 75 64 65 | 20 68 65 61 64 6c 69 6e | include| headlin|
|00001b30| 65 20 6f 6e 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |e on the| content|
|00001b40| 73 20 70 61 67 65 0a 20 | 20 5c 64 65 66 5c 72 68 |s page. | \def\rh|
|00001b50| 65 61 64 65 72 7b 5c 6d | 61 69 6e 66 6f 6e 74 5c |eader{\m|ainfont\|
|00001b60| 68 66 69 6c 20 5c 63 6f | 6e 74 65 6e 74 73 70 61 |hfil \co|ntentspa|
|00001b70| 67 65 6e 75 6d 62 65 72 | 7d 0a 20 20 5c 76 66 69 |genumber|}.  \vfi|
|00001b80| 6c 6c 0a 20 20 5c 63 65 | 6e 74 65 72 6c 69 6e 65 |ll.  \ce|nterline|
|00001b90| 7b 5c 74 69 74 6c 65 66 | 6f 6e 74 20 54 68 65 20 |{\titlef|ont The |
|00001ba0| 7b 5c 74 74 69 74 6c 65 | 66 6f 6e 74 20 44 56 49 |{\ttitle|font DVI|
|00001bb0| 70 6c 75 73 7d 20 70 72 | 6f 63 65 73 73 6f 72 7d |plus} pr|ocessor}|
|00001bc0| 0a 20 20 5c 76 73 6b 69 | 70 20 31 30 70 74 0a 20 |.  \vski|p 10pt. |
|00001bd0| 20 5c 63 65 6e 74 65 72 | 6c 69 6e 65 7b 5c 74 69 | \center|line{\ti|
|00001be0| 74 6c 65 66 6f 6e 74 20 | 66 6f 72 20 48 50 20 4c |tlefont |for HP L|
|00001bf0| 61 73 65 72 4a 65 74 2b | 7d 0a 20 20 5c 76 73 6b |aserJet+|}.  \vsk|
|00001c00| 69 70 20 31 35 70 74 0a | 20 20 5c 63 65 6e 74 65 |ip 15pt.|  \cente|
|00001c10| 72 6c 69 6e 65 7b 28 56 | 65 72 73 69 6f 6e 20 31 |rline{(V|ersion 1|
|00001c20| 2e 32 2c 20 41 70 72 69 | 6c 20 31 39 38 36 29 7d |.2, Apri|l 1986)}|
|00001c30| 0a 20 20 5c 76 66 69 6c | 6c 7d 0a 5c 64 65 66 5c |.  \vfil|l}.\def\|
|00001c40| 62 6f 74 6f 66 63 6f 6e | 74 65 6e 74 73 7b 5c 76 |botofcon|tents{\v|
|00001c50| 66 69 6c 6c 0a 20 20 5c | 63 65 6e 74 65 72 6c 69 |fill.  \|centerli|
|00001c60| 6e 65 7b 5c 62 61 73 65 | 6c 69 6e 65 73 6b 69 70 |ne{\base|lineskip|
|00001c70| 39 70 74 0a 20 20 20 20 | 5c 76 62 6f 78 7b 5c 6e |9pt.    |\vbox{\n|
|00001c80| 69 6e 65 72 6d 5c 6e 6f | 69 6e 64 65 6e 74 0a 20 |inerm\no|indent. |
|00001c90| 20 20 20 60 5c 54 65 58 | 27 20 69 73 20 61 0a 20 |   `\TeX|' is a. |
|00001ca0| 20 20 20 74 72 61 64 65 | 6d 61 72 6b 20 6f 66 20 |   trade|mark of |
|00001cb0| 74 68 65 20 41 6d 65 72 | 69 63 61 6e 20 4d 61 74 |the Amer|ican Mat|
|00001cc0| 68 65 6d 61 74 69 63 61 | 6c 20 53 6f 63 69 65 74 |hematica|l Societ|
|00001cd0| 79 2e 7d 7d 7d 0a 5c 70 | 61 67 65 6e 6f 3d 5c 63 |y.}}}.\p|ageno=\c|
|00001ce0| 6f 6e 74 65 6e 74 73 70 | 61 67 65 6e 75 6d 62 65 |ontentsp|agenumbe|
|00001cf0| 72 20 5c 61 64 76 61 6e | 63 65 5c 70 61 67 65 6e |r \advan|ce\pagen|
|00001d00| 6f 20 62 79 20 31 0a 20 | 20 0a 40 2a 20 49 6e 74 |o by 1. | .@* Int|
|00001d10| 72 6f 64 75 63 74 69 6f | 6e 2e 0a 54 68 65 20 5c |roductio|n..The \|
|00001d20| 2e 7b 44 56 49 70 6c 75 | 73 7d 20 70 72 6f 67 72 |.{DVIplu|s} progr|
|00001d30| 61 6d 20 72 65 61 64 73 | 20 62 69 6e 61 72 79 20 |am reads| binary |
|00001d40| 64 65 76 69 63 65 2d 69 | 6e 64 65 70 65 6e 64 65 |device-i|ndepende|
|00001d50| 6e 74 20 28 60 60 5c 2e | 7b 44 56 49 7d 27 27 29 |nt (``\.|{DVI}'')|
|00001d60| 0a 66 69 6c 65 73 20 74 | 68 61 74 20 61 72 65 20 |.files t|hat are |
|00001d70| 70 72 6f 64 75 63 65 64 | 20 62 79 20 64 6f 63 75 |produced| by docu|
|00001d80| 6d 65 6e 74 20 63 6f 6d | 70 69 6c 65 72 73 20 73 |ment com|pilers s|
|00001d90| 75 63 68 20 61 73 20 5c | 54 65 58 2c 0a 61 6e 64 |uch as \|TeX,.and|
|00001da0| 20 74 72 61 6e 73 6c 61 | 74 65 73 20 74 68 65 6d | transla|tes them|
|00001db0| 20 66 6f 72 20 70 72 69 | 6e 74 69 6e 67 20 6f 6e | for pri|nting on|
|00001dc0| 20 61 20 48 50 20 4c 61 | 73 65 72 4a 65 74 2b 0a | a HP La|serJet+.|
|00001dd0| 70 61 67 65 20 70 72 69 | 6e 74 65 72 2e 0a 54 68 |page pri|nter..Th|
|00001de0| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 77 72 |is progr|am is wr|
|00001df0| 69 74 74 65 6e 20 62 79 | 20 54 6f 72 20 4c 69 6c |itten by| Tor Lil|
|00001e00| 6c 71 76 69 73 74 2c 0a | 62 61 73 65 64 20 6f 6e |lqvist,.|based on|
|00001e10| 20 74 68 65 20 44 56 49 | 74 79 70 65 20 70 72 6f | the DVI|type pro|
|00001e20| 67 72 61 6d 20 62 79 20 | 44 6f 6e 61 6c 64 20 45 |gram by |Donald E|
|00001e30| 2e 7e 4b 6e 75 74 68 2e | 0a 20 20 0a 54 68 69 73 |.~Knuth.|.  .This|
|00001e40| 20 76 65 72 73 69 6f 6e | 20 69 73 20 66 6f 72 20 | version| is for |
|00001e50| 74 68 65 20 5c 50 41 53 | 43 41 4c 2f 31 30 30 30 |the \PAS|CAL/1000|
|00001e60| 20 63 6f 6d 70 69 6c 65 | 72 20 6f 6e 20 74 68 65 | compile|r on the|
|00001e70| 20 52 54 45 2d 2d 41 20 | 6f 70 65 72 61 74 69 6e | RTE--A |operatin|
|00001e80| 67 0a 73 79 73 74 65 6d | 20 72 75 6e 6e 69 6e 67 |g.system| running|
|00001e90| 20 6f 6e 20 74 68 65 20 | 48 50 31 30 30 30 20 41 | on the |HP1000 A|
|00001ea0| 2d 2d 53 65 72 69 65 73 | 20 63 6f 6d 70 75 74 65 |--Series| compute|
|00001eb0| 72 73 2e 0a 20 20 0a 50 | 72 6f 67 72 61 6d 73 20 |rs..  .P|rograms |
|00001ec0| 66 6f 72 0a 74 79 70 65 | 73 65 74 74 69 6e 67 20 |for.type|setting |
|00001ed0| 6e 65 65 64 20 74 6f 20 | 62 65 20 65 73 70 65 63 |need to |be espec|
|00001ee0| 69 61 6c 6c 79 20 63 61 | 72 65 66 75 6c 20 61 62 |ially ca|reful ab|
|00001ef0| 6f 75 74 20 68 6f 77 20 | 74 68 65 79 20 64 6f 20 |out how |they do |
|00001f00| 61 72 69 74 68 6d 65 74 | 69 63 3b 20 69 66 0a 72 |arithmet|ic; if.r|
|00001f10| 6f 75 6e 64 69 6e 67 20 | 65 72 72 6f 72 73 20 61 |ounding |errors a|
|00001f20| 63 63 75 6d 75 6c 61 74 | 65 2c 20 6d 61 72 67 69 |ccumulat|e, margi|
|00001f30| 6e 73 20 77 6f 6e 27 74 | 20 62 65 20 73 74 72 61 |ns won't| be stra|
|00001f40| 69 67 68 74 2c 20 76 65 | 72 74 69 63 61 6c 20 72 |ight, ve|rtical r|
|00001f50| 75 6c 65 73 0a 77 6f 6e | 27 74 20 6c 69 6e 65 20 |ules.won|'t line |
|00001f60| 75 70 2c 20 61 6e 64 20 | 73 6f 20 6f 6e 2e 20 42 |up, and |so on. B|
|00001f70| 75 74 20 69 66 20 72 6f | 75 6e 64 69 6e 67 20 69 |ut if ro|unding i|
|00001f80| 73 20 64 6f 6e 65 20 65 | 76 65 72 79 77 68 65 72 |s done e|verywher|
|00001f90| 65 2c 20 65 76 65 6e 20 | 69 6e 20 74 68 65 0a 6d |e, even |in the.m|
|00001fa0| 69 64 73 74 20 6f 66 20 | 77 6f 72 64 73 2c 20 74 |idst of |words, t|
|00001fb0| 68 65 72 65 20 77 69 6c | 6c 20 62 65 20 75 6e 65 |here wil|l be une|
|00001fc0| 76 65 6e 20 73 70 61 63 | 69 6e 67 20 62 65 74 77 |ven spac|ing betw|
|00001fd0| 65 65 6e 20 74 68 65 20 | 6c 65 74 74 65 72 73 2c |een the |letters,|
|00001fe0| 20 61 6e 64 20 74 68 61 | 74 0a 6c 6f 6f 6b 73 20 | and tha|t.looks |
|00001ff0| 62 61 64 2e 20 48 75 6d | 61 6e 20 65 79 65 73 20 |bad. Hum|an eyes |
|00002000| 6e 6f 74 69 63 65 20 64 | 69 66 66 65 72 65 6e 63 |notice d|ifferenc|
|00002010| 65 73 20 6f 66 20 61 20 | 74 68 6f 75 73 61 6e 64 |es of a |thousand|
|00002020| 74 68 20 6f 66 20 61 6e | 20 69 6e 63 68 20 69 6e |th of an| inch in|
|00002030| 20 74 68 65 0a 70 6f 73 | 69 74 69 6f 6e 69 6e 67 | the.pos|itioning|
|00002040| 20 6f 66 20 6c 69 6e 65 | 73 20 74 68 61 74 20 61 | of line|s that a|
|00002050| 72 65 20 63 6c 6f 73 65 | 20 74 6f 67 65 74 68 65 |re close| togethe|
|00002060| 72 3b 20 6f 6e 20 6c 6f | 77 20 72 65 73 6f 6c 75 |r; on lo|w resolu|
|00002070| 74 69 6f 6e 20 64 65 76 | 69 63 65 73 2c 0a 77 68 |tion dev|ices,.wh|
|00002080| 65 72 65 20 72 6f 75 6e | 64 69 6e 67 20 70 72 6f |ere roun|ding pro|
|00002090| 64 75 63 65 73 20 65 66 | 66 65 63 74 73 20 66 6f |duces ef|fects fo|
|000020a0| 75 72 20 74 69 6d 65 73 | 20 61 73 20 67 72 65 61 |ur times| as grea|
|000020b0| 74 20 61 73 20 74 68 69 | 73 2c 20 74 68 65 20 70 |t as thi|s, the p|
|000020c0| 72 6f 62 6c 65 6d 0a 69 | 73 20 65 73 70 65 63 69 |roblem.i|s especi|
|000020d0| 61 6c 6c 79 20 63 72 69 | 74 69 63 61 6c 2e 20 45 |ally cri|tical. E|
|000020e0| 78 70 65 72 69 65 6e 63 | 65 20 68 61 73 20 73 68 |xperienc|e has sh|
|000020f0| 6f 77 6e 20 74 68 61 74 | 20 75 6e 75 73 75 61 6c |own that| unusual|
|00002100| 20 63 61 72 65 20 69 73 | 20 6e 65 65 64 65 64 0a | care is| needed.|
|00002110| 65 76 65 6e 20 6f 6e 20 | 68 69 67 68 2d 72 65 73 |even on |high-res|
|00002120| 6f 6c 75 74 69 6f 6e 20 | 65 71 75 69 70 6d 65 6e |olution |equipmen|
|00002130| 74 3b 20 66 6f 72 20 65 | 78 61 6d 70 6c 65 2c 20 |t; for e|xample, |
|00002140| 61 20 6d 69 73 74 61 6b | 65 20 69 6e 20 74 68 65 |a mistak|e in the|
|00002150| 20 73 69 78 74 68 0a 73 | 69 67 6e 69 66 69 63 61 | sixth.s|ignifica|
|00002160| 6e 74 20 68 65 78 61 64 | 65 63 69 6d 61 6c 20 70 |nt hexad|ecimal p|
|00002170| 6c 61 63 65 20 6f 66 20 | 61 20 63 6f 6e 73 74 61 |lace of |a consta|
|00002180| 6e 74 20 6f 6e 63 65 20 | 6c 65 64 20 74 6f 20 61 |nt once |led to a|
|00002190| 20 64 69 66 66 69 63 75 | 6c 74 2d 74 6f 2d 66 69 | difficu|lt-to-fi|
|000021a0| 6e 64 0a 62 75 67 20 69 | 6e 20 73 6f 6d 65 20 73 |nd.bug i|n some s|
|000021b0| 6f 66 74 77 61 72 65 20 | 66 6f 72 20 74 68 65 20 |oftware |for the |
|000021c0| 41 6c 70 68 61 74 79 70 | 65 20 43 52 53 2c 20 77 |Alphatyp|e CRS, w|
|000021d0| 68 69 63 68 20 68 61 73 | 20 61 20 72 65 73 6f 6c |hich has| a resol|
|000021e0| 75 74 69 6f 6e 20 6f 66 | 20 35 33 33 33 0a 70 69 |ution of| 5333.pi|
|000021f0| 78 65 6c 73 20 70 65 72 | 20 69 6e 63 68 20 28 6d |xels per| inch (m|
|00002200| 61 6b 65 20 74 68 61 74 | 20 35 33 33 33 2e 33 33 |ake that| 5333.33|
|00002210| 33 33 33 33 33 33 20 70 | 69 78 65 6c 73 20 70 65 |333333 p|ixels pe|
|00002220| 72 20 69 6e 63 68 29 2e | 20 20 54 68 65 20 64 6f |r inch).|  The do|
|00002230| 63 75 6d 65 6e 74 0a 63 | 6f 6d 70 69 6c 65 72 73 |cument.c|ompilers|
|00002240| 20 74 68 61 74 20 67 65 | 6e 65 72 61 74 65 20 5c | that ge|nerate \|
|00002250| 2e 7b 44 56 49 7d 20 66 | 69 6c 65 73 20 6d 61 6b |.{DVI} f|iles mak|
|00002260| 65 20 63 65 72 74 61 69 | 6e 20 61 73 73 75 6d 70 |e certai|n assump|
|00002270| 74 69 6f 6e 73 20 61 62 | 6f 75 74 20 74 68 65 0a |tions ab|out the.|
|00002280| 61 72 69 74 68 6d 65 74 | 69 63 20 74 68 61 74 20 |arithmet|ic that |
|00002290| 77 69 6c 6c 20 62 65 20 | 75 73 65 64 20 62 79 20 |will be |used by |
|000022a0| 5c 2e 7b 44 56 49 7d 2d | 72 65 61 64 69 6e 67 20 |\.{DVI}-|reading |
|000022b0| 73 6f 66 74 77 61 72 65 | 2c 20 61 6e 64 20 69 66 |software|, and if|
|000022c0| 20 74 68 65 73 65 0a 61 | 73 73 75 6d 70 74 69 6f | these.a|ssumptio|
|000022d0| 6e 73 20 61 72 65 20 76 | 69 6f 6c 61 74 65 64 20 |ns are v|iolated |
|000022e0| 74 68 65 20 72 65 73 75 | 6c 74 73 20 77 69 6c 6c |the resu|lts will|
|000022f0| 20 62 65 20 6f 66 20 69 | 6e 66 65 72 69 6f 72 20 | be of i|nferior |
|00002300| 71 75 61 6c 69 74 79 2e | 0a 54 68 65 72 65 66 6f |quality.|.Therefo|
|00002310| 72 65 20 74 68 65 20 70 | 72 65 73 65 6e 74 20 70 |re the p|resent p|
|00002320| 72 6f 67 72 61 6d 20 69 | 73 20 69 6e 74 65 6e 64 |rogram i|s intend|
|00002330| 65 64 20 61 73 20 61 20 | 67 75 69 64 65 20 74 6f |ed as a |guide to|
|00002340| 20 70 72 6f 70 65 72 20 | 70 72 6f 63 65 64 75 72 | proper |procedur|
|00002350| 65 0a 69 6e 20 74 68 65 | 20 63 72 69 74 69 63 61 |e.in the| critica|
|00002360| 6c 20 70 6c 61 63 65 73 | 20 77 68 65 72 65 20 61 |l places| where a|
|00002370| 20 62 69 74 20 6f 66 20 | 73 75 62 74 6c 65 74 79 | bit of |subtlety|
|00002380| 20 69 73 20 69 6e 76 6f | 6c 76 65 64 2e 0a 20 20 | is invo|lved..  |
|00002390| 0a 54 68 65 20 7c 62 61 | 6e 6e 65 72 7c 20 73 74 |.The |ba|nner| st|
|000023a0| 72 69 6e 67 20 64 65 66 | 69 6e 65 64 20 68 65 72 |ring def|ined her|
|000023b0| 65 20 73 68 6f 75 6c 64 | 20 62 65 20 63 68 61 6e |e should| be chan|
|000023c0| 67 65 64 20 77 68 65 6e | 65 76 65 72 20 5c 2e 7b |ged when|ever \.{|
|000023d0| 44 56 49 70 6c 75 73 7d | 0a 67 65 74 73 20 6d 6f |DVIplus}|.gets mo|
|000023e0| 64 69 66 69 65 64 2e 0a | 54 68 65 20 65 64 69 74 |dified..|The edit|
|000023f0| 6f 72 20 6f 66 20 52 54 | 45 2d 2d 41 20 61 75 74 |or of RT|E--A aut|
|00002400| 6f 6d 61 67 69 63 61 6c | 6c 79 20 75 70 64 61 74 |omagical|ly updat|
|00002410| 65 73 20 74 68 69 73 20 | 74 69 6d 65 73 74 61 6d |es this |timestam|
|00002420| 70 20 77 68 65 6e 0a 74 | 68 65 20 66 69 6c 65 20 |p when.t|he file |
|00002430| 69 73 20 77 72 69 74 74 | 65 6e 2e 0a 20 20 0a 40 |is writt|en..  .@|
|00002440| 64 20 62 61 6e 6e 65 72 | 3d 3d 27 54 68 69 73 20 |d banner|=='This |
|00002450| 69 73 20 44 56 49 70 6c | 75 73 2c 20 52 54 45 2d |is DVIpl|us, RTE-|
|00002460| 41 20 56 65 72 73 69 6f | 6e 20 31 2e 32 20 3c 38 |A Versio|n 1.2 <8|
|00002470| 36 30 36 30 35 2e 32 30 | 35 39 3e 27 0a 20 20 0a |60605.20|59>'.  .|
|00002480| 40 20 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 |@ This p|rogram i|
|00002490| 73 20 6e 6f 74 20 77 72 | 69 74 74 65 6e 20 69 6e |s not wr|itten in|
|000024a0| 20 73 74 61 6e 64 61 72 | 64 20 5c 50 41 53 43 41 | standar|d \PASCA|
|000024b0| 4c 2c 20 62 75 74 0a 74 | 68 65 20 5c 50 41 53 43 |L, but.t|he \PASC|
|000024c0| 41 4c 2f 31 30 30 30 20 | 64 69 61 6c 65 63 74 20 |AL/1000 |dialect |
|000024d0| 75 73 65 64 20 6f 6e 20 | 48 50 31 30 30 30 20 41 |used on |HP1000 A|
|000024e0| 2d 2d 73 65 72 69 65 73 | 20 63 6f 6d 70 75 74 65 |--series| compute|
|000024f0| 72 73 0a 72 75 6e 6e 69 | 6e 67 20 74 68 65 20 52 |rs.runni|ng the R|
|00002500| 54 45 2d 2d 41 20 6f 70 | 65 72 61 74 69 6e 67 20 |TE--A op|erating |
|00002510| 73 79 73 74 65 6d 3b 0a | 69 74 20 73 68 6f 75 6c |system;.|it shoul|
|00002520| 64 20 62 65 20 65 61 73 | 79 20 74 6f 20 63 6f 6e |d be eas|y to con|
|00002530| 76 65 72 74 20 74 6f 20 | 6f 74 68 65 72 20 72 65 |vert to |other re|
|00002540| 61 73 6f 6e 61 62 6c 65 | 20 5c 50 41 53 43 41 4c |asonable| \PASCAL|
|00002550| 5c 0a 64 69 61 6c 65 63 | 74 73 2e 0a 20 20 0a 50 |\.dialec|ts..  .P|
|00002560| 6c 61 63 65 73 20 77 68 | 65 72 65 20 70 65 63 6c |laces wh|ere pecl|
|00002570| 69 61 72 69 74 69 65 73 | 20 64 65 70 6e 64 65 6e |iarities| depnden|
|00002580| 74 20 6f 6e 20 74 68 65 | 20 52 54 45 2d 2d 41 20 |t on the| RTE--A |
|00002590| 69 6d 70 6c 6d 65 6e 74 | 61 74 69 6f 6e 20 68 61 |implment|ation ha|
|000025a0| 76 65 0a 62 65 65 6e 20 | 75 73 65 64 20 61 72 65 |ve.been |used are|
|000025b0| 20 6c 69 73 74 65 64 20 | 69 6e 20 74 68 65 20 69 | listed |in the i|
|000025c0| 6e 64 65 78 20 75 6e 64 | 65 72 20 60 60 73 79 73 |ndex und|er ``sys|
|000025d0| 74 65 6d 20 64 65 70 65 | 6e 64 65 6e 63 69 65 73 |tem depe|ndencies|
|000025e0| 27 27 2e 0a 40 21 40 5e | 73 79 73 74 65 6d 20 64 |''..@!@^|system d|
|000025f0| 65 70 65 6e 64 65 6e 63 | 69 65 73 40 3e 0a 20 20 |ependenc|ies@>.  |
|00002600| 0a 4f 6e 65 20 6f 66 20 | 74 68 65 20 65 78 74 65 |.One of |the exte|
|00002610| 6e 73 69 6f 6e 73 20 74 | 6f 20 73 74 61 6e 64 61 |nsions t|o standa|
|00002620| 72 64 20 5c 50 41 53 43 | 41 4c 5c 20 74 68 61 74 |rd \PASC|AL\ that|
|00002630| 20 77 65 20 73 68 61 6c | 6c 20 64 65 61 6c 20 77 | we shal|l deal w|
|00002640| 69 74 68 20 69 73 20 74 | 68 65 0a 61 62 69 6c 69 |ith is t|he.abili|
|00002650| 74 79 20 74 6f 20 6d 6f | 76 65 20 74 6f 20 61 20 |ty to mo|ve to a |
|00002660| 72 61 6e 64 6f 6d 20 70 | 6c 61 63 65 20 69 6e 20 |random p|lace in |
|00002670| 61 20 62 69 6e 61 72 79 | 20 66 69 6c 65 3b 20 61 |a binary| file; a|
|00002680| 6e 6f 74 68 65 72 20 69 | 73 20 74 6f 0a 64 65 74 |nother i|s to.det|
|00002690| 65 72 6d 69 6e 65 20 74 | 68 65 20 6c 65 6e 67 74 |ermine t|he lengt|
|000026a0| 68 20 6f 66 20 61 20 62 | 69 6e 61 72 79 20 66 69 |h of a b|inary fi|
|000026b0| 6c 65 2e 0a 49 6e 20 66 | 61 63 74 2c 20 69 6e 20 |le..In f|act, in |
|000026c0| 52 54 45 2d 2d 41 20 77 | 65 20 63 61 6e 6e 6f 74 |RTE--A w|e cannot|
|000026d0| 20 64 65 74 65 72 6d 69 | 6e 65 20 74 68 65 20 6c | determi|ne the l|
|000026e0| 6f 67 69 63 61 6c 20 6c | 65 6e 67 74 68 20 6f 66 |ogical l|ength of|
|000026f0| 20 61 20 62 69 6e 61 72 | 79 20 66 69 6c 65 2c 0a | a binar|y file,.|
|00002700| 73 6f 20 61 6e 6f 74 68 | 65 72 20 61 70 70 72 6f |so anoth|er appro|
|00002710| 61 63 68 20 69 73 20 75 | 73 65 64 3a 20 54 68 65 |ach is u|sed: The|
|00002720| 20 66 69 72 73 74 20 64 | 6f 75 62 6c 65 77 6f 72 | first d|oublewor|
|00002730| 64 20 69 6e 20 5c 2e 7b | 50 58 4c 7d 20 61 6e 64 |d in \.{|PXL} and|
|00002740| 20 5c 2e 7b 44 56 49 7d | 0a 66 69 6c 65 73 20 63 | \.{DVI}|.files c|
|00002750| 6f 6e 74 61 69 6e 73 20 | 74 68 65 20 73 69 7a 65 |ontains |the size|
|00002760| 20 6f 66 20 74 68 65 20 | 66 69 6c 65 20 28 69 6e | of the |file (in|
|00002770| 20 64 6f 75 62 6c 65 77 | 6f 72 64 73 20 3d 20 69 | doublew|ords = i|
|00002780| 6e 74 65 67 65 72 73 29 | 2e 0a 54 68 65 20 72 65 |ntegers)|..The re|
|00002790| 63 6f 72 64 73 20 61 72 | 65 20 6e 75 6d 62 65 72 |cords ar|e number|
|000027a0| 65 64 20 73 65 71 75 65 | 6e 74 69 61 6c 6c 79 20 |ed seque|ntially |
|000027b0| 73 74 61 72 74 69 6e 67 | 20 66 72 6f 6d 20 31 2e |starting| from 1.|
|000027c0| 20 54 68 65 20 69 6e 74 | 65 72 6e 61 6c 20 70 6f | The int|ernal po|
|000027d0| 69 6e 74 65 72 73 0a 69 | 6e 20 5c 2e 7b 44 56 49 |inters.i|n \.{DVI|
|000027e0| 7d 20 61 6e 64 20 5c 2e | 7b 50 58 4c 7d 20 66 69 |} and \.|{PXL} fi|
|000027f0| 6c 65 73 20 73 74 61 72 | 74 20 74 68 65 20 28 62 |les star|t the (b|
|00002800| 79 74 65 29 20 6e 75 6d | 62 65 72 69 6e 67 20 66 |yte) num|bering f|
|00002810| 72 6f 6d 20 30 2c 20 73 | 6f 20 61 6e 20 6f 66 66 |rom 0, s|o an off|
|00002820| 73 65 74 0a 69 73 20 61 | 64 64 65 64 20 69 6e 20 |set.is a|dded in |
|00002830| 74 68 65 20 7c 73 65 65 | 6b 7c 20 63 61 6c 6c 73 |the |see|k| calls|
|00002840| 2e 0a 20 0a 5c 50 41 53 | 43 41 4c 2f 31 30 30 30 |.. .\PAS|CAL/1000|
|00002850| 20 61 6c 6c 6f 77 73 20 | 77 72 69 74 69 6e 67 20 | allows |writing |
|00002860| 6e 6f 6e 70 72 69 6e 74 | 69 6e 67 20 63 68 61 72 |nonprint|ing char|
|00002870| 61 63 74 65 72 73 20 74 | 6f 20 7c 74 65 78 74 7c |acters t|o |text||
|00002880| 20 66 69 6c 65 73 0a 75 | 73 69 6e 67 20 61 20 6e | files.u|sing a n|
|00002890| 6f 74 61 74 69 6f 6e 20 | 77 69 74 68 20 61 20 6e |otation |with a n|
|000028a0| 75 6d 62 65 72 20 73 69 | 67 6e 20 66 6f 6c 6c 6f |umber si|gn follo|
|000028b0| 77 65 64 20 62 79 20 74 | 68 65 20 64 65 63 69 6d |wed by t|he decim|
|000028c0| 61 6c 0a 6f 72 64 69 6e | 61 6c 20 6e 75 6d 62 65 |al.ordin|al numbe|
|000028d0| 72 20 6f 66 20 74 68 65 | 20 63 68 61 72 61 63 74 |r of the| charact|
|000028e0| 65 72 2e 20 46 6f 72 20 | 65 78 61 6d 70 6c 65 2c |er. For |example,|
|000028f0| 20 7c 77 72 69 74 65 28 | 66 2c 20 23 32 37 27 45 | |write(|f, #27'E|
|00002900| 27 29 7c 20 77 72 69 74 | 65 73 0a 61 6e 20 65 73 |')| writ|es.an es|
|00002910| 63 61 70 65 20 66 6f 6c | 6c 6f 77 65 64 20 62 79 |cape fol|lowed by|
|00002920| 20 61 20 63 61 70 69 74 | 61 6c 20 60 45 27 2e 0a | a capit|al `E'..|
|00002930| 20 20 0a 49 6e 20 5c 50 | 41 53 43 41 4c 2f 31 30 |  .In \P|ASCAL/10|
|00002940| 30 30 2c 20 6f 75 74 70 | 75 74 20 74 6f 20 7c 74 |00, outp|ut to |t|
|00002950| 65 78 74 7c 20 66 69 6c | 65 73 20 69 73 20 6c 69 |ext| fil|es is li|
|00002960| 6e 65 20 62 75 66 66 65 | 72 65 64 2c 20 61 6e 64 |ne buffe|red, and|
|00002970| 20 77 65 20 63 61 6e 6e | 6f 74 0a 6b 65 65 70 20 | we cann|ot.keep |
|00002980| 7c 77 72 69 74 65 7c 69 | 6e 67 20 77 69 74 68 6f ||write|i|ng witho|
|00002990| 75 74 20 75 73 69 6e 67 | 20 7c 77 72 69 74 65 6c |ut using| |writel|
|000029a0| 6e 7c 20 65 76 65 72 79 | 20 6e 6f 77 20 61 6e 64 |n| every| now and|
|000029b0| 20 74 68 65 6e 2e 0a 54 | 68 69 73 20 74 65 72 6d | then..T|his term|
|000029c0| 69 6e 61 74 65 73 20 74 | 68 65 20 72 65 63 6f 72 |inates t|he recor|
|000029d0| 64 2c 20 77 68 69 63 68 | 0a 6e 6f 72 6d 61 6c 6c |d, which|.normall|
|000029e0| 79 20 63 61 75 73 65 73 | 20 61 20 6e 65 77 6c 69 |y causes| a newli|
|000029f0| 6e 65 2c 20 62 75 74 20 | 74 68 65 20 74 65 72 6d |ne, but |the term|
|00002a00| 69 6e 61 6c 20 64 72 69 | 76 65 72 73 20 69 6e 20 |inal dri|vers in |
|00002a10| 52 54 45 2d 2d 41 0a 6c | 65 61 76 65 20 74 68 65 |RTE--A.l|eave the|
|00002a20| 20 6e 65 77 6c 69 6e 65 | 20 6f 75 74 20 69 66 20 | newline| out if |
|00002a30| 74 68 65 20 6c 61 73 74 | 20 62 79 74 65 20 6f 66 |the last| byte of|
|00002a40| 20 61 20 77 72 69 74 65 | 20 72 65 71 75 65 73 74 | a write| request|
|00002a50| 20 69 73 20 75 6e 64 65 | 72 73 63 6f 72 65 2e 0a | is unde|rscore..|
|00002a60| 54 68 69 73 20 69 73 20 | 68 61 6e 64 6c 65 64 20 |This is |handled |
|00002a70| 62 79 20 74 68 65 20 7c | 77 72 69 74 65 5f 6c 6a |by the ||write_lj|
|00002a80| 7c 20 6d 61 63 72 6f 2e | 0a 20 20 0a 41 6e 6f 74 || macro.|.  .Anot|
|00002a90| 68 65 72 20 65 78 74 65 | 6e 73 69 6f 6e 20 69 73 |her exte|nsion is|
|00002aa0| 20 74 6f 20 75 73 65 20 | 61 20 64 65 66 61 75 6c | to use |a defaul|
|00002ab0| 74 20 7c 63 61 73 65 7c | 20 61 73 20 69 6e 20 5c |t |case|| as in \|
|00002ac0| 2e 7b 54 41 4e 47 4c 45 | 7d 2c 20 5c 2e 7b 57 45 |.{TANGLE|}, \.{WE|
|00002ad0| 41 56 45 7d 2c 0a 65 74 | 63 2e 0a 20 20 0a 40 64 |AVE},.et|c..  .@d|
|00002ae0| 20 6f 74 68 65 72 63 61 | 73 65 73 20 3d 3d 20 6f | otherca|ses == o|
|00002af0| 74 68 65 72 77 69 73 65 | 20 7b 64 65 66 61 75 6c |therwise| {defaul|
|00002b00| 74 20 66 6f 72 20 63 61 | 73 65 73 20 6e 6f 74 20 |t for ca|ses not |
|00002b10| 6c 69 73 74 65 64 20 65 | 78 70 6c 69 63 69 74 6c |listed e|xplicitl|
|00002b20| 79 7d 0a 40 64 20 65 6e | 64 63 61 73 65 73 20 3d |y}.@d en|dcases =|
|00002b30| 3d 20 40 2b 65 6e 64 20 | 7b 66 6f 6c 6c 6f 77 73 |= @+end |{follows|
|00002b40| 20 74 68 65 20 64 65 66 | 61 75 6c 74 20 63 61 73 | the def|ault cas|
|00002b50| 65 20 69 6e 20 61 6e 20 | 65 78 74 65 6e 64 65 64 |e in an |extended|
|00002b60| 20 7c 63 61 73 65 7c 20 | 73 74 61 74 65 6d 65 6e | |case| |statemen|
|00002b70| 74 7d 0a 40 66 20 6f 74 | 68 65 72 63 61 73 65 73 |t}.@f ot|hercases|
|00002b80| 20 3d 3d 20 65 6c 73 65 | 0a 40 66 20 65 6e 64 63 | == else|.@f endc|
|00002b90| 61 73 65 73 20 3d 3d 20 | 65 6e 64 0a 20 20 0a 40 |ases == |end.  .@|
|00002ba0| 20 42 65 66 6f 72 65 20 | 74 68 65 20 70 72 6f 67 | Before |the prog|
|00002bb0| 72 61 6d 20 68 65 61 64 | 69 6e 67 20 77 65 20 68 |ram head|ing we h|
|00002bc0| 61 76 65 20 73 6f 6d 65 | 20 63 6f 6d 70 69 6c 65 |ave some| compile|
|00002bd0| 72 20 6f 70 74 69 6f 6e | 73 2e 0a 54 68 65 73 65 |r option|s..These|
|00002be0| 20 73 70 65 63 69 66 79 | 20 74 68 61 74 20 63 6f | specify| that co|
|00002bf0| 64 65 20 73 68 6f 75 6c | 64 20 62 65 20 67 65 6e |de shoul|d be gen|
|00002c00| 65 72 61 74 65 64 20 66 | 6f 72 20 74 68 65 20 60 |erated f|or the `|
|00002c10| 43 44 53 27 20 6d 6f 64 | 65 2c 0a 69 2e 65 2e 20 |CDS' mod|e,.i.e. |
|00002c20| 43 6f 64 65 2d 61 6e 64 | 2d 44 61 74 61 2d 53 65 |Code-and|-Data-Se|
|00002c30| 70 61 72 61 74 69 6f 6e | 2e 0a 20 20 0a 54 68 65 |paration|..  .The|
|00002c40| 20 62 69 6e 61 72 79 20 | 69 6e 70 75 74 20 63 6f | binary |input co|
|00002c50| 6d 65 73 20 66 72 6f 6d | 20 7c 64 76 69 5f 66 69 |mes from| |dvi_fi|
|00002c60| 6c 65 7c 20 61 6e 64 20 | 74 68 65 20 7c 70 78 6c |le| and |the |pxl|
|00002c70| 5f 66 69 6c 65 7c 73 2e | 0a 40 5e 73 79 73 74 65 |_file|s.|.@^syste|
|00002c80| 6d 20 64 65 70 65 6e 64 | 65 6e 63 69 65 73 40 3e |m depend|encies@>|
|00002c90| 0a 20 20 0a 40 70 0a 40 | 3d 24 53 74 61 6e 64 61 |.  .@p.@|=$Standa|
|00002ca0| 72 64 5f 4c 65 76 65 6c | 20 27 48 50 31 30 30 30 |rd_Level| 'HP1000|
|00002cb0| 27 2c 20 43 44 53 20 4f | 6e 2c 20 44 65 62 75 67 |', CDS O|n, Debug|
|00002cc0| 2c 20 52 61 6e 67 65 20 | 4f 66 66 24 40 3e 40 2f |, Range |Off$@>@/|
|00002cd0| 0a 70 72 6f 67 72 61 6d | 20 44 56 49 70 6c 75 73 |.program| DVIplus|
|00002ce0| 3b 0a 74 79 70 65 20 40 | 3c 54 79 70 65 73 20 69 |;.type @|<Types i|
|00002cf0| 6e 20 74 68 65 20 6f 75 | 74 65 72 20 62 6c 6f 63 |n the ou|ter bloc|
|00002d00| 6b 40 3e 40 2f 0a 76 61 | 72 20 40 3c 47 6c 6f 62 |k@>@/.va|r @<Glob|
|00002d10| 61 6c 73 20 69 6e 20 74 | 68 65 20 6f 75 74 65 72 |als in t|he outer|
|00002d20| 20 62 6c 6f 63 6b 40 3e | 40 2f 0a 40 3c 45 78 74 | block@>|@/.@<Ext|
|00002d30| 65 72 6e 61 6c 20 72 6f | 75 74 69 6e 65 20 64 65 |ernal ro|utine de|
|00002d40| 63 6c 61 72 61 74 69 6f | 6e 73 40 3e 40 2f 0a 70 |claratio|ns@>@/.p|
|00002d50| 72 6f 63 65 64 75 72 65 | 20 69 6e 69 74 69 61 6c |rocedure| initial|
|00002d60| 69 7a 65 3b 20 7b 74 68 | 69 73 20 70 72 6f 63 65 |ize; {th|is proce|
|00002d70| 64 75 72 65 20 67 65 74 | 73 20 74 68 69 6e 67 73 |dure get|s things|
|00002d80| 20 73 74 61 72 74 65 64 | 20 70 72 6f 70 65 72 6c | started| properl|
|00002d90| 79 7d 0a 76 61 72 20 69 | 3a 30 2e 2e 32 35 35 3b |y}.var i|:0..255;|
|00002da0| 0a 62 65 67 69 6e 0a 20 | 20 40 3c 53 65 74 20 69 |.begin. | @<Set i|
|00002db0| 6e 69 74 69 61 6c 20 76 | 61 6c 75 65 73 40 3e 40 |nitial v|alues@>@|
|00002dc0| 2f 0a 65 6e 64 3b 0a 20 | 20 0a 40 20 48 65 72 65 |/.end;. | .@ Here|
|00002dd0| 20 61 72 65 20 73 6f 6d | 65 20 6d 61 63 72 6f 73 | are som|e macros|
|00002de0| 20 66 6f 72 20 63 6f 6d | 6d 6f 6e 20 70 72 6f 67 | for com|mon prog|
|00002df0| 72 61 6d 6d 69 6e 67 20 | 69 64 69 6f 6d 73 2e 0a |ramming |idioms..|
|00002e00| 20 20 0a 40 64 20 64 6f | 5f 6e 6f 74 68 69 6e 67 |  .@d do|_nothing|
|00002e10| 20 3d 3d 20 7b 65 6d 70 | 74 79 20 73 74 61 74 65 | == {emp|ty state|
|00002e20| 6d 65 6e 74 7d 0a 40 64 | 20 69 6e 63 72 28 23 29 |ment}.@d| incr(#)|
|00002e30| 20 3d 3d 20 23 3a 3d 23 | 2b 31 20 7b 69 6e 63 72 | == #:=#|+1 {incr|
|00002e40| 65 61 73 65 20 61 20 76 | 61 72 69 61 62 6c 65 20 |ease a v|ariable |
|00002e50| 62 79 20 75 6e 69 74 79 | 7d 0a 40 64 20 64 65 63 |by unity|}.@d dec|
|00002e60| 72 28 23 29 20 3d 3d 20 | 23 3a 3d 23 2d 31 20 7b |r(#) == |#:=#-1 {|
|00002e70| 64 65 63 72 65 61 73 65 | 20 61 20 76 61 72 69 61 |decrease| a varia|
|00002e80| 62 6c 65 20 62 79 20 75 | 6e 69 74 79 7d 0a 20 20 |ble by u|nity}.  |
|00002e90| 0a 40 20 57 65 20 64 6f | 20 6f 75 72 20 6f 77 6e |.@ We do| our own|
|00002ea0| 20 65 72 72 6f 72 20 68 | 61 6e 64 6c 69 6e 67 2e | error h|andling.|
|00002eb0| 0a 40 5e 73 79 73 74 65 | 6d 20 64 65 70 65 6e 64 |.@^syste|m depend|
|00002ec0| 65 6e 63 69 65 73 40 3e | 0a 20 20 0a 40 64 20 63 |encies@>|.  .@d c|
|00002ed0| 61 74 63 68 5f 65 72 72 | 6f 72 73 3d 3d 65 72 72 |atch_err|ors==err|
|00002ee0| 6f 72 5f 73 74 61 74 75 | 73 3a 3d 74 72 75 65 0a |or_statu|s:=true.|
|00002ef0| 40 64 20 64 6f 6e 74 5f | 63 61 74 63 68 5f 65 72 |@d dont_|catch_er|
|00002f00| 72 6f 72 73 3d 3d 65 72 | 72 6f 72 5f 73 74 61 74 |rors==er|ror_stat|
|00002f10| 75 73 3a 3d 66 61 6c 73 | 65 0a 20 20 0a 40 3c 54 |us:=fals|e.  .@<T|
|00002f20| 79 70 65 73 2e 2e 2e 40 | 3e 3d 0a 40 21 65 72 72 |ypes...@|>=.@!err|
|00002f30| 6f 72 5f 74 79 70 65 3d | 28 65 72 72 5f 72 75 6e |or_type=|(err_run|
|00002f40| 2c 65 72 72 5f 65 6d 61 | 2c 65 72 72 5f 69 6f 2c |,err_ema|,err_io,|
|00002f50| 65 72 72 5f 66 6d 70 2c | 65 72 72 5f 73 65 67 2c |err_fmp,|err_seg,|
|00002f60| 65 72 72 5f 77 72 6e 29 | 3b 0a 40 21 65 72 72 6f |err_wrn)|;.@!erro|
|00002f70| 72 5f 66 69 6c 65 5f 6e | 61 6d 65 3d 70 61 63 6b |r_file_n|ame=pack|
|00002f80| 65 64 20 61 72 72 61 79 | 20 5b 31 2e 2e 31 35 30 |ed array| [1..150|
|00002f90| 5d 20 6f 66 20 63 68 61 | 72 3b 0a 20 20 0a 40 20 |] of cha|r;.  .@ |
|00002fa0| 54 68 65 20 7c 65 72 72 | 6f 72 5f 73 74 61 74 75 |The |err|or_statu|
|00002fb0| 73 7c 20 66 6c 61 67 20 | 69 73 20 73 65 74 20 7c |s| flag |is set ||
|00002fc0| 74 72 75 65 7c 20 77 68 | 65 6e 20 65 72 72 6f 72 |true| wh|en error|
|00002fd0| 73 20 61 72 65 20 74 6f | 20 62 65 20 63 61 74 63 |s are to| be catc|
|00002fe0| 68 65 64 2e 0a 49 66 20 | 61 20 66 69 6c 65 20 73 |hed..If |a file s|
|00002ff0| 79 73 74 65 6d 20 72 65 | 6c 61 74 65 64 20 65 72 |ystem re|lated er|
|00003000| 72 6f 72 20 6f 63 63 75 | 72 73 2c 20 7c 65 72 72 |ror occu|rs, |err|
|00003010| 6f 72 5f 73 74 61 74 75 | 73 7c 20 69 73 20 73 65 |or_statu|s| is se|
|00003020| 74 20 66 61 6c 73 65 2e | 0a 20 20 0a 40 3c 47 6c |t false.|.  .@<Gl|
|00003030| 6f 62 2e 2e 2e 40 3e 3d | 0a 40 21 65 72 72 6f 72 |ob...@>=|.@!error|
|00003040| 5f 73 74 61 74 75 73 3a | 62 6f 6f 6c 65 61 6e 3b |_status:|boolean;|
|00003050| 0a 20 20 0a 40 20 49 66 | 20 61 6e 20 65 72 72 6f |.  .@ If| an erro|
|00003060| 72 20 74 68 61 74 20 77 | 65 20 61 72 65 20 6e 6f |r that w|e are no|
|00003070| 74 20 70 72 65 70 61 72 | 65 64 20 74 6f 20 63 61 |t prepar|ed to ca|
|00003080| 74 63 68 20 6f 63 63 75 | 72 73 2c 20 77 65 20 63 |tch occu|rs, we c|
|00003090| 61 6c 6c 0a 74 68 65 20 | 73 74 61 6e 64 61 72 64 |all.the |standard|
|000030a0| 20 65 72 72 6f 72 20 70 | 72 69 6e 74 69 6e 67 20 | error p|rinting |
|000030b0| 72 6f 75 74 69 6e 65 2c | 20 61 6e 64 20 7c 68 61 |routine,| and |ha|
|000030c0| 6c 74 7c 2e 0a 20 20 0a | 40 70 20 70 72 6f 63 65 |lt|..  .|@p proce|
|000030d0| 64 75 72 65 20 65 72 72 | 6f 72 70 72 69 6e 74 65 |dure err|orprinte|
|000030e0| 72 20 40 3d 24 41 6c 69 | 61 73 20 27 50 61 73 2e |r @=$Ali|as 'Pas.|
|000030f0| 45 72 72 6f 72 50 72 69 | 6e 74 65 72 27 24 40 3e |ErrorPri|nter'$@>|
|00003100| 0a 28 65 72 72 5f 74 79 | 70 65 3a 20 65 72 72 6f |.(err_ty|pe: erro|
|00003110| 72 5f 74 79 70 65 3b 20 | 65 72 72 5f 6e 75 6d 62 |r_type; |err_numb|
|00003120| 65 72 2c 20 65 72 72 5f | 6c 69 6e 65 3a 20 73 68 |er, err_|line: sh|
|00003130| 6f 72 74 3b 0a 76 61 72 | 20 65 72 72 5f 66 69 6c |ort;.var| err_fil|
|00003140| 65 3a 20 65 72 72 6f 72 | 5f 66 69 6c 65 5f 6e 61 |e: error|_file_na|
|00003150| 6d 65 3b 20 65 72 72 5f | 66 6c 65 6e 3a 20 73 68 |me; err_|flen: sh|
|00003160| 6f 72 74 29 3b 0a 20 20 | 65 78 74 65 72 6e 61 6c |ort);.  |external|
|00003170| 3b 40 74 5c 32 40 3e 40 | 2f 0a 40 23 0a 70 72 6f |;@t\2@>@|/.@#.pro|
|00003180| 63 65 64 75 72 65 20 65 | 72 72 6f 72 63 61 74 63 |cedure e|rrorcatc|
|00003190| 68 65 72 20 40 3d 24 41 | 6c 69 61 73 20 27 50 61 |her @=$A|lias 'Pa|
|000031a0| 73 2e 45 72 72 6f 72 43 | 61 74 63 68 65 72 27 24 |s.ErrorC|atcher'$|
|000031b0| 40 3e 0a 28 65 72 72 5f | 74 79 70 65 3a 20 65 72 |@>.(err_|type: er|
|000031c0| 72 6f 72 5f 74 79 70 65 | 3b 20 65 72 72 5f 6e 75 |ror_type|; err_nu|
|000031d0| 6d 62 65 72 2c 20 65 72 | 72 5f 6c 69 6e 65 3a 20 |mber, er|r_line: |
|000031e0| 73 68 6f 72 74 3b 0a 76 | 61 72 20 65 72 72 5f 66 |short;.v|ar err_f|
|000031f0| 69 6c 65 3a 20 65 72 72 | 6f 72 5f 66 69 6c 65 5f |ile: err|or_file_|
|00003200| 6e 61 6d 65 3b 20 65 72 | 72 5f 66 6c 65 6e 3a 20 |name; er|r_flen: |
|00003210| 73 68 6f 72 74 29 3b 0a | 62 65 67 69 6e 0a 20 20 |short);.|begin.  |
|00003220| 69 66 20 65 72 72 5f 74 | 79 70 65 3d 65 72 72 5f |if err_t|ype=err_|
|00003230| 77 72 6e 20 74 68 65 6e | 0a 20 20 20 20 20 64 6f |wrn then|.     do|
|00003240| 5f 6e 6f 74 68 69 6e 67 | 0a 20 20 65 6c 73 65 20 |_nothing|.  else |
|00003250| 69 66 20 65 72 72 6f 72 | 5f 73 74 61 74 75 73 20 |if error|_status |
|00003260| 61 6e 64 20 28 65 72 72 | 5f 74 79 70 65 3d 65 72 |and (err|_type=er|
|00003270| 72 5f 66 6d 70 29 20 74 | 68 65 6e 0a 20 20 20 20 |r_fmp) t|hen.    |
|00003280| 65 72 72 6f 72 5f 73 74 | 61 74 75 73 20 3a 3d 20 |error_st|atus := |
|00003290| 66 61 6c 73 65 0a 20 20 | 65 6c 73 65 20 62 65 67 |false.  |else beg|
|000032a0| 69 6e 0a 20 20 20 20 65 | 72 72 6f 72 70 72 69 6e |in.    e|rrorprin|
|000032b0| 74 65 72 28 65 72 72 5f | 74 79 70 65 2c 65 72 72 |ter(err_|type,err|
|000032c0| 5f 6e 75 6d 62 65 72 2c | 65 72 72 5f 6c 69 6e 65 |_number,|err_line|
|000032d0| 2c 65 72 72 5f 66 69 6c | 65 2c 65 72 72 5f 66 6c |,err_fil|e,err_fl|
|000032e0| 65 6e 29 3b 0a 20 20 20 | 20 68 61 6c 74 28 31 29 |en);.   | halt(1)|
|000032f0| 3b 20 7b 61 6e 20 65 72 | 72 6f 72 20 77 65 20 77 |; {an er|ror we w|
|00003300| 65 72 65 6e 27 74 20 70 | 72 65 70 61 72 65 64 20 |eren't p|repared |
|00003310| 74 6f 20 63 61 74 63 68 | 7d 0a 20 20 65 6e 64 3b |to catch|}.  end;|
|00003320| 0a 65 6e 64 3b 0a 20 20 | 0a 40 20 45 78 74 65 72 |.end;.  |.@ Exter|
|00003330| 6e 61 6c 20 72 6f 75 74 | 69 6e 65 73 20 61 72 65 |nal rout|ines are|
|00003340| 20 64 65 63 6c 61 72 65 | 64 20 68 65 72 65 2e 0a | declare|d here..|
|00003350| 7c 70 61 72 61 6d 65 74 | 65 72 73 7c 20 72 65 74 ||paramet|ers| ret|
|00003360| 72 69 65 76 65 73 20 61 | 20 72 75 6e 73 74 72 69 |rieves a| runstri|
|00003370| 6e 67 20 70 61 72 61 6d | 65 74 65 72 2e 0a 7c 4c |ng param|eter..|L|
|00003380| 55 52 51 7c 20 69 73 20 | 75 73 65 64 20 74 6f 20 |URQ| is |used to |
|00003390| 6c 6f 63 6b 20 74 68 65 | 20 6f 75 74 70 75 74 20 |lock the| output |
|000033a0| 64 65 76 69 63 65 2e 0a | 7c 64 63 62 5f 61 64 64 |device..||dcb_add|
|000033b0| 72 65 73 73 7c 20 72 65 | 74 75 72 6e 73 20 61 20 |ress| re|turns a |
|000033c0| 70 6f 69 6e 74 65 72 20 | 74 6f 20 74 68 65 20 44 |pointer |to the D|
|000033d0| 43 42 20 28 61 20 73 6f | 72 74 20 6f 66 20 66 69 |CB (a so|rt of fi|
|000033e0| 6c 65 20 63 6f 6e 74 72 | 6f 6c 0a 62 6c 6f 63 6b |le contr|ol.block|
|000033f0| 20 66 6f 72 20 61 6e 20 | 6f 70 65 6e 20 66 69 6c | for an |open fil|
|00003400| 65 2e 0a 7c 66 6d 70 5f | 69 6e 74 65 72 61 63 74 |e..|fmp_|interact|
|00003410| 69 76 65 7c 20 74 65 6c | 6c 73 20 69 66 20 61 20 |ive| tel|ls if a |
|00003420| 44 43 42 20 63 6f 72 72 | 65 73 70 6f 6e 64 73 20 |DCB corr|esponds |
|00003430| 74 6f 20 61 6e 20 69 6e | 74 65 72 61 63 74 69 76 |to an in|teractiv|
|00003440| 65 20 64 65 76 69 63 65 | 2c 0a 61 6e 64 20 7c 66 |e device|,.and |f|
|00003450| 6d 70 5f 6c 75 7c 20 72 | 65 74 75 72 6e 73 20 74 |mp_lu| r|eturns t|
|00003460| 68 65 20 60 6c 6f 67 69 | 63 61 6c 20 75 6e 69 74 |he `logi|cal unit|
|00003470| 27 20 6e 75 6d 62 65 72 | 20 6f 66 20 61 20 64 65 |' number| of a de|
|00003480| 76 69 63 65 2e 0a 40 5e | 73 79 73 74 65 6d 20 64 |vice..@^|system d|
|00003490| 65 70 65 6e 64 65 6e 63 | 69 65 73 40 3e 0a 20 20 |ependenc|ies@>.  |
|000034a0| 0a 40 3c 45 78 74 65 72 | 6e 61 6c 20 72 6f 75 74 |.@<Exter|nal rout|
|000034b0| 69 6e 65 2e 2e 2e 40 3e | 3d 0a 66 75 6e 63 74 69 |ine...@>|=.functi|
|000034c0| 6f 6e 20 70 61 72 61 6d | 65 74 65 72 73 20 40 3d |on param|eters @=|
|000034d0| 24 41 6c 69 61 73 20 27 | 50 61 73 2e 50 61 72 61 |$Alias '|Pas.Para|
|000034e0| 6d 65 74 65 72 73 27 24 | 40 3e 0a 20 20 28 70 6f |meters'$|@>.  (po|
|000034f0| 73 3a 73 68 6f 72 74 3b | 20 76 61 72 20 70 61 72 |s:short;| var par|
|00003500| 3a 66 69 6c 65 5f 6e 61 | 6d 65 3b 20 6c 65 6e 3a |:file_na|me; len:|
|00003510| 73 68 6f 72 74 29 3a 73 | 68 6f 72 74 3b 20 65 78 |short):s|hort; ex|
|00003520| 74 65 72 6e 61 6c 3b 20 | 40 74 5c 32 40 3e 40 23 |ternal; |@t\2@>@#|
|00003530| 0a 20 20 0a 70 72 6f 63 | 65 64 75 72 65 20 4c 55 |.  .proc|edure LU|
|00003540| 52 51 28 6f 70 74 69 6f | 6e 3a 73 68 6f 72 74 3b |RQ(optio|n:short;|
|00003550| 20 76 61 72 20 6c 75 3a | 73 68 6f 72 74 3b 20 6e | var lu:|short; n|
|00003560| 75 6d 3a 20 73 68 6f 72 | 74 3b 20 76 61 72 20 6b |um: shor|t; var k|
|00003570| 65 79 3a 73 68 6f 72 74 | 29 3b 0a 20 20 65 78 74 |ey:short|);.  ext|
|00003580| 65 72 6e 61 6c 3b 20 40 | 74 5c 32 40 3e 40 23 0a |ernal; @|t\2@>@#.|
|00003590| 20 20 0a 70 72 6f 63 65 | 64 75 72 65 20 64 63 62 |  .proce|dure dcb|
|000035a0| 5f 61 64 64 72 65 73 73 | 20 40 3d 24 41 6c 69 61 |_address| @=$Alia|
|000035b0| 73 20 27 50 61 73 2e 44 | 63 62 41 64 64 72 65 73 |s 'Pas.D|cbAddres|
|000035c0| 73 31 27 24 40 3e 0a 20 | 20 28 76 61 72 20 70 3a |s1'$@>. | (var p:|
|000035d0| 64 63 62 5f 70 74 72 3b | 20 76 61 72 20 66 3a 74 |dcb_ptr;| var f:t|
|000035e0| 65 78 74 5f 66 69 6c 65 | 29 3b 20 65 78 74 65 72 |ext_file|); exter|
|000035f0| 6e 61 6c 3b 20 40 74 5c | 32 40 3e 40 23 0a 20 20 |nal; @t\|2@>@#.  |
|00003600| 0a 66 75 6e 63 74 69 6f | 6e 20 66 6d 70 5f 69 6e |.functio|n fmp_in|
|00003610| 74 65 72 61 63 74 69 76 | 65 20 40 3d 24 41 6c 69 |teractiv|e @=$Ali|
|00003620| 61 73 20 27 46 6d 70 49 | 6e 74 65 72 61 63 74 69 |as 'FmpI|nteracti|
|00003630| 76 65 27 24 40 3e 0a 20 | 20 28 76 61 72 20 64 3a |ve'$@>. | (var d:|
|00003640| 64 63 62 29 3a 73 68 6f | 72 74 3b 20 65 78 74 65 |dcb):sho|rt; exte|
|00003650| 72 6e 61 6c 3b 20 40 74 | 5c 32 40 3e 40 23 0a 20 |rnal; @t|\2@>@#. |
|00003660| 20 0a 66 75 6e 63 74 69 | 6f 6e 20 66 6d 70 5f 6c | .functi|on fmp_l|
|00003670| 75 20 40 3d 24 41 6c 69 | 61 73 20 27 46 6d 70 4c |u @=$Ali|as 'FmpL|
|00003680| 55 27 24 40 3e 20 28 76 | 61 72 20 64 3a 64 63 62 |U'$@> (v|ar d:dcb|
|00003690| 29 3a 73 68 6f 72 74 3b | 20 65 78 74 65 72 6e 61 |):short;| externa|
|000036a0| 6c 3b 20 40 74 5c 32 40 | 3e 40 23 0a 20 20 0a 40 |l; @t\2@|>@#.  .@|
|000036b0| 20 54 79 70 65 73 20 72 | 65 6c 61 74 65 64 20 74 | Types r|elated t|
|000036c0| 6f 20 73 79 73 74 65 6d | 20 72 6f 75 74 69 6e 65 |o system| routine|
|000036d0| 73 2e 0a 20 20 0a 40 64 | 20 6e 61 6d 65 5f 6c 65 |s..  .@d| name_le|
|000036e0| 6e 67 74 68 3d 36 34 20 | 7b 61 20 66 69 6c 65 20 |ngth=64 |{a file |
|000036f0| 6e 61 6d 65 20 73 68 6f | 75 6c 64 6e 27 74 20 62 |name sho|uldn't b|
|00003700| 65 20 6c 6f 6e 67 65 72 | 20 74 68 61 6e 20 74 68 |e longer| than th|
|00003710| 69 73 7d 0a 20 20 0a 40 | 3c 54 79 70 65 73 2e 2e |is}.  .@|<Types..|
|00003720| 2e 40 3e 3d 0a 40 21 73 | 68 6f 72 74 3d 2d 33 32 |.@>=.@!s|hort=-32|
|00003730| 37 36 38 2e 2e 33 32 37 | 36 37 3b 0a 40 21 66 69 |768..327|67;.@!fi|
|00003740| 6c 65 5f 6e 61 6d 65 3d | 70 61 63 6b 65 64 20 61 |le_name=|packed a|
|00003750| 72 72 61 79 20 5b 31 2e | 2e 6e 61 6d 65 5f 6c 65 |rray [1.|.name_le|
|00003760| 6e 67 74 68 5d 20 6f 66 | 20 63 68 61 72 3b 0a 40 |ngth] of| char;.@|
|00003770| 21 64 63 62 3d 61 72 72 | 61 79 20 5b 31 2e 2e 31 |!dcb=arr|ay [1..1|
|00003780| 34 34 5d 20 6f 66 20 73 | 68 6f 72 74 3b 0a 40 21 |44] of s|hort;.@!|
|00003790| 64 63 62 5f 70 74 72 3d | 5e 64 63 62 3b 0a 20 20 |dcb_ptr=|^dcb;.  |
|000037a0| 0a 40 20 40 3c 47 6c 6f | 62 61 6c 73 2e 2e 2e 40 |.@ @<Glo|bals...@|
|000037b0| 3e 3d 0a 40 21 6c 61 73 | 65 72 5f 64 63 62 3a 64 |>=.@!las|er_dcb:d|
|000037c0| 63 62 5f 70 74 72 3b 0a | 40 21 6c 75 2c 40 21 6b |cb_ptr;.|@!lu,@!k|
|000037d0| 65 79 3a 73 68 6f 72 74 | 3b 0a 20 20 0a 40 20 57 |ey:short|;.  .@ W|
|000037e0| 65 20 6c 6f 63 6b 20 74 | 68 65 20 70 72 69 6e 74 |e lock t|he print|
|000037f0| 65 72 20 61 66 74 65 72 | 20 6f 70 65 6e 69 6e 67 |er after| opening|
|00003800| 20 69 74 20 69 66 20 69 | 74 20 69 73 20 61 20 64 | it if i|t is a d|
|00003810| 65 76 69 63 65 2e 0a 54 | 68 69 73 20 70 72 65 76 |evice..T|his prev|
|00003820| 65 6e 74 73 20 69 6e 74 | 65 72 6d 69 78 65 64 20 |ents int|ermixed |
|00003830| 6f 75 74 70 75 74 2e 0a | 54 68 65 20 64 65 66 61 |output..|The defa|
|00003840| 75 6c 74 20 6f 75 74 70 | 75 74 20 66 69 6c 65 20 |ult outp|ut file |
|00003850| 6e 61 6d 65 20 69 73 20 | 67 69 76 65 6e 20 68 65 |name is |given he|
|00003860| 72 65 2e 0a 40 5e 73 79 | 73 74 65 6d 20 64 65 70 |re..@^sy|stem dep|
|00003870| 65 6e 64 65 6e 63 69 65 | 73 40 3e 0a 20 20 0a 40 |endencie|s@>.  .@|
|00003880| 64 20 64 65 66 61 75 6c | 74 5f 6f 75 74 3d 3d 27 |d defaul|t_out=='|
|00003890| 36 31 27 0a 20 20 0a 40 | 3c 4f 70 65 6e 20 61 6e |61'.  .@|<Open an|
|000038a0| 64 20 6c 6f 63 6b 20 7c | 6c 61 73 65 72 5f 66 69 |d lock ||laser_fi|
|000038b0| 6c 65 7c 40 3e 3d 0a 69 | 66 20 70 61 72 61 6d 65 |le|@>=.i|f parame|
|000038c0| 74 65 72 73 28 61 72 67 | 5f 69 6e 64 65 78 2c 63 |ters(arg|_index,c|
|000038d0| 75 72 5f 6e 61 6d 65 2c | 6e 61 6d 65 5f 6c 65 6e |ur_name,|name_len|
|000038e0| 67 74 68 29 20 3c 3d 20 | 30 20 74 68 65 6e 0a 20 |gth) <= |0 then. |
|000038f0| 20 63 75 72 5f 6e 61 6d | 65 3a 3d 64 65 66 61 75 | cur_nam|e:=defau|
|00003900| 6c 74 5f 6f 75 74 3b 0a | 72 65 77 72 69 74 65 28 |lt_out;.|rewrite(|
|00003910| 6c 61 73 65 72 5f 66 69 | 6c 65 2c 63 75 72 5f 6e |laser_fi|le,cur_n|
|00003920| 61 6d 65 2c 27 4e 4f 43 | 43 54 4c 2c 53 48 41 52 |ame,'NOC|CTL,SHAR|
|00003930| 45 44 27 29 3b 0a 64 63 | 62 5f 61 64 64 72 65 73 |ED');.dc|b_addres|
|00003940| 73 28 6c 61 73 65 72 5f | 64 63 62 2c 6c 61 73 65 |s(laser_|dcb,lase|
|00003950| 72 5f 66 69 6c 65 29 3b | 0a 69 66 20 66 6d 70 5f |r_file);|.if fmp_|
|00003960| 69 6e 74 65 72 61 63 74 | 69 76 65 28 6c 61 73 65 |interact|ive(lase|
|00003970| 72 5f 64 63 62 5e 29 20 | 3c 3e 20 30 20 74 68 65 |r_dcb^) |<> 0 the|
|00003980| 6e 20 62 65 67 69 6e 0a | 20 20 6c 75 3a 3d 66 6d |n begin.|  lu:=fm|
|00003990| 70 5f 6c 75 28 6c 61 73 | 65 72 5f 64 63 62 5e 29 |p_lu(las|er_dcb^)|
|000039a0| 3b 0a 20 20 4c 55 52 51 | 28 31 2c 6c 75 2c 31 2c |;.  LURQ|(1,lu,1,|
|000039b0| 6b 65 79 29 3b 0a 65 6e | 64 0a 20 20 0a 40 20 4c |key);.en|d.  .@ L|
|000039c0| 61 62 65 6c 73 20 28 67 | 6c 6f 62 61 6c 20 61 6e |abels (g|lobal an|
|000039d0| 64 20 6c 6f 63 61 6c 29 | 2e 0a 20 20 0a 40 64 20 |d local)|..  .@d |
|000039e0| 64 6f 6e 65 3d 33 30 20 | 7b 67 6f 20 68 65 72 65 |done=30 |{go here|
|000039f0| 20 77 68 65 6e 20 66 69 | 6e 69 73 68 65 64 20 77 | when fi|nished w|
|00003a00| 69 74 68 20 61 20 73 75 | 62 74 61 73 6b 7d 0a 40 |ith a su|btask}.@|
|00003a10| 64 20 65 78 69 74 3d 39 | 39 39 20 7b 67 6f 20 68 |d exit=9|99 {go h|
|00003a20| 65 72 65 20 74 6f 20 6c | 65 61 76 65 20 61 20 70 |ere to l|eave a p|
|00003a30| 72 6f 63 65 64 75 72 65 | 7d 0a 40 64 20 72 65 74 |rocedure|}.@d ret|
|00003a40| 75 72 6e 3d 3d 67 6f 74 | 6f 20 65 78 69 74 0a 20 |urn==got|o exit. |
|00003a50| 20 0a 40 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | .@ The |followin|
|00003a60| 67 20 70 61 72 61 6d 65 | 74 65 72 73 20 63 61 6e |g parame|ters can|
|00003a70| 20 62 65 20 63 68 61 6e | 67 65 64 20 74 6f 20 65 | be chan|ged to e|
|00003a80| 78 74 65 6e 64 20 6f 72 | 0a 72 65 64 75 63 65 20 |xtend or|.reduce |
|00003a90| 5c 2e 7b 44 56 49 70 6c | 75 73 7d 27 73 20 63 61 |\.{DVIpl|us}'s ca|
|00003aa0| 70 61 63 69 74 79 2e 0a | 20 20 0a 40 64 20 6d 61 |pacity..|  .@d ma|
|00003ab0| 78 5f 66 6f 6e 74 73 3d | 37 35 20 7b 6d 61 78 69 |x_fonts=|75 {maxi|
|00003ac0| 6d 75 6d 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 69 |mum numb|er of di|
|00003ad0| 73 74 69 6e 63 74 20 66 | 6f 6e 74 73 20 70 65 72 |stinct f|onts per|
|00003ae0| 20 5c 2e 7b 44 56 49 7d | 20 66 69 6c 65 7d 0a 40 | \.{DVI}| file}.@|
|00003af0| 64 20 6d 61 78 5f 70 72 | 69 6e 74 65 72 5f 66 6f |d max_pr|inter_fo|
|00003b00| 6e 74 73 3d 32 30 20 7b | 6d 61 78 69 6d 75 6d 20 |nts=20 {|maximum |
|00003b10| 6e 75 6d 62 65 72 20 6f | 66 20 66 6f 6e 74 73 20 |number o|f fonts |
|00003b20| 6b 65 70 74 20 69 6e 20 | 70 72 69 6e 74 65 72 7d |kept in |printer}|
|00003b30| 0a 40 64 20 6d 61 78 5f | 66 6f 6e 74 73 5f 6f 6e |.@d max_|fonts_on|
|00003b40| 5f 70 61 67 65 3d 31 36 | 20 7b 6d 61 78 69 6d 75 |_page=16| {maximu|
|00003b50| 6d 20 6e 75 6d 62 65 72 | 20 6f 66 20 66 6f 6e 74 |m number| of font|
|00003b60| 73 20 70 65 72 20 70 61 | 67 65 7d 0a 40 64 20 6d |s per pa|ge}.@d m|
|00003b70| 61 78 5f 77 69 64 74 68 | 73 3d 39 36 30 31 20 7b |ax_width|s=9601 {|
|00003b80| 7c 6d 61 78 5f 66 6f 6e | 74 73 20 2a 20 31 32 38 ||max_fon|ts * 128|
|00003b90| 20 2b 20 31 7c 7d 0a 20 | 20 7b 6d 61 78 69 6d 75 | + 1|}. | {maximu|
|00003ba0| 6d 20 6e 75 6d 62 65 72 | 20 6f 66 20 64 69 66 66 |m number| of diff|
|00003bb0| 65 72 65 6e 74 20 63 68 | 61 72 61 63 74 65 72 73 |erent ch|aracters|
|00003bc0| 20 61 6d 6f 6e 67 20 61 | 6c 6c 20 66 6f 6e 74 73 | among a|ll fonts|
|00003bd0| 7d 0a 40 64 20 6c 69 6e | 65 5f 6c 65 6e 67 74 68 |}.@d lin|e_length|
|00003be0| 3d 37 39 20 7b 62 72 61 | 63 6b 65 74 65 64 20 6c |=79 {bra|cketed l|
|00003bf0| 69 6e 65 73 20 6f 66 20 | 6f 75 74 70 75 74 20 77 |ines of |output w|
|00003c00| 69 6c 6c 20 62 65 20 61 | 74 20 6d 6f 73 74 20 74 |ill be a|t most t|
|00003c10| 68 69 73 20 6c 6f 6e 67 | 7d 0a 40 64 20 74 65 72 |his long|}.@d ter|
|00003c20| 6d 69 6e 61 6c 5f 6c 69 | 6e 65 5f 6c 65 6e 67 74 |minal_li|ne_lengt|
|00003c30| 68 3d 31 32 38 20 7b 6d | 61 78 69 6d 75 6d 20 6e |h=128 {m|aximum n|
|00003c40| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 61 63 74 |umber of| charact|
|00003c50| 65 72 73 20 69 6e 70 75 | 74 20 69 6e 20 61 20 73 |ers inpu|t in a s|
|00003c60| 69 6e 67 6c 65 0a 20 20 | 6c 69 6e 65 20 6f 66 20 |ingle.  |line of |
|00003c70| 69 6e 70 75 74 20 66 72 | 6f 6d 20 74 68 65 20 74 |input fr|om the t|
|00003c80| 65 72 6d 69 6e 61 6c 7d | 0a 40 64 20 73 74 61 63 |erminal}|.@d stac|
|00003c90| 6b 5f 73 69 7a 65 3d 31 | 30 30 20 7b 5c 2e 7b 44 |k_size=1|00 {\.{D|
|00003ca0| 56 49 7d 20 66 69 6c 65 | 73 20 73 68 6f 75 6c 64 |VI} file|s should|
|00003cb0| 6e 27 74 20 7c 70 75 73 | 68 7c 20 62 65 79 6f 6e |n't |pus|h| beyon|
|00003cc0| 64 20 74 68 69 73 20 64 | 65 70 74 68 7d 0a 40 64 |d this d|epth}.@d|
|00003cd0| 20 6e 61 6d 65 5f 73 69 | 7a 65 3d 31 30 30 30 20 | name_si|ze=1000 |
|00003ce0| 7b 74 6f 74 61 6c 20 6c | 65 6e 67 74 68 20 6f 66 |{total l|ength of|
|00003cf0| 20 61 6c 6c 20 66 6f 6e | 74 20 66 69 6c 65 20 6e | all fon|t file n|
|00003d00| 61 6d 65 73 7d 0a 40 64 | 20 6d 61 78 5f 62 6f 70 |ames}.@d| max_bop|
|00003d10| 73 3d 31 30 30 30 20 7b | 6d 61 78 69 6d 75 6d 20 |s=1000 {|maximum |
|00003d20| 6e 75 6d 62 65 72 20 6f | 66 20 70 61 67 65 73 20 |number o|f pages |
|00003d30| 70 72 69 6e 74 65 64 7d | 0a 20 20 0a 40 20 49 66 |printed}|.  .@ If|
|00003d40| 20 74 68 65 20 5c 2e 7b | 44 56 49 7d 20 66 69 6c | the \.{|DVI} fil|
|00003d50| 65 20 69 73 20 62 61 64 | 6c 79 20 6d 61 6c 66 6f |e is bad|ly malfo|
|00003d60| 72 6d 65 64 2c 20 74 68 | 65 20 77 68 6f 6c 65 20 |rmed, th|e whole |
|00003d70| 70 72 6f 63 65 73 73 20 | 6d 75 73 74 20 62 65 20 |process |must be |
|00003d80| 61 62 6f 72 74 65 64 3b | 0a 5c 2e 7b 44 56 49 70 |aborted;|.\.{DVIp|
|00003d90| 6c 75 73 7d 20 77 69 6c | 6c 20 67 69 76 65 20 75 |lus} wil|l give u|
|00003da0| 70 2c 20 61 66 74 65 72 | 20 69 73 73 75 69 6e 67 |p, after| issuing|
|00003db0| 20 61 6e 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 | an erro|r messag|
|00003dc0| 65 20 61 62 6f 75 74 20 | 74 68 65 20 73 79 6d 70 |e about |the symp|
|00003dd0| 74 6f 6d 73 0a 74 68 61 | 74 20 77 65 72 65 20 6e |toms.tha|t were n|
|00003de0| 6f 74 69 63 65 64 2e 0a | 20 20 0a 53 75 63 68 20 |oticed..|  .Such |
|00003df0| 65 72 72 6f 72 73 20 6d | 69 67 68 74 20 62 65 20 |errors m|ight be |
|00003e00| 64 69 73 63 6f 76 65 72 | 65 64 20 69 6e 73 69 64 |discover|ed insid|
|00003e10| 65 20 6f 66 20 73 75 62 | 72 6f 75 74 69 6e 65 73 |e of sub|routines|
|00003e20| 20 69 6e 73 69 64 65 20 | 6f 66 20 73 75 62 72 6f | inside |of subro|
|00003e30| 75 74 69 6e 65 73 2c 0a | 73 6f 20 61 20 70 72 6f |utines,.|so a pro|
|00003e40| 63 65 64 75 72 65 20 63 | 61 6c 6c 65 64 20 7c 6a |cedure c|alled |j|
|00003e50| 75 6d 70 5f 6f 75 74 7c | 20 68 61 73 20 62 65 65 |ump_out|| has bee|
|00003e60| 6e 20 69 6e 74 72 6f 64 | 75 63 65 64 2e 20 54 68 |n introd|uced. Th|
|00003e70| 69 73 20 70 72 6f 63 65 | 64 75 72 65 20 73 69 6d |is proce|dure sim|
|00003e80| 70 6c 79 0a 68 61 6c 74 | 73 20 74 68 65 20 70 72 |ply.halt|s the pr|
|00003e90| 6f 67 72 61 6d 20 75 73 | 69 6e 67 20 74 68 65 20 |ogram us|ing the |
|00003ea0| 5c 50 41 53 43 41 4c 2f | 31 30 30 30 20 70 72 6f |\PASCAL/|1000 pro|
|00003eb0| 63 65 64 75 72 65 20 7c | 68 61 6c 74 7c 2e 0a 40 |cedure ||halt|..@|
|00003ec0| 5e 73 79 73 74 65 6d 20 | 64 65 70 65 6e 64 65 6e |^system |dependen|
|00003ed0| 63 69 65 73 40 3e 0a 20 | 20 0a 40 64 20 70 72 69 |cies@>. | .@d pri|
|00003ee0| 6e 74 28 23 29 3d 3d 77 | 72 69 74 65 28 74 65 72 |nt(#)==w|rite(ter|
|00003ef0| 6d 5f 6f 75 74 2c 23 29 | 0a 40 64 20 70 72 69 6e |m_out,#)|.@d prin|
|00003f00| 74 5f 6c 6e 28 23 29 3d | 3d 77 72 69 74 65 5f 6c |t_ln(#)=|=write_l|
|00003f10| 6e 28 74 65 72 6d 5f 6f | 75 74 2c 23 29 0a 40 64 |n(term_o|ut,#).@d|
|00003f20| 20 70 72 69 6e 74 5f 6e | 6c 3d 3d 77 72 69 74 65 | print_n|l==write|
|00003f30| 5f 6c 6e 28 74 65 72 6d | 5f 6f 75 74 29 0a 40 64 |_ln(term|_out).@d|
|00003f40| 20 61 62 6f 72 74 28 23 | 29 3d 3d 62 65 67 69 6e | abort(#|)==begin|
|00003f50| 20 70 72 69 6e 74 28 27 | 3f 20 27 2c 23 29 3b 20 | print('|? ',#); |
|00003f60| 6a 75 6d 70 5f 6f 75 74 | 3b 0a 20 20 20 20 65 6e |jump_out|;.    en|
|00003f70| 64 0a 40 64 20 62 61 64 | 5f 64 76 69 28 23 29 3d |d.@d bad|_dvi(#)=|
|00003f80| 3d 61 62 6f 72 74 28 27 | 42 61 64 20 44 56 49 20 |=abort('|Bad DVI |
|00003f90| 66 69 6c 65 3a 20 27 2c | 23 2c 27 21 27 29 0a 40 |file: ',|#,'!').@|
|00003fa0| 2e 42 61 64 20 44 56 49 | 20 66 69 6c 65 40 3e 0a |.Bad DVI| file@>.|
|00003fb0| 40 64 20 62 61 64 5f 70 | 78 6c 28 23 29 3d 3d 62 |@d bad_p|xl(#)==b|
|00003fc0| 65 67 69 6e 20 70 72 69 | 6e 74 5f 6e 6c 3b 20 61 |egin pri|nt_nl; a|
|00003fd0| 62 6f 72 74 28 27 42 61 | 64 20 50 58 4c 20 66 69 |bort('Ba|d PXL fi|
|00003fe0| 6c 65 3a 20 27 2c 23 2c | 27 21 27 29 3b 20 65 6e |le: ',#,|'!'); en|
|00003ff0| 64 0a 40 2e 42 61 64 20 | 50 58 4c 20 66 69 6c 65 |d.@.Bad |PXL file|
|00004000| 40 3e 0a 20 20 0a 40 70 | 20 70 72 6f 63 65 64 75 |@>.  .@p| procedu|
|00004010| 72 65 20 6a 75 6d 70 5f | 6f 75 74 3b 0a 62 65 67 |re jump_|out;.beg|
|00004020| 69 6e 20 68 61 6c 74 28 | 31 29 0a 65 6e 64 3b 0a |in halt(|1).end;.|
|00004030| 20 20 0a 40 20 57 65 20 | 66 69 6c 6c 20 6f 75 74 |  .@ We |fill out|
|00004040| 70 75 74 20 6c 69 6e 65 | 73 20 74 6f 20 7c 6c 61 |put line|s to |la|
|00004050| 73 65 72 5f 66 69 6c 65 | 7c 2c 20 62 72 65 61 6b |ser_file||, break|
|00004060| 69 6e 67 20 74 68 65 20 | 6c 69 6e 65 20 77 68 65 |ing the |line whe|
|00004070| 6e 0a 7c 6c 6a 5f 74 68 | 72 65 73 68 6f 6c 64 7c |n.|lj_th|reshold||
|00004080| 20 63 68 61 72 61 63 74 | 65 72 73 20 68 61 76 65 | charact|ers have|
|00004090| 20 62 65 65 6e 20 77 72 | 69 74 74 65 6e 2e 20 41 | been wr|itten. A|
|000040a0| 6e 20 75 6e 64 65 72 73 | 63 6f 72 65 20 63 68 61 |n unders|core cha|
|000040b0| 72 61 63 74 65 72 0a 69 | 73 20 61 70 70 65 6e 64 |racter.i|s append|
|000040c0| 65 64 20 74 6f 20 74 68 | 65 20 6c 69 6e 65 20 62 |ed to th|e line b|
|000040d0| 65 66 6f 72 65 20 74 68 | 65 20 6e 65 77 6c 69 6e |efore th|e newlin|
|000040e0| 65 20 28 72 65 63 6f 72 | 64 20 62 6f 75 6e 64 61 |e (recor|d bounda|
|000040f0| 72 79 29 2e 0a 54 68 69 | 73 20 70 72 65 76 65 6e |ry)..Thi|s preven|
|00004100| 74 73 20 74 68 65 20 52 | 54 45 2d 2d 41 20 74 65 |ts the R|TE--A te|
|00004110| 72 6d 69 6e 61 6c 20 64 | 72 69 76 65 72 20 66 72 |rminal d|river fr|
|00004120| 6f 6d 20 77 72 69 74 69 | 6e 67 20 61 20 7b 5c 74 |om writi|ng a {\t|
|00004130| 74 20 43 52 7e 4c 46 7d | 0a 70 61 69 72 20 61 74 |t CR~LF}|.pair at|
|00004140| 20 74 68 65 20 65 6e 64 | 20 6f 66 20 74 68 65 20 | the end| of the |
|00004150| 6c 69 6e 65 2e 0a 40 5e | 73 79 73 74 65 6d 20 64 |line..@^|system d|
|00004160| 65 70 65 6e 64 65 6e 63 | 69 65 73 40 3e 0a 20 20 |ependenc|ies@>.  |
|00004170| 0a 41 6c 6c 20 6f 75 74 | 70 75 74 20 74 6f 20 7c |.All out|put to ||
|00004180| 6c 61 73 65 72 5f 66 69 | 6c 65 7c 20 67 6f 65 73 |laser_fi|le| goes|
|00004190| 20 74 68 72 6f 75 67 68 | 20 74 68 65 20 6d 61 63 | through| the mac|
|000041a0| 72 6f 73 20 7c 77 72 69 | 74 65 5f 6c 6a 7c 20 6f |ros |wri|te_lj| o|
|000041b0| 72 0a 7c 77 72 69 74 65 | 5f 6c 6a 5f 66 7c 2e 20 |r.|write|_lj_f|. |
|000041c0| 54 68 65 20 6c 61 74 74 | 65 72 20 64 6f 65 73 6e |The latt|er doesn|
|000041d0| 27 74 20 74 65 73 74 20 | 66 6f 72 20 6c 69 6e 65 |'t test |for line|
|000041e0| 20 62 72 65 61 6b 20 62 | 65 66 6f 72 65 20 77 72 | break b|efore wr|
|000041f0| 69 74 69 6e 67 2e 0a 20 | 0a 40 64 20 6c 6a 5f 74 |iting.. |.@d lj_t|
|00004200| 68 72 65 73 68 6f 6c 64 | 3d 37 30 0a 20 20 0a 40 |hreshold|=70.  .@|
|00004210| 64 20 77 72 69 74 65 5f | 6c 6a 28 23 29 3d 3d 62 |d write_|lj(#)==b|
|00004220| 65 67 69 6e 20 69 66 20 | 6c 69 6e 65 70 6f 73 28 |egin if |linepos(|
|00004230| 6c 61 73 65 72 5f 66 69 | 6c 65 29 3e 6c 6a 5f 74 |laser_fi|le)>lj_t|
|00004240| 68 72 65 73 68 6f 6c 64 | 20 74 68 65 6e 0a 20 20 |hreshold| then.  |
|00004250| 20 20 77 72 69 74 65 5f | 6c 6e 28 6c 61 73 65 72 |  write_|ln(laser|
|00004260| 5f 66 69 6c 65 2c 27 5f | 27 29 3b 0a 20 20 77 72 |_file,'_|');.  wr|
|00004270| 69 74 65 28 6c 61 73 65 | 72 5f 66 69 6c 65 2c 23 |ite(lase|r_file,#|
|00004280| 29 0a 65 6e 64 0a 40 64 | 20 77 72 69 74 65 5f 6c |).end.@d| write_l|
|00004290| 6a 5f 66 28 23 29 3d 3d | 77 72 69 74 65 28 6c 61 |j_f(#)==|write(la|
|000042a0| 73 65 72 5f 66 69 6c 65 | 2c 23 29 0a 20 20 0a 40 |ser_file|,#).  .@|
|000042b0| 2a 20 54 68 65 20 63 68 | 61 72 61 63 74 65 72 20 |* The ch|aracter |
|000042c0| 73 65 74 2e 0a 4c 69 6b | 65 20 61 6c 6c 20 70 72 |set..Lik|e all pr|
|000042d0| 6f 67 72 61 6d 73 20 77 | 72 69 74 74 65 6e 20 77 |ograms w|ritten w|
|000042e0| 69 74 68 20 74 68 65 20 | 20 5c 2e 7b 57 45 42 7d |ith the | \.{WEB}|
|000042f0| 20 73 79 73 74 65 6d 2c | 20 5c 2e 7b 44 56 49 70 | system,| \.{DVIp|
|00004300| 6c 75 73 7d 20 63 61 6e | 20 62 65 0a 75 73 65 64 |lus} can| be.used|
|00004310| 20 77 69 74 68 20 61 6e | 79 20 63 68 61 72 61 63 | with an|y charac|
|00004320| 74 65 72 20 73 65 74 2e | 20 42 75 74 20 69 74 20 |ter set.| But it |
|00004330| 75 73 65 73 20 41 53 43 | 49 49 20 63 6f 64 65 20 |uses ASC|II code |
|00004340| 69 6e 74 65 72 6e 61 6c | 6c 79 2c 20 62 65 63 61 |internal|ly, beca|
|00004350| 75 73 65 0a 74 68 65 20 | 70 72 6f 67 72 61 6d 6d |use.the |programm|
|00004360| 69 6e 67 20 66 6f 72 20 | 70 6f 72 74 61 62 6c 65 |ing for |portable|
|00004370| 20 69 6e 70 75 74 2d 6f | 75 74 70 75 74 20 69 73 | input-o|utput is|
|00004380| 20 65 61 73 69 65 72 20 | 77 68 65 6e 20 61 20 66 | easier |when a f|
|00004390| 69 78 65 64 20 69 6e 74 | 65 72 6e 61 6c 0a 63 6f |ixed int|ernal.co|
|000043a0| 64 65 20 69 73 20 75 73 | 65 64 2c 20 61 6e 64 20 |de is us|ed, and |
|000043b0| 62 65 63 61 75 73 65 20 | 5c 2e 7b 44 56 49 7d 20 |because |\.{DVI} |
|000043c0| 66 69 6c 65 73 20 75 73 | 65 20 41 53 43 49 49 20 |files us|e ASCII |
|000043d0| 63 6f 64 65 20 66 6f 72 | 20 66 69 6c 65 20 6e 61 |code for| file na|
|000043e0| 6d 65 73 0a 61 6e 64 20 | 63 65 72 74 61 69 6e 20 |mes.and |certain |
|000043f0| 6f 74 68 65 72 20 73 74 | 72 69 6e 67 73 2e 0a 20 |other st|rings.. |
|00004400| 20 0a 54 68 65 20 6e 65 | 78 74 20 66 65 77 20 73 | .The ne|xt few s|
|00004410| 65 63 74 69 6f 6e 73 20 | 6f 66 20 5c 2e 7b 44 56 |ections |of \.{DV|
|00004420| 49 70 6c 75 73 7d 20 68 | 61 76 65 20 74 68 65 72 |Iplus} h|ave ther|
|00004430| 65 66 6f 72 65 20 62 65 | 65 6e 20 63 6f 70 69 65 |efore be|en copie|
|00004440| 64 20 66 72 6f 6d 20 74 | 68 65 0a 61 6e 61 6c 6f |d from t|he.analo|
|00004450| 67 6f 75 73 20 6f 6e 65 | 73 20 69 6e 20 74 68 65 |gous one|s in the|
|00004460| 20 5c 2e 7b 57 45 42 7d | 20 73 79 73 74 65 6d 20 | \.{WEB}| system |
|00004470| 72 6f 75 74 69 6e 65 73 | 2e 20 54 68 65 79 20 68 |routines|. They h|
|00004480| 61 76 65 20 62 65 65 6e | 20 63 6f 6e 73 69 64 65 |ave been| conside|
|00004490| 72 61 62 6c 79 0a 73 69 | 6d 70 6c 69 66 69 65 64 |rably.si|mplified|
|000044a0| 2c 20 73 69 6e 63 65 20 | 5c 2e 7b 44 56 49 70 6c |, since |\.{DVIpl|
|000044b0| 75 73 7d 20 6e 65 65 64 | 20 6e 6f 74 20 64 65 61 |us} need| not dea|
|000044c0| 6c 20 77 69 74 68 20 74 | 68 65 20 63 6f 6e 74 72 |l with t|he contr|
|000044d0| 6f 76 65 72 73 69 61 6c | 0a 41 53 43 49 49 20 63 |oversial|.ASCII c|
|000044e0| 6f 64 65 73 20 6c 65 73 | 73 20 74 68 61 6e 20 40 |odes les|s than @|
|000044f0| 27 34 30 2e 20 49 66 20 | 73 75 63 68 20 63 6f 64 |'40. If |such cod|
|00004500| 65 73 20 61 70 70 65 61 | 72 20 69 6e 20 74 68 65 |es appea|r in the|
|00004510| 20 5c 2e 7b 44 56 49 7d | 20 66 69 6c 65 2c 0a 74 | \.{DVI}| file,.t|
|00004520| 68 65 79 20 77 69 6c 6c | 20 62 65 20 70 72 69 6e |hey will| be prin|
|00004530| 74 65 64 20 61 73 20 71 | 75 65 73 74 69 6f 6e 20 |ted as q|uestion |
|00004540| 6d 61 72 6b 73 2e 0a 20 | 20 0a 40 3c 54 79 70 65 |marks.. | .@<Type|
|00004550| 73 2e 2e 2e 40 3e 3d 0a | 40 21 41 53 43 49 49 5f |s...@>=.|@!ASCII_|
|00004560| 63 6f 64 65 3d 22 20 22 | 2e 2e 22 7e 22 3b 20 7b |code=" "|.."~"; {|
|00004570| 61 20 73 75 62 72 61 6e | 67 65 20 6f 66 20 74 68 |a subran|ge of th|
|00004580| 65 20 69 6e 74 65 67 65 | 72 73 7d 0a 20 20 0a 40 |e intege|rs}.  .@|
|00004590| 20 54 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 5c 50 | The ori|ginal \P|
|000045a0| 41 53 43 41 4c 5c 20 63 | 6f 6d 70 69 6c 65 72 20 |ASCAL\ c|ompiler |
|000045b0| 77 61 73 20 64 65 73 69 | 67 6e 65 64 20 69 6e 20 |was desi|gned in |
|000045c0| 74 68 65 20 6c 61 74 65 | 20 36 30 73 2c 20 77 68 |the late| 60s, wh|
|000045d0| 65 6e 20 73 69 78 2d 62 | 69 74 0a 63 68 61 72 61 |en six-b|it.chara|
|000045e0| 63 74 65 72 20 73 65 74 | 73 20 77 65 72 65 20 63 |cter set|s were c|
|000045f0| 6f 6d 6d 6f 6e 2c 20 73 | 6f 20 69 74 20 64 69 64 |ommon, s|o it did|
|00004600| 20 6e 6f 74 20 6d 61 6b | 65 20 70 72 6f 76 69 73 | not mak|e provis|
|00004610| 69 6f 6e 20 66 6f 72 20 | 6c 6f 77 65 72 20 63 61 |ion for |lower ca|
|00004620| 73 65 0a 6c 65 74 74 65 | 72 73 2e 20 4e 6f 77 61 |se.lette|rs. Nowa|
|00004630| 64 61 79 73 2c 20 6f 66 | 20 63 6f 75 72 73 65 2c |days, of| course,|
|00004640| 20 77 65 20 6e 65 65 64 | 20 74 6f 20 64 65 61 6c | we need| to deal|
|00004650| 20 77 69 74 68 20 62 6f | 74 68 20 75 70 70 65 72 | with bo|th upper|
|00004660| 20 61 6e 64 20 6c 6f 77 | 65 72 20 63 61 73 65 0a | and low|er case.|
|00004670| 61 6c 70 68 61 62 65 74 | 73 20 69 6e 20 61 20 63 |alphabet|s in a c|
|00004680| 6f 6e 76 65 6e 69 65 6e | 74 20 77 61 79 2c 20 65 |onvenien|t way, e|
|00004690| 73 70 65 63 69 61 6c 6c | 79 20 69 6e 20 61 20 70 |speciall|y in a p|
|000046a0| 72 6f 67 72 61 6d 20 6c | 69 6b 65 20 5c 2e 7b 44 |rogram l|ike \.{D|
|000046b0| 56 49 70 6c 75 73 7d 2e | 0a 53 6f 20 77 65 20 73 |VIplus}.|.So we s|
|000046c0| 68 61 6c 6c 20 61 73 73 | 75 6d 65 20 74 68 61 74 |hall ass|ume that|
|000046d0| 20 74 68 65 20 5c 50 41 | 53 43 41 4c 5c 20 73 79 | the \PA|SCAL\ sy|
|000046e0| 73 74 65 6d 20 62 65 69 | 6e 67 20 75 73 65 64 20 |stem bei|ng used |
|000046f0| 66 6f 72 20 5c 2e 7b 44 | 56 49 70 6c 75 73 7d 0a |for \.{D|VIplus}.|
|00004700| 68 61 73 20 61 20 63 68 | 61 72 61 63 74 65 72 20 |has a ch|aracter |
|00004710| 73 65 74 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 61 |set cont|aining a|
|00004720| 74 20 6c 65 61 73 74 20 | 74 68 65 20 73 74 61 6e |t least |the stan|
|00004730| 64 61 72 64 20 76 69 73 | 69 62 6c 65 20 63 68 61 |dard vis|ible cha|
|00004740| 72 61 63 74 65 72 73 0a | 6f 66 20 41 53 43 49 49 |racters.|of ASCII|
|00004750| 20 63 6f 64 65 20 28 7c | 22 21 22 7c 20 74 68 72 | code (||"!"| thr|
|00004760| 6f 75 67 68 20 7c 22 7e | 22 7c 29 2e 0a 20 20 0a |ough |"~|"|)..  .|
|00004770| 53 6f 6d 65 20 5c 50 41 | 53 43 41 4c 5c 20 63 6f |Some \PA|SCAL\ co|
|00004780| 6d 70 69 6c 65 72 73 20 | 75 73 65 20 74 68 65 20 |mpilers |use the |
|00004790| 6f 72 69 67 69 6e 61 6c | 20 6e 61 6d 65 20 7c 63 |original| name |c|
|000047a0| 68 61 72 7c 20 66 6f 72 | 20 74 68 65 20 64 61 74 |har| for| the dat|
|000047b0| 61 20 74 79 70 65 0a 61 | 73 73 6f 63 69 61 74 65 |a type.a|ssociate|
|000047c0| 64 20 77 69 74 68 20 74 | 68 65 20 63 68 61 72 61 |d with t|he chara|
|000047d0| 63 74 65 72 73 20 69 6e | 20 74 65 78 74 20 66 69 |cters in| text fi|
|000047e0| 6c 65 73 2c 20 77 68 69 | 6c 65 20 6f 74 68 65 72 |les, whi|le other|
|000047f0| 20 5c 50 41 53 43 41 4c | 20 73 0a 63 6f 6e 73 69 | \PASCAL| s.consi|
|00004800| 64 65 72 20 7c 63 68 61 | 72 7c 20 74 6f 20 62 65 |der |cha|r| to be|
|00004810| 20 61 20 36 34 2d 65 6c | 65 6d 65 6e 74 20 73 75 | a 64-el|ement su|
|00004820| 62 72 61 6e 67 65 20 6f | 66 20 61 20 6c 61 72 67 |brange o|f a larg|
|00004830| 65 72 20 64 61 74 61 20 | 74 79 70 65 20 74 68 61 |er data |type tha|
|00004840| 74 20 68 61 73 0a 73 6f | 6d 65 20 6f 74 68 65 72 |t has.so|me other|
|00004850| 20 6e 61 6d 65 2e 20 20 | 49 6e 20 6f 72 64 65 72 | name.  |In order|
|00004860| 20 74 6f 20 61 63 63 6f | 6d 6d 6f 64 61 74 65 20 | to acco|mmodate |
|00004870| 74 68 69 73 20 64 69 66 | 66 65 72 65 6e 63 65 2c |this dif|ference,|
|00004880| 20 77 65 20 73 68 61 6c | 6c 20 75 73 65 0a 74 68 | we shal|l use.th|
|00004890| 65 20 6e 61 6d 65 20 7c | 74 65 78 74 5f 63 68 61 |e name ||text_cha|
|000048a0| 72 7c 20 74 6f 20 73 74 | 61 6e 64 20 66 6f 72 20 |r| to st|and for |
|000048b0| 74 68 65 20 64 61 74 61 | 20 74 79 70 65 20 6f 66 |the data| type of|
|000048c0| 20 74 68 65 20 63 68 61 | 72 61 63 74 65 72 73 20 | the cha|racters |
|000048d0| 69 6e 20 74 68 65 0a 6f | 75 74 70 75 74 20 66 69 |in the.o|utput fi|
|000048e0| 6c 65 2e 20 20 57 65 20 | 73 68 61 6c 6c 20 61 6c |le.  We |shall al|
|000048f0| 73 6f 20 61 73 73 75 6d | 65 20 74 68 61 74 20 7c |so assum|e that ||
|00004900| 74 65 78 74 5f 63 68 61 | 72 7c 20 63 6f 6e 73 69 |text_cha|r| consi|
|00004910| 73 74 73 20 6f 66 0a 74 | 68 65 20 65 6c 65 6d 65 |sts of.t|he eleme|
|00004920| 6e 74 73 20 7c 63 68 72 | 28 66 69 72 73 74 5f 74 |nts |chr|(first_t|
|00004930| 65 78 74 5f 63 68 61 72 | 29 7c 20 74 68 72 6f 75 |ext_char|)| throu|
|00004940| 67 68 20 7c 63 68 72 28 | 6c 61 73 74 5f 74 65 78 |gh |chr(|last_tex|
|00004950| 74 5f 63 68 61 72 29 7c | 2c 0a 69 6e 63 6c 75 73 |t_char)||,.inclus|
|00004960| 69 76 65 2e 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |ive. The| followi|
|00004970| 6e 67 20 64 65 66 69 6e | 69 74 69 6f 6e 73 20 73 |ng defin|itions s|
|00004980| 68 6f 75 6c 64 20 62 65 | 20 61 64 6a 75 73 74 65 |hould be| adjuste|
|00004990| 64 20 69 66 20 6e 65 63 | 65 73 73 61 72 79 2e 0a |d if nec|essary..|
|000049a0| 40 5e 73 79 73 74 65 6d | 20 64 65 70 65 6e 64 65 |@^system| depende|
|000049b0| 6e 63 69 65 73 40 3e 0a | 20 20 0a 40 64 20 74 65 |ncies@>.|  .@d te|
|000049c0| 78 74 5f 63 68 61 72 20 | 3d 3d 20 63 68 61 72 20 |xt_char |== char |
|000049d0| 7b 74 68 65 20 64 61 74 | 61 20 74 79 70 65 20 6f |{the dat|a type o|
|000049e0| 66 20 63 68 61 72 61 63 | 74 65 72 73 20 69 6e 20 |f charac|ters in |
|000049f0| 74 65 78 74 20 66 69 6c | 65 73 7d 0a 40 64 20 66 |text fil|es}.@d f|
|00004a00| 69 72 73 74 5f 74 65 78 | 74 5f 63 68 61 72 3d 30 |irst_tex|t_char=0|
|00004a10| 20 7b 6f 72 64 69 6e 61 | 6c 20 6e 75 6d 62 65 72 | {ordina|l number|
|00004a20| 20 6f 66 20 74 68 65 20 | 73 6d 61 6c 6c 65 73 74 | of the |smallest|
|00004a30| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 7c 74 65 78 | element| of |tex|
|00004a40| 74 5f 63 68 61 72 7c 7d | 0a 40 64 20 6c 61 73 74 |t_char|}|.@d last|
|00004a50| 5f 74 65 78 74 5f 63 68 | 61 72 3d 32 35 35 20 7b |_text_ch|ar=255 {|
|00004a60| 6f 72 64 69 6e 61 6c 20 | 6e 75 6d 62 65 72 20 6f |ordinal |number o|
|00004a70| 66 20 74 68 65 20 6c 61 | 72 67 65 73 74 20 65 6c |f the la|rgest el|
|00004a80| 65 6d 65 6e 74 20 6f 66 | 20 7c 74 65 78 74 5f 63 |ement of| |text_c|
|00004a90| 68 61 72 7c 7d 0a 0a 40 | 3c 54 79 70 65 73 2e 2e |har|}..@|<Types..|
|00004aa0| 2e 40 3e 3d 0a 40 21 74 | 65 78 74 5f 66 69 6c 65 |.@>=.@!t|ext_file|
|00004ab0| 3d 74 65 78 74 5f 3b 0a | 0a 40 20 54 68 65 20 5c |=text_;.|.@ The \|
|00004ac0| 2e 7b 44 56 49 70 6c 75 | 73 7d 20 70 72 6f 63 65 |.{DVIplu|s} proce|
|00004ad0| 73 73 6f 72 20 63 6f 6e | 76 65 72 74 73 20 62 65 |ssor con|verts be|
|00004ae0| 74 77 65 65 6e 20 41 53 | 43 49 49 20 63 6f 64 65 |tween AS|CII code|
|00004af0| 20 61 6e 64 0a 74 68 65 | 20 75 73 65 72 27 73 20 | and.the| user's |
|00004b00| 65 78 74 65 72 6e 61 6c | 20 63 68 61 72 61 63 74 |external| charact|
|00004b10| 65 72 20 73 65 74 20 62 | 79 20 6d 65 61 6e 73 20 |er set b|y means |
|00004b20| 6f 66 20 61 72 72 61 79 | 73 20 7c 78 6f 72 64 7c |of array|s |xord||
|00004b30| 20 61 6e 64 20 7c 78 63 | 68 72 7c 0a 74 68 61 74 | and |xc|hr|.that|
|00004b40| 20 61 72 65 20 61 6e 61 | 6c 6f 67 6f 75 73 20 74 | are ana|logous t|
|00004b50| 6f 20 5c 50 41 53 43 41 | 4c 27 73 20 7c 6f 72 64 |o \PASCA|L's |ord|
|00004b60| 7c 20 61 6e 64 20 7c 63 | 68 72 7c 20 66 75 6e 63 || and |c|hr| func|
|00004b70| 74 69 6f 6e 73 2e 0a 0a | 40 3c 47 6c 6f 62 61 6c |tions...|@<Global|
|00004b80| 73 2e 2e 2e 40 3e 3d 0a | 40 21 78 6f 72 64 3a 20 |s...@>=.|@!xord: |
|00004b90| 61 72 72 61 79 20 5b 74 | 65 78 74 5f 63 68 61 72 |array [t|ext_char|
|00004ba0| 5d 20 6f 66 20 41 53 43 | 49 49 5f 63 6f 64 65 3b |] of ASC|II_code;|
|00004bb0| 0a 20 20 7b 73 70 65 63 | 69 66 69 65 73 20 63 6f |.  {spec|ifies co|
|00004bc0| 6e 76 65 72 73 69 6f 6e | 20 6f 66 20 69 6e 70 75 |nversion| of inpu|
|00004bd0| 74 20 63 68 61 72 61 63 | 74 65 72 73 7d 0a 40 21 |t charac|ters}.@!|
|00004be0| 78 63 68 72 3a 20 61 72 | 72 61 79 20 5b 30 2e 2e |xchr: ar|ray [0..|
|00004bf0| 32 35 35 5d 20 6f 66 20 | 74 65 78 74 5f 63 68 61 |255] of |text_cha|
|00004c00| 72 3b 0a 20 20 7b 73 70 | 65 63 69 66 69 65 73 20 |r;.  {sp|ecifies |
|00004c10| 63 6f 6e 76 65 72 73 69 | 6f 6e 20 6f 66 20 6f 75 |conversi|on of ou|
|00004c20| 74 70 75 74 20 63 68 61 | 72 61 63 74 65 72 73 7d |tput cha|racters}|
|00004c30| 0a 0a 40 20 55 6e 64 65 | 72 20 6f 75 72 20 61 73 |..@ Unde|r our as|
|00004c40| 73 75 6d 70 74 69 6f 6e | 20 74 68 61 74 20 74 68 |sumption| that th|
|00004c50| 65 20 76 69 73 69 62 6c | 65 20 63 68 61 72 61 63 |e visibl|e charac|
|00004c60| 74 65 72 73 20 6f 66 20 | 73 74 61 6e 64 61 72 64 |ters of |standard|
|00004c70| 20 41 53 43 49 49 20 61 | 72 65 0a 61 6c 6c 20 70 | ASCII a|re.all p|
|00004c80| 72 65 73 65 6e 74 2c 20 | 74 68 65 20 66 6f 6c 6c |resent, |the foll|
|00004c90| 6f 77 69 6e 67 20 61 73 | 73 69 67 6e 6d 65 6e 74 |owing as|signment|
|00004ca0| 20 73 74 61 74 65 6d 65 | 6e 74 73 20 69 6e 69 74 | stateme|nts init|
|00004cb0| 69 61 6c 69 7a 65 20 74 | 68 65 0a 7c 78 63 68 72 |ialize t|he.|xchr|
|00004cc0| 7c 20 61 72 72 61 79 20 | 70 72 6f 70 65 72 6c 79 || array |properly|
|00004cd0| 2c 20 77 69 74 68 6f 75 | 74 20 6e 65 65 64 69 6e |, withou|t needin|
|00004ce0| 67 20 61 6e 79 20 73 79 | 73 74 65 6d 2d 64 65 70 |g any sy|stem-dep|
|00004cf0| 65 6e 64 65 6e 74 20 63 | 68 61 6e 67 65 73 2e 0a |endent c|hanges..|
|00004d00| 0a 40 3c 53 65 74 20 69 | 6e 69 74 2e 2e 2e 40 3e |.@<Set i|nit...@>|
|00004d10| 3d 0a 66 6f 72 20 69 3a | 3d 30 20 74 6f 20 40 27 |=.for i:|=0 to @'|
|00004d20| 33 37 20 64 6f 20 78 63 | 68 72 5b 69 5d 3a 3d 27 |37 do xc|hr[i]:='|
|00004d30| 3f 27 3b 0a 78 63 68 72 | 5b 40 27 34 30 5d 3a 3d |?';.xchr|[@'40]:=|
|00004d40| 27 20 27 3b 0a 78 63 68 | 72 5b 40 27 34 31 5d 3a |' ';.xch|r[@'41]:|
|00004d50| 3d 27 21 27 3b 0a 78 63 | 68 72 5b 40 27 34 32 5d |='!';.xc|hr[@'42]|
|00004d60| 3a 3d 27 22 27 3b 0a 78 | 63 68 72 5b 40 27 34 33 |:='"';.x|chr[@'43|
|00004d70| 5d 3a 3d 27 23 27 3b 0a | 78 63 68 72 5b 40 27 34 |]:='#';.|xchr[@'4|
|00004d80| 34 5d 3a 3d 27 24 27 3b | 0a 78 63 68 72 5b 40 27 |4]:='$';|.xchr[@'|
|00004d90| 34 35 5d 3a 3d 27 25 27 | 3b 0a 78 63 68 72 5b 40 |45]:='%'|;.xchr[@|
|00004da0| 27 34 36 5d 3a 3d 27 26 | 27 3b 0a 78 63 68 72 5b |'46]:='&|';.xchr[|
|00004db0| 40 27 34 37 5d 3a 3d 27 | 27 27 27 3b 40 2f 0a 78 |@'47]:='|''';@/.x|
|00004dc0| 63 68 72 5b 40 27 35 30 | 5d 3a 3d 27 28 27 3b 0a |chr[@'50|]:='(';.|
|00004dd0| 78 63 68 72 5b 40 27 35 | 31 5d 3a 3d 27 29 27 3b |xchr[@'5|1]:=')';|
|00004de0| 0a 78 63 68 72 5b 40 27 | 35 32 5d 3a 3d 27 2a 27 |.xchr[@'|52]:='*'|
|00004df0| 3b 0a 78 63 68 72 5b 40 | 27 35 33 5d 3a 3d 27 2b |;.xchr[@|'53]:='+|
|00004e00| 27 3b 0a 78 63 68 72 5b | 40 27 35 34 5d 3a 3d 27 |';.xchr[|@'54]:='|
|00004e10| 2c 27 3b 0a 78 63 68 72 | 5b 40 27 35 35 5d 3a 3d |,';.xchr|[@'55]:=|
|00004e20| 27 2d 27 3b 0a 78 63 68 | 72 5b 40 27 35 36 5d 3a |'-';.xch|r[@'56]:|
|00004e30| 3d 27 2e 27 3b 0a 78 63 | 68 72 5b 40 27 35 37 5d |='.';.xc|hr[@'57]|
|00004e40| 3a 3d 27 2f 27 3b 40 2f | 0a 78 63 68 72 5b 40 27 |:='/';@/|.xchr[@'|
|00004e50| 36 30 5d 3a 3d 27 30 27 | 3b 0a 78 63 68 72 5b 40 |60]:='0'|;.xchr[@|
|00004e60| 27 36 31 5d 3a 3d 27 31 | 27 3b 0a 78 63 68 72 5b |'61]:='1|';.xchr[|
|00004e70| 40 27 36 32 5d 3a 3d 27 | 32 27 3b 0a 78 63 68 72 |@'62]:='|2';.xchr|
|00004e80| 5b 40 27 36 33 5d 3a 3d | 27 33 27 3b 0a 78 63 68 |[@'63]:=|'3';.xch|
|00004e90| 72 5b 40 27 36 34 5d 3a | 3d 27 34 27 3b 0a 78 63 |r[@'64]:|='4';.xc|
|00004ea0| 68 72 5b 40 27 36 35 5d | 3a 3d 27 35 27 3b 0a 78 |hr[@'65]|:='5';.x|
|00004eb0| 63 68 72 5b 40 27 36 36 | 5d 3a 3d 27 36 27 3b 0a |chr[@'66|]:='6';.|
|00004ec0| 78 63 68 72 5b 40 27 36 | 37 5d 3a 3d 27 37 27 3b |xchr[@'6|7]:='7';|
|00004ed0| 40 2f 0a 78 63 68 72 5b | 40 27 37 30 5d 3a 3d 27 |@/.xchr[|@'70]:='|
|00004ee0| 38 27 3b 0a 78 63 68 72 | 5b 40 27 37 31 5d 3a 3d |8';.xchr|[@'71]:=|
|00004ef0| 27 39 27 3b 0a 78 63 68 | 72 5b 40 27 37 32 5d 3a |'9';.xch|r[@'72]:|
|00004f00| 3d 27 3a 27 3b 0a 78 63 | 68 72 5b 40 27 37 33 5d |=':';.xc|hr[@'73]|
|00004f10| 3a 3d 27 3b 27 3b 0a 78 | 63 68 72 5b 40 27 37 34 |:=';';.x|chr[@'74|
|00004f20| 5d 3a 3d 27 3c 27 3b 0a | 78 63 68 72 5b 40 27 37 |]:='<';.|xchr[@'7|
|00004f30| 35 5d 3a 3d 27 3d 27 3b | 0a 78 63 68 72 5b 40 27 |5]:='=';|.xchr[@'|
|00004f40| 37 36 5d 3a 3d 27 3e 27 | 3b 0a 78 63 68 72 5b 40 |76]:='>'|;.xchr[@|
|00004f50| 27 37 37 5d 3a 3d 27 3f | 27 3b 40 2f 0a 78 63 68 |'77]:='?|';@/.xch|
|00004f60| 72 5b 40 27 31 30 30 5d | 3a 3d 27 40 40 27 3b 0a |r[@'100]|:='@@';.|
|00004f70| 78 63 68 72 5b 40 27 31 | 30 31 5d 3a 3d 27 41 27 |xchr[@'1|01]:='A'|
|00004f80| 3b 0a 78 63 68 72 5b 40 | 27 31 30 32 5d 3a 3d 27 |;.xchr[@|'102]:='|
|00004f90| 42 27 3b 0a 78 63 68 72 | 5b 40 27 31 30 33 5d 3a |B';.xchr|[@'103]:|
|00004fa0| 3d 27 43 27 3b 0a 78 63 | 68 72 5b 40 27 31 30 34 |='C';.xc|hr[@'104|
|00004fb0| 5d 3a 3d 27 44 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='D';.|xchr[@'1|
|00004fc0| 30 35 5d 3a 3d 27 45 27 | 3b 0a 78 63 68 72 5b 40 |05]:='E'|;.xchr[@|
|00004fd0| 27 31 30 36 5d 3a 3d 27 | 46 27 3b 0a 78 63 68 72 |'106]:='|F';.xchr|
|00004fe0| 5b 40 27 31 30 37 5d 3a | 3d 27 47 27 3b 40 2f 0a |[@'107]:|='G';@/.|
|00004ff0| 78 63 68 72 5b 40 27 31 | 31 30 5d 3a 3d 27 48 27 |xchr[@'1|10]:='H'|
|00005000| 3b 0a 78 63 68 72 5b 40 | 27 31 31 31 5d 3a 3d 27 |;.xchr[@|'111]:='|
|00005010| 49 27 3b 0a 78 63 68 72 | 5b 40 27 31 31 32 5d 3a |I';.xchr|[@'112]:|
|00005020| 3d 27 4a 27 3b 0a 78 63 | 68 72 5b 40 27 31 31 33 |='J';.xc|hr[@'113|
|00005030| 5d 3a 3d 27 4b 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='K';.|xchr[@'1|
|00005040| 31 34 5d 3a 3d 27 4c 27 | 3b 0a 78 63 68 72 5b 40 |14]:='L'|;.xchr[@|
|00005050| 27 31 31 35 5d 3a 3d 27 | 4d 27 3b 0a 78 63 68 72 |'115]:='|M';.xchr|
|00005060| 5b 40 27 31 31 36 5d 3a | 3d 27 4e 27 3b 0a 78 63 |[@'116]:|='N';.xc|
|00005070| 68 72 5b 40 27 31 31 37 | 5d 3a 3d 27 4f 27 3b 40 |hr[@'117|]:='O';@|
|00005080| 2f 0a 78 63 68 72 5b 40 | 27 31 32 30 5d 3a 3d 27 |/.xchr[@|'120]:='|
|00005090| 50 27 3b 0a 78 63 68 72 | 5b 40 27 31 32 31 5d 3a |P';.xchr|[@'121]:|
|000050a0| 3d 27 51 27 3b 0a 78 63 | 68 72 5b 40 27 31 32 32 |='Q';.xc|hr[@'122|
|000050b0| 5d 3a 3d 27 52 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='R';.|xchr[@'1|
|000050c0| 32 33 5d 3a 3d 27 53 27 | 3b 0a 78 63 68 72 5b 40 |23]:='S'|;.xchr[@|
|000050d0| 27 31 32 34 5d 3a 3d 27 | 54 27 3b 0a 78 63 68 72 |'124]:='|T';.xchr|
|000050e0| 5b 40 27 31 32 35 5d 3a | 3d 27 55 27 3b 0a 78 63 |[@'125]:|='U';.xc|
|000050f0| 68 72 5b 40 27 31 32 36 | 5d 3a 3d 27 56 27 3b 0a |hr[@'126|]:='V';.|
|00005100| 78 63 68 72 5b 40 27 31 | 32 37 5d 3a 3d 27 57 27 |xchr[@'1|27]:='W'|
|00005110| 3b 40 2f 0a 78 63 68 72 | 5b 40 27 31 33 30 5d 3a |;@/.xchr|[@'130]:|
|00005120| 3d 27 58 27 3b 0a 78 63 | 68 72 5b 40 27 31 33 31 |='X';.xc|hr[@'131|
|00005130| 5d 3a 3d 27 59 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='Y';.|xchr[@'1|
|00005140| 33 32 5d 3a 3d 27 5a 27 | 3b 0a 78 63 68 72 5b 40 |32]:='Z'|;.xchr[@|
|00005150| 27 31 33 33 5d 3a 3d 27 | 5b 27 3b 0a 78 63 68 72 |'133]:='|[';.xchr|
|00005160| 5b 40 27 31 33 34 5d 3a | 3d 27 5c 27 3b 0a 78 63 |[@'134]:|='\';.xc|
|00005170| 68 72 5b 40 27 31 33 35 | 5d 3a 3d 27 5d 27 3b 0a |hr[@'135|]:=']';.|
|00005180| 78 63 68 72 5b 40 27 31 | 33 36 5d 3a 3d 27 5e 27 |xchr[@'1|36]:='^'|
|00005190| 3b 0a 78 63 68 72 5b 40 | 27 31 33 37 5d 3a 3d 27 |;.xchr[@|'137]:='|
|000051a0| 5f 27 3b 40 2f 0a 78 63 | 68 72 5b 40 27 31 34 30 |_';@/.xc|hr[@'140|
|000051b0| 5d 3a 3d 27 60 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='`';.|xchr[@'1|
|000051c0| 34 31 5d 3a 3d 27 61 27 | 3b 0a 78 63 68 72 5b 40 |41]:='a'|;.xchr[@|
|000051d0| 27 31 34 32 5d 3a 3d 27 | 62 27 3b 0a 78 63 68 72 |'142]:='|b';.xchr|
|000051e0| 5b 40 27 31 34 33 5d 3a | 3d 27 63 27 3b 0a 78 63 |[@'143]:|='c';.xc|
|000051f0| 68 72 5b 40 27 31 34 34 | 5d 3a 3d 27 64 27 3b 0a |hr[@'144|]:='d';.|
|00005200| 78 63 68 72 5b 40 27 31 | 34 35 5d 3a 3d 27 65 27 |xchr[@'1|45]:='e'|
|00005210| 3b 0a 78 63 68 72 5b 40 | 27 31 34 36 5d 3a 3d 27 |;.xchr[@|'146]:='|
|00005220| 66 27 3b 0a 78 63 68 72 | 5b 40 27 31 34 37 5d 3a |f';.xchr|[@'147]:|
|00005230| 3d 27 67 27 3b 40 2f 0a | 78 63 68 72 5b 40 27 31 |='g';@/.|xchr[@'1|
|00005240| 35 30 5d 3a 3d 27 68 27 | 3b 0a 78 63 68 72 5b 40 |50]:='h'|;.xchr[@|
|00005250| 27 31 35 31 5d 3a 3d 27 | 69 27 3b 0a 78 63 68 72 |'151]:='|i';.xchr|
|00005260| 5b 40 27 31 35 32 5d 3a | 3d 27 6a 27 3b 0a 78 63 |[@'152]:|='j';.xc|
|00005270| 68 72 5b 40 27 31 35 33 | 5d 3a 3d 27 6b 27 3b 0a |hr[@'153|]:='k';.|
|00005280| 78 63 68 72 5b 40 27 31 | 35 34 5d 3a 3d 27 6c 27 |xchr[@'1|54]:='l'|
|00005290| 3b 0a 78 63 68 72 5b 40 | 27 31 35 35 5d 3a 3d 27 |;.xchr[@|'155]:='|
|000052a0| 6d 27 3b 0a 78 63 68 72 | 5b 40 27 31 35 36 5d 3a |m';.xchr|[@'156]:|
|000052b0| 3d 27 6e 27 3b 0a 78 63 | 68 72 5b 40 27 31 35 37 |='n';.xc|hr[@'157|
|000052c0| 5d 3a 3d 27 6f 27 3b 40 | 2f 0a 78 63 68 72 5b 40 |]:='o';@|/.xchr[@|
|000052d0| 27 31 36 30 5d 3a 3d 27 | 70 27 3b 0a 78 63 68 72 |'160]:='|p';.xchr|
|000052e0| 5b 40 27 31 36 31 5d 3a | 3d 27 71 27 3b 0a 78 63 |[@'161]:|='q';.xc|
|000052f0| 68 72 5b 40 27 31 36 32 | 5d 3a 3d 27 72 27 3b 0a |hr[@'162|]:='r';.|
|00005300| 78 63 68 72 5b 40 27 31 | 36 33 5d 3a 3d 27 73 27 |xchr[@'1|63]:='s'|
|00005310| 3b 0a 78 63 68 72 5b 40 | 27 31 36 34 5d 3a 3d 27 |;.xchr[@|'164]:='|
|00005320| 74 27 3b 0a 78 63 68 72 | 5b 40 27 31 36 35 5d 3a |t';.xchr|[@'165]:|
|00005330| 3d 27 75 27 3b 0a 78 63 | 68 72 5b 40 27 31 36 36 |='u';.xc|hr[@'166|
|00005340| 5d 3a 3d 27 76 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='v';.|xchr[@'1|
|00005350| 36 37 5d 3a 3d 27 77 27 | 3b 40 2f 0a 78 63 68 72 |67]:='w'|;@/.xchr|
|00005360| 5b 40 27 31 37 30 5d 3a | 3d 27 78 27 3b 0a 78 63 |[@'170]:|='x';.xc|
|00005370| 68 72 5b 40 27 31 37 31 | 5d 3a 3d 27 79 27 3b 0a |hr[@'171|]:='y';.|
|00005380| 78 63 68 72 5b 40 27 31 | 37 32 5d 3a 3d 27 7a 27 |xchr[@'1|72]:='z'|
|00005390| 3b 0a 78 63 68 72 5b 40 | 27 31 37 33 5d 3a 3d 27 |;.xchr[@|'173]:='|
|000053a0| 7b 27 3b 0a 78 63 68 72 | 5b 40 27 31 37 34 5d 3a |{';.xchr|[@'174]:|
|000053b0| 3d 27 7c 27 3b 0a 78 63 | 68 72 5b 40 27 31 37 35 |='|';.xc|hr[@'175|
|000053c0| 5d 3a 3d 27 7d 27 3b 0a | 78 63 68 72 5b 40 27 31 |]:='}';.|xchr[@'1|
|000053d0| 37 36 5d 3a 3d 27 7e 27 | 3b 0a 66 6f 72 20 69 3a |76]:='~'|;.for i:|
|000053e0| 3d 40 27 31 37 37 20 74 | 6f 20 32 35 35 20 64 6f |=@'177 t|o 255 do|
|000053f0| 20 78 63 68 72 5b 69 5d | 3a 3d 27 3f 27 3b 0a 20 | xchr[i]|:='?';. |
|00005400| 20 0a 40 20 54 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | .@ The |followin|
|00005410| 67 20 73 79 73 74 65 6d | 2d 69 6e 64 65 70 65 6e |g system|-indepen|
|00005420| 64 65 6e 74 20 63 6f 64 | 65 20 6d 61 6b 65 73 20 |dent cod|e makes |
|00005430| 74 68 65 20 7c 78 6f 72 | 64 7c 20 61 72 72 61 79 |the |xor|d| array|
|00005440| 20 63 6f 6e 74 61 69 6e | 20 61 0a 73 75 69 74 61 | contain| a.suita|
|00005450| 62 6c 65 20 69 6e 76 65 | 72 73 65 20 74 6f 20 74 |ble inve|rse to t|
|00005460| 68 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 69 |he infor|mation i|
|00005470| 6e 20 7c 78 63 68 72 7c | 2e 0a 20 20 0a 40 3c 53 |n |xchr||..  .@<S|
|00005480| 65 74 20 69 6e 69 74 2e | 2e 2e 40 3e 3d 0a 66 6f |et init.|..@>=.fo|
|00005490| 72 20 69 3a 3d 66 69 72 | 73 74 5f 74 65 78 74 5f |r i:=fir|st_text_|
|000054a0| 63 68 61 72 20 74 6f 20 | 6c 61 73 74 5f 74 65 78 |char to |last_tex|
|000054b0| 74 5f 63 68 61 72 20 64 | 6f 20 78 6f 72 64 5b 63 |t_char d|o xord[c|
|000054c0| 68 72 28 69 29 5d 3a 3d | 40 27 34 30 3b 0a 66 6f |hr(i)]:=|@'40;.fo|
|000054d0| 72 20 69 3a 3d 22 20 22 | 20 74 6f 20 22 7e 22 20 |r i:=" "| to "~" |
|000054e0| 64 6f 20 78 6f 72 64 5b | 78 63 68 72 5b 69 5d 5d |do xord[|xchr[i]]|
|000054f0| 3a 3d 69 3b 0a 20 20 0a | 40 20 54 68 65 20 4c 61 |:=i;.  .|@ The La|
|00005500| 73 65 72 4a 65 74 20 72 | 65 66 75 73 65 73 20 74 |serJet r|efuses t|
|00005510| 6f 20 70 72 69 6e 74 20 | 6f 74 68 65 72 20 74 68 |o print |other th|
|00005520| 61 74 20 60 76 69 73 69 | 62 6c 65 20 63 68 61 72 |at `visi|ble char|
|00005530| 61 63 74 65 72 73 27 2c | 20 74 68 61 74 20 69 73 |acters',| that is|
|00005540| 0a 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 74 |.charact|ers in t|
|00005550| 68 65 20 72 61 6e 67 65 | 20 40 27 34 31 2d 2d 40 |he range| @'41--@|
|00005560| 27 31 37 37 20 6f 72 20 | 40 27 32 34 30 2d 2d 40 |'177 or |@'240--@|
|00005570| 27 33 37 37 2e 0a 20 20 | 0a 40 70 20 66 75 6e 63 |'377..  |.@p func|
|00005580| 74 69 6f 6e 20 76 69 73 | 5f 63 68 72 28 70 20 3a |tion vis|_chr(p :|
|00005590| 20 69 6e 74 65 67 65 72 | 29 3a 63 68 61 72 3b 0a | integer|):char;.|
|000055a0| 62 65 67 69 6e 0a 20 20 | 69 66 20 70 20 3c 20 40 |begin.  |if p < @|
|000055b0| 27 34 31 20 74 68 65 6e | 0a 20 20 20 20 70 3a 3d |'41 then|.    p:=|
|000055c0| 70 2b 40 27 32 34 30 3b | 0a 20 20 76 69 73 5f 63 |p+@'240;|.  vis_c|
|000055d0| 68 72 3a 3d 63 68 72 28 | 70 29 3b 0a 65 6e 64 3b |hr:=chr(|p);.end;|
|000055e0| 0a 20 20 0a 40 2a 20 44 | 65 76 69 63 65 2d 69 6e |.  .@* D|evice-in|
|000055f0| 64 65 70 65 6e 64 65 6e | 74 20 66 69 6c 65 20 66 |dependen|t file f|
|00005600| 6f 72 6d 61 74 2e 0a 42 | 65 66 6f 72 65 20 77 65 |ormat..B|efore we|
|00005610| 20 67 65 74 20 69 6e 74 | 6f 20 74 68 65 20 64 65 | get int|o the de|
|00005620| 74 61 69 6c 73 20 6f 66 | 20 5c 2e 7b 44 56 49 70 |tails of| \.{DVIp|
|00005630| 6c 75 73 7d 2c 20 77 65 | 20 6e 65 65 64 20 74 6f |lus}, we| need to|
|00005640| 20 6b 6e 6f 77 20 65 78 | 61 63 74 6c 79 0a 77 68 | know ex|actly.wh|
|00005650| 61 74 20 5c 2e 7b 44 56 | 49 7d 20 66 69 6c 65 73 |at \.{DV|I} files|
|00005660| 20 61 72 65 2e 20 54 68 | 65 20 66 6f 72 6d 20 6f | are. Th|e form o|
|00005670| 66 20 73 75 63 68 20 66 | 69 6c 65 73 20 77 61 73 |f such f|iles was|
|00005680| 20 64 65 73 69 67 6e 65 | 64 20 62 79 20 44 61 76 | designe|d by Dav|
|00005690| 69 64 20 52 2e 0a 40 5e | 46 75 63 68 73 2c 20 44 |id R..@^|Fuchs, D|
|000056a0| 61 76 69 64 20 52 61 79 | 6d 6f 6e 64 40 3e 0a 46 |avid Ray|mond@>.F|
|000056b0| 75 63 68 73 20 69 6e 20 | 31 39 37 39 2e 20 41 6c |uchs in |1979. Al|
|000056c0| 6d 6f 73 74 20 61 6e 79 | 20 72 65 61 73 6f 6e 61 |most any| reasona|
|000056d0| 62 6c 65 20 74 79 70 65 | 73 65 74 74 69 6e 67 20 |ble type|setting |
|000056e0| 64 65 76 69 63 65 20 63 | 61 6e 20 62 65 20 64 72 |device c|an be dr|
|000056f0| 69 76 65 6e 20 62 79 0a | 61 20 70 72 6f 67 72 61 |iven by.|a progra|
|00005700| 6d 20 74 68 61 74 20 74 | 61 6b 65 73 20 5c 2e 7b |m that t|akes \.{|
|00005710| 44 56 49 7d 20 66 69 6c | 65 73 20 61 73 20 69 6e |DVI} fil|es as in|
|00005720| 70 75 74 2c 20 61 6e 64 | 20 64 6f 7a 65 6e 73 20 |put, and| dozens |
|00005730| 6f 66 20 73 75 63 68 0a | 5c 2e 7b 44 56 49 7d 2d |of such.|\.{DVI}-|
|00005740| 74 6f 2d 77 68 61 74 65 | 76 65 72 20 70 72 6f 67 |to-whate|ver prog|
|00005750| 72 61 6d 73 20 68 61 76 | 65 20 62 65 65 6e 20 77 |rams hav|e been w|
|00005760| 72 69 74 74 65 6e 2e 20 | 54 68 75 73 2c 20 69 74 |ritten. |Thus, it|
|00005770| 20 69 73 20 70 6f 73 73 | 69 62 6c 65 20 74 6f 0a | is poss|ible to.|
|00005780| 70 72 69 6e 74 20 74 68 | 65 20 6f 75 74 70 75 74 |print th|e output|
|00005790| 20 6f 66 20 64 6f 63 75 | 6d 65 6e 74 20 63 6f 6d | of docu|ment com|
|000057a0| 70 69 6c 65 72 73 20 6c | 69 6b 65 20 5c 54 65 58 |pilers l|ike \TeX|
|000057b0| 5c 20 6f 6e 20 6d 61 6e | 79 20 64 69 66 66 65 72 |\ on man|y differ|
|000057c0| 65 6e 74 20 6b 69 6e 64 | 73 0a 6f 66 20 65 71 75 |ent kind|s.of equ|
|000057d0| 69 70 6d 65 6e 74 2e 0a | 20 20 0a 41 20 5c 2e 7b |ipment..|  .A \.{|
|000057e0| 44 56 49 7d 20 66 69 6c | 65 20 69 73 20 61 20 73 |DVI} fil|e is a s|
|000057f0| 74 72 65 61 6d 20 6f 66 | 20 38 2d 62 69 74 20 62 |tream of| 8-bit b|
|00005800| 79 74 65 73 2c 20 77 68 | 69 63 68 20 6d 61 79 20 |ytes, wh|ich may |
|00005810| 62 65 20 72 65 67 61 72 | 64 65 64 20 61 73 20 61 |be regar|ded as a|
|00005820| 0a 73 65 72 69 65 73 20 | 6f 66 20 63 6f 6d 6d 61 |.series |of comma|
|00005830| 6e 64 73 20 69 6e 20 61 | 20 6d 61 63 68 69 6e 65 |nds in a| machine|
|00005840| 2d 6c 69 6b 65 20 6c 61 | 6e 67 75 61 67 65 2e 20 |-like la|nguage. |
|00005850| 54 68 65 20 66 69 72 73 | 74 20 62 79 74 65 20 6f |The firs|t byte o|
|00005860| 66 20 65 61 63 68 20 63 | 6f 6d 6d 61 6e 64 0a 69 |f each c|ommand.i|
|00005870| 73 20 74 68 65 20 6f 70 | 65 72 61 74 69 6f 6e 20 |s the op|eration |
|00005880| 63 6f 64 65 2c 20 61 6e | 64 20 74 68 69 73 20 63 |code, an|d this c|
|00005890| 6f 64 65 20 69 73 20 66 | 6f 6c 6c 6f 77 65 64 20 |ode is f|ollowed |
|000058a0| 62 79 20 7a 65 72 6f 20 | 6f 72 20 6d 6f 72 65 20 |by zero |or more |
|000058b0| 62 79 74 65 73 0a 74 68 | 61 74 20 70 72 6f 76 69 |bytes.th|at provi|
|000058c0| 64 65 20 70 61 72 61 6d | 65 74 65 72 73 20 74 6f |de param|eters to|
|000058d0| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 2e 20 54 68 | the com|mand. Th|
|000058e0| 65 20 70 61 72 61 6d 65 | 74 65 72 73 20 74 68 65 |e parame|ters the|
|000058f0| 6d 73 65 6c 76 65 73 20 | 6d 61 79 20 63 6f 6e 73 |mselves |may cons|
|00005900| 69 73 74 0a 6f 66 20 73 | 65 76 65 72 61 6c 20 63 |ist.of s|everal c|
|00005910| 6f 6e 73 65 63 75 74 69 | 76 65 20 62 79 74 65 73 |onsecuti|ve bytes|
|00005920| 3b 20 66 6f 72 20 65 78 | 61 6d 70 6c 65 2c 20 74 |; for ex|ample, t|
|00005930| 68 65 20 60 7c 73 65 74 | 5f 72 75 6c 65 7c 27 20 |he `|set|_rule|' |
|00005940| 63 6f 6d 6d 61 6e 64 20 | 68 61 73 20 74 77 6f 0a |command |has two.|
|00005950| 70 61 72 61 6d 65 74 65 | 72 73 2c 20 65 61 63 68 |paramete|rs, each|
|00005960| 20 6f 66 20 77 68 69 63 | 68 20 69 73 20 66 6f 75 | of whic|h is fou|
|00005970| 72 20 62 79 74 65 73 20 | 6c 6f 6e 67 2e 20 50 61 |r bytes |long. Pa|
|00005980| 72 61 6d 65 74 65 72 73 | 20 61 72 65 20 75 73 75 |rameters| are usu|
|00005990| 61 6c 6c 79 0a 72 65 67 | 61 72 64 65 64 20 61 73 |ally.reg|arded as|
|000059a0| 20 6e 6f 6e 6e 65 67 61 | 74 69 76 65 20 69 6e 74 | nonnega|tive int|
|000059b0| 65 67 65 72 73 3b 20 62 | 75 74 20 66 6f 75 72 2d |egers; b|ut four-|
|000059c0| 62 79 74 65 2d 6c 6f 6e | 67 20 70 61 72 61 6d 65 |byte-lon|g parame|
|000059d0| 74 65 72 73 2c 0a 61 6e | 64 20 73 68 6f 72 74 65 |ters,.an|d shorte|
|000059e0| 72 20 70 61 72 61 6d 65 | 74 65 72 73 20 74 68 61 |r parame|ters tha|
|000059f0| 74 20 64 65 6e 6f 74 65 | 20 64 69 73 74 61 6e 63 |t denote| distanc|
|00005a00| 65 73 2c 20 63 61 6e 20 | 62 65 0a 65 69 74 68 65 |es, can |be.eithe|
|00005a10| 72 20 70 6f 73 69 74 69 | 76 65 20 6f 72 20 6e 65 |r positi|ve or ne|
|00005a20| 67 61 74 69 76 65 2e 20 | 53 75 63 68 20 70 61 72 |gative. |Such par|
|00005a30| 61 6d 65 74 65 72 73 20 | 61 72 65 20 67 69 76 65 |ameters |are give|
|00005a40| 6e 20 69 6e 20 74 77 6f | 27 73 20 63 6f 6d 70 6c |n in two|'s compl|
|00005a50| 65 6d 65 6e 74 0a 6e 6f | 74 61 74 69 6f 6e 2e 20 |ement.no|tation. |
|00005a60| 46 6f 72 20 65 78 61 6d | 70 6c 65 2c 20 61 20 74 |For exam|ple, a t|
|00005a70| 77 6f 2d 62 79 74 65 2d | 6c 6f 6e 67 20 64 69 73 |wo-byte-|long dis|
|00005a80| 74 61 6e 63 65 20 70 61 | 72 61 6d 65 74 65 72 20 |tance pa|rameter |
|00005a90| 68 61 73 20 61 20 76 61 | 6c 75 65 20 62 65 74 77 |has a va|lue betw|
|00005aa0| 65 65 6e 0a 24 2d 32 5e | 7b 31 35 7d 24 20 61 6e |een.$-2^|{15}$ an|
|00005ab0| 64 20 24 32 5e 7b 31 35 | 7d 2d 31 24 2e 0a 40 2e |d $2^{15|}-1$..@.|
|00005ac0| 44 56 49 20 7b 5c 72 6d | 20 66 69 6c 65 73 7d 40 |DVI {\rm| files}@|
|00005ad0| 3e 0a 0a 41 20 5c 2e 7b | 44 56 49 7d 20 66 69 6c |>..A \.{|DVI} fil|
|00005ae0| 65 20 63 6f 6e 73 69 73 | 74 73 20 6f 66 20 61 20 |e consis|ts of a |
|00005af0| 60 60 70 72 65 61 6d 62 | 6c 65 2c 27 27 20 66 6f |``preamb|le,'' fo|
|00005b00| 6c 6c 6f 77 65 64 20 62 | 79 20 61 20 73 65 71 75 |llowed b|y a sequ|
|00005b10| 65 6e 63 65 20 6f 66 20 | 6f 6e 65 0a 6f 72 20 6d |ence of |one.or m|
|00005b20| 6f 72 65 20 60 60 70 61 | 67 65 73 2c 27 27 20 66 |ore ``pa|ges,'' f|
|00005b30| 6f 6c 6c 6f 77 65 64 20 | 62 79 20 61 20 60 60 70 |ollowed |by a ``p|
|00005b40| 6f 73 74 61 6d 62 6c 65 | 2e 27 27 20 54 68 65 20 |ostamble|.'' The |
|00005b50| 70 72 65 61 6d 62 6c 65 | 20 69 73 20 73 69 6d 70 |preamble| is simp|
|00005b60| 6c 79 20 61 0a 7c 70 72 | 65 7c 20 63 6f 6d 6d 61 |ly a.|pr|e| comma|
|00005b70| 6e 64 2c 20 77 69 74 68 | 20 69 74 73 20 70 61 72 |nd, with| its par|
|00005b80| 61 6d 65 74 65 72 73 20 | 74 68 61 74 20 64 65 66 |ameters |that def|
|00005b90| 69 6e 65 20 74 68 65 20 | 64 69 6d 65 6e 73 69 6f |ine the |dimensio|
|00005ba0| 6e 73 20 75 73 65 64 20 | 69 6e 20 74 68 65 0a 66 |ns used |in the.f|
|00005bb0| 69 6c 65 3b 20 74 68 69 | 73 20 6d 75 73 74 20 63 |ile; thi|s must c|
|00005bc0| 6f 6d 65 20 66 69 72 73 | 74 2e 20 20 45 61 63 68 |ome firs|t.  Each|
|00005bd0| 20 60 60 70 61 67 65 27 | 27 20 63 6f 6e 73 69 73 | ``page'|' consis|
|00005be0| 74 73 20 6f 66 20 61 20 | 7c 62 6f 70 7c 20 63 6f |ts of a ||bop| co|
|00005bf0| 6d 6d 61 6e 64 2c 0a 66 | 6f 6c 6c 6f 77 65 64 20 |mmand,.f|ollowed |
|00005c00| 62 79 20 61 6e 79 20 6e | 75 6d 62 65 72 20 6f 66 |by any n|umber of|
|00005c10| 20 6f 74 68 65 72 20 63 | 6f 6d 6d 61 6e 64 73 20 | other c|ommands |
|00005c20| 74 68 61 74 20 74 65 6c | 6c 20 77 68 65 72 65 20 |that tel|l where |
|00005c30| 63 68 61 72 61 63 74 65 | 72 73 20 61 72 65 20 74 |characte|rs are t|
|00005c40| 6f 0a 62 65 20 70 6c 61 | 63 65 64 20 6f 6e 20 61 |o.be pla|ced on a|
|00005c50| 20 70 68 79 73 69 63 61 | 6c 20 70 61 67 65 2c 20 | physica|l page, |
|00005c60| 66 6f 6c 6c 6f 77 65 64 | 20 62 79 20 61 6e 20 7c |followed| by an ||
|00005c70| 65 6f 70 7c 20 63 6f 6d | 6d 61 6e 64 2e 20 54 68 |eop| com|mand. Th|
|00005c80| 65 20 70 61 67 65 73 0a | 61 70 70 65 61 72 20 69 |e pages.|appear i|
|00005c90| 6e 20 74 68 65 20 6f 72 | 64 65 72 20 74 68 61 74 |n the or|der that|
|00005ca0| 20 74 68 65 79 20 77 65 | 72 65 20 67 65 6e 65 72 | they we|re gener|
|00005cb0| 61 74 65 64 2c 20 6e 6f | 74 20 69 6e 20 61 6e 79 |ated, no|t in any|
|00005cc0| 20 70 61 72 74 69 63 75 | 6c 61 72 0a 6e 75 6d 65 | particu|lar.nume|
|00005cd0| 72 69 63 61 6c 20 6f 72 | 64 65 72 2e 20 49 66 20 |rical or|der. If |
|00005ce0| 77 65 20 69 67 6e 6f 72 | 65 20 7c 6e 6f 70 7c 20 |we ignor|e |nop| |
|00005cf0| 63 6f 6d 6d 61 6e 64 73 | 20 61 6e 64 20 5c 5c 7b |commands| and \\{|
|00005d00| 66 6e 74 5c 5f 64 65 66 | 7d 20 63 6f 6d 6d 61 6e |fnt\_def|} comman|
|00005d10| 64 73 0a 28 77 68 69 63 | 68 20 61 72 65 20 61 6c |ds.(whic|h are al|
|00005d20| 6c 6f 77 65 64 20 62 65 | 74 77 65 65 6e 20 61 6e |lowed be|tween an|
|00005d30| 79 20 74 77 6f 20 63 6f | 6d 6d 61 6e 64 73 20 69 |y two co|mmands i|
|00005d40| 6e 20 74 68 65 20 66 69 | 6c 65 29 2c 20 65 61 63 |n the fi|le), eac|
|00005d50| 68 20 7c 65 6f 70 7c 0a | 63 6f 6d 6d 61 6e 64 20 |h |eop|.|command |
|00005d60| 69 73 20 69 6d 6d 65 64 | 69 61 74 65 6c 79 20 66 |is immed|iately f|
|00005d70| 6f 6c 6c 6f 77 65 64 20 | 62 79 20 61 20 7c 62 6f |ollowed |by a |bo|
|00005d80| 70 7c 20 63 6f 6d 6d 61 | 6e 64 2c 20 6f 72 20 62 |p| comma|nd, or b|
|00005d90| 79 20 61 20 7c 70 6f 73 | 74 7c 0a 63 6f 6d 6d 61 |y a |pos|t|.comma|
|00005da0| 6e 64 3b 20 69 6e 20 74 | 68 65 20 6c 61 74 74 65 |nd; in t|he latte|
|00005db0| 72 20 63 61 73 65 2c 20 | 74 68 65 72 65 20 61 72 |r case, |there ar|
|00005dc0| 65 20 6e 6f 20 6d 6f 72 | 65 20 70 61 67 65 73 20 |e no mor|e pages |
|00005dd0| 69 6e 20 74 68 65 20 66 | 69 6c 65 2c 20 61 6e 64 |in the f|ile, and|
|00005de0| 20 74 68 65 0a 72 65 6d | 61 69 6e 69 6e 67 20 62 | the.rem|aining b|
|00005df0| 79 74 65 73 20 66 6f 72 | 6d 20 74 68 65 20 70 6f |ytes for|m the po|
|00005e00| 73 74 61 6d 62 6c 65 2e | 20 20 46 75 72 74 68 65 |stamble.|  Furthe|
|00005e10| 72 20 64 65 74 61 69 6c | 73 20 61 62 6f 75 74 20 |r detail|s about |
|00005e20| 74 68 65 20 70 6f 73 74 | 61 6d 62 6c 65 0a 77 69 |the post|amble.wi|
|00005e30| 6c 6c 20 62 65 20 65 78 | 70 6c 61 69 6e 65 64 20 |ll be ex|plained |
|00005e40| 6c 61 74 65 72 2e 0a 0a | 53 6f 6d 65 20 70 61 72 |later...|Some par|
|00005e50| 61 6d 65 74 65 72 73 20 | 69 6e 20 5c 2e 7b 44 56 |ameters |in \.{DV|
|00005e60| 49 7d 20 63 6f 6d 6d 61 | 6e 64 73 20 61 72 65 20 |I} comma|nds are |
|00005e70| 60 60 70 6f 69 6e 74 65 | 72 73 2e 27 27 20 54 68 |``pointe|rs.'' Th|
|00005e80| 65 73 65 20 61 72 65 20 | 66 6f 75 72 2d 62 79 74 |ese are |four-byt|
|00005e90| 65 0a 71 75 61 6e 74 69 | 74 69 65 73 20 74 68 61 |e.quanti|ties tha|
|00005ea0| 74 20 67 69 76 65 20 74 | 68 65 20 6c 6f 63 61 74 |t give t|he locat|
|00005eb0| 69 6f 6e 20 6e 75 6d 62 | 65 72 20 6f 66 20 73 6f |ion numb|er of so|
|00005ec0| 6d 65 20 6f 74 68 65 72 | 20 62 79 74 65 20 69 6e |me other| byte in|
|00005ed0| 20 74 68 65 20 66 69 6c | 65 3b 0a 74 68 65 20 66 | the fil|e;.the f|
|00005ee0| 69 72 73 74 20 62 79 74 | 65 20 69 73 20 6e 75 6d |irst byt|e is num|
|00005ef0| 62 65 72 7e 30 2c 20 74 | 68 65 6e 20 63 6f 6d 65 |ber~0, t|hen come|
|00005f00| 73 20 6e 75 6d 62 65 72 | 7e 31 2c 20 61 6e 64 20 |s number|~1, and |
|00005f10| 73 6f 20 6f 6e 2e 20 46 | 6f 72 20 65 78 61 6d 70 |so on. F|or examp|
|00005f20| 6c 65 2c 0a 6f 6e 65 20 | 6f 66 20 74 68 65 20 70 |le,.one |of the p|
|00005f30| 61 72 61 6d 65 74 65 72 | 73 20 6f 66 20 61 20 7c |arameter|s of a ||
|00005f40| 62 6f 70 7c 20 63 6f 6d | 6d 61 6e 64 20 70 6f 69 |bop| com|mand poi|
|00005f50| 6e 74 73 20 74 6f 20 74 | 68 65 20 70 72 65 76 69 |nts to t|he previ|
|00005f60| 6f 75 73 20 7c 62 6f 70 | 7c 3b 0a 74 68 69 73 20 |ous |bop||;.this |
|00005f70| 6d 61 6b 65 73 20 69 74 | 20 66 65 61 73 69 62 6c |makes it| feasibl|
|00005f80| 65 20 74 6f 20 72 65 61 | 64 20 74 68 65 20 70 61 |e to rea|d the pa|
|00005f90| 67 65 73 20 69 6e 20 62 | 61 63 6b 77 61 72 64 73 |ges in b|ackwards|
|00005fa0| 20 6f 72 64 65 72 2c 20 | 69 6e 20 63 61 73 65 20 | order, |in case |
|00005fb0| 74 68 65 0a 72 65 73 75 | 6c 74 73 20 61 72 65 20 |the.resu|lts are |
|00005fc0| 62 65 69 6e 67 20 64 69 | 72 65 63 74 65 64 20 74 |being di|rected t|
|00005fd0| 6f 20 61 20 64 65 76 69 | 63 65 20 74 68 61 74 20 |o a devi|ce that |
|00005fe0| 73 74 61 63 6b 73 20 69 | 74 73 20 6f 75 74 70 75 |stacks i|ts outpu|
|00005ff0| 74 20 66 61 63 65 20 75 | 70 2e 0a 53 75 70 70 6f |t face u|p..Suppo|
|00006000| 73 65 20 74 68 65 20 70 | 72 65 61 6d 62 6c 65 20 |se the p|reamble |
|00006010| 6f 66 20 61 20 5c 2e 7b | 44 56 49 7d 20 66 69 6c |of a \.{|DVI} fil|
|00006020| 65 20 6f 63 63 75 70 69 | 65 73 20 62 79 74 65 73 |e occupi|es bytes|
|00006030| 20 30 20 74 6f 20 39 39 | 2e 20 4e 6f 77 20 69 66 | 0 to 99|. Now if|
|00006040| 20 74 68 65 0a 66 69 72 | 73 74 20 70 61 67 65 20 | the.fir|st page |
|00006050| 6f 63 63 75 70 69 65 73 | 20 62 79 74 65 73 20 31 |occupies| bytes 1|
|00006060| 30 30 20 74 6f 20 39 39 | 39 2c 20 73 61 79 2c 20 |00 to 99|9, say, |
|00006070| 61 6e 64 20 69 66 20 74 | 68 65 20 73 65 63 6f 6e |and if t|he secon|
|00006080| 64 0a 70 61 67 65 20 6f | 63 63 75 70 69 65 73 20 |d.page o|ccupies |
|00006090| 62 79 74 65 73 20 31 30 | 30 30 20 74 6f 20 31 39 |bytes 10|00 to 19|
|000060a0| 39 39 2c 20 74 68 65 6e | 20 74 68 65 20 7c 62 6f |99, then| the |bo|
|000060b0| 70 7c 20 74 68 61 74 20 | 73 74 61 72 74 73 20 69 |p| that |starts i|
|000060c0| 6e 20 62 79 74 65 20 31 | 30 30 30 0a 70 6f 69 6e |n byte 1|000.poin|
|000060d0| 74 73 20 74 6f 20 31 30 | 30 20 61 6e 64 20 74 68 |ts to 10|0 and th|
|000060e0| 65 20 7c 62 6f 70 7c 20 | 74 68 61 74 20 73 74 61 |e |bop| |that sta|
|000060f0| 72 74 73 20 69 6e 20 62 | 79 74 65 20 32 30 30 30 |rts in b|yte 2000|
|00006100| 20 70 6f 69 6e 74 73 20 | 74 6f 20 31 30 30 30 2e | points |to 1000.|
|00006110| 20 28 54 68 65 0a 76 65 | 72 79 20 66 69 72 73 74 | (The.ve|ry first|
|00006120| 20 7c 62 6f 70 7c 2c 20 | 69 2e 65 2e 2c 20 74 68 | |bop|, |i.e., th|
|00006130| 65 20 6f 6e 65 20 74 68 | 61 74 20 73 74 61 72 74 |e one th|at start|
|00006140| 73 20 69 6e 20 62 79 74 | 65 20 31 30 30 2c 20 68 |s in byt|e 100, h|
|00006150| 61 73 20 61 20 70 6f 69 | 6e 74 65 72 20 6f 66 20 |as a poi|nter of |
|00006160| 24 2d 31 24 2e 29 0a 0a | 40 20 54 68 65 20 5c 2e |$-1$.)..|@ The \.|
|00006170| 7b 44 56 49 7d 20 66 6f | 72 6d 61 74 20 69 73 20 |{DVI} fo|rmat is |
|00006180| 69 6e 74 65 6e 64 65 64 | 20 74 6f 20 62 65 20 62 |intended| to be b|
|00006190| 6f 74 68 20 63 6f 6d 70 | 61 63 74 20 61 6e 64 20 |oth comp|act and |
|000061a0| 65 61 73 69 6c 79 20 69 | 6e 74 65 72 70 72 65 74 |easily i|nterpret|
|000061b0| 65 64 0a 62 79 20 61 20 | 6d 61 63 68 69 6e 65 2e |ed.by a |machine.|
|000061c0| 20 43 6f 6d 70 61 63 74 | 6e 65 73 73 20 69 73 20 | Compact|ness is |
|000061d0| 61 63 68 69 65 76 65 64 | 20 62 79 20 6d 61 6b 69 |achieved| by maki|
|000061e0| 6e 67 20 6d 6f 73 74 20 | 6f 66 20 74 68 65 20 69 |ng most |of the i|
|000061f0| 6e 66 6f 72 6d 61 74 69 | 6f 6e 0a 69 6d 70 6c 69 |nformati|on.impli|
|00006200| 63 69 74 20 69 6e 73 74 | 65 61 64 20 6f 66 20 65 |cit inst|ead of e|
|00006210| 78 70 6c 69 63 69 74 2e | 20 57 68 65 6e 20 61 20 |xplicit.| When a |
|00006220| 5c 2e 7b 44 56 49 7d 2d | 72 65 61 64 69 6e 67 20 |\.{DVI}-|reading |
|00006230| 70 72 6f 67 72 61 6d 20 | 72 65 61 64 73 20 74 68 |program |reads th|
|00006240| 65 0a 63 6f 6d 6d 61 6e | 64 73 20 66 6f 72 20 61 |e.comman|ds for a|
|00006250| 20 70 61 67 65 2c 20 69 | 74 20 6b 65 65 70 73 20 | page, i|t keeps |
|00006260| 74 72 61 63 6b 20 6f 66 | 20 73 65 76 65 72 61 6c |track of| several|
|00006270| 20 71 75 61 6e 74 69 74 | 69 65 73 3a 20 28 61 29 | quantit|ies: (a)|
|00006280| 7e 54 68 65 20 63 75 72 | 72 65 6e 74 0a 66 6f 6e |~The cur|rent.fon|
|00006290| 74 20 7c 66 7c 20 69 73 | 20 61 6e 20 69 6e 74 65 |t |f| is| an inte|
|000062a0| 67 65 72 3b 20 74 68 69 | 73 20 76 61 6c 75 65 20 |ger; thi|s value |
|000062b0| 69 73 20 63 68 61 6e 67 | 65 64 20 6f 6e 6c 79 0a |is chang|ed only.|
|000062c0| 62 79 20 5c 5c 7b 66 6e | 74 7d 20 61 6e 64 20 5c |by \\{fn|t} and \|
|000062d0| 5c 7b 66 6e 74 5c 5f 6e | 75 6d 7d 20 63 6f 6d 6d |\{fnt\_n|um} comm|
|000062e0| 61 6e 64 73 2e 20 28 62 | 29 7e 54 68 65 20 63 75 |ands. (b|)~The cu|
|000062f0| 72 72 65 6e 74 20 70 6f | 73 69 74 69 6f 6e 20 6f |rrent po|sition o|
|00006300| 6e 20 74 68 65 20 70 61 | 67 65 0a 69 73 20 67 69 |n the pa|ge.is gi|
|00006310| 76 65 6e 20 62 79 20 74 | 77 6f 20 6e 75 6d 62 65 |ven by t|wo numbe|
|00006320| 72 73 20 63 61 6c 6c 65 | 64 20 74 68 65 20 68 6f |rs calle|d the ho|
|00006330| 72 69 7a 6f 6e 74 61 6c | 20 61 6e 64 20 76 65 72 |rizontal| and ver|
|00006340| 74 69 63 61 6c 20 63 6f | 6f 72 64 69 6e 61 74 65 |tical co|ordinate|
|00006350| 73 2c 0a 7c 68 7c 20 61 | 6e 64 20 7c 76 7c 2e 20 |s,.|h| a|nd |v|. |
|00006360| 42 6f 74 68 20 63 6f 6f | 72 64 69 6e 61 74 65 73 |Both coo|rdinates|
|00006370| 20 61 72 65 20 7a 65 72 | 6f 20 61 74 20 74 68 65 | are zer|o at the|
|00006380| 20 75 70 70 65 72 20 6c | 65 66 74 20 63 6f 72 6e | upper l|eft corn|
|00006390| 65 72 20 6f 66 20 74 68 | 65 20 70 61 67 65 3b 0a |er of th|e page;.|
|000063a0| 6d 6f 76 69 6e 67 20 74 | 6f 20 74 68 65 20 72 69 |moving t|o the ri|
|000063b0| 67 68 74 20 63 6f 72 72 | 65 73 70 6f 6e 64 73 20 |ght corr|esponds |
|000063c0| 74 6f 20 69 6e 63 72 65 | 61 73 69 6e 67 20 74 68 |to incre|asing th|
|000063d0| 65 20 68 6f 72 69 7a 6f | 6e 74 61 6c 20 63 6f 6f |e horizo|ntal coo|
|000063e0| 72 64 69 6e 61 74 65 2c | 20 61 6e 64 0a 6d 6f 76 |rdinate,| and.mov|
|000063f0| 69 6e 67 20 64 6f 77 6e | 20 63 6f 72 72 65 73 70 |ing down| corresp|
+--------+-------------------------+-------------------------+--------+--------+