Listing of file='DECOM2.SCR;07' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 56 ### 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 32 20 20 20 20 20 20 20 20 mpiler 2 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: 3a 20 43 59 41 4e 20 20 20 20 20 20 20 20 20 20 : CYAN 50: 32 32 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 22 EMIT ; 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 57 ### 00: 3a 20 57 48 49 54 45 20 20 20 20 20 20 20 20 20 : WHITE 10: 32 33 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 23 EMIT ; 20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 47 52 45 45 4e 20 20 20 20 20 20 20 20 20 : GREEN 50: 31 38 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 18 EMIT ; 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 58 ### 00: 3a 20 59 45 4c 4c 4f 57 20 20 20 20 20 20 20 20 : YELLOW 10: 31 39 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 19 EMIT ; 20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 4d 41 47 45 4e 54 41 20 20 20 20 20 20 20 : MAGENTA 50: 32 31 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 21 EMIT ; 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 59 ### 00: 3a 20 52 45 44 20 20 20 20 20 20 20 20 20 20 20 : RED 10: 31 37 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 17 EMIT ; 20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 42 4c 55 45 20 20 20 20 20 20 20 20 20 20 : BLUE 50: 32 30 20 45 4d 49 54 20 3b 20 20 20 20 20 20 20 20 EMIT ; 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 60 ### 00: 56 4f 43 41 42 55 4c 41 52 59 20 44 45 43 4f 4d VOCABULARY DECOM 10: 50 20 49 4d 4d 45 44 49 41 54 45 20 20 20 20 20 P IMMEDIATE 20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 44 45 43 4f 4d 50 20 44 45 46 49 4e 49 54 49 4f DECOMP DEFINITIO 50: 4e 53 20 44 45 43 49 4d 41 4c 20 20 20 20 20 20 NS 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 61 ### 00: 30 20 56 41 52 49 41 42 4c 45 20 51 55 49 54 2e 0 VARIABLE QUIT. 10: 46 4c 41 47 20 20 20 20 20 20 20 20 20 20 20 20 FLAG 20: 30 20 56 41 52 49 41 42 4c 45 20 57 4f 52 44 2e 0 VARIABLE WORD. 30: 50 54 52 20 20 20 20 20 20 20 20 20 20 20 20 20 PTR 40: 3a 20 47 49 54 31 20 20 20 20 20 20 20 20 20 20 : GIT1 50: 31 20 51 55 49 54 2e 46 4c 41 47 20 21 20 3b 20 1 QUIT.FLAG ! ; 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 62 ### 00: 3a 20 48 45 58 2e 20 20 20 20 20 20 20 20 20 20 : HEX. 10: 59 45 4c 4c 4f 57 20 30 20 48 45 58 20 44 2e 20 YELLOW 0 HEX D. 20: 44 45 43 49 4d 41 4c 20 3b 20 20 20 20 20 20 20 DECIMAL ; 30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40: 3a 20 4e 2e 20 20 20 20 20 20 20 20 20 20 20 20 : N. 50: 44 55 50 20 47 52 45 45 4e 20 55 2e 20 44 55 50 DUP GREEN U. DUP 60: 20 44 55 50 20 30 3c 20 49 46 20 57 48 49 54 45 DUP 0< IF WHITE 70: 20 2e 22 20 28 22 20 2e 20 20 20 20 20 20 20 20 ." (" . ### Disk Sector 63 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 2e 22 20 29 22 20 45 4c 53 45 20 44 52 4f 50 20 ." )" ELSE DROP 20: 45 4e 44 49 46 20 59 45 4c 4c 4f 57 20 2e 22 20 ENDIF YELLOW ." 30: 28 22 20 48 45 58 2e 20 20 20 20 20 20 20 20 20 (" HEX. 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 2e 22 20 48 29 22 20 3b 20 20 20 20 20 20 2d 2d ." H)" ; -- 60: 3e 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