Compucolor.org – Virtual Media

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

### Disk Sector 144 ###
00: 28 20 53 63 72 65 65 6e 20 45 64 69 74 6f 72 20   ( Screen Editor
10: 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   7
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 32 33 4f 43 54 38 32 20 29       WLG23OCT82 )
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 145 ###
00: 3a 20 53 43 41 4e 2d 3c 3e 20 20 20 20 20 20 20   : SCAN-<>
10: 20 32 44 55 50 20 3d 20 49 46 20 44 52 4f 50 20    2DUP = IF DROP
20: 32 44 52 4f 50 20 30 20 45 4c 53 45 20 30 20 52   2DROP 0 ELSE 0 R
30: 4f 54 20 52 4f 54 20 44 4f 20 4f 56 45 52 20 20   OT ROT DO OVER
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 49 20 43 40 20 3c 3e 20 49 46 20 4c 45 41 56    I C@ <> IF LEAV
60: 45 20 45 4c 53 45 20 31 2d 20 45 4e 44 49 46 20   E ELSE 1- ENDIF
70: 2d 31 20 2b 4c 4f 4f 50 20 20 20 20 20 20 20 20   -1 +LOOP
### Disk Sector 146 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 53 57 41 50 20 44 52 4f 50 20 45 4e 44 49 46    SWAP DROP ENDIF
20: 20 3b 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 53 43 41 4e 2b 3c 3e 20 20 20 20 20 20 20   : SCAN+<>
50: 20 32 44 55 50 20 3d 20 49 46 20 44 52 4f 50 20    2DUP = IF DROP
60: 32 44 52 4f 50 20 30 20 45 4c 53 45 20 30 20 52   2DROP 0 ELSE 0 R
70: 4f 54 20 52 4f 54 20 44 4f 20 4f 56 45 52 20 20   OT ROT DO OVER
### Disk Sector 147 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 49 20 43 40 20 3c 3e 20 49 46 20 4c 45 41 56    I C@ <> IF LEAV
20: 45 20 45 4c 53 45 20 31 2b 20 45 4e 44 49 46 20   E ELSE 1+ ENDIF
30: 4c 4f 4f 50 20 20 20 20 20 20 20 20 20 20 20 20   LOOP
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 53 57 41 50 20 44 52 4f 50 20 45 4e 44 49 46    SWAP DROP ENDIF
60: 20 3b 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 148 ###
00: 3a 20 4c 2d 57 4f 52 44 20 20 20 20 20 20 20 20   : L-WORD
10: 20 42 4c 20 30 20 42 55 46 2d 41 44 52 20 42 55    BL 0 BUF-ADR BU
20: 46 50 4f 53 20 53 43 41 4e 2d 3d 20 3e 52 20 42   FPOS SCAN-= >R B
30: 4c 20 30 20 42 55 46 2d 41 44 52 20 20 20 20 20   L 0 BUF-ADR
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 42 55 46 50 4f 53 20 52 20 2b 20 53 43 41 4e    BUFPOS R + SCAN
60: 2d 3c 3e 20 52 3e 20 2b 20 44 55 50 20 42 55 46   -<> R> + DUP BUF
70: 50 4f 53 20 2b 20 43 40 20 42 4c 20 20 20 20 20   POS + C@ BL
### Disk Sector 149 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 3d 20 49 46 20 31 2b 20 45 4e 44 49 46 20 2b    = IF 1+ ENDIF +
20: 43 55 52 50 4f 53 20 3b 20 20 20 20 20 20 20 20   CURPOS ;
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 4d 4f 56 2d 52 2d 57 4f 52 44 20 20 20 20   : MOV-R-WORD
50: 20 42 4c 20 5b 20 43 2f 53 43 52 20 31 2d 20 5d    BL [ C/SCR 1- ]
60: 20 4c 49 54 45 52 41 4c 20 42 55 46 2d 41 44 52    LITERAL BUF-ADR
70: 20 42 55 46 50 4f 53 20 20 20 20 20 20 20 20 20    BUFPOS
### Disk Sector 150 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 20 53 43 41 4e 2b 3d 20 3e 52 20 42 4c 20 5b 20    SCAN+= >R BL [
20: 43 2f 53 43 52 20 31 2d 20 5d 20 4c 49 54 45 52   C/SCR 1- ] LITER
30: 41 4c 20 42 55 46 2d 41 44 52 20 20 20 20 20 20   AL BUF-ADR
40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50: 20 42 55 46 50 4f 53 20 52 20 2b 20 53 43 41 4e    BUFPOS R + SCAN
60: 2b 3c 3e 20 52 3e 20 2b 20 3b 20 20 20 20 20 20   +<> R> + ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 151 ###
00: 3a 20 52 2d 57 4f 52 44 20 20 20 20 20 20 20 20   : R-WORD
10: 20 4d 4f 56 2d 52 2d 57 4f 52 44 20 2b 43 55 52    MOV-R-WORD +CUR
20: 50 4f 53 20 3b 20 2d 2d 3e 20 20 20 20 20 20 20   POS ; -->
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 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