home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fig / forth2.doc < prev    next >
Encoding:
Text File  |  1982-11-18  |  5.3 KB  |  140 lines
  1.      Thσá followinτ i≤ a  samplσ MS-DO╙ termina∞ sessioε iε whicΦ ì
  2. the following operations occur:
  3.  
  4.           1.   A disk is formatted for later use by FORTH.
  5.           2.   FORTH is started and used calculator-style.
  6.           3«á  DEBU╟á i≤ useΣ t∩ movσ thσ filσ FORTH.SC╥á t∩á thσ
  7.                     abovσ formatteΣ disk.
  8.           4«á   ┴ ne≈ versioε oµ FORT╚ i≤ createΣ b∙ loadinτ somσ ì
  9.                     of the screens from the new disk.
  10.           5«á   DEBU╟ i≤ useΣ t∩ savσ thσ ne≈ versioε oµ FORT╚ iε ì
  11.                     the file 4TH.COM.
  12.  
  13.  
  14.      Note║á  comment≤ arσ se⌠ ofµ t∩ thσ right¼á anΣ aεá ellipsi≤ ì
  15. indicates some of the listing has been deleted.
  16.  
  17.  
  18. MS-DOS version 1.25
  19. Copyright 1981,82 Microsoft, Inc.            boot up message
  20.   .
  21.   .
  22.   .
  23. A>FORMAT B:                                  clear a disk
  24. Insert new diskette for drive B:
  25. and strike any key when ready
  26.   .
  27.   .
  28.   .
  29.    252416 bytes total disk space
  30.    252416 bytes available on disk            single density,
  31.                                              IB═áformat¼án∩ system
  32.                                              files
  33.   .
  34.   .
  35.   .
  36. A>FORTH                                      run FORTH.COM
  37.  
  38.  
  39. 8086 Fig-FORTH  Version 1.0A                 start-up banner
  40.  ok                                          user typed <CR>
  41. 15 SPACES                ok
  42. 42 EMIT *ok
  43. : STAR 42 EMIT ; ok                          define a word 'STAR'
  44. STAR *ok                                     try it
  45.  ok                                          
  46. ║á STAR╙á 1░á ░á D╧  STA╥  LOO╨ ╗ oδ         definσáßáworΣ 'STARS'
  47. STARS **********ok                           try it
  48.  ok
  49.   .                                          the following calculation 
  50.   .                                          is used below when creating 
  51.   .                                          the FORTH disk from FORTH.SCR
  52.  
  53. 39 ok                                        = screens in FORTH.SCR: 0-38
  54. 8 ok                                         = blocks per screen
  55. * ok                                         = no. of records toè  . 312 ok                                       transfer ( 8*39 = 312 )
  56. 312 HEX . 138 ok                             print 312 in hex for later use
  57.  ok
  58. BYE
  59. A>                                           back to COMMAND
  60.   .
  61.   .
  62.   .
  63. A>DEBUG FORTH.SCR                            start DEBUG, and
  64. >                                            load FORTH.SCR at
  65. >                                            location 100H
  66. >
  67. >                                            place the newly formatted disk
  68. >                                            in drive B:
  69. >
  70. >W 100 1 0 138                               write, from location
  71. ╛                                            100H¼ record≤ 0-137H ( the 312
  72. >                                            from before ) on drive 1 (B)
  73. >Q                                           quit
  74. A>
  75. A>                                           switch disks A & B
  76. A>B:
  77. B>DEBUG FORTH.COM
  78. >G                                           back to FORTH
  79.  
  80. 8086 Fig-FORTH Version 1.0B
  81.  ok
  82. ┤á LIS╘                                      thσáFORT╚áscreen≤ are
  83. SCR # 4                                      now in drive A, on
  84.   0 ( System messages )                      the disk formatted
  85.   1 empty stack                              above
  86.   2 dictionary full
  87.   .
  88.   .
  89.   .
  90.  14
  91.  15
  92. ok
  93. 4 38 INDEX                                        screens 0-3 are blank
  94.  
  95.   4 ( System messages )
  96.   5 ( System messages )
  97.   6
  98.   7
  99.   8 ( Dr. Eaker's CASE construct: FD 3:187 1982 )
  100.   9 ( 1 and 2 dimensional array definitions )
  101.  10 ( "Starting Forth" line editor - load screen )
  102.   .
  103.   .
  104.   .
  105.  37 ( THE GAME OF LIFE, CONTINUED )
  106.  3╕ ¿ TH┼ GAM┼ O╞ LIFE¼ CONTINUE─ ⌐ok             thσ las⌠ screeε 
  107.  ok                                               in FORTH.SCR
  108.  ok
  109. ╣ LOA─ 3╣ LOA─ 1░ LOA─ 2╡ LOA─                    adΣ word≤ t∩ theè  .                                               dictionary:
  110.   .                                               9=CAS┼/ENDCASE
  111.   .                                               39=arrays
  112.                                                   10=editor
  113.                                                   25=NEW,SIZE?
  114.  
  115.  ok
  116. NEW
  117. current version is A
  118. new version (A-Z)? Bok                            update cold-
  119.  ok                                               star⌠ parameters
  120. HEX
  121. SIZE?   25C4 bytes used,   D11C bytes free  ok    see how big the
  122.                                                   dictionary is -
  123.                                                   note HEX !
  124. BYE
  125. Program terminated normally                       back in DEBUG
  126. >RCX                                              set CX reg. to
  127. C╪ 1AA┼á                                          reflec⌠áthσ larger
  128. : 25C4                                            sizeì
  129. >
  130. >N 4TH.COM                                        this will be
  131.                                                   FORT╚ for normal use
  132. >
  133. >W                                                write the new FORTH
  134. Writing 25C4 bytes                                to 4TH.COM
  135. >Q                                                all done
  136. A>
  137. A>4TH
  138.  
  139. 808╢áá Fig-FORT╚á Versioεá 1.0Bá                  notσáne≈ version
  140.