home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource2 / sclib_2 / 2_6 / v6n6082a.txt < prev    next >
DOS BACKUP file  |  1995-11-01  |  7.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: DOS BACKUP file (archive/dosBackupFile).

You can browse this item here: v6n6082a.txt

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert DOS BACKUP file (archive/dosBackupFile) magic Supported
1% dexvert Swift 3D 3D Graphic (poly/swift3D3DGraphic) ext Unsupported
1% dexvert Boost Text serialization (other/boostTextSerialization) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file DOS 2.0-3.2 backed up file \NLETTER\6.6\HERCULE.COD default
99% file data default
51% TrID DOS 2.0-3.2 backup default
48% TrID MP3 audio default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 01 00 00 00 5c 4e 4c | 45 54 54 45 52 5c 36 2e |.....\NL|ETTER\6.|
|00000010| 36 5c 48 45 52 43 55 4c | 45 2e 43 4f 44 00 00 00 |6\HERCUL|E.COD...|
|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 19 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 20 0d 0a 2f 2a 20 54 68 | 69 73 20 69 73 20 61 20 | ../* Th|is is a |
|00000090| 64 6f 2d 6e 6f 74 68 69 | 6e 67 20 70 72 6f 67 72 |do-nothi|ng progr|
|000000a0| 61 6d 2e 20 49 74 20 64 | 72 61 77 73 20 61 20 6c |am. It d|raws a l|
|000000b0| 6f 74 20 6f 66 20 63 69 | 72 63 6c 65 73 20 61 6e |ot of ci|rcles an|
|000000c0| 64 20 69 74 20 77 72 69 | 74 65 73 0d 0a 61 20 73 |d it wri|tes..a s|
|000000d0| 68 6f 72 74 20 6c 69 6e | 65 20 6f 66 20 74 65 78 |hort lin|e of tex|
|000000e0| 74 2c 20 74 6f 20 64 65 | 6d 6f 6e 73 74 72 61 74 |t, to de|monstrat|
|000000f0| 65 20 68 6f 77 20 74 6f | 20 6f 70 65 72 61 74 65 |e how to| operate|
|00000100| 20 48 65 72 63 75 6c 65 | 73 20 6d 6f 6e 6f 63 68 | Hercule|s monoch|
|00000110| 72 6f 6d 65 0d 0a 62 69 | 74 2d 6d 61 70 70 65 64 |rome..bi|t-mapped|
|00000120| 20 67 72 61 70 68 69 63 | 73 2c 20 69 6e 63 6c 75 | graphic|s, inclu|
|00000130| 64 69 6e 67 20 74 65 78 | 74 20 69 6e 20 67 72 61 |ding tex|t in gra|
|00000140| 70 68 69 63 73 20 6d 6f | 64 65 2e 20 2a 2f 0d 0a |phics mo|de. */..|
|00000150| 0d 0a 23 69 6e 63 6c 75 | 64 65 20 3c 73 74 64 69 |..#inclu|de <stdi|
|00000160| 6f 2e 68 3e 0d 0a 0d 0a | 76 6f 69 64 20 72 65 76 |o.h>....|void rev|
|00000170| 64 6f 74 28 29 2c 20 77 | 72 69 74 65 64 6f 74 28 |dot(), w|ritedot(|
|00000180| 29 2c 20 74 5f 6d 6f 64 | 65 28 29 2c 20 73 6c 65 |), t_mod|e(), sle|
|00000190| 65 70 28 29 2c 20 63 6c | 65 61 72 64 6f 74 28 29 |ep(), cl|eardot()|
|000001a0| 2c 20 0d 0a 20 20 20 20 | 20 67 5f 6d 6f 64 65 28 |, ..    | g_mode(|
|000001b0| 29 2c 20 63 6c 65 61 72 | 73 63 72 65 65 6e 28 29 |), clear|screen()|
|000001c0| 2c 20 67 5f 77 72 69 74 | 65 28 29 2c 20 67 5f 70 |, g_writ|e(), g_p|
|000001d0| 75 74 63 68 28 29 2c 20 | 73 77 5f 73 63 72 28 29 |utch(), |sw_scr()|
|000001e0| 20 3b 0d 0a 69 6e 74 20 | 20 69 6e 6b 65 79 28 29 | ;..int | inkey()|
|000001f0| 3b 0d 0a 6c 6f 6e 67 20 | 73 71 72 6f 6f 74 28 29 |;..long |sqroot()|
|00000200| 3b 0d 0a 0d 0a 23 64 65 | 66 69 6e 65 20 49 4e 44 |;....#de|fine IND|
|00000210| 45 58 50 4f 52 54 20 30 | 78 33 42 34 0d 0a 23 64 |EXPORT 0|x3B4..#d|
|00000220| 65 66 69 6e 65 20 43 4f | 4e 54 52 4f 4c 50 4f 52 |efine CO|NTROLPOR|
|00000230| 54 20 30 78 33 62 38 0d | 0a 23 64 65 66 69 6e 65 |T 0x3b8.|.#define|
|00000240| 20 44 41 54 41 50 4f 52 | 54 20 30 78 33 62 35 0d | DATAPOR|T 0x3b5.|
|00000250| 0a 23 64 65 66 69 6e 65 | 20 43 4f 4e 46 49 47 50 |.#define| CONFIGP|
|00000260| 4f 52 54 20 30 78 33 62 | 66 0d 0a 23 64 65 66 69 |ORT 0x3b|f..#defi|
|00000270| 6e 65 20 53 43 52 30 20 | 30 78 62 30 30 30 30 20 |ne SCR0 |0xb0000 |
|00000280| 2f 2a 20 41 62 73 6f 6c | 75 74 65 20 61 64 64 72 |/* Absol|ute addr|
|00000290| 65 73 73 20 66 6f 72 20 | 70 61 67 65 20 30 2e 20 |ess for |page 0. |
|000002a0| 2a 2f 0d 0a 23 64 65 66 | 69 6e 65 20 53 43 52 31 |*/..#def|ine SCR1|
|000002b0| 20 30 78 62 38 30 30 30 | 20 2f 2a 20 41 62 73 6f | 0xb8000| /* Abso|
|000002c0| 6c 75 74 65 20 61 64 64 | 72 65 73 73 20 66 6f 72 |lute add|ress for|
|000002d0| 20 70 61 67 65 20 31 2e | 20 2a 2f 0d 0a 23 64 65 | page 1.| */..#de|
|000002e0| 66 69 6e 65 20 52 4f 4d | 46 4f 4e 54 20 30 78 66 |fine ROM|FONT 0xf|
|000002f0| 66 61 36 65 20 2f 2a 20 | 41 62 73 6f 6c 75 74 65 |fa6e /* |Absolute|
|00000300| 20 61 64 64 72 65 73 73 | 20 6f 66 20 49 42 4d 20 | address| of IBM |
|00000310| 52 4f 4d 20 63 68 61 72 | 61 63 74 65 72 20 73 65 |ROM char|acter se|
|00000320| 74 2e 20 2a 2f 0d 0a 23 | 64 65 66 69 6e 65 20 47 |t. */..#|define G|
|00000330| 43 5f 57 49 44 54 48 20 | 31 30 20 2f 2a 20 57 69 |C_WIDTH |10 /* Wi|
|00000340| 64 74 68 20 69 6e 20 70 | 69 78 65 6c 73 20 6f 66 |dth in p|ixels of|
|00000350| 20 63 68 61 72 61 63 74 | 65 72 20 70 6c 75 73 20 | charact|er plus |
|00000360| 73 70 61 63 69 6e 67 2e | 20 0d 0a 20 20 20 20 20 |spacing.| ..     |
|00000370| 20 20 20 20 20 20 49 74 | 20 20 63 61 6e 20 20 62 |      It|  can  b|
|00000380| 65 20 61 73 20 73 6d 61 | 6c 6c 20 61 73 20 38 20 |e as sma|ll as 8 |
|00000390| 6f 72 20 61 73 20 20 6c | 61 72 67 65 20 20 61 73 |or as  l|arge  as|
|000003a0| 20 20 79 6f 75 20 6c 69 | 6b 65 2e 2a 2f 0d 0a 0d |  you li|ke.*/...|
|000003b0| 0a 63 68 61 72 20 2a 66 | 6f 6e 74 3b 20 2f 2a 20 |.char *f|ont; /* |
|000003c0| 50 6f 69 6e 74 65 72 20 | 74 6f 20 63 68 61 72 61 |Pointer |to chara|
|000003d0| 63 74 65 72 20 66 6f 6e | 74 20 69 6e 20 52 4f 4d |cter fon|t in ROM|
|000003e0| 2e 20 2a 2f 0d 0a 0d 0a | 23 64 65 66 69 6e 65 20 |. */....|#define |
|000003f0| 58 53 54 41 52 54 20 32 | 37 30 20 20 2f 2a 20 54 |XSTART 2|70  /* T|
|00000400| 68 65 73 65 20 73 65 74 | 20 74 68 65 20 73 69 7a |hese set| the siz|
|00000410| 65 20 6f 66 20 74 68 65 | 20 63 69 72 63 6c 65 2c |e of the| circle,|
|00000420| 20 61 6e 64 20 69 74 73 | 20 2a 2f 0d 0a 23 64 65 | and its| */..#de|
|00000430| 66 69 6e 65 20 59 53 54 | 41 52 54 20 31 36 35 20 |fine YST|ART 165 |
|00000440| 20 2f 2a 20 61 73 70 65 | 63 74 20 72 61 74 69 6f | /* aspe|ct ratio|
|00000450| 2e 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 2f |        |      */|
|00000470| 0d 0a 0d 0a 69 6e 74 20 | 67 64 61 74 61 5b 31 32 |....int |gdata[12|
|00000480| 5d 20 3d 20 7b 20 0d 0a | 20 20 20 20 20 30 78 33 |] = { ..|     0x3|
|00000490| 35 2c 20 30 78 32 64 2c | 20 30 78 32 65 2c 20 30 |5, 0x2d,| 0x2e, 0|
|000004a0| 78 37 2c 20 30 78 35 62 | 2c 20 30 78 32 2c 20 30 |x7, 0x5b|, 0x2, 0|
|000004b0| 78 35 37 2c 20 30 78 35 | 37 2c 20 30 78 32 2c 20 |x57, 0x5|7, 0x2, |
|000004c0| 30 78 33 2c 20 30 78 30 | 2c 20 30 78 30 20 0d 0a |0x3, 0x0|, 0x0 ..|
|000004d0| 7d 3b 0d 0a 69 6e 74 20 | 74 64 61 74 61 5b 31 32 |};..int |tdata[12|
|000004e0| 5d 20 3d 20 7b 20 0d 0a | 20 20 20 20 20 30 78 36 |] = { ..|     0x6|
|000004f0| 31 2c 20 30 78 35 30 2c | 20 30 78 35 32 2c 20 30 |1, 0x50,| 0x52, 0|
|00000500| 78 66 2c 20 30 78 31 39 | 2c 20 30 78 36 2c 20 30 |xf, 0x19|, 0x6, 0|
|00000510| 78 31 39 2c 20 30 78 31 | 39 2c 20 30 78 32 2c 20 |x19, 0x1|9, 0x2, |
|00000520| 30 78 64 2c 20 30 78 62 | 2c 20 30 78 63 20 0d 0a |0xd, 0xb|, 0xc ..|
|00000530| 7d 3b 0d 0a 0d 0a 69 6e | 74 20 6d 61 69 6e 28 29 |};....in|t main()|
|00000540| 0d 0a 7b 0d 0a 20 20 20 | 20 20 6c 6f 6e 67 20 78 |..{..   |  long x|
|00000550| 2c 79 2c 78 73 2c 79 73 | 3b 0d 0a 20 20 20 20 20 |,y,xs,ys|;..     |
|00000560| 69 6e 74 20 68 31 2c 68 | 32 2c 76 3b 0d 0a 20 20 |int h1,h|2,v;..  |
|00000570| 20 20 20 6c 6f 6e 67 20 | 78 61 78 69 73 2c 79 61 |   long |xaxis,ya|
|00000580| 78 69 73 3b 0d 0a 20 20 | 20 20 20 63 68 61 72 20 |xis;..  |   char |
|00000590| 2a 61 62 73 74 6f 70 74 | 72 28 29 3b 20 2f 2a 20 |*abstopt|r(); /* |
|000005a0| 43 6f 6e 76 65 72 74 73 | 20 61 62 73 6f 6c 75 74 |Converts| absolut|
|000005b0| 65 20 61 64 64 72 65 73 | 73 20 74 6f 20 66 61 72 |e addres|s to far|
|000005c0| 20 70 6f 69 6e 74 65 72 | 2e 20 2a 2f 0d 0a 20 20 | pointer|. */..  |
|000005d0| 20 20 20 63 68 61 72 20 | 2a 73 63 72 65 65 6e 30 |   char |*screen0|
|000005e0| 61 64 64 72 3b 20 2f 2a | 20 43 6f 6d 70 69 6c 65 |addr; /*| Compile|
|000005f0| 72 2d 64 65 70 65 6e 64 | 65 6e 74 20 66 61 72 20 |r-depend|ent far |
|00000600| 70 6f 69 6e 74 65 72 2e | 20 2a 2f 0d 0a 20 20 20 |pointer.| */..   |
|00000610| 20 20 0d 0a 20 20 20 20 | 20 78 61 78 69 73 3d 20 |  ..    | xaxis= |
|00000620| 58 53 54 41 52 54 3b 0d | 0a 20 20 20 20 20 79 61 |XSTART;.|.     ya|
|00000630| 78 69 73 3d 20 59 53 54 | 41 52 54 3b 0d 0a 20 20 |xis= YST|ART;..  |
|00000640| 20 20 20 0d 0a 20 20 20 | 20 20 73 63 72 65 65 6e |   ..   |  screen|
|00000650| 30 61 64 64 72 3d 61 62 | 73 74 6f 70 74 72 28 53 |0addr=ab|stoptr(S|
|00000660| 43 52 30 29 3b 0d 0a 20 | 20 20 20 20 66 6f 6e 74 |CR0);.. |    font|
|00000670| 3d 61 62 73 74 6f 70 74 | 72 28 52 4f 4d 46 4f 4e |=abstopt|r(ROMFON|
|00000680| 54 29 3b 0d 0a 20 20 20 | 20 20 0d 0a 20 20 20 20 |T);..   |  ..    |
|00000690| 20 63 6c 65 61 72 73 63 | 72 65 65 6e 28 73 63 72 | clearsc|reen(scr|
|000006a0| 65 65 6e 30 61 64 64 72 | 29 3b 0d 0a 20 20 20 20 |een0addr|);..    |
|000006b0| 20 67 5f 6d 6f 64 65 28 | 29 3b 0d 0a 20 20 20 20 | g_mode(|);..    |
|000006c0| 20 67 5f 77 72 69 74 65 | 28 22 43 69 72 63 6c 65 | g_write|("Circle|
|000006d0| 73 20 2d 20 4b 49 54 54 | 45 4e 53 4f 46 54 22 2c |s - KITT|ENSOFT",|
|000006e0| 33 33 30 2c 34 37 30 2c | 73 63 72 65 65 6e 30 61 |330,470,|screen0a|
|000006f0| 64 64 72 29 3b 0d 0a 20 | 20 20 20 20 66 6f 72 28 |ddr);.. |    for(|
|00000700| 3b 3b 29 7b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |;;){..  |        |
|00000710| 69 66 20 28 69 6e 6b 65 | 79 28 29 29 20 62 72 65 |if (inke|y()) bre|
|00000720| 61 6b 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 78 |ak;..   |       x|
|00000730| 73 3d 78 61 78 69 73 2a | 78 61 78 69 73 3b 0d 0a |s=xaxis*|xaxis;..|
|00000740| 20 20 20 20 20 20 20 20 | 20 20 79 73 3d 79 61 78 |        |  ys=yax|
|00000750| 69 73 2a 79 61 78 69 73 | 3b 0d 0a 20 20 20 20 20 |is*yaxis|;..     |
|00000760| 20 20 20 20 20 66 6f 72 | 28 79 3d 28 2d 31 2a 79 |     for|(y=(-1*y|
|00000770| 61 78 69 73 29 3b 79 3c | 3d 28 79 61 78 69 73 29 |axis);y<|=(yaxis)|
|00000780| 3b 79 2b 3d 31 29 7b 0d | 0a 20 20 20 20 20 20 20 |;y+=1){.|.       |
|00000790| 20 20 20 20 20 20 20 20 | 78 3d 79 3b 0d 0a 20 20 |        |x=y;..  |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 78 3d 28 |        |     x=(|
|000007b0| 20 78 73 20 2d 20 78 2a | 78 2a 78 73 2f 79 73 20 | xs - x*|x*xs/ys |
|000007c0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);..    |        |
|000007d0| 20 20 20 69 66 20 28 78 | 3c 30 29 20 63 6f 6e 74 |   if (x|<0) cont|
|000007e0| 69 6e 75 65 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |inue;.. |        |
|000007f0| 20 20 20 20 20 20 78 3d | 73 71 72 6f 6f 74 28 78 |      x=|sqroot(x|
|00000800| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);..    |        |
|00000810| 20 20 20 76 3d 28 69 6e | 74 29 79 2b 31 37 34 3b |   v=(in|t)y+174;|
|00000820| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000830| 20 68 31 3d 28 69 6e 74 | 29 78 2b 33 30 30 3b 0d | h1=(int|)x+300;.|
|00000840| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000850| 68 32 3d 28 69 6e 74 29 | 28 2d 31 2a 78 29 2b 33 |h2=(int)|(-1*x)+3|
|00000860| 30 30 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |00;..   |        |
|00000870| 20 20 20 20 72 65 76 64 | 6f 74 28 76 2c 68 31 2c |    revd|ot(v,h1,|
|00000880| 73 63 72 65 65 6e 30 61 | 64 64 72 29 3b 0d 0a 20 |screen0a|ddr);.. |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 72 65 |        |      re|
|000008a0| 76 64 6f 74 28 76 2c 68 | 32 2c 73 63 72 65 65 6e |vdot(v,h|2,screen|
|000008b0| 30 61 64 64 72 29 3b 0d | 0a 20 20 20 20 20 20 20 |0addr);.|.       |
|000008c0| 20 20 20 7d 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |   }..  |        |
|000008d0| 69 66 20 28 78 61 78 69 | 73 3c 3d 38 29 20 78 61 |if (xaxi|s<=8) xa|
|000008e0| 78 69 73 2d 2d 3b 0d 0a | 20 20 20 20 20 20 20 20 |xis--;..|        |
|000008f0| 20 20 65 6c 73 65 20 78 | 61 78 69 73 2d 3d 78 61 |  else x|axis-=xa|
|00000900| 78 69 73 2f 38 3b 0d 0a | 20 20 20 20 20 20 20 20 |xis/8;..|        |
|00000910| 20 20 69 66 20 28 79 61 | 78 69 73 3c 3d 38 29 20 |  if (ya|xis<=8) |
|00000920| 79 61 78 69 73 2d 2d 3b | 0d 0a 20 20 20 20 20 20 |yaxis--;|..      |
|00000930| 20 20 20 20 65 6c 73 65 | 20 79 61 78 69 73 2d 3d |    else| yaxis-=|
|00000940| 79 61 78 69 73 2f 38 3b | 0d 0a 20 20 20 20 20 20 |yaxis/8;|..      |
|00000950| 20 20 20 20 78 73 3d 78 | 61 78 69 73 2a 78 61 78 |    xs=x|axis*xax|
|00000960| 69 73 3b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 79 |is;..   |       y|
|00000970| 73 3d 79 61 78 69 73 2a | 79 61 78 69 73 3b 0d 0a |s=yaxis*|yaxis;..|
|00000980| 20 20 20 20 20 20 20 20 | 20 20 66 6f 72 28 78 3d |        |  for(x=|
|00000990| 28 2d 31 2a 78 61 78 69 | 73 29 3b 78 3c 3d 28 78 |(-1*xaxi|s);x<=(x|
|000009a0| 61 78 69 73 29 3b 78 2b | 3d 31 29 7b 0d 0a 20 20 |axis);x+|=1){..  |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 79 3d 78 |        |     y=x|
|000009c0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;..     |        |
|000009d0| 20 20 79 3d 28 20 79 73 | 20 2d 20 79 2a 79 2a 79 |  y=( ys| - y*y*y|
|000009e0| 73 2f 78 73 20 29 3b 0d | 0a 20 20 20 20 20 20 20 |s/xs );.|.       |
|000009f0| 20 20 20 20 20 20 20 20 | 69 66 20 28 79 3c 30 29 |        |if (y<0)|
|00000a00| 20 63 6f 6e 74 69 6e 75 | 65 3b 0d 0a 20 20 20 20 | continu|e;..    |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 79 3d 73 71 72 |        |   y=sqr|
|00000a20| 6f 6f 74 28 79 29 3b 0d | 0a 20 20 20 20 20 20 20 |oot(y);.|.       |
|00000a30| 20 20 20 20 20 20 20 20 | 76 3d 28 69 6e 74 29 78 |        |v=(int)x|
|00000a40| 2b 33 30 30 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |+300;.. |        |
|00000a50| 20 20 20 20 20 20 68 31 | 3d 28 69 6e 74 29 79 2b |      h1|=(int)y+|
|00000a60| 31 37 34 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |174;..  |        |
|00000a70| 20 20 20 20 20 68 32 3d | 28 69 6e 74 29 28 2d 31 |     h2=|(int)(-1|
|00000a80| 2a 79 29 2b 31 37 34 3b | 0d 0a 20 20 20 20 20 20 |*y)+174;|..      |
|00000a90| 20 20 20 20 20 20 20 20 | 20 72 65 76 64 6f 74 28 |        | revdot(|
|00000aa0| 68 31 2c 76 2c 73 63 72 | 65 65 6e 30 61 64 64 72 |h1,v,scr|een0addr|
|00000ab0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);..    |        |
|00000ac0| 20 20 20 72 65 76 64 6f | 74 28 68 32 2c 76 2c 73 |   revdo|t(h2,v,s|
|00000ad0| 63 72 65 65 6e 30 61 64 | 64 72 29 3b 0d 0a 20 20 |creen0ad|dr);..  |
|00000ae0| 20 20 20 20 20 20 20 20 | 7d 0d 0a 20 20 20 20 20 |        |}..     |
|00000af0| 20 20 20 20 20 69 66 20 | 28 78 61 78 69 73 3c 3d |     if |(xaxis<=|
|00000b00| 38 29 20 78 61 78 69 73 | 2d 2d 3b 0d 0a 20 20 20 |8) xaxis|--;..   |
|00000b10| 20 20 20 20 20 20 20 65 | 6c 73 65 20 78 61 78 69 |       e|lse xaxi|
|00000b20| 73 2d 3d 78 61 78 69 73 | 2f 38 3b 0d 0a 20 20 20 |s-=xaxis|/8;..   |
|00000b30| 20 20 20 20 20 20 20 69 | 66 20 28 79 61 78 69 73 |       i|f (yaxis|
|00000b40| 3c 3d 38 29 20 79 61 78 | 69 73 2d 2d 3b 0d 0a 20 |<=8) yax|is--;.. |
|00000b50| 20 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 79 61 |        | else ya|
|00000b60| 78 69 73 2d 3d 79 61 78 | 69 73 2f 38 3b 0d 0a 20 |xis-=yax|is/8;.. |
|00000b70| 20 20 20 20 20 20 20 20 | 20 69 66 20 28 28 78 61 |        | if ((xa|
|00000b80| 78 69 73 3c 31 29 7c 7c | 28 79 61 78 69 73 3c 31 |xis<1)|||(yaxis<1|
|00000b90| 29 29 7b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |)){..   |        |
|00000ba0| 20 20 20 20 78 61 78 69 | 73 3d 58 53 54 41 52 54 |    xaxi|s=XSTART|
|00000bb0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;..     |        |
|00000bc0| 20 20 79 61 78 69 73 3d | 59 53 54 41 52 54 3b 0d |  yaxis=|YSTART;.|
|00000bd0| 0a 20 20 20 20 20 20 20 | 20 20 20 7d 0d 0a 20 20 |.       |   }..  |
|00000be0| 20 20 20 7d 0d 0a 20 20 | 20 20 20 63 6c 65 61 72 |   }..  |   clear|
|00000bf0| 73 63 72 65 65 6e 28 73 | 63 72 65 65 6e 30 61 64 |screen(s|creen0ad|
|00000c00| 64 72 29 3b 0d 0a 20 20 | 20 20 20 74 5f 6d 6f 64 |dr);..  |   t_mod|
|00000c10| 65 28 29 3b 0d 0a 7d 0d | 0a 76 6f 69 64 20 67 5f |e();..}.|.void g_|
|00000c20| 6d 6f 64 65 28 29 0d 0a | 7b 0d 0a 20 20 20 20 20 |mode()..|{..     |
|00000c30| 69 6e 74 20 69 3b 0d 0a | 20 20 20 20 20 0d 0a 20 |int i;..|     .. |
|00000c40| 20 20 20 20 6f 75 74 70 | 6f 72 74 62 28 43 4f 4e |    outp|ortb(CON|
|00000c50| 46 49 47 50 4f 52 54 2c | 33 29 3b 0d 0a 20 20 20 |FIGPORT,|3);..   |
|00000c60| 20 20 6f 75 74 70 6f 72 | 74 62 28 43 4f 4e 54 52 |  outpor|tb(CONTR|
|00000c70| 4f 4c 50 4f 52 54 2c 30 | 29 3b 0d 0a 20 20 20 20 |OLPORT,0|);..    |
|00000c80| 20 66 6f 72 28 69 3d 30 | 3b 69 3c 31 32 3b 69 2b | for(i=0|;i<12;i+|
|00000c90| 2b 29 7b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 6f |+){..   |       o|
|00000ca0| 75 74 70 6f 72 74 62 28 | 49 4e 44 45 58 50 4f 52 |utportb(|INDEXPOR|
|00000cb0| 54 2c 69 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |T,i);.. |        |
|00000cc0| 20 6f 75 74 70 6f 72 74 | 62 28 44 41 54 41 50 4f | outport|b(DATAPO|
|00000cd0| 52 54 2c 67 64 61 74 61 | 5b 69 5d 29 3b 0d 0a 20 |RT,gdata|[i]);.. |
|00000ce0| 20 20 20 20 7d 0d 0a 20 | 20 20 20 20 6f 75 74 70 |    }.. |    outp|
|00000cf0| 6f 72 74 62 28 43 4f 4e | 54 52 4f 4c 50 4f 52 54 |ortb(CON|TROLPORT|
|00000d00| 2c 32 29 3b 0d 0a 20 20 | 20 20 20 73 6c 65 65 70 |,2);..  |   sleep|
|00000d10| 28 29 3b 0d 0a 20 20 20 | 20 20 6f 75 74 70 6f 72 |();..   |  outpor|
|00000d20| 74 62 28 43 4f 4e 54 52 | 4f 4c 50 4f 52 54 2c 31 |tb(CONTR|OLPORT,1|
|00000d30| 30 29 3b 0d 0a 7d 0d 0a | 76 6f 69 64 20 63 6c 65 |0);..}..|void cle|
|00000d40| 61 72 73 63 72 65 65 6e | 28 73 65 67 29 0d 0a 63 |arscreen|(seg)..c|
|00000d50| 68 61 72 20 2a 73 65 67 | 3b 0d 0a 7b 0d 0a 20 20 |har *seg|;..{..  |
|00000d60| 20 20 20 75 6e 73 69 67 | 6e 65 64 20 6f 66 66 3b |   unsig|ned off;|
|00000d70| 0d 0a 20 20 20 20 20 0d | 0a 20 20 20 20 20 66 6f |..     .|.     fo|
|00000d80| 72 20 28 6f 66 66 3d 30 | 3b 6f 66 66 3c 33 32 37 |r (off=0|;off<327|
|00000d90| 36 38 3b 6f 66 66 2b 2b | 29 20 73 65 67 5b 6f 66 |68;off++|) seg[of|
|00000da0| 66 5d 3d 30 3b 0d 0a 7d | 0d 0a 76 6f 69 64 20 74 |f]=0;..}|..void t|
|00000db0| 5f 6d 6f 64 65 28 29 0d | 0a 7b 0d 0a 20 20 20 20 |_mode().|.{..    |
|00000dc0| 20 69 6e 74 20 69 3b 0d | 0a 20 20 20 20 20 0d 0a | int i;.|.     ..|
|00000dd0| 20 20 20 20 20 6f 75 74 | 70 6f 72 74 62 28 43 4f |     out|portb(CO|
|00000de0| 4e 54 52 4f 4c 50 4f 52 | 54 2c 30 29 3b 0d 0a 20 |NTROLPOR|T,0);.. |
|00000df0| 20 20 20 20 66 6f 72 28 | 69 3d 30 3b 69 3c 31 32 |    for(|i=0;i<12|
|00000e00| 3b 69 2b 2b 29 7b 0d 0a | 20 20 20 20 20 20 20 20 |;i++){..|        |
|00000e10| 20 20 6f 75 74 70 6f 72 | 74 62 28 49 4e 44 45 58 |  outpor|tb(INDEX|
|00000e20| 50 4f 52 54 2c 69 29 3b | 0d 0a 20 20 20 20 20 20 |PORT,i);|..      |
|00000e30| 20 20 20 20 6f 75 74 70 | 6f 72 74 62 28 44 41 54 |    outp|ortb(DAT|
|00000e40| 41 50 4f 52 54 2c 74 64 | 61 74 61 5b 69 5d 29 3b |APORT,td|ata[i]);|
|00000e50| 0d 0a 20 20 20 20 20 7d | 0d 0a 20 20 20 20 20 6f |..     }|..     o|
|00000e60| 75 74 70 6f 72 74 62 28 | 43 4f 4e 54 52 4f 4c 50 |utportb(|CONTROLP|
|00000e70| 4f 52 54 2c 35 33 29 3b | 0d 0a 20 20 20 20 20 73 |ORT,53);|..     s|
|00000e80| 6c 65 65 70 28 29 3b 0d | 0a 20 20 20 20 20 6f 75 |leep();.|.     ou|
|00000e90| 74 70 6f 72 74 62 28 43 | 4f 4e 54 52 4f 4c 50 4f |tportb(C|ONTROLPO|
|00000ea0| 52 54 2c 36 31 29 3b 0d | 0a 20 20 20 20 20 6f 75 |RT,61);.|.     ou|
|00000eb0| 74 70 6f 72 74 62 28 43 | 4f 4e 46 49 47 50 4f 52 |tportb(C|ONFIGPOR|
|00000ec0| 54 2c 30 29 3b 0d 0a 7d | 0d 0a 0d 0a 2f 2a 20 0d |T,0);..}|..../* .|
|00000ed0| 0a 54 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 66 |.The fol|lowing f|
|00000ee0| 75 6e 63 74 69 6f 6e 73 | 20 77 72 69 74 65 2c 20 |unctions| write, |
|00000ef0| 63 6c 65 61 72 2c 20 61 | 6e 64 20 72 65 76 65 72 |clear, a|nd rever|
|00000f00| 73 65 20 69 6e 64 69 76 | 69 64 75 61 6c 20 0d 0a |se indiv|idual ..|
|00000f10| 70 69 78 65 6c 73 2e 20 | 73 65 67 20 69 73 20 74 |pixels. |seg is t|
|00000f20| 68 65 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 74 |he locat|ion of t|
|00000f30| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |he begin|ning of |
|00000f40| 73 63 72 65 65 6e 20 6d | 65 6d 6f 72 79 2e 20 6f |screen m|emory. o|
|00000f50| 66 66 0d 0a 69 73 20 74 | 68 65 20 6f 66 66 73 65 |ff..is t|he offse|
|00000f60| 74 20 77 69 74 68 69 6e | 20 6d 65 6d 6f 72 79 2e |t within| memory.|
|00000f70| 20 54 68 65 73 65 20 66 | 75 6e 63 74 69 6f 6e 73 | These f|unctions|
|00000f80| 20 6f 70 65 72 61 74 65 | 20 69 6e 20 6c 61 72 67 | operate| in larg|
|00000f90| 65 20 6d 6f 64 65 6c 2c | 0d 0a 77 68 65 72 65 20 |e model,|..where |
|00000fa0| 69 74 20 69 73 20 70 6f | 73 73 69 62 6c 65 20 74 |it is po|ssible t|
|00000fb0| 6f 20 77 72 69 74 65 20 | 64 69 72 65 63 74 6c 79 |o write |directly|
|00000fc0| 20 74 6f 20 61 6e 79 20 | 61 64 64 72 65 73 73 20 | to any |address |
|00000fd0| 69 6e 20 6d 65 6d 6f 72 | 79 2e 0d 0a 49 66 20 79 |in memor|y...If y|
|00000fe0| 6f 75 72 20 63 6f 6d 70 | 69 6c 65 72 20 64 6f 65 |our comp|iler doe|
|00000ff0| 73 20 6e 6f 74 20 73 75 | 70 70 6f 72 74 20 6c 61 |s not su|pport la|
|00001000| 72 67 65 20 6d 6f 64 65 | 6c 2c 20 79 6f 75 20 63 |rge mode|l, you c|
|00001010| 61 6e 20 67 65 74 20 74 | 68 65 20 73 61 6d 65 0d |an get t|he same.|
|00001020| 0a 72 65 73 75 6c 74 73 | 20 77 69 74 68 20 74 68 |.results| with th|
|00001030| 65 20 70 65 65 6b 28 29 | 20 61 6e 64 20 70 6f 6b |e peek()| and pok|
|00001040| 65 28 29 20 66 75 6e 63 | 74 69 6f 6e 73 2e 0d 0a |e() func|tions...|
|00001050| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 75 73 65 |This pro|gram use|
|00001060| 73 20 6f 6e 6c 79 20 70 | 61 67 65 20 30 2e 20 59 |s only p|age 0. Y|
|00001070| 6f 75 20 63 61 6e 20 75 | 73 65 20 70 61 67 65 20 |ou can u|se page |
|00001080| 31 20 62 79 20 70 61 73 | 73 69 6e 67 20 69 74 73 |1 by pas|sing its|
|00001090| 20 0d 0a 61 64 64 72 65 | 73 73 20 74 6f 20 74 68 | ..addre|ss to th|
|000010a0| 65 73 65 20 66 75 6e 63 | 74 69 6f 6e 73 2e 0d 0a |ese func|tions...|
|000010b0| 20 2a 2f 0d 0a 20 0d 0a | 76 6f 69 64 20 77 72 69 | */.. ..|void wri|
|000010c0| 74 65 64 6f 74 28 79 2c | 78 2c 73 65 67 29 0d 0a |tedot(y,|x,seg)..|
|000010d0| 69 6e 74 20 78 2c 79 3b | 0d 0a 63 68 61 72 20 2a |int x,y;|..char *|
|000010e0| 73 65 67 3b 0d 0a 7b 0d | 0a 20 20 20 20 20 75 6e |seg;..{.|.     un|
|000010f0| 73 69 67 6e 65 64 20 6f | 66 66 3b 0d 0a 20 20 20 |signed o|ff;..   |
|00001100| 20 20 75 6e 73 69 67 6e | 65 64 20 63 68 61 72 20 |  unsign|ed char |
|00001110| 63 2c 62 69 74 3b 0d 0a | 20 20 20 20 20 0d 0a 2f |c,bit;..|     ../|
|00001120| 2a 20 43 61 6c 63 75 6c | 61 74 65 20 6f 66 66 73 |* Calcul|ate offs|
|00001130| 65 74 20 6f 66 20 62 79 | 74 65 20 77 69 74 68 69 |et of by|te withi|
|00001140| 6e 20 73 63 72 65 65 6e | 20 6d 65 6d 6f 72 79 3a |n screen| memory:|
|00001150| 20 2a 2f 0d 0a 20 20 20 | 20 20 6f 66 66 3d 28 75 | */..   |  off=(u|
|00001160| 6e 73 69 67 6e 65 64 29 | 28 20 30 78 32 30 30 30 |nsigned)|( 0x2000|
|00001170| 20 2a 20 28 79 25 34 29 | 20 2b 20 39 30 2a 28 79 | * (y%4)| + 90*(y|
|00001180| 2f 34 29 20 2b 20 78 2f | 38 20 29 3b 0d 0a 0d 0a |/4) + x/|8 );....|
|00001190| 2f 2a 20 47 65 74 20 62 | 79 74 65 20 70 72 65 73 |/* Get b|yte pres|
|000011a0| 65 6e 74 6c 79 20 61 74 | 20 74 68 61 74 20 6c 6f |ently at| that lo|
|000011b0| 63 61 74 69 6f 6e 3a 20 | 2a 2f 0d 0a 20 20 20 20 |cation: |*/..    |
|000011c0| 20 63 3d 73 65 67 5b 6f | 66 66 5d 3b 0d 0a 0d 0a | c=seg[o|ff];....|
|000011d0| 2f 2a 20 6f 72 2c 20 66 | 6f 72 20 63 6f 6d 70 69 |/* or, f|or compi|
|000011e0| 6c 65 72 73 20 77 69 74 | 68 6f 75 74 20 66 61 72 |lers wit|hout far|
|000011f0| 20 70 6f 69 6e 74 65 72 | 73 3a 0d 0a 20 20 20 20 | pointer|s:..    |
|00001200| 20 63 3d 70 65 65 6b 62 | 28 6f 66 66 2c 73 65 67 | c=peekb|(off,seg|
|00001210| 29 3b 20 2a 2f 0d 0a 0d | 0a 2f 2a 20 43 61 6c 63 |); */...|./* Calc|
|00001220| 75 6c 61 74 65 20 77 68 | 69 63 68 20 62 69 74 20 |ulate wh|ich bit |
|00001230| 77 69 74 68 69 6e 20 74 | 68 65 20 62 79 74 65 20 |within t|he byte |
|00001240| 74 6f 20 73 65 74 3a 20 | 2a 2f 20 20 20 20 20 0d |to set: |*/     .|
|00001250| 0a 20 20 20 20 20 62 69 | 74 20 3d 20 31 3c 3c 20 |.     bi|t = 1<< |
|00001260| 28 37 2d 78 25 38 29 3b | 0d 0a 0d 0a 2f 2a 20 53 |(7-x%8);|..../* S|
|00001270| 65 74 20 74 68 65 20 62 | 69 74 3a 20 2a 2f 0d 0a |et the b|it: */..|
|00001280| 20 20 20 20 20 63 20 7c | 3d 20 62 69 74 3b 0d 0a |     c ||= bit;..|
|00001290| 0d 0a 2f 2a 20 57 72 69 | 74 65 20 74 68 65 20 61 |../* Wri|te the a|
|000012a0| 6c 74 65 72 65 64 20 62 | 79 74 65 20 62 61 63 6b |ltered b|yte back|
|000012b0| 20 69 6e 74 6f 20 6d 65 | 6d 6f 72 79 20 2a 2f 0d | into me|mory */.|
|000012c0| 0a 20 20 20 20 20 73 65 | 67 5b 6f 66 66 5d 3d 63 |.     se|g[off]=c|
|000012d0| 3b 0d 0a 0d 0a 2f 2a 20 | 6f 72 2c 20 66 6f 72 20 |;..../* |or, for |
|000012e0| 63 6f 6d 70 69 6c 65 72 | 73 20 77 69 74 68 6f 75 |compiler|s withou|
|000012f0| 74 20 66 61 72 20 70 6f | 69 6e 74 65 72 73 3a 0d |t far po|inters:.|
|00001300| 0a 20 20 20 20 20 70 6f | 6b 65 62 28 6f 66 66 2c |.     po|keb(off,|
|00001310| 73 65 67 2c 63 29 3b 20 | 2a 2f 0d 0a 7d 0d 0a 76 |seg,c); |*/..}..v|
|00001320| 6f 69 64 20 63 6c 65 61 | 72 64 6f 74 28 79 2c 78 |oid clea|rdot(y,x|
|00001330| 2c 73 65 67 29 0d 0a 69 | 6e 74 20 78 2c 79 3b 0d |,seg)..i|nt x,y;.|
|00001340| 0a 63 68 61 72 20 2a 73 | 65 67 3b 0d 0a 7b 0d 0a |.char *s|eg;..{..|
|00001350| 20 20 20 20 20 75 6e 73 | 69 67 6e 65 64 20 6f 66 |     uns|igned of|
|00001360| 66 3b 0d 0a 20 20 20 20 | 20 75 6e 73 69 67 6e 65 |f;..    | unsigne|
|00001370| 64 20 63 68 61 72 20 63 | 2c 62 69 74 3b 0d 0a 20 |d char c|,bit;.. |
|00001380| 20 20 20 20 0d 0a 20 20 | 20 20 20 6f 66 66 3d 28 |    ..  |   off=(|
|00001390| 75 6e 73 69 67 6e 65 64 | 29 28 20 30 78 32 30 30 |unsigned|)( 0x200|
|000013a0| 30 20 2a 20 28 79 25 34 | 29 20 2b 20 39 30 2a 28 |0 * (y%4|) + 90*(|
|000013b0| 79 2f 34 29 20 2b 20 78 | 2f 38 20 29 3b 0d 0a 20 |y/4) + x|/8 );.. |
|000013c0| 20 20 20 20 63 3d 73 65 | 67 5b 6f 66 66 5d 3b 0d |    c=se|g[off];.|
|000013d0| 0a 20 20 20 20 20 0d 0a | 20 20 20 20 20 62 69 74 |.     ..|     bit|
|000013e0| 20 3d 20 31 3c 3c 20 28 | 37 2d 78 25 38 29 3b 0d | = 1<< (|7-x%8);.|
|000013f0| 0a 20 20 20 20 20 63 20 | 26 3d 20 28 28 75 6e 73 |.     c |&= ((uns|
|00001400| 69 67 6e 65 64 20 63 68 | 61 72 29 30 78 66 66 20 |igned ch|ar)0xff |
|00001410| 5e 20 62 69 74 29 3b 0d | 0a 20 20 20 20 20 0d 0a |^ bit);.|.     ..|
|00001420| 20 20 20 20 20 73 65 67 | 5b 6f 66 66 5d 3d 63 3b |     seg|[off]=c;|
|00001430| 0d 0a 7d 0d 0a 76 6f 69 | 64 20 72 65 76 64 6f 74 |..}..voi|d revdot|
|00001440| 28 79 2c 78 2c 73 65 67 | 29 0d 0a 69 6e 74 20 78 |(y,x,seg|)..int x|
|00001450| 2c 79 3b 0d 0a 63 68 61 | 72 20 2a 73 65 67 3b 0d |,y;..cha|r *seg;.|
|00001460| 0a 7b 0d 0a 20 20 20 20 | 20 75 6e 73 69 67 6e 65 |.{..    | unsigne|
|00001470| 64 20 6f 66 66 3b 0d 0a | 20 20 20 20 20 75 6e 73 |d off;..|     uns|
|00001480| 69 67 6e 65 64 20 63 68 | 61 72 20 63 2c 62 69 74 |igned ch|ar c,bit|
|00001490| 3b 0d 0a 20 20 20 20 20 | 0d 0a 20 20 20 20 20 6f |;..     |..     o|
|000014a0| 66 66 3d 28 75 6e 73 69 | 67 6e 65 64 29 28 20 30 |ff=(unsi|gned)( 0|
|000014b0| 78 32 30 30 30 20 2a 20 | 28 79 25 34 29 20 2b 20 |x2000 * |(y%4) + |
|000014c0| 39 30 2a 28 79 2f 34 29 | 20 2b 20 78 2f 38 20 29 |90*(y/4)| + x/8 )|
|000014d0| 3b 0d 0a 20 20 20 20 20 | 63 3d 73 65 67 5b 6f 66 |;..     |c=seg[of|
|000014e0| 66 5d 3b 0d 0a 20 20 20 | 20 20 0d 0a 20 20 20 20 |f];..   |  ..    |
|000014f0| 20 62 69 74 20 3d 20 31 | 3c 3c 20 28 37 2d 78 25 | bit = 1|<< (7-x%|
|00001500| 38 29 3b 0d 0a 20 20 20 | 20 20 63 20 5e 3d 20 62 |8);..   |  c ^= b|
|00001510| 69 74 3b 0d 0a 20 20 20 | 20 20 0d 0a 20 20 20 20 |it;..   |  ..    |
|00001520| 20 73 65 67 5b 6f 66 66 | 5d 3d 63 3b 0d 0a 7d 0d | seg[off|]=c;..}.|
|00001530| 0a 2f 2a 20 69 6e 6b 65 | 79 20 77 69 6c 6c 20 76 |./* inke|y will v|
|00001540| 61 72 79 20 66 72 6f 6d | 20 6f 6e 65 20 63 6f 6d |ary from| one com|
|00001550| 70 69 6c 65 72 20 74 6f | 20 74 68 65 20 6e 65 78 |piler to| the nex|
|00001560| 74 20 2a 2f 0d 0a 69 6e | 74 20 69 6e 6b 65 79 28 |t */..in|t inkey(|
|00001570| 29 0d 0a 7b 0d 0a 20 20 | 20 20 20 69 6e 74 20 6b |)..{..  |   int k|
|00001580| 3b 0d 0a 20 20 20 20 20 | 0d 0a 20 20 20 20 20 6b |;..     |..     k|
|00001590| 3d 62 64 6f 73 28 30 78 | 36 30 30 2c 30 78 66 66 |=bdos(0x|600,0xff|
|000015a0| 2c 30 29 3b 0d 0a 20 20 | 20 20 20 72 65 74 75 72 |,0);..  |   retur|
|000015b0| 6e 28 6b 29 3b 0d 0a 7d | 0d 0a 6c 6f 6e 67 20 73 |n(k);..}|..long s|
|000015c0| 71 72 6f 6f 74 28 6e 29 | 0d 0a 6c 6f 6e 67 20 6e |qroot(n)|..long n|
|000015d0| 3b 0d 0a 7b 0d 0a 20 20 | 20 20 20 6c 6f 6e 67 20 |;..{..  |   long |
|000015e0| 72 31 2c 72 32 3b 0d 0a | 20 20 20 20 20 72 31 3d |r1,r2;..|     r1=|
|000015f0| 6e 3b 0d 0a 20 20 20 20 | 20 72 32 3d 31 3b 0d 0a |n;..    | r2=1;..|
|00001600| 0d 0a 20 20 20 20 20 77 | 68 69 6c 65 20 28 72 31 |..     w|hile (r1|
|00001610| 3e 72 32 29 7b 0d 0a 20 | 20 20 20 20 20 20 20 20 |>r2){.. |        |
|00001620| 20 72 31 3d 28 72 31 2b | 72 32 29 2f 32 3b 0d 0a | r1=(r1+|r2)/2;..|
|00001630| 20 20 20 20 20 20 20 20 | 20 20 72 32 3d 6e 2f 72 |        |  r2=n/r|
|00001640| 31 3b 0d 0a 20 20 20 20 | 20 7d 0d 0a 20 20 20 20 |1;..    | }..    |
|00001650| 20 72 65 74 75 72 6e 28 | 72 31 29 3b 0d 0a 7d 0d | return(|r1);..}.|
|00001660| 0a 0d 0a 2f 2a 20 54 68 | 69 73 20 70 72 6f 76 69 |.../* Th|is provi|
|00001670| 64 65 73 20 61 20 6f 6e | 65 2d 73 65 63 6f 6e 64 |des a on|e-second|
|00001680| 20 70 61 75 73 65 2e 20 | 48 6f 77 65 76 65 72 2c | pause. |However,|
|00001690| 20 69 74 20 69 73 20 0d | 0a 63 6f 6d 70 69 6c 65 | it is .|.compile|
|000016a0| 72 2d 64 65 70 65 6e 64 | 65 6e 74 20 61 73 20 63 |r-depend|ent as c|
|000016b0| 6c 6f 63 6b 28 29 20 64 | 6f 65 73 20 64 69 66 66 |lock() d|oes diff|
|000016c0| 65 72 65 6e 74 20 74 68 | 69 6e 67 73 20 75 6e 64 |erent th|ings und|
|000016d0| 65 72 0d 0a 64 69 66 66 | 65 72 65 6e 74 20 63 6f |er..diff|erent co|
|000016e0| 6d 70 69 6c 65 72 73 2e | 20 2a 2f 0d 0a 0d 0a 76 |mpilers.| */....v|
|000016f0| 6f 69 64 20 73 6c 65 65 | 70 28 29 0d 0a 7b 0d 0a |oid slee|p()..{..|
|00001700| 20 20 20 20 20 6c 6f 6e | 67 20 61 2c 63 6c 6f 63 |     lon|g a,cloc|
|00001710| 6b 28 29 3b 0d 0a 20 20 | 20 20 20 0d 0a 20 20 20 |k();..  |   ..   |
|00001720| 20 20 61 3d 63 6c 6f 63 | 6b 28 29 3b 0d 0a 20 20 |  a=cloc|k();..  |
|00001730| 20 20 20 77 68 69 6c 65 | 20 28 20 63 6c 6f 63 6b |   while| ( clock|
|00001740| 28 29 2d 61 20 3c 20 31 | 30 30 20 29 0d 0a 20 20 |()-a < 1|00 )..  |
|00001750| 20 20 20 20 20 20 20 20 | 3b 0d 0a 7d 0d 0a 0d 0a |        |;..}....|
|00001760| 2f 2a 20 76 20 63 61 6e | 20 62 65 20 66 72 6f 6d |/* v can| be from|
|00001770| 20 30 20 74 6f 20 33 34 | 37 20 61 6e 64 20 68 20 | 0 to 34|7 and h |
|00001780| 63 61 6e 20 62 65 20 66 | 72 6f 6d 20 30 20 74 6f |can be f|rom 0 to|
|00001790| 20 37 31 39 2e 0d 0a 54 | 68 69 73 20 73 69 6d 70 | 719...T|his simp|
|000017a0| 6c 65 20 66 75 6e 63 74 | 69 6f 6e 20 62 72 65 61 |le funct|ion brea|
|000017b0| 6b 73 20 6f 66 66 20 69 | 66 20 61 20 6c 69 6e 65 |ks off i|f a line|
|000017c0| 20 6f 66 20 74 65 78 74 | 20 72 65 61 63 68 65 73 | of text| reaches|
|000017d0| 0d 0a 74 68 65 20 72 69 | 67 68 74 20 68 61 6e 64 |..the ri|ght hand|
|000017e0| 20 73 69 64 65 20 6f 66 | 20 74 68 65 20 73 63 72 | side of| the scr|
|000017f0| 65 65 6e 2e 20 59 6f 75 | 20 63 61 6e 20 77 72 69 |een. You| can wri|
|00001800| 74 65 20 61 20 6d 6f 72 | 65 0d 0a 69 6e 74 65 6c |te a mor|e..intel|
|00001810| 6c 69 67 65 6e 74 20 66 | 75 6e 63 74 69 6f 6e 20 |ligent f|unction |
|00001820| 74 68 61 74 20 77 69 6c | 6c 20 77 72 61 70 20 61 |that wil|l wrap a|
|00001830| 72 6f 75 6e 64 2c 20 6f | 72 20 65 76 65 6e 20 72 |round, o|r even r|
|00001840| 65 6d 65 6d 62 65 72 0d | 0a 61 20 22 63 75 72 73 |emember.|.a "curs|
|00001850| 6f 72 20 70 6f 73 69 74 | 69 6f 6e 22 20 66 72 6f |or posit|ion" fro|
|00001860| 6d 20 6f 6e 65 20 63 61 | 6c 6c 20 74 6f 20 74 68 |m one ca|ll to th|
|00001870| 65 20 6e 65 78 74 2e 20 | 2a 2f 0d 0a 0d 0a 76 6f |e next. |*/....vo|
|00001880| 69 64 20 67 5f 77 72 69 | 74 65 28 73 2c 76 2c 68 |id g_wri|te(s,v,h|
|00001890| 2c 73 65 67 29 0d 0a 63 | 68 61 72 20 2a 73 2c 2a |,seg)..c|har *s,*|
|000018a0| 73 65 67 3b 0d 0a 69 6e | 74 20 76 2c 68 3b 0d 0a |seg;..in|t v,h;..|
|000018b0| 7b 0d 0a 20 20 20 20 20 | 0d 0a 20 20 20 20 20 77 |{..     |..     w|
|000018c0| 68 69 6c 65 20 28 2a 73 | 29 20 7b 0d 0a 20 20 20 |hile (*s|) {..   |
|000018d0| 20 20 20 20 20 20 20 69 | 66 20 28 68 3e 37 31 32 |       i|f (h>712|
|000018e0| 29 20 62 72 65 61 6b 3b | 0d 0a 20 20 20 20 20 20 |) break;|..      |
|000018f0| 20 20 20 20 67 5f 70 75 | 74 63 68 28 2a 73 2b 2b |    g_pu|tch(*s++|
|00001900| 2c 76 2c 68 2c 73 65 67 | 29 3b 0d 0a 20 20 20 20 |,v,h,seg|);..    |
|00001910| 20 20 20 20 20 20 68 2b | 3d 20 47 43 5f 57 49 44 |      h+|= GC_WID|
|00001920| 54 48 3b 0d 0a 20 20 20 | 20 20 7d 0d 0a 7d 0d 0a |TH;..   |  }..}..|
|00001930| 0d 0a 2f 2a 0d 0a 41 73 | 20 77 69 74 68 20 74 68 |../*..As| with th|
|00001940| 65 20 62 69 74 2d 6d 61 | 70 70 69 6e 67 20 66 75 |e bit-ma|pping fu|
|00001950| 6e 63 74 69 6f 6e 73 2c | 20 74 68 65 20 66 6f 6c |nctions,| the fol|
|00001960| 6c 6f 77 69 6e 67 20 75 | 73 65 73 20 6c 61 72 67 |lowing u|ses larg|
|00001970| 65 20 6d 6f 64 65 6c 0d | 0a 66 6f 72 20 65 61 73 |e model.|.for eas|
|00001980| 69 65 72 20 61 63 63 65 | 73 73 20 74 6f 20 74 68 |ier acce|ss to th|
|00001990| 65 20 52 4f 4d 20 63 68 | 61 72 61 63 74 65 72 20 |e ROM ch|aracter |
|000019a0| 73 65 74 2e 20 70 65 65 | 6b 28 29 20 77 69 6c 6c |set. pee|k() will|
|000019b0| 20 77 6f 72 6b 0d 0a 6a | 75 73 74 20 61 73 20 77 | work..j|ust as w|
|000019c0| 65 6c 6c 2e 0d 0a 20 2a | 2f 0d 0a 20 0d 0a 76 6f |ell... *|/.. ..vo|
|000019d0| 69 64 20 67 5f 70 75 74 | 63 68 28 63 2c 79 2c 78 |id g_put|ch(c,y,x|
|000019e0| 2c 73 65 67 29 0d 0a 69 | 6e 74 20 63 2c 79 2c 78 |,seg)..i|nt c,y,x|
|000019f0| 3b 0d 0a 63 68 61 72 20 | 2a 73 65 67 3b 0d 0a 7b |;..char |*seg;..{|
|00001a00| 0d 0a 20 20 20 20 20 69 | 6e 74 20 69 2c 6a 3b 0d |..     i|nt i,j;.|
|00001a10| 0a 20 20 20 20 20 75 6e | 73 69 67 6e 65 64 20 63 |.     un|signed c|
|00001a20| 68 61 72 20 73 63 61 6e | 5f 6c 69 6e 65 2c 6d 61 |har scan|_line,ma|
|00001a30| 73 6b 3b 0d 0a 20 20 20 | 20 20 0d 0a 20 20 20 20 |sk;..   |  ..    |
|00001a40| 20 66 6f 72 20 28 69 3d | 30 3b 69 3c 38 3b 69 2b | for (i=|0;i<8;i+|
|00001a50| 2b 29 7b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 73 |+){..   |       s|
|00001a60| 63 61 6e 5f 6c 69 6e 65 | 3d 66 6f 6e 74 5b 63 2a |can_line|=font[c*|
|00001a70| 38 2b 69 5d 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |8+i];.. |        |
|00001a80| 20 66 6f 72 20 28 6d 61 | 73 6b 3d 31 32 38 2c 6a | for (ma|sk=128,j|
|00001a90| 3d 30 3b 6a 3c 38 3b 6a | 2b 2b 2c 6d 61 73 6b 3e |=0;j<8;j|++,mask>|
|00001aa0| 3e 3d 31 29 7b 0d 0a 20 | 20 20 20 20 20 20 20 20 |>=1){.. |        |
|00001ab0| 20 20 20 20 20 20 69 66 | 20 28 73 63 61 6e 5f 6c |      if| (scan_l|
|00001ac0| 69 6e 65 20 26 20 6d 61 | 73 6b 29 20 77 72 69 74 |ine & ma|sk) writ|
|00001ad0| 65 64 6f 74 28 79 2b 69 | 2c 78 2b 6a 2c 73 65 67 |edot(y+i|,x+j,seg|
|00001ae0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);..    |        |
|00001af0| 20 20 20 65 6c 73 65 20 | 63 6c 65 61 72 64 6f 74 |   else |cleardot|
|00001b00| 28 79 2b 69 2c 78 2b 6a | 2c 73 65 67 29 3b 20 20 |(y+i,x+j|,seg);  |
|00001b10| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 7d 0d 0a 20 |..      |    }.. |
|00001b20| 20 20 20 20 20 20 20 20 | 20 66 6f 72 20 28 6a 3d |        | for (j=|
|00001b30| 38 3b 6a 3c 47 43 5f 57 | 49 44 54 48 3b 6a 2b 2b |8;j<GC_W|IDTH;j++|
|00001b40| 29 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |) ..    |        |
|00001b50| 20 20 20 63 6c 65 61 72 | 64 6f 74 28 79 2b 69 2c |   clear|dot(y+i,|
|00001b60| 78 2b 6a 2c 73 65 67 29 | 3b 0d 0a 20 20 20 20 20 |x+j,seg)|;..     |
|00001b70| 7d 0d 0a 7d 0d 0a 0d 0a | 2f 2a 20 54 68 69 73 20 |}..}....|/* This |
|00001b80| 69 73 20 6e 6f 74 20 75 | 73 65 64 20 69 6e 20 74 |is not u|sed in t|
|00001b90| 68 69 73 20 70 72 6f 67 | 72 61 6d 2e 20 49 74 20 |his prog|ram. It |
|00001ba0| 69 73 20 69 6e 63 6c 75 | 64 65 64 20 66 6f 72 20 |is inclu|ded for |
|00001bb0| 0d 0a 72 65 66 65 72 65 | 6e 63 65 20 6f 6e 6c 79 |..refere|nce only|
|00001bc0| 2e 20 49 66 20 63 61 6c | 6c 65 64 2c 20 69 74 20 |. If cal|led, it |
|00001bd0| 77 6f 75 6c 64 20 74 6f | 67 67 6c 65 20 74 68 65 |would to|ggle the|
|00001be0| 20 64 69 73 70 6c 61 79 | 20 62 61 63 6b 0d 0a 61 | display| back..a|
|00001bf0| 6e 64 20 66 6f 72 74 68 | 20 62 65 74 77 65 65 6e |nd forth| between|
|00001c00| 20 73 63 72 65 65 6e 20 | 30 20 61 6e 64 20 73 63 | screen |0 and sc|
|00001c10| 72 65 65 6e 20 31 2e 20 | 2a 2f 0d 0a 0d 0a 76 6f |reen 1. |*/....vo|
|00001c20| 69 64 20 73 77 5f 73 63 | 72 28 29 0d 0a 7b 0d 0a |id sw_sc|r()..{..|
|00001c30| 20 20 20 20 20 73 74 61 | 74 69 63 20 69 6e 74 20 |     sta|tic int |
|00001c40| 73 63 72 3d 30 3b 0d 0a | 20 20 20 20 20 0d 0a 20 |scr=0;..|     .. |
|00001c50| 20 20 20 20 73 63 72 5e | 3d 31 32 38 3b 0d 0a 20 |    scr^|=128;.. |
|00001c60| 20 20 20 20 6f 75 74 70 | 6f 72 74 62 28 43 4f 4e |    outp|ortb(CON|
|00001c70| 54 52 4f 4c 50 4f 52 54 | 2c 20 31 30 20 7c 20 73 |TROLPORT|, 10 | s|
|00001c80| 63 72 29 3b 0d 0a 7d 0d | 0a 1a                   |cr);..}.|..      |
+--------+-------------------------+-------------------------+--------+--------+