Compucolor.org – Virtual Media

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

### Disk Sector 296 ###
00: 28 20 55 54 49 4c 49 54 49 45 53 20 34 20 20 50   ( UTILITIES 4  P
10: 41 54 43 48 20 20 53 51 55 49 54 20 20 54 4f 43   ATCH  SQUIT  TOC
20: 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20   RT
30: 20 20 20 20 31 39 4d 41 52 38 34 57 4c 47 20 29       19MAR84WLG )
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 297 ###
00: 3a 20 47 45 54 2d 54 57 4f 2d 43 46 41 27 53 20   : GET-TWO-CFA'S
10: 5b 43 4f 4d 50 49 4c 45 5d 20 27 20 43 46 41 20   [COMPILE] ' CFA
20: 5b 43 4f 4d 50 49 4c 45 5d 20 27 20 43 46 41 20   [COMPILE] ' CFA
30: 3b 20 28 20 2d 20 43 46 31 20 43 46 32 20 29 20   ; ( - CF1 CF2 )
40: 3a 20 50 41 54 43 48 20 47 45 54 2d 54 57 4f 2d   : PATCH GET-TWO-
50: 43 46 41 27 53 20 44 55 50 20 40 20 27 20 3a 20   CFA'S DUP @ ' :
60: 43 46 41 20 40 20 3d 20 20 20 20 20 20 20 20 20   CFA @ =
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 298 ###
00: 20 20 20 20 20 20 20 20 49 46 20 32 2b 20 44 55           IF 2+ DU
10: 50 20 52 4f 54 20 52 4f 54 20 21 20 27 20 3b 53   P ROT ROT ! ' ;S
20: 20 43 46 41 20 53 57 41 50 20 32 2b 20 21 20 20    CFA SWAP 2+ !
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 45 4c 53 45 20 31 32 20           ELSE 12
50: 45 52 52 4f 52 20 51 55 49 54 20 54 48 45 4e 20   ERROR QUIT THEN
60: 3b 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 299 ###
00: 3a 20 53 51 55 49 54 20 30 20 42 4c 4b 20 21 20   : SQUIT 0 BLK !
10: 5b 43 4f 4d 50 49 4c 45 5d 20 5b 20 20 20 20 20   [COMPILE] [
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 52 50           BEGIN RP
50: 21 20 43 52 20 51 55 45 52 59 20 49 4e 54 45 52   ! CR QUERY INTER
60: 50 52 45 54 20 53 54 41 54 45 20 40 20 30 3d 20   PRET STATE @ 0=
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 300 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10: 49 46 20 43 52 20 53 54 41 54 20 54 48 45 4e 20   IF CR STAT THEN
20: 2e 22 20 4f 4b 20 22 20 20 20 20 20 20 20 20 20   ." OK "
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 41 47 41 49 4e 20 3b 20           AGAIN ;
50: 50 41 54 43 48 20 53 51 55 49 54 20 51 55 49 54   PATCH SQUIT QUIT
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 301 ###
00: 43 4f 44 45 20 54 4f 43 52 54 20 20 43 20 4c 20   CODE TOCRT  C L
10: 4d 4f 56 20 20 42 20 48 20 4d 4f 56 20 20 42 20   MOV  B H MOV  B
20: 20 50 4f 50 20 20 44 20 50 4f 50 20 20 20 58 54    POP  D POP   XT
30: 48 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20   HL
40: 20 20 20 20 20 42 45 47 49 4e 20 20 42 20 41 20        BEGIN  B A
50: 4d 4f 56 20 20 20 20 43 20 4f 52 41 20 20 30 3d   MOV    C ORA  0=
60: 20 4e 4f 54 20 20 20 20 20 20 20 20 20 20 20 20    NOT
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 302 ###
00: 20 20 20 20 20 57 48 49 4c 45 20 20 4d 20 41 20        WHILE  M A
10: 4d 4f 56 20 20 20 20 48 20 49 4e 58 20 20 44 20   MOV    H INX  D
20: 20 53 54 41 58 20 44 20 49 4e 58 20 20 20 42 4c    STAX D INX   BL
30: 20 43 50 49 20 20 20 20 20 20 20 20 20 20 20 20    CPI
40: 20 20 20 20 20 20 20 20 20 20 20 20 32 20 41 20               2 A
50: 4d 56 49 20 20 20 43 53 20 4e 4f 54 20 20 43 2c   MVI   CS NOT  C,
60: 20 48 45 52 45 20 33 20 2b 20 2c 20 20 20 20 20    HERE 3 + ,
70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
### Disk Sector 303 ###
00: 20 20 20 20 20 20 20 20 20 20 20 20 20 36 31 20                61
10: 43 50 49 20 20 20 44 20 53 54 41 58 20 20 44 20   CPI   D STAX  D
20: 20 49 4e 58 20 20 42 20 44 43 58 20 20 20 20 20    INX  B DCX
30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
40: 20 20 20 20 20 52 45 50 45 41 54 20 20 20 42 20        REPEAT   B
50: 50 4f 50 20 4e 45 58 54 20 4a 4d 50 20 20 43 3b   POP NEXT JMP  C;
60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d                 --
70: 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   >