Compucolor.org – Virtual Media

Listing of file='DECOM3.SCR;08' on disk='vmedia/chip_121-sector.ccvf'

### Disk Sector 64 ###
00: 28 20 66 69 67 2d 46 4f 52 54 48 20 44 65 63 6f   ( fig-FORTH Deco
10: 6d 70 69 6c 65 72 20 33 20 20 20 20 20 20 20 20   mpiler 3
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 20 57 4c 47 30 39 41 55 47 38 32 20 29       WLG09AUG82 )
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 65 ###
00: 27 20 28 4c 4f 4f 50 29 20 20 20 20 20 20 20 20   ' (LOOP)
10: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
20: 20 20 4c 4f 4f 50 2e 41 44 52 20 20 20 20 20 20     LOOP.ADR
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 27 20 4c 49 54 20 20 20 20 20 20 20 20 20 20 20   ' LIT
50: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
60: 20 20 4c 49 54 2e 41 44 52 20 20 20 20 20 20 20     LIT.ADR
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 66 ###
00: 27 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20   ' :
10: 20 20 32 20 2d 20 40 20 43 4f 4e 53 54 41 4e 54     2 - @ CONSTANT
20: 20 20 44 4f 43 4f 4c 2e 41 44 52 20 20 20 20 20     DOCOL.ADR
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 27 20 30 42 52 41 4e 43 48 20 20 20 20 20 20 20   ' 0BRANCH
50: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
60: 20 20 30 42 52 41 4e 43 48 2e 41 44 52 20 20 20     0BRANCH.ADR
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 67 ###
00: 27 20 42 52 41 4e 43 48 20 20 20 20 20 20 20 20   ' BRANCH
10: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
20: 20 20 42 52 41 4e 43 48 2e 41 44 52 20 20 20 20     BRANCH.ADR
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 27 20 28 2b 4c 4f 4f 50 29 20 20 20 20 20 20 20   ' (+LOOP)
50: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
60: 20 20 50 4c 4f 4f 50 2e 41 44 52 20 20 20 20 20     PLOOP.ADR
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 68 ###
00: 27 20 28 2e 22 29 20 20 20 20 20 20 20 20 20 20   ' (.")
10: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
20: 20 20 50 44 4f 54 51 2e 41 44 52 20 20 20 20 20     PDOTQ.ADR
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 27 20 43 2f 4c 20 20 20 20 20 20 20 20 20 20 20   ' C/L
50: 20 20 32 20 2d 20 40 20 43 4f 4e 53 54 41 4e 54     2 - @ CONSTANT
60: 20 20 43 4f 4e 53 54 2e 41 44 52 20 20 20 20 20     CONST.ADR
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 69 ###
00: 27 20 42 41 53 45 20 20 20 20 20 20 20 20 20 20   ' BASE
10: 20 20 32 20 2d 20 40 20 43 4f 4e 53 54 41 4e 54     2 - @ CONSTANT
20: 20 20 55 53 45 52 56 2e 41 44 52 20 20 20 20 20     USERV.ADR
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 27 20 55 53 45 20 20 20 20 20 20 20 20 20 20 20   ' USE
50: 20 20 32 20 2d 20 40 20 43 4f 4e 53 54 41 4e 54     2 - @ CONSTANT
60: 20 20 56 41 52 2e 41 44 52 20 20 20 20 20 20 20     VAR.ADR
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 70 ###
00: 27 20 28 3b 43 4f 44 45 29 20 20 20 20 20 20 20   ' (;CODE)
10: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
20: 20 20 50 53 43 4f 44 45 2e 41 44 52 20 20 20 20     PSCODE.ADR
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 27 20 51 55 49 54 20 20 20 20 20 20 20 20 20 20   ' QUIT
50: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
60: 20 20 51 55 49 54 2e 41 44 52 20 20 20 20 20 20     QUIT.ADR
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 71 ###
00: 27 20 41 42 4f 52 54 20 20 20 20 20 20 20 20 20   ' ABORT
10: 20 20 32 20 2d 20 43 4f 4e 53 54 41 4e 54 20 20     2 - CONSTANT
20: 20 20 41 42 4f 52 54 2e 41 44 52 20 20 20 20 20     ABORT.ADR
30: 20 2d 2d 3e 20 20 20 20 20 20 20 20 20 20 20 20    -->
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