Compucolor.org – Virtual Media

Listing of file='REDEC1.SCR;2A' on disk='vmedia/chip_121-sector.ccvf'

### Disk Sector 336 ###
00: 28 20 52 45 43 55 52 53 49 56 45 20 44 45 43 4f   ( RECURSIVE DECO
10: 4d 50 49 4c 45 52 20 31 20 49 4e 43 4c 55 44 45   MPILER 1 INCLUDE
20: 53 20 49 4e 53 54 52 55 43 54 49 4f 4e 53 20 20   S INSTRUCTIONS
30: 20 20 20 20 31 32 4d 41 52 38 34 57 4c 47 20 29       12MAR84WLG )
40: 28 20 54 68 69 73 20 44 65 63 6f 6d 70 69 6c 65   ( This Decompile
50: 72 20 77 69 6c 6c 20 63 6f 6d 70 6c 65 74 65 6c   r will completel
60: 79 20 64 65 63 6f 6d 70 69 6c 65 20 61 20 46 4f   y decompile a FO
70: 52 54 48 20 77 6f 72 64 20 20 20 20 20 20 20 29   RTH word       )
### Disk Sector 337 ###
00: 28 20 69 6e 63 6c 75 64 69 6e 67 20 74 68 65 20   ( including the
10: 6c 6f 77 65 72 20 46 4f 52 54 48 20 77 6f 72 64   lower FORTH word
20: 73 20 74 68 61 74 20 6d 61 6b 65 20 75 70 20 74   s that make up t
30: 68 65 20 77 6f 72 64 2e 20 20 20 20 20 20 20 29   he word.       )
40: 28 20 45 58 41 4d 50 4c 45 3a 20 20 47 4f 45 53   ( EXAMPLE:  GOES
50: 49 4e 54 4f 20 4c 49 53 54 3c 52 45 54 55 52 4e   INTO LIST<RETURN
60: 3e 20 53 68 6f 77 73 20 74 68 65 20 66 69 72 73   > Shows the firs
70: 74 20 77 6f 72 64 20 75 73 65 64 20 62 79 20 29   t word used by )
### Disk Sector 338 ###
00: 28 20 4c 49 53 54 2e 20 45 61 63 68 20 74 69 6d   ( LIST. Each tim
10: 65 20 79 6f 75 20 70 72 65 73 73 20 74 68 65 20   e you press the
20: 73 70 61 63 65 20 62 61 72 20 79 6f 75 20 77 69   space bar you wi
30: 6c 6c 20 67 65 74 20 74 68 65 20 20 20 20 20 29   ll get the     )
40: 28 20 6e 65 78 74 20 77 6f 72 64 20 75 73 65 64   ( next word used
50: 20 62 79 20 4c 49 53 54 2e 20 54 6f 20 64 65 63    by LIST. To dec
60: 6f 6d 70 69 6c 65 20 61 20 6c 6f 77 65 72 20 77   ompile a lower w
70: 6f 72 64 20 75 73 65 64 20 62 79 20 20 20 20 29   ord used by    )
### Disk Sector 339 ###
00: 28 20 4c 49 53 54 20 70 72 65 73 73 20 3c 52 45   ( LIST press <RE
10: 54 55 52 4e 3e 20 77 68 65 6e 20 74 68 65 20 77   TURN> when the w
20: 6f 72 64 20 61 70 70 65 61 72 73 20 61 6e 64 20   ord appears and
30: 74 68 65 20 64 65 63 6f 6d 70 69 6c 65 72 20 29   the decompiler )
40: 28 20 77 69 6c 6c 20 77 6f 72 6b 20 6f 6e 20 74   ( will work on t
50: 68 61 74 20 77 6f 72 64 2e 20 59 6f 75 20 6d 61   hat word. You ma
60: 79 20 63 6f 6e 74 69 6e 75 65 20 74 6f 20 70 72   y continue to pr
70: 65 73 73 20 52 45 54 55 52 4e 20 74 6f 20 20 29   ess RETURN to  )
### Disk Sector 340 ###
00: 28 20 64 65 63 6f 6d 70 69 6c 65 20 65 76 65 6e   ( decompile even
10: 20 6c 6f 77 65 72 20 77 6f 72 64 73 2e 20 20 50    lower words.  P
20: 72 65 73 73 20 27 51 27 75 69 74 20 74 6f 20 65   ress 'Q'uit to e
30: 78 69 74 20 65 61 72 6c 79 2e 20 20 20 20 20 29   xit early.     )
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 341 ###
00: 20 20 56 4f 43 41 42 55 4c 41 52 59 20 44 45 43     VOCABULARY DEC
10: 4f 4d 50 49 4c 45 52 20 49 4d 4d 45 44 49 41 54   OMPILER IMMEDIAT
20: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   E
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 20 20 44 45 43 4f 4d 50 49 4c 45 52 20 44 45 46     DECOMPILER DEF
50: 49 4e 49 54 49 4f 4e 53 20 44 45 43 49 4d 41 4c   INITIONS DECIMAL
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 342 ###
00: 3a 20 4d 59 53 45 4c 46 20 4c 41 54 45 53 54 20   : MYSELF LATEST
10: 50 46 41 20 43 46 41 20 2c 20 3b 20 49 4d 4d 45   PFA CFA , ; IMME
20: 44 49 41 54 45 20 20 20 20 20 20 20 20 20 20 20   DIATE
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 20 20 30 20 56 41 52 49 41 42 4c 45 20 47 49 4e     0 VARIABLE GIN
50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 343 ###
00: 3a 20 47 49 4e 2b 20 43 52 20 47 49 4e 20 40 20   : GIN+ CR GIN @
10: 32 2b 20 44 55 50 20 47 49 4e 20 21 20 53 50 41   2+ DUP GIN ! SPA
20: 43 45 53 20 3b 20 20 20 20 20 20 20 20 20 20 20   CES ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 44 49 4e 20 43 52 20 47 49 4e 20 40 20 53   : DIN CR GIN @ S
50: 50 41 43 45 53 20 3b 20 20 20 20 20 20 20 20 20   PACES ;
60: 20 20 20 20 20 20 20 20 20 20 2d 2d 3e 20 20 20             -->
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20