Compucolor.org – Virtual Media

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

### Disk Sector 24 ###
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 33 20 20 20 20 20   ASSEMBLER 3
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: 43 30 20 31 4d 49 20 52 4e 5a 20 20 20 20 20 20   C0 1MI RNZ
50: 43 38 20 31 4d 49 20 52 5a 20 20 20 20 20 20 20   C8 1MI RZ
60: 44 30 20 31 4d 49 20 52 4e 43 20 20 20 20 20 20   D0 1MI RNC
70: 44 38 20 31 4d 49 20 52 43 20 20 20 20 20 20 20   D8 1MI RC
### Disk Sector 25 ###
00: 45 30 20 31 4d 49 20 52 50 4f 20 20 20 20 20 20   E0 1MI RPO
10: 45 38 20 31 4d 49 20 52 50 45 20 20 20 20 20 20   E8 1MI RPE
20: 46 30 20 31 4d 49 20 52 50 20 20 20 20 20 20 20   F0 1MI RP
30: 46 38 20 31 4d 49 20 52 4d 20 20 20 20 20 20 20   F8 1MI RM
40: 43 39 20 31 4d 49 20 52 45 54 20 20 20 20 20 20   C9 1MI RET
50: 43 33 20 35 4d 49 20 4a 4d 50 20 20 20 20 20 20   C3 5MI JMP
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 26 ###
00: 43 32 20 43 4f 4e 53 54 41 4e 54 20 30 3d 20 20   C2 CONSTANT 0=
10: 28 20 4a 4e 5a 20 29 20 20 20 20 20 20 20 20 20   ( JNZ )
20: 44 32 20 43 4f 4e 53 54 41 4e 54 20 43 53 20 20   D2 CONSTANT CS
30: 28 20 4a 4e 43 20 29 20 20 20 20 20 20 20 20 20   ( JNC )
40: 45 32 20 43 4f 4e 53 54 41 4e 54 20 50 45 20 20   E2 CONSTANT PE
50: 28 20 4a 50 4f 20 29 20 20 20 20 20 20 20 20 20   ( JPO )
60: 46 32 20 43 4f 4e 53 54 41 4e 54 20 30 3c 20 20   F2 CONSTANT 0<
70: 28 20 4a 50 20 20 29 20 20 20 20 20 20 20 20 20   ( JP  )
### Disk Sector 27 ###
00: 3a 20 4d 4f 56 20 38 2a 20 34 30 20 2b 20 2b 20   : MOV 8* 40 + +
10: 43 2c 20 3b 20 20 3a 20 4d 56 49 20 38 2a 20 36   C, ;  : MVI 8* 6
20: 20 2b 20 43 2c 20 43 2c 20 3b 20 20 3a 20 4c 58    + C, C, ;  : LX
30: 49 20 38 2a 20 31 2b 20 43 2c 20 2c 20 3b 20 20   I 8* 1+ C, , ;
40: 3a 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 20   : ENDIF
50: 32 20 3f 50 41 49 52 53 20 48 45 52 45 20 53 57   2 ?PAIRS HERE SW
60: 41 50 20 21 20 3b 20 20 20 20 20 20 20 20 20 20   AP ! ;
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 28 ###
00: 3a 20 54 48 45 4e 20 20 20 20 20 20 20 20 20 20   : THEN
10: 5b 43 4f 4d 50 49 4c 45 5d 20 45 4e 44 49 46 20   [COMPILE] ENDIF
20: 3b 20 20 20 20 20 3a 20 4e 4f 54 20 38 20 2b 20   ;     : NOT 8 +
30: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ;
40: 3a 20 49 46 20 20 20 20 20 20 20 20 20 20 20 20   : IF
50: 43 2c 20 48 45 52 45 20 30 20 2c 20 32 20 3b 20   C, HERE 0 , 2 ;
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 29 ###
00: 3a 20 45 4c 53 45 20 20 20 20 20 20 20 20 20 20   : ELSE
10: 32 20 3f 50 41 49 52 53 20 43 33 20 49 46 20 52   2 ?PAIRS C3 IF R
20: 4f 54 20 53 57 41 50 20 45 4e 44 49 46 20 32 20   OT SWAP ENDIF 2
30: 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ;
40: 3a 20 42 45 47 49 4e 20 20 20 20 20 20 20 20 20   : BEGIN
50: 48 45 52 45 20 31 20 3b 20 20 20 20 20 20 20 20   HERE 1 ;
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 30 ###
00: 3a 20 55 4e 54 49 4c 20 20 20 20 20 20 20 20 20   : UNTIL
10: 53 57 41 50 20 31 20 3f 50 41 49 52 53 20 43 2c   SWAP 1 ?PAIRS C,
20: 20 2c 20 3b 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 41 47 41 49 4e 20 20 20 20 20 20 20 20 20   : AGAIN
50: 31 20 3f 50 41 49 52 53 20 43 33 20 43 2c 20 2c   1 ?PAIRS C3 C, ,
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 31 ###
00: 3a 20 57 48 49 4c 45 20 20 20 20 20 20 20 20 20   : WHILE
10: 49 46 20 32 2b 20 20 3b 20 20 20 20 20 20 20 20   IF 2+  ;
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 52 45 50 45 41 54 20 20 20 20 20 20 20 20   : REPEAT
50: 3e 52 20 3e 52 20 41 47 41 49 4e 20 52 3e 20 52   >R >R AGAIN R> R
60: 3e 20 32 20 2d 20 45 4e 44 49 46 20 3b 20 44 45   > 2 - ENDIF ; DE
70: 43 49 4d 41 4c 20 3b 53 20 20 20 20 20 20 20 20   CIMAL ;S