Listing of file='DECOM1.SCR;06' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 48 ### 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 31 20 20 20 20 20 20 20 20 mpiler 1 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 49 ### 00: 46 4f 52 54 48 20 44 45 46 49 4e 49 54 49 4f 4e FORTH DEFINITION 10: 53 20 44 45 43 49 4d 41 4c 20 20 20 20 20 20 20 S DECIMAL 20: 20 20 20 20 20 28 20 43 41 53 45 20 63 6f 6e 74 ( CASE cont 30: 72 6f 6c 20 73 74 61 74 65 6d 65 6e 74 20 29 20 rol statement ) 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 50 ### 00: 3a 20 43 41 53 45 20 20 20 20 20 20 20 20 20 20 : CASE 10: 20 20 3f 43 4f 4d 50 20 43 53 50 20 40 20 21 43 ?COMP CSP @ !C 20: 53 50 20 34 20 20 20 20 20 20 20 20 3b 20 49 4d SP 4 ; IM 30: 4d 45 44 49 41 54 45 20 20 20 20 20 20 20 20 20 MEDIATE 40: 3a 20 4f 46 20 20 20 20 20 20 20 20 20 20 20 20 : OF 50: 20 20 34 20 3f 50 41 49 52 53 20 20 20 20 20 20 4 ?PAIRS 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 51 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 20 43 4f 4d 50 49 4c 45 20 4f 56 45 52 20 43 COMPILE OVER C 20: 4f 4d 50 49 4c 45 20 3d 20 20 20 20 20 20 20 20 OMPILE = 30: 20 20 20 20 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 43 4f 4d 50 49 4c 45 20 30 42 52 41 4e 43 COMPILE 0BRANC 60: 48 20 48 45 52 45 20 30 20 2c 20 20 20 20 20 20 H HERE 0 , 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 52 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 20 43 4f 4d 50 49 4c 45 20 44 52 4f 50 20 35 COMPILE DROP 5 20: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4d ; IM 30: 4d 45 44 49 41 54 45 20 20 20 20 20 20 20 20 20 MEDIATE 40: 3a 20 45 4e 44 4f 46 20 20 20 20 20 20 20 20 20 : ENDOF 50: 20 20 35 20 3f 50 41 49 52 53 20 20 20 20 20 20 5 ?PAIRS 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 53 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 20 43 4f 4d 50 49 4c 45 20 42 52 41 4e 43 48 COMPILE BRANCH 20: 20 48 45 52 45 20 30 20 2c 20 20 20 20 20 20 20 HERE 0 , 30: 20 20 20 20 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 53 57 41 50 20 32 20 5b 43 4f 4d 50 49 4c SWAP 2 [COMPIL 60: 45 5d 20 45 4e 44 49 46 20 34 20 20 3b 20 49 4d E] ENDIF 4 ; IM 70: 4d 45 44 49 41 54 45 20 20 20 20 20 20 20 20 20 MEDIATE ### Disk Sector 54 ### 00: 3a 20 45 4e 44 43 41 53 45 20 20 20 20 20 20 20 : ENDCASE 10: 20 20 34 20 3f 50 41 49 52 53 20 43 4f 4d 50 49 4 ?PAIRS COMPI 20: 4c 45 20 44 52 4f 50 20 20 20 20 20 20 20 20 20 LE DROP 30: 20 20 20 20 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 42 45 47 49 4e 20 53 50 40 20 43 53 50 20 BEGIN SP@ CSP 60: 40 20 3d 20 30 3d 20 20 20 20 20 20 20 20 20 20 @ = 0= 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 55 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 20 57 48 49 4c 45 20 32 20 5b 43 4f 4d 50 49 WHILE 2 [COMPI 20: 4c 45 5d 20 45 4e 44 49 46 20 20 20 20 20 20 20 LE] ENDIF 30: 20 20 20 20 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 52 45 50 45 41 54 20 43 53 50 20 21 20 20 REPEAT CSP ! 60: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 4d ; IM 70: 4d 45 44 49 41 54 45 20 20 2d 2d 3e 20 20 20 20 MEDIATE -->