Compucolor.org – Virtual Media

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

### Disk Sector 8 ###
00: 28 20 46 49 47 46 4f 52 54 48 20 38 30 38 30 20   ( FIGFORTH 8080
10: 41 53 53 45 4d 42 4c 45 52 20 31 20 20 20 20 20   ASSEMBLER 1
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 4a 4a 43 20 38 30 4d 41 52 30 34 20 29      JJC 80MAR04 )
40: 48 45 58 20 56 4f 43 41 42 55 4c 41 52 59 20 41   HEX VOCABULARY A
50: 53 53 45 4d 42 4c 45 52 20 49 4d 4d 45 44 49 41   SSEMBLER IMMEDIA
60: 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20   TE
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 9 ###
00: 27 20 41 53 53 45 4d 42 4c 45 52 20 43 46 41 20   ' ASSEMBLER CFA
10: 27 20 3b 43 4f 44 45 20 30 41 20 2b 20 21 20 20   ' ;CODE 0A + !
20: 20 20 20 20 20 20 28 20 50 41 54 43 48 20 3b 43         ( PATCH ;C
30: 4f 44 45 20 49 4e 20 4e 55 43 4c 45 55 53 20 29   ODE IN NUCLEUS )
40: 3a 20 43 4f 44 45 20 20 3f 45 58 45 43 20 43 52   : CODE  ?EXEC CR
50: 45 41 54 45 20 5b 43 4f 4d 50 49 4c 45 5d 20 41   EATE [COMPILE] A
60: 53 53 45 4d 42 4c 45 52 20 21 43 53 50 20 3b 20   SSEMBLER !CSP ;
70: 49 4d 4d 45 44 49 41 54 45 20 20 20 20 20 20 20   IMMEDIATE
### Disk Sector 10 ###
00: 3a 20 43 3b 20 20 20 20 43 55 52 52 45 4e 54 20   : C;    CURRENT
10: 40 20 43 4f 4e 54 45 58 54 20 21 20 3f 45 58 45   @ CONTEXT ! ?EXE
20: 43 20 3f 43 53 50 20 53 4d 55 44 47 45 20 3b 20   C ?CSP SMUDGE ;
30: 49 4d 4d 45 44 49 41 54 45 20 20 20 20 20 20 20   IMMEDIATE
40: 3a 20 4c 41 42 45 4c 20 3f 45 58 45 43 20 30 20   : LABEL ?EXEC 0
50: 56 41 52 49 41 42 4c 45 20 53 4d 55 44 47 45 20   VARIABLE SMUDGE
60: 2d 32 20 41 4c 4c 4f 54 20 20 20 20 20 20 20 20   -2 ALLOT
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 11 ###
00: 20 20 20 20 20 20 20 20 5b 43 4f 4d 50 49 4c 45           [COMPILE
10: 5d 20 41 53 53 45 4d 42 4c 45 52 20 21 43 53 50   ] ASSEMBLER !CSP
20: 20 3b 20 49 4d 4d 45 44 49 41 54 45 20 20 20 20    ; IMMEDIATE
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 3a 20 38 2a 20 20 20 20 44 55 50 20 2b 20 44 55   : 8*    DUP + DU
50: 50 20 2b 20 44 55 50 20 2b 20 3b 20 20 20 20 20   P + DUP + ;
60: 41 53 53 45 4d 42 4c 45 52 20 44 45 46 49 4e 49   ASSEMBLER DEFINI
70: 54 49 4f 4e 53 20 20 20 20 20 20 20 20 20 20 20   TIONS
### Disk Sector 12 ###
00: 34 20 43 4f 4e 53 54 41 4e 54 20 48 20 20 20 20   4 CONSTANT H
10: 35 20 43 4f 4e 53 54 41 4e 54 20 4c 20 20 20 20   5 CONSTANT L
20: 37 20 43 4f 4e 53 54 41 4e 54 20 41 20 20 20 20   7 CONSTANT A
30: 36 20 43 4f 4e 53 54 41 4e 54 20 50 53 57 20 20   6 CONSTANT PSW
40: 32 20 43 4f 4e 53 54 41 4e 54 20 44 20 20 20 20   2 CONSTANT D
50: 33 20 43 4f 4e 53 54 41 4e 54 20 45 20 20 20 20   3 CONSTANT E
60: 30 20 43 4f 4e 53 54 41 4e 54 20 42 20 20 20 20   0 CONSTANT B
70: 31 20 43 4f 4e 53 54 41 4e 54 20 43 20 20 20 20   1 CONSTANT C
### Disk Sector 13 ###
00: 36 20 43 4f 4e 53 54 41 4e 54 20 4d 20 20 20 20   6 CONSTANT M
10: 36 20 43 4f 4e 53 54 41 4e 54 20 53 50 20 20 20   6 CONSTANT SP
20: 20 20 20 20 20 20 27 20 3b 53 20 30 42 20 2b 20         ' ;S 0B +
30: 40 20 43 4f 4e 53 54 41 4e 54 20 4e 45 58 54 20   @ CONSTANT NEXT
40: 3a 20 31 4d 49 20 20 20 3c 42 55 49 4c 44 53 20   : 1MI   <BUILDS
50: 43 2c 20 44 4f 45 53 3e 20 43 40 20 43 2c 20 3b   C, DOES> C@ C, ;
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 14 ###
00: 3a 20 32 4d 49 20 20 20 3c 42 55 49 4c 44 53 20   : 2MI   <BUILDS
10: 43 2c 20 44 4f 45 53 3e 20 43 40 20 2b 20 43 2c   C, DOES> C@ + C,
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 33 4d 49 20 20 20 3c 42 55 49 4c 44 53 20   : 3MI   <BUILDS
50: 43 2c 20 44 4f 45 53 3e 20 43 40 20 53 57 41 50   C, DOES> C@ SWAP
60: 20 38 2a 20 2b 20 43 2c 20 3b 20 20 20 20 20 20    8* + C, ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 15 ###
00: 3a 20 34 4d 49 20 20 20 3c 42 55 49 4c 44 53 20   : 4MI   <BUILDS
10: 43 2c 20 44 4f 45 53 3e 20 43 40 20 43 2c 20 43   C, DOES> C@ C, C
20: 2c 20 3b 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 35 4d 49 20 20 20 3c 42 55 49 4c 44 53 20   : 5MI   <BUILDS
50: 43 2c 20 44 4f 45 53 3e 20 43 40 20 43 2c 20 2c   C, DOES> C@ C, ,
60: 20 3b 20 20 20 20 20 20 20 20 20 2d 2d 3e 20 20    ;         -->
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20