Listing of file='DECOM4.SCR;09' on disk='vmedia/chip_121-sector.ccvf'
### Disk Sector 72 ### 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 34 20 20 20 20 20 20 20 20 mpiler 4 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 73 ### 00: 3a 20 50 44 4f 54 51 2e 44 53 50 20 20 20 20 20 : PDOTQ.DSP 10: 57 4f 52 44 2e 50 54 52 20 40 20 32 2b 20 44 55 WORD.PTR @ 2+ DU 20: 50 20 3e 52 20 44 55 50 20 43 40 20 2b 20 31 20 P >R DUP C@ + 1 30: 2d 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: 57 4f 52 44 2e 50 54 52 20 21 20 52 3e 20 43 4f WORD.PTR ! R> CO 60: 55 4e 54 20 43 59 41 4e 20 54 59 50 45 20 3b 20 UNT CYAN TYPE ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 74 ### 00: 3a 20 57 4f 52 44 2e 44 53 50 20 20 20 20 20 20 : WORD.DSP 10: 44 55 50 20 44 55 50 20 40 20 53 57 41 50 20 32 DUP DUP @ SWAP 2 20: 20 2b 20 3d 20 49 46 20 57 48 49 54 45 20 45 4c + = IF WHITE EL 30: 53 45 20 4d 41 47 45 4e 54 41 20 45 4e 44 49 46 SE MAGENTA ENDIF 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 33 20 2d 20 2d 31 20 54 52 41 56 45 52 53 45 20 3 - -1 TRAVERSE 60: 44 55 50 20 31 2b 20 43 40 20 35 39 20 3d 20 49 DUP 1+ C@ 59 = I 70: 46 20 47 49 54 31 20 20 20 20 20 20 20 20 20 20 F GIT1 ### Disk Sector 75 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 45 4e 44 49 46 20 44 45 43 49 4d 41 4c 20 44 55 ENDIF DECIMAL DU 20: 50 20 43 40 20 31 36 30 20 41 4e 44 20 31 32 38 P C@ 160 AND 128 30: 20 3d 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: 49 46 20 49 44 2e 20 45 4c 53 45 20 47 49 54 31 IF ID. ELSE GIT1 60: 20 45 4e 44 49 46 20 3b 20 20 20 20 20 20 20 20 ENDIF ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 76 ### 00: 3a 20 42 52 41 4e 43 48 2e 44 53 50 20 20 20 20 : BRANCH.DSP 10: 2e 22 20 74 6f 20 22 20 57 4f 52 44 2e 50 54 52 ." to " WORD.PTR 20: 20 40 20 32 2b 20 44 55 50 20 57 4f 52 44 2e 50 @ 2+ DUP WORD.P 30: 54 52 20 21 20 20 20 20 20 20 20 20 20 20 20 20 TR ! 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 44 55 50 20 40 20 2b 20 48 45 58 2e 20 3b 20 20 DUP @ + HEX. ; 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 77 ### 00: 3a 20 55 53 45 52 56 2e 44 53 50 20 20 20 20 20 : USERV.DSP 10: 43 59 41 4e 20 2e 22 20 55 73 65 72 20 76 61 72 CYAN ." User var 20: 69 61 62 6c 65 2c 20 63 75 72 72 65 6e 74 20 76 iable, current v 30: 61 6c 75 65 20 3d 20 22 20 20 20 20 20 20 20 20 alue = " 40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50: 57 4f 52 44 2e 50 54 52 20 40 20 32 2b 20 43 40 WORD.PTR @ 2+ C@ 60: 20 33 38 20 2b 4f 52 49 47 49 4e 20 40 20 2b 20 38 +ORIGIN @ + 70: 40 20 4e 2e 20 47 49 54 31 20 3b 20 20 20 20 20 @ N. GIT1 ; ### Disk Sector 78 ### 00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 49 54 32 20 20 20 20 20 20 20 20 20 20 : GIT2 50: 57 4f 52 44 2e 50 54 52 20 40 20 40 20 57 4f 52 WORD.PTR @ @ WOR 60: 44 2e 44 53 50 20 47 49 54 31 20 3b 20 20 20 20 D.DSP GIT1 ; 70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ### Disk Sector 79 ### 00: 3a 20 43 4f 4e 2e 20 20 20 20 20 20 20 20 20 20 : CON. 10: 57 4f 52 44 2e 50 54 52 20 40 20 32 2b 20 40 20 WORD.PTR @ 2+ @ 20: 4e 2e 20 47 49 54 31 20 3b 20 20 20 20 20 20 20 N. GIT1 ; 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