Compucolor.org – Virtual Media

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

### Disk Sector 320 ###
00: 28 20 42 4d 4f 56 45 20 38 30 38 30 20 43 4f 44   ( BMOVE 8080 COD
10: 45 20 43 4f 4e 54 2e 20 20 20 20 20 20 20 20 20   E CONT.
20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
30: 20 20 20 20 31 30 4d 41 52 38 34 57 4c 47 20 29       10MAR84WLG )
40: 2d 2d 3e 20 20 20 20 20 20 20 20 20 20 20 20 20   -->
50: 20 20 20 20 20 20 20 20 28 20 52 45 4d 4f 56 45           ( REMOVE
60: 20 54 48 49 53 20 41 52 52 4f 57 20 54 4f 20 55    THIS ARROW TO U
70: 53 45 20 54 48 49 53 20 57 4f 52 44 20 20 20 29   SE THIS WORD   )
### Disk Sector 321 ###
00: 42 45 47 49 4e 20 20 20 20 20 20 20 20 20 20 20   BEGIN
10: 20 20 20 20 20 20 20 20 28 20 53 54 41 52 54 20           ( START
20: 54 48 45 20 4c 4f 4f 50 20 20 20 20 20 20 20 20   THE LOOP
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
40: 20 20 20 20 20 20 20 20 42 20 41 20 20 20 20 20           B A
50: 4d 4f 56 20 20 20 20 20 28 20 52 45 50 45 41 54   MOV     ( REPEAT
60: 20 57 49 4c 4c 20 4a 55 4d 50 20 42 41 43 4b 20    WILL JUMP BACK
70: 48 45 52 45 20 20 20 20 20 20 20 20 20 20 20 29   HERE           )
### Disk Sector 322 ###
00: 20 20 20 20 20 20 20 20 43 20 20 20 20 20 20 20           C
10: 4f 52 41 20 20 20 20 20 28 20 53 45 45 20 49 46   ORA     ( SEE IF
20: 20 46 49 4e 49 53 48 45 44 20 20 20 20 20 20 20    FINISHED
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
40: 20 20 20 20 20 20 20 20 30 3d 20 20 20 20 20 20           0=
50: 4e 4f 54 20 20 20 20 20 28 20 54 4f 20 57 48 49   NOT     ( TO WHI
60: 4c 45 20 27 30 3d 27 20 49 53 20 4a 4e 5a 2c 20   LE '0=' IS JNZ,
70: 27 30 3d 20 4e 4f 54 27 20 49 53 20 4a 5a 20 29   '0= NOT' IS JZ )
### Disk Sector 323 ###
00: 57 48 49 4c 45 20 20 20 20 20 20 20 20 20 20 20   WHILE
10: 20 20 20 20 20 20 20 20 28 20 4c 4f 4f 50 20 57           ( LOOP W
20: 48 49 4c 45 20 4e 4f 54 20 5a 45 52 4f 20 20 20   HILE NOT ZERO
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
40: 20 20 20 20 20 20 20 20 48 20 20 20 20 20 20 20           H
50: 44 43 58 20 20 20 20 20 28 20 50 4f 49 4e 54 20   DCX     ( POINT
60: 54 4f 20 4d 4f 56 45 2d 42 59 54 45 20 20 20 20   TO MOVE-BYTE
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
### Disk Sector 324 ###
00: 20 20 20 20 20 20 20 20 4d 20 41 20 20 20 20 20           M A
10: 4d 4f 56 20 20 20 20 20 28 20 47 45 54 20 4d 4f   MOV     ( GET MO
20: 56 45 2d 42 59 54 45 20 49 4e 20 41 43 43 20 20   VE-BYTE IN ACC
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
40: 20 20 20 20 20 20 20 20 44 20 20 20 20 20 20 20           D
50: 44 43 58 20 20 20 20 20 28 20 50 4f 49 4e 54 20   DCX     ( POINT
60: 54 4f 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 20   TO DESTINATION
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
### Disk Sector 325 ###
00: 20 20 20 20 20 20 20 20 44 20 20 20 20 20 20 20           D
10: 53 54 41 58 20 20 20 20 28 20 4d 4f 56 45 20 49   STAX    ( MOVE I
20: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   T
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
40: 20 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20           B
50: 44 43 58 20 20 20 20 20 28 20 43 4f 55 4e 54 20   DCX     ( COUNT
60: 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20   IT
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
### Disk Sector 326 ###
00: 52 45 50 45 41 54 20 20 20 20 20 20 20 20 20 20   REPEAT
10: 20 20 20 20 20 20 20 20 28 20 44 4f 20 49 54 20           ( DO IT
20: 41 47 41 49 4e 20 20 20 20 20 20 20 20 20 20 20   AGAIN
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
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 28 20 46 49 4e 49 53 48           ( FINISH
60: 45 44 20 2d 20 57 48 49 4c 45 20 54 45 53 54 20   ED - WHILE TEST
70: 45 58 49 54 53 20 48 45 52 45 20 20 20 20 20 29   EXITS HERE     )
### Disk Sector 327 ###
00: 20 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20           B
10: 50 4f 50 20 20 20 20 20 28 20 52 45 53 54 4f 52   POP     ( RESTOR
20: 45 20 49 50 20 20 20 20 20 20 20 20 20 20 20 20   E IP
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 29                  )
40: 20 20 20 20 20 20 20 20 4e 45 58 54 20 20 20 20           NEXT
50: 4a 4d 50 20 20 20 20 20 43 3b 20 3b 53 20 20 20   JMP     C; ;S
60: 28 20 45 4e 44 20 4f 46 20 43 4f 44 45 20 41 4e   ( END OF CODE AN
70: 44 20 53 43 52 45 45 4e 20 20 20 20 20 20 20 29   D SCREEN       )