Compucolor.org – Virtual Media

Listing of file='REDEC3.SCR;2C' on disk='vmedia/chip_121-sector.ccvf'

### Disk Sector 352 ###
00: 28 20 52 45 43 55 52 53 49 56 45 20 44 45 43 4f   ( RECURSIVE DECO
10: 4d 50 49 4c 45 52 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 31 32 4d 41 52 38 34 57 4c 47 20 29       12MAR84WLG )
40: 3a 20 28 44 45 43 29 20 20 20 20 20 20 20 20 20   : (DEC)
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 353 ###
00: 20 20 20 20 20 20 20 20 44 55 50 20 43 46 41 20           DUP CFA
10: 40 20 27 20 3a 20 43 46 41 20 40 20 3d 20 20 20   @ ' : CFA @ =
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: 20 20 20 20 20 20 20 20 4f 56 45 52 20 27 20 45           OVER ' E
50: 52 52 4f 52 20 3d 20 30 3d 20 41 4e 44 20 20 20   RROR = 0= AND
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 354 ###
00: 49 46 20 28 20 43 4f 4c 4f 4e 20 44 45 46 20 41   IF ( COLON DEF A
10: 4e 44 20 4e 4f 54 20 45 52 52 4f 52 20 29 20 20   ND NOT ERROR )
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: 20 20 20 20 20 20 20 20 42 45 47 49 4e 20 44 55           BEGIN DU
50: 50 20 40 20 44 55 50 20 27 20 3b 53 20 43 46 41   P @ DUP ' ;S CFA
60: 20 3d 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 355 ###
00: 20 20 20 20 20 20 20 20 20 20 4f 56 45 52 20 27             OVER '
10: 20 28 3b 43 4f 44 45 29 20 43 46 41 20 3d 20 4f    (;CODE) CFA = O
20: 52 20 30 3d 20 57 48 49 4c 45 20 20 20 20 20 20   R 0= WHILE
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 32 2b 20 44 55 50             2+ DUP
50: 20 47 49 4e 2b 20 4e 46 41 20 49 44 2e 20 4b 45    GIN+ NFA ID. KE
60: 59 20 44 55 50 20 38 31 20 3d 20 20 20 20 20 20   Y DUP 81 =
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 356 ###
00: 20 20 20 20 20 20 20 20 20 20 49 46 20 53 50 21             IF SP!
10: 20 51 55 49 54 20 20 20 20 20 20 20 20 20 20 20    QUIT
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: 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 31             ELSE 1
50: 33 20 3d 20 20 20 20 20 20 20 20 20 20 20 20 20   3 =
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 357 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4d               IF M
10: 59 53 45 4c 46 20 20 20 20 20 20 20 20 20 20 20   YSELF
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: 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45               ELSE
50: 20 44 52 4f 50 20 54 48 45 4e 20 20 20 20 20 20    DROP THEN
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 358 ###
00: 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 47             THEN G
10: 43 48 4b 20 20 20 20 20 20 20 20 20 20 20 20 20   CHK
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: 20 20 20 20 20 20 20 20 52 45 50 45 41 54 20 20           REPEAT
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 359 ###
00: 20 20 20 20 20 20 20 20 32 2b 20 44 49 4e 20 4e           2+ DIN N
10: 46 41 20 49 44 2e 20 20 20 20 20 20 20 20 20 20   FA ID.
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: 20 20 20 20 20 20 20 20 20 20 54 48 45 4e 20 44             THEN D
50: 52 4f 50 20 3b 20 2d 2d 3e 20 20 20 20 20 20 20   ROP ; -->
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